Free Text Bar-Code Labels

Post Reply
ka1vgm
Site Admin
Posts: 7
Joined: Sun Feb 11, 2018 3:58 am
Location: Keene, NH

Free Text Bar-Code Labels

Post by ka1vgm » Fri Mar 09, 2018 12:31 pm

CBP LL.FREETEXT.BARCODE

Code: Select all

          SUBROUTINE (PASSER)
** Version# 0.0002 - 02/14/2017 - 01:47pm - LARRYL - eclipse
** Copied from CBP LL.FREETEXT Version# 0.0001[9] - 11/22/2016 - 02:28pm - LARRYL - eclipse
*** V0.0001 Change - Custom Coding 1 - 11/22/2016 - LARRYL - eclipse
*** V0.0003 Change - Custom Coding 1 - 11/22/2016 - LARRYL - eclipse
** Copied from CBP LL.LOGIN.LABEL Version# 0.0002[63] - 11/18/2016 - 01:49pm - LARRYL - eclipse
*** V0.0002 Change - Custom Coding CU - 02/14/2017 - LARRYL - eclipse
** Copied from BP LL.LOGIN.LABEL Version# 3 - 03/13/2012 - 02:36pm - BABS - main


*-------------------------------------------------------------------------*
          GOSUB INIT

          *USER.ID


IN$$1:    INP.PROMPT LL.TEXT1, 'Display Text:',,20
IN$$3:    INP.PROMPT LL.TEXT2, 'Barcode Text:',,20
IN$$4:    INP.PROMPT LL.LABELS, 'Number of Labels',,2

          GOSUB PRT.LABELS

          RETURN
*-------------------------------------------------------------------------*
INIT: *** Initialize variables



          OPEN 'LABEL.FRMTS' TO LBLFILE ELSE RETURN

          * Get the form type from the User Defined Product Documents
          * control record.
          READ FORMATS FROM CTRLFILE,'UD.PROD.FORMATS' ELSE FORMATS = ''


          LL.TEXT1 = ''
          LL.TEXT2 = ''
          LL.LABELS = ''
          OPT = 0

          RETURN
*-------------------------------------------------------------------------*
PRT.LABELS: *** Print Label

          DOC.INFO = ''

             *
                   LABEL.FRMT = 'LL.FREETEXT.BARCODE'

             * Read in the label format
             READ LABEL FROM LBLFILE,LABEL.FRMT ELSE RETURN

             * Get the form type associated with this label
             LOC.STR = '*':LABEL.FRMT
             LOCATE LOC.STR IN FORMATS<2> SETTING FPOS THEN
                FORM = FORMATS<4,FPOS>
             END ELSE
                FORM = 'LABELS'
             END

             * Replace print variables


             UT.REP.STR LABEL,"/LL.TEXT1/",LL.TEXT1,0
             UT.REP.STR LABEL,"/LL.TEXT2/",LL.TEXT2,0

             * Turn the printer on with the correct format


             FOR LL.A = 1 to LL.LABELS
                PRINTER.ON "ZEBRA3X1"
                PRINT LABEL
                PRINTER.OFF
             NEXT LL.A


             ERR.MESS 20,7,BELL:LL.LABELS:" Label(s) Printed!"
IN$$2:       INP A,1,1

             RETURN
*-------------------------------------------------------------------------*

*-------------------------------------------------------------------------*
!LARRYL~11/22/16~08:34

!LARRYL~02/14/17~13:47

LABEL.FRMTS LL.FREETEXT.BARCODE

Code: Select all

^XA~TA000~JSN^LT0^MNA^MT^PON^PMN^LH0,0^JMA^PR6,6~SD15^JUS^LRN^CI0^XZ 
^XA 
^MMT 
^PW609 
^LL0203 
^LS0 
^FT389,161^A0I,37,38^FH\^FD/LL.TEXT1/^FS 
^BY3,3,103^FT523,9^BCI,,Y,Y 
^FD>:/LL.TEXT2/^FS 
^PQ1,0,1,Y^XZ 
 
--
Larry Levesque
Senior Business Systems Analyst
Granite City Electric Supply Inc.
617-221-1551 Direct
857-753-1407 Cell

Post Reply