Gerar código de rastreio e etiqueta com acesso ao site.

[Itamar M. Lins Jr.]

Olá!
Preciso gerar um código para rastreio, neste molde: "PQHB4BN7VHFRKRQP" ou uma melhor opção que isso.
São códigos randômicos. E vou precisar imprimir em QR code.

Saudações,
Itamar M. Lins Jr.

[alxsts]

Olá!

Curiosidade: não é o Correio que gera o código de rastreio?

[Itamar M. Lins Jr.]

Olá!
Não, qualquer código pode ser gerado.
No QR code vai a URL do site que abre e mostra. Rastreio pode ser de qualquer coisa. Mas neste caso é para produtos orgânicos.

Saudações,
Itamar M. Lins Jr.

[Fernando queiroz]

ja tentou usando a sefazclass, ela gera o QR para o cupom fiscal , deve servir para o que voce esta querendo

[Itamar M. Lins Jr.]

Olá!
Testei aqui no Linux, e acredito ser impossível um código de 16 dígitos (letras) se repetir.
65 até 90 é o alfabeto em maiúsculas. Com a tabela ASCII Pagina 437

Código: Selecionar todos

Function main
local cStr := "", n
for n:=1 to 16
   cStr += chr( hb_randomint(65,90) )
next
? cStr 
inkey(0)
return nil

Boa dica ai da QR code da SefazClass. É isso mesmo! Vou ver lá como é.

Saudações,
Itamar M. Lins Jr.

[alxsts]

Olá!

Tem alguma coisa neste tópico: SOLUCAO: Geração de QRCode, iniciado pelo Rochinha.

Pesquise também sobre Google Charts.

[Itamar M. Lins Jr.]

Olá!
Vai precisar antes de tudo a cooperativa ou empresa ter um DOMÍNIO. rsrsrs!

Por isso eu tenho estudado um pouco de cada coisa, para ter uma visão de todo o processo.
São produtos que tem na "DISPENSA" (produtos da cozinha) vamos dizer assim, entra X(açúcar, nibles) produtos, e sai 1 produto.(bolo ou chocolate) por exemplo.
Já fiz programa para Bares, receita dos pratos... fiz algumas coisas para Internet (teste pequenos), e agora apareceu mais essa de rastrear via QR Code, pois produtos orgânicos precisam de uma série de quesitos a serem respeitados.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

o QRCode deixa qualquer coisa, pode ser muito texto.
Conforme o texto aumenta, o QRCode diminui de tamanho (nos detalhes dele).
Na Sefazclass uso pra tudo que é danfe.

Provavelmente está no DaDfeGeral, que é a rotina pra tudo que é DFE.

[Itamar M. Lins Jr.]

Olá!
Dei um UP na função! Pega números e letras

Código: Selecionar todos

Function main
local cStr := "", n
local cSeed := "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"

for n:=1 to 16    
   cStr += substr( cSeed, hb_randomint(1,36),1)
next

? cStr 
inkey(0)
return nil

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

ze_sefazdfe

Código: Selecionar todos

METHOD DrawBarcodeQRCode( nX, nY, nLineWidth, cCode, nFlags )

   LOCAL nLineHeight, hZebra

   hZebra := hb_Zebra_Create_QRCode( cCode, nFlags )
   nLineHeight := nLineWidth
   IF hb_Zebra_GetError( hZebra ) == 0
      hb_Zebra_Draw( hZebra, { | x, y, w, h | HPDF_Page_Rectangle( ::oPDFPage, x, y, w, h ) }, nX, nY, nLineWidth, -nLineHeight )
      HPDF_Page_Fill( ::oPDFPage )
      hb_Zebra_Destroy( hZebra )
   ENDIF

   RETURN NIL

É como se a hb_Zebra criasse um array, executado por codeblock, contendo coordenadas, altura e largura de cada retângulo.
Apenas colocamos a rotina que vai desenhar usando esses parâmetros.
Nesse caso é a função da harupdf que desenha retângulos.

Poderia ser na tela, na impressora, etc.

[Itamar M. Lins Jr.]

Olá!
Depois irei fazer os testes.
Para quando ler o QR code pelo celular, abrir um link preestabelecido para consulta...
Agora estou montando outras telas. Juntando 5 programas em apenas 1.

Saudações,
Itamar M. Lins Jr.

[ANDRIL]

Para quando ler o QR code pelo celular, abrir um link preestabelecido para consulta...

Basta gerar o QR code com a url, eu sempre coloco o prefixo https: ou http: no link, assim garante que o leitor do celular já identifique como link. Exemplo do conteúdo do QR code

http://www.meusite.com.br/index.php?&q=1234567890ABCDEF

Com este conteúdo, o seu index.php recebe via GET a string contida em 'q' para voce fazer a pesquisa e assim já mostra o resultado na tela.