Ir para conteúdo
  • Cadastre-se

dev botao

Bug em ACBrECFBematech.pas


smaniand
  • Este tópico foi criado há 3376 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

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 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3376 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...