Re: [delphi-br] Abrir Gaveta de Dinheiro

2005-08-25 Por tôpico Fernanda Forbici 
iRetorno:= Bematech_FI_AcionaGaveta();

Fernanda Forbici

- Original Message -
From: sweetheart_lovebr [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 23, 2005 3:08 PM
Subject: [delphi-br] Abrir Gaveta de Dinheiro


Como faço para abrir uma gaveta de dinheiro que está ligada diretamente
ao computador sem passar pela impressora usando a dll da bematech?





--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.14/79 - Release Date: 22/8/2005






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Abrir Gaveta de Dinheiro

2005-08-23 Por tôpico sweetheart_lovebr 
Como faço para abrir uma gaveta de dinheiro que está ligada diretamente 
ao computador sem passar pela impressora usando a dll da bematech?





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Abrir Gaveta de Dinheiro

2005-08-23 Por tôpico Emerson Moreno 
Existe uma função da propria dll, que vc terá que declarar e usar de
acordo com sua necessidade. veja no help do bematech que ele ensina
passo a passo como se fazer.

Em 23/08/05, sweetheart_lovebr[EMAIL PROTECTED] escreveu:
 Como faço para abrir uma gaveta de dinheiro que está ligada diretamente 
 ao computador sem passar pela impressora usando a dll da bematech?
 
 
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
 
 
 
 Yahoo! Grupos, um serviço oferecido por:
  
 
 Links do Yahoo! Grupos
 
 Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
   
 Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
   
 O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
 Yahoo!. 


-- 
[]'s

Emerson Moreno
O grande sábio aprende por ensinar!


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Abrir Gaveta de Dinheiro

2005-08-23 Por tôpico Alexandre 
Estimado(a) sweetheart_lovebr,

Boa tarde. Sem passar pela dll, você teria que saber a string de comando
que abre o caixa. Tipo:  10 E1 Z3 S1 12 33 S (sei lá o que) e depois
convertê-la e passar pra porta onde o caixa está conectado ! (falei
besteira?)

Porta do CAIXA: COM1
String (comando) que abre o caixa: 10 E1 Z3 S1 12 33 S (lê aí o manuel
do caixa)

procedure AbrirCaixa;
var
tfCaixa : TextFile;
sComando, sCodigo : String;
begin
sCodigo  := '10 E1 Z3 S1 12 33 S';
sComando := Converte(sCodigo);
Assignfile(tfCaixa,'COM1'); //Porta: COM1, COM4, etc e tals
Rewrite(tfCaixa);
Writeln(tfCaixa,sComando);
CloseFile(tfCaixa);
end;

function Converte(sCodigo : String): String;
var
sRetorno : String;
nI : integer;
cByte : byte;
begin
sRetorno := '';
for nI := 1 to GetTokenCount(sCodigo,' ') do
try
cByte := StrToInt(GetToken(sCodigo,' ',nI));
sRetorno := sRetorno + chr(cByte);
except
break;
end;
Result := sRetorno;
end;

// hehe..funcao que não acaba mais..
function GetToken(sCadeia, sSeparador: String; iToken: Integer): String;
var
iPosicao: Integer;
begin
while iToken  1 do begin
Delete(sCadeia, 1, Pos(sSeparador,sCadeia) + Length(sSeparador)
- 1);
Dec(iToken);
end;
iPosicao:= Pos(sSeparador, sCadeia);
if iPosicao= 0 then
Result:= sCadeia
else
Result:= Copy(sCadeia, 1, iPosicao- 1);
end;

function GetTokenCount(Cadeia, Separador : String):integer;
var
Posicao:integer;
begin
Posicao:= Pos(Separador,Cadeia);
Result := 1;

if Cadeia  '' then begin
if Posicao 0 then
while Posicao  0 do begin
Delete(Cadeia,1,Posicao);
Posicao:= Pos(Separador, Cadeia);
Inc (Result);
end;
end
else
Result := 0;
end;


Um estimado colega me passou uma vez, nunca testei mas taí a
oportunidade.

Não se esqueça do feedback.

Saudações.

---
[]'s

Alexandre
msn: [EMAIL PROTECTED]

 
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de sweetheart_lovebr
Enviada em: terça-feira, 23 de agosto de 2005 15:08
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Abrir Gaveta de Dinheiro

Como faço para abrir uma gaveta de dinheiro que está ligada diretamente
ao computador sem passar pela impressora usando a dll da bematech?







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Abrir Gaveta de Dinheiro

2005-08-23 Por tôpico FILIPE - GURU 
Tem alguma parecida pra caixa eletrônico???



- Original Message -
From: Emerson Moreno [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 23, 2005 4:00 PM
Subject: Re: [delphi-br] Abrir Gaveta de Dinheiro


Existe uma função da propria dll, que vc terá que declarar e usar de
acordo com sua necessidade. veja no help do bematech que ele ensina
passo a passo como se fazer.

Em 23/08/05, sweetheart_lovebr[EMAIL PROTECTED] escreveu:
 Como faço para abrir uma gaveta de dinheiro que está ligada diretamente
 ao computador sem passar pela impressora usando a dll da bematech?





 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]



 Yahoo! Grupos, um serviço oferecido por:

 
 Links do Yahoo! Grupos

 Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/

 Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]

 O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
 Yahoo!.


