podiuminformatica

Olá pessoal. Estou implementando o boleto do Bradesco, estou com algumas dúvidas: Erro enviado pelo suporte do Bradesco: Registro Header (primeira linha do arquivo): - posição 27 a 46: preencher com o número do perfil (código do cedente – acessório escritural) = 4680446, alinhar com zeros a esquerda - posição 111 a 117: preencher com o número sequencial da remessa (sempre maior do que último enviado para o banco) = 0000090 Na hora de passar para o componente o valor de cedente, devo informar esse valor acrescido de zeros a esquerda ou o próprio componente se encarrega disso? O número sequencial de remessa do Bradesco deve ser controlado? Preciso saber qual o ultimo que foi enviado e fazer com que o mesmo numero sempre seja acrescido a cada envio? Segue em anexo arquivo: No mais, obrigado. PS: Desculpe se falei alguma bobeira, estou começando agora a trabalhar com o componente e com esse tipo de ramo. PS2: Existe algum manual do componente, com descrições de cada propriedade para ajudar nos estudos? Desde já agradeço. cb210701.rem

Ok.. Italo. Grato pela ajuda e explicação. Vou fazer teste com CT-e's. Até.

Boa tarde senhores. Mais uma vez venho solicitar a vossa ajuda pra resolver uma questão no MDF-e. Estou enviando o MDF-e e está dando a mensagem que nenhum grupo de documento foi informado, com tela em anexo. Segue também código do fonte em Delphi. Grato. Gilberto F. Rezende. FONTE.txt

Boa tarde senhores. Gostaria de mais uma vez contar com a vossa ajuda. Estou gerando o CT-e e estou utilizando o Quickreport, mas não temos o Quickreport original, mas temos o FastReport original. Gostaria de saber se o DACTE pode ser impresso em FastReport? Grato. Aguardo Resposta.

Ok.. Salvei em disco a partir do ACBRCt-e e deu tudo certo. Muito obrigado.

Olá Italo. Sim, eu salvava o XML completo no meu banco de dados e tinha ele em pasta. GerarCTe(DM.iboCTeCODIGOCTE_E.AsString); ACBrCTe.Conhecimentos.Items[0].SaveToFile; // if not MontaChaveCte() then begin raise EAbort.CreateFmt('*** Erro na geração do CT-e ***' + #10,[]); Exit; end; Quando faço o envio uso a função enviar e pego os retornos: MemoResp.Lines.Text := UTF8Encode(ACBrCTe.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrCTe.WebServices.Retorno.RetWS); LoadXML(MemoResp, WBResposta); Mas não retorna o XML complento. Será que tenho que pegar outro tipo de retono e salvar o XML complento. Grato. Gilberto.

Bom dia senhores. Gostaria de contar com a vossa ajuda para que eu possa solucionar um problema na emissão do CT-e. Quando eu enviava o CT-e, sempre me retornava o XML Completo para a emissão do DACTE. e agora estou enviando e não retorna mais o XML completo. Houve alguma mudança no CT-e ou no ACBR? Grato. Gilberto.

Boa tarde senhores: Mais uma vez venho aqui para contar com a vossa ajuda. Estou gerando LMFC_Cotepe1704 com uma ECF ELGIN FIT 1E - ECF MFD. Quando executo o comando abaixo, está me retornando o erro anexo. ACBrECF.PafMF_LMFC_Cotepe1704(CDSDataIni.Value, CDSDataFin.Value, sCaminhoExecutavel + 'Arquivos\LMFC_Cotepe1704.txt'); Gostaria de saber onde é que estou falhando nesse procedimento. Grato Gilberto F. Rezende

Boa tarde Italo. Muito obrigado pela atenção. Revendo meu código seguindo suas orientações consegui resolver. Desculpem por postar o tópico novamente. Grato.

Bom dia senhores: Postei o tópico novamente porque queria anexar um texto a minha resposta e não encontrei uma opção para isso. Gentilmente gostaria de solicitar vossa ajuda para um caso que está ocorrendo. Assunto: MDF-e. Quado estou enviando o MDF-e está ocorrendo o seguinte evento: ------------------------------------------------------------------------------- Manifesto(s) não confirmado(s): 164-> Rejeição: Código do Município diverge da UF de descarga do MDF-e ------------------------------------------------------------------------------- Fico desde já grato se alguém puder me ajudar. Boa tarde para Todos. codigo delphi.txt

