GAVETA DE PDV MENNO - AJUDA.
Tenho uma gaveta instalada da marca MENNO modelo MG-40AC e tenho um código em VB para fazer a abertura da gaveta. Pore isso não esta acontecendo.
o código:
Private Declare Function GavetaConfigura Lib "Ghdl32" (ByVal pulso As Integer, ByVal min As Integer) As Long
Private Declare Function DriverGaveta Lib "Ghdl32" (ByVal p As Integer, ByVal f As Integer) As Long
'Declaracao da variavel que indica a porta serial
Public serial As Integer
'Declaracao das variáveis para configuracao da GAVETA MENNO
Public m1, p1 As Integer
'Constantes de parametros da funcao DriverGaveta
Const GAVETA_INICIALIZA = 1
Const GAVETA_ABRE = 2
Const GAVETA_ESTADO = 3
Public Sub abrir_gaveta()
Dim i, resp As Integer
DriverGaveta serial, GAVETA_ABRE
End Sub
Public Sub status_gaveta(gav_stat As Label)
Dim funcao As Integer
funcao = DriverGaveta(serial, GAVETA_ESTADO)
If funcao = 2 Then
gav_stat.Caption = "Status da gaveta: ABERTA"
ElseIf funcao = 1 Then
gav_stat.Caption = "Status da gaveta: FECHADA"
ElseIf funcao = -1 Then
gav_stat.Caption = "Status da gaveta: NAO INICIALIZADA"
ElseIf funcao = -2 Then
gav_stat.Caption = "Status da gaveta: PORTA INVALIDA"
ElseIf funcao = -3 Then
gav_stat.Caption = "Status da gaveta: FUNCAO INVALIDA"
End If
End Sub
Public Sub gav_serial_1()
serial = 1
DriverGaveta serial, GAVETA_INICIALIZA
' MsgBox "Drivergavetaserial inicia gaveta"
p1 = 150
m1 = 3500
GavetaConfigura p1, m1
' MsgBox "gaveta configu"
End Sub
Public Sub gav_serial_2()
serial = 2
DriverGaveta serial, GAVETA_INICIALIZA
p1 = 150
m1 = 3500
GavetaConfigura p1, m1
End Sub
a DLL ghdl32.dll esta instalada na pasta \windows\system pq é win98. E já instalei a DLL na pasta da aplicação. Qdo chamo a função abre_gaveta, a gaveta não abre. Porem, ao iniciar a aplicação, chamo a função gav_serial_1 e a gaveta abre.
As dllÂÂÂ's são:
(1) - Libserial.dll
(2) - ghdl32.dll
Desde já, agradeço atenção de todos
Abs..
voce esta utilizando esta gaveta acoplada a uma impressora fiscal
se esse for o seu caso
a gaveta deverá, estar ligada no conector rj11 que esta atráz da impressora, e a propria impressora fiscal vai enviar o comando para acionar a solenoide da gaveta. por exemplo impressoras fiscais da marca NCR o comando eh 21
porém se o seu caso for uma gaveta independente, mesmo assim vale a pena ligar a mesma na saida da impressora, eu acredito que voce esteja utilizando impressoras de bobinas ( como bematech, mecaf, daruma, etc.. ) essas impressoras possuem o mesmo disposito de acionamento das impressoras fiscais
espero ter ajudado
abçs
Citação:FLAVIOALBIERO escreveu:
Idelvan,
voce esta utilizando esta gaveta acoplada a uma impressora fiscal
se esse for o seu caso
a gaveta deverá, estar ligada no conector rj11 que esta atráz da impressora, e a propria impressora fiscal vai enviar o comando para acionar a solenoide da gaveta. por exemplo impressoras fiscais da marca NCR o comando eh 21
porém se o seu caso for uma gaveta independente, mesmo assim vale a pena ligar a mesma na saida da impressora, eu acredito que voce esteja utilizando impressoras de bobinas ( como bematech, mecaf, daruma, etc.. ) essas impressoras possuem o mesmo disposito de acionamento das impressoras fiscais
espero ter ajudado
abçs
Bom dia Flávio. Obrigado pelo seu post.
As impressoras são Mecaf e utilizam a porta LPT1.
Citação:FLAVIOALBIERO escreveu:
Idelvan, na parte de tras da impressora deve ter um saida RJ11 igual ao um conector de telefone, se a impressora tiver essa saida o ocionamento da gaveta será feito por ela
Flavio..
A Impressora é LPT1 40 colunas e a gaveta é acionada via serial (COM1/COM2).
O fabricante pede para que o projeto seja compilado em P-CODE e as declarações da DLLÂÂÂ's tem q ser em um FORM e não em um MODULE.
Obrigado a todos.