Dfox

{$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.

Boa tarde, aguem pode me dizer em qual Unit esta a função CodIBGEToCidade

nfe está saindo zerado

Boa tarde a todos, minha duvida é o seguinte estou querendo destacar o ipi na nota mas não esta saindo, o que esta faltando?

Obrigado era isso mesmo

Boa tarde a todos, alguém sabe o nome desse componente para Delphi?

Obrigado consegui enviar a alteração

Juliomar Marchetti bom dia você fazer o o pull request la, eunão cosegui fazer segue a correção {$IFDEF DELPHIXE2_UP} system.Actions, {$ENDIF} para {$IFDEF DELPHIXE3_UP} system.Actions, {$ENDIF} no xe2 não tem esse system.Actions segue em anexo UCEditorForm_U.pas

Boa tarde, pessoal podem me tirar uma dúvida ao enviar uma nota ela terá que ter um gtin válido ou esse gtin terá que constar na na sefaz? É que gero os Gtin pelo sistema

Juliomar Marchetti obrigado, pela atenção baixei novamente por aui http://infussolucoes.github.io/usercontrol-sd/ e so deu erro nessa parte {$IFDEF DELPHIXE2_UP} system.Actions, {$ENDIF} dessa unit UCEMailForm_U então comentei e passou de boa.

Juliomar Marchetti segue as os arquivos corrigidos 100% compatível com Delphi xe2 pckUserControl_DT.dpk pckUserControl_RT.dpk UCEditorForm_U.pas

Bom dia a todos fui testar o user control no Delphi xe2 e deu erro na instalação então vi que o Juliomar Marchetti também contribui com o projeto, poderia ver o que esta errado: log_Delphi_XE2.txt

Bom dia a todos sabem aquele problema de fazer um PDV ajusta com a resolução do monitor então aqui esta a solução teste o Dresize DResize.zip