infCte.Add

[Marcos Gerene]

Bom dia a todos,

Estou com um problema para adicionar conhecimentos ao MDF-e.

   FrmMDFe.QryCidades.First;
   while not FrmMDFe.QryCidades.Eof do
      begin
      with infDoc.infMunDescarga.Add do
         begin
         cMunDescarga := FrmMDFe.QryCidades.FieldByName('CID_IBGE').AsInteger;
         xMunDescarga := FrmMDFe.QryCidades.FieldByName('CIDADE').AsString;

         Query.Close;
         Query.ParamByName('CID_IBGE').AsString := FrmMDFe.QryCidades.FieldByName('CID_IBGE').AsString;
         Query.Open; Query.FetchAll; Query.First;
         while not Query.Eof do
            begin
            if ( Copy(Query.FieldByName('PROTOCOLO').AsString,21,2) = '57' ) then
               begin
               with infCTe.Add do
                  begin
                  chCTe       := Query.FieldByName('PROTOCOLO').AsString;
                  SegCodBarra := '';
                  end;
               end
            else
               with infNFe.Add do    
                  begin
                  chNFe       := Query.FieldByName('PROTOCOLO').AsString;
                  SegCodBarra := '';
                  end;
            Query.Next;
            end;
         end;
      FrmMDFe.QryCidades.Next;
      end;

 

O meu código adiciona tanto CT-e quanto NF-e, se eu dou um showmessage em infCTe.Count vem a quantidade de CT-e adicionadas,

porém no MDF-e vem assim:

 

<infMunDescarga><cMunDescarga>3106200</cMunDescarga><xMunDescarga>BELO HORIZONTE</xMunDescarga></infMunDescarga>

 

Fiz uma breve pesquisa e aqui no forum li algo relacionado a não poder "mesclar" tipos diferentes de documentos, então eu barrei o "with infNfe.Add do"

para adicionar somente os conhecimentos e ver se era esse mesmo o problema, porém não obtive sucesso.

 

PS: Atualmente uso o Trunk (1) e não posso migrar ainda para o trunk2, pois na ultima tentativa de migrar tive problemas com o NFS-e que ainda não estava "pronto" =/

Bom dia novamente,

já encontrei a solução, está relacionada ao Ide.tpEmit, quando for "teTranspCargaPropria" só serão adicionados CT-es,

quando for "teTransportadora" somente os CT-es.

[Italo Giurizzato Junior]

Bom dia Marcos,

O que determina se você vai ADD CT-e ou NF-e ao MDF-e é o Tipo de Emitente e não o modelo do documento fiscal que você esta lendo.

Um MDF-e só pode possuir CT-e ou NF-e.

Segundo a Nota Técnica 2013/004 de Outubro/2013 - página 93 temos o campo tpEmit - Tipo do Emitente.

Esse campo vai receber os valores 1 = Prestador de Serviço de Transporte (transportadora - emitente de CT-e) ou 2 = Transportador de Carga Própria (emitente de NF-e)

Na página 96 temos o campo #48 infCTe - Conhecimentos de Transporte - usar este grupo quando for prestador de serviço de transporte

Na página 98 temos o campo #81 infNFe - Nota Fiscal Eletrônica

O componente vai ADD a chave do CT-e ou da NF-e mediante o valor de tpEmit.

Você tem que parametrizar a sua aplicação para que se ela for usada por uma transportadora o tpEmit tem que valer 1 e só aceitar chaves de CT-e para serem ADD ao MDF-e.

Por outro lado se for utilizada por uma empresa que emite NF-e realiza o transporte de sua própria carga o valor de tpEmit tem que ser 2 e só aceitar chaves de NF-e para serem ADD ao MDF-e.