Página 3 de 4

FUNÇÃO BITRSHIFT()

Enviado: 25 Ago 2016 10:51
por HASA
:?
Kapi, o app de olho na nota diz: O formato dos dados do qrcode é invalido.
:(
HASA

FUNÇÃO BITRSHIFT()

Enviado: 25 Ago 2016 11:01
por Kapiaba
O formato dos dados do QRCode é inválido
O QRCode é uma forma de representação de informação bidimensional. No caso do SAT, a
informação representada possui regras, e que incluem, por exemplo, a quantidade de campos
e os marcadores de separação dos campos.
Quando o aplicativo QRCode não consegue extrair as informações de que precisa, ou verifica
que a quantidade de campos não está correta, este erro é apresentado.
Na maioria das vezes, é o Aplicativo Comercial quem gerou o QRCode de forma incorreta.
Portanto, este é um dos poucos casos, em que o equipamento SAT definitivamente não seria o
responsável pelo erro.
http://www.fazenda.sp.gov.br/sat/duvida ... QRCode.pdf

http://www.projetoacbr.com.br/forum/top ... ogle-play/

http://forums.fivetechsupport.com/viewt ... =6&t=31249

Sua rotina está errada, reveja.

FUNÇÃO BITRSHIFT()

Enviado: 25 Ago 2016 12:05
por HASA
kapi, aumentado o tamanho do QrCode ( IMAGEM ABAIXO ), mesmo assim não reconhece: Veja acredito que o código abaixo tem algum erro, esse é o código que estou utilizando para compor o código de barras e o Qrcode ok:

Código: Selecionar todos

**
* 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
HASA

FUNÇÃO BITRSHIFT()

Enviado: 25 Ago 2016 12:49
por Kapiaba
Hasa, eu não estou entendendo, QRCODE não é uma IMAGEM? Onde você gerou a IMAGEM: *.JPG ou *.BMP ou *.PNG?

Se você usa alguma linguagem visual, como a tal de minigui, ela não tem suporte para gerar o QRCODE em *.JPG ou *.PNG?

Se entendi seu código você está imprimindo o QRCODE como um texto, é isso ou eu tô louco? O Leitor de QRCODE, que eu saiba, LÊ uma Imagem, como se fosse uma FOTO, com os dados dos lançamentos no cupom.

Averigue isso.

FUNÇÃO BITRSHIFT()

Enviado: 25 Ago 2016 13:16
por HASA
:?

Kapi, continua dando o mesmo erro, estou utilizando um celular lg com android 4.4.2 e o app de olho na nota.

Estarei saindo agora para visita, a luta continua... depois...

:(Neg

HASA

FUNÇÃO BITRSHIFT()

Enviado: 25 Ago 2016 13:19
por HASA
:-o :-O

Kapi, envio para impressora Epson TMT20 ou Elgin I9 utilizando essa linha

Código: Selecionar todos

 @ PROW()+1,0 SAY CHR(29) + "(k" + CHR(iLow) + CHR(iHigh)+CHR(49)+CHR(80)+CHR(48)+ x_URL_QrCode && QRCode PROPRIAMENTE DITO
não é lib gráfica é código mesmo.

Está no código acima ok

HASA

FUNÇÃO BITRSHIFT()

Enviado: 25 Ago 2016 14:54
por Kapiaba
Meu querido amigo, você não leu o exemplo que te enviei, em modo console não tem como fazer, pelo menos foi o que me passaram, por isso desenvolvi aquela rotina em modo FOR WINDOWS, o dono do programa em MODO CONSOLE(eca) gera o .TXT (anexo) e o programa FOR WINDOWS(meu) gera a IMAGEM, para o leitor de QRCODE. Leia a função e passe como parâmetros no seu em modo console, chamando o meu(.EXE junto), que você vai entender.

Abs

FUNÇÃO BITRSHIFT()

Enviado: 26 Ago 2016 11:33
por HASA
:?
Kapi, na verdade imprimo via MINIGUI o que ocorre é vamos dizer assim é um conceito de imprimir FORTES ( Grafico ) e ESCPOS ( direto na impressora meu caso ). Eu imprimo com lib grafica no formato ESCPOS, ok.

- Veja esse link http://www.projetoacbr.com.br/forum/top ... 3o-escpos/ o AcbrMonitorPlus imprime no 2 formatos ok.

Mas... vou considerar imprimir somente em FORTES ( imagem ).

Valeuuuu,

HASA

FUNÇÃO BITRSHIFT()

Enviado: 26 Ago 2016 11:47
por Kapiaba
Será que vai funcionar? O nome já diz tudo: MINI. kkkkkkkkkkkkkkkkkkkk, boa sorte!

FUNÇÃO BITRSHIFT()

Enviado: 26 Ago 2016 11:59
por HASA
Não subestime a MINI ela e GRANDE....
8-|
HASA

FUNÇÃO BITRSHIFT()

Enviado: 26 Ago 2016 12:20
por Kapiaba
:D :)) :D :)) 8-| só brincando, pra você relaxar. Não posso falar mal, do que não conheço né? abs.

FUNÇÃO BITRSHIFT()

Enviado: 26 Ago 2016 17:34
por HASA
Kapi, sem problemas.

:)Pos :-Y :{ :xau

Obrigado pela ajuda.

HASA

FUNÇÃO BITRSHIFT()

Enviado: 26 Ago 2016 20:03
por janio
Hasa,

Vc conseguiu gerar o QR-Code?

Janio

FUNÇÃO BITRSHIFT()

Enviado: 29 Ago 2016 11:00
por HASA
:))

- Kapi, não veio junto com o qrcode.zip o Codebar.ch.

- Janio, consigo sim, tanto em ESCPOS ( tipo Clipper ) como FORTES ( modo gráfico ), ok. Estou muito propenso a para com o modo ESCPOS ( o que vem dando o problema de leitura ) e indo para o mode FORTES que o Kapi deu a dica ok.

:)Pos

HASA

FUNÇÃO BITRSHIFT()

Enviado: 29 Ago 2016 11:39
por Kapiaba

Código: Selecionar todos

#include "hbzebra.ch" 

#define CODEBAR_EAN13          1
#define CODEBAR_EAN8           2
#define CODEBAR_UPCA           3
#define CODEBAR_UPCE           4
#define CODEBAR_ITF            5
#define CODEBAR_MSI            6
#define CODEBAR_CODABAR        7
#define CODEBAR_CODE11         8
#define CODEBAR_CODE39         9
#define CODEBAR_CODE93         10
#define CODEBAR_CODE128        11
#define CODEBAR_PDF417         12
#define CODEBAR_DATAMATRIX     13
#define CODEBAR_QRCODE         14

#define CODEBAR_TYPE           1
#define CODEBAR_BLOCK          2

#define DEFAULT_CODEBAR        CODEBAR_PDF417
Abs.