Dfox

Para poder usar o webbroser do delphi

basta colocar esse codigo no evento onshow var Reg: TRegistry; begin Reg := TRegistry.Create; Try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', False); If Reg.ValueExists(ExtractFileName(Application.ExeName)) then //coloque aqui o nome do programa ou use extractfilename begin ShowMessage(ExtractFileName(Application.ExeName)); exit; end Else begin Reg.WriteInteger(ExtractFileName(Application.ExeName), 11001); //isto é necessário para poder rodar no internet explorer 11 end; Finally Reg.Free; end;

Boa tarde, achei esse exemplo e esta funcionando aqui

Muito bom Alguém conseguiu compilar ele?

obrigado usei o ACBrNFe1.DistribuicaoDFePorUltNSU e deu certo

Boa noite a todos, qual devo usar ACBrNFe1.DistribuicaoDFe ou ACBrNFe1.DistribuicaoDFePorUltNSU estou tendo problemas com as consultas.

Obrigado deu certo!

parece que esta faltando o ISSCamacari.Provider.pas

Boa tarde, pessoal ao instalar o acbr esta dando erro

Obrigado BigWings, deu certo agora

baixei novamente e o mesmo erro

Compiling package D:\Fonte Dfox\ACBr\Pacotes\Delphi\ACBrTXT\ACBrPonto\ACBr_Ponto.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe" "D:\Fonte Dfox\ACBr\Pacotes\Delphi\ACBrTXT\ACBrPonto\ACBr_Ponto.dpk" Embarcadero Delphi for Win32 compiler version 23.0 Copyright (c) 1983,2011 Embarcadero Technologies, Inc. D:\Fonte Dfox\ACBr\Fontes\ACBrTXT\ACBrPonto\ACBrPonto.Conversao.pas(70) Error: E2010 Incompatible types: 'Dynamic array' and 'Set' D:\Fonte Dfox\ACBr\Fontes\ACBrTXT\ACBrPonto\ACBrPonto.Conversao.pas(71) Error: E2010 Incompatible types: 'Dynamic array' and 'Set' D:\Fonte Dfox\ACBr\Fontes\ACBrTXT\ACBrPonto\ACBrPonto.Conversao.pas(72) Error: E2010 Incompatible types: 'Dynamic array' and 'Set' D:\Fonte Dfox\ACBr\Fontes\ACBrTXT\ACBrPonto\ACBrPonto.Conversao.pas(73) Error: E2010 Incompatible types: 'Dynamic array' and 'Set' D:\Fonte Dfox\ACBr\Fontes\ACBrTXT\ACBrPonto\ACBrPonto.Conversao.pas(74) Error: E2010 Incompatible types: 'Dynamic array' and 'Set' D:\Fonte Dfox\ACBr\Fontes\ACBrTXT\ACBrPonto\ACBrPonto.Conversao.pas(75) Error: E2010 Incompatible types: 'Dynamic array' and 'Set' D:\Fonte Dfox\ACBr\Fontes\ACBrTXT\ACBrPonto\ACBrPonto.AEJ.pas(2426) Fatal: F2063 Could not compile used unit 'ACBrPonto.Conversao.pas' Compilation failure Erro ao compilar o pacote "ACBr_Ponto.dpk". Abortando... Ocorreram erros na compilação dos pacotes. erro no delphi exe2

{$IFDEF PL_200} era isso mesmo valeu.

ah sim entendi mais como fica essa parte // Local de Retirada {$IFNDEF PL_200} if qrnotafiscal_cteLOCAL_RETIRADA_DIF.AsString = 'Sim' then begin locRet.CNPJCPF := qrnotafiscal_ctecnpj.AsString; locRet.xNome := qrnotafiscal_ctenome.AsString; locRet.xLgr := qrnotafiscal_ctelogradouro.AsString; locRet.nro := qrnotafiscal_ctenumero_retirada.AsString; locRet.xCpl := qrnotafiscal_ctecomplemento.AsString; locRet.xBairro := qrnotafiscal_ctebairro.AsString; // locRet.cMun := StrToInt(frmmodulo.qrnotafiscal_cteco.Text); locRet.xMun := qrnotafiscal_ctemunicipio.AsString; locRet.UF := qrnotafiscal_cteuf.AsString; end;} {$ENDIF}

