Bug em ACBrECFBematech.pas

[smaniand]

Hello, there is a bug on ACBreCFBematech.pas :

Line 2274

    { Adicionando SA-Sangria e SU-Suprimento que sempre estarão presentes na Bematech}
     CNF := TACBrECFComprovanteNaoFiscal.create ;
     CNF.Indice    := 'SA' ;
     CNF.Descricao := 'Sangria' ;
     CNF.Total     := StrToFloatDef( BcdToAsc( copy(TotalizadoresParciais,ifThen(fs25MFD,393,197),7) ),0) / 100 ;
     CNF.Contador  := StrToIntDef( copy(RetCmd,113,4),0) ;
     fpComprovantesNaoFiscais.Insert(0, CNF ) ;

     CNF := TACBrECFComprovanteNaoFiscal.create ;
     CNF.Indice    := 'SU' ;
     CNF.Descricao := 'Suprimento' ;
     CNF.Total     := StrToFloatDef( BcdToAsc( copy(TotalizadoresParciais,ifThen(fs25MFD,400,204),7) ),0) / 100 ;
     CNF.Contador  := StrToIntDef( copy(RetCmd,117,4),0) ;

Sangria and Suprimento are added manually, and inserted on position 0 and 1 of the fpComprovantesNaoFiscais

 

then on function TACBrECFBematech.GetDadosUltimaReducaoZ: AnsiString;

Line 3182

 

      for I := 0 to fpComprovantesNaoFiscais.Count - 1 do
      begin
        CNFZ := TACBrECFComprovanteNaoFiscal.Create ;
        CNFZ.Assign( fpComprovantesNaoFiscais );
        P := StrToIntDef(CNFZ.Indice,I+1)-1;
        CNFZ.Total    := RoundTo( StrToFloatDef( copy(S,(P*14)+1,14),0) / 100, -2) ;
        CNFZ.Contador := StrToIntDef( copy(SS,(P*4)+1,4), 0);

 

First time CNFZ.Indice is "SA", exception throws, and P assumes 0, then we read from variable S the first 14 chars, that is Sangria value

Second time CNFZ.Indce is "SU" , exception throws, and P assumes 1, then we read from variable S the second 14 chars, that is Suprimento value

 

Now if we have another Comprovante cadastrado, it will have indice=01 and

CNFZ.Indice is "01" and P assumes again value 1 and we read again the Sangria value.

Then on CalculaValoresVirtuais we will have a wrong information for Total Operacao nao fiscal.

 

HTH

Regards from Italy

Andrea

 

 

[Daniel Simoes]

Hi,

I applied some changes on Trunk2 sources, that may fix this behavior ... probably this change can be merged on "Trunk"... But I really suggest you to move to Trunk2...

-- ACBrECFBematech --   (por: DSA)
[-] Correção para GetDadosUltimaReducaoZ. Leitura errada de comprovantentes
    Não Fiscais programados com Indice inferior a 03