Gerando 2 xml

[nildglan]

Pessoal estou fazendo dessa forma 

 

                     if EnviarNFCeOff then
                          begin
                              Ide.tpEmis    := teOffLine;
                          end
                          else
                          begin

                               if not InternetGetConnectedState(@Flags, 0) then
                                 Ide.tpEmis    := teOffLine
                               else
                                  Ide.tpEmis    := TpcnTipoEmissao(Configuracao.Geral.FormaEmissao);

                                if Ide.tpEmis   = teOffLine then
                                  FrmAreaPrincipal.txtInfomacao.Lines.Add('Tipo emissão: Contingência');

                         end;

 

e está gerando dois xml na minha pasta porque?

 

 

[Amarildo de Matos]

boa tarde.. @nildglan

 

Faça um debug no programa e fique acompanhando na pasta em que hora, que ele gera o segundo xml.

outra coisa..comente a linha que esta gerando o xml, para ver se ele vai gerar somente um xml. talvez tu esteja

fazendo esse comando em alguma parte do programa.

 

[Sérgio Assunção]

@nildglan o problema não esta nesse fragmento de código. Revise a sua rotina, pois o xml não é gerado com o mesmo nome (nem é possível numa mesma pasta), você no mínimo deve estar incrementando o número do cupom e possuir mais de um comando para a geração do xml.

[nildglan]

veja meu procedimento e como eu chamo

...

Moderação: Editado

 

Editado 1 Dezembro, 2018 por Sérgio Assunção
Conteúdo muito extenso.

[Sérgio Assunção]

Por favor não cole o conteúdo dessa forma, anexe o arquivo, pois a postagem fica extensa e dificulta qualquer tipo ajuda.

[nildglan]

esse procedimento aqui está gravando dois  ACBrNFe.NotasFiscais.GravarXML baixo de   else
                              begin
                                  Application.ProcessMessages;
                                  StatusPrincipal('Validando e assinando NFCe...',rAviso);
                                  FrmAreaPrincipal.txtInfomacao.Lines.Add('Validando e assinando NFCe.');
                                  SetStatusNFCe(0,sCupomEnviarNFce,sStatusNFce); // enviada

 

Codigo.txt

[Amarildo de Matos]

olha. eu nao trabalho com essa linguaguem, eu uso mais o acbrmonitorplus.. 

entao o que vou falar é chute..

essa funçao 

   GerarNFCe(bComando,0,iNumeroNFCe,sCupomEnviarNFce);

tem em dois lugares..

    da uma olhada se nao é isso?

 

[Sérgio Assunção]

@nildglan
Você está gerando o XML dentro do try e também dentro do except. Imagino que aí é que esta o problema.

[nildglan]

não é isso eu removir do exception e continua gerando dois, e to debugando e ta indo somente um vez para GerarNFCe agora quando chega nesse procedimento aqui ACBrNFe.NotasFiscais.GravarXML; ele gera os dois

 

00991200000000000000650000000000001076922530-nfe.xml

15181217543691000172650010000012469000012467-nfe.xml

[Amarildo de Matos]

boa tarde.. faça o seguinte:

na linha onde gera o xml.. na proxima linha faz dar uma pausa, e va la no diretorio, e ve o que ele ta fazendo.

voce tem de mandar tambem os logs, pois no log, aparece tudo o que esta acontecendo.

[Amarildo de Matos]

bom dia.. Nildglan.. consegui resolver o seu problema?

[nildglan]

sim resolvir onte a noite muito obrigado, eu tirei esse  ACBrNFe.NotasFiscais.GravarXML da contigencia deixei só no Gerarxml que fiz

[Amarildo de Matos]

bom dia..opa..bacana..que otimo que resolveu.. muito obrigado pelo retorno.