pelo que vi é esse campo que foi retirado Rem.InfNFe.Add

Boa tarde a todos, instalei o acbr hoje e esta da erro no cte como ficou essa parte do cte with infCTeNorm.infDoc.infNF.Add do {$ELSE} with Rem.InfNF.Add do {$ENDIF} begin nRoma := qrnotafiscal_cteNR_ROMANEIO.asstring; nPed := qrnotafiscal_cteNR_PEDIDO.asstring; // criar tabela serie := qrnotafiscal_cteSERIE.asstring; nDoc := qrnotafiscal_cteNUMERO.asstring; dEmi := qrnotafiscal_cteDATA_EMISSAO.AsDateTime; vBC := qrnotafiscal_cteBASE_CALC_ICMS.Value; vICMS := qrnotafiscal_cteVALOR_ICMS.Value; vBCST := qrnotafiscal_cteBASE_CALC_ICMS_ST.Value; vST := qrnotafiscal_cteVALOR_ICMS_ST.Value; vProd := qrnotafiscal_cteVALOR_PRODUTOS.Value; vNF := qrnotafiscal_cteVALOR_NOTA.Value; nCFOP := StrToInt (qrnotafiscal_cteCFOP.asstring); nPeso := qrnotafiscal_ctePESO_TOTAL.Value; PIN := qrnotafiscal_ctePIN.asstring;

Então deve ser problema no modo que você salvou esse XML no banco de dados

boa tarde tenta usar essa função function IfExtraiXmlnf(sXML : string; sQuery :TDataSet): String; var sl : TStringList; begin if not DirectoryExists(ExtractFilePath(sXML)) then ForceDirectories(ExtractFilePath(sXML)); if sQuery.fieldbyname('xml').AsString <> '' then begin {TBlobField(sQuery.FieldByName('xml')).SaveToFile(sXML);} try sl := TStringList.Create; sl.Add(sQuery.fieldbyname('xml').AsString); sl.SaveToFile(sXML, TEncoding.UTF8); finally sl.Free; end; end; Result := sXML; end; exemplo de uso var sXML: string; begin sXML := qrnota.fieldbyname('nfe_xml').AsString; try if FileExists(IfExtraiXmlnf(sXML,qrnota)) then begin end;

Resolvi para quem precisar esta ai como eu fiz procedure TfrmOrcamentoPDV.btvend_imp_ticketClick(Sender: TObject); var OldIndex: Integer; begin frmmodulo.qrconfig.Open; OldIndex := frxPrinters.PrinterIndex; fxOrcamento.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'rel\Ticket-IF.fr3'); fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString; fxOrcamento.PrepareReport; fxOrcamento.PrintOptions.ShowDialog := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 1; if frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 0 then fxOrcamento.Print else fxOrcamento.ShowReport; // Volta a padrão no fast {Uses frxPrinter} frxPrinters.PrinterIndex := OldIndex; end;

Boa tarde, pessoal tenho no meu sistema as impressão em fastreport o problema é quando eu imprimo frmmodulo.qrconfig.Open; fxOrcamento.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'rel\Ticket-IF.fr3'); fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString; fxOrcamento.PrepareReport; fxOrcamento.PrintOptions.ShowDialog := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 1; if frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 0 then fxOrcamento.Print else fxOrcamento.ShowReport; todas impressão sai na impressora que eu setei fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString; alguem sabe alguma solucão

Obrigado vou dar uma olhada mais se alguém tiver uma função que faça Transforma a quantidade de dias digitados em anos, meses e dias Ficarei agradecido. Achei essa função em c++ https://www.vivaolinux.com.br/script/Transforma-a-quantidade-de-dias-digitados-em-anos-meses-e-dias

Boa tarde, Pessoal alguem tem ou sabe como fazer para converter dias em mês e anos?

1 consumo de distribuição 2 sim permanece consumo indevido

Boa tarde um cliente meu ficou desde o mês 05 sem manifestar e agora está dando erro de consumo indevido o que fazer neste caso?

Obrigado.