* Program : EDIT.PRG * Version : V4.2 * Author(s) : Joe Tomas * Date : 08/28/86 * Notice : * Called by : FMAINT.PRG * Call(s) : * Notes : ALLOWS PRODUCT EDITS & DELETIONS TO MASTER FILE. * : THIS FUNCTION SHOULD BE DONE BEFORE CREATING PRODUC FILE. CLEAR SET INTENSITY ON STORE ' ' TO CODE STORE ' ' TO ANS STORE .F. TO DEL USE MASTER INDEX MASTER SET COLOR TO I @ 01,00 ?? VWIDE+SPACE(40) SET COLOR TO I+ @ 02,00 ?? VWIDE+' *** EDIT MASTER FILE *** ' SET COLOR TO I @ 03,00 ?? VWIDE+SPACE(40) SET COLOR TO * CHECK FOR "OE-OK.MEM" FILE ... IF IT EXISTS, THE PRODUC.DBF FILE * IS THE SAME AS THE MASTER.DBF FILE AND UPDATES TO THE MASTER FILE * WILL NOT CHANGE THE PRODUC FILE. DO NOT CONTINUE. IF FILE("OE-OK.MEM") @ 08,00 ?? VBELL3 SET COLOR TO + @ 08,10 ?? VWIDE+' *** ATTENTION *** ' SET COLOR TO @ 10,00 TEXT A WORKING PRODUC.DBF FILE HAS ALREADY BEEN CREATED FROM THE MASTER FILE AND UPDATES TO THE MASTER FILE WILL NOT UPDATE THE PRODUC FILE. IF ADDITIONAL UPDATES ARE MADE TO THE MASTER FILE NOW, BE SURE TO CREATE A NEW PRODUC.DBF FILE FROM THE MAINTENANCE MENU BEFORE USING THE POS SYSTEM. << DO NOT UPDATE MASTER FILE ONCE ORDERS HAVE BEEN ENTERED ! >> ENDTEXT ?? VBELL1 @ 23,30 SAY 'PRESS ANY KEY TO CONTINUE' DO WHILE INKEY() = 0 SET COLOR TO + @ 23,36 SAY 'ANY KEY' SET COLOR TO @ 23,36 SAY 'ANY KEY' ENDDO ENDIF FILE OE-OK.MEM @ 04,00 CLEAR DO WHILE CODE <> 'END' @ 05,14 SAY 'DECUS PRODUCT CODE...' GET CODE PICTURE '!!!' @ 07,14 SAY 'DEC PART NUMBER......'+SPACE(44) @ 09,14 SAY 'ITEM DESCRIPTION.....'+SPACE(44) @ 11,14 SAY 'DEC MLP..............'+SPACE(44) @ 13,14 SAY 'NEW ITEM (Y/N).......'+SPACE(44) SET COLOR TO I+ @ 23,20 SAY ' ENTER TO EXIT @ PRODUCT CODE ' SET COLOR TO READ IF CODE = 'END' IF DEL @ 05,00 CLEAR SET COLOR TO I+ @ 10,20 SAY ' NOW UPDATING DATABASE...PLEASE WAIT ' SET COLOR TO PACK ENDIF USE CLEAR RETURN ENDIF ENDIF SEEK CODE IF .NOT. FOUND() @ 05,43 ?? VBELL3 SET COLOR TO + @ 05,43 SAY 'INVALID PRODUCT CODE' SET COLOR TO LOOP ENDIF STORE ' ' TO ANS @ 05,43 SAY ' ' @ 09,14 SAY 'ITEM DESCRIPTION.....' SET COLOR TO I @ 07,36 SAY PARTNO @ 09,36 SAY DESCRI @ 11,36 SAY MLP @ 13,36 SAY NEW DO WHILE ANS <> 'E' .AND. ANS <> 'DEL' SET COLOR TO + @ 20,25 SAY 'EDIT OR DELETE PART? ( E/DEL ) ' SET COLOR TO @ 20,55 GET ANS PICTURE '!!!' READ CLEAR GETS @ 21,32 ENDDO IF ANS = 'DEL' STORE .T. TO DEL DELETE SET COLOR TO + @ 21,32 SAY '*** '+CODE+' DELETED ***' LOOP ENDIF @ 20,14 @ 05,43 @ 07,36 GET PARTNO PICTURE '!!-!!!!!-!!' @ 09,36 GET DESCRI @ 11,36 GET MLP PICTURE '9999.99' @ 13,36 GET NEW READ STORE ' ' TO OK DO WHILE OK <> 'Y' .AND. OK <> 'N' @ 20,00 ?? VBELL1 SET COLOR TO + @ 20,25 SAY 'OK TO UPDATE PART (Y/N) ' GET OK PICTURE '!' SET COLOR TO READ ENDDO IF OK = 'N' LOOP ELSE REPLACE PROCOD WITH UPPER(CODE),PARTNO WITH PARTNO,DESCRI WITH UPPER; (DESCRI),DISC WITH 1.00,PRICE WITH MLP IF SUBSTR(UPPER(NEW),1) = 'Y' .OR. NEW = 'NEW' REPLACE NEW WITH 'NEW' ELSE REPLACE NEW WITH ' ' ENDIF ENDIF CLEAR GETS STORE ' ' TO CODE STORE ' ' TO ANS @ 07,00 CLEAR ENDDO SET COLOR TO CLEAR RETURN