Marcio Pesso
-
Total de ítens
20 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Marcio Pesso
-
-
Boa tarde, procuro freelancer para instalar componentes em meu sistema
-
6 minutos atrás, Felipe E. Resende Mesquita disse:
6.3 - Mostre respeito pelo modo de escrever. Escreva de modo claro, gramaticalmente e semanticamente correto. Não escreva TUDO EM MAIÚSCULAS. Isso é lido como se estivesse gritando e é considerado rude. Favor leia as regras do fórum.
Me desculpem, é que estou na procura de auxilio mesmo, e obrigado pela dica.
-
1
-
-
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
-
Valeu agradeço pela ideia, e pelos codigos vou testar e volto a postar
-
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
-
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....
-
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
-
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
-
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
-
Bom dia Daniel, verifiquei a versao do acbrsat ta 0.2.0
e estou usando o acbr posprinter
-
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.
-
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....
-
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 é?
-
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
-
Ok Ricardo fiz este procedimento agora o sat trava e no retorno do acbr da que é erro timeout ......
ja mudei o time out para 20s e nada fica nisso, ja peguei o xml que to gerando e coloco na ativador da elgin linker
ele aceita e envia normal... ja nem sei mais o que faço....
-
Ola Sergio, cara todo o procedimento eu ja fiz, porem este eq esta muito intermitente,
por exemplo agora ele ta com a luz do ac aceso e nao deixa eu ter acesso algum nele... apaga e acende a sefaz....
entao cara muito ruim a situação, em uso apenas 5 dias e faz isso.
de atualizar a versao eu sei que ele pega no sefaz e agora ta coma versao 01.00.00 sendo que todo mundo esta com a versao 01.01.00 cara minha aplicação fiz wem cima do acbr e coloco o tanca aki o negocio funciona do jeito que fizemos para funcionar sem problemas algum, e chega esse nada... ligar na elgin é um sarro kkkkkkkkkk ruim de suporte, pessimo to quase a fim de colocar ele de peso de papel e pegar um tanca pro cliente isso sim.....
-
Ola alguem ja pegou erro no sat da elgin, onde ocorrem o seguinte, vc manda o cupom ele mostra processando e nada...
ai lendo o log da acbrsat mostra time out de transmissão... e se vc entra no ativador do mesmo ele mostra sat em processamento tente novamente, e fica travado, com a luz do ac acesa direta, isso sem falar qdo tbm fala que a porta nao inicializada corretamente...
se alguem puder me auxiliar agradeço...
-
Ola bom dia a todos, estou procurando programadores freelance para acertar alguns detalhes na base de meus sistema fiscal, e algumas melhorias que preciso fazer.
Quem tiver interesse
skype: [email protected]
email: [email protected]
-
Olá tenho um sistema rodando com a nfe 2.0.
procuro alguem para atualizar a mesma para versão 3.10
Se possivel passar custo no meu email
desde ja agradeço a atenção
Marcio
-
1
-
Nfe
em Classificados
Postado
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.