GAVETA DE DINHEIRO

ANDYSARAGIOTTO 09/06/2015 22:17:35
#447571
BOA NOITE PESSOAL
ALGUEM AI TEM UM CODIGO GENERICO PARA ABERTURA DA GAVETA DE DINHEIRO?
TENHO CLIENTES QUE TEM IMPRESSORA FISCAL E NAO FISCAL DE VARIAS MARCAS E MODELOS
CADA UMA é UM CODIGO DIFERENTE? ALGUEM TEM PELO MENOS OS CODIGOS DAS IMPRESSORAS MAIS USADAS?
KURTGU 10/06/2015 01:02:46
#447577
AS MAIS USADAS E SO PESQUISAR QUE TEM EXEMPLOS....

http://www.bematech.com.br/

http://www.daruma.com.br/home.php
ANDYSARAGIOTTO 15/06/2015 10:25:14
#447714
pessoal como faz para abrir a gaveta de dinheiro e cortar cupons (guilhotina) nos modelos:
ELGIN WIND TP 3000
DARUMA DR700 AMBAS NAO FISCAL
LOOZE 15/06/2015 18:56:39
#447744 Resposta escolhida
ABRIR A GAVETA

  
        LPT = FreeFile
        Open [Ô]PortadaIMPRESSORA[Ô] For Output As #LPT
        
        If Impressora = [Ô]BEMATECH[Ô] Then
            Print #LPT, Chr$(27) + Chr$(118) + [Ô]2[Ô]
            Print #LPT, Chr$(27) + Chr$(118) + Chr$(140)
        ElseIf Impressora = [Ô]DARUMA[Ô] Then
            Print #LPT, Chr$(27) + Chr$(112)
        ElseIf Impressora = [Ô]EPSON[Ô] Then
            Print #LPT, Chr$(27) + Chr$(112) + Chr$(0) + Chr$(48) + Chr$(0) + Chr$(255)
        ElseIf Impressora = [Ô]ELGIN[Ô] Then
            Print #LPT, Chr$(27) + Chr$(118) + [Ô]n[Ô]
            Print #LPT, Chr$(27) + Chr$(118) + Chr$(110)
        Else
            Print #LPT, Chr$(27) + Chr$(118) + [Ô]2[Ô]
            Print #LPT, Chr$(27) + Chr$(118) + Chr$(140)
            Print #LPT, Chr$(27) + Chr$(112)
            Print #LPT, Chr$(27) + Chr$(112) + Chr$(0) + Chr$(48) + Chr$(0) + Chr$(255)
        End If
        Close #LPT


[ô]ACIONAR GUILHOTINA

  
        LPT = FreeFile
       Open Porta For Output As #LPT
        If Impressora = [Ô]BEMATECH[Ô] Then
            Print #1, Chr(27) + Chr(119)
        ElseIf Impressora = [Ô]DARUMA[Ô] Then
            Print #1, Chr(27) + Chr(109)
        ElseIf Impressora = [Ô]EPSON[Ô] Then
            Print #1, Chr$(&HA);
            Print #1, Chr$(&H1D); [Ô]V[Ô]; Chr$(66); Chr$(0);
        End If
        Close #LPT
ANDYSARAGIOTTO 13/05/2016 07:42:44
#462046
maravilha pessoal, agora sera que alguem tem os codigos para deixar o texto em negrito para impressoras nao fiscais, DARUMA, BEMATECH, ELGIN, ETC?
Tópico encerrado , respostas não são mais permitidas
Voltar