Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Fabio Lino

Membros
  • Content Count

    16
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Fabio Lino

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Location
    São Paulo
  1. Sim é isso amigo
  2. Fabio Lino

    Acbrecf

    Boa noite amigos! A minha dúvida é a seguinte consigo configurar e fazer a ECF se comunicar com meu sistema no acbr emito cupons e tudo mais, no entanto quando fecho o programa e abro ele novamente a configuração da impressora some! Quando abro o arquivo ini lá está tudo certinho porque será? A impressora é uma bematech MP-2100 THFI O AQUIVO INI: [Config] Modelo=2 Porta=COM7 Baud=115200 TimeOut=3 Intervalo=100 ou seja consigo gravar as configurações e ler também mais na hora que abro o sistema a impressora não responde segue o log:
  3. Boa tarde amigos Estou um dúvida tendo conseguido dar o desconto por valor e porcentagem como faco para pegar esse valor que é enviado para a impressora (o desconto) e envia-lo também para um edit por exemplo?
  4. 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); &l
  5. Como eu faço? poderia me dar um exemplo?
  6. -- 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 Ca
  7. 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?
  8. 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]
  9. 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?
  10. 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 ),
  11. 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?
  12. 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.
  13. 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),
  14. Fabio Lino

    Acbretq

    Boa tarde, amigos Estou usando o acbretq para imprimir etiquetas em uma argox esta imprimindo direitnho tudo ok, exceto por um problema que não conseguindo resolver: Preciso alinhar o texto e alinhar o código de barras ao meio da etiqueta, configurei o tamanho da etiqueta no windows no genreciador da impressora argox mas mesmo assim nada: O texto está saindo alinhado à esquerda e preciso coloca-lo centralizado ou pelo menos recuar um pouco para a direita. procedure TPrint1.Button1Click(Sender: TObject); begin if etiqueta.ComboBox1.Text = 'Etiqueta Simp
×
×
  • Create New...