Italo O que vem a ser UF = PR -- Município = ABAPA na primeira imagem? ((( DESCONSIDERE ))) - não uso para gerar o MDF-e Grato

Olá Italo Jurisato Junior Obrigado pela resposta. Quanto ao município que você mencionou: São Carlos, na verdade é MONTES CLAROS - MG - 3143302, e este município pertencem realmente a MG. Grato.

Bom dia senhores: Gentilmente gostaria de solicitar vossa ajuda para um caso que está ocorrendo. Assunto: MDF-e. Quado estou enviando o MDF-e está ocorrendo o seguinte evento: ------------------------------------------------------------------------------- Manifesto(s) não confirmado(s): 164-> Rejeição: Código do Município diverge da UF de descarga do MDF-e ------------------------------------------------------------------------------- Fico desde já grato se alguém puder me ajudar. Bom dia para Todos. codigo delphi.txt

Valeu. Wislei de Brito Fernandes Muito obrigado pela dica.. Att. Gilberto F. Rezende.

Senhores. Boa tarde. Preciso muito de vossa ajuda. Estou com problema de envio do MDF-e. Está dando um erro dizendo que: ( Nenhum grupo de documentos foi informado (CT-e, CT, NF-e, NF, MDF-e) [ Município sem documentos: MARINGÁ] ). Segue arquivos anexos. Att. Gilberto F. Rezende a3.txt

Bom dia.. italojjr. Atualizei o meu ACBR e não encontrei um formato de DAMDFE em QUICK REPORT. Gostaria de saber se o DAMDFE que é gerado pelo QUICK REPORT tem um formato em arquivo, porque na pasta onde fica os relatórios só tem modelo do FASTREPORT. Segue anexo de onde fica os formatos do ACBR. Grato Gilberto.

Olá Italojjr.. Poderia me ajudar com outra informação pois na pasta de exemplo do ACBRMDF-e só tem relatórios para o FAST REPORT.... Teria no ACBRMDF-E formatos para outros geradores de relatórios... Grato Gilberto.

Bom dia Senhores. Mais uma vez venho pedir a vossa colaboração e ajuda. Quando vou fazer a ligação ACBrMDFeDAMDFEFR com o formato de relatório está dando erro. Segue anexo com demonstração do erro. Conto com vossa colaboração. Grato. Gilberto F. Rezende.

