Jump to content

SUPER OFERTA!
Compre o Delphi com 45% de desconto

botao_delphi.png

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Marcio Pesso

Membros
  • Content Count

    20
  • Joined

  • Last visited

Community Reputation

2 Neutral

About Marcio Pesso

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Localização
    Guariba

Recent Profile Visitors

683 profile views
  1. Marcio Pesso

    Nfe

    Estou precisando de um freelance para acertar minha nfe, mas que seja honesto, e que cobre o justo e funcione, deixe eu instalar em clientes e testar para efetuar os pagamentos.
  2. Boa tarde, procuro freelancer para instalar componentes em meu sistema
  3. Me desculpem, é que estou na procura de auxilio mesmo, e obrigado pela dica.
  4. PEGUEI UM SERVIÇO EM UM SERVIDOR DE CLIENTE E O MESMO USA UM SISTEMA ANTIGO FEITO EM COBOL, POREM COM WINDOWS 2003 SERVER, ESTA TUDO PRONTO, POREM QDO CLICO PARA ABRIR O EXECUTÁVEL, ELE SÓ PISCA. NAO FAZ MAIS NADA. GOSTARIA DE ALGUMA IDEIA OU AJUDA MESMO SE ALGUEM TIVER CONHECIMENTO
  5. Valeu agradeço pela ideia, e pelos codigos vou testar e volto a postar
  6. Ola sergio, meu maior problema sou muito leigo na parte de programação, aqui mesmo no acbr vivo contratando freelance para resolver estes problemas para mim, e este codigo foi uma parceiro meu que montou e é o que mais consigo acertar para clientes, por isso, estou ate dispostos cara se tiver alguem para este free ou mesmo me acertar este codigo..... é so e procurar
  7. este codigo, eu montei ele nao manjo muito, mas eles usam 2 impressoras, 1 na serial com1 que chamo de bar e uma na serail com2 que chamo de cozinha, fiz este codigo com ajuda de um parceiro e ate entao funciona normal o que nao sei porque para de sair nas impressoras... se fosse de um pedido e para-se eu ate entenderia, mas vc fica trabalhando e para....
  8. Ola muito bom dia osmar, acaei esquecendo de anexar a rotina do timer, segue: Procedure TfrmPrincipal.Timer1Timer(Sender: TObject); var Impressora : textfile; cabecalio1,cabecalio2 : String; begin IBqComanda2.close; ibqComanda2.sql.clear; ibqComanda2.SQL.Add('Select * from r000001' ); ibqComanda2.Open; ibqComanda2.First; while not ibqComanda2.eof do begin CABECALIO1 := 'N'; cabecalio2 := 'N'; ibqitensComandaTablet2.close; ibqitensComandaTablet2.SQL.Clear; ibqitensComandaTablet2.SQL.Add('Select i.*,p.CODIGO,p.CODGRUPO,p.IMP from R000002 as i inner join C000025 as p on i.COD_PRODUTO = p.CODIGO where i.cod_mesa = :cod and i.imprimir = :imp'); ibqitensComandaTablet2.ParamByName('cod').Value:=IBqComanda2CODIGO.Value; ibqitensComandaTablet2.ParamByName('imp').Value:='S'; ibqitensComandaTablet2.Open; ibqitensComandaTablet2.First; while not ibqitensComandaTablet2.eof do begin if (ibqitensComandaTablet2IMP.Value = 1) OR (ibqitensComandaTablet2IMP.Value = 2) then begin IF ibqitensComandaTablet2IMP.Value = 1 THEN begin AssignFile(impressora,'COM1'); Rewrite(Impressora); Rewrite(Impressora); if cabecalio1 = 'N' THEN begin WriteLn(Impressora, #29 + #33,' COMANDA: ' + ibqitensComandaTablet2.text); WriteLn(Impressora, #29 + #33 + #1, 'DATA / HORA : ' + DateTimeToStr(Now)); WriteLn(Impressora, #29 + #33 + #1, ' GARCOM ' + ibqitensComandaTablet2OPERADOR.text); WriteLn(Impressora, #29 + #33 + #1,' NOME: ' + ibqcomanda2cliente.text); WriteLn(Impressora, #29 + #33 + #1,' REF: ' + ibqcomanda2OBS.text); CABECALIO1 := 'S'; end; WriteLn(Impressora, #29 + #33 + #1, ('------------------------------------------')); WriteLn(Impressora, #29 + #33 + #1, ('PRODUTO : ' + COPY(ibqitensComandaTablet2DESCRICAO.Text,Pos('-',ibqitensComandaTablet2DESCRICAO.Text)+1,length(ibqitensComandaTablet2DESCRICAO.Text)))); Writeln(Impressora, #29 + #33, ' QTDE : '+ ibqitensComandaTablet2QTDE.Text); WriteLn(Impressora, #29 + #33 + #1, ('OBS : ' + ibqitensComandaTablet2COMPLEMENTO.Text)); Writeln(IMpressora,''); WriteLn(Impressora, #29 + #33 + #1, ('------------------------------------------')); Writeln(IMpressora,''); Writeln(IMpressora,''); Writeln(IMpressora,''); Writeln(IMpressora,''); Writeln(IMpressora,''); Writeln(IMpressora,''); CloseFile(IMPRESSORA); end; IF ibqitensComandaTablet2IMP.Value = 2 THEN begin AssignFile(impressora,'COM2'); Rewrite(Impressora); Rewrite(Impressora); if cabecalio2 = 'N' THEN begin WriteLn(Impressora, #29 + #33,' COMANDA: ' + ibqitensComanda2Tablet.text); WriteLn(Impressora, #29 + #33 + #1, 'DATA / HORA : ' + DateTimeToStr(Now)); WriteLn(Impressora, #29 + #33 + #1, ' GARCOM ' + ibqitensComandaTablet2OPERADOR.text); WriteLn(Impressora, #29 + #33 + #1,' NOME: ' + ibqcomanda2cliente.text); WriteLn(Impressora, #29 + #33 + #1,' REF: ' + ibqcomanda2OBS.text); CABECALIO2 := 'S'; end; WriteLn(Impressora, #29 + #33 + #1, ('------------------------------------------')); WriteLn(Impressora, #29 + #33 + #1, ('PRODUTO : ' + COPY(ibqitensComandaTablet2DESCRICAO.Text,Pos('-',ibqitensComandaTablet2DESCRICAO.Text)+1,length(ibqitensComandaTablet2DESCRICAO.Text)))); Writeln(Impressora, #29 + #33, ' QTDE : '+ ibqitensComandaTablet2QTDE.Text); WriteLn(Impressora, #29 + #33 + #1, ('OBS : ' + ibqitensComandaTablet2COMPLEMENTO.Text)); Writeln(IMpressora,''); WriteLn(Impressora, #29 + #33 + #1, ('------------------------------------------')); Writeln(IMpressora,''); Writeln(IMpressora,''); Writeln(IMpressora,''); Writeln(IMpressora,''); Writeln(IMpressora,''); Writeln(IMpressora,''); CloseFile(IMPRESSORA); end; end; IF cabecalio1 = 'S' THEN begin AssignFile(impressora,'COM1'); Rewrite(Impressora); Rewrite(Impressora); Rewrite(Impressora); Rewrite(Impressora); CloseFile(IMPRESSORA); end; IF cabecalio2 = 'S' THEN begin AssignFile(impressora,'COM2'); Rewrite(Impressora); Rewrite(Impressora); Rewrite(Impressora); Rewrite(Impressora); CloseFile(IMPRESSORA); end; ibqitensComanda2Tablet.Next; end; ibqcomanda2.next; End; end; eu ate qgora nao consigo localizar o problemas, se puder me ajudar, agradeço
  9. Ola a todos, gostaria se alguem puder me auxiliar e ajudar em um codigo fontes, pois estou ja de cabelo em pé com isso, sistema para restaurantes bares e similares. No sistema crie na base central do cadastro de produtos as impressoras, onde determina por config, onde sera impresso o produto, cozinha ou bar dentro dos fontes, do lançamento de produtos na comandas, criei um timer onde o mesmo manda para as impressoras, sendo que os graçons lança por tablet os produtos nas mesas, e esta acontecendo o seguinte, começa a imprimir separado beleza porem do nada para de sair nas impressoras, ai se fecho e abro meu executavel de lançamento e clico na mesa ele da um erro de i/o sendo a porta, porem imprimi o pedido do cliente preso ali nas impressoras e volta a liberar trabalhando normal depois de um determinado tempo pronto começa tudo de novo, como se estive acumulando os produtos, e nao me mostra nada de fila de impressao parada usando elas como generica nas serias com1 e com2 nao sei mais o que pode ser, pois eles usam o sistema com 7 tablets, ja fiz de tudo mas nada pelo que vejo o problema esta sendo nos fontes onde criei este timer mas nao consigo enxergar o erro,se alguem puder me auxiliar em dar alguma dica, posto ate a linha deste timer para ver se tem algo errado Obrigado
  10. desculpem a demora pessoal a minha resolvi da forma como Daniel citou eu instalo ele normalmente, e juntamente instala-se a generica eu criei um compartilhamento para ela, e maravilha, coloquei como se ele fosse uma epson usei o esc/pos da epson mesmo e 100% feliz
  11. Bom dia Daniel, verifiquei a versao do acbrsat ta 0.2.0 e estou usando o acbr posprinter
  12. Ola, estou tendo algum problema na impressão do extrato do sat com a Elgin I9, simplesmente ela não sai o codigo de barras e nem o Qrcode estou utilizando o comando escpos, configurado igual epson, que esta 100% funcionando, e nada todo o conteudo do extrato sai normal, porem o codigo barras e qrcode nao sai.
  13. bom dia a todos, depois de tanto insistir nesse bendito elgin abandonei, e comprovei que o problema é no mesmo... o engenheiro da elgin me ligou e fizemos os testes juntos, e ele bateu o pé que era o acbr, que no linker ele envia o arqs xml sem erro... e eu tentando explicar a ele mas nao entramos em um acordo... entao por conta resolvi mudar... fiz uma rotina usando o acbr monitor plus, onde faço a venda e em seguida chamo o acbr e com o numero da venda mando ele executar e pra minha surpresa e algum conhecimento NÃO FUNCIONOU travou igual mas igual de idêntico a minha aplicação, ele trava e fica com a luz do ac acesa em anexo coloquei um txt para vcs verem .... então so me restou fazer a troca do mesmo equipamento e colocar um tanca para meu cliente a fins de não perde campo e deixar meu cliente ainda comigo..... uma coisa foi brigar na elgin e falar muito com o engenheiro e de nada se resolver ate ele me dizer que esta mandando de cortesia um sat desenvolvimento e uma impr i9 sem custo algum..... Agradeço a todos aqui que de certa forma me auxiliaram e me passaram dicas e ideias.... erro linker elgin.txt
  14. Sergio, o pessoal da Elgin entrou em contato comigo, ve se consegue me ajudar e se procede neste momento que fui ver que nao estou usando o trunk2 isso iria interferir em algo? pois eles alegam que a acbr esta com uma versao mais atual e que é pra mim atualizar.... o que mais me admira é como o tanca nao parou? pra vc ter uma idieia eu comecei usando o tanca para emitir junto com o acbrplus trabalhou 20 dias so na boa, mesmo, e atualizei para trabalhar geral sem passar pro acbrplus, isso usando o acbr e ate agora nao parou de jeito algum ja ta indo para 90 dias é de se ficar com a pulga atras da orelha não é?
  15. Sergio, não vai mesma dll do linker sat qdo instala, pra ter uma ideia peguei ate mesmo a dll da dimep pra testar mesma coisa, agora estou na espera de uma dll que o rubens da elgin me prometeu de enviar..estou na espera desde manha... pensei ate que era problemas em usb mas montei uma maq zero e nada rsrsrsrsrsrs kkkkkkkkkkkk como se diz vou ter que rir para nao chorar mesmo, mas ta valendo as opniões e força ai
×
×
  • Create New...