quando tento emitir nfce em offline, quando chega ACBrNFe.NotasFiscais.GerarNFe; da erro : is not valid integer value

[Wanderson_CWFSistemas]

ola pessoal... quando esta para fechar em modo offline... tags tudo ok e tal... quando passa para ACBrNFe.NotasFiscais.GerarNFe; entao vem o erro: is not valid integer value???

pq sera isso ? 

 

      Ide.cNF := StrToInt(NumNFe)+1;                                                
      Ide.natOp := 'VENDA';
      Ide.indPag := ipVista;
      Ide.modelo := 65;
      Ide.serie := dados.qryTerminalSERIE.AsInteger;
      Ide.nNF := StrToInt(NumNFe);
      Ide.dEmi := now;
      // Ide.dSaiEnt := now;
      // Ide.hSaiEnt := now;
      Ide.tpNF := tnSaida;
      if TipoEmissao = 'ON' then
        Ide.tpEmis := TpcnTipoEmissao(0);
      if TipoEmissao = 'OFF' then
      begin
        Ide.tpEmis := TpcnTipoEmissao(9);
        Ide.xJust := 'Problema de conexão Internet';
        Ide.dhCont := now;
     

dipo emissao esta certo   Ide.tpEmis := TpcnTipoEmissao(9);  pega o ID tudo ok 

 

obrigado 

[rsmuller9]

Existe alguma propriedade que o valor é inteiro provavelmente, e o valor passado pode ser null ou não inteiro. Você precisa debugar pra ver de qual valor se trata para poder talvez colocar um if , ou caso seja um campo obrigatorio, exigir que esse campo tenha valor

[BigWings]

1 hora atrás, Ensabanurh Constantines disse:

        Ide.tpEmis := TpcnTipoEmissao(9);

Está errado isso, não existe índice 9 para esse enumerado.

Faça:

Ide.tpEmis := teOffline;

ou

Ide.tpEmis := StrToTpEmis(ok, '9');

[Wanderson_CWFSistemas]

46 minutos atrás, BigWings disse:

Está errado isso, não existe índice 9 para esse enumerado.

Faça:

Ide.tpEmis := teOffline;

ou

Ide.tpEmis := StrToTpEmis(ok, '9');

justamente... obrigado ! agora deu certinho. Valeu meu Caro.

[BigWings]

Obrigado por reportar.

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