Bom dia senhores. Mais uma vez venho solicitar a vossa ajuda. Quando estou gerando o arquivo do MDF-e, os CT-e estão preenchendo as tags, mas as NF-e não estão sendo preenchidas. Já debuguei o programa e a rotina passa também pelas NF-e. Estou enviando anexo a tela do Sistema e Aquivo XML. Conto com vossa colaboração. Tenham todos um ótimo dia. Grato. Código DELLPHI. procedure TMFD.GerarMDFe(NumMDFe: String); var iQtde: Integer; qtUndTransp, qtUndCarga: Integer; begin with DM.ACBrMDFe.Manifestos.Add.MDFe do begin // // Dados de Identificação do MDF-e // with Ide do begin cUF := dm.tbConfiguracaoCODIGO_UF.AsInteger; //dm.tbUF_Percurso.First; UFIni := dm.iboFilialUF.AsString; UFFim := dm.iboFilialUF.AsString; // Percurso. if not dm.tbUF_Percurso.IsEmpty then begin with Ide.infPercurso.Add do begin UFIni := dm.iboFilialUF.AsString; UFFim := dm.iboFilialUF.AsString; dm.tbUF_Percurso.First; while not dm.tbUF_Percurso.Eof do begin UFPer := dm.tbUF_PercursoUF.AsString; // dm.tbUF_Percurso.Next; end; end; end; // TpcnTipoAmbiente = (taProducao, taHomologacao); case DM.tbConfiguracaoAMBIENTE.Value of 1:tpAmb := taProducao; 2:tpAmb := taHomologacao; end; // TMDFeTpEmitente = ( teTransportadora, teTranspCargaPropria ); case DM.tbMDFE_CorpoTIPOEMITENTE.Value of 1:tpEmit := teTransportadora; 2:tpEmit := teTranspCargaPropria; end; modelo := dm.tbConfiguracaoMODELO.Text; serie := dm.tbConfiguracaoSERIE.AsInteger; nMDF := DM.tbMDFE_CorpoNUMEROMDFE.AsInteger; cMDF := DM.tbMDFE_CorpoCODIGOMDFE.AsInteger; // Código Aleatório cDV := 0; // TMDFeModal = ( moRodoviario, moAereo, moAquaviario, moFerroviario ); case DM.tbMDFE_CorpoMODAL.Value of 1:modal := moRodoviario; 2:modal := moAereo; 3:modal := moAquaviario; 4:modal := moFerroviario; end; dhEmi := dm.tbMDFEDATA.AsDateTime; // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA); case DM.tbMDFE_CorpoTIPOEMISSAO.Value of 1:tpEmis := teNormal; 2:tpEmis := teContingencia; 3:tpEmis := teSCAN; 4:tpEmis := teDPEC; 5:tpEmis := teFSDA; end; // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA); case DM.tbMDFE_CorpoTIPOEMISSAO.Value of 1:tpEmis := teNormal; 2:tpEmis := teContingencia; 3:tpEmis := teSCAN; 4:tpEmis := teDPEC; 5:tpEmis := teFSDA; end; // TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco); case DM.tbMDFE_CorpoPROCESSOEMISSAO.Value of 1:procEmi := peAplicativoContribuinte; 2:procEmi := peAvulsaFisco; 3:procEmi := peAvulsaContribuinte; 4:procEmi := peContribuinteAplicativoFisco; end; verProc := DM.tbConfiguracaoVERSAO_PROCESSO.Value; // Carregamento. with Ide.infMunCarrega.Add do begin cMunCarrega := DM.tbConfiguracaoCODIGO_MUNICIPIO_CARREGAMENTO.AsInteger; xMunCarrega := DM.tbConfiguracaoMUNICIPIO_CARREGAMENTO.AsString; end; end; // // Dados do Emitente // with emit do begin CNPJ := DM.iboFilialCNPJ.Value; IE := DM.iboFilialIE.Value; xNome := DM.iboFilialRAZAOSOCIAL.Value; xFant := DM.iboFilialNOMEFANTASIA.Value; // Endereço do emitente. with enderEmit do begin xLgr := DM.iboFilialENDERECO.Value; nro := DM.iboFilialNUMEROENDERECO.Value; xCpl := DM.iboFilialCOMPLEMENTO.Value; xBairro := DM.iboFilialBAIRRO.Value; cMun := DM.iboFilialCODIGOCIDADE_RECEITAFEDERAL.AsInteger; xMun := DM.iboFilialCIDADE.Value; CEP := DM.iboFilialCEP.AsInteger; UF := DM.iboFilialUF.Value; fone := DM.FilterChars(DM.iboFilialFONECOMERCIAL.AsString, ['0'..'9']); email := DM.iboFilialEMAIL.Value; end; end; // Rodagem - Informação. with rodo do begin RNTRC := DM.tbMDFE_VeiculoRNTRC.AsString; CIOT := DM.tbMDFE_VeiculoCIOT.AsString; // Tração. with veicTracao do begin cInt := DM.tbMDFE_VeiculoCODIGO_INTERNO_VEICULO.AsString; placa := DM.tbMDFE_VeiculoPLACA.AsString; RENAVAM := DM.tbMDFE_VeiculoRENAVAN.AsString; tara := DM.tbMDFE_VeiculoTARA.AsInteger; capKG := DM.tbMDFE_VeiculoCAPACIDADE.AsInteger; capM3 := DM.tbMDFE_VeiculoCAPACIDADE_METRO_CUBICO.AsInteger; UF := dm.tbMDFE_VeiculoUF_VEICULO.AsString; // Condutor. with rodo.veicTracao.condutor.Add do begin xNome := DM.tbMDFE_CorpoCONDUTOR.AsString; CPF := DM.tbMDFE_CorpoCPF_CONDUTOR.AsString; end; // Carroceria. case DM.tbMDFE_VeiculoTIPO_CARROCERIA.Value of 1:tpCar := tcNaoAplicavel; 2:tpCar := tcFechada; 3:tpCar := tcGraneleira; 4:tpCar := tcPortaContainer; 5:tpCar := tcSider; end; // Rodado. case DM.tbMDFE_VeiculoTIPO_RODADO.Value of 1:tpRod := trTruck; 2:tpRod := trToco; 3:tpRod := trCavaloMecanico; 4:tpRod := trVAN; 5:tpRod := trUtilitario; 6:tpRod := trOutros; end; end; end; // Descarregamento. DM.tbMDFE_MunicipioDescarregamento.First; while not DM.tbMDFE_MunicipioDescarregamento.Eof do begin with infDoc do begin // Município de descarga. with infMunDescarga.Add do begin cMunDescarga := DM.tbMDFE_MunicipioDescarregamentoCODIGO_MUNICIPIO.Value; xMunDescarga := dm.tbMDFE_MunicipioDescarregamentoCIDADE.AsString; //----------------------------------------------------------------------------------------------------- // CTE. dm.tbMDFE_CTE.First; while not dm.tbMDFE_CTE.Eof do begin with infCTe.Add do begin chCTe := dm.tbMDFE_CTECHAVE_CTE.AsString; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); case DM.tbMDFE_CorpoUNIDADE_TRANSPORTE.Value of 1:tpUnidTransp := utRodoTracao; 2:tpUnidTransp := utRodoReboque; 3:tpUnidTransp := utNavio; 4:tpUnidTransp := utBalsa; 5:tpUnidTransp := utAeronave; 7:tpUnidTransp := utVagao; 8:tpUnidTransp := utOutros; end; idUnidTransp := 'CAMINHAO'; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := 'VOLUMES'; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with dm.tbMDFE_CTE.Next; end; //----------------------------------------------------------------------------------------------------- // NFE. dm.tbMDFE_NFE.First; while not dm.tbMDFE_NFE.Eof do begin with infNFe.Add do begin chNFe := dm.tbMDFE_NFECHAVE_NFE.AsString; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); case DM.tbMDFE_CorpoUNIDADE_TRANSPORTE.Value of 1:tpUnidTransp := utRodoTracao; 2:tpUnidTransp := utRodoReboque; 3:tpUnidTransp := utNavio; 4:tpUnidTransp := utBalsa; 5:tpUnidTransp := utAeronave; 7:tpUnidTransp := utVagao; 8:tpUnidTransp := utOutros; end; idUnidTransp := 'CAMINHAO'; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := 'VALUMES'; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with dm.tbMDFE_NFE.Next; end; end; end; DM.tbMDFE_MunicipioDescarregamento.Next; end; tot.qCTe := dm.tbMDFEQTDE_CTE.AsInteger; tot.qNFe := 1; //tot.qNFe := dm.tbMDFEQTDE_NFE.AsInteger; tot.vCarga := dm.tbMDFEVALOR_TOTAL_MERCADORIA.AsCurrency; // UnidMed = (uM3,uKG, uTON, uUNIDADE, uLITROS); tot.cUnid := uKG; tot.qCarga := dm.tbMDFEPESO_BRUTO_TRANSPORTADO.AsInteger; infAdic.infCpl := DM.tbConfiguracaoINFORMACAO_COMPLEMENTAR.AsString; infAdic.infAdFisco := ''; end; end; 41140810626914000116580010000000041000002356-mdfe.xml

Ok. Deu certo. Muito obrigado...

Senhores. Preciso muito de vossa ajuda. Quando envio o MDFE-e está ocorrendo o seguinte erro. Rejeição: Percurso informado inválido. Segue anexo Tela do sistema e arquivo xml gerado. Tenham uma ótima tarde. Grato. 41140810626914000116580010000000031000002359-mdfe.xml

Boa tarde Senhores. Quando vou Gerar e Enviar o MDFe está ocorrendo o seguinte erro. Content for element '{http://www.portalfiscal.inf.br/mdfe}veicTracao' is incomplete according to the DTD/Schema. Alguém já teve esse problema? Como foi resolvido esta questão. Grato. Segue meu código. with DM.ACBrMDFe.Manifestos.Add.MDFe do begin // // Dados de Identificação do MDF-e // with Ide do begin cUF := dm.tbConfiguracaoCODIGO_UF.AsInteger; // TpcnTipoAmbiente = (taProducao, taHomologacao); case DM.tbConfiguracaoAMBIENTE.Value of 1:tpAmb := taHomologacao; 2:tpAmb := taProducao; end; // TMDFeTpEmitente = ( teTransportadora, teTranspCargaPropria ); case DM.tbMDFE_CorpoTIPOEMITENTE.Value of 1:tpEmit := teTransportadora; 2:tpEmit := teTranspCargaPropria; end; modelo := dm.tbConfiguracaoMODELO.Text; serie := dm.tbConfiguracaoSERIE.AsInteger; nMDF := DM.tbMDFE_CorpoNUMEROMDFE.AsInteger; cMDF := DM.tbMDFE_CorpoCODIGOMDFE.AsInteger; // Código Aleatório cDV := 0; // TMDFeModal = ( moRodoviario, moAereo, moAquaviario, moFerroviario ); case DM.tbMDFE_CorpoMODAL.Value of 1:modal := moRodoviario; 2:modal := moAereo; 3:modal := moAquaviario; 4:modal := moFerroviario; end; dhEmi := dm.tbMDFEDATA.AsDateTime; // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA); case DM.tbMDFE_CorpoTIPOEMISSAO.Value of 1:tpEmis := teNormal; 2:tpEmis := teContingencia; 3:tpEmis := teSCAN; 4:tpEmis := teDPEC; 5:tpEmis := teFSDA; end; // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA); case DM.tbMDFE_CorpoTIPOEMISSAO.Value of 1:tpEmis := teNormal; 2:tpEmis := teContingencia; 3:tpEmis := teSCAN; 4:tpEmis := teDPEC; 5:tpEmis := teFSDA; end; // TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco); case DM.tbMDFE_CorpoPROCESSOEMISSAO.Value of 1:procEmi := peAplicativoContribuinte; 2:procEmi := peAvulsaFisco; 3:procEmi := peAvulsaContribuinte; 4:procEmi := peContribuinteAplicativoFisco; end; verProc := DM.tbConfiguracaoVERSAO_PROCESSO.Value; UFIni := DM.tbConfiguracaoUF.Value; UFFim := DM.tbConfiguracaoUF_DESCARREGAMENTO.Value; // Carregamento. with Ide.infMunCarrega.Add do begin cMunCarrega := DM.tbConfiguracaoCODIGO_MUNICIPIO_CARREGAMENTO.Value; xMunCarrega := DM.tbConfiguracaoMUNICIPIO_CARREGAMENTO.Value; end; // Percurso. with Ide.infPercurso.Add do begin dm.tbUF_Percurso.First; while not dm.tbUF_Percurso.Eof do begin UFPer := dm.tbUF_PercursoUF.AsString; dm.tbUF_Percurso.Next; end; end; end; // // Dados do Emitente // with emit do begin CNPJ := DM.iboFilialCNPJ.Value; IE := DM.iboFilialIE.Value; xNome := DM.iboFilialRAZAOSOCIAL.Value; xFant := DM.iboFilialNOMEFANTASIA.Value; // Endereço do emitente. with enderEmit do begin xLgr := DM.iboFilialENDERECO.Value; nro := DM.iboFilialNUMEROENDERECO.Value; xCpl := DM.iboFilialCOMPLEMENTO.Value; xBairro := DM.iboFilialBAIRRO.Value; cMun := DM.iboFilialCODIGOCIDADE_RECEITAFEDERAL.AsInteger; xMun := DM.iboFilialCIDADE.Value; CEP := DM.iboFilialCEP.AsInteger; UF := DM.iboFilialUF.Value; fone := DM.FilterChars(DM.iboFilialFONECOMERCIAL.AsString, ['0'..'9']); email := DM.iboFilialEMAIL.Value; end; end; // Rodagem - Informação. with rodo do begin RNTRC := DM.tbMDFE_VeiculoRNTRC.AsString; CIOT := DM.tbMDFE_VeiculoCIOT.AsString; // Tração. with veicTracao do begin cInt := DM.tbMDFE_VeiculoCODIGO_INTERNO_VEICULO.AsString; placa := DM.tbMDFE_VeiculoPLACA.AsString; RENAVAM := DM.tbMDFE_VeiculoRENAVAN.AsString; tara := DM.tbMDFE_VeiculoTARA.AsInteger; capKG := DM.tbMDFE_VeiculoCAPACIDADE.AsInteger; capM3 := DM.tbMDFE_VeiculoCAPACIDADE_METRO_CUBICO.AsInteger; UF := dm.tbMDFE_VeiculoUF_VEICULO.AsString; // Condutor. with rodo.veicTracao.condutor.Add do begin xNome := DM.tbMDFE_CorpoCONDUTOR.AsString; CPF := DM.tbMDFE_CorpoCPF_CONDUTOR.AsString; end; // Carroceria. case DM.tbMDFE_VeiculoTIPO_CARROCERIA.Value of 1:tpCar := tcNaoAplicavel; 2:tpCar := tcFechada; 3:tpCar := tcGraneleira; 4:tpCar := tcPortaContainer; 5:tpCar := tcSider; end; // Rodado. case DM.tbMDFE_VeiculoTIPO_RODADO.Value of 1:tpRod := trTruck; 2:tpRod := trToco; 3:tpRod := trCavaloMecanico; 4:tpRod := trVAN; 5:tpRod := trUtilitario; 6:tpRod := trOutros; end; end; end; // Descarregamento. DM.tbMDFE_MunicipioDescarregamento.First; while not DM.tbMDFE_MunicipioDescarregamento.Eof do begin with infDoc do begin // Município de descarga. with infMunDescarga.Add do begin cMunDescarga := DM.tbMDFE_MunicipioDescarregamentoCODIGO_MUNICIPIO.Value; xMunDescarga := dm.tbMDFE_MunicipioDescarregamentoCIDADE.AsString; //----------------------------------------------------------------------------------------------------- // CTE. dm.tbMDFE_CTE.First; while not dm.tbMDFE_CTE.Eof do begin with infCTe.Add do begin chCTe := dm.tbMDFE_CTECHAVE_CTE.AsString; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); case DM.tbMDFE_CorpoUNIDADE_TRANSPORTE.Value of 1:tpUnidTransp := utRodoTracao; 2:tpUnidTransp := utRodoReboque; 3:tpUnidTransp := utNavio; 4:tpUnidTransp := utBalsa; 5:tpUnidTransp := utAeronave; 7:tpUnidTransp := utVagao; 8:tpUnidTransp := utOutros; end; idUnidTransp := 'CAMINHAO'; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := 'VOLUMES'; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with dm.tbMDFE_CTE.Next; end; //----------------------------------------------------------------------------------------------------- // NFE. dm.tbMDFE_NFE.First; while not dm.tbMDFE_NFE.Eof do begin with infNFe.Add do begin chNFe := dm.tbMDFE_NFECHAVE_NFE.AsString; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); case DM.tbMDFE_CorpoUNIDADE_TRANSPORTE.Value of 1:tpUnidTransp := utRodoTracao; 2:tpUnidTransp := utRodoReboque; 3:tpUnidTransp := utNavio; 4:tpUnidTransp := utBalsa; 5:tpUnidTransp := utAeronave; 7:tpUnidTransp := utVagao; 8:tpUnidTransp := utOutros; end; idUnidTransp := 'CAMINHAO'; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := 'VALUMES'; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with dm.tbMDFE_NFE.Next; end; end; end; DM.tbMDFE_MunicipioDescarregamento.Next; end; tot.qCTe := dm.tbMDFEQTDE_CTE.AsInteger; tot.qNF := dm.tbMDFEQTDE_NFE.AsInteger; tot.vCarga := dm.tbMDFEVALOR_TOTAL_MERCADORIA.AsCurrency; // UnidMed = (uM3,uKG, uTON, uUNIDADE, uLITROS); tot.cUnid := uKG; tot.qCarga := dm.tbMDFEPESO_BRUTO_TRANSPORTADO.AsInteger; infAdic.infCpl := DM.tbConfiguracaoINFORMACAO_COMPLEMENTAR.AsString; infAdic.infAdFisco := ''; end;

Boa tarde. Não entendi sobre as URLs em questão.

Bom dia senhores. Solicito vossa ajuda. Quando mando uma NFC-e para o estado do MATO GROSSO, está dando a mensagem: URL não disponível para o estado. O que poderia estar acontencendo? Aguardo resposta de ajuda. Obrigado.

Bom dia senhores: Gostaria de saber como recuperar todas as informações da redução Z pelo componente ACBR. Grato.