Função para gerar Código de Barras

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 27 Jul 2007 09:30

Blz, Leo recebi vou testar

abs, Té +

Mensagem por **sygecom** » 27 Jul 2007 11:59

Gilberto M Silva escreveu:Blz, Leo recebi vou testar

abs, Té +

Qualquer coisa prende o grito....

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 28 Jul 2007 16:14

set printer to C:\barras.prn
set device to printer
@ prow(),pcol() say "$IMP$=1;$SPO$=SIS;" // 1=impressora padrao,SIS=nome spooler
@ PROW()+1,0 SAY ""

IF vRESP="I"
@ PROW()+vLIN,05 SAY vNOM
***@ prow()+2,05 say ["C]+vbarra+[;T7;A13;O0"]
@ prow()+1,0 say "" // para o PRWIN entender que o relat¢rio acabou
ENDIF

SET PRINTER TO
set device to screen
NETCANCEL("LPT1")

Leonardo, o caracter ANCII da linha marcada é que letra?
pois o e-mail saiu pior, com vários caracteres ANCII.

Gilberto.

Mensagem por **sygecom** » 28 Jul 2007 16:20

IF vRESP="I"
@ PROW()+vLIN,05 SAY vNOM // nome do funcionario
***@ prow()+2,05 say [CHR(27)"C]+vbarra+[;T7;A13;O0"]
@ prow()+1,0 say "" // para o PRWIN entender que o relat¢rio acabou
ENDIF

Mensagem por **Maligno** » 28 Jul 2007 16:22

[CHR(27)"C]

Ele está perguntando que caractere é esse do quadradinho.

Mensagem por **Maligno** » 28 Jul 2007 16:23

Apesar de que isso não compilaria nunca, pelo erro de sintaxe. Por isso deve estar comentado.

Mensagem por **sygecom** » 28 Jul 2007 16:23

CHR(27)

Mensagem por **sygecom** » 28 Jul 2007 16:24

Ou entre pelo Prompt do Dos e veja...

Mensagem por **Maligno** » 28 Jul 2007 16:25

Já ia dizer que era ESC quando você respondeu.

Mensagem por **Maligno** » 28 Jul 2007 16:27

Ou entre pelo Prompt do Dos e veja...

No DOS não diz que é ESC. Apenas aparece um símbolo esquisito. Fica até mais difícil identificar.

Mensagem por **sygecom** » 28 Jul 2007 16:37

Tche, aqui aparece uma flexa apontada para esquerda...

Mensagem por **Maligno** » 28 Jul 2007 16:50

Uma flexa apontada pra esquerda. Exatamente. Mas não se usa flexa apontada pra esquerda em programa de computador. No caso do Clipper, usa-se Chr(27), ou uma constante, que é bem mais legível. É um bom hábito, aliás. Confunde bem menos.

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 28 Jul 2007 18:38

Blz Leo, agora vou testar, gostei dos comentários do Maligno. kkkkkkkkk

Gilberto

Mensagem por **sygecom** » 28 Jul 2007 22:14

Tche, qualquer duvida tem tudo no site do Wagner....

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 06 Ago 2007 11:54

Caros Colegas, não sei se é porque minha impressora HP 1315 multifuncional, não aceita o PRWIN, pois imprime do jeito do código mais não imprime a barra.
EX: sai desse jeito:
chr(27)"C201234567891;t7;a26;01"

espaço em branco

chr(27)"C201234567891;t7;a26;01"

espaço em branco

No espaço em branco seria para imprimir a barra, a impressora fica como se tiversse imprimindo mais não imprime.