home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG102.ARC / BACK.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  68 lines
  1. *BACK.PRG
  2. *THIS PROGRAM APPENDS ITEMS BACK ORDERED
  3. ERASE
  4. set talk off
  5. STORE 00000 TO INV:NUM
  6. STORE 1 TO POINTER
  7. SELECT PRIMARY
  8. USE DATAFILE
  9. SELECT SECONDARY
  10. USE PRICELIS INDEX PRICECOD
  11. DO WHILE T
  12. SELECT PRIMARY
  13. STORE 001 TO ITEM:NUMA
  14. CLEAR GETS
  15. ? CHR(7)
  16. @ 1,0 SAY 'INVOICE NUMBER ON WHICH BACK ORDER OCCURRED, ZERO TO EXIT';
  17.  GET INV:NUM PICT '99999'
  18. @ 2,0 SAY 'LINE NUMBER' GET ITEM:NUMA PICTURE '999'
  19. READ
  20.              IF INV:NUM=0
  21.              RETURN
  22.              ENDIF
  23. GOTO POINTER
  24. LOCATE   FOR INVNUM=INV:NUM .AND. ITEM:NUM=ITEM:NUMA
  25.   STORE # TO POINTER
  26.          STORE CODE TO CODEA
  27.          STORE ACCNUM TO ACCNUMA
  28.           @  7,1 SAY 'CODE           ITEM              QUANTITY ORDERED'
  29.           @  8,1 SAY'-------------------------------------------------'
  30.           @  9,11 say item
  31.           @  9,41 SAY QTY:ORD
  32.           @  9,1 SAY CODE
  33.           @ 10,1 SAY'-------------------------------------------------'
  34. @  6,1 SAY 'ACCOUNT NUMBER '+ACCNUM
  35. @  6,31 SAY 'DATE ORDERED '+DATE:ORD
  36. @ 15,1 SAY 'IF NOT LINE REQUIRED PRESS (N) ELSE  <CR>'
  37.           WAIT TO DEC
  38.           STORE !(DEC) TO DEC
  39.           IF DEC='N'
  40.           LOOP
  41.           ENDIF
  42.           IF DEC=' '
  43. STORE 000 TO QTY:BACKOA
  44. @ 17,1 SAY'------------------------------------------------------- '
  45. @ 18,1 SAY' QUANTITY BACK ORDERED ' GET  QTY:BACKOA
  46. @ 19,1 SAY'-------------------------------------------------------'
  47. READ
  48. REPLACE QTY:BACKO WITH QTY:BACKOA
  49. REPLACE SPECIAL WITH T
  50. SELECT SECONDARY
  51. FIND &CODEA
  52. REPLACE B:ORDERED WITH B:ORDERED+QTY:BACKOA
  53. REPLACE DATE:BO WITH DATE()
  54. REPLACE STOCKED WITH STOCKED+QTY:BACKOA
  55. ENDIF
  56. ERASE
  57. ENDDO!!!!!!!!!!!!!!!!!!!!!!'
  58. @ 4,0 SAY 'CHECK' GET CHEK PICT' '
  59. READ
  60. IF QTY:BO =0
  61. RETURN
  62. ENDIF
  63. USE DATARCH
  64. APPEND BLANK
  65. REPLACE ACCNUM WITH ACCNUMA,CODE WITH CODEA,ITEM WITH ITEMA,DATE:ORD WITH;
  66.  DATE(),ORD:COM WITH COMM,QTY:ORD WITH QTY:BO,SPECIAL WITH T
  67. ENDDO
  68.