home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / DATAMAIN._ / 1019.0 < prev    next >
Encoding:
Text File  |  1994-01-13  |  422 b   |  17 lines
  1. Arg window self
  2.  
  3. /* Get customer information */
  4. call getcust(window)
  5.  
  6. /* Create customer */
  7. rc=addcust(window)
  8.  
  9. if rc=0 then do
  10.    value=LEFT(STRIP(cust.name),25)||' '||LEFT(cust.company,25)
  11.    value = value||' '||LEFT(cust.customer_id,10)
  12.    /* Add item to CUSTLIST List Box */
  13.    CALL VpAddItem window,'CUSTLIST',1,value
  14.    /* Select item CUSTLIST List Box */
  15.    CALL VpSelect window,'CUSTLIST',1,1
  16. end
  17.