MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Comandos para abrir gaveta automática

    avatar
    oliveiraferraz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 26/09/2012

    [Resolvido]Comandos para abrir gaveta automática Empty [Resolvido]Comandos para abrir gaveta automática

    Mensagem  oliveiraferraz 11/7/2023, 22:29

    Senhores, boa noite.

    Alguém possuem algum exemplo de comando para abrir gaveta de dinheiro automática Bematech?

    Sd

    Oliveira
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Comandos para abrir gaveta automática Empty Re: [Resolvido]Comandos para abrir gaveta automática

    Mensagem  JPaulo 12/7/2023, 11:59

    Não sei se funciona, mas se testar não se perde nada;

    Código:
    Private Sub AbreCaixa()
    On Error GoTo Errorhandler
    Dim PortaLocal As String

    PortaLocal = "Com4" 'Substitua Com4 pela porta COM que você está usando. Exemplo é Com3, Com2, etc.....

    Open PortaLocal & ":9600,n,8,1" For Output As #1
    Print #1, "" 'Isto está apenas enviando um sinal como se estivesse imprimindo algo, mas não é.
    Close #1

    Exit Sub
    Errorhandler:
    MsgBox "Error " & Err.Number & ": " & Err.Description & " in " & _
    VBE.ActiveCodePane.CodeModule, vbCritical, "Erro no AbreCaixa"
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Comandos para abrir gaveta automática Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Comandos para abrir gaveta automática Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Comandos para abrir gaveta automática Folder_announce_new Instruções SQL como utilizar...
    avatar
    oliveiraferraz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 26/09/2012

    [Resolvido]Comandos para abrir gaveta automática Empty Re: [Resolvido]Comandos para abrir gaveta automática

    Mensagem  oliveiraferraz 26/7/2023, 21:33

    Olá, desculpa a demora no retorno tive uns pequenos emprevistos deslocamentos entre cidades e outros aqui.
    Mas funcionou em pleno.
    avatar
    oliveiraferraz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 26/09/2012

    [Resolvido]Comandos para abrir gaveta automática Empty Re: [Resolvido]Comandos para abrir gaveta automática

    Mensagem  oliveiraferraz 26/7/2023, 21:34

    Muito obrigado pela atenção.

    Conteúdo patrocinado


    [Resolvido]Comandos para abrir gaveta automática Empty Re: [Resolvido]Comandos para abrir gaveta automática

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/5/2024, 13:15