PROJETO S@T-FISCAL

 Tópico anterior Próximo tópico Novo tópico

PROJETO S@T-FISCAL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#490172 - 23/08/2019 17:08:19

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Pessoal Alguém conseguiu Imprimir QRcod na NitereQ3x
eu to tentando, mais não vai

  
'Uso essa função Para Gerar o QR  
Public Function RetornaQRCode(ByVal Codigo As String) As String
        Dim Cmd As String
        Dim iHigh, iLow As Integer
        Dim Modelo, Modulo, Correcao As Integer
        Static bTamanho As Byte

        iHigh = (Codigo.Length + 3) / 256
        iLow = (Codigo.Length + 3) Mod 256
        bTamanho = LeArquivoINI(nome_arquivo_ini, "posesc", "qrcodtamanho", 3)

        Modelo = 50 '49 - Modelo 1, 50 - Modelo 2
        Modulo = bTamanho  ' 5 'Tamanho do Módulo do QRCode (altera o tamanho do código), varia de 1 a 16
        Correcao = 49 'Nível de correção do QRCode: 48 - Nível L, 49 - Nível M, 50 - Nível Q, 51 - Nível H

        Cmd = Chr(29) + Chr(40) + Chr(107) + Chr(4) + Chr(0) + Chr(49) + Chr(6) + Chr(Modelo) + Chr(0)
        Cmd = Cmd + Chr(29) + Chr(40) + Chr(107) + Chr(3) + Chr(0) + Chr(49) + Chr(67) + Chr(Modulo)
        Cmd = Cmd + Chr(29) + Chr(40) + Chr(107) + Chr(3) + Chr(0) + Chr(49) + Chr(69) + Chr(Correcao)

        Cmd = Cmd + Chr(29) + Chr(40) + Chr(107)
        Cmd = Cmd + Chr(iLow) + Chr(iHigh)
        Cmd = Cmd + Chr(49) + Chr(80) + Chr(48)
        Cmd = Cmd + Codigo

        Cmd = Cmd + Chr(29) + Chr(40) + Chr(107) + Chr(3) + Chr(0) + Chr(49) + Chr(81) + Chr(48)
        Cmd = Cmd + Chr(12)

        Return Cmd
    End Function

'esse comando envia para Impressora (pnum = valor do QrCod, nome impressora = Porta da Impressora devidamente aberta)
            PrintCmd(RetornaQRCode(Pnum), NomeImpressora) 'imprime QRcod


consegui quase tudo
só falta imprimir QRcod e abrir gaveta, todo restante já consegui

não consigo entender o manual dessa bendita impressora

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#490382 - 10/09/2019 17:35:20

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Pessoal Outra Coisa, alguém esta tendo falha na continuidade dos Cupons, tenho vários clientes que o números dos Cupons do Nada Pula 1 ou 2 Números seguentes, criando falha na continuidade, existe algo, para corrigir isso?

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#490387 - 11/09/2019 01:48:50

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Citação:
  Pessoal Outra Coisa, alguém esta tendo falha na continuidade dos Cupons, tenho vários clientes que o números dos Cupons do Nada Pula 1 ou 2 Números seguentes, criando falha na continuidade, existe algo, para corrigir isso?

Não encontrei até agora, meu sistema confere ao final do mês, se pular a numeração, entramos na sefaz e recuperamos.



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário