Devolução De Cupom Referenciado Não Salva.

[Tercio Lins]

Boa Tarde.

 

Vou relatar um erro na devolução de saída.

 

O interessante é que só ocorre quando é referenciado um Cupom Fiscal.

 

'Could not convert variant of type (string) into type(Boolean)'

 

Prestem atenção que a mensagem se refere a um campo boolean.

Porém o erro ocorre na parte que trata campo do tipo integer.

 

procedure TGerador.wCampo(

 

      tcInt : begin

                  // Tipo Inteiro

                  ConteudoProcessado := IntToStr(valor);

                  EstaVazio := (valor = 0) and (ocorrencias = 0);

                  if min = Limite then

                  begin

                    ConteudoProcessado := StringOfChar('0', 60) + ConteudoProcessado;

                    ConteudoProcessado := copy(ConteudoProcessado, length(ConteudoProcessado) - Limite + 1, Limite);

                  end;

              end;

 

Fiz o seguinte teste: Montei a NFe com a finalidade=4 e não referenciei o cupom. A NFe foi aprovada.

Desde já agradeço.

 

 

[Tercio Lins]

Boa noite.

 

Atualizei os componentes pelo SVN e ainda continua com o mesmo erro. 

 

Alguém saberia dizer o que ocorre?

 

Grato.

[Ricardo Miquinioty]

Boa noite, eu uso o ACBrNFeMonitor e funciona a Devolução de Entrada referenciando o Cupom Fiscal, se não referenciar também Autoriza(como você mesmo disse), não posso te ajudar porquê não programo em Delphi, mas estou anexando uma NF Autorizada em Homologação para você ver que funciona no ACBrNFeMonitor.

 

Sds,

Ricardo.

35150300144351000176550000000400261458764109-nfe.xml

[Tercio Lins]

Obrigado Ricardo.

Estou pensando justamente em usar o ACBrNFeMonitor para fazer essas devoluções,

até resolver esse problema.

[Tercio Lins]

Boa noite à todos.

 

Resolvi o problema.

 

Depurando e verificando o conteúdo do "valor", verifiquei que o erro acontecia quando o conteúdo do número do ecf era enviado.

 

eu estava colocando o número do fabricante(BE091310100011******), e não o número registrado na sefaz(004).

 

Grato.