Erro Nf Produtor Referenciada

[Ademir P. Voigt]

Boa Tarde!

Implementei a parte de referenciar NF de produtor Rural  no nosso sistema, porem, quando emito a NFe recebo o erro abaixo. Se comentar o código a nota sai sem problemas.

 

 

Código Delphi:

    if MyQrNFeRefNFPnNF.AsInteger > 0 then

    begin

      with Ide.NFref.Add do

      begin

        RefNFP.cUF := MyQrNFeRefNFPcUF.AsInteger; // |

        RefNFP.AAMM := MyQrNFeRefNFPAAMM.AsString; // |

        RefNFP.CNPJCPF := MyQrNFeRefNFPCNPJCPF.AsString; // |

        RefNFP.IE := MyQrNFeRefNFPIE.AsString; // |- NF produtor Rural

        RefNFP.modelo := MyQrNFeRefNFPmodelo.AsString; // |

        RefNFP.serie := MyQrNFeRefNFPserie.AsInteger; // |

        RefNFP.nNF := MyQrNFeRefNFPnNF.AsInteger; // |

      end;

    end;

 

XML:

- <NFref>
- <refNFP>
  <cUF>43</cUF> 
  <AAMM>1503</AAMM> 
  <CPF>93982186072</CPF> 
  <IE>0330020595</IE> 
  <mod>15</mod> 
  <serie>1</serie> 
  <nNF>25</nNF> 
  </refNFP>
  </NFref>

No XML aparentemente está ok.

Editado 31 Março, 2015 por CertaSolucoes

[Ademir P. Voigt]

Bom dia!

Caso alguém puder me ajudar fico grato.

Ainda não consegui resolver a situação.

[Italo Giurizzato Junior]

Bom dia,

 

Em qual linha o erro segundo a imagem ocorre?

[Ademir P. Voigt]

Coloquei um showmessage após cada uma das linhas, porem, não ocorre erro nenhum dentro do bloco:

  with Ide.NFref.Add do

      begin 

     end;

 

Somente após.

Se comentar toda a instrução a NFe emite sem problemas.

Editado 7 Abril, 2015 por CertaSolucoes

[Ademir P. Voigt]

Bom dia!

Estou de mãos atadas.

Será esse o primeiro caso que eu posto q vai ficar sem solução no forum?

 

Alguém poderia referenciar uma nota de produtor e tentar simular o erro?

[Régys Silveira]

Este erro é algo nos dados lidos do banco de dados, aparentemente algo que você está lendo e está tentando converter para booleano, no que você passou não consegui ver nada que esteja fazendo isso, então das duas uma, ou alguma rotina interna do banco está fazendo ou o erro acontece em outro lugar que não seja este da nota referenciada.

[Ademir P. Voigt]

Regys, o erro é na nf referenciada... se eu comentar o trecho, da pra emitir sem problemas.

O XML está recebendo os dados, e eu não estou convertendo nada:

O que for String está vindo como string

O que for Integer está vindo como integer.

 

BANCO DE DADOS MYSQL:

`RefNFPcUF` int(11) DEFAULT NULL COMMENT 'ref nota fiscal de produtor',

  `RefNFPAAMM` varchar(5) DEFAULT NULL,

  `RefNFPCNPJCPF` varchar(20) DEFAULT NULL,

  `RefNFPIE` varchar(20) DEFAULT NULL,

  `RefNFPmodelo` varchar(20) DEFAULT NULL,

  `RefNFPserie` int(11) DEFAULT NULL,

  `RefNFPnNF` int(11) DEFAULT NULL,

 

DELPHI:

  if MyQrNFeRefNFPnNF.AsInteger > 0 then

    begin

      with Ide.NFref.Add do

      begin

        RefNFP.cUF := MyQrNFeRefNFPcUF.AsInteger; // |

        RefNFP.AAMM := MyQrNFeRefNFPAAMM.AsString; // |

        RefNFP.CNPJCPF := MyQrNFeRefNFPCNPJCPF.AsString; // |

        RefNFP.IE := MyQrNFeRefNFPIE.AsString; // |- NF produtor Rural

        RefNFP.modelo := MyQrNFeRefNFPmodelo.AsString; // |

        RefNFP.serie := MyQrNFeRefNFPserie.AsInteger; // |

        RefNFP.nNF := MyQrNFeRefNFPnNF.AsInteger; // |

      end;

    end;

 

XML:

- <NFref>

- <refNFP>

<cUF>43</cUF>

<AAMM>1503</AAMM>

<CPF>93982186072</CPF>

<IE>0330020595</IE>

<mod>15</mod>

<serie>1</serie>

<nNF>25</nNF>

</refNFP>

</NFref>

[Ademir P. Voigt]

Em modo debug, somente quando tiver nf de produto referenciada, está dando esse erro nessa linha:

 

  ACBrNFe1.Enviar(vNumLote, True);

 

Esse erro de conversão para booleano se refere ao True dessa linha.

 

Quando não tiver nf de produtor referenciada não trava o debug nessa linha.

[Ademir P. Voigt]

O problema está nesse cara aqui:

RefNFP.modelo.

O ACBR espera uma string, mas o campo na verdade é integer.

4=NF de Produtor; 1=NF (v2.0)

 

E no teste coloquei escrito uma string. 

Para resolver, criei um radiogroup e tudo certo.

[André Ferreira de Moraes]

Não entendi sua solução, pois vc estava passando como string. Vc começou a passar como inteiro e foi aceito?
 

RefNFP.modelo := MyQrNFeRefNFPmodelo.AsString;