Correção Não fiscal Completo classe Bematech

[EMBarbosa]

Acho que encontrei um erro no código do TACBrECFBematech.NaoFiscalCompleto. Deveria ser o seguinte:

procedure TACBrECFBematech.NaoFiscalCompleto(CodCNF: String; Valor: Double;

  CodFormaPagto: String; Obs: AnsiString; IndiceBMP : Integer);

  Var FPG : TACBrECFFormaPagamento ;

begin

  fsTotalizadoresParciais := '' ;

  if NOT fs25MFD then  //
     inherited NaoFiscalCompleto(CodCNF, Valor, CodFormaPagto, Obs)


  else

   begin

     FPG := AchaFPGIndice(CodFormaPagto) ;

     if FPG = nil then

        raise Exception.create( ACBrStr('Forma de pagamento: '+CodFormaPagto+

                                ' não encontrada'));


     AguardaImpressao := True ;

     EnviaComando( #25 + CodCNF + IntToStrZero(Round(Valor * 100) ,14) +

                         padL(FPG.Descricao,16), 13 ) ;

   end ;

end;

[/code]


Alguém pode confirmar? Estou usando como base os manuais dos ECFs MP25FI, MP2100, MP 3000 e MP 4000.


EDIT: Na verdade não é um ERRO estritamente falando. Apenas a maneira mais recomendada pra fazer.

[Daniel Simoes]

SIM vc está correto...

Do jeito que está o NãoFiscalCompleto na Bematech sempre será impresso em modo de compatibilidade com a MP20, e não permitirá identificar o Cliente (CNPJ)

(vou corrigir no SVN)

[EMBarbosa]

Obrigado Daniel.