* Program : MAKEPROD.PRG * Version : V4.2 * Author(s) : Joe Tomas * Date : 07/31/86 * Notice : * Called by : FMAINT.PRG * Call(s) : * Notes : CREATES NEW PRODUC.DBF FILE FROM MASTER.DBF FILE. * : THE PRODUC FILE IS THE ACTUAL WORKING FILE FOR THE POS SYSTEM. CLEAR SET COLOR TO I @ 01,00 ?? VWIDE+SPACE(40) SET COLOR TO +I @ 02,00 ?? VWIDE+' *** CREATE PRODUC FILE FROM MASTER *** ' SET COLOR TO I @ 03,00 ?? VWIDE+SPACE(40) SET COLOR TO @ 06,16 SAY "THIS FUNCTION ASSUMES THAT YOU HAVE COMPLETED ALL" @ 07,16 SAY "EDITING & APPENDING OF PRODUCTS TO THE MASTER FILE." @ 09,16 SAY "IF YOU RESPOND WITH A YES AT THE NEXT PROMPT, A" @ 10,16 SAY "PRODUC.DBF FILE WILL BE CREATED FROM THE MASTER.DBF" @ 11,16 SAY "FILE FROM WHICH ALL ORDER ENTRY UPDATES ARE MADE." SET COLOR TO + @ 09,38 SAY '"YES"' STORE ' ' TO ANS @ 16,19 SAY 'SHALL WE CREATE THE PRODUC FILE NOW ? (Y/N)' SET COLOR TO @ 16,63 GET ANS PICTURE '!' READ IF ANS = 'Y' @ 05,00 CLEAR IF FILE("PRODUC.DBF") @ 10,00 ?? VBELL3 SET COLOR TO + @ 10,00 @ 10,19 SAY " PRODUC.DBF EXISTS...OVERWRITE IT ? (Y/N) " SET COLOR TO STORE " " TO ANS @ 10,63 GET ANS PICTURE "!" READ IF ANS = "N" @ 05,00 CLEAR ?? VBELL3 SET COLOR TO +I @ 10,17 SAY " PRODUC FILE NOT CREATED....RETURNING TO MENU " STORE 1 TO COUNT DO WHILE COUNT < 40 STORE COUNT+1 TO COUNT ENDDO CLEAR RETURN ENDIF ENDIF SET COLOR TO +*I @ 10,17 SAY " CREATING PRODUC.DBF & INDEX FILES...PLEASE WAIT. " SET COLOR TO IF FILE("PRODUC.DBF") DELE FILE PRODUC.DBF ENDIF IF FILE("PRODUC.NDX") DELE FILE PRODUC.NDX ENDIF * create a dummy misc. record in MASTER.DBF if it doesn't exist (999) USE MASTER INDEX MASTER FIND '999' IF .NOT. FOUND() SET COLOR TO + @ 12,24 SAY 'CREATING MISC. PRODUCT CODE (999)' SET COLOR TO APPEND BLANK REPLACE PROCOD WITH '999', MLP WITH 0, PRICE WITH 0 ENDIF USE COPY FILE MASTER.DBF TO PRODUC.DBF COPY FILE MASTER.NDX TO PRODUC.NDX SAVE TO OE-OK ALL LIKE ANS CLEAR RETURN ELSE @ 05,00 CLEAR ?? VBELL3 SET COLOR TO +I @ 10,17 SAY " PRODUC FILE NOT CREATED....RETURNING TO MENU " SET COLOR TO STORE 1 TO COUNT DO WHILE COUNT < 40 STORE COUNT+1 TO COUNT ENDDO CLEAR RETURN ENDIF ANS = 'YES'