Free Text Only Labels

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

Free Text Only Labels

Post by ka1vgm » Wed Mar 07, 2018 1:23 pm

CBP LL.FREETEXT

Code: Select all

       SUBROUTINE (PASSER)
** Version# 0.0003[4] - 01/23/2018 - 11:11am - LARRYL - eclipse
*** V0.0001 Change - Custom Coding 1 - 02/14/2017 - LARRYL - eclipse
*** V0.0003 Change - Custom Coding 1234 - 01/23/2018 - 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 - 11/18/2016 - LARRYL - eclipse
** Copied from BP LL.LOGIN.LABEL Version# 3 - 03/13/2012 - 02:36pm - BABS - main

*** Subroutine - LL.LOGIN.LABEL
*-------------------------------------------------------------------------*
*** This is a routine for printing Free Text labels.
*-------------------------------------------------------------------------*
*** Common: - NONE
*-------------------------------------------------------------------------*
          GOSUB INIT

         
IN$$1:    INP.PROMPT LL.TEXT1, 'Enter Text 1:',,20
IN$$3:    INP.PROMPT LL.TEXT2, 'Enter Text 2:',,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'

             * 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~01/23/18~11:11




LABEL.FRMTS LL.FREETEXT

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
^FT602,37^A0I,59,60^FH\^FD/LL.TEXT2/^FS
^FT602,128^A0I,59,60^FH\^FD/LL.TEXT1/^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