home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSALAB1.INC < prev    next >
Encoding:
Text File  |  1987-11-23  |  2.3 KB  |  83 lines
  1. <<* APPLAB1.INC *>>
  2.  
  3. <<#
  4. procedure AskLabelFlds
  5. integer Fname,Lname,Company,Address,City,State,Zip,Country
  6. begin
  7.   askfor field to Fname   message "Select FIRST NAME for labels"
  8.   askfor field to Lname   message "Select LAST NAME for labels"
  9.   askfor field to Company message "Select COMPANY for labels;  press ESC if none"
  10.   askfor field to Address message "Select ADDRESS for labels"
  11.   askfor field to City    message "Select CITY for labels"
  12.   askfor field to State   message "Select STATE for labels"
  13.   askfor field to Zip     message "Select ZIP for labels"
  14.   askfor field to Country message "Select COUNTRY for labels;  press ESC if none"
  15.   if (Fname>0) and (Lname>0) and (City>0) and (State>0) and (Zip>0)
  16.     genln( '?' )
  17.     select field Fname
  18.     gen( '? indent,TRIM(',fixfldnam,')+" "+TRIM(' )
  19.     select field Lname
  20.     genln( fixfldnam,')' )
  21.     if Company  <<*Company*>>
  22.       select field Company
  23.       genln( 'IF ""<>TRIM(',fixfldnam,')' )
  24.       genln( '   ? indent,TRIM(',fixfldnam,')' )
  25.       genln( 'ENDIF' )
  26.     endif
  27.     select field Address
  28.     genln( '? indent,TRIM(',fixfldnam,')' )
  29.     select field City
  30.     gen( '? indent,TRIM(',fixfldnam,')+", "+TRIM(' )
  31.     select field State
  32.     gen( fixfldnam,')+"  "+' )
  33.     select field Zip
  34.     genln( fixfldnam )
  35.     if Country
  36.       select field Country
  37.       genln( 'IF ""<>TRIM(',fixfldnam,')' )
  38.       genln( '   ? indent,TRIM(',fixfldnam,')' )
  39.       genln( 'ENDIF' )
  40.     endif
  41.     genln( '?' )
  42.   else
  43.     genln( '* ---<none>.' )
  44.   endif
  45. end AskLabelFlds
  46. #>>
  47.  
  48.  
  49. <<procedure GenOneLabel>>
  50. <<begin>>
  51. PARAMETER row
  52. * ---Send one label to printer.
  53. PRIVATE indent
  54. indent = ""
  55. DO SayLine WITH row,"Is PRINTER ready? (y/n)"
  56. DO GetKey WITH choice,"YN"+Returnkey
  57. IF choice = "Y"
  58.    DO SayLine WITH row,"Printing label..."
  59.    SET ESCAPE ON
  60.    SET CONSOLE OFF
  61.    SET PRINT ON
  62.    * ---Label format follows.
  63. <<#
  64.    select fields on (fldtyp = 'C') and (fldals <> 'M')
  65.    if fldtotal > 0
  66.      pushmargin(1)
  67.      AskLabelFlds
  68.      popmargin
  69.    endif
  70. #>>
  71.    SET PRINT OFF
  72.    SET CONSOLE ON
  73.    SET ESCAPE OFF
  74.    DO SayLine WITH row,"Send FORMFEED to printer? (y/n)"
  75.    DO GetKey WITH choice,"YN"+Returnkey
  76.    IF choice = "Y"
  77.       EJECT
  78.    ENDIF
  79. ENDIF
  80. <<end GenOneLabel>>
  81.  
  82. <<* EOF: APPLAB1.INC *>>
  83.