Ajuda para abrir GAVETA com Impressora ELGIN

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

Ajuda para abrir GAVETA com Impressora ELGIN

Mensagem por fladimir »

Faz 2 tentativas,

1 Ao invés de chr(50) coloca somente "50"

Se não funcionar deixa "n"
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar do usuário
Jairo Maia
Moderador
Moderador
Mensagens: 2785
Registrado em: 16 Ago 2010 13:46
Localização: Campinas-SP

Ajuda para abrir GAVETA com Impressora ELGIN

Mensagem por Jairo Maia »

Olá Eduardo,

Pois é! Mas esse é o comando para abertura da gaveta. Estou propenso a pensar que há algo errado com o cabo da gaveta ou o solenoide, ou ainda (talvez) com a saída da própria impressora, porque com esse comando a gaveta deveria abrir com a Elgin Vox. Vamos aguardar...
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
EduardoSPno
Usuário Nível 2
Usuário Nível 2
Mensagens: 59
Registrado em: 03 Mai 2012 16:23
Localização: Sao Paulo/SP

Ajuda para abrir GAVETA com Impressora ELGIN

Mensagem por EduardoSPno »

Grande amigos, vamos la tentar novamente, tenho novidades ...

Bom a gaveta esta ok, testei ela com um software em DELPHI da própria ELGIN-VOX e a danada abre normalmente, ai entrei no código fonte e vi o sgte comando:

#27+#118+'60'

Legal, fiz em clipper da sgte maneira:

CHR(27)+CHR(118)+'60'
e a danada nao abre, imprime no papel u quadradinho (exemplificando o CHR(27))v60, ou seja, em vez dela interpretar o comando ela esta imprimindo ele ..

Alguém tem sugestão??

Vou postar o fonte:
Muito obrigado pela atenção pessoal !!
Clipp Abraço ..
EduardoSPno
Usuário Nível 2
Usuário Nível 2
Mensagens: 59
Registrado em: 03 Mai 2012 16:23
Localização: Sao Paulo/SP

Ajuda para abrir GAVETA com Impressora ELGIN

Mensagem por EduardoSPno »

Código: Selecionar todos

***************** ABERTURA DA GAVETA
RUN DEL C:\SISTEMA\1.TXT >NUL
SET DEVI TO PRINT
SET PRINT TO C:\SISTEMA\1.TXT   //crio um arquivo pra conter a informacao ...

@PRow()+1, PCol() Say Chr(27)+Chr(118)+´60´   //também ja testei com "60"  ...
@prow()+1,, Pcol() say " "

set print to
Set Device To Screen
RUN C:\WINDOWS\NODOSIMP C:\SISTEMA\1.TXT 140   //uso o nodosimp pra enviar pra impressora ...
***************** ABERTURA DA GAVETA
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

Ajuda para abrir GAVETA com Impressora ELGIN

Mensagem por Kapiaba »

Tente:

Código: Selecionar todos

   * CHR(27)+"&0"
   * ou
   * CHR(27)+"v"
   * ou
   * CHR(27)+"p"
   * ou
   * CHR(27)+"v"+7
   * ou
   * CHR(27)+"v"+CHR(7)
abs
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

Ajuda para abrir GAVETA com Impressora ELGIN

Mensagem por Kapiaba »

Esqueci este também:

Código: Selecionar todos

   CHR( 27 ) + 'v' + CHR( 100  )
Responder