UF nao pode ser vaziz

[joveci guedes de almeida]

Bom dia..

segue a baixo a rotina ja depurei e nao estou conseguindo resolver o erro pq esta dando uf nao pode ser vazia..

quando estou tentando fazer o encerramento da MDFe

blz galera ..

with ACBrMDFe1.EventoMDFe.Evento.Add do
        begin
          infEvento.chMDFe   := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);
          infEvento.CNPJ     := query3.fieldbyname('CNPJ').asstring;
          infEvento.dhEvento := now;
          infEvento.tpEvento   := teEncerramento;
          infEvento.nSeqEvento := 1;
          infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt;
          infEvento.detEvento.dtEnc := Date;
          infEvento.detEvento.cUF   := StrToInt(QLancamanifesto.fieldbyname('IBGE_ORIGEM').asstring) ;
          infEvento.detEvento.cMun  := StrToInt(QLancamanifesto.fieldbyname('COD_MUNICIPIO_IBGE_ORIGEM').asstring);

          //infEvento.detEvento.cUF   := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga),1,2));
          //infEvento.detEvento.cMun  := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga;

        end;

        ACBrMDFe1.EnviarEvento( 1 ); // 1 = Numero do Lote

 

[Italo Giurizzato Junior]

Bom dia Joveci,

Favor configurar o componente para salvar o arquivo Soap.

Configuracoes.WebServices.Salvar := True;

Faça um novo teste e anexa os XMLs gerados, para que possamos analisar.

[joveci guedes de almeida]

Cinsegui tesolver

[Italo Giurizzato Junior]

Bom dia Joveci,

Seria interessante você informar qual foi a alteração que você fez para que o problema fosse resolvido, assim se algum tiver um problema parecido poderá aqui encontrar a solução.

[joveci guedes de almeida]

Bom dia ...

No meu caso a UF estava vazia pq eu esqueci de colocar a TAG    UF do meu estado que e Alagoas

with ACBrMDFe1.Manifestos.Add.MDFe do

  begin

   Ide.cUF := 27; ----> coloquei aqui o codigo do meu estado como eu so trabalho com cliente daqui coloquei direto o codigo se futuramente  aparacer cliente de outros estados

ai eu vou buscar na minha tabela.

   Ide.tpEmit  :=  teTransportadora ; // QLancamanifesto.fieldbyname('codtranspmanifesto').AsString ;
   Ide.modelo  := '58';
   Ide.serie   := 1;
   Ide.nMDF    := StrToInt(QLancamanifestoCODIGOMANIFESTO.AsString);   //StrToIntDef(NumMDFe, 0);
   Ide.cMDF    := 1;  // Código Aleatório

 

 

 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.