Ir para conteúdo
  • Cadastre-se

dev botao

Dúvida Sobre Desconto Acbrecf


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

Recommended Posts

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 por Fabio Lino
Link para o comentário
Compartilhar em outros sites

  • Consultores

O código que postou está incompleto.

Você chegou a ver o exemplo do ACBrECF?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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 );
Link para o comentário
Compartilhar em outros sites

  • Consultores

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

Anexe ao post o log do ACBrECF.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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 por Fabio Lino
Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link para o comentário
Compartilhar em outros sites

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?

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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ê!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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]
Link para o comentário
Compartilhar em outros sites

-- 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]
Link para o comentário
Compartilhar em outros sites

  • Moderadores

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 % ;)

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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});
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

-- 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

  • Curtir 1

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link para o comentário
Compartilhar em outros sites

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 por Fabio Lino
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3621 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.