Erro Ao Utilizar O Comando Efetuapagamentonaofiscal

[MaiconBR]

Boa tarde Senhores.

 

Estou encontrando um erro quando tento efetuar uma determinada operação.

 

No caso quando vou utilizar a função EfetuaPagamentoNaoFiscal, para suprimento e sangria,

Estou obtendo os seguintes retornos:

 

Quando ECF Epson: "Erro: 0E19 - Comando não permitido em operações não-fiscais para movimento de monetário."

 

Quando ECF Sweda: "Erro (0058) Comando ou operação inválida!"

 

Quando ECF Daruma: "Comprovante NÃO Fiscal inválido ou não programado Erro estendido (138 -> Não pode utilizar SANGRIA ou SUPRIMENTO)"

 

1 - Ocorre este erro quando utilizo um totalizador não fiscal "já cadastrado no ECF" os totalizadores que veem de fabrica.

 

2 - Quando utilizo Bematech, não ocorre erro algum.

 

3 - Se eu cadastrar um totalizador não fiscal, e efetuar o procedimento pra ele não apresenta erro, independente do ECF.

 

Segue parte do código:

 

sCodCNF : String;

sCodFormaPagamento : String;

dValorPago : Double;

 

        ECF.AbreNaoFiscal();

        ECF.RegistraItemNaoFiscal(sCodCNF,dValorPago);

        ECF.SubtotalizaNaoFiscal();

        ECF.EfetuaPagamentoNaoFiscal(sCodFormaPagamento,dValorPago); < Neste ponto gera exceção

        ECF.FechaNaoFiscal();

 

 

Alguém tem alguma ideia do que pode ser?

 

Obrigado desde já!

 

 

[André Ferreira de Moraes]

Para Sangria e Suprimento vc deve usar os comandos específicos pra esses casos.

 

procedure TACBrECF.Sangria(Valor: Double; Obs: AnsiString;

   DescricaoCNF: String; DescricaoFPG: String; IndiceBMP: Integer ) ;

 

procedure TACBrECF.Suprimento(Valor: Double; Obs: AnsiString;

   DescricaoCNF: String; DescricaoFPG: String; IndiceBMP: Integer ) ;

[MaiconBR]

 

Para Sangria e Suprimento vc deve usar os comandos específicos pra esses casos.

 

procedure TACBrECF.Sangria(Valor: Double; Obs: AnsiString;

   DescricaoCNF: String; DescricaoFPG: String; IndiceBMP: Integer ) ;

 

procedure TACBrECF.Suprimento(Valor: Double; Obs: AnsiString;

   DescricaoCNF: String; DescricaoFPG: String; IndiceBMP: Integer ) ;

 

 

 

Olá André,

 

Compreendo, só gostaria de saber o porque de dar erro.

 

Obrigado!

[André Ferreira de Moraes]

As mensagens de erro que vc postou mostram o pq.