Jump to content
Fivewin Brasil

morpheus

Membros
 View Profile  See their activity

  • Posts

    8

  • Joined

  • Last visited

 Content Type 

Posts posted by morpheus

  2. cdigo de barra ajudeme

    in Seminário

    Posted

    Este e o codigo fonte eu queria que auguem me ajudace a fazer com que ele imprima x colunas e y linhas se tiver auguem que possa me ajudar eu agradeso obrigado.

    ========================================================================================================================

    *------------------------ETIQUETA DE PRODUTOS PEQUENAS--------------------

    @ 05,15 SAY "ÉÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃû"

    @ 06,15 SAY "º Etiqueta pequena de produtos º"

    @ 07,15 SAY "º----------------------------------------------------º"

    @ 08,15 SAY "º Codigo.....: º"

    @ 09,15 SAY "º Produto....: º"

    @ 10,15 SAY "º----------------------------------------------------º"

    @ 11,15 SAY "º Quantidade.: COLUNAS.: º"

    @ 12,15 SAY "º Cod.Barra..: º"

    @ 13,15 SAY "º Impressora.: H-HP E-EPSON º"

    @ 14,15 SAY "º º"

    @ 15,15 SAY "º º"

    @ 16,15 SAY "º º"

    @ 17,15 SAY "ÈÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃü"

    *SAVE SCREEN TO TELA4

    *** ABRE_ESTOQUE() aqui ele abre o arquivo do estoque

    CODIGO=SPACE(15)

    DESCRICAO=SPACE(30)

    CDBARRA="S"

    IMPRE=SPACE(1)

    DO WHILE .T.

    *--------------------------AQUI ELE PEGA O PRODUTO DO ESTOQUE----------

    * RESTORE SCREEN FROM TELA4

    * SET COLOR TO &COR_ALERTA

    * @ 21,1 SAY 'Msg: Digite o codigo do produto o qual voce deseja imprimir a etiqueta. '

    * SET COLOR TO &COR_NORMAL

    * IF .NOT. PEGA_PRO1(08,30,09,30)

    * EXIT

    * ENDIF

    *-----------------------------------------------------------------------

    OK =0

    X =0

    CLN =0

    @ 08,30 GET CODIGO PICTURE "@!"

    @ 09,30 GET DESCRICAO PICTURE "@!"

    @ 11,30 GET OK PICTURE "###"

    @ 11,45 GET CLN PICTURE "###"

    @ 12,30 GET CDBARRA PICTURE "@!"

    @ 13,30 GET IMPRE PICTURE "@!"

    READ

    ****************** SEGUE AS VARIAVEIS DO PROGRAMA **********************

    IF OK = 0

    CLN= 0

    RETURN

    ENDIF

    DO WHILE X < OK

    IF CDBARRA="S"

    PUBLIC ESC,NULL,PRINTER,HEIGHT

    ESC = CHR(27)

    NULL = ""

    * DEFAULT TO TWO LINE LASERjET BARCODE

    PRINTER = IMPRE

    ******** DEZENHO DA IMPRESAO ******

    HEIGHT = 2

    IF PRINTER = "H"

    DO SETUP_HP

    ELSEIF PRINTER = "E"

    DO SETUP_EPSON

    ENDIF

    **************** FIN VARIAVEL *************

    ***** Define CODE 3of9 Characer Set *****

    DO DEF_CODE39

    ***** Get text to print and print barcode *****

    STAY = .T.

    * DO WHILE STAY

    ***** Create empty variable. The length is arbitrary as there is

    *****

    ***** no defined maximum length of a 3o9 barcode. *****

    MESSAGE = SPACE(25)

    MESSAGE = CODIGO

    BARCODE = SPACE(25)

    BARCODE = CODIGO

    ***MUDOU 01/06/06

    MESSAGE1= LEFT (DESCRICAO,20)

    IF EMPTY(M->MESSAGE)

    ***** exit on no message text

    STAY = .F.

    LOOP

    ENDIF

    ***** Prepend and append required asterik's to trimmed message *****

    M->MESSAGE = TRIM (M->MESSAGE)

    M->MESSAGE1 = TRIM (M->MESSAGE1)

    M->BARCODE = TRIM (M->BARCODE)

    SET DEVICE TO PRINT

    @ 1,00 SAY + M->MESSAGE + BARCODE (M->BARCODE)

    @ 1,15 SAY + M->MESSAGE + BARCODE (M->BARCODE)

    @ 1,30 SAY + M->MESSAGE

    @ 1,45 SAY + M->MESSAGE

    @ 1,60 SAY + M->MESSAGE

    @ PROW()+1,00 SAY +M->MESSAGE1

    @ PROW()+2,00 say" "

    SET DEVICE TO SCREEN

    ***** Check for page eject *****

    ***** (necessary to see what you've done on a laserjet) *****

    EJECT = .F.

    * ENDDO

    * RETURN

    X=X+1

    LOOP

    ENDIF

    IF CDBARRA="N"

    SET DEVICE TO PRINT

    @ PROW()+1,00 SAY " "

    @ PROW()+1,00 SAY "Cod. "+ALLTRIM(CODIGO)

    @ PROW() ,20 SAY "Cod. "+ALLTRIM(CODIGO)

    @ PROW() ,41 SAY "Cod. "+ALLTRIM(CODIGO)

    @ PROW() ,62 SAY "Cod. "+ALLTRIM(CODIGO)

    *@ PROW() ,83 SAY "Cod. "+ALLTRIM(CODIGO)

    @ PROW()+1,00 SAY LEFT(DESCRICAO,15)

    @ PROW() ,20 SAY LEFT(DESCRICAO,15)

    @ PROW() ,41 SAY LEFT(DESCRICAO,15)

    @ PROW() ,62 SAY LEFT(DESCRICAO,15)

    *@ PROW() ,83 SAY LEFT(DESCRICAO,15)

    @ PROW()+1,00 SAY ' '

    X=X+1

    ENDIF

    ENDDO

    SET DEVICE TO SCREEN

    ENDDO

    RETURN

    *****************

    FUNCTION BARCODE

    PARAMETERS MESSAGE

    CODE = ""

    DO CASE

    CASE PRINTER = "H"

    * read message character at a time and build barcode

    FOR L = 1 TO LEN(M->MESSAGE)

    LETTER = SUBSTR(M->MESSAGE,I,1)

    CODE = CODE + IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS

    NEXT

    *********************** tenho que muda aqui *******************

    * CODE = START + CODE + END

    CASE PRINTER = "E"

    ******** CONTROLA LARGURA E ALTURA ******

    FOR H = 1 TO HEIGHT

    FOR I = 1 TO LEN(M->MESSAGE)

    LETTER = SUBSTR(M->MESSAGE,I)

    * build barcoded string

    CODE = IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS

    * print barcode character at a time on Epson

    PRINTCODE(ESC + CHR(76) + CHR(N1) + CHR(N2) + CODE)

    NEXT

    * perform 23/216 line feed

    PRINTCODE(ESC+CHR(74)+CHR(23)+CHR(13))

    NEXT

    * perform 5/216 line feed

    PRINTCODE(ESC+CHR(74)+CHR(5)+CHR(13))

    * reset printer to turn off graphics and reset to 10cpi

    PRINTCODE(ESC+"@")

    ENDCASE

    RETURN CODE

    ***** End of Function(BARCODE) *****

    PROCEDURE SETUP_HP

    PUBLIC NB,WB,NS,WS,START,END

    *** define bars and spaces for HP LaserJet II

    SMALL_BAR = 3 && NUMBER OF POINTS PER BAR

    WIDE_BAR = ROUND(SMALL_BAR * 2.25,0) && 2.25 X SMALL_BAR

    DPL = 50

    && DOTS PER LINE 300DPI/6LPI =

    ESC="*C"+TRANSFORM(SMALL_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"X"

    ESC="*C"+TRANSFORM(WIDE_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"X"

    NS = ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"x"

    WS = ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"x"

    *** adjust cusor position to start at top of line and return to bottom of line

    START = ESC+"*P-50Y"

    END = ESC+"*P+50Y"

    RETURN

    ***** End of Procedure(SETUP_HP) *****

    PROCEDURE SETUP_EPSON

    PUBLIC NB,WB,NS,WS,N1,N2

    ***** DEFINE EPSON BARS AND SPACES

    NS = CHR(0) + CHR(0)

    WS = CHR(0) + CHR(0) + CHR(0) + CHR(0)

    NB = CHR(255)

    WB = CHR(255) + CHR(255) + CHR(255)

    ***** set printer to 2/216 lines per inch

    PRINTCODE(ESC+CHR(51)+CHR(2))

    ***** calculate N1 and N2 values for dot graphics command

    COLS = 21

    N1 = COLS % 256 && MODULUS

    N2 = INT(COLS/256)

    RETURN

    ***** End of Procedure(SETUP_EPSON) *****

    PROCEDURE DEF_CODE39

    PUBLIC CHAR[44], CHARS

    CHARS = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%"

    CHAR[01] = WB+NS+NB+WS+NB+NS+NB+NS+WB && "1"

    CHAR[02] = NB+NS+WB+WS+NB+NS+NB+NS+WB && "2"

    CHAR[03] = WB+NS+WB+WS+NB+NS+NB+NS+NB && "3"

    CHAR[04] = NB+NS+NB+WS+WB+NS+NB+NS+WB && "4"

    CHAR[05] = WB+NS+NB+WS+WB+NS+NB+NS+NB && "5"

    CHAR[06] = NB+NS+WB+WS+WB+NS+NB+NS+NB && "6"

    CHAR[07] = NB+NS+NB+WS+NB+NS+WB+NS+WB && "7"

    CHAR[08] = WB+NS+NB+WS+NB+NS+WB+NS+NB && "8"

    CHAR[09] = NB+NS+WB+WS+NB+NS+WB+NS+NB && "9"

    CHAR[10] = NB+NS+NB+WS+WB+NS+WB+NS+NB && "0"

    CHAR[11] = WB+NS+NB+NS+NB+WS+NB+NS+WB && "A"

    CHAR[12] = NB+NS+WB+NS+NB+WS+NB+NS+WB && "B"

    CHAR[13] = WB+NS+WB+NS+NB+WS+NB+NS+NB && "C"

    CHAR[14] = NB+NS+NB+NS+WB+WS+NB+NS+WB && "D"

    CHAR[15] = WB+NS+NB+NS+WB+WS+NB+NS+NB && "E"

    CHAR[16] = NB+NS+WB+NS+WB+WS+NB+NS+NB && "F"

    CHAR[17] = NB+NS+NB+NS+NB+WS+WB+NS+WB && "G"

    CHAR[18] = WB+NS+NB+NS+NB+WS+WB+NS+NB && "H"

    CHAR[19] = NB+NS+WB+NS+NB+WS+WB+NS+NB && "I"

    CHAR[20] = NB+NS+NB+NS+WB+WS+WB+NS+NB && "J"

    CHAR[21] = WB+NS+NB+NS+NB+NS+NB+WS+WB && "K"

    CHAR[22] = NB+NS+WB+NS+NB+NS+NB+WS+WB && "L"

    CHAR[23] = WB+NS+WB+NS+NB+NS+NB+WS+NB && "M"

    CHAR[24] = NB+NS+NB+NS+WB+NS+NB+WS+WB && "N"

    CHAR[25] = WB+NS+NB+NS+WB+NS+NB+WS+NB && "O"

    CHAR[26] = NB+NS+WB+NS+WB+NS+NB+WS+NB && "P"

    CHAR[27] = NB+NS+NB+NS+NB+NS+WB+WS+WB && "Q"

    CHAR[28] = WB+NS+NB+NS+NB+NS+WB+WS+NB && "R"

    CHAR[29] = NB+NS+WB+NS+NB+NS+WB+WS+NB && "S"

    CHAR[30] = NB+NS+NB+NS+WB+NS+WB+WS+NB && "T"

    CHAR[31] = WB+WS+NB+NS+NB+NS+NB+NS+WB && "U"

    CHAR[32] = NB+WS+WB+NS+NB+NS+NB+NS+WB && "V"

    CHAR[33] = WB+WS+WB+NS+NB+NS+NB+NS+NB && "W"

    CHAR[34] = NB+WS+NB+NS+WB+NS+NB+NS+WB && "X"

    CHAR[35] = WB+WS+NB+NS+WB+NS+NB+NS+NB && "Y"

    CHAR[36] = NB+WS+WB+NS+WB+NS+NB+NS+NB && "Z"

    CHAR[37] = NB+WS+NB+NS+NB+NS+WB+NS+WB && "-"

    CHAR[38] = WB+WS+NB+NS+NB+NS+WB+NS+NB && "."

    CHAR[39] = NB+WS+WB+NS+NB+NS+WB+NS+NB && " "

    CHAR[40] = NB+WS+NB+NS+WB+NS+WB+NS+NB && "*"

    CHAR[41] = NB+WS+NB+WS+NB+WS+NB+NS+NB && "$"

    CHAR[42] = NB+WS+NB+WS+NB+NS+NB+WS+NB && "/"

    CHAR[43] = NB+WS+NB+NS+NB+WS+NB+WS+NB && "+"

    CHAR[44] = NB+NS+NB+WS+NB+WS+NB+WS+NB && "%"

    RETURN

    *****************

    FUNCTION PRINTCODE

    PARAMETERS CODE

    SET CONSOLE OFF

    SET PRINT ON

    ?? CODE

    SET PRINT OFF

    SET CONSOLE ON

    ***RETURN NULL

    ***** End of Function(PRINTCODE) *****

    Editado por - morpheus on 22/07/2006 21:30:26

  3. cdigo de barra ajudeme

    in Seminário

    Posted

    Este e o codigo fonte eu queria que auguem me ajudace a fazer com que ele imprima x colunas e y linhas se tiver auguem que possa me ajudar eu agradeso obrigado.

    ========================================================================================================================

    *------------------------ETIQUETA DE PRODUTOS PEQUENAS--------------------

    @ 05,15 SAY "ÉÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃû"

    @ 06,15 SAY "º Etiqueta pequena de produtos º"

    @ 07,15 SAY "º----------------------------------------------------º"

    @ 08,15 SAY "º Codigo.....: º"

    @ 09,15 SAY "º Produto....: º"

    @ 10,15 SAY "º----------------------------------------------------º"

    @ 11,15 SAY "º Quantidade.: COLUNAS.: º"

    @ 12,15 SAY "º Cod.Barra..: º"

    @ 13,15 SAY "º Impressora.: H-HP E-EPSON º"

    @ 14,15 SAY "º º"

    @ 15,15 SAY "º º"

    @ 16,15 SAY "º º"

    @ 17,15 SAY "ÈÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃü"

    *SAVE SCREEN TO TELA4

    *** ABRE_ESTOQUE() aqui ele abre o arquivo do estoque

    CODIGO=SPACE(15)

    DESCRICAO=SPACE(30)

    CDBARRA="S"

    IMPRE=SPACE(1)

    DO WHILE .T.

    *--------------------------AQUI ELE PEGA O PRODUTO DO ESTOQUE----------

    * RESTORE SCREEN FROM TELA4

    * SET COLOR TO &COR_ALERTA

    * @ 21,1 SAY 'Msg: Digite o codigo do produto o qual voce deseja imprimir a etiqueta. '

    * SET COLOR TO &COR_NORMAL

    * IF .NOT. PEGA_PRO1(08,30,09,30)

    * EXIT

    * ENDIF

    *-----------------------------------------------------------------------

    OK =0

    X =0

    CLN =0

    @ 08,30 GET CODIGO PICTURE "@!"

    @ 09,30 GET DESCRICAO PICTURE "@!"

    @ 11,30 GET OK PICTURE "###"

    @ 11,45 GET CLN PICTURE "###"

    @ 12,30 GET CDBARRA PICTURE "@!"

    @ 13,30 GET IMPRE PICTURE "@!"

    READ

    ****************** SEGUE AS VARIAVEIS DO PROGRAMA **********************

    IF OK = 0

    CLN= 0

    RETURN

    ENDIF

    DO WHILE X < OK

    IF CDBARRA="S"

    PUBLIC ESC,NULL,PRINTER,HEIGHT

    ESC = CHR(27)

    NULL = ""

    * DEFAULT TO TWO LINE LASERjET BARCODE

    PRINTER = IMPRE

    ******** DEZENHO DA IMPRESAO ******

    HEIGHT = 2

    IF PRINTER = "H"

    DO SETUP_HP

    ELSEIF PRINTER = "E"

    DO SETUP_EPSON

    ENDIF

    **************** FIN VARIAVEL *************

    ***** Define CODE 3of9 Characer Set *****

    DO DEF_CODE39

    ***** Get text to print and print barcode *****

    STAY = .T.

    * DO WHILE STAY

    ***** Create empty variable. The length is arbitrary as there is

    *****

    ***** no defined maximum length of a 3o9 barcode. *****

    MESSAGE = SPACE(25)

    MESSAGE = CODIGO

    BARCODE = SPACE(25)

    BARCODE = CODIGO

    ***MUDOU 01/06/06

    MESSAGE1= LEFT (DESCRICAO,20)

    IF EMPTY(M->MESSAGE)

    ***** exit on no message text

    STAY = .F.

    LOOP

    ENDIF

    ***** Prepend and append required asterik's to trimmed message *****

    M->MESSAGE = TRIM (M->MESSAGE)

    M->MESSAGE1 = TRIM (M->MESSAGE1)

    M->BARCODE = TRIM (M->BARCODE)

    SET DEVICE TO PRINT

    @ 1,00 SAY + M->MESSAGE + BARCODE (M->BARCODE)

    @ 1,15 SAY + M->MESSAGE + BARCODE (M->BARCODE)

    @ 1,30 SAY + M->MESSAGE

    @ 1,45 SAY + M->MESSAGE

    @ 1,60 SAY + M->MESSAGE

    @ PROW()+1,00 SAY +M->MESSAGE1

    @ PROW()+2,00 say" "

    SET DEVICE TO SCREEN

    ***** Check for page eject *****

    ***** (necessary to see what you've done on a laserjet) *****

    EJECT = .F.

    * ENDDO

    * RETURN

    X=X+1

    LOOP

    ENDIF

    IF CDBARRA="N"

    SET DEVICE TO PRINT

    @ PROW()+1,00 SAY " "

    @ PROW()+1,00 SAY "Cod. "+ALLTRIM(CODIGO)

    @ PROW() ,20 SAY "Cod. "+ALLTRIM(CODIGO)

    @ PROW() ,41 SAY "Cod. "+ALLTRIM(CODIGO)

    @ PROW() ,62 SAY "Cod. "+ALLTRIM(CODIGO)

    *@ PROW() ,83 SAY "Cod. "+ALLTRIM(CODIGO)

    @ PROW()+1,00 SAY LEFT(DESCRICAO,15)

    @ PROW() ,20 SAY LEFT(DESCRICAO,15)

    @ PROW() ,41 SAY LEFT(DESCRICAO,15)

    @ PROW() ,62 SAY LEFT(DESCRICAO,15)

    *@ PROW() ,83 SAY LEFT(DESCRICAO,15)

    @ PROW()+1,00 SAY ' '

    X=X+1

    ENDIF

    ENDDO

    SET DEVICE TO SCREEN

    ENDDO

    RETURN

    *****************

    FUNCTION BARCODE

    PARAMETERS MESSAGE

    CODE = ""

    DO CASE

    CASE PRINTER = "H"

    * read message character at a time and build barcode

    FOR L = 1 TO LEN(M->MESSAGE)

    LETTER = SUBSTR(M->MESSAGE,I,1)

    CODE = CODE + IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS

    NEXT

    *********************** tenho que muda aqui *******************

    * CODE = START + CODE + END

    CASE PRINTER = "E"

    ******** CONTROLA LARGURA E ALTURA ******

    FOR H = 1 TO HEIGHT

    FOR I = 1 TO LEN(M->MESSAGE)

    LETTER = SUBSTR(M->MESSAGE,I)

    * build barcoded string

    CODE = IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS

    * print barcode character at a time on Epson

    PRINTCODE(ESC + CHR(76) + CHR(N1) + CHR(N2) + CODE)

    NEXT

    * perform 23/216 line feed

    PRINTCODE(ESC+CHR(74)+CHR(23)+CHR(13))

    NEXT

    * perform 5/216 line feed

    PRINTCODE(ESC+CHR(74)+CHR(5)+CHR(13))

    * reset printer to turn off graphics and reset to 10cpi

    PRINTCODE(ESC+"@")

    ENDCASE

    RETURN CODE

    ***** End of Function(BARCODE) *****

    PROCEDURE SETUP_HP

    PUBLIC NB,WB,NS,WS,START,END

    *** define bars and spaces for HP LaserJet II

    SMALL_BAR = 3 && NUMBER OF POINTS PER BAR

    WIDE_BAR = ROUND(SMALL_BAR * 2.25,0) && 2.25 X SMALL_BAR

    DPL = 50

    && DOTS PER LINE 300DPI/6LPI =

    ESC="*C"+TRANSFORM(SMALL_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"X"

    ESC="*C"+TRANSFORM(WIDE_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"X"

    NS = ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"x"

    WS = ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"x"

    *** adjust cusor position to start at top of line and return to bottom of line

    START = ESC+"*P-50Y"

    END = ESC+"*P+50Y"

    RETURN

    ***** End of Procedure(SETUP_HP) *****

    PROCEDURE SETUP_EPSON

    PUBLIC NB,WB,NS,WS,N1,N2

    ***** DEFINE EPSON BARS AND SPACES

    NS = CHR(0) + CHR(0)

    WS = CHR(0) + CHR(0) + CHR(0) + CHR(0)

    NB = CHR(255)

    WB = CHR(255) + CHR(255) + CHR(255)

    ***** set printer to 2/216 lines per inch

    PRINTCODE(ESC+CHR(51)+CHR(2))

    ***** calculate N1 and N2 values for dot graphics command

    COLS = 21

    N1 = COLS % 256 && MODULUS

    N2 = INT(COLS/256)

    RETURN

    ***** End of Procedure(SETUP_EPSON) *****

    PROCEDURE DEF_CODE39

    PUBLIC CHAR[44], CHARS

    CHARS = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%"

    CHAR[01] = WB+NS+NB+WS+NB+NS+NB+NS+WB && "1"

    CHAR[02] = NB+NS+WB+WS+NB+NS+NB+NS+WB && "2"

    CHAR[03] = WB+NS+WB+WS+NB+NS+NB+NS+NB && "3"

    CHAR[04] = NB+NS+NB+WS+WB+NS+NB+NS+WB && "4"

    CHAR[05] = WB+NS+NB+WS+WB+NS+NB+NS+NB && "5"

    CHAR[06] = NB+NS+WB+WS+WB+NS+NB+NS+NB && "6"

    CHAR[07] = NB+NS+NB+WS+NB+NS+WB+NS+WB && "7"

    CHAR[08] = WB+NS+NB+WS+NB+NS+WB+NS+NB && "8"

    CHAR[09] = NB+NS+WB+WS+NB+NS+WB+NS+NB && "9"

    CHAR[10] = NB+NS+NB+WS+WB+NS+WB+NS+NB && "0"

    CHAR[11] = WB+NS+NB+NS+NB+WS+NB+NS+WB && "A"

    CHAR[12] = NB+NS+WB+NS+NB+WS+NB+NS+WB && "B"

    CHAR[13] = WB+NS+WB+NS+NB+WS+NB+NS+NB && "C"

    CHAR[14] = NB+NS+NB+NS+WB+WS+NB+NS+WB && "D"

    CHAR[15] = WB+NS+NB+NS+WB+WS+NB+NS+NB && "E"

    CHAR[16] = NB+NS+WB+NS+WB+WS+NB+NS+NB && "F"

    CHAR[17] = NB+NS+NB+NS+NB+WS+WB+NS+WB && "G"

    CHAR[18] = WB+NS+NB+NS+NB+WS+WB+NS+NB && "H"

    CHAR[19] = NB+NS+WB+NS+NB+WS+WB+NS+NB && "I"

    CHAR[20] = NB+NS+NB+NS+WB+WS+WB+NS+NB && "J"

    CHAR[21] = WB+NS+NB+NS+NB+NS+NB+WS+WB && "K"

    CHAR[22] = NB+NS+WB+NS+NB+NS+NB+WS+WB && "L"

    CHAR[23] = WB+NS+WB+NS+NB+NS+NB+WS+NB && "M"

    CHAR[24] = NB+NS+NB+NS+WB+NS+NB+WS+WB && "N"

    CHAR[25] = WB+NS+NB+NS+WB+NS+NB+WS+NB && "O"

    CHAR[26] = NB+NS+WB+NS+WB+NS+NB+WS+NB && "P"

    CHAR[27] = NB+NS+NB+NS+NB+NS+WB+WS+WB && "Q"

    CHAR[28] = WB+NS+NB+NS+NB+NS+WB+WS+NB && "R"

    CHAR[29] = NB+NS+WB+NS+NB+NS+WB+WS+NB && "S"

    CHAR[30] = NB+NS+NB+NS+WB+NS+WB+WS+NB && "T"

    CHAR[31] = WB+WS+NB+NS+NB+NS+NB+NS+WB && "U"

    CHAR[32] = NB+WS+WB+NS+NB+NS+NB+NS+WB && "V"

    CHAR[33] = WB+WS+WB+NS+NB+NS+NB+NS+NB && "W"

    CHAR[34] = NB+WS+NB+NS+WB+NS+NB+NS+WB && "X"

    CHAR[35] = WB+WS+NB+NS+WB+NS+NB+NS+NB && "Y"

    CHAR[36] = NB+WS+WB+NS+WB+NS+NB+NS+NB && "Z"

    CHAR[37] = NB+WS+NB+NS+NB+NS+WB+NS+WB && "-"

    CHAR[38] = WB+WS+NB+NS+NB+NS+WB+NS+NB && "."

    CHAR[39] = NB+WS+WB+NS+NB+NS+WB+NS+NB && " "

    CHAR[40] = NB+WS+NB+NS+WB+NS+WB+NS+NB && "*"

    CHAR[41] = NB+WS+NB+WS+NB+WS+NB+NS+NB && "$"

    CHAR[42] = NB+WS+NB+WS+NB+NS+NB+WS+NB && "/"

    CHAR[43] = NB+WS+NB+NS+NB+WS+NB+WS+NB && "+"

    CHAR[44] = NB+NS+NB+WS+NB+WS+NB+WS+NB && "%"

    RETURN

    *****************

    FUNCTION PRINTCODE

    PARAMETERS CODE

    SET CONSOLE OFF

    SET PRINT ON

    ?? CODE

    SET PRINT OFF

    SET CONSOLE ON

    ***RETURN NULL

    ***** End of Function(PRINTCODE) *****

    Editado por - morpheus on 22/07/2006 21:30:26

  4. ajuda codigo de barra

    in Seminário

    Posted

    amigos esto com um problema que nao to abito para resovelo por isto peso por ajuda nao consigo imprimir um codigo de barra em x colunas e y linhas sera que tem auguem ai que pode me ajudar.

    se vc utiliza o msn pegue o meu e me adicione para mandar mais detalhes por favor obrigado.

    morphel_alenda@hotimail.com

    Editado por - morpheus on 22/07/2006 21:11:59

  5. ajuda codigo de barra

    in Seminário

    Posted

    amigos esto com um problema que nao to abito para resovelo por isto peso por ajuda nao consigo imprimir um codigo de barra em x colunas e y linhas sera que tem auguem ai que pode me ajudar.

    se vc utiliza o msn pegue o meu e me adicione para mandar mais detalhes por favor obrigado.

    morphel_alenda@hotimail.com

    Editado por - morpheus on 22/07/2006 21:11:59

  6. codigo de barra

    in Programação

    Posted

    ola amigos sou novo no fivewin e gostaria de uma ajuda

    se vc pode me ajuda eu agradesso.

    to precisando criar um progama que ler o meus cobigo de produto e crie um codigo de barra e emprima numa matricial

    como lx300.auguem pode me ajudar

    ex.

    IIIIII

    1234

    obrigado

  7. codigo de barra

    in Programação

    Posted

    ola amigos sou novo no fivewin e gostaria de uma ajuda

    se vc pode me ajuda eu agradesso.

    to precisando criar um progama que ler o meus cobigo de produto e crie um codigo de barra e emprima numa matricial

    como lx300.auguem pode me ajudar

    ex.

    IIIIII

    1234

    obrigado

  8. codigo de barra

    in Programação

    Posted

    ola amigos sou novo no fivewin e gostaria de uma ajuda

    se vc pode me ajuda eu agradesso.

    to precisando criar um progama que ler o meus cobigo de produto e crie um codigo de barra e emprima numa matricial

    como lx300.auguem pode me ajudar

    ex.

    IIIIII

    1234

    obrigado

×
×
  • Create New...