home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / LABEL.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  26.6 KB  |  1,241 lines
  1. //
  2. // Module Name: LABEL.COD
  3. // Description: Define label program structure.
  4. //
  5.  
  6. Label (.lbg) Program Template
  7. -----------------------------
  8. Version 1.5.a
  9. Copyright (c) 1991 Borland International, Inc.
  10.  
  11. {include "label.def";
  12.  include "builtin.def";
  13.  
  14.  if getenv("dtl_debug") then
  15.    debug(2)
  16.    breakpoint( pick_debug )
  17.  endif
  18.  
  19.  var  bnl_formname,     // Name of BNL file to newframe if argument() has value
  20.       arg_list;
  21.  
  22.  arg_list = argument()
  23.  if arg_list != "" then
  24.    bnl_formname = token( ",", arg_list, 1 )
  25.    if !newframe( bnl_formname ) then
  26.      return -1;
  27.    endif
  28.  endif
  29.  //
  30.  // Enum string constants for international translation
  31.  //
  32.  enum wrong_class = "Can't use LABEL.GEN on non-label objects.  ",
  33.       label_empty = "Label design was empty.  ",
  34.      more_samples = "Do you want more samples? (Y/N)";
  35.  //
  36.  if FRAME_CLASS != label then
  37.    pause(wrong_class + any_key);
  38.    return 0;
  39.  endif
  40.  
  41.  //---------------------------
  42.  // Declare working variables
  43.  //---------------------------
  44.  var lblname,       // Name of label file program
  45.      lblpath,       // Path to write label file
  46.      default_drive, // dBASE default drive
  47.      crlf,          // line feed
  48.      line,          // Line counter for outputing number of "?'s"
  49.      isfirst,       // Logical work variable
  50.      mrows,         // Number of rows that the label uses
  51.      mcolumns,      // Number of columns in label
  52.      lbl_vspace,    // Lines between labels
  53.      lbl_wide,      // Label width
  54.      lbl_hspace,    // Number of spaces between labels
  55.      lbl_offset,    // Label left offset
  56.      lbl_top,       // Label top margin
  57.      lbl_bottom,    // Label bottom margin
  58.      lbl_advance,   // Label forms advance  (linefeed or formfeed)
  59.      lbl_widow,     // Determine whether a label will fit on a page
  60.      numflds,       // Number of fields used in label
  61.      style,         // Style attribute assigned to the field/text
  62.     current_column, // Current column number
  63.      first_combine, // text or field is first in the chain of combined data
  64.      combine,       // combine fields flag
  65.      new_line,      // is the next field on a new line
  66.  i, j, x, temp, ni, // temporary usage variables
  67.      first_item,    // relative element number when repeating columns
  68.      item_number,   // current item number
  69.      count,         // number of text and field items
  70.     last_row,
  71.     temp_row,
  72.    current_row,
  73.   previous_row,
  74.    blank_line,
  75.   printed_lines,
  76.  previous_element,
  77. number_of_blankable_lines,
  78.  current_element,
  79.     response,
  80.    long_line,       // calculated expression possibly exceeds line
  81.  left_delimiter,
  82.  right_delimiter,
  83.    delimit_flag
  84. ;
  85.  //-------------------------------------------------
  86.  // Assign starting values to some of the variables
  87.  //-------------------------------------------------
  88.  crlf = chr(10);
  89.  current_element=2;
  90.  item_number = isfirst = mcolumns = first_combine = new_line = 1;
  91.  count = line = mrows = numflds = current_column = combine = long_line = 0;
  92.  lbl_vspace = nul2zero(LABEL_VSPACE);
  93.  lbl_wide = LABEL_WIDE;
  94.  lbl_hspace = nul2zero(LABEL_HSPACE);
  95.  lbl_offset = nul2zero(LABEL_LMARG);
  96.  lbl_advance = lbl_bottom = lbl_top = 0;
  97.  lbl_widow = 1;
  98.  
  99.  blank_line = 1;
  100.  current_row = 0;
  101.  previous_row = -1;
  102.  printed_lines = 0;
  103.  previous_element = 0;
  104.  number_of_blankable_lines=0;
  105.  left_delimiter="\""
  106.  right_delimiter="\""
  107.  delimit_flag=0;
  108.  
  109.  foreach ELEMENT ecursor
  110.    if COUNTC(ecursor) > 1 && !eoc(ecursor) then
  111.      temp_row = previous_row = current_row = nul2zero(ROW_POSITN);
  112.      do while !eoc(ecursor)
  113.        if ROW_POSITN > previous_row then
  114.          number_of_blankable_lines=number_of_blankable_lines+blank_line;
  115.          blank_line=1;
  116.          previous_element=0;
  117.          previous_row=ROW_POSITN;
  118.          ++printed_lines;
  119.        endif
  120.        if blank_line then
  121.          if FLD_VALUE_TYPE == 78 then
  122.            if not AT("Z",FLD_PICFUN) then
  123.              blank_line=0;
  124.            endif
  125.          else
  126.            if TEXT_ITEM && !previous_element then
  127.              blank_line=0;
  128.            endif
  129.            if ELEMENT_TYPE == @FLD_ELEMENT && FLD_VALUE_TYPE != 67 then
  130.              blank_line=0;
  131.            endif
  132.          endif
  133.        endif
  134.        if ELEMENT_TYPE == @FLD_ELEMENT && FLD_VALUE_TYPE == 67 ||
  135.        (FLD_VALUE_TYPE == 78 && AT("Z",FLD_PICFUN)) then
  136.          previous_element=1;
  137.        else
  138.          previous_element=0;
  139.        endif
  140.        ++ecursor;
  141.      enddo
  142.      number_of_blankable_lines=number_of_blankable_lines+blank_line;
  143.      ++printed_lines;
  144.      --ecursor;
  145.      previous_row=ROW_POSITN+1;
  146.      last_row=ROW_POSITN;
  147.    endif
  148.  next
  149.  blank_line=0;
  150.  
  151.  default_drive = STRSET(_defdrive);
  152.  lblname = FRAME_PATH + NAME;
  153.  lblpath = FRAME_PATH;
  154.  if not FILEOK(lblname) then
  155.    if FILEDRIVE(NAME) || !default_drive then
  156.      lblname=NAME;
  157.      if FILEDRIVE(NAME) then
  158.        lblpath=FILEDRIVE(NAME)+":"+FILEPATH(NAME);
  159.      else
  160.        lblpath=FILEPATH(NAME);
  161.      endif
  162.    else
  163.      lblname=default_drive + ":" + NAME;
  164.      lblpath=default_drive + ":";
  165.    endif
  166.  endif
  167.  
  168.  if not CREATE(lblname+".LBG") then;
  169.    PAUSE(fileroot(lblname)+".LBG"+read_only+any_key);
  170.    return 0;
  171.  endif
  172.  
  173. if getenv("DTL_LBLOPT") then
  174.   say(0,0," Layout   Dimensions   Fields   Words   Go To   Print   Exit ");
  175.   say(1,10,"╔═════════════════════════╗");
  176.   say(2,10,"║  Top Margin     { 0}    ║");
  177.   say(3,10,"║  Bottom Margin  { 0}    ║");
  178.   say(4,10,"║  Advance by  DEFAULT    ║");
  179.   say(5,10,"║  Widow checking  YES    ║");
  180.   say(6,10,"║                         ║");
  181.   say(7,10,"║         < OK >          ║");
  182.   say(8,10,"╚═════════════════════════╝");
  183.  
  184.   extended_label_options();
  185. endif
  186. }
  187. * Program............: {cap_first(fileroot(lblname))}.LBG
  188. * Date...............: {ltrim(substr(date(),1,8))}
  189. * Version............: dBASE IV, Label 1.5
  190. *
  191. * Label Specifics:
  192. *   Wide - {lbl_wide}
  193. *   Tall - {label_tall}
  194. *   Indentation - {nul2zero(label_lmarg)}
  195. *   Number across - {label_nup}
  196. *   Space between - {lbl_hspace}
  197. *   Lines between - {lbl_vspace}
  198. *   Blankable lines - {number_of_blankable_lines}
  199. *   Print formatted - {printed_lines}
  200. *
  201. PARAMETER ll_sample
  202. *-- Set printer variables for this procedure only
  203. PRIVATE {if lbl_advance then}_padvance, {endif}_peject, _wrap
  204.  
  205. *-- Test for End of file
  206. IF EOF()
  207.    RETURN
  208. ENDIF
  209.  
  210. {if lbl_top || lbl_bottom || lbl_advance then}
  211. IF _plength < {lbl_top+lbl_bottom+printed_lines}
  212.    ? "Illegal page dimensions.  ( DTL_LBLOPT )"
  213.    RETURN
  214. ENDIF
  215.  
  216. {endif}
  217. IF SET("TALK")="ON"
  218.    SET TALK OFF
  219.    gc_talk="ON"
  220. ELSE
  221.    gc_talk="OFF"
  222. ENDIF
  223. gc_space = SET("SPACE")
  224. SET SPACE OFF
  225. gc_time=TIME()      && system time for predefined field
  226. gd_date=DATE()      && system date  "    "    "     "
  227. gl_fandl=.F.        && first and last record flag
  228. gl_prntflg=.T.      && Continue printing flag
  229. gn_column=1
  230. gn_element=0
  231. gn_line=1
  232. gn_memowid=SET("MEMOWIDTH")
  233. SET MEMOWIDTH TO 254
  234. gn_page=_pageno     && capture page number for multiple copies
  235. {if lbl_advance then}
  236. {  case lbl_advance of}
  237. {  1:}
  238. _padvance="LINEFEEDS"
  239. {  2:}
  240. _padvance="FORMFEED"
  241. {  endcase}
  242. {endif}
  243. _plineno=0
  244. _wrap = .F.
  245.  
  246. *-- Setup Environment
  247. ON ESCAPE DO Prnabort
  248. {if lbl_top || lbl_bottom || lbl_advance then}
  249. gn_atline=_plength - {lbl_bottom+1}*_pspacing
  250. ON PAGE AT LINE gn_atline \
  251. {  if lbl_top then}
  252. DO Pagebrk
  253. {  else}
  254. EJECT PAGE
  255. {  endif}
  256. {endif}
  257.  
  258. {numflds=FRAME_NUM_OF_FIELDS;}
  259. {if LABEL_NUP > 1 then}
  260. *-- Initialize array(s) for {LABEL_NUP} across labels
  261. DECLARE isfound[{LABEL_NUP-1}]
  262. {  if numflds then}
  263. DECLARE tmp4lbl[{LABEL_NUP-1},{numflds}]
  264. {  endif}
  265. {endif}
  266. {//if number_of_blankable_lines then}
  267. DECLARE gn_line2[{label_nup}]
  268. {//endif}
  269.  
  270. PRINTJOB
  271.  
  272. {x=0;}
  273. {foreach FLD_ELEMENT k}
  274. //
  275. // only if there is a fieldname assigned to the calculated field
  276. //
  277. {if FLD_FIELDTYPE == Calc_data && FLD_FIELDNAME then}
  278. {  if !x then}
  279. *-- Initialize calculated variables.
  280. {  endif}
  281. {lower(FLD_FIELDNAME)}=\
  282. {case FLD_VALUE_TYPE of}
  283. {68: // Date   }CTOD(SPACE(8))
  284. {70: // Float  }FLOAT(0)
  285. {76: // Logical}.F.
  286. {78: // Numeric}INT(0)
  287. {otherwise:}""
  288. {endcase}
  289. {  ++x;}
  290. {endif}
  291. {next k;}
  292.  
  293. *-- set page number for multiple copies
  294. _pageno=gn_page
  295. {if lbl_top then}
  296. DO WHILE _plineno < {lbl_top}
  297.    ?
  298. ENDDO
  299. {endif}
  300.  
  301. IF ll_sample
  302.    DO Sample
  303.    IF LASTKEY() = 27
  304.       RETURN
  305.    ENDIF
  306. ENDIF
  307.  
  308. DO WHILE FOUND() .AND. .NOT. EOF() .AND. gl_prntflg
  309. {LMARG(4);}
  310. {if LABEL_NUP > 1 then}
  311. {isfirst=1;}
  312. {x=1;}
  313. STORE .F. TO \
  314. {init_array:}
  315. {if isfirst then}
  316. {  isfirst=0;}
  317. {else}
  318. ,\
  319. {endif}
  320. isfound[{x}]\
  321. {++x;}
  322. {if x < LABEL_NUP then goto init_array endif}
  323.  
  324. {x=0;}
  325. {i=1;}
  326. {arcopy:}
  327. {  if x then}
  328. IF FOUND() .AND. .NOT. EOF()
  329. {    LMARG(7);}
  330. {  endif}
  331. {  calcflds();}
  332. //
  333. {foreach FLD_ELEMENT i}
  334. tmp4lbl[{x+1},{i}]=\
  335. {case FLD_FIELDTYPE of}
  336. {Tabl_data:}
  337. {  if FLD_VALUE_TYPE == 77 then}
  338. MLINE({cap_first(FLD_FIELDNAME)},1)
  339. {  else}
  340. {    cap_first(FLD_FIELDNAME)}
  341.  
  342. {  endif}
  343. {Calc_data:}
  344. {  if FLD_FIELDNAME then}
  345. {    lower(FLD_FIELDNAME)}
  346.  
  347. {  else}
  348. {    foreach FLD_EXPRESSION exp in i}
  349. {      FLD_EXPRESSION}\
  350. {    next}
  351.  
  352. {  endif}
  353. {Pred_data:}
  354. {  case FLD_PREDEFINE of}
  355. {  0: // Date}
  356. gd_date
  357. {  1: // Time}
  358. gc_time
  359. {  2: // Recno}
  360. RECNO()
  361. {  3: // Pageno}
  362. _pageno
  363. {  endcase}
  364. {endcase}
  365. {next i;}
  366. //
  367. {  if x then}
  368. isfound[{x}]=.T.
  369. {  endif}
  370. CONTINUE
  371. {  if x then}
  372. {    LMARG(4);}
  373. ENDIF
  374. {  endif}
  375. {  ++x;}
  376. {  if x < LABEL_NUP-1 then
  377.      goto arcopy;
  378.    endif
  379. }
  380. IF FOUND() .AND. .NOT. EOF()
  381. {LMARG(7);}
  382. {calcflds();}
  383. isfound[{x}]=.T.
  384. {LMARG(4);}
  385. ENDIF
  386. {else}
  387. {calcflds();}
  388. {endif}
  389.  
  390. {x=0;
  391.  do while x < temp_row}
  392. ?
  393. {  ++x;
  394.  enddo
  395. }
  396. gn_line={nul2zero(temp_row)}
  397. *-- Check for blank lines
  398. DO Chk4null WITH {nul2zero(temp_row)}, {last_row+1}, {(last_row-temp_row+1)*label_nup}
  399.  
  400. DO WHILE gn_line < {label_tall+lbl_vspace}
  401.    ?
  402.    gn_line=gn_line+1
  403. ENDDO
  404. CONTINUE
  405. {if (lbl_top || lbl_bottom) && lbl_widow then}
  406. {  if LABEL_TALL + lbl_vspace - 1 then}
  407. IF .NOT. EOF() .AND. _plineno+{LABEL_TALL + lbl_vspace - 1} > gn_atline
  408.    EJECT PAGE
  409. ENDIF
  410. {  endif}
  411. {endif}
  412. {LMARG(1);}
  413. ENDDO
  414.  
  415. IF .NOT. gl_prntflg
  416.    SET MEMOWIDTH TO gn_memowid
  417.    SET SPACE &gc_space.
  418.    SET TALK &gc_talk.
  419.    ON ESCAPE
  420.    RETURN
  421. ENDIF
  422.  
  423. {if lbl_top || lbl_bottom || lbl_advance then}
  424. ON PAGE
  425. {endif}
  426.  
  427. ENDPRINTJOB
  428.  
  429. {if lbl_top || lbl_bottom || lbl_advance then}
  430. IF _plineno <> 0
  431.    EJECT PAGE
  432. ENDIF
  433. {endif}
  434.  
  435. SET MEMOWIDTH TO gn_memowid
  436. SET SPACE &gc_space.
  437. SET TALK &gc_talk.
  438. ON ESCAPE
  439. RETURN
  440. * EOP: {cap_first(fileroot(lblname))}.LBG
  441.  
  442. PROCEDURE Prnabort
  443. gl_prntflg=.F.
  444. RETURN
  445. * EOP: Prnabort
  446.  
  447. //
  448. // Main loop (inner loop to handles fields on each line by # of columns)
  449. //
  450. {foreach ELEMENT k}
  451. {  if ELEMENT_TYPE == @Band_Element then}
  452. {    ++k; ++item_number;}
  453. {    if eoc(k) then}
  454. {      exit;}
  455. {    endif}
  456. {    temp_row=ROW_POSITN;}
  457. {  endif}
  458. {  ++count;}
  459. {  LMARG(1);}
  460. {  blank_line=0;}
  461. //
  462. {
  463.    if number_of_blankable_lines then
  464.  
  465.      long_line=0;
  466.      blank_line=1;
  467.      current_element=COUNTC(k);
  468.      previous_element=0;
  469.      previous_row=ROW_POSITN;
  470.  
  471.      do while !eoc(k);
  472.        if ROW_POSITN > previous_row then
  473.          exit
  474.        endif
  475.        if blank_line then
  476.          if FLD_VALUE_TYPE == 78 then
  477.            if not AT("Z",FLD_PICFUN) then
  478.              blank_line=0;
  479.            endif
  480.          else
  481.            if TEXT_ITEM && !previous_element then
  482.              blank_line=0;
  483.            endif
  484.            if ELEMENT_TYPE == @FLD_ELEMENT && FLD_VALUE_TYPE != 67 then
  485.              blank_line=0;
  486.            endif
  487.          endif
  488.        endif
  489.        if !blank_line then
  490.          exit
  491.        endif
  492.        if ELEMENT_TYPE == @FLD_ELEMENT && FLD_VALUE_TYPE == 67 ||
  493.        (FLD_VALUE_TYPE == 78 && AT("Z",FLD_PICFUN)) then
  494.          previous_element=1;
  495.        else
  496.          previous_element=0;
  497.        endif
  498.        ++k;
  499.      enddo
  500.      if eoc(k) then
  501.        --k;
  502.      endif
  503.  
  504.      do while COUNTC(k) > current_element;
  505.        --k;
  506.      enddo
  507.  
  508.    endif}
  509. //
  510. //---------------------
  511. // Process blank lines
  512. //---------------------
  513. {  line=temp_row+1;}
  514. {  do while line < ROW_POSITN}
  515. {    x=1;}
  516. {    do while x <= LABEL_NUP}
  517. FUNCTION ___{line}{x}
  518. ll_output=.T.
  519. RETURN .F.
  520.  
  521. {      ++x;}
  522. {    enddo}
  523. {    ++line;}
  524. {  enddo}
  525. //--------------------
  526. // End of blank lines
  527. //--------------------
  528. //
  529. {  mrows = 0;}
  530. {  first_item = item_number;}
  531. {  line = temp_row;}
  532. //
  533. {  repeat:}
  534. //
  535. {  if new_line then}
  536. FUNCTION ___{nul2zero(ROW_POSITN)}{mrows+1}
  537. lc_ret=.F.
  538. {    if mrows then}
  539. *-- Column {mrows+1}
  540. IF isfound[{mrows}]
  541. {LMARG(4);}
  542. {    endif}
  543. {    if blank_line then}
  544. {      if mrows then}
  545. {        conditional_if_for_blank_line(k,7);}
  546. {      else}
  547. {        conditional_if_for_blank_line(k,4);}
  548. {      endif}
  549. {    else}
  550. ll_output=.T.
  551. {    endif}
  552. ?? \
  553. {  else}
  554. {    if long_line then}
  555. ?? \
  556. {      long_line=0;}
  557. {    else}
  558. ,\
  559. {    endif}
  560. {  endif}
  561. //
  562. {ni=0;}
  563. {  case ELEMENT_TYPE of}
  564. //
  565. {  @Text_Element:}
  566. //
  567. {x=Col_Positn;}
  568. {i=LEN(TEXT_ITEM);}
  569. {if i == 237 then}
  570. {  foreach TEXT_ITEM fcursor in k}
  571. {    if ni then}
  572. {      i=i+LEN(TEXT_ITEM);}
  573. {      temp=TEXT_ITEM;}
  574. {    endif}
  575. {    ++ni;}
  576. {  next}
  577. {endif}
  578. {current_column=x+i;}
  579. //
  580. {  @FLD_ELEMENT:}
  581. //
  582. {x=Col_Positn;}
  583. {i=FLD_REPWIDTH;}
  584. {if i > 237 then}
  585. {  foreach FLD_TEMPLATE fcursor in k}
  586. {    if ni then}
  587. {      temp=FLD_TEMPLATE;}
  588. {    endif}
  589. {    ++ni;}
  590. {  next}
  591. {endif}
  592. {current_column=x+i;}
  593. //
  594. {  endcase}
  595. //
  596. // is the next element on the same line
  597. //
  598. {  line=ROW_POSITN;}
  599. {  ++k;}
  600. {  if (not EOC(k)) && line == ROW_POSITN then}
  601. {    new_line=0;}
  602. //
  603. // is the next element flush with previous element
  604. //
  605. {    if current_column == Col_Positn then}
  606. {      combine=1;}
  607. {    else}
  608. {      combine=0;}
  609. {    endif}
  610. {  else}
  611. {    new_line=1;}
  612. {  endif}
  613. {  --k;}
  614. //-----------------------------------------------
  615. // Determine what type of data we are processing
  616. //-----------------------------------------------
  617. {  case ELEMENT_TYPE of}
  618. //
  619. {  @Text_Element:}
  620. //
  621. {if blank_line then}
  622. IIF( .NOT. ISBLANK( \
  623. {  --k;}
  624. {  if FLD_VALUE_TYPE == 78 then}
  625. TRANSFORM(\
  626. {  endif}
  627. {  if mrows+1 < LABEL_NUP then}
  628. tmp4lbl[{mrows+1},{mcolumns-1}] \
  629. {  else}
  630. {    putfld(k);}
  631. {  endif}
  632. {  if FLD_VALUE_TYPE == 78 then}
  633. ,"@{FLD_PICFUN}")\
  634. {  endif}
  635. {  ++k;}
  636. ),\
  637. {  long_line=1;
  638.  endif}
  639. //
  640. {if substr(TEXT_ITEM,1,1) == "\"" then
  641.    left_delimiter = "["
  642.    right_delimiter = "]"
  643.    delimit_flag = 1;
  644.  endif}
  645. {if i > 70 then}
  646. ;
  647. {  seperate(TEXT_ITEM);}
  648. {  if ni then}
  649. + {left_delimiter}{temp}{right_delimiter};
  650. {  endif}
  651. {else}
  652. {left_delimiter}{TEXT_ITEM}{right_delimiter} \
  653. {endif}
  654. //
  655. {if blank_line then}
  656. ,"" ) \
  657. {endif}
  658. //
  659. {if delimit_flag then
  660.    left_delimiter="\""
  661.    right_delimiter="\""
  662.    delimit_flag=0;
  663.  endif}
  664. {  @FLD_ELEMENT:}
  665. //
  666. {    if mrows+1 < LABEL_NUP then}
  667. tmp4lbl[{mrows+1},{mcolumns}] \
  668. {    else}
  669. {      putfld(k);}
  670. {    endif}
  671. {    ++mcolumns;}
  672. {  endcase}
  673. //
  674. {  if ELEMENT_TYPE == @FLD_ELEMENT then}
  675. //
  676. {    if !FLD_FIELDTYPE || FLD_FIELDTYPE == Calc_data ||
  677.         (FLD_FIELDTYPE == Pred_data && FLD_PREDEFINE > 1) then}
  678. //
  679. {      if FLD_VALUE_TYPE == 67 then
  680.          j=FLD_TEMPLATE+temp;
  681.          if FLD_LENGTH == FLD_REPWIDTH && j == REPLICATE("X",FLD_LENGTH) then
  682.            j="";
  683.          endif
  684.        else
  685.          j="1";
  686.        endif}
  687. //
  688. {      if FLD_PICFUN || j then}
  689. PICTURE \
  690. {      endif}
  691. //
  692. {      if FLD_PICFUN then}
  693. "@{FLD_PICFUN}\
  694. {        if j then}
  695.  \
  696. {        else}
  697. " \
  698. {        endif}
  699. {      endif}
  700. //
  701. {      if j then}
  702. {        if i > 70 then}
  703. {          if FLD_PICFUN then}
  704. "+;
  705. {          else}
  706. ;
  707. {          endif}
  708. {          seperate(FLD_TEMPLATE);}
  709. {          if ni then}
  710. + "{temp}";
  711. {          endif}
  712. {        else}
  713. {          if !FLD_PICFUN then}
  714. "\
  715. {          endif}
  716. {FLD_TEMPLATE}" \
  717. {        endif}
  718. {      endif}
  719. {    endif}
  720. //
  721. {  endif}
  722. //
  723. {  if FLD_STYLE then}
  724. {    style=getstyle(FLD_STYLE);}
  725. STYLE "{style}" \
  726. {  endif}
  727. {  if first_combine then}
  728. AT {Col_Positn+lbl_offset+(mrows*(lbl_wide+lbl_hspace))} \
  729. {    if combine then}
  730. {      first_combine=0;}
  731. {    endif}
  732. {  else}
  733. {    if not combine then first_combine=1; endif}
  734. {  endif}
  735. //
  736. // position to next element
  737. //
  738. {  temp_row=ROW_POSITN;}
  739. {  ++k; ++item_number;}
  740. //
  741. {  if !new_line || (!EOC(k) && temp_row == ROW_POSITN) then
  742.      if !new_line then}
  743. {      if long_line then}
  744.  
  745. {      else}
  746. ;
  747. {      endif}
  748. {    else}
  749.  
  750. {      long_line=0;}
  751. {    endif
  752.      if !EOC(k) then
  753.        goto repeat;
  754.      endif}
  755. {  else}
  756. {    long_line=0;}
  757. {  endif}
  758. //
  759. {  combine=0;}
  760. {  first_combine=1;}
  761. //
  762. {  if LABEL_NUP-1 > mrows then}
  763.  
  764. {    if blank_line && mrows then}
  765. {      LMARG(4);}
  766. {    else}
  767. {      LMARG(1);}
  768. {    endif}
  769. {    if blank_line then}
  770. {      if temp_row != last_row then}
  771. ELSE
  772.    lc_ret=.T.
  773. {      endif}
  774. ENDIF
  775. {    endif}
  776. {    if mrows then}
  777. {      LMARG(1);}
  778. ENDIF
  779. {    endif}
  780. RETURN lc_ret
  781.  
  782. {    ++mrows;}
  783. {    do while item_number > first_item}
  784. {      --k; --item_number;}
  785. {      if ELEMENT_TYPE == @FLD_ELEMENT then}
  786. {        --mcolumns;}
  787. {      endif}
  788. {    enddo}
  789. {    new_line=1;}
  790. {    goto repeat;}
  791. {  else}
  792.  
  793. {    if mrows then}
  794. {      LMARG(4);}
  795. {    else}
  796. {      LMARG(1);}
  797. {    endif}
  798. {    if blank_line then}
  799. {      if temp_row != last_row then}
  800. ELSE
  801.    lc_ret=.T.
  802. {      endif}
  803. ENDIF
  804. {    endif}
  805. {    if mrows then}
  806. {      LMARG(1);}
  807. ENDIF
  808. {    endif}
  809. RETURN lc_ret
  810.  
  811. {    mrows=0;}
  812. {    --k; --item_number;}
  813. {  endif}
  814. //
  815. {next k;
  816.  
  817. // check for empty label form
  818. if !count then
  819. }
  820.  
  821. PROCEDURE Chk4null
  822. PARAMETERS ln_line, ln_lastrow, ln_element
  823. RETURN
  824. *-- EOP: Chk4null
  825.  
  826. {else}
  827.  
  828. PROCEDURE Chk4null
  829. *-- Parameters:
  830. *
  831. *-- 1) line number on the design surface
  832. *-- 2) maximum number of printable lines
  833. *-- 3) parameter 2 times number of labels across
  834. *
  835. PARAMETERS ln_line, ln_lastrow, ln_element
  836.  
  837. gn_element=0
  838. {
  839.      x=1;
  840.      do while x <= label_nup}
  841. gn_line2[{x}]=ln_line
  842. {      ++x;
  843.      enddo}
  844. lc_temp=SPACE(7)
  845. ll_output=.F.
  846. DO WHILE gn_element < ln_element
  847.    gn_column=1
  848.    ll_output=.F.
  849.    DO WHILE gn_column <= {label_nup}
  850.       IF gn_line2[gn_column] < ln_lastrow
  851.          lc_temp=LTRIM(STR(gn_line2[gn_column]))+LTRIM(STR(gn_column))
  852.          DO WHILE ___&lc_temp.()
  853.             gn_element=gn_element+1
  854.             gn_line2[gn_column]=gn_line2[gn_column]+1
  855.             lc_temp=LTRIM(STR(gn_line2[gn_column]))+LTRIM(STR(gn_column))
  856.          ENDDO
  857.          gn_element=gn_element+1
  858.          gn_line2[gn_column]=gn_line2[gn_column]+1
  859.       ENDIF
  860.       gn_column=gn_column+1
  861.    ENDDO
  862.    IF ll_output
  863.      ?
  864.      gn_line=gn_line+1
  865.    ENDIF
  866. ENDDO
  867. RETURN
  868. *-- EOP: Chk4null
  869. {endif                // label form empty check}
  870. {if lbl_top then}
  871.  
  872. PROCEDURE Pagebrk
  873. EJECT PAGE
  874. DO WHILE _plineno < {lbl_top}
  875.    ?
  876. ENDDO
  877. RETURN
  878. * EOP: Pagebrk
  879. {endif}
  880.  
  881. PROCEDURE Sample
  882. PRIVATE x,y,choice
  883. DEFINE WINDOW w4sample FROM 15,20 TO 17,60 DOUBLE
  884. choice="Y"
  885. x=0
  886. DO WHILE choice = "Y"
  887.    y=0
  888.    DO WHILE y < {LABEL_TALL}
  889.       x=0
  890.       DO WHILE x < {LABEL_NUP}
  891. {if lbl_offset then}
  892.          IF x = 0
  893.             ?? "" AT {lbl_offset}
  894.          ENDIF
  895. {endif}
  896.          ?? REPLICATE("X",{LABEL_WIDE})\
  897. {if LABEL_HSPACE then}
  898. +SPACE({LABEL_HSPACE})
  899. {else}
  900.  
  901. {endif}
  902.          x=x+1
  903.       ENDDO
  904.       ?
  905.       y=y+1
  906.    ENDDO
  907. {if LABEL_VSPACE then}
  908.    x=0
  909.    DO WHILE x < {LABEL_VSPACE}
  910.       ?
  911.       x=x+1
  912.    ENDDO
  913. {endif}
  914.    ACTIVATE WINDOW w4sample
  915.    @ 0,3 SAY "{more_samples}";
  916.    GET choice PICTURE "!" VALID choice $ "NY"
  917.    READ
  918.    DEACTIVATE WINDOW w4sample
  919.    IF LASTKEY() = 27
  920.       EXIT
  921.    ENDIF
  922. ENDDO
  923. RELEASE WINDOW w4sample
  924. RETURN
  925. * EOP: Sample
  926. {return 0;}
  927. //--------------------------------
  928. // End of main template procedure
  929. // User defined function follows
  930. //--------------------------------
  931. {
  932.  define getstyle(mstyle);
  933.   var outstyle;
  934.   outstyle="";
  935.   if Bold        & mstyle then outstyle=outstyle+"B"; endif
  936.   if Italic      & mstyle then outstyle=outstyle+"I"; endif
  937.   if Underline   & mstyle then outstyle=outstyle+"U"; endif
  938.   if Superscript & mstyle then outstyle=outstyle+"R"; endif
  939.   if Subscript   & mstyle then outstyle=outstyle+"L"; endif
  940.   if User_Font   & mstyle then
  941.     if  1 & mstyle then outstyle=outstyle+"1"; endif
  942.     if  2 & mstyle then outstyle=outstyle+"2"; endif
  943.     if  4 & mstyle then outstyle=outstyle+"3"; endif
  944.     if  8 & mstyle then outstyle=outstyle+"4"; endif
  945.     if 16 & mstyle then outstyle=outstyle+"5"; endif
  946.   endif
  947. return outstyle;
  948. enddef;
  949. }
  950. {define putfld(cursor);
  951.  var value,value2;
  952.  value=cursor.FLD_FIELDTYPE;}
  953. {       if mrows+1 < LABEL_NUP then}
  954. tmp4lbl[{mrows+1},{mcolumns}] \
  955. {       else}
  956. {case value of}
  957. {Tabl_data:}
  958. {  if cursor.FLD_VALUE_TYPE == 77 then}
  959. MLINE({cap_first(cursor.FLD_FIELDNAME)},1)\
  960. {  else}
  961. {    cap_first(cursor.FLD_FIELDNAME)}\
  962. {  endif}
  963. {Calc_data:}
  964. {  if cursor.FLD_FIELDNAME then}
  965. {    lower(cursor.FLD_FIELDNAME)}\
  966. {  else}
  967. {    foreach FLD_EXPRESSION exp in cursor}
  968. {      FLD_EXPRESSION}\
  969. {    next}
  970.  ;
  971. {    long_line=1;}
  972. {  endif}
  973. {Pred_data:}
  974. {  value2=cursor.FLD_PREDEFINE;}
  975. {  case value2 of}
  976. {  0: // Date}
  977. gd_date\
  978. {  1: // Time}
  979. gc_time\
  980. {  2: // Recno}
  981. RECNO()\
  982. {  3: // Pageno}
  983. _pageno\
  984. {  endcase}
  985. {endcase}
  986.  \
  987. {       endif}
  988. {return;
  989. enddef;
  990. }
  991. {
  992.  define conditional_if_for_blank_line(cursor2, page_offset);
  993.  var field_flag, current_row;
  994. }
  995. *-- Test for blank line
  996. IF .NOT. ISBLANK( \
  997. {
  998.        current_element=COUNTC(cursor2);
  999.        current_row=cursor2.ROW_POSITN;
  1000.        do while !eoc(cursor2) && cursor2.ROW_POSITN == current_row}
  1001. {        if cursor2.ELEMENT_TYPE == @FLD_ELEMENT then
  1002.            if field_flag then}+ \
  1003. {          else
  1004.              field_flag=1;
  1005.            endif
  1006.          endif
  1007.          if cursor2.FLD_VALUE_TYPE == 78 then}
  1008. TRANSFORM(\
  1009. {          putfld(cursor2);}
  1010. ,"\
  1011. {          if cursor2.FLD_PICFUN then}
  1012. @{cursor2.FLD_PICFUN} \
  1013. {          endif}
  1014. {cursor2.FLD_TEMPLATE}") \
  1015. {//
  1016.          else
  1017.            if cursor2.ELEMENT_TYPE == @FLD_ELEMENT then
  1018.              putfld(cursor2);
  1019.            endif
  1020.          endif
  1021.          if cursor2.ELEMENT_TYPE == @FLD_ELEMENT then
  1022.            ++mcolumns;
  1023.          endif
  1024.          ++cursor2;
  1025.        enddo
  1026.        do while eoc(cursor2) || COUNTC(cursor2) > current_element;
  1027.          --cursor2;
  1028.          if cursor2.ELEMENT_TYPE == @FLD_ELEMENT then
  1029.            --mcolumns;
  1030.          endif
  1031.        enddo}
  1032. )
  1033. {LMARG(page_offset);}
  1034. ll_output=.T.
  1035. {  return;
  1036.  enddef
  1037. }
  1038. {define calcflds();}
  1039. {foreach FLD_ELEMENT k}
  1040. {  if FLD_FIELDNAME && FLD_FIELDTYPE == Calc_data then}
  1041. {lower(FLD_FIELDNAME)}=\
  1042. {foreach FLD_EXPRESSION j in k}
  1043. {FLD_EXPRESSION}
  1044. {next}
  1045.  
  1046. {  endif}
  1047. {next k;}
  1048. {return;}
  1049. {enddef}
  1050. {
  1051.  define seperate(string);
  1052.  var x,y,length;
  1053.  x=1;
  1054.  length=LEN(string);
  1055.  moreleft:
  1056.  if x < length then
  1057.    if x != 1 then}
  1058. + \
  1059. {  endif
  1060.    if x+70 <= length then y=70; else y=length-x+1; endif}
  1061. "{SUBSTR(string,x,y)}";
  1062. {  x=x+70;
  1063.    goto moreleft;
  1064.  endif
  1065.  return;
  1066.  enddef
  1067. }
  1068. {
  1069.  define extended_label_options()
  1070.  var curopt,ikey,row,col,lval,rval;
  1071.  curopt=5;
  1072.  rval=0;
  1073.  do while rval != 1 && rval != 117
  1074.    if !rval then
  1075.      nmsg( "Position: "+chr(25)+chr(24)+
  1076.        "  Select: "+chr(17)+chr(196)+chr(217)+
  1077.        "  CTRL-END or ESC: All options are correct");
  1078.    endif
  1079.    case curopt of
  1080.    1:
  1081.      pmsg("Number of physical lines from top of form.");
  1082.      cursor_pos(2,30);
  1083.    2:
  1084.      pmsg("Number of physical lines from bottom of form.");
  1085.      cursor_pos(3,30);
  1086.    3:
  1087.      pmsg("Page advance using DEFAULT (Print Menu), LINE FEEDS or FORM FEED");
  1088.      cursor_pos(4,25);
  1089.    4:
  1090.      pmsg("Check whether a label will fit on the page or not.");
  1091.      cursor_pos(5,29);
  1092.    5:
  1093.      pmsg("Accept current settings.");
  1094.      cursor_pos(7,21);
  1095.    endcase
  1096.    ikey=CGET(); rval=ikey >> 16; lval=ikey & 0xFFFF;
  1097.    if lval == 32 && (curopt == 3 || curopt == 4) then
  1098.      rval=13;
  1099.    endif
  1100.    case rval of
  1101.    13:
  1102. ;
  1103.      case curopt of
  1104.      1:
  1105.        lbl_top=enter_number(lbl_top,2);
  1106.        rval=0;
  1107.      2:
  1108.        lbl_bottom=enter_number(lbl_bottom,3);
  1109.        rval=0;
  1110.      3:
  1111.        lbl_advance=change_advance_by(lbl_advance);
  1112.      4:
  1113.        lbl_widow=change_widow(lbl_widow);
  1114.      5:
  1115.        rval=1;
  1116.      endcase
  1117. ;
  1118.    72:
  1119.      --curopt;
  1120.    80:
  1121.      ++curopt;
  1122.    endcase
  1123.    if curopt > 5 then
  1124.      curopt=1;
  1125.    endif
  1126.    if curopt < 1 then
  1127.      curopt=5;
  1128.    endif
  1129.  enddo
  1130.  cursor_pos(23,00);
  1131.  return;
  1132.  enddef
  1133.  
  1134.  define enter_number(number,row)
  1135.  var leftnum, rightnum, entry, rvalue, lvalue, tempnum;
  1136.  if number > 9 then
  1137.    leftnum=substr(str(number),1,1);
  1138.    rightnum=substr(str(number),2,1);
  1139.  else
  1140.    leftnum="0";
  1141.    rightnum=substr(str(number),1,1);
  1142.  endif
  1143.  tempnum=(val(leftnum)*10) + val(rightnum);
  1144.  nmsg("Increase or decrease: "+CHR(24)+CHR(25)+
  1145.    "  Accept: "+CHR(17)+CHR(196)+CHR(217)+
  1146.    "  Cancel: Esc");
  1147.  pmsg("Specify the length of the margin in lines (0-99)");
  1148.  do while rvalue != 1 && rvalue != 13 && rvalue != 117
  1149.    entry=CGET(); rvalue=entry >> 16; lvalue=entry & 0xFFFF;
  1150.    if !rvalue then
  1151.      if lvalue > 47 && lvalue < 58 then
  1152.        leftnum=rightnum;
  1153.        rightnum=str(lvalue-48);
  1154.        cursor_pos(row,29);
  1155.        cput(leftnum+rightnum);
  1156.        cursor_pos(row,30);
  1157.        tempnum=(val(leftnum)*10) + val(rightnum);
  1158.      endif
  1159.    endif
  1160.    if rvalue == 72 || rvalue == 80 then
  1161.      case rvalue of
  1162.      72:
  1163.        tempnum=tempnum+1;
  1164.      80:
  1165.        tempnum=tempnum-1;
  1166.      endcase
  1167.      if tempnum > 99 then
  1168.        tempnum=0
  1169.      endif
  1170.      if tempnum < 0 then
  1171.        tempnum=99;
  1172.      endif
  1173.      if tempnum > 9 then
  1174.        leftnum=substr(str(tempnum),1,1);
  1175.        rightnum=substr(str(tempnum),2,1);
  1176.      else
  1177.        leftnum="0";
  1178.        rightnum=substr(str(tempnum),1,1);
  1179.      endif
  1180.      cursor_pos(row,29);
  1181.      if !tempnum then
  1182.        cput(" 0");
  1183.      else
  1184.        if tempnum < 10 then
  1185.          cput(" ");
  1186.        endif
  1187.        cput(str(tempnum));
  1188.      endif
  1189.      cursor_pos(row,30);
  1190.    endif
  1191.  enddo
  1192.  if rvalue != 1 then
  1193.    number=(val(leftnum)*10) + val(rightnum);
  1194.  endif
  1195.  cursor_pos(row,29);
  1196.  if !number then
  1197.    cput(" 0");
  1198.  else
  1199.    if number < 10 then
  1200.      cput(" ");
  1201.    endif
  1202.    cput(str(number));
  1203.  endif
  1204.  cursor_pos(row,30);
  1205.  return number;
  1206.  enddef
  1207.  
  1208.  define change_widow(woption)
  1209.  ++woption;
  1210.  if woption > 1 then
  1211.    woption=0;
  1212.  endif
  1213.  case woption of
  1214.  0:
  1215.    cput("NO ");
  1216.  1:
  1217.    cput("YES");
  1218.  endcase
  1219.  cursor_pos(5,29);
  1220.  return woption;
  1221.  enddef
  1222.  
  1223.  define change_advance_by(aoption)
  1224.  ++aoption;
  1225.  if aoption > 2 then
  1226.    aoption=0;
  1227.  endif
  1228.  case aoption of
  1229.  0:
  1230.    cput("DEFAULT   ");
  1231.  1:
  1232.    cput("LINE FEEDS");
  1233.  2:
  1234.    cput("FORM FEED ");
  1235.  endcase
  1236.  cursor_pos(4,25);
  1237.  return aoption;
  1238.  enddef
  1239. }
  1240. // EOP: LABEL.COD
  1241.