* add.sig 08/18/83
*******************************************************************
* THIS MODULE ADDS RECORDS TO THE ORDERS (SIG/M) DATA BASE.
* IT IS WELL WORTH PRINTING OUT AND STUDYING BECAUSE IT CON-
* TAINS MANY PRACTICAL HINTS FOR WRITING A dBASE PROGRAM.
* COMMENTS ARE INSERTED AT APPROPRIATE POINTS IN THE FILE.
* COMMENTS ALREADY IN MAIN.SIG ARE NOT REPEATED.
******************************************************************
* WE WANT TO GET RID OF THE INDEX WHEN WE ADD. IF YOU
* HAVE A SMALL DATA BASE IT IS OK - BUT OTHERWISE YOU
* HAVE TO WAIT FOR EACH RECORD TO BE INDEXED. MOST COMMERCIAL
* PROGRAMS INDEX EVERY TIME AND IT COSTS YOU TIME. HERE WE
* GIVE YOU THE OPTION OF INDEXING OR NOT WHEN YOU EXIT. IF
* YOU DO NOT, THE RECORDS ARE THERE, BUT YOU WILL NOT FIND
* THEM EXCEPT BY THE STRING SEARCH IN SEARCH1.SIG (SINCE IT
* USES THE 'LOCATE FOR' COMMAND TO FIND NON INDEXED DATA.
* THE INDEX IS STILL ON - SO WE TAKE IT OFF
SET INDEX TO
ERASE
STORE t TO first
STORE t TO more
* because we use three screens in this add - it makes for a neater
* screen if we get rid of the colons around the add field
SET COLON OFF
DO WHILE more
    IF first
        * get record number for automatic order number addition
        GOTO bottom
        @  2, 0 SAY "+---------------------------------------"
        @  2,39 SAY "---------------------------------------+"
        @  3, 5 SAY "ORDER NUMBER:"
        @  3,43 SAY "Complete:"
        @  4, 8 SAY "Last name:"
        @  4,46 SAY "First:"
        @  5,10 SAY "Address:"
        @  6, 9 SAY "(line 2):"
        @  7, 9 SAY "(line 3):"
        @  8,13 SAY "City:"
        @  8,46 SAY "State:"
        @  8,65 SAY "ZIP:"
        @  9,11 SAY "Amount:"
        @  9,46 SAY "Enter:"
        @  9,64 SAY "Ship:"
        @ 11,00 SAY "Enter Individual Volumes Ordered (999 when done): "
        @ 12, 2 SAY "Volumes:"
        @ 14, 2 SAY "Remarks:"
        @ 15, 2 SAY "Remarks:"
        @ 16, 0 SAY "Backorder:"
        @ 17,44 SAY "Catalog:"
        @ 18, 2 SAY "Shipped:"
        @ 18,26 SAY "Shipped:"
        @ 18,62 SAY "Update:"
        @ 19, 0 SAY "+---------------------------------------"
        @ 19,39 SAY "---------------------------------------+"
    ENDIF first
    STORE f TO first
    * IN SIG/M.CMD WE HAVE SAVED OUR VARIABLES AS A FILE ADD.MEM. WE NOW
    * BRING THEM UP (NOTE - IN ADD.INV WHERE ARE VARIABLES ARE ESSENTIALLY
    * NUMERIC WE DO NOT USE THIS METHOD.  IF YOU RUN THE SAME PROGRAM ON
    * BOTH CP/M 80 AND CP/M 86 FIRST DELETE ALL .MEM FILES AS THEY CANNOT
    * BE MOVED BETWEEN OPERATING SYSTEMS.
    RESTORE FROM ADD
    * WE ASSUME ENTER DATE IS TODAY
    STORE DATE() TO mentered
    STORE DATE() TO mshipped
    * we went to the bottom of the file - i.e. the last record -
    * we add one to that and get  4 digits of the order number
    STORE # TO ord:num
    STORE ord:num + 1 TO ord:num
    * change to character field from numeric
    STORE STR(ord:num,4,0) TO ord:num1
    * however, we want the order number to give us some date data
    * so we will use the date as part of the order number
    * it will be nnnnMMDDY. only way to get a duplicate order number
    * would be to add records, delete, pack and add more records on same
    * so please - pack at the end of the day
    STORE ord:num1 + $(DATE(),1,2) + $(DATE(),4,2) + $(DATE(),8,1) TO morder
    STORE 'Y' TO mcomp
    STORE 'N' TO mcatalog
    STORE 'Add Records Module' TO mode
    STORE 'Enter as many records as you want.' TO prompt1
    STORE "When done, enter 'blank' for last name" TO prompt2
    STORE "or Control 'Q' to end session" TO prompt3
    IF $(DATE(),1,2) <> '00' .AND. mdayu =  '  '
        STORE DATE() to mdayu
    ENDIF
    STORE DATE() TO mshipped
    * NOTE THE SHIFTS BETWEEN GET AND SAY. THIS SCREEN IS
    * REALLY A 3 STAGE SCREEN. THE FIRST PART CONTAINS THE
    * CUSTOMER DATA. THEN WE INPUT ALL VOLUMES ORDERED AND
    * THE PROGRAM AUTOMATICALLY WRITES THEM TO THE FILE
    * UNTIL FINISHED. BECAUSE OF THIS WE WANT TO MAKE SURE
    * DATA FROM THE LAST RECORD IS ELIMINATED.
    *FIRST MAKE SURE WE WANT TO ADD A RECORD
    @  1,25 SAY mode
    @  3,19 SAY morder picture '999999999'
    @  3,53 SAY '  '
    @  4,19 GET mlname
    @  4,53 SAY mfname
    @  5,19 SAY maddr1
    @  6,19 SAY maddr2
    @  7,19 SAY maddr3
    @  8,19 SAY mcity
    @  8,53 SAY mstate picture '!!'
    @  8,70 SAY mzip picture '99999'
    @  9,19 SAY '           '
    @  9,53 SAY '        '
    @ 11,62 SAY mstatus
    @ 12,11 SAY mvol1
    @ 14,11 SAY mrem1
    @ 15,11 SAY mrem2
    @ 16,11 SAY mbo
    @ 17,53 SAY '  '
    @ 18,11 SAY '        '
    @ 18,35 SAY '        '
    @ 18,70 SAY '        '
    @ 20,12 SAY prompt1
    @ 21,12 SAY prompt2
    @ 22,12 SAY prompt3
    READ
    * IF WE DO WANT TO ADD A RECORD - THEN DO IT
    IF mlname <> '    '
        @  1,25 SAY mode
        @  3,19 SAY morder picture '999999999'
        @  3,53 SAY '  '
        @  4,19 SAY mlname
        @  4,53 GET mfname
        @  5,19 GET maddr1
        @  6,19 GET maddr2
        @  7,19 GET maddr3
        @  8,19 GET mcity
        @  8,53 GET mstate picture '!!'
        @  8,70 GET mzip picture '99999'
        @  9,19 GET mamt
        @  9,53 SAY mentered picture '99/99/99'
        @ 11,62 SAY mstatus
        @ 12,11 SAY mvol1
        @ 14,11 SAY mrem1
        @ 15,11 SAY mrem2
        @ 16,11 SAY mbo
        @ 17,53 SAY '  '
        @ 18,11 SAY mbo:ship picture '99/99/99'
        @ 18,35 SAY mbo2:ship picture '99/99/99'
        @ 18,70 SAY mdayu picture '99/99/99'
        @ 20,12 SAY prompt1
        @ 21,12 SAY prompt2
        @ 22,12 SAY prompt3
        READ
        * ALWAYS USE CLEAR GETS AFTER GETS. OTHERWISE YOUR PROGRAM WILL
        * HAVE A HEART ATTACK. SEE PAGE 71 OF THE dbase manual
        CLEAR GETS
        * WE NOW GO TO PART 2 OF THE SCREEN. WE STORE 999
        * TO MVOL SO THAT ON OUR LAST RECORD WE CAN EXIT THE ADD EASIER
        STORE t TO getit
        STORE '            ' TO mstatus
        * ADD AS MANY RECORDS AS YOU WANT. MSTATUS SHOWS WHETHER THE
        * ITEM WAS IN STOCK. MVOL1 SHOWS WHAT WAS IN STOCK, MBO WHAT WAS
        * BACKORDERED. IF 999 NO MORE VOLUMES
        DO WHILE getit
            @ 11,62 SAY mstatus
            @ 12,11 SAY mvol1
            @ 16,11 SAY mbo
            @ 11,48 GET mvol
            READ
            @ 11,62
            CLEAR GETS
            IF mvol = 999
                STORE f TO getit
                STORE '             ' TO mstatus
                store f TO avoid
                * IF THE VOLUME WAS NOT 999 GO TO THE OTHER DATA BASE
            ELSE
                USE STOCK
                * FIND THE RECORD FOR THAT VOLUME. WE USE THE +1 BECAUSE OF VOL. 0
                * YOU COULD JUST AS EASILY (ALTHOUGH SLIGHTLY SLOWER) FIND
                * ANY DATA IN AN INDEXED OR NON-INDEXED FILE.
                * YOU COULD ALSO USE THE SELECT PRIMARY AND SECONDARY COMMAND HERE -
                * BUT FOR THIS DATA BASE, THIS IS THE SIMPLEST WAY OF DOING IT.
                LOCATE FOR # = mvol + 1
                * IF THE VOLUME WAS IN THE FILE
                IF .NOT. EOF
                    GOTO mvol + 1
                    * WE NEED ANOTHER CONTROL VARIABLE - WITHOUT IT VOLUMES NOT
                    * IN THE FILE WOUND UP BEING WRITTEN TO THE BACKORDERED LIST
                    STORE t TO avoid
                    * WE NOW WRITE TO THE OTHER FILE AND ADJUST THE INVENTORY
                    IF open:inv - back:ord - wait:ship + recvd + pend > 0
                        REPLACE change1 WITH t
                        REPLACE open:inv WITH open:inv -1
                        STORE 'IN STOCK ' to mstatus
                        REPLACE ship WITH ship + 1
                        REPLACE daych1 WITH mentered
                    ELSE
                        REPLACE change2 WITH t
                        REPLACE back:ord WITH back:ord+1
                        STORE 'BACKORDER' TO mstatus
                        REPLACE backship WITH backship + 1
                        REPLACE daych2 WITH mentered
                    ENDIF open:inv
                ELSE
                    * if no such volume
                    STORE 'TRY AGAIN ' TO mstatus
                    STORE f TO avoid
                ENDIF .not. eof
                * BACK TO OUR MAIN DATA BASE
                * TELL THEM WHAT YOU FOUND AT STATUS AND LIST IT ON THE ORDER OR BACKORDER LINE
                * NOTE HOW WE BUILD UP THE STRING THAT IS THE LIST OF VOLUMES
                USE SIG/M
                IF avoid = t
                    IF mstatus = 'IN STOCK'
                        STORE TRIM(mvol1) + STR(mvol,3,0) + ','  TO mvol1
                    ELSE
                        STORE TRIM(mbo) + STR(mvol,3,0) + ','  TO mbo
                    ENDIF mstatus = 'IN STOCK"
                ENDIF avoid
            ENDIF mvol
        ENDDO while getit
        * BLANK THE STATUS LINE AND GO TO PART 3 OF THE SCREEN AFTER 999
        * NOTE THAT YOU NEED NOT ENTER DATA IN THE ORDER IT APPEARS ON
        * THE SCREEN - WE DON'T KNOW IF THE ORDER IS COMPLETE OR BACKORDERED
        * UNTIL THE END. YOU SET THE ORDER - BUT DON'T DRIVE THE USER CRAZY.
        STORE '             ' TO mstatus
        @ 11,62 SAY mstatus
        @ 14,11 GET mrem1
        @ 15,11 GET mrem2
        @ 17,53 GET mcatalog picture '!'
        @ 18,11 GET mbo:ship picture '99/99/99'
        @ 18,35 GET mbo2:ship picture '99/99/99'
        @  9,70 GET mshipped picture '99/99/99'
        @  3,53 GET mcomp picture '!'
        READ
        CLEAR GETS
        * DETERMINE IF THERE IS INCOMPLETE OR INCORRECT DATA. THIS PART OF THE
        * PROGRAM CAN HANDLE A SUBSTANTIAL EDITING MODULE -
        DO CASE
            CASE .NOT. (mcomp = 'Y' .OR. mcomp = 'N')
                STORE t TO error
            CASE .NOT. (mcatalog = 'Y' .OR. mcatalog = 'N' .OR. mcatalog = 'B')
                STORE t TO error
            OTHERWISE
                STORE f TO error
        ENDCASE
        IF error
            @ 01,00
            @ 20,00
            @ 21,00
            @ 22,00
            @ 1,18 SAY 'Please Correct the Indicated Data'
            STORE t to an:error
            DO WHILE an:error
                DO CASE
                    CASE  .NOT. (mcomp = 'Y' .OR. mcomp = 'N')
                        @ 21,15 SAY 'Must answer "Y" or "N" if shipping completed                '
                        @  3,53 GET mcomp picture '!'
                        READ
                        @ 1,00
                    CASE .NOT. (mcatalog = 'Y' .OR. mcatalog = 'N' .OR. mcatalog = 'B')
                        @ 21,15 SAY 'Catalog is either "Y", "N" or "B" (backordered)'
                        @ 17,53 GET mcatalog picture '!'
                        READ
                        @ 1,00
                    OTHERWISE
                        STORE f TO an:error
                ENDCASE
            ENDDO while an:error
        ENDIF error
        * GIVE THEM A SECOND TRY AT THE DATA. IN MOST CASES IT WILL BE CORRECT, BUT
        * WHY NOT GIVE THEM ANOTHER CRACK. IT IS SIMPLER TO REPEAT THE WHOLE ROUTINE
        * ALTHOUGH YOU COULD LOOP BACK TO THE BEGINNING. WE ALSO WANT A WAY TO
        * READJUST THE INVENTORY INCASE YOU PUT IN A WRONG VOLUME.
        STORE 'Y' TO command
        @ 20,00
        @ 21,00
        @ 22,00
        @ 21,15 SAY 'IS THE ABOVE CORRECT ?                         '
        @ 21,48 GET command picture '!'
        READ
        @ 21,00
        IF command = 'N'
            ERASE
            @ 04,00 SAY "DO YOU WANT TO ELIMINATE ANY VOLUMES ON THE ORDERED OR BACKORDER LIST ? "
            @ 04,70 GET command picture '!'
            READ
            IF command = 'Y'
                @ 06,00 SAY "Items you enter here will automatically be adjusted in the Inventory."
                @ 07,00 SAY "After you have made the changes you will then be able to edit"
                @ 08,00 SAY "the list of disks shipped and/or backordered."
                @ 09,00 SAY "Enter 999 when done"
                STORE t TO getit
                STORE 999 TO mvol
                DO WHILE getit
                    @ 11,10 SAY "INVENTORY TO BE ADJUSTED FOR VOLUME "
                    @ 14,02 SAY "Volumes"
                    @ 14,11 SAY mvol1
                    @ 16,00 SAY "Backorder"
                    @ 16,11 SAY mbo
                    @ 11,48 GET mvol
                    READ
                    CLEAR GETS
                    IF mvol = 999
                        STORE f TO getit
                    ELSE
                        USE STOCK
                        LOCATE FOR # = mvol + 1
                        IF .NOT. EOF
                            GOTO mvol + 1
                            DO CASE
                                CASE open:inv - back:ord - wait:ship + recvd + pend > 0
                                    REPLACE open:inv WITH open:inv +1
                                    REPLACE ship WITH ship -1
                                CASE (open:inv - back:ord - wait:ship + recvd + pend = 0 .AND. back:ord = 0)
                                    REPLACE open:inv WITH open:inv + 1
                                    REPLACE ship WITH ship -1
                                CASE back:ord >0
                                    REPLACE back:ord WITH back:ord-1
                                    REPLACE backship WITH backship -1
                            ENDCASE
                        ENDIF .not. eof
                        USE SIG/M
                    ENDIF mvol
                ENDDO while getit
                * AT THIS POINT WE ARE DOING SOME TIGHT EDITING - SO PROTECT AGAINST
                * A SLIP OF THE FINGERS
                SET CONFIRM ON
                @ 11,10 SAY "Please adjust data 'Volumes' and/or 'Backorders'  "
                @ 14,02 SAY "Volumes"
                @ 14,11 GET mvol1
                @ 16,00 SAY "Backorder"
                @ 16,11 GET mbo
                READ
                CLEAR GETS
                SET CONFIRM OFF
                * BACK TO NORMAL EDITING
            ENDIF command = Y
            * NOW THAT VOLUME NUMBERS TAKEN CARE OF WE CAN ADJUST THE REST OF
            * THE DATA
            ERASE
            STORE 'Add Records Module' TO mode
            STORE 'Enter as many records as you want.' TO prompt1
            STORE "When done, enter blank for last name " TO prompt2
            STORE "or Control 'Q' to end session" TO prompt3
            @  1,25 SAY mode
            @  2, 0 SAY "+---------------------------------------"
            @  2,39 SAY "---------------------------------------+"
            @  3, 5 SAY "ORDER NUMBER:"
            @  3,43 SAY "Complete:"
            @  4, 8 SAY "Last name:"
            @  4,46 SAY "First:"
            @  5,10 SAY "Address:"
            @  6, 9 SAY "(line 2):"
            @  7, 9 SAY "(line 3):"
            @  8,13 SAY "City:"
            @  8,46 SAY "State:"
            @  8,65 SAY "ZIP:"
            @  9,11 SAY "Amount:"
            @  9,46 SAY "Enter:"
            @  9,64 SAY "Ship "
            @ 11,00 SAY "Enter Individual Volumes Ordered (999 when done): "
            @ 12, 2 SAY "Volumes:"
            @ 14, 2 SAY "Remarks:"
            @ 16, 0 SAY "Backorder:"
            @ 17,44 SAY "Catalog:"
            @ 18, 2 SAY "Shipped:"
            @ 18,26 SAY "Shipped:"
            @ 18,62 SAY "Update:"
            @ 19, 0 SAY "+---------------------------------------"
            @ 19,39 SAY "---------------------------------------+"
            @ 20,12 SAY prompt1
            @ 21,12 SAY prompt2
            @ 22,12 SAY prompt3
            @  3,19 GET morder picture '999999999'
            @  3,53 SAY mcomp picture '!'
            @  4,19 GET mlname
            @  4,53 GET mfname
            @  5,19 GET maddr1
            @  6,19 GET maddr2
            @  7,19 GET maddr3
            @  8,19 GET mcity
            @  8,53 GET mstate picture '!!'
            @  8,70 GET mzip picture '99999'
            @  9,19 GET mamt
            @  9,53 SAY mentered picture '99/99/99'
            @  9,70 SAY mshipped picture '99/99/99'
            @ 11,60 SAY mstatus
            @ 12,11 SAY mvol1
            @ 14,11 SAY mrem1
            @ 15,11 SAY mrem2
            @ 16,11 SAY mbo
            @ 17,53 SAY mcatalog
            @ 18,11 SAY mbo:ship picture '99/99/99'
            @ 18,35 SAY mbo2:ship picture '99/99/99'
            @ 18,70 SAY mdayu picture '99/99/99'
            READ
            CLEAR GETS
            STORE t TO getit
            STORE 999 TO mvol
            STORE '          ' TO mstatus
            DO WHILE getit
                @ 11,60 SAY mstatus
                @ 12,11 SAY mvol1
                @ 16,11 SAY mbo
                @ 11,48 GET mvol
                READ
                @ 11,60
                CLEAR GETS
                IF mvol = 999
                    STORE f TO getit
                    STORE '           ' TO mstatus
                    STORE f TO avoid
                ELSE
                    USE STOCK
                    LOCATE FOR # = mvol + 1
                    IF .NOT. EOF
                        GOTO mvol + 1
                        STORE t TO avoid
                        IF open:inv - back:ord - wait:ship + recvd + pend > 0
                            REPLACE change1 WITH t
                            REPLACE open:inv WITH open:inv -1
                            STORE 'IN STOCK ' to mstatus
                            REPLACE ship WITH ship + 1
                            REPLACE daych1 WITH mentered
                        ELSE
                            REPLACE change2 WITH t
                            REPLACE back:ord WITH back:ord+1
                            STORE 'BACKORDER' TO mstatus
                            REPLACE backship WITH backship +1
                            REPLACE daych2 WITH mentered
                        ENDIF open:inv
                    ELSE
                        STORE 'TRY AGAIN ' TO mstatus
                        STORE f TO avoid
                    ENDIF .not. eof
                ENDIF mvol
                USE SIG/M
                IF avoid = t
                    IF mstatus = 'IN STOCK'
                        STORE TRIM(mvol1) + STR(mvol,3,0) + ','  TO mvol1
                    ELSE
                        STORE TRIM(mbo) + STR(mvol,3,0) + ','  TO mbo
                    ENDIF mstatus
                ENDIF avoid
            ENDDO while getit
            STORE '           ' TO mstatus
            @ 11,60 SAY mstatus
            @ 14,11 GET mrem1
            @ 15,11 GET mrem2
            @ 17,53 GET mcatalog picture '!'
            @ 18,11 GET mbo:ship picture '99/99/99'
            @ 18,35 GET mbo2:ship picture '99/99/99'
            @  9,70 GET mshipped picture '99/99/99'
            @  3,53 GET mcomp picture '!'
            READ
            CLEAR GETS
        ENDIF command = N
        * OUR ADDING AND EDITING IS DONE - LET US ADD THE RECORD TO THE FILE
        APPEND BLANK
        REPLACE order WITH morder, comp WITH mcomp
        REPLACE lname WITH mlname, fname WITH mfname
        REPLACE addr1 WITH maddr1, addr2 WITH maddr2, addr3 WITH maddr3
        REPLACE city WITH mcity, state WITH mstate, zip WITH mzip
        REPLACE vol1 WITH mvol1
        REPLACE amt WITH mamt
        REPLACE entered WITH mentered, shipped WITH mshipped
        REPLACE rem1 WITH mrem1, rem2 WITH mrem2
        REPLACE bo WITH mbo, catalog WITH mcatalog, bo:ship WITH mbo:ship
        REPLACE bo2:ship WITH mbo2:ship, dayu WITH mdayu
        REPLACE new WITH t
        STORE t TO more
    ELSE
        STORE f TO more
    ENDIF mlname = ' '
ENDDO while more
* IF NO MORE RECORDS TO BE ADDED - ASK IF THEY WANT TO INDEX
STORE 'Y' TO command
ERASE
@ 02,10 SAY  'The  newly added ORDERS will NOT appear'
@ 03,10 SAY  'to be in the File until they are RE-INDEXED'
@ 04,10 SAY  'and this will take some time....'
@ 06,10 SAY  'You may re-index now or by using the'
@ 07,10 SAY  'Maintenance Function number 6'
@ 10,10 SAY  'Do you wish to RE-INDEX records NOW (Y/N)'
@ 10,52 GET   command PICTURE '!'
READ
IF command = 'Y'
    @ 14,10 SAY 'Records are now being re-indexed. '
    @ 16,10 SAY 'Please be patient as this takes a little time....'
    STORE CHR(PEEK(063)) TO dr
    INDEX ON !(lname) TO &dr.:orders
ENDIF command  = y
* get our drive letter
STORE CHR(PEEK(063)) TO dr
SET INDEX TO &dr.:orders
RELEASE ALL
* set the colons back on
SET COLON ON
STORE t TO first