Dúvida Sobre Desconto Acbrecf

Fabio Lino · 28 Abril, 2014

Boa tarde, amigos

Gostaria de saber como faço para dar o desconto por VALOR e não por porcentagem

pois mesmo eu declarando na variável desconto

DESC:='$';

mesmo assim não sai o desconto

se coloco DESC:='%'; AI SIM FUNCIONA

Desc := '$';
form1.ACBrECF1.VendeItem(datamodule1.QVendacodigo_barras.Text, datamodule1.QVendadescricao.Text,
                               datamodule1.QVendaaliq.Text, StrToFloatDef( datamodule1.QVendaquant.AsString,0),
                               StrToFloatDef( datamodule1.QVendavalorUnit.AsString,0),
                               StrToFloatDef( pesprod.Eddescva.Text,0 ),

Editado 28 Abril, 2014 por Fabio Lino

EMBarbosa · 28 Abril, 2014

O código que postou está incompleto.

Você chegou a ver o exemplo do ACBrECF?

Fabio Lino · 28 Abril, 2014

Sim, eu coloquei sim a variável só esqueci de colocar ai no poste mas mesmo assim não dá o desconto por valor só por porcentagem.

 
Var Desc : Char ;
begin
//  if Form1.ACBrECF1.AguardandoResposta then
//     raise Exception.Create('Aguarde imprimindo Item anterior...') ;
 
  Button1.Enabled := False ;
  Desc := '%' ;
  if rbValor.Checked then
     Desc := '$' ;
 
  try
     if ckInmetro.Checked then
        Form1.ACBrECF1.LegendaInmetroProximoItem;
 
     Form1.ACBrECF1.VendeItem( edCodigo.Text, edDescricao.Text,
                               edICMS.Text, StrToFloatDef( edQtd.Text, 0 ),
                               StrToFloatDef( edPrecoUnita.Text,0 ),
                               StrToFloatDef( edDesconto.Text,0 ), edUN.Text,
                               Desc );

EMBarbosa · 28 Abril, 2014

Por favor, descreva o passo a passo para reproduzir o problema no exemplo do ACBrECF.

Anexe ao post o log do ACBrECF.

Fabio Lino · 28 Abril, 2014

Oi amigo como faço para ativar o LOG? Por um outro lado não entendo porque apesar do desconto por PORCENTAGEM estar fucionando o desconto por valor não funciona?

Sérgio Assunção · 28 Abril, 2014

Veja no próprio ECFTeste:

  ACBrECF1.ArqLOG := edLog.Text ;

E o por padrão no componente: acbrlog.txt

Sérgio

Sérgio Assunção · 28 Abril, 2014

"Desc" não seria uma palavra reservada ?
Experimente trocar o Desc por DescItem e faça o teste novamente.

Sérgio

Fabio Lino · 29 Abril, 2014

Olá amigos, bom dia

troquei a palavra chave mas ainda assim não consegui fazer com que o acbr dê desconto por porcentagem

 
procedure TForm29.Button6Click(Sender: TObject);
Var Desc : Char ;
begin
Desc := '$';
form1.ACBrECF1.VendeItem(datamodule1.QVendacodigo_barras.Text, datamodule1.QVendadescricao.Text,
                               datamodule1.QVendaaliq.Text, StrToFloatDef( datamodule1.QVendaquant.AsString,0),
                               StrToFloatDef( datamodule1.QVendavalorUnit.AsString,0),
                               StrToFloatDef( pesprod.Eddescva.Text,0 ),
                               Desc);
 
end;

Editado 29 Abril, 2014 por Fabio Lino

Régys Silveira · 29 Abril, 2014

Consegue reproduzir o problema com o demo do ACBrECF?

Você deve utilizar:

% - para desconto percentual

$ - para desconto por valor

Caso não funcione, ative o log, execute uma venda de item com os parâmetros e valores informador e anexe o arquivo aqui para analisarmos.

Acabei de testar com o Demo em uma Daruma e um Bematech, está funcionando perfeitamente.

Fabio Lino · 29 Abril, 2014

Então Regis até consegui reproduzir no demo e da forma como fiz em meu sistema não conseguido imaginar aonde possa haver um erro, uma vez que, consigo dar sim o desconto por PRCENTAGEM no entanto quando seto a variável DESC para '$' não dá desconto algum, você imagina o que pode ser?

Juliomar Marchetti · 29 Abril, 2014

Uma pequena questão que acabou de me ocorrer ao ler o post!

você tem duas versões do delphi no mesmo micro?

Fabio Lino · 29 Abril, 2014

Não amigo apenas uma o delphi7

Juliomar Marchetti · 29 Abril, 2014

Verifique o seguinte após passar a informação a sua variável string desc $ veja o valor que é passado e como está aparecendo para você!

Régys Silveira · 29 Abril, 2014

Uma coisa que percebi, você declarou a variável como Char, tente declará-la como String e faça o teste.

Fabio Lino · 29 Abril, 2014

Olá amigos!

Consegui gerar o log:

-- 10:23:14:437 SubtotalizaCupom( 0 , )

TX -> [sTX][19][NUL][FS] a00000000000000=[ETX]

10:23:14:640 RX <- [NUL][NUL][NUL][NUL]

-- 10:23:14:640 CarregaFormasPagamento

TX -> [sTX][ENQ][NUL][FS]#1p[NUL]

10:23:14:953 RX <- Dinheiro [NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][152]5[NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][NUL][NUL][NUL][NUL]

-- 10:23:14:953 FormasPagamento

TX -> [sTX][20][NUL][FS]H0100000000000070l[ETX]

10:23:15:250 RX <- [NUL][NUL][NUL][NUL]

-- 10:23:15:546 NumECF

TX -> [sTX][ENQ][NUL][FS]#[14]M[NUL]

10:23:15:750 RX <- [NUL][sOH][NUL][NUL][NUL][NUL]

-- 10:23:15:750 NumCupom

TX -> [sTX][4][NUL][FS][30]:[NUL]

10:23:16:062 RX <- [NUL][NUL]G[NUL][NUL][NUL][NUL]

-- 10:23:16:062 Subtotal

TX -> [sTX][ENQ][NUL][FS]#A[128][NUL]

10:23:16:359 RX <- [NUL][NUL][NUL][NUL][NUL]

-- 10:23:16:359

TX -> [sTX][4][NUL][FS][GS]9[NUL]

10:23:16:656 RX <- [NUL][NUL][NUL][NUL][NUL][NUL]p[NUL][NUL][NUL][NUL]

-- 10:23:16:656 FechaCupom( Val.Aprox.Impostos R$0,34(48,09%) Fonte:IBPT[LF] )

TX -> [sTX]1[NUL][FS]"Val.Aprox.Impostos R$0,34(48,09%) Fonte:IBPT[LF][132][CR]

10:23:17:171 RX <- [NUL][NUL][NUL][NUL]

-- 10:23:17:171 AbreGaveta

TX -> [sTX][ENQ][NUL][FS][22]d[150][NUL]

10:23:17:468 RX <- [NUL][NUL][NUL][NUL]

-- 10:29:20:062 SubtotalizaCupom( 0 , )

TX -> [sTX][19][NUL][FS] a00000000000000=[ETX]

10:29:20:281 RX <- [NUL][NUL][NUL][NUL]

-- 10:29:20:281 CarregaFormasPagamento

TX -> [sTX][ENQ][NUL][FS]#1p[NUL]

10:29:20:578 RX <- Dinheiro [NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][153][ENQ][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][NUL][NUL][NUL][NUL]

-- 10:29:20:578 FormasPagamento

TX -> [sTX][20][NUL][FS]H0100000000000050j[ETX]

10:29:20:875 RX <- [NUL][NUL][NUL][NUL]

-- 10:29:20:953 NumECF

TX -> [sTX][ENQ][NUL][FS]#[14]M[NUL]

10:29:21:187 RX <- [NUL][sOH][NUL][NUL][NUL][NUL]

-- 10:29:21:187 NumCupom

TX -> [sTX][4][NUL][FS][30]:[NUL]

10:29:21:484 RX <- [NUL][NUL]H[NUL][NUL][NUL][NUL]

-- 10:29:21:484 Subtotal

TX -> [sTX][ENQ][NUL][FS]#A[128][NUL]

10:29:21:781 RX <- [NUL][NUL][NUL][NUL][NUL]

-- 10:29:21:781

TX -> [sTX][4][NUL][FS][GS]9[NUL]

10:29:22:093 RX <- [NUL][NUL][NUL][NUL][NUL][NUL]P[NUL][NUL][NUL][NUL]

-- 10:29:22:093 FechaCupom( Val.Aprox.Impostos R$0,34(67,32%) Fonte:IBPT[LF] )

TX -> [sTX]1[NUL][FS]"Val.Aprox.Impostos R$0,34(67,32%) Fonte:IBPT[LF][129][CR]

10:29:22:593 RX <- [NUL][NUL][NUL][NUL]

-- 10:29:22:593 AbreGaveta

TX -> [sTX][ENQ][NUL][FS][22]d[150][NUL]

10:29:22:890 RX <- [NUL][NUL][NUL][NUL]

Fabio Lino · 29 Abril, 2014

Olá amigos

Eu fiz assim showmessage(desc) só que só apareceu $ será que não está sendo enviado o valor para a variável???? E porque só vai quando é porcentagem?

giulianon · 29 Abril, 2014

O trecho do log que você postou não contém o envio do comando VendeItem.

Tenta anexar o log completo no post.

Att.

Fabio Lino · 29 Abril, 2014

-- 10:53:43:125 VendeItem( 000105 , ABRAC NYLON BRASF. 3,6MM X 200 , F , 1 , 0,2 , 0 , $ , % , D , -1 )

TX -> [sTX][ENQ][NUL][FS]#[FS][[NUL]

10:53:43:406 RX <- [NUL][NUL][NUL][NUL][NUL]

-- 10:53:43:406

TX -> [sTX]h[NUL][FS]?FF0000002000001000000000000000000000000100000000000000000000$ 000105[NUL]ABRAC NYLON BRASF. 3,6MM X 200[NUL]s[20]

10:53:43:703 RX <- [NUL][NUL][NUL][NUL]

-- 10:53:44:765 SubtotalizaCupom( 0 , )

TX -> [sTX][19][NUL][FS] a00000000000000=[ETX]

10:53:45:015 RX <- [NUL][NUL][NUL][NUL]

-- 10:53:45:015 CarregaFormasPagamento

TX -> [sTX][ENQ][NUL][FS]#1p[NUL]

10:53:45:312 RX <- Dinheiro [NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][sOH][NUL]e[NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][NUL][NUL][NUL][NUL]

-- 10:53:45:312 FormasPagamento

TX -> [sTX][20][NUL][FS]H0100000000000020g[ETX]

10:53:45:625 RX <- [NUL][NUL][NUL][NUL]

-- 10:53:45:687 NumECF

TX -> [sTX][ENQ][NUL][FS]#[14]M[NUL]

10:53:45:921 RX <- [NUL][sOH][NUL][NUL][NUL][NUL]

-- 10:53:45:921 NumCupom

TX -> [sTX][4][NUL][FS][30]:[NUL]

10:53:46:218 RX <- [NUL][NUL]S[NUL][NUL][NUL][NUL]

-- 10:53:46:218 Subtotal

TX -> [sTX][ENQ][NUL][FS]#A[128][NUL]

10:53:46:531 RX <- [NUL][NUL][NUL][NUL][NUL]

-- 10:53:46:531

TX -> [sTX][4][NUL][FS][GS]9[NUL]

10:53:46:828 RX <- [NUL][NUL][NUL][NUL][NUL][NUL] [NUL][NUL][NUL][NUL]

-- 10:53:46:828 FechaCupom( Val.Aprox.Impostos R$0,34(168,30%) Fonte:IBPT[LF] )

TX -> [sTX]2[NUL][FS]"Val.Aprox.Impostos R$0,34(168,30%) Fonte:IBPT[LF][177][CR]

10:53:47:328 RX <- [NUL][NUL][NUL][NUL]

-- 10:53:47:328 AbreGaveta

TX -> [sTX][ENQ][NUL][FS][22]d[150][NUL]

10:53:47:687 RX <- [NUL][NUL][NUL][NUL]

Juliomar Marchetti · 29 Abril, 2014

Bom dia

simples está passando no local errado!

veja no seu log

-- 10:53:43:125 VendeItem( 000105 , ABRAC NYLON BRASF. 3,6MM X 200 , F , 1 , 0,2 , 0 , $ , % , D , -1 )

tem o $ e o %

Fabio Lino · 29 Abril, 2014

Como eu faço? poderia me dar um exemplo?

Juliomar Marchetti · 29 Abril, 2014

Bom o exemplo já está no ECFTeste e até mesmo foi postado acima

ACBrECF1.VendeItem('codigo','descricao','aliquota',1 {quantidde},1{valor},2{desconto},'UND'{unidade medida},'%'{tipo % ou $ },'D'{D de Desconto A de Acrescimo});

Régys Silveira · 29 Abril, 2014

-- 10:53:43:125 VendeItem( 000105 , ABRAC NYLON BRASF. 3,6MM X 200 , F , 1 , 0,2 , 0 , $ , % , D , -1 )

você está passando o simbolo do desconto na unidade, basta passa-lo no local correto, simples assim.

Usando seu próprio exemplo:

procedure TForm29.Button6Click(Sender: TObject);
Var Desc : Char ;
begin
Desc := '$'; // <-------------- $ valor, % percentual
form1.ACBrECF1.VendeItem(datamodule1.QVendacodigo_barras.Text, datamodule1.QVendadescricao.Text,
                               datamodule1.QVendaaliq.Text, StrToFloatDef( datamodule1.QVendaquant.AsString,0),
                               StrToFloatDef( datamodule1.QVendavalorUnit.AsString,0),
                               StrToFloatDef( pesprod.Eddescva.Text,0 ), // <---- valor do desconto ou acrescimo concedidos
                               'UN', // <----------- troque aqui pela unidade correta, conforme seu cadastro ou informado em tela
                               Desc, // <----------- aqui o tipo do desconto $ valor, % percentual
                               'D'); // <----------- arqui informe se é desconto (D) ou acrescimo (A)
 
end;

Sintaxe do comando:

procedure TACBrECF.VendeItem(
  Codigo, Descricao: String; 
  AliquotaICMS : String;  
  Qtd: Double; 
  ValorUnitario: Double; 
  ValorDescontoAcrescimo: Double;
  Unidade: String; 
  TipoDescontoAcrescimo : String; 
  DescontoAcrescimo : String ;
  CodDepartamento: Integer);

Não esqueça de também passar o tipo do desconto/acrescimo

Régys Silveira · 29 Abril, 2014

Opa, desculpe, minha tela estava desatualizada, acabei postando mesmo que o Juliomar.

Fabio Lino · 29 Abril, 2014

Olá amigos, boa noite!

Consegui fazer o sistema dar desconto em % e também em $ fiz assim:

 
Var
Desc:String;
begin
Form1.ACBrECF1.ArqLOG:=Log.Text;
Desc :='$';
form1.ACBrECF1.VendeItem(datamodule1.QVendacodigo_barras.Text, datamodule1.QVendadescricao.Text,
                               datamodule1.QVendaaliq.Text, StrToFloatDef( datamodule1.QVendaquant.AsString,0),
                               StrToFloatDef( datamodule1.QVendavalorUnit.AsString,0),
                               StrToFloatDef(pesprod.Eddescva.Text,0 ),
                               Desc,pesprod.Edit3.Text); <===================== aqui coloquei um edit aonde coloco $ ou % conforme a escolhido em um dbcombobox   dinheiro ou porcentagem
 
end;

Editado 30 Abril, 2014 por Fabio Lino

Entrar

Sobre nós...

Dúvida Sobre Desconto Acbrecf

Recommended Posts

Fabio Lino

EMBarbosa

Fabio Lino

EMBarbosa

Fabio Lino

Sérgio Assunção

Sérgio Assunção

Fabio Lino

Régys Silveira

Fabio Lino

Juliomar Marchetti

Fabio Lino

Juliomar Marchetti

Régys Silveira

Fabio Lino

Fabio Lino

giulianon

Fabio Lino

Juliomar Marchetti

Fabio Lino

Juliomar Marchetti

Régys Silveira

Régys Silveira

Fabio Lino

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante

	Sérgio Assunção Ajude o Projeto ACBr crescer - Assine o SAC

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br