--
[]'s

Emerson Moreno
O grande sábio aprende por ensinar!


--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos
















-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: RES: [delphi-br] Abrir Gaveta de Dinheiro

2005-08-23 Por tôpico ArbSis 
Amigão...antes de sair se matando tente isso daqui 
http://sourceforge.net/projects/acbr é um projeto open source e é muito 
bom.la tera o q vc precisa

Alexandre escreveu:

 Estimado(a) sweetheart_lovebr,

 Boa tarde. Sem passar pela dll, você teria que saber a string de comando
 que abre o caixa. Tipo:  10 E1 Z3 S1 12 33 S (sei lá o que) e depois
 convertê-la e passar pra porta onde o caixa está conectado ! (falei
 besteira?)

 Porta do CAIXA: COM1
 String (comando) que abre o caixa: 10 E1 Z3 S1 12 33 S (lê aí o manuel
 do caixa)

 procedure AbrirCaixa;
 var
 tfCaixa : TextFile;
 sComando, sCodigo : String;
 begin
 sCodigo  := '10 E1 Z3 S1 12 33 S';
 sComando := Converte(sCodigo);
 Assignfile(tfCaixa,'COM1'); //Porta: COM1, COM4, etc e tals
 Rewrite(tfCaixa);
 Writeln(tfCaixa,sComando);
 CloseFile(tfCaixa);
 end;

 function Converte(sCodigo : String): String;
 var
 sRetorno : String;
 nI : integer;
 cByte : byte;
 begin
 sRetorno := '';
 for nI := 1 to GetTokenCount(sCodigo,' ') do
 try
 cByte := StrToInt(GetToken(sCodigo,' ',nI));
 sRetorno := sRetorno + chr(cByte);
 except
 break;
 end;
 Result := sRetorno;
 end;

 // hehe..funcao que não acaba mais..
 function GetToken(sCadeia, sSeparador: String; iToken: Integer): String;
 var
 iPosicao: Integer;
 begin
 while iToken  1 do begin
 Delete(sCadeia, 1, Pos(sSeparador,sCadeia) + Length(sSeparador)
 - 1);
 Dec(iToken);
 end;
 iPosicao:= Pos(sSeparador, sCadeia);
 if iPosicao= 0 then
 Result:= sCadeia
 else
 Result:= Copy(sCadeia, 1, iPosicao- 1);
 end;

 function GetTokenCount(Cadeia, Separador : String):integer;
 var
 Posicao:integer;
 begin
 Posicao:= Pos(Separador,Cadeia);
 Result := 1;

 if Cadeia  '' then begin
 if Posicao 0 then
 while Posicao  0 do begin
 Delete(Cadeia,1,Posicao);
 Posicao:= Pos(Separador, Cadeia);
 Inc (Result);
 end;
 end
 else
 Result := 0;
 end;


 Um estimado colega me passou uma vez, nunca testei mas taí a
 oportunidade.

 Não se esqueça do feedback.

 Saudações.

 ---
 []'s

 Alexandre
 msn: [EMAIL PROTECTED]


 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 Em nome de sweetheart_lovebr
 Enviada em: terça-feira, 23 de agosto de 2005 15:08
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Abrir Gaveta de Dinheiro

 Como faço para abrir uma gaveta de dinheiro que está ligada diretamente
 ao computador sem passar pela impressora usando a dll da bematech?







 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]



 *Yahoo! Grupos, um serviço oferecido por:*


 
 *Links do Yahoo! Grupos*

 * Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/

 * Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
   mailto:[EMAIL PROTECTED]

 * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
   Serviço do Yahoo! http://br.yahoo.com/info/utos.html.






___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Abrir Gaveta de Dinheiro

2004-09-14 Por tôpico sweetheart_lovebr 
Olá pessoal,

   Alguém sabe me dizer qual o comando para abrir uma gaveta de 
dinheiro e como saber se ela estar aberta?

Desde já, Obrigado.



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Abrir Gaveta de Dinheiro

2004-09-14 Por tôpico Oseias 
Não existe isto, comando que abre gaveta.
Vai depender como é esta gaveta.
Ela é ligada na serial?
Na ECF?

--
Oséias.

- Original Message - 
From: sweetheart_lovebr [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, September 14, 2004 11:15 AM
Subject: [delphi-br] Abrir Gaveta de Dinheiro


Olá pessoal,

   Alguém sabe me dizer qual o comando para abrir uma gaveta de
dinheiro e como saber se ela estar aberta?

Desde já, Obrigado.




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Abrir Gaveta de Dinheiro

2004-09-14 Por tôpico Anderson Luiz 

depende da impressora, no manual vc encontra

__
Anderson Luiz
Programador de Sistemas
[EMAIL PROTECTED]
www.celcar.com.br
(21) 2601-3208 / 8715-9247



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html