Pesquisar na Comunidade

Bom dia Encontrei este tópico de 2021 sobre a importação da D.I e também os fontes no repositório. Porém em um tópico mais antigo falam que não vem todas as informações no XML e é preciso ler uma "planilha do importador"... Alguém sabe se isso ainda é necessário? Declaração de Importação (DI) - Leitura do XML via ACBr

Bom dia a todos. Precisei utilizar a classe TDeclaracaoImportacao(e derivados) para importar uma DI. Tenho em mãos o XML da DI e o Impresso do Extrato da DI correspondente. Na impressão as informações relacionadas a carga estão conforme o print. Quanto importo atualmente os resultados ficam assim: cargaPesoBruto|Valor Lido (FloatToStr): 11705300 cargaPesoLiquido|Valor Lido (FloatToStr): 9876300 quantidadeVolumes|Valor Lido (FloattoStr): 36,58 cargaPesoBruto|Valor Lido FormatFloat(#,###,##0.00000): 11.705.300,00000 cargaPesoLiquido|Valor Lido FormatFloat(#,###,##0.00000): 9.876.300,00000 quantidadeVolumes|Valor Lido FormatFloat(###0): 37 Fiz algumas pequenas alterações para que eles fiquem assim depois de importar: cargaPesoBruto|Valor Lido (FloatToStr): 11705,3 cargaPesoLiquido|Valor Lido (FloatToStr): 9876,3 quantidadeVolumes|Valor Lido (FloattoStr): 3658 cargaPesoBruto|Valor Lido FormatFloat(#,###,##0.00000): 11.705,30000 cargaPesoLiquido|Valor Lido FormatFloat(#,###,##0.00000): 9.876,30000 quantidadeVolumes|Valor Lido FormatFloat(###0): 3658 pcnDIR.pas

Bom dia! Estou tentando gerar o XML de uma NF-e de Entrada com Declaração de Importação e Adição, porém estou tendo problemas ao inserir as Adições, o erro está ocorrendo na linha: with DI.adi.Add do O que devo alterar no código abaixo? if not QryDI.IsEmpty then begin QryDI.First; while not QryDI.Eof do begin with Prod.DI.Add do begin nDi := QryDI.FieldByName('NUM_DOC_IMP' ).AsString; dDi := QryDI.FieldByName('DATA_REGISTRO' ).Value; xLocDesemb := QryDI.FieldByName('LOCAL_DESEMB' ).AsString; UFDesemb := QryDI.FieldByName('UF_DESEMB' ).AsString; dDesemb := QryDI.FieldByName('DATA_DESEMB' ).Value; tpViaTransp := QryDI.FieldByName('VIA_TRANSP' ).Value; vAFRMM := QryDI.FieldByName('VLR_AFRMM' ).Value; tpIntermedio:= QryDI.FieldByName('TIPO_IMPORT' ).Value; CNPJ := QryDI.FieldByName('CNPJ_ADQUIRENTE' ).AsString; UFTerceiro := QryDI.FieldByName('UF_ADQUIRENTE' ).AsString; cExportador := QryDI.FieldByName('COD_EXPORTADOR' ).AsString; QryAdicao.Close; QryAdicao.ParamByName('p_id_entrada').Value := QryItensEntr.FieldByName('ID_NF_ENT').Value; QryAdicao.ParamByName('p_id_di' ).Value := QryDI.FieldByName('ID' ).Value; QryAdicao.Open; if not QryAdicao.IsEmpty then begin QryAdicao.First; while not QryAdicao.Eof do begin with DI.adi.Add do begin Adicao.nAdicao := QryAdicao.FieldByName('NUMERO' ).Value; Adicao.nSeqAdi := QryAdicao.FieldByName('SEQUENCIA' ).Value; Adicao.cFabricante := QryAdicao.FieldByName('COD_FABRICANTE').AsString; Adicao.vDescDI := QryAdicao.FieldByName('VLR_DESCONTO' ).Value; Adicao.nDraw := QryAdicao.FieldByName('NUM_DRAWBACK' ).AsString; end; end; QryAdicao.Next; end; end; QryDI.Next; end; end;