QRCODE começando.

[porter]

ola pessoal, estou tentando imprimir QRCODE, nunca fiz isso, compilei essa rotina que achei aqui no forum com o xHarbour, mas esta muito longe de começar a dar certo, por favor, alguem pode me dar uma luz para começar, nao faço a minima ideia como se imprime QRCODE, devo usar alguma DLL ?
obrigado.

Código: Selecionar todos

FUNCTION MAIN()
QRCODE8()


STATIC FUNCTION QRCODE8( QUAL, cXML )

**
* STRING com a linha de dados do QRCode - juntando as variáveis acima separadas pelo pipe.
* Exemplo: "35141146377222003730599000004630001158179941|20141105134922|10.00|61694805808|m+4o8FY1lig1zcy6VU3t7INVwE6kiA/ykLXKDFZfb9gu0g4wl3Fk2HYaRhSt8G+yk9mP/R65m3R7V2IO8CxnmO1oVtlamB6UKA+UZZqDNEqtYlhQzLySNzMG0thaNMZsq5RxmQ3eQLPw8LLez3MqWvUveFXNSSq6AGEX2+KOdavteo3K2L06SQoVIjwkmcgRzqhfHP3y8t2wfr1nw/WAnaCF9ZY/K4dTykk3hsXcan/MKCTBlcSOhNgSh3sdsQHpl2w2tmbLBsYBLFkuvKlwzHarNJQ1RfRznGdojHglQH1KVtbAUXKke54pdRt3JL7nJlR+Lbmtd2tjcT2vRyTepw=="
**
	LOCAL x_TmStp := "20141105134922"
	LOCAL x_Chave := "35141146377222003730599000004630001158179941"
	LOCAL x_Valor := "10.00"
	LOCAL x_CNPJ  := ""
	LOCAL x_Ass   := "m+4o8FY1lig1zcy6VU3t7INVwE6kiA/ykLXKDFZfb9gu0g4wl3Fk2HYaRhSt8G+yk9mP/R65m3R7V2IO8CxnmO1oVtlamB6UKA+UZZqDNEqtYlhQzLySNzMG0thaNMZsq5RxmQ3eQLPw8LLez3MqWvUveFXNSSq6AGEX2+KOdavteo3K2L06SQoVIjwkmcgRzqhfHP3y8t2wfr1nw/WAnaCF9ZY/K4dTykk3hsXcan/MKCTBlcSOhNgSh3sdsQHpl2w2tmbLBsYBLFkuvKlwzHarNJQ1RfRznGdojHglQH1KVtbAUXKke54pdRt3JL7nJlR+Lbmtd2tjcT2vRyTepw=="

	LOCAL x_URL_QrCode, iTamanho, iLow, iHigh, iCount, ComandoQR

	x_URL_QrCode = x_Chave+"|"+x_TmStp+"|"+x_Valor+"|"+x_CNPJ+"|"+x_Ass
**

/*
  BYTES PARA COMPOR O QRCODE
*/
	iTamanho := Len( x_URL_QrCode ) + 3
	iLow     := MOD( iTamanho, 256 )
	iHigh    := iTamanho / 256
	
        @ PROW(),0 SAY CHR(29) + "h" + CHR(60) && Altura do código de barras
        @ PROW(),0 SAY CHR(29) + "w" + CHR(2)  && Largura das barras
        @ PROW(),0 SAY CHR(29) + "H0"          && Apresentação numérica do código DE BARRAS / H0 = INIBE, H2 = MOSTRA
      
        * Imprime o Code128C com 44 algarismos
	ComandoQR := CHR(29) + CHR(107) + CHR(73) + CHR(24) + "{C"
        For iCount = 0 To 22
                ComandoQR += CHR( VAL( SUBSTR( x_Chave, (iCount * 2) + 1, 2 ) ) )
	Next
	@ PROW()+2,0 SAY ComandoQR
        * Fim da impressão do Code128C

        * Impressão do QRCode
	@ PROW()+1,0 SAY CHR(29) + "(k" + CHR(iLow) + CHR(iHigh)+CHR(49)+CHR(80)+CHR(48)+ x_URL_QrCode && QRCode PROPRIAMENTE DITO

	@ PROW()+1,0 SAY CHR(29) + "(k"+ CHR(3)+CHR(0)+CHR(49)+CHR(81)+CHR(48)
Return Nil

[rochinha]

Amiguinhos,

Porter,

Olha a mágica: https://pctoledo.org/forum/search.php?keywords=qrcode&terms=all&author=rochinha&sc=1&sf=all&sr=posts&sk=t&sd=d&st=0&ch=300&t=0&submit=Busca

Nestas discussões nós utilizamos DLL gratuitas e etc.

[porter]

Rochinha, acessei o topico que você sugeriu, e em seguida acessei o post abaixo, fui acompanhando, e vi que podia instalar o HBNFe, executei o emulador SAT-CFe normalmente mas tanto o Ativação SAT-CFe como o Aplicativo Comercial ao tentar executar da a seguinte mensagem:
'Não foi possível se conectar ao SAT-FISCAL, o programa não ira iniciar!
Li mais adiante que esse emulador não roda no Windows 64 bits, é isso mesmo, se for isso qual emulador você sugere para fazer teste com NFC-e ?


viewtopic.php?f=20&t=13668&start=30#p95543

[rochinha]

Amiguinhos

Meu Windows é 64bits e executo normalmente as ultimas versões do Emulador 2.8.10 ou 2.8.12.

Ao baixar o Emulador SAT-CFe voce poderá abrí-lo e encontrar uma pasta chamada SAT, o arquivo Setup-Emulador_OffLine_v2_8_10.exe, Setup-Ativacao_v2_2_5.exe, Setup-AC_v2_2_5.exe. Você só precisará do primeiro e segundo arquivos.

Instale o Setup-Emulador_OffLine_v2_8_10.exe e o Setup-Ativacao_v2_2_5.exe normalmente. De preferência escolha instalar numa pasta chamada C:\SAT-CFe, voce ficará mais aconfortável em entender como funciona o emulador.

Suas pastas depois da instalação ficarão:

SAT-CFe
|--------Emulador
|
|--------Ativacao

Entre na pasta SAT-CFe\Emulador e execute o Emulador SAT-CFe.jar e reserve(quer dizer minimize).

Entre na pasta SAT-CFe\Ativacao e execute o Ativacao.jar e configure assim:

No menu de botões

- Clique em Ativar o SAT;
- CNPJ preencha com 1;
- Código de ativação coloque 123456789
- Repita o código de ativação 123456789
- Clique em Clique aqui para ativar
- Feche a tela

No menu de botões

- Clique em Associar Assinatura
- CNPJ do Contribuinte preencha com 1;
- CNPJ da Software House digite o seu CNPJ ou de seu cliente.
- No campo assinatura AC voce vai colocar uma string com 344 caracteres da seguinte forma:
Abra o notepad;
digite 14 numeros 1;
digite o o seu CNPJ ou de seu cliente sem pontuação alguma;
selecione estes 28 caracteres;
recorte e cole umas 14 vezes;
volte o cursor e posicione em 345;
apague os caracteres após o 345;
selecione os 344 numeros restantes;
- Cole os 344 espartanos(quer dizer caracteres) no campo Assinatura AC
- Clique em Enviar Assinatura

Pronto, depois destes passos com certeza o emulador estará preparado para funcionar.

Lembre-se que falei da pasta SAT dentro do emuladorxxx.zip. Esta pasta contém as DLLs de comunicação e elas devem ser colocava no campo de visão de seu sistema.

Exemplo:

Seu sistema esta na pasta sistema, então jogue as DLLs nesta pasta e em seu sistema comando LoadLib( "c:\sistema\sat.dll" ) ou LoadLib( "sat.dll" ). Elas só são necessárias na pasta C:\SAT para o uso do Ativacao.jar e AC.jar. Para o caso de uso somente com sua aplicação e o emulador você pode colocá-las na pasta de seu sistema.

Mãos a óbra.

[porter]

bom dia Rochinha, fiz a instalação na pasta SAT-CFe. criou as duas pastas corretamente, mas quando entro na pasta SAT-CFe\Emulador e Ativacao e executo o arquivo .jar, da erro dizendo que Arquivo de Configuracoes no foi encontrado e Não foi possivel se conectar ao SAT-FISCAL, o programa nao ira iniciar, acompanhei passo a passo o que você passou mas nao deu certo.

SAT-CFe
|--------Emulador
|
|--------Ativacao


Entre na pasta SAT-CFe\Emulador e execute o Emulador SAT-CFe.jar e reserve(quer dizer minimize).
erro: Arquivo de Configurações não foi encontrado

Entre na pasta SAT-CFe\Ativacao e execute o Ativacao.jar e configure assim:
Não foi possivel se conectar ao SAT-FISCAL, o programa não ira iniciar !

obrigado.

[Jairo Maia]

Porter, dentro da pasta Emulador tem uma pasta chamada SAT. Copie essa pasta para a unidade raiz C:\

[porter]

Ola Jairo, copiei a pasta SAT para C:\, acho que está quase dando certo.

aqui deu certo:
Entre na pasta SAT-CFe\Emulador e execute o Emulador SAT-CFe.jar e reserve(quer dizer minimize).
-----------------------------------------------------------------------------------------------------------------------

Agora quando executo o passo abaixo, continua dando a mensagem de erro:

Entre na pasta SAT-CFe\Ativacao e execute o Ativacao.jar e configure assim:

Não foi possivel se conectar ao SAT-FISCAL, o programa não ira iniciar !

[Jairo Maia]

Olá Porter,

Isso é porque tem coisa faltando. Siga as instruções desse manual: MANUAL DE INSTALAÇÃO DO EMULADOR

[rochinha]

Amiguinhos,

Porter
Execute primeiro o Emulador e veja se ele acusa, estar esperando comandos e só depois execute a Ativação.jar.

Se o emulador não subir a ativação mostra este erro.

Como o Jairo Maia postou, realmente é necessário a pasta C:\SAT com as SAT*.dll nela. O Emulador sobe e cria automaticamente outras pastas dentro dela.