Gerando Xml

[Carlos Júnior]

Em versões anteriores, quando eu rodava o código a baixo, o xml era gerado apenas uma vez:

    if Trim(edNroProtocolo.Text) = '' then
     begin
      ACBrMDFe1.Manifestos.Clear;
      GerarMDFe(edtNumMDFe.Text);
      ACBrMDFe1.Manifestos.Items[0].GravarXML;
     end

Agora, toda vez que rodo é criado um novo xml com uma nova chave de acesso...

Qual seria o procedimento correto para gerar apenas uma chave de acesso?

[Juliomar Marchetti]

Não postou o que faz no GerarMDFe(

é lá que ocorre , mas eu chuto que tu não informa o cMDF ou informa o mesmo da nMDF

[Carlos Júnior]

   Ide.modelo  := '58';
   Ide.serie   := DMTransportadora.CDSMDFSERIE.AsInteger;
   Ide.nMDF    := StrToIntDef(NumMDFe, 0);
   Ide.cMDF    := 0;  // Código Aleatório

[Carlos Júnior]

Eu passo o numero MDFe, e sempre que mando gravar o XML é criado um novo, inclusivo na rotina de enviar...

[Italo Giurizzato Junior]

Boa noite Carlos,

Por favor atualize todos os fontes de todas as pastas, depois veja o programa exemplo.

Nele esta assim:

    // TMDFeTpEmitente = ( teTransportadora, teTranspCargaPropria );
    Ide.tpEmit  := teTransportadora;
    Ide.modelo  := '58';
    Ide.serie   := 1;
    Ide.nMDF    := StrToIntDef(NumDFe, 0);
    Ide.cMDF    := GerarCodigoDFe(Ide.nMDF);

Leia também o artigo do link a seguir:

Apesar dele se referir a NF-e, mas é exatamente isso que esta ocorrendo com o seu MDF-e.

Leia também esse outro:

 

[Juliomar Marchetti]

Em 10/06/2020 at 16:03, Carlos Júnior disse:

Eu passo o numero MDFe, e sempre que mando gravar o XML é criado um novo, inclusivo na rotina de enviar...

Exatamente pois no manual diz que não é pra usar o mesmo e isso passou a ser validado portanto ao tentar novamente

vai existir uma nova chave. tem que gerar e gravar essa informação no banco para informar caso precise refazer o xml