Não Funciona Acrescimo Em Sweda "if St120".

[ITWorks]

Boa Tarde Senhores,

 

estou usando o método abaixo em VB6.

 

E a impressora SWEDA "IFST120" sempre processo como DESCONTO.

 

Existe alguma release ou método para enviar ACRÉSCIMO para este modelo de impressora?

 

 

'********************************

ECF.VendeItem("201","PAO DE CARA","FF","100,000",1.000)

ECF.DescontoAcrescimoItemAnterior(1.00,"A","$",1)

'********************************

 

 

 

[Juliomar Marchetti]

Boa noite!

estranho pois fiz teste com o emulador e está OK!

sugiro pegar o ECFTeste na sessão downloads e testar

e ainda informar esse valor na venda do item para que já saia com o acréscimo!

[ITWorks]

Bom Dia...também não tive problemas com emulador....todos os métodos funcionaram.

Mas na ECF fisica, os comandos não funcionam, mesmo usando ECFTeste.

 

O resultados é sempre o mesmo, enviado o comando para ACRESCIMO, a impressora imprime DESCONTO.

 

Será BUG? ou a impressora realmente não aceita esse método?

[Daniel Simoes]

Qual é exatamente o passo a passo para reproduzir o problema, usando ECFTeste e o emulador da Sweda... Por favor use esse

[marcelo_sp]

Atualizei a versão completa ACBr hoje as 14:30 , Revisão 9078 :

 

Efetuei o teste mencionado pelo colega ITWORKS mas em meu teste tudo funcionou perfeitamente ( Acréscimo / Desconto )  ECF Sweda ST120 (Física)  (SwedaSTX) .

 

Colocarei em produção nossa AC em um Cliente na Segunda-Feira e estarei testando outras características negativas que vinha acontecendo nas últimas atualizações da SwedaSTX como se encontra em alguns posts no fórum , caso encontre posto aqui .

 

( Não vou prometer - Mas tem um cliente que estará repassando o ponto comercial e já pedi a ele o ECF dele Sweda ST120 , caso ele nos doar estarei doando para o projeto )

 

Log do teste Efetuado :

 

 

[Jefferson Lupinacci]

Manual
http://sistemas.sweda.com.br/downloads/39.PDF

Página 13
<ESC>.60 LANÇAMENTO DE ACRÉSCIMO SOBRE ITEM

Verifiquei que a SWEDA ST120 não esta encaminhando o comando .60 no VendeItem

possui esta linha no procedimento
  { Sweda não permite Acrescimo por Item }
  if (ValorDescontoAcrescimo > 0) and (DescontoAcrescimo = 'A') then
     raise EACBrECFCMDInvalido.Create( ACBrStr(
           'ECF '+fpModeloStr+' não permite Acréscimo por Item') );

porem a correção se daria neste ponto do procedimento

        if (fsVersaoSweda >= swdD) then
        begin
          if DescontoAcrescimo = 'A' then
            EnviaComando('60' + '0000' + IntToStrZero( Round(ValDesc * 100) ,12))
          else
            EnviaComando('02' + '0000' + IntToStrZero( Round(ValDesc * 100) ,12));
        end
        else
        begin
          if DescontoAcrescimo = 'A' then
            EnviaComando('60' + padL(FormatFloat('00.00',ValorDescontoAcrescimo), 10) + IntToStrZero( Round(ValDesc * 100) ,12) )
          else
            EnviaComando('02' + padL(FormatFloat('00.00',ValorDescontoAcrescimo), 10) + IntToStrZero( Round(ValDesc * 100) ,12) );
        end;

Atualmente este bloco se encontra assim

        if (fsVersaoSweda >= swdD) then
           EnviaComando('02' + '0000' + IntToStrZero( Round(ValDesc * 100) ,12) )
        else
           EnviaComando('02' + PadRight(FormatFloat('00.00',ValorDescontoAcrescimo),10) +
                               IntToStrZero( Round(ValDesc * 100) ,12) ) ;

Alguem me diz qual a diferença da ACBrECFSweda  e da ACBrECFSwedaSTX?
 

Editado 23 Setembro, 2015 por jheff_web

[Daniel Simoes]

O modelo ecfSweda está descontinuado... use ecfSwedaSTX