Ir para conteúdo
  • Cadastre-se

dev botao
  • Este tópico foi criado há 3343 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Olá, estou com um pequeno problema que não consigo corrigir, veja só:Estar gerando um espaço entre as tag

<InfNFe> e <chNFe>

 

- <infDoc>
- <infMunDescarga>
  <cMunDescarga>2102325</cMunDescarga>
  <xMunDescarga>BURITICUPU</xMunDescarga>
- <infNFe>
 
  <chNFe>21150305517740000113550010000257341000257345</chNFe>
- <infUnidTransp>

 

Observação:Ainda não atualizei para trunk2

Parte do fonte:

               TabGlobal.CSDESCAR_CT.First;
               if not TabGlobal.CSDESCAR_CT.IsEmpty then
               begin

                  while not TabGlobal.CSDESCAR_CT.Eof do
                  begin

                     with infCTe.Add do
                     begin
                        chCTe := TabGlobal.CSDESCAR_CT.fieldByName('chcte2').AsString;
                                                                    
                          // Informações das Unidades de Transporte (Carreta/Reboque/Vagão)
                          with infUnidTransp.Add do
                          begin
                          //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros );
                          if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='1' then
                          tpUnidTransp := utRodoTracao
                          else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='2' then
                          tpUnidTransp := utRodoReboque
                          else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='3' then
                          tpUnidTransp := utNavio
                          else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='4' then
                          tpUnidTransp := utBalsa
                          else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='5' then
                          tpUnidTransp := utAeronave
                          else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='6' then
                          tpUnidTransp := utVagao
                          else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='7' then
                          tpUnidTransp := utOutros;
                          idUnidTransp := DDADOS_UNID_TRANSP.DUNIDTRANSP.Conteudo;  //'ABC1234'; // informar a placa se rodoviário


//                             DDADOS_CT_LACRE_TRAN.First;
                             while not DDADOS_CT_LACRE_TRAN.Eof do
                             begin

                              with lacUnidTransp.Add do
                               begin
                                nLacre :=DDADOS_CT_LACRE_TRAN.NLACRE.Conteudo;   //'123';
                               end;
                             DDADOS_CT_LACRE_TRAN.Next;
                             end;

                            // Informações das Unidades de carga (Containeres/ULD/Outros)
                           with infUnidCarga.Add do
                           begin
                            if DDADOS_UNID_CARGA.TPUNIDCARGA.Conteudo='1' then
                            tpUnidCarga := ucContainer
                            else if DDADOS_UNID_CARGA.TPUNIDCARGA.Conteudo='2' then
                            tpUnidCarga := ucULD
                            else if DDADOS_UNID_CARGA.TPUNIDCARGA.Conteudo='3' then
                            tpUnidCarga := ucPallet
                            else if DDADOS_UNID_CARGA.TPUNIDCARGA.Conteudo='4' then
                            tpUnidCarga := ucOutros;
                            idUnidCarga :=DDADOS_UNID_CARGA.DUNIDCARGA.Conteudo;   //'AB45'; // informar o numero da unidade da carga

//                                   DDADOS_CT_LACRE_CARGA.First;
                                   while not DDADOS_CT_LACRE_CARGA.Eof do
                                   begin

                                    with lacUnidCarga.Add do
                                    begin
                                    nLacre := DDADOS_CT_LACRE_CARGA.NLACRE.Conteudo;  //'123';
                                    end;

                                   DDADOS_CT_LACRE_CARGA.Next;
                                   end;

                            qtdRat := DDADOS_UNID_CARGA.QUANT_RATEADA.Conteudo;
                           end;
                           qtdRat := DDADOS_UNID_CARGA.QUANT_RATEADA.Conteudo;
                        end;

                     end; // fim do with
                     TabGlobal.CSDESCAR_CT.Next;
                  end;

 

 

Obrigado,

Leão

 

 

 
 
 
 

21150908512503000158580010000000011000000015-mdfe.xml

  • Consultores
Postado

Boa tarde Leão,

Não sei qual é o software que você esta usando para visualizar o XML, mas não existe nenhum linha em branco em lugar nenhum desse XML.

Ele só não esta assinado e protocolado e contem o valor 1 informado de forma errada a TAG qMDFe conforme eu já relatei em uma outra postagem sua.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

Olá Italo, mais uma vez agradeço, atualizei para trunk2, e estou corrigindo detalhes, mas creio que foi corrigido a questão do qMDFe.

Obrigado

Leão

  • Este tópico foi criado há 3343 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.