* POSHIST | |
PUBLIC ANY,TOTCOST | |
HYR=C1 | |
SHIST='SALEHIST' | |
BMVA=' ' | |
DO WHILE .T. | |
INVNO=0 | |
DTE=DATE() | |
NME=SPACE(30) | |
PRT=' ' | |
GO TOP | |
CHOICE=C1 | |
CALL FADE | |
@C10,30 SAY '��������������������������������Ŀ' | |
@C11,30 SAY '� �' | |
@C12,30 SAY '� �' | |
@C13,30 SAY '� �' | |
@C14,30 SAY '� �' | |
@C15,30 SAY '� �' | |
@C16,30 SAY '� �' | |
@C17,30 SAY '� �' | |
@C18,30 SAY '� �' | |
@C19,30 SAY '��������������������������������Ĵ' | |
@C20,30 SAY '� �' | |
@C21,30 SAY '����������������������������������' | |
@C11,32 PROMPT '1> Daily Sales ' | |
@C12,32 PROMPT '2> Browse Invoices ' | |
@C13,32 PROMPT '3> Invoice Details ' | |
@C14,32 PROMPT '4> Print Invoices ' | |
@C15,32 PROMPT '5> Print Summary ' | |
@C16,32 PROMPT '6> List Purchasers ' | |
@C17,32 PROMPT '7> Sales Totals ' | |
@C18,32 PROMPT '8> Select Year - Now' | |
@C20,32 PROMPT 'Q> Quit to Sales ' | |
USE POSEQUIP | |
HSTYR=YR0+C1-HYR | |
YRNOW=LTRIM(STR(HSTYR))+'/'+LTRIM(STR(HSTYR+C1)) | |
USE | |
@C18,53 SAY YRNOW | |
MENU TO CHOICE | |
IF CHOICE>C8 | |
CHOICE=C0 | |
ENDIF | |
SAVE SCREEN TO SCRN2 | |
DO CASE | |
CASE CHOICE=C1 | |
IF UPPER(CMPNY1)#'COUNTER' .AND. UPPER(CMPNY1)#'MANAGEMENT' .AND.UPPER(CMPNY1)#'OFFICE' | |
SAVE SCREEN TO SCRNWARN | |
YORN=YA | |
CALL FADE | |
@C15,C10 SAY WARN1 | |
@C16,C10 SAY WARN2 | |
@C17,C10 SAY WARN3 | |
@C18,C10 SAY WARN4 | |
@C19,C10 SAY WARN5 | |
@C16,32 SAY 'an office/counter system function.' | |
@C18,43 GET YORN PICTURE '!' | |
READ | |
RESTORE SCREEN FROM SCRNWARN | |
IF YORN#YA | |
LOOP | |
ENDIF | |
ENDIF | |
CALL FADE | |
PICK=C0 | |
@C6 ,53 SAY '�������������������������Ŀ' | |
@C7 ,53 SAY '� �' | |
@C8 ,53 SAY '� �' | |
@C9 ,53 SAY '� �' | |
@C10,53 SAY '� �' | |
@C11,53 SAY '� �' | |
@C12,53 SAY '� �' | |
@C13,53 SAY '� �' | |
@C14,53 SAY '� �' | |
@C15,53 SAY '�������������������������Ĵ' | |
@C16,53 SAY '� �' | |
@C17,53 SAY '���������������������������' | |
@C7 ,55 PROMPT '1> Current Day ' | |
@C8 ,55 PROMPT '2> Display Summary ' | |
@C9 ,55 PROMPT '3> Display Details ' | |
@C10,55 PROMPT '4> Display Cheques ' | |
@C11,55 PROMPT '5> Daily Banking Report' | |
@C12,55 PROMPT '6> Daily Sales Summary ' | |
@C13,55 PROMPT '7> Royalty Report ' | |
@C14,55 PROMPT '8> Sales by Staff ' | |
@C16,55 PROMPT 'Q> Quit to History ' | |
SAVE SCREEN TO SCRN3 | |
MENU TO PICK | |
IF PICK>C8 | |
PICK=C0 | |
ENDIF | |
DO CASE | |
CASE PICK=C1 | |
IF UPPER(CMPNY1)#'COUNTER' .AND. UPPER(CMPNY1)#'MANAGEMENT' | |
SAVE SCREEN TO SCRNWARN | |
YORN=YA | |
CALL FADE | |
@C15,C10 SAY WARN1 | |
@C16,C10 SAY WARN2 | |
@C17,C10 SAY WARN3 | |
@C18,C10 SAY WARN4 | |
@C19,C10 SAY WARN5 | |
@C18,43 GET YORN PICTURE '!' | |
READ | |
RESTORE SCREEN FROM SCRNWARN | |
IF YORN#YA | |
RESTORE SCREEN FROM SCRN2 | |
LOOP | |
ENDIF | |
ENDIF | |
USE SALES | |
COUNT TO DAYCOUNT | |
@C13,C0 SAY '�����������������������������������������������������������������������Ŀ' | |
@C14,C0 SAY '� Since EOD Since banking �' | |
@C15,C0 SAY '� ��������� ������������� �' | |
@C16,C0 SAY '� No. of sales: Cash: �' | |
@C17,C0 SAY '� Cheque: �' | |
@C18,C0 SAY '� Credit Card: �' | |
@C19,C0 SAY '� Total Billed: TOTAL: �' | |
@C20,C0 SAY '�������������������������������������������������������������������������' | |
@C16,16 SAY DAYCOUNT | |
SUM PTYPECASH TO DAYCASH | |
@C16,40 SAY DAYCASH | |
SUM PTYPECHEQ TO DAYCHEQ | |
@C17,40 SAY DAYCHEQ | |
SUM PTYPECARD TO DAYCARD | |
@C18,40 SAY DAYCARD | |
DAYTOTAL=DAYCASH+DAYCHEQ+DAYCARD | |
@C19,40 SAY DAYTOTAL | |
SUM AMOUNT TO DAYBILL | |
@C19,C16 SAY DAYBILL PICTURE '999999.99' | |
USE CHEQUES | |
GO C4 | |
BNKCASH=AMOUNT | |
@C16,60 SAY BNKCASH PICTURE '999999.99' | |
SUM AMOUNT TO BNKCHEQ FOR RECNO()>C4 .AND. LEN(TRIM(LISTED))=C0 | |
@C17,60 SAY BNKCHEQ PICTURE '999999.99' | |
BNKCRED=C0 | |
GO C2 | |
BNKCRED=AMOUNT | |
GO C3 | |
BNKCRED=BNKCRED+AMOUNT | |
@C18,60 SAY BNKCRED PICTURE '999999.99' | |
BNKTOTAL=BNKCASH+BNKCRED+BNKCHEQ | |
@C19,60 SAY BNKTOTAL PICTURE '999999.99' | |
WAIT | |
USE | |
CASE PICK=C2 | |
USE YTDTOTAL | |
DTE1=DATE()-1 | |
@C20,C20 SAY 'Start date: (dd/mm/yy)' GET DTE1 | |
READ | |
LOCATE FOR DAY>=DTE1-15 | |
CLEAR | |
@C22,C0 SAY '��������������������������������������������������������������������������������' | |
@C23,C20 SAY 'Press Esc to quit ' | |
HELPNO=C2 | |
DECLARE FIELD[18] | |
FIELD[1]='DAY' | |
FIELD[2]='DAYTOTGROS-DAYTOTTAX' | |
FIELD[3]='DAYTOTTAX' | |
FIELD[4]='DAYTOTGROS' | |
FIELD[5]='DAYNETTCUM' | |
FIELD[6]='DAYGROSSCU' | |
FIELD[7]='DAYCOST' | |
FIELD[8]='DAYTOTNETT-DAYCOST' | |
FIELD[9]='ROUND(((DAYTOTGROS-DAYTOTTAX-DAYCOST)/(DAYTOTGROS-DAYTOTTAX+0.01))*100,1)' | |
FIELD[10]='ROUND((DAYGROSSCU*100)/((DAYTARGET)*DAYCOUNT),1)' | |
FIELD[11]='DAYTOT0' | |
FIELD[12]='DAYTOT1' | |
FIELD[13]='DAYTOT2' | |
FIELD[14]='DAYTOT3' | |
FIELD[15]='DAYCA' | |
FIELD[16]='DAYCH' | |
FIELD[17]='DAYCR' | |
FIELD[18]='DAYNO' | |
DECLARE COLHEAD[18] | |
COLHEAD[1]='Date' | |
COLHEAD[2]='Net' | |
COLHEAD[3]='Tax' | |
COLHEAD[4]='Gross' | |
COLHEAD[5]='Cum. Net' | |
COLHEAD[6]='Cum. Gross' | |
COLHEAD[7]='Cost' | |
COLHEAD[8]='Margin $' | |
COLHEAD[9]='Margin %' | |
COLHEAD[10]='% Target' | |
COLHEAD[11]='Group 1' | |
COLHEAD[12]='Group 2' | |
COLHEAD[13]='Group 3' | |
COLHEAD[14]='Group 4' | |
COLHEAD[15]='Cash' | |
COLHEAD[16]='Cheque' | |
COLHEAD[17]='Cr.Card' | |
COLHEAD[18]='# Sales' | |
DBEDIT(C0,C0,C21,79,FIELD,0,0,COLHEAD) | |
@C22,C0 CLEAR | |
@C23,C25 SAY XPICK | |
USE | |
CASE PICK=C3 | |
USE YTDTOTAL | |
DTE=DATE() | |
@C22,30 SAY 'Date: (dd/mm/yy)' GET DTE | |
READ | |
SUM DAYCOST TO TOTCOST FOR MONTH(DAY)=MONTH(DTE) | |
SET SOFTSEEK ON | |
LOCATE FOR DAY>=DTE | |
SET SOFTSEEK OFF | |
ANY=' ' | |
DO WHILE .T. | |
IF EOF() | |
@C23,C20 SAY 'NOT FOUND. Any key to continue.' GET ANY | |
READ | |
ELSE | |
CLEAR | |
@C0 ,C0 SAY '������������������������������������������������������������������������������Ŀ' | |
@C1 ,C0 SAY '� Date Trading Day # �' | |
@C2 ,C0 SAY '������������������������������������������������������������������������������Ĵ' | |
@C3 ,C0 SAY '� # Sales �Month-to-Date Total �Average per Day: �' | |
@C4 ,C0 SAY '� � Gross � Gross �' | |
@C5 ,C0 SAY '� Gross � Tax � Tax �' | |
@C6 ,C0 SAY '� Tax � ������������� � ��������������� �' | |
@C7 ,C0 SAY '� ������������� � Net � Net �' | |
@C8 ,C0 SAY '� Net � � �' | |
@C9 ,C0 SAY '� � # Sales �Average per Sale: �' | |
@C10,C0 SAY '� Cost � � Gross �' | |
@C11,C0 SAY '� � � Tax �' | |
@C12,C0 SAY '� $ Margin � � ��������������� �' | |
@C13,C0 SAY '� % Margin � � Net �' | |
@C14,C0 SAY '������������������������������������������������������������������������������Ĵ' | |
@C15,C0 SAY '� Gross Tax Net � Banking �' | |
@C16,C0 SAY '� Group 1 � ������� �' | |
@C17,C0 SAY '� Group 2 � Cash �' | |
@C18,C0 SAY '� Group 3 � Cheque �' | |
@C19,C0 SAY '� Group 4 � Cr. Card �' | |
@C20,C0 SAY '� ������������ ������������ ������������� � �������������� �' | |
@C21,C0 SAY '� � �' | |
@C22,C0 SAY '��������������������������������������������������������������������������������' | |
@C1 ,C14 SAY DAY | |
@C1 ,48 SAY DAYCOUNT | |
@C3 ,C14 SAY DAYNO PICTURE '999999999' | |
@C5 ,C14 SAY DAYTOTGROS PICTURE '999999999.99' | |
@C6 ,C14 SAY DAYTOTTAX PICTURE '999999999.99' | |
@C8 ,C14 SAY DAYTOTGROS-DAYTOTTAX PICTURE '999999999.99' | |
@C10,C14 SAY DAYCOST PICTURE '999999999.99' | |
@C12,C14 SAY DAYTOTNETT-DAYCOST PICTURE '999999999.99' | |
@C13,C14 SAY ROUND(((DAYTOTGROS-DAYTOTTAX-DAYCOST)/(DAYTOTGROS-DAYTOTTAX+0.01))*100,1) PICTURE '999999999.99' | |
@C4 ,38 SAY DAYGROSSCU PICTURE '999999999.99' | |
@C7 ,38 SAY DAYNETTCUM PICTURE '999999999.99' | |
@C5 ,38 SAY DAYGROSSCU-DAYNETTCUM PICTURE '999999999.99' | |
RCRDNO=RECNO() | |
MNTHDAY=MONTH(DAY) | |
DY=DAY | |
SUM DAYNO FOR MONTH(DAY)=MNTHDAY .AND. DY>=DAY TO TOTNUM | |
GOTO RCRDNO | |
@C9 ,42 SAY TOTNUM PICTURE '99999' | |
DAYCNT=DAYCOUNT+.01 | |
DAYN=DAYNO+.01 | |
@C4 ,65 SAY DAYGROSSCU/DAYCNT PICTURE '999999999.99' | |
@C5 ,65 SAY (DAYGROSSCU-DAYNETTCUM)/DAYCNT PICTURE '999999999.99' | |
@C7 ,65 SAY DAYNETTCUM/DAYCNT PICTURE '999999999.99' | |
@C10,65 SAY DAYGROSSCU/DAYN PICTURE '999999999.99' | |
@C11,65 SAY (DAYGROSSCU-DAYNETTCUM)/DAYN PICTURE '999999999.99' | |
@C13,65 SAY DAYNETTCUM/DAYN PICTURE '999999999.99' | |
@C16,C12 SAY DAYTOT0 PICTURE '999999999.99' | |
@C17,C12 SAY DAYTOT1 PICTURE '999999999.99' | |
@C18,C12 SAY DAYTOT2 PICTURE '999999999.99' | |
@C19,C12 SAY DAYTOT3 PICTURE '999999999.99' | |
@C16,C25 SAY DAYTAX0 PICTURE '999999999.99' | |
@C17,C25 SAY DAYTAX1 PICTURE '999999999.99' | |
@C18,C25 SAY DAYTAX2 PICTURE '999999999.99' | |
@C19,C25 SAY DAYTAX3 PICTURE '999999999.99' | |
@C16,39 SAY DAYTOT0-DAYTAX0 PICTURE '999999999.99' | |
@C17,39 SAY DAYTOT1-DAYTAX1 PICTURE '999999999.99' | |
@C18,39 SAY DAYTOT2-DAYTAX2 PICTURE '999999999.99' | |
@C19,39 SAY DAYTOT3-DAYTAX3 PICTURE '999999999.99' | |
ANALYSED=DAYTOT0+DAYTOT1+DAYTOT2+DAYTOT3 | |
ANALYTAX=DAYTAX0+DAYTAX1+DAYTAX2+DAYTAX3 | |
@C21,C12 SAY ANALYSED PICTURE '999999999.99' | |
@C21,C25 SAY ANALYTAX PICTURE '999999999.99' | |
@C21,39 SAY ANALYSED-ANALYTAX PICTURE '999999999.99' | |
@C17,65 SAY DAYCA PICTURE '999999999.99' | |
@C18,65 SAY DAYCH PICTURE '999999999.99' | |
@C19,65 SAY DAYCR PICTURE '999999999.99' | |
BANKED=DAYCA+DAYCH+DAYCR | |
@C21,65 SAY BANKED PICTURE '999999999.99' | |
IF DAYTOTGROSS#ANALYSED .OR. ANALYSED#BANKED | |
@C10,32 SAY '������������������ͻ' | |
@C11,32 SAY '� TOTALS DO NOT �' | |
@C12,32 SAY '� BALANCE �' | |
@C13,32 SAY '������������������ͼ' | |
ENDIF | |
ENDIF | |
CONT='N' | |
@C23,C20 SAY 'Change, Next, Previous or Quit? (C/N/P/Q)' GET CONT PICTURE '!' | |
READ | |
DO CASE | |
CASE CONT='C' | |
DO HISFMT | |
CASE CONT='N' | |
SKIP | |
CASE CONT='P' | |
SKIP-1 | |
CASE CONT='Q' | |
EXIT | |
ENDCASE | |
ENDDO | |
USE | |
CASE PICK=C4 | |
USE CHEQUES | |
GO BOTTOM | |
SKIP -18 | |
CLEAR | |
@C22,C0 SAY '��������������������������������������������������������������������������������' | |
@C23,C20 SAY 'Press Esc to quit ' | |
HELPNO=C2 | |
DECLARE FIELD[5] | |
FIELD[1]='SUBST(NAME,1,18)' | |
FIELD[2]='COMPANY' | |
FIELD[3]='AMOUNT' | |
FIELD[4]='DATE' | |
FIELD[5]='LISTED' | |
DECLARE COLHEAD[5] | |
COLHEAD[1]='Name' | |
COLHEAD[2]='Company' | |
COLHEAD[3]='Amount' | |
COLHEAD[4]='Date' | |
COLHEAD[5]=' ' | |
DBEDIT(C0,C0,C21,79,FIELD,0,0,COLHEAD) | |
@C22,C0 CLEAR | |
USE | |
CASE PICK=C5 | |
MNTH=MONTH(DATE()) | |
@C22,30 SAY 'Month for report:' GET MNTH | |
READ | |
USE YTDTOTAL | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM EOPBANK FOR MONTH(DAY)=MNTH TO PRINT | |
SET PRINT OFF | |
SET CONSOLE ON | |
USE | |
CASE PICK=C6 | |
MNTH=MONTH(DATE()) | |
@C22,30 SAY 'Month for report:' GET MNTH | |
READ | |
USE POSEQUIP | |
RPNM0=SUBST(REPNAME0,1,11) | |
RPNM1=SUBST(REPNAME1,1,11) | |
RPNM2=SUBST(REPNAME2,1,11) | |
RPNM3=SUBST(REPNAME3,1,11) | |
USE YTDTOTAL | |
GO BOTTOM | |
LASTDAY=DAY | |
GO TOP | |
SET PRINT ON | |
SET CONSOLE OFF | |
? &CND | |
REPORT FORM EOPRPT FOR MONTH(DAY)=MNTH TO PRINT | |
? &UNCND | |
? | |
? ' Group 1: '+RPNM0 | |
? ' Group 2: '+RPNM1 | |
? ' Group 3: '+RPNM2 | |
? ' Group 4: '+RPNM3 | |
SET CONSOLE ON | |
SET PRINT OFF | |
USE | |
CASE PICK=C7 | |
MNTH=' ' | |
@C22,30 SAY 'Month for report:' GET MNTH | |
READ | |
DT='01/'+MNTH+'/99' | |
DAT=CTOD(DT) | |
USE POSEQUIP | |
RPNM0=SUBST(REPNAME0,1,11) | |
RPNM1=SUBST(REPNAME1,1,11) | |
RPNM2=SUBST(REPNAME2,1,11) | |
RPNM3=SUBST(REPNAME3,1,11) | |
RATE0=REPRATE0 | |
RATE1=REPRATE1 | |
RATE2=REPRATE2 | |
RATE3=REPRATE3 | |
USE YTDTOTAL | |
SET DEVICE TO PRINT | |
EJECT | |
NETTCUM0=C0 | |
NETTCUM1=C0 | |
NETTCUM2=C0 | |
NETTCUM3=C0 | |
@PROW()+C2,C20 SAY USERNAME | |
@PROW()+C2,C20 SAY 'MONTHLY SALES SUMMARY for '+CMONTH(DAT) | |
@PROW()+C2,C4 SAY 'Date '+RPNM0+' '+RPNM1+' '+RPNM2+' '+RPNM3+' TOTAL' | |
@PROW()+C1,C4 SAY '���� ����������� ����������� ����������� ����������� �����' | |
DO WHILE .NOT. EOF() | |
IF MONTH(DAY)=MONTH(DAT) | |
@PROW()+C1,C2 SAY DAY PICTURE 'E' | |
@PROW(),12 SAY DAYTOT0-DAYTAX0 PICTURE '9999,999.99' | |
@PROW(),25 SAY DAYTOT1-DAYTAX1 PICTURE '9999,999.99' | |
@PROW(),38 SAY DAYTOT2-DAYTAX2 PICTURE '9999,999.99' | |
@PROW(),51 SAY DAYTOT3-DAYTAX3 PICTURE '9999,999.99' | |
@PROW(),65 SAY DAYTOT0+DAYTOT1+DAYTOT2+DAYTOT3-DAYTOTTAX PICTURE '9999,999.99' | |
NETTCUM0=NETTCUM0+DAYTOT0-DAYTAX0 | |
NETTCUM1=NETTCUM1+DAYTOT1-DAYTAX1 | |
NETTCUM2=NETTCUM2+DAYTOT2-DAYTAX2 | |
NETTCUM3=NETTCUM3+DAYTOT3-DAYTAX3 | |
ENDIF | |
IF EOF() | |
EXIT | |
ELSE | |
SKIP | |
LOOP | |
ENDIF | |
ENDDO | |
GO BOTTOM | |
@PROW()+C1,C4 SAY ' ���������� ��������� ���������� ����������� ���������' | |
@PROW()+C1,5 SAY 'TOTAL' | |
@PROW(),12 SAY NETTCUM0 PICTURE '9999,999.99' | |
@PROW(),25 SAY NETTCUM1 PICTURE '9999,999.99' | |
@PROW(),38 SAY NETTCUM2 PICTURE '9999,999.99' | |
@PROW(),51 SAY NETTCUM3 PICTURE '9999,999.99' | |
@PROW(),65 SAY NETTCUM0+NETTCUM1+NETTCUM2+NETTCUM3 PICTURE '9999,999.99' | |
IF USERCO='COMPUTERLAND' | |
@PROW()+C2,C0 SAY 'ROYALTY RATE' | |
@PROW(),12 SAY RATE0 PICTURE '9999,999.99' | |
@PROW(),25 SAY RATE1 PICTURE '999,999.999' | |
@PROW(),38 SAY RATE2 PICTURE '999,999.999' | |
@PROW(),51 SAY RATE3 PICTURE '999,999.999' | |
@PROW()+C2,C0 SAY ' ROYALTY' | |
@PROW(),12 SAY NETTCUM0*RATE0/100 PICTURE '9999,999.99' | |
@PROW(),25 SAY NETTCUM1*RATE1/100 PICTURE '9999,999.99' | |
@PROW(),38 SAY NETTCUM2*RATE2/100 PICTURE '9999,999.99' | |
@PROW(),51 SAY NETTCUM3*RATE3/10 PICTURE '9999,999.99' | |
@PROW(),65 SAY (NETTCUM0*RATE0/100)+(NETTCUM1*RATE1/100)+(NETTCUM2*RATE2/100)+(NETTCUM3*RATE3/100) PICTURE '9999,999.99' | |
* @PROW()+C2,20 SAY 'AD. FUND @ 0%' | |
* @PROW(),25 SAY ADFUND PICTURE '9999,999.99' | |
ENDIF | |
SET DEVICE TO SCREEN | |
USE | |
CASE PICK=C8 | |
USE STAFF | |
CLEAR | |
@C22,C0 SAY '��������������������������������������������������������������������������������' | |
@C23,C20 SAY 'Press Esc to quit ' | |
HELPNO=C2 | |
DECLARE FIELD[8] | |
FIELD[1]='PRONAME' | |
FIELD[2]='SURNAME' | |
FIELD[3]='SALES' | |
FIELD[4]='MTD' | |
FIELD[5]='YTD' | |
FIELD[6]='ROUND(((SALES-COST)/(SALES+0.01))*100,1)' | |
FIELD[7]='ROUND(((MTD-MTDCOST)/(MTD+0.01))*100,1)' | |
FIELD[8]='QUOTA' | |
DECLARE COLHEAD[8] | |
COLHEAD[1]='Name' | |
COLHEAD[2]='Surname' | |
COLHEAD[3]='Sales' | |
COLHEAD[4]='MTD Sales' | |
COLHEAD[5]='YTD Sales' | |
COLHEAD[6]='Margin' | |
COLHEAD[7]='MTD Margin' | |
COLHEAD[8]='Quota' | |
DBEDIT(C0,C0,C21,79,FIELD,0,0,COLHEAD) | |
@C22,C0 CLEAR | |
USE | |
ENDCASE PICK | |
CASE CHOICE=C2 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
STDATE=DATE() | |
@C22,32 SAY 'Start Date:' GET STDATE PICTURE 'E' | |
READ | |
LOCATE FOR INVDATE>=STDATE | |
CLEAR | |
@C22,C0 SAY '��������������������������������������������������������������������������������' | |
@C23,C20 SAY 'Press Esc to quit ' | |
HELPNO=C2 | |
IF INVLINES=C9 | |
DECLARE FIELD[31] | |
ELSE | |
DECLARE FIELD[35] | |
ENDIF | |
FIELD[1]='INVDATE' | |
FIELD[2]='INV_NO' | |
FIELD[3]='COMPANY' | |
FIELD[4]='NAME' | |
FIELD[5]='TITLE' | |
FIELD[6]='STREET' | |
FIELD[7]='TOWN' | |
FIELD[8]='ACCOUNT' | |
FIELD[9]='INVTYPE' | |
FIELD[10]='PTYPECASH+PTYPECHEQ+PTYPECARD' | |
FIELD[11]='PAID' | |
FIELD[12]='PRINTED' | |
FIELD[13]='PART1' | |
FIELD[14]='NUM1' | |
FIELD[15]='PART2' | |
FIELD[16]='NUM2' | |
FIELD[17]='PART3' | |
FIELD[18]='NUM3' | |
FIELD[19]='PART4' | |
FIELD[20]='NUM4' | |
FIELD[21]='PART5' | |
FIELD[22]='NUM5' | |
FIELD[23]='PART6' | |
FIELD[24]='NUM6' | |
FIELD[25]='PART7' | |
FIELD[26]='NUM7' | |
FIELD[27]='PART8' | |
FIELD[28]='NUM8' | |
FIELD[29]='PART9' | |
FIELD[30]='NUM9' | |
IF INVLINES=C9 | |
FIELD[31]='SALESMAN' | |
ELSE | |
FIELD[31]='PARTA' | |
FIELD[32]='NUMA' | |
FIELD[33]='PARTB' | |
FIELD[34]='NUMB' | |
FIELD[35]='SALESMAN' | |
ENDIF | |
IF INVLINES=C9 | |
DECLARE COLHEAD[31] | |
ELSE | |
DECLARE COLHEAD[35] | |
ENDIF | |
COLHEAD[1]='Date' | |
COLHEAD[2]='Inv. No.' | |
COLHEAD[3]='Company' | |
COLHEAD[4]='Name' | |
COLHEAD[5]='Greeting' | |
COLHEAD[6]='Street' | |
COLHEAD[7]='Town' | |
COLHEAD[8]='Account' | |
COLHEAD[9]='Type' | |
COLHEAD[10]='Total' | |
COLHEAD[11]='Paid' | |
COLHEAD[12]='Printed' | |
COLHEAD[13]='Item 1' | |
COLHEAD[14]='#1' | |
COLHEAD[15]='Item 2' | |
COLHEAD[16]='#2' | |
COLHEAD[17]='Item 3' | |
COLHEAD[18]='#3' | |
COLHEAD[19]='Item 4' | |
COLHEAD[20]='#4' | |
COLHEAD[21]='Item 5' | |
COLHEAD[22]='#5' | |
COLHEAD[23]='Item 6' | |
COLHEAD[24]='#6' | |
COLHEAD[25]='Item 7' | |
COLHEAD[26]='#7' | |
COLHEAD[27]='Item 8' | |
COLHEAD[28]='#8' | |
COLHEAD[29]='Item 9' | |
COLHEAD[30]='#9' | |
IF INVLINES=C9 | |
COLHEAD[31]=' ' | |
ELSE | |
COLHEAD[31]='Item 10' | |
COLHEAD[32]='#10' | |
COLHEAD[33]='Item 11' | |
COLHEAD[34]='#11' | |
COLHEAD[35]=' ' | |
ENDIF | |
DBEDIT(C0,C0,C21,79,FIELD,0,0,COLHEAD) | |
IF LASTKEY()#27 | |
DO WHILE .T. | |
DO HISTFMT | |
READ | |
DO CASE | |
CASE ANY='Q' | |
EXIT | |
CASE ANY='P' | |
DO HISPRINT | |
CASE ANY='B' | |
SKIP -1 | |
OTHERWISE | |
SKIP | |
ENDCASE | |
ENDDO | |
ENDIF | |
@C22,C0 CLEAR | |
@C23,C25 SAY XPICK | |
USE | |
CASE CHOICE=C3 | |
ANY=' ' | |
CALL FADE | |
PICK=C0 | |
@C6 ,53 SAY '�������������������������Ŀ' | |
@C7 ,53 SAY '� �' | |
@C8 ,53 SAY '� �' | |
@C9 ,53 SAY '� �' | |
@C10,53 SAY '� �' | |
@C11,53 SAY '� �' | |
@C12,53 SAY '� �' | |
@C13,53 SAY '� �' | |
@C14,53 SAY '� �' | |
@C15,53 SAY '� �' | |
@C16,53 SAY '� �' | |
@C17,53 SAY '�������������������������Ĵ' | |
@C18,53 SAY '� �' | |
@C19,53 SAY '���������������������������' | |
@C7 ,55 PROMPT '1> Find Account Code' | |
@C8 ,55 PROMPT '2> Find Invoice No. ' | |
@C9 ,55 PROMPT '3> Find Date ' | |
@C10,55 PROMPT '4> Find Name ' | |
@C11,55 PROMPT '5> Find Part ' | |
@C12,55 PROMPT '6> Find Description ' | |
@C13,55 PROMPT '7> Find Amount ' | |
@C14,55 PROMPT '8> Find Salesperson ' | |
@C15,55 PROMPT '9> Find Reference ' | |
@C16,55 PROMPT '0> Find P.O. Number ' | |
@C18,55 PROMPT 'Q> Quit to History ' | |
MENU TO PICK | |
IF PICK>C10 | |
PICK=C0 | |
ENDIF | |
DTE1=CTOD('01/01/01') | |
DTE2=DATE() | |
DO CASE | |
CASE PICK=C1 | |
CDE=' ' | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Account Code: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,36 GET CDE PICTURE '!!!!' | |
READ | |
IF HYR=C1 | |
USE &SHIST INDEX HISTDEX | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
CDE=TRIM(CDE) | |
SEEK CDE | |
DO WHILE ACCOUNT=CDE | |
DO HISTFMT | |
READ | |
DO CASE | |
CASE ANY='Q' | |
EXIT | |
CASE ANY='P' | |
DO HISPRINT | |
CASE ANY='L' | |
DO HISLABEL | |
CASE ANY='B' | |
SKIP -1 | |
OTHERWISE | |
SKIP | |
ENDCASE | |
ENDDO | |
ELSE | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
CDE=TRIM(CDE) | |
LOCATE FOR CDE$UPPER(ACCOUNT) | |
NOTEND=.T. | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
ENDIF | |
SET FILTER TO | |
USE | |
CASE PICK=C2 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
@C22,30 SAY 'Invoice Number:' GET INVNO PICTURE '######' | |
READ | |
GO TOP | |
LOCATE FOR INV_NO=INVNO | |
IF EOF() | |
ANY=' ' | |
@C23,30 SAY 'INVOICE NOT FOUND' GET ANY | |
READ | |
LOOP | |
ENDIF | |
DO HISTFMT | |
READ | |
DO CASE | |
CASE ANY='Q' | |
EXIT | |
CASE ANY='P' | |
DO HISPRINT | |
CASE ANY='L' | |
DO HISLABEL | |
CASE ANY='B' | |
SKIP -1 | |
OTHERWISE | |
SKIP | |
ENDCASE | |
USE | |
CASE PICK=C3 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
READ | |
GO TOP | |
LOCATE FOR INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
USE | |
CASE PICK=C4 | |
NME=SPACE(20) | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Name: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,37 GET NME | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
NME=TRIM(NME) | |
LOCATE FOR UPPER(NME)$UPPER(NAME).OR.UPPER(NME)$UPPER(COMPANY) | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C5 | |
PRT=SPACE(15) | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Part No: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,42 GET PRT PICTURE '!!!!!!!!!!!!!!!' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
GO TOP | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
PRT=TRIM(PRT) | |
IF INVLINES=C11 | |
LOCATE FOR PRT$PART1.OR.PRT$PART2.OR.PRT$PART3.OR.PRT$PART4.OR.PRT$PART5.OR.PRT$PART6.OR.PRT$PART7.OR.PRT$PART8.OR.PRT$PART9.OR.PRT$PARTA.OR.PRT$PARTB | |
ELSE | |
LOCATE FOR PRT$PART1.OR.PRT$PART2.OR.PRT$PART3.OR.PRT$PART4.OR.PRT$PART5.OR.PRT$PART6.OR.PRT$PART7.OR.PRT$PART8.OR.PRT$PART9 | |
ENDIF | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C6 | |
DSCR=SPACE(20) | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Description: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,37 GET DSCR | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
DSC=TRIM(UPPER(DSCR)) | |
IF INVLINES=C11 | |
LOCATE FOR DSC$UPPER(DESC1).OR.DSC$UPPER(DESC2).OR.DSC$UPPER(DESC3).OR.DSC$UPPER(DESC4).OR.DSC$UPPER(DESC5).OR.DSC$UPPER(DESC6).OR.DSC$UPPER(DESC7).OR.DSC$UPPER(DESC8).OR.DSC$UPPER(DESC9).OR.DSC$UPPER(DESCA).OR.DSC$UPPER(DESCB) | |
ELSE | |
LOCATE FOR DSC$UPPER(DESC1).OR.DSC$UPPER(DESC2).OR.DSC$UPPER(DESC3).OR.DSC$UPPER(DESC4).OR.DSC$UPPER(DESC5).OR.DSC$UPPER(DESC6).OR.DSC$UPPER(DESC7).OR.DSC$UPPER(DESC8).OR.DSC$UPPER(DESC9) | |
ENDIF | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C7 | |
AMNT1=C0 | |
AMNT2=C0 | |
@C18,C20 SAY '�������������������������������������Ŀ' | |
@C19,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C20,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� Amount greater than: �' | |
@C22,C20 SAY '� but less than: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C19,47 GET DTE1 | |
@C20,47 GET DTE2 | |
@C21,47 GET AMNT1 PICTURE '99999999' | |
@C22,47 GET AMNT2 PICTURE '99999999' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
NME=TRIM(NME) | |
LOCATE FOR AMNT1<=AMOUNT .AND. AMNT2>=AMOUNT | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C8 | |
SLSPRSN=' ' | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Salesperson: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,47 GET SLSPRSN PICTURE '!!!' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
NME=TRIM(NME) | |
LOCATE FOR SALESMAN=SLSPRSN | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C9 | |
SLSPRSN=' ' | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Reference: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
RFRNC=SPACE(20) | |
@C22,37 GET RFRNC | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
RFRNC=TRIM(RFRNC) | |
LOCATE FOR UPPER(RFRNC)=UPPER(REFERENCE) | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C10 | |
SLSPRSN=' ' | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� P.O. Number: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
PONO=SPACE(15) | |
@C22,42 GET PONO | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
PONO=TRIM(PONO) | |
LOCATE FOR UPPER(PONO)$UPPER(ORDNO) | |
DO WHILE .NOT. EOF() | |
IF ANY='Q' | |
EXIT | |
ENDIF | |
DO HISTFMT | |
READ | |
IF ANY='P' | |
DO HISPRINT | |
ENDIF | |
IF ANY='L' | |
DO HISLABEL | |
ENDIF | |
IF ANY='B' | |
SKIP -1 | |
ELSE | |
CONTINUE | |
ENDIF | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C0 | |
RESTORE SCREEN FROM SCRN2 | |
LOOP | |
ENDCASE | |
CASE CHOICE=C4 | |
CALL FADE | |
PICK=C0 | |
@C6 ,53 SAY '�������������������������Ŀ' | |
@C7 ,53 SAY '� �' | |
@C8 ,53 SAY '� �' | |
@C9 ,53 SAY '� �' | |
@C10,53 SAY '� �' | |
@C11,53 SAY '� �' | |
@C12,53 SAY '� �' | |
@C13,53 SAY '� �' | |
@C14,53 SAY '� �' | |
@C15,53 SAY '� �' | |
@C16,53 SAY '� �' | |
@C17,53 SAY '�������������������������Ĵ' | |
@C18,53 SAY '� �' | |
@C19,53 SAY '���������������������������' | |
@C7 ,55 PROMPT '1> Find Account Code' | |
@C8 ,55 PROMPT '2> Find Invoice No. ' | |
@C9 ,55 PROMPT '3> Find Date ' | |
@C10,55 PROMPT '4> Find Name ' | |
@C11,55 PROMPT '5> Find Part ' | |
@C12,55 PROMPT '6> Find Description ' | |
@C13,55 PROMPT '7> Find Amount ' | |
@C14,55 PROMPT '8> Find Salesperson ' | |
@C15,55 PROMPT '9> Find Reference ' | |
@C16,55 PROMPT '0> Find P.O. Number ' | |
@C18,55 PROMPT 'Q> Quit to History ' | |
MENU TO PICK | |
IF PICK>C10 | |
PICK=C0 | |
ENDIF | |
DTE1=CTOD('01/01/01') | |
DTE2=DATE() | |
DO CASE | |
CASE PICK=C1 | |
CDE=' ' | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Account Code: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,36 GET CDE PICTURE '!!!!' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
CDE=TRIM(CDE) | |
LOCATE FOR CDE$UPPER(ACCOUNT) | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C2 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
@C22,30 SAY 'Invoice Number:' GET INVNO PICTURE '######' | |
READ | |
GO TOP | |
LOCATE FOR INV_NO=INVNO | |
IF EOF() | |
? 'INVOICE NOT FOUND' | |
WAIT 'Any key to continue ' | |
LOOP | |
ENDIF | |
DO HISPRINT | |
READ | |
USE | |
CASE PICK=C3 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '���������������������������������������' | |
DTE1=DATE()-1 | |
@C20,48 GET DTE1 | |
READ | |
DTE2=DTE1 | |
@C21,48 GET DTE2 | |
READ | |
GO TOP | |
LOCATE FOR INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
USE | |
CASE PICK=C4 | |
NME=SPACE(20) | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Name: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,37 GET NME | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
NME=TRIM(NME) | |
LOCATE FOR UPPER(NME)$UPPER(NAME).OR.UPPER(NME)$UPPER(COMPANY) | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C5 | |
PRT=SPACE(15) | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Part No: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,37 GET PRT PICTURE '!!!!!!!!!!!!!!' | |
READ | |
PRT=TRIM(PRT) | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
LOCATE FOR PRT$PART1.OR.PRT$PART2.OR.PRT$PART3.OR.PRT$PART4.OR.PRT$PART5.OR.PRT$PART6.OR.PRT$PART7.OR.PRT$PART8.OR.PRT$PART9 | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C6 | |
DSCR=SPACE(20) | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Description: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,36 GET DSCR | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
DSC=TRIM(UPPER(DSCR)) | |
LOCATE FOR DSC$UPPER(DESC1).OR.DSC$UPPER(DESC2).OR.DSC$UPPER(DESC3).OR.DSC$UPPER(DESC4).OR.DSC$UPPER(DESC5).OR.DSC$UPPER(DESC6).OR.DSC$UPPER(DESC7).OR.DSC$UPPER(DESC8).OR.DSC$UPPER(DESC9) | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C7 | |
AMNT1=C0 | |
AMNT2=C0 | |
@C18,C20 SAY '�������������������������������������Ŀ' | |
@C19,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C20,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� Amount greater than: �' | |
@C22,C20 SAY '� but less than: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C19,47 GET DTE1 | |
@C20,47 GET DTE2 | |
@C21,47 GET AMNT1 PICTURE '99999999' | |
@C22,47 GET AMNT2 PICTURE '99999999' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
NME=TRIM(NME) | |
LOCATE FOR AMNT1<=AMOUNT .AND. AMNT2>=AMOUNT | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C8 | |
SLSPRSN=' ' | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Salesperson: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,36 GET SLSPRSN PICTURE '!!!' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
NME=TRIM(NME) | |
LOCATE FOR SALESMAN=SLSPRSN | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C9 | |
SLSPRSN=' ' | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Salesperson: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,36 GET SLSPRSN PICTURE '!!!' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
NME=TRIM(NME) | |
LOCATE FOR SALESMAN=SLSPRSN | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C10 | |
SLSPRSN=' ' | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Salesperson: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,36 GET SLSPRSN PICTURE '!!!' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
NME=TRIM(NME) | |
LOCATE FOR SALESMAN=SLSPRSN | |
NOTEND=.T. | |
DO WHILE NOTEND=.T. | |
IF EOF() | |
NOTEND=.F. | |
EXIT | |
ENDIF | |
DO HISPRINT | |
READ | |
CONTINUE | |
ENDDO | |
SET FILTER TO | |
USE | |
CASE PICK=C0 | |
RESTORE SCREEN FROM SCRN2 | |
LOOP | |
ENDCASE | |
CASE CHOICE=C5 | |
CALL FADE | |
PICK=C0 | |
@C11,50 SAY '����������������������������Ŀ' | |
@C12,50 SAY '� �' | |
@C13,50 SAY '� �' | |
@C14,50 SAY '� �' | |
@C15,50 SAY '� �' | |
@C16,50 SAY '� �' | |
@C17,50 SAY '����������������������������Ĵ' | |
@C18,50 SAY '� �' | |
@C19,50 SAY '������������������������������' | |
@C12,52 PROMPT '1> List All Sales ' | |
@C13,52 PROMPT '2> List Sales by Account ' | |
@C14,52 PROMPT '3> List Sales by Salesman ' | |
@C15,52 PROMPT '4> List Product by Account' | |
@C16,52 PROMPT '5> List Ex Tax Sales ' | |
@C18,52 PROMPT 'Q> Quit to History ' | |
MENU TO PICK | |
IF PICK>C5 | |
PICK=C0 | |
ENDIF | |
DO CASE | |
CASE PICK=C1 | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '���������������������������������������' | |
DTE1=DATE() | |
@C20,47 GET DTE1 | |
READ | |
DTE2=DTE1 | |
@C21,47 GET DTE2 | |
READ | |
SELECT 1 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
SET PRINT ON | |
SET CONSOLE OFF | |
SET DEVICE TO PRINT | |
LASTDATE=INVDATE | |
LNCOUNT=51 | |
TOTRCVD=C0 | |
TOTTX=C0 | |
TOTNT=C0 | |
GTOTRCVD=C0 | |
GTOTTX=C0 | |
GTOTNT=C0 | |
DO WHILE .NOT. EOF() | |
LNCOUNT=LNCOUNT+C1 | |
IF LNCOUNT>50 | |
EJECT | |
@PROW()+C2,45 SAY 'SALES SUMMARY' | |
@PROW()+C2,C10 SAY 'Invoice Acnt Name Received Tax Net' | |
@PROW()+C1,C10 SAY '------- ---- ---- -------- --- ---' | |
@PROW()+C1,C10 SAY SPACE(1) | |
LNCOUNT=C0 | |
ENDIF | |
RCVD=PTYPECASH+PTYPECHEQ+PTYPECARD | |
IF RCVD#C0 | |
IF INVTYPE='T' .OR. INVTYPE='W' | |
IF INVLINES=C9 | |
TX=(TAX1*NUM1)+(TAX2*NUM2)+(TAX3*NUM3)+(TAX4*NUM4)+(TAX5*NUM5)+(TAX6*NUM6)+(TAX7*NUM7)+(TAX8*NUM8)+(TAX9*NUM9) | |
ELSE | |
TX=(TAX1*NUM1)+(TAX2*NUM2)+(TAX3*NUM3)+(TAX4*NUM4)+(TAX5*NUM5)+(TAX6*NUM6)+(TAX7*NUM7)+(TAX8*NUM8)+(TAX9*NUM9)+(TAXA*NUMA)+(TAXB*NUMB) | |
ENDIF | |
ELSE | |
TX=C0 | |
ENDIF | |
NT=RCVD-TX | |
ELSE | |
TX=C0 | |
NT=C0 | |
ENDIF | |
DO CASE | |
CASE 'GSOC'$REFERENCE | |
RFRNC='GSOC' | |
CASE 'HUB '$REFERENCE | |
RFRNC='HUB' | |
CASE 'IST '$REFERENCE | |
RFRNC='IST ' | |
OTHERWISE | |
RFRNC=' ' | |
ENDCASE | |
@PROW()+C1,C0 SAY INVDATE | |
@PROW(),C11 SAY INV_NO | |
@PROW(),C18 SAY ACCOUNT | |
@PROW(),C23 SAY SUBST(NAME,1,23) | |
@PROW(),46 SAY RCVD PICTURE '999999.99' | |
@PROW(),56 SAY TX PICTURE '999999.99' | |
@PROW(),66 SAY NT PICTURE '999999.99' | |
@PROW(),76 SAY RFRNC | |
TOTRCVD=TOTRCVD+RCVD | |
TOTTX=TOTTX+TX | |
TOTNT=TOTNT+NT | |
GTOTRCVD=GTOTRCVD+RCVD | |
GTOTTX=GTOTTX+TX | |
GTOTNT=GTOTNT+NT | |
SKIP | |
IF INVDATE#LASTDATE | |
@PROW()+C1,46 SAY '---------' | |
@PROW(),56 SAY '---------' | |
@PROW(),66 SAY '---------' | |
@PROW()+C1,C10 SAY 'DAILY TOTAL' | |
@PROW(),46 SAY TOTRCVD PICTURE '999999.99' | |
@PROW(),56 SAY TOTTX PICTURE '999999.99' | |
@PROW(),66 SAY TOTNT PICTURE '999999.99' | |
@PROW()+C1,46 SAY '=========' | |
@PROW(),56 SAY '=========' | |
@PROW(),66 SAY '=========' | |
LNCOUNT=LNCOUNT+C2 | |
LASTDATE=INVDATE | |
TOTRCVD=C0 | |
TOTTX=C0 | |
TOTNT=C0 | |
ENDIF | |
ENDDO | |
@PROW()+C1,C10 SAY 'TOTAL' | |
@PROW(),46 SAY GTOTRCVD PICTURE '999999.99' | |
@PROW(),56 SAY GTOTTX PICTURE '999999.99' | |
@PROW(),66 SAY GTOTNT PICTURE '999999.99' | |
@PROW()+C1,47 SAY '=========' | |
@PROW(),56 SAY '=========' | |
@PROW(),66 SAY '=========' | |
SET PRINT OFF | |
SET CONSOLE ON | |
SET DEVICE TO SCREEN | |
USE | |
CASE PICK=C2 | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Account: �' | |
@C21,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C23,C20 SAY '���������������������������������������' | |
ACCNT=' ' | |
@C20,34 GET ACCNT PICTURE '!!!!' | |
DTE1=DATE() | |
@C21,47 GET DTE1 | |
READ | |
DTE2=DTE1 | |
@C22,47 GET DTE2 | |
READ | |
SELECT 1 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 .AND. ACCNT=ACCOUNT | |
GO TOP | |
SET PRINT ON | |
SET CONSOLE OFF | |
SET DEVICE TO PRINT | |
LASTDATE=INVDATE | |
LNCOUNT=51 | |
TOTRCVD=C0 | |
TOTBILL=C0 | |
GTOTRCVD=C0 | |
GTOTBILL=C0 | |
DO WHILE .NOT. EOF() | |
LNCOUNT=LNCOUNT+C1 | |
IF LNCOUNT>50 | |
EJECT | |
@PROW()+C2,45 SAY 'SALES SUMMARY' | |
@PROW()+C2,C10 SAY 'Invoice Name Billed Received' | |
@PROW()+C1,C10 SAY '------- ---- ------ --------' | |
@PROW()+C1,C1 SAY ACCOUNT | |
@PROW()+C1,C1 SAY '----' | |
LNCOUNT=C0 | |
ENDIF | |
RCVD=PTYPECASH+PTYPECHEQ+PTYPECARD | |
@PROW()+C1,C0 SAY INVDATE | |
@PROW(),C11 SAY INV_NO | |
@PROW(),C18 SAY SUBST(NAME,1,20) | |
@PROW(),39 SAY REFERENCE | |
IF AMOUNT>C0 .AND. RCVD=C0 | |
@PROW(),60 SAY AMOUNT PICTURE '999999.99' | |
ENDIF | |
@PROW(),70 SAY RCVD PICTURE '999999.99' | |
IF AMOUNT>C0 .AND. RCVD=C0 | |
TOTBILL=TOTBILL+AMOUNT | |
GTOTBILL=GTOTBILL+AMOUNT | |
ENDIF | |
TOTRCVD=TOTRCVD+RCVD | |
GTOTRCVD=GTOTRCVD+RCVD | |
SKIP | |
IF INVDATE#LASTDATE | |
LNCOUNT=LNCOUNT+C1 | |
@PROW()+C1,C1 SAY ' ' | |
LASTDATE=INVDATE | |
ENDIF | |
ENDDO | |
@PROW()+C2,60 SAY '---------' | |
@PROW(),70 SAY '---------' | |
@PROW()+C1,C10 SAY 'TOTAL' | |
@PROW(),60 SAY GTOTBILL PICTURE '999999.99' | |
@PROW(),70 SAY GTOTRCVD PICTURE '999999.99' | |
@PROW()+C1,60 SAY '=========' | |
@PROW(),70 SAY '=========' | |
SET PRINT OFF | |
SET CONSOLE ON | |
SET DEVICE TO SCREEN | |
USE | |
CASE PICK=C3 | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Salesman (or ALL): �' | |
@C23,C20 SAY '���������������������������������������' | |
DTE1=DATE() | |
@C20,47 GET DTE1 | |
READ | |
DTE2=DTE1 | |
@C21,47 GET DTE2 | |
READ | |
SELECT 1 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
@C22,47 GET NME PICTURE '!!!' | |
READ | |
IF NME='ALL' | |
SELECT 2 | |
USE STAFF | |
GO TOP | |
DO WHILE .NOT. EOF() | |
SELECT 1 | |
SET CONSOLE OFF | |
IF INVLINES=C9 | |
REPORT FORM HISTSMN9 FOR B->INIT=A->SALESMAN .AND. PAID=YA HEADING B->INIT TO PRINT | |
ELSE | |
REPORT FORM HISTSMAN FOR B->INIT=A->SALESMAN .AND. PAID=YA HEADING B->INIT TO PRINT | |
ENDIF | |
SET CONSOLE ON | |
SELECT 2 | |
SKIP | |
ENDDO | |
SELECT 1 | |
ELSE | |
SET CONSOLE OFF | |
IF INVLINES=C9 | |
REPORT FORM HISTSMN9 FOR SALESMAN=NME .AND. PAID=YA HEADING NME TO PRINT | |
ELSE | |
REPORT FORM HISTSMAN FOR SALESMAN=NME .AND. PAID=YA HEADING NME TO PRINT | |
ENDIF | |
SET CONSOLE ON | |
ENDIF | |
CLOSE ALL | |
CASE PICK=C4 | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Account: �' | |
@C23,C20 SAY '���������������������������������������' | |
DTE1=DATE() | |
@C20,47 GET DTE1 | |
READ | |
DTE2=DTE1 | |
@C21,47 GET DTE2 | |
READ | |
ACCNT=' ' | |
@C22,34 GET ACCNT PICTURE '!!!!' | |
READ | |
SELECT 1 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 .AND. ACCOUNT=ACCNT | |
SELECT 9 | |
USE STCOUNT | |
ZAP | |
SELECT 1 | |
GO TOP | |
DO WHILE .NOT. EOF() | |
IF NUM1>0 .AND. SUBST(PART1,1,6)#'SPEC-D' .AND. SUBST(PART1,1,6)#'SPEC-N' .AND. SUBST(PART1,1,6)#'SPEC-P' .AND. SUBST(PART1,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART1 | |
REPLACE DESC WITH A->DESC1 | |
REPLACE NUM WITH A->NUM1 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUM2>0 .AND. SUBST(PART2,1,6)#'SPEC-D' .AND. SUBST(PART2,1,6)#'SPEC-N' .AND. SUBST(PART2,1,6)#'SPEC-P' .AND. SUBST(PART2,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART2 | |
REPLACE DESC WITH A->DESC2 | |
REPLACE NUM WITH A->NUM2 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUM3>0 .AND. SUBST(PART3,1,6)#'SPEC-D' .AND. SUBST(PART3,1,6)#'SPEC-N' .AND. SUBST(PART3,1,6)#'SPEC-P' .AND. SUBST(PART3,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART3 | |
REPLACE DESC WITH A->DESC3 | |
REPLACE NUM WITH A->NUM3 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUM4>0 .AND. SUBST(PART4,1,6)#'SPEC-D' .AND. SUBST(PART4,1,6)#'SPEC-N' .AND. SUBST(PART4,1,6)#'SPEC-P' .AND. SUBST(PART4,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART4 | |
REPLACE DESC WITH A->DESC4 | |
REPLACE NUM WITH A->NUM4 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUM5>0 .AND. SUBST(PART5,1,6)#'SPEC-D' .AND. SUBST(PART5,1,6)#'SPEC-N' .AND. SUBST(PART5,1,6)#'SPEC-P' .AND. SUBST(PART5,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART5 | |
REPLACE DESC WITH A->DESC5 | |
REPLACE NUM WITH A->NUM5 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUM6>0 .AND. SUBST(PART6,1,6)#'SPEC-D' .AND. SUBST(PART6,1,6)#'SPEC-N' .AND. SUBST(PART6,1,6)#'SPEC-P' .AND. SUBST(PART6,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART6 | |
REPLACE DESC WITH A->DESC6 | |
REPLACE NUM WITH A->NUM6 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUM7>0 .AND. SUBST(PART7,1,6)#'SPEC-D' .AND. SUBST(PART7,1,6)#'SPEC-N' .AND. SUBST(PART7,1,6)#'SPEC-P' .AND. SUBST(PART7,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART7 | |
REPLACE DESC WITH A->DESC7 | |
REPLACE NUM WITH A->NUM7 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUM8>0 .AND. SUBST(PART8,1,6)#'SPEC-D' .AND. SUBST(PART8,1,6)#'SPEC-N' .AND. SUBST(PART8,1,6)#'SPEC-P' .AND. SUBST(PART8,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART8 | |
REPLACE DESC WITH A->DESC8 | |
REPLACE NUM WITH A->NUM8 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUM9>0 .AND. SUBST(PART9,1,6)#'SPEC-D' .AND. SUBST(PART9,1,6)#'SPEC-N' .AND. SUBST(PART9,1,6)#'SPEC-P' .AND. SUBST(PART9,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PART9 | |
REPLACE DESC WITH A->DESC9 | |
REPLACE NUM WITH A->NUM9 | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF INVLINES>C9 | |
IF NUMA>0 .AND. SUBST(PARTA,1,6)#'SPEC-D' .AND. SUBST(PARTA,1,6)#'SPEC-N' .AND. SUBST(PARTA,1,6)#'SPEC-P' .AND. SUBST(PARTA,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PARTA | |
REPLACE DESC WITH A->DESCA | |
REPLACE NUM WITH A->NUMA | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
IF NUMB>0 .AND. SUBST(PARTB,1,6)#'SPEC-D' .AND. SUBST(PARTB,1,6)#'SPEC-N' .AND. SUBST(PARTB,1,6)#'SPEC-P' .AND. SUBST(PARTB,1,6)#'SPEC-W' | |
SELECT 9 | |
APPEND BLANK | |
REPLACE PART WITH A->PARTB | |
REPLACE DESC WITH A->DESCB | |
REPLACE NUM WITH A->NUMB | |
REPLACE DATE WITH A->INVDATE | |
SELECT 1 | |
ENDIF | |
ENDIF | |
SKIP | |
ENDDO | |
SELECT 9 | |
REPLACE ALL PART WITH '{No part no.}' FOR SUBST(PART,1,4)='SPEC' | |
INDEX ON PART TO SPCNTDEX+DTOC(DATE) | |
SET CONSOLE OFF | |
REPORT FORM STCOUNT TO PRINT | |
SET CONSOLE ON | |
CLOSE ALL | |
CASE PICK=C5 | |
@C19,C20 SAY '��������������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� �' | |
@C23,C20 SAY '����������������������������������������������' | |
DTE1=DATE() | |
@C20,47 GET DTE1 | |
READ | |
DTE2=DTE1 | |
@C21,47 GET DTE2 | |
READ | |
YORN=NA | |
@C22,C22 SAY 'Include previously listed records? (Y/N)' GET YORN PICTURE '!' | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
SET CONSOLE OFF | |
IF YORN=YA | |
IF INVLINES=C9 | |
REPORT FORM HISTTAX9 FOR (INVTYPE='X' .OR. INVTYPE='E') HEADING 'Ex Tax Sales' TO PRINT | |
ELSE | |
REPORT FORM HISTTAX FOR (INVTYPE='X' .OR. INVTYPE='E') HEADING 'Ex Tax Sales' TO PRINT | |
ENDIF | |
ELSE | |
IF INVLINES=C9 | |
REPORT FORM HISTTAX9 FOR (INVTYPE='X' .OR. INVTYPE='E') .AND. TAXPR#YA HEADING 'Ex Tax Sales' TO PRINT | |
ELSE | |
REPORT FORM HISTTAX FOR (INVTYPE='X' .OR. INVTYPE='E') .AND. TAXPR#YA HEADING 'Ex Tax Sales' TO PRINT | |
ENDIF | |
ENDIF | |
GO TOP | |
DO WHILE .NOT. EOF() | |
IF (INVTYPE='X' .OR. INVTYPE='E') | |
REPLACE TAXPR WITH 'Y' | |
ENDIF | |
SKIP | |
ENDDO | |
SET CONSOLE ON | |
CLOSE ALL | |
CASE PICK=C0 | |
RESTORE SCREEN FROM SCRN2 | |
USE | |
LOOP | |
ENDCASE | |
CASE CHOICE=C6 | |
CALL FADE | |
PICK=C0 | |
@C11,56 SAY '����������������������Ŀ' | |
@C12,56 SAY '� �' | |
@C13,56 SAY '� �' | |
@C14,56 SAY '� �' | |
@C15,56 SAY '����������������������Ĵ' | |
@C16,56 SAY '� �' | |
@C17,56 SAY '������������������������' | |
@C12,58 PROMPT '1> Find Date ' | |
@C13,58 PROMPT '2> Find Part ' | |
@C14,58 PROMPT '3> Find Description' | |
@C16,58 PROMPT 'Q> Quit to History ' | |
MENU TO PICK | |
IF PICK>C3 | |
PICK=C0 | |
ENDIF | |
DTE1=CTOD('01/01/01') | |
DTE2=DATE() | |
DO CASE | |
CASE PICK=C1 | |
USE &SHIST | |
DTE1=DATE()-1 | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
READ | |
DTE2=DTE1 | |
@C21,47 GET DTE2 | |
READ | |
DTHEAD='From '+DTOC(DTE1)+' to '+DTOC(DTE2) | |
GO TOP | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM HISTLIST FOR INVDATE>=DTE1 .AND. INVDATE<=DTE2 HEADING DTHEAD TO PRINT | |
SET CONSOLE ON | |
SET PRINT OFF | |
USE | |
CASE PICK=C2 | |
PRT=SPACE(15) | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Part No: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,34 GET PRT PICTURE '!!!!!!!!!!!!!!' | |
READ | |
PRT=TRIM(PRT) | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
SET PRINT ON | |
SET CONSOLE OFF | |
IF INVLINES=C9 | |
REPORT FORM HISTLIST FOR PRT$PART1.OR.PRT$PART2.OR.PRT$PART3.OR.PRT$PART4.OR.PRT$PART5.OR.PRT$PART6.OR.PRT$PART7.OR.PRT$PART8.OR.PRT$PART9 HEADING PRT TO PRINT | |
ELSE | |
REPORT FORM HISTLIST FOR PRT$PART1.OR.PRT$PART2.OR.PRT$PART3.OR.PRT$PART4.OR.PRT$PART5.OR.PRT$PART6.OR.PRT$PART7.OR.PRT$PART8.OR.PRT$PART9.OR.PRT$PARTA.OR.PRT$PARTB HEADING PRT TO PRINT | |
ENDIF | |
SET CONSOLE ON | |
SET PRINT OFF | |
SET FILTER TO | |
USE | |
CASE PICK=C3 | |
DSCR=SPACE(20) | |
@C19,C20 SAY '�������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� Description: �' | |
@C23,C20 SAY '���������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
@C22,36 GET DSCR | |
READ | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
GO TOP | |
DSC=TRIM(UPPER(DSCR)) | |
SET PRINT ON | |
SET CONSOLE OFF | |
IF INVLINES=C9 | |
REPORT FORM HISTLIST FOR DSC$UPPER(DESC1).OR.DSC$UPPER(DESC2).OR.DSC$UPPER(DESC3).OR.DSC$UPPER(DESC4).OR.DSC$UPPER(DESC5).OR.DSC$UPPER(DESC6).OR.DSC$UPPER(DESC7).OR.DSC$UPPER(DESC8).OR.DSC$UPPER(DESC9) HEADING DSCR TO PRINT | |
ELSE | |
REPORT FORM HISTLIST FOR ; | |
DSC$UPPER(DESC1).OR.DSC$UPPER(DESC2).OR.DSC$UPPER(DESC3).OR.DSC$UPPER(DESC4).OR.DSC$UPPER(DESC5).OR.DSC$UPPER(DESC6).OR.DSC$UPPER(DESC7).OR.DSC$UPPER(DESC8).OR.DSC$UPPER(DESC9).OR.DSC$UPPER(DESCA).OR.DSC$UPPER(DESCB); | |
HEADING DSCR TO PRINT | |
ENDIF | |
SET CONSOLE OFF | |
SET PRINT ON | |
SET FILTER TO | |
USE | |
CASE PICK=C0 | |
RESTORE SCREEN FROM SCRN2 | |
LOOP | |
ENDCASE | |
CASE CHOICE=C7 | |
DTE1=CTOD('01/01/1901') | |
DTE2=DATE() | |
CALL FADE | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Start date: (dd/mm/yyyy) �' | |
@C21,C20 SAY '� End date: (dd/mm/yyyy) �' | |
@C22,C20 SAY '� �' | |
@C23,C20 SAY '������������������������������������������' | |
@C20,47 GET DTE1 | |
@C21,47 GET DTE2 | |
READ | |
SELECT 1 | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
SET FILTER TO INVDATE>=DTE1 .AND. INVDATE<=DTE2 | |
CALL FADE | |
PICK=C0 | |
@C6 ,53 SAY '�������������������������Ŀ' | |
@C7 ,53 SAY '� �' | |
@C8 ,53 SAY '� �' | |
@C9 ,53 SAY '� �' | |
@C10,53 SAY '� �' | |
@C11,53 SAY '� �' | |
@C12,53 SAY '� �' | |
@C13,53 SAY '� �' | |
@C14,53 SAY '� �' | |
@C15,53 SAY '� �' | |
@C16,53 SAY '�������������������������Ĵ' | |
@C17,53 SAY '� �' | |
@C18,53 SAY '���������������������������' | |
@C7 ,55 PROMPT '1> All ' | |
@C8 ,55 PROMPT '2> For Salesman ' | |
@C9 ,55 PROMPT '3> For Name ' | |
@C10,55 PROMPT '4> For Company ' | |
@C11,55 PROMPT '5> For Account ' | |
@C12,55 PROMPT '6> For Reference ' | |
@C13,55 PROMPT '7> For Product Group' | |
@C14,55 PROMPT '8> For Part Number ' | |
@C15,55 PROMPT '9> For Location ' | |
@C17,55 PROMPT 'Q> Quit to History ' | |
MENU TO PICK | |
IF PICK>C9 | |
PICK=C0 | |
ENDIF | |
DO CASE | |
CASE PICK=C1 | |
YORN=NA | |
@C22,30 SAY 'Print (Y/N)?' GET YORN PICTURE '!' | |
READ | |
IF YORN=YA | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM HISTREP TO PRINT FOR PTYPECASH+PTYPECHEQ+PTYPECARD#C0 | |
SET PRINT OFF | |
SET CONSOLE ON | |
ELSE | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Sales: �' | |
@C21,C20 SAY '� Cost: �' | |
@C22,C20 SAY '� Av Margin: �' | |
@C23,C20 SAY '� No. Sales: �' | |
@C24,C20 SAY '������������������������������������������' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO SLSTOT | |
@C20,35 SAY SLSTOT PICTURE '99999999' | |
SUM COST TO CSTTOT FOR PAID=YA | |
@C21,35 SAY CSTTOT PICTURE '99999999.99' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO TAXTOT FOR INVTYPE='T' | |
TAXTOT=TAXTOT*.2 | |
@C22,35 SAY ((SLSTOT-CSTTOT-TAXTOT)/(SLSTOT+.01-TAXTOT))*100 PICTURE '99999999.99' | |
COUNT TO CNTTOT | |
@C23,35 SAY CNTTOT PICTURE '99999999' | |
WAIT | |
ENDIF | |
SET FILTER TO | |
USE | |
CASE PICK=C2 | |
@C22,C22 SAY 'Salesman:' GET NME PICTURE '!!!' | |
READ | |
YORN=NA | |
@C22,C20 SAY '� �' | |
@C22,30 SAY 'Print (Y/N)?' GET YORN PICTURE '!' | |
READ | |
IF YORN=YA | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM HISTREP TO PRINT FOR SALESMAN=NME .AND. PTYPECASH+PTYPECHEQ+PTYPECARD#C0 | |
SET PRINT OFF | |
SET CONSOLE ON | |
ELSE | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Sales: �' | |
@C21,C20 SAY '� Cost: �' | |
@C22,C20 SAY '� Av Margin: �' | |
@C23,C20 SAY '� No. Sales: �' | |
@C24,C20 SAY '������������������������������������������' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO SLSTOT FOR SALESMAN=NME | |
@C20,35 SAY SLSTOT PICTURE '99999999.99' | |
SUM COST TO CSTTOT FOR SALESMAN=NME .AND. PAID=YA | |
@C21,35 SAY CSTTOT PICTURE '99999999.99' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO TAXTOT FOR SALESMAN=NME .AND. INVTYPE='T' | |
TAXTOT=TAXTOT*.2 | |
@C22,35 SAY ((SLSTOT-CSTTOT-TAXTOT)/(SLSTOT+.01-TAXTOT))*100 PICTURE '99999999.99' | |
COUNT TO CNTTOT FOR SALESMAN=NME | |
@C23,35 SAY CNTTOT PICTURE '99999999' | |
WAIT | |
ENDIF | |
SET FILTER TO | |
USE | |
CASE PICK=C3 | |
@C22,C22 SAY 'Name:' GET NME | |
READ | |
YORN=NA | |
@C22,C20 SAY '� �' | |
@C22,30 SAY 'Print (Y/N)?' GET YORN PICTURE '!' | |
READ | |
IF YORN=YA | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM HISTREP TO PRINT FOR UPPER(TRIM(NME))$UPPER(NAME) .AND. PTYPECASH+PTYPECHEQ+PTYPECARD#C0 | |
SET PRINT OFF | |
SET CONSOLE ON | |
ELSE | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Sales: �' | |
@C21,C20 SAY '� Cost: �' | |
@C22,C20 SAY '� Av Margin: �' | |
@C23,C20 SAY '� No. Sales: �' | |
@C24,C20 SAY '������������������������������������������' | |
NME=TRIM(NME) | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO SLSTOT FOR UPPER(TRIM(NME))$UPPER(NAME) | |
@C20,35 SAY SLSTOT PICTURE '99999999.99' | |
SUM COST TO CSTTOT FOR UPPER(NME)$UPPER(NAME) | |
@C21,35 SAY CSTTOT PICTURE '99999999.99' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO TAXTOT FOR UPPER(TRIM(NME))$UPPER(NAME) .AND. INVTYPE='T' | |
TAXTOT=TAXTOT*.2 | |
@C22,35 SAY ((SLSTOT-CSTTOT-TAXTOT)/(SLSTOT+.01-TAXTOT))*100 PICTURE '99999999.99' | |
COUNT TO CNTTOT FOR UPPER(NME)$UPPER(NAME) | |
@C23,35 SAY CNTTOT PICTURE '99999999' | |
WAIT | |
ENDIF | |
SET FILTER TO | |
USE | |
CASE PICK=C4 | |
@C22,C22 SAY 'Company:' GET NME | |
READ | |
YORN=NA | |
@C22,C20 SAY '� �' | |
@C22,30 SAY 'Print (Y/N)?' GET YORN PICTURE '!' | |
READ | |
IF YORN=YA | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM HISTREP TO PRINT FOR UPPER(TRIM(NME))$UPPER(COMPANY) .AND. PTYPECASH+PTYPECHEQ+PTYPECARD#C0 | |
SET PRINT OFF | |
SET CONSOLE ON | |
ELSE | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Sales: �' | |
@C21,C20 SAY '� Cost: �' | |
@C22,C20 SAY '� Av Margin: �' | |
@C23,C20 SAY '� No. Sales: �' | |
@C24,C20 SAY '������������������������������������������' | |
NME=TRIM(NME) | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO SLSTOT FOR UPPER(TRIM(NME))$UPPER(COMPANY) | |
@C20,35 SAY SLSTOT PICTURE '99999999.99' | |
SUM COST TO CSTTOT FOR UPPER(NME)$UPPER(NAME) | |
@C21,35 SAY CSTTOT PICTURE '99999999.99' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO TAXTOT FOR UPPER(TRIM(NME))$UPPER(COMPANY) .AND. INVTYPE='T' | |
TAXTOT=TAXTOT*.2 | |
@C22,35 SAY ((SLSTOT-CSTTOT-TAXTOT)/(SLSTOT+.01-TAXTOT))*100 PICTURE '99999999.99' | |
COUNT TO CNTTOT FOR UPPER(NME)$UPPER(NAME) | |
@C23,35 SAY CNTTOT PICTURE '99999999' | |
WAIT | |
ENDIF | |
SET FILTER TO | |
USE | |
CASE PICK=C5 | |
@C22,C22 SAY 'Account:' GET NME PICTURE '!!!!' | |
READ | |
YORN=NA | |
@C22,C20 SAY '� �' | |
@C22,30 SAY 'Print (Y/N)?' GET YORN PICTURE '!' | |
READ | |
IF YORN=YA | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM HISTREP TO PRINT FOR ACCOUNT=NME .AND. PTYPECASH+PTYPECHEQ+PTYPECARD#C0 | |
SET PRINT OFF | |
SET CONSOLE ON | |
ELSE | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Sales: �' | |
@C21,C20 SAY '� Cost: �' | |
@C22,C20 SAY '� Av Margin: �' | |
@C23,C20 SAY '� No. Sales: �' | |
@C24,C20 SAY '������������������������������������������' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO SLSTOT FOR ACCOUNT=NME | |
@C20,35 SAY SLSTOT PICTURE '99999999.99' | |
SUM COST TO CSTTOT FOR ACCOUNT=NME | |
@C21,35 SAY CSTTOT PICTURE '99999999.99' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO TAXTOT FOR ACCOUNT=NME .AND. INVTYPE='T' | |
TAXTOT=TAXTOT*.2 | |
@C22,35 SAY ((SLSTOT-CSTTOT-TAXTOT)/(SLSTOT+.01-TAXTOT))*100 PICTURE '99999999.99' | |
COUNT TO CNTTOT FOR ACCOUNT=NME | |
@C23,35 SAY CNTTOT PICTURE '99999999' | |
WAIT | |
ENDIF | |
SET FILTER TO | |
USE | |
CASE PICK=C6 | |
REF=' ' | |
@C22,C22 SAY 'Reference:' GET REF | |
READ | |
YORN=NA | |
@C22,C20 SAY '� �' | |
@C22,30 SAY 'Print (Y/N)?' GET YORN PICTURE '!' | |
READ | |
IF YORN=YA | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM HISTREP TO PRINT FOR UPPER(TRIM(REF))$UPPER(REFERENCE) .AND. PTYPECASH+PTYPECHEQ+PTYPECARD#C0 | |
SET PRINT OFF | |
SET CONSOLE ON | |
ELSE | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Sales: �' | |
@C21,C20 SAY '� Cost: �' | |
@C22,C20 SAY '� Av Margin: �' | |
@C23,C20 SAY '� No. Sales: �' | |
@C24,C20 SAY '������������������������������������������' | |
NME=TRIM(REF) | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO SLSTOT FOR UPPER(TRIM(REF))$UPPER(REFERENCE) | |
@C20,35 SAY SLSTOT PICTURE '99999999.99' | |
SUM COST TO CSTTOT FOR UPPER(TRIM(REF))$UPPER(REFERENCE) | |
@C21,35 SAY CSTTOT PICTURE '99999999.99' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO TAXTOT FOR UPPER(REF)$UPPER(REFERENCE) .AND. INVTYPE='T' | |
TAXTOT=TAXTOT*.2 | |
@C22,35 SAY ((SLSTOT-CSTTOT-TAXTOT)/(SLSTOT+.01-TAXTOT))*100 PICTURE '99999999.99' | |
COUNT TO CNTTOT FOR UPPER(TRIM(REF))$UPPER(REFERENCE) | |
@C23,35 SAY CNTTOT PICTURE '99999999' | |
WAIT | |
ENDIF | |
SET FILTER TO | |
USE | |
CASE PICK=C7 | |
DPT=' ' | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Product Group: �' | |
@C21,C20 SAY '� �' | |
@C22,C20 SAY '� Sales: �' | |
@C23,C20 SAY '� Instances: �' | |
@C24,C20 SAY '������������������������������������������' | |
@C20,37 GET DPT | |
READ | |
@C21,C21 SAY '����������������������������������������' | |
SUM (RETAIL1*NUM1) TO SLSTOT1 FOR DPT=DEPT1 .AND. INVTYPE='T' | |
SUM NUM1 TO SLSNUM1 FOR DPT=DEPT1 | |
@C21,C21 SAY '�' | |
SUM (RETAIL2*NUM2) TO SLSTOT2 FOR DPT=DEPT2 .AND. INVTYPE='T' | |
SUM NUM2 TO SLSNUM2 FOR DPT=DEPT2 | |
@C21,C22 SAY '�' | |
SUM (RETAIL3*NUM3) TO SLSTOT3 FOR DPT=DEPT3 .AND. INVTYPE='T' | |
SUM NUM3 TO SLSNUM3 FOR DPT=DEPT3 | |
@C21,C23 SAY '�' | |
SUM (RETAIL4*NUM4) TO SLSTOT4 FOR DPT=DEPT4 .AND. INVTYPE='T' | |
SUM NUM4 TO SLSNUM4 FOR DPT=DEPT4 | |
@C21,C24 SAY '�' | |
SUM (RETAIL5*NUM5) TO SLSTOT5 FOR DPT=DEPT5 .AND. INVTYPE='T' | |
SUM NUM5 TO SLSNUM5 FOR DPT=DEPT5 | |
@C21,C25 SAY '�' | |
SUM (RETAIL6*NUM6) TO SLSTOT6 FOR DPT=DEPT6 .AND. INVTYPE='T' | |
SUM NUM6 TO SLSNUM6 FOR DPT=DEPT6 | |
@C21,26 SAY '�' | |
SUM (RETAIL7*NUM7) TO SLSTOT7 FOR DPT=DEPT7 .AND. INVTYPE='T' | |
SUM NUM7 TO SLSNUM7 FOR DPT=DEPT7 | |
@C21,27 SAY '�' | |
SUM (RETAIL8*NUM8) TO SLSTOT8 FOR DPT=DEPT8 .AND. INVTYPE='T' | |
SUM NUM8 TO SLSNUM8 FOR DPT=DEPT8 | |
@C21,28 SAY '�' | |
SUM (RETAIL9*NUM9) TO SLSTOT9 FOR DPT=DEPT9 .AND. INVTYPE='T' | |
SUM NUM9 TO SLSNUM9 FOR DPT=DEPT9 | |
@C21,29 SAY '�' | |
IF INVLINES=C9 | |
@C21,30 SAY '�' | |
@C21,31 SAY '�' | |
ELSE | |
SUM (RETAILA*NUMA) TO SLSTOTA FOR DPT=DEPTA .AND. INVTYPE='T' | |
SUM NUMA TO SLSNUMA FOR DPT=DEPTA | |
@C21,30 SAY '�' | |
SUM (RETAILB*NUMB) TO SLSTOTB FOR DPT=DEPTB .AND. INVTYPE='T' | |
SUM NUMB TO SLSNUMB FOR DPT=DEPTB | |
@C21,31 SAY '�' | |
ENDIF | |
IF INVLINES=C9 | |
SLSTOT=SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9 | |
SLSNUM=SLSNUM1+SLSNUM2+SLSNUM3+SLSNUM4+SLSNUM5+SLSNUM6+SLSNUM7+SLSNUM8+SLSNUM9 | |
ELSE | |
SLSTOT=SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9+SLSTOTA+SLSTOTB | |
SLSNUM=SLSNUM1+SLSNUM2+SLSNUM3+SLSNUM4+SLSNUM5+SLSNUM6+SLSNUM7+SLSNUM8+SLSNUM9+SLSNUMA+SLSNUMB | |
ENDIF | |
SUM (RETAIL1*NUM1) TO SLSTOT1 FOR DPT=DEPT1 .AND. INVTYPE='W' | |
@C21,32 SAY '�' | |
SUM (RETAIL2*NUM2) TO SLSTOT2 FOR DPT=DEPT2 .AND. INVTYPE='W' | |
@C21,32 SAY '�' | |
SUM (RETAIL3*NUM3) TO SLSTOT3 FOR DPT=DEPT3 .AND. INVTYPE='W' | |
@C21,33 SAY '�' | |
SUM (RETAIL4*NUM4) TO SLSTOT4 FOR DPT=DEPT4 .AND. INVTYPE='W' | |
@C21,34 SAY '�' | |
SUM (RETAIL5*NUM5) TO SLSTOT5 FOR DPT=DEPT5 .AND. INVTYPE='W' | |
@C21,35 SAY '�' | |
SUM (RETAIL6*NUM6) TO SLSTOT6 FOR DPT=DEPT6 .AND. INVTYPE='W' | |
@C21,36 SAY '�' | |
SUM (RETAIL7*NUM7) TO SLSTOT7 FOR DPT=DEPT7 .AND. INVTYPE='W' | |
@C21,37 SAY '�' | |
SUM (RETAIL8*NUM8) TO SLSTOT8 FOR DPT=DEPT8 .AND. INVTYPE='W' | |
@C21,38 SAY '�' | |
SUM (RETAIL9*NUM9) TO SLSTOT9 FOR DPT=DEPT9 .AND. INVTYPE='W' | |
@C21,39 SAY '�' | |
IF INVLINES=C9 | |
@C21,40 SAY '�' | |
@C21,41 SAY '�' | |
ELSE | |
SUM (RETAILA*NUMA) TO SLSTOTA FOR DPT=DEPTA .AND. INVTYPE='W' | |
@C21,40 SAY '�' | |
SUM (RETAILB*NUMB) TO SLSTOTB FOR DPT=DEPTB .AND. INVTYPE='W' | |
@C21,41 SAY '�' | |
ENDIF | |
IF INVLINES=C9 | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9 | |
ELSE | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9+SLSTOTA+SLSTOTB | |
ENDIF | |
SUM (RETAIL1-TAX1)*NUM1 TO SLSTOT1 FOR DPT=DEPT1 .AND. INVTYPE='E' | |
@C21,42 SAY '�' | |
SUM (RETAIL2-TAX2)*NUM2 TO SLSTOT2 FOR DPT=DEPT2 .AND. INVTYPE='E' | |
@C21,43 SAY '�' | |
SUM (RETAIL3-TAX3)*NUM3 TO SLSTOT3 FOR DPT=DEPT3 .AND. INVTYPE='E' | |
@C21,44 SAY '�' | |
SUM (RETAIL4-TAX4)*NUM4 TO SLSTOT4 FOR DPT=DEPT4 .AND. INVTYPE='E' | |
@C21,45 SAY '�' | |
SUM (RETAIL5-TAX5)*NUM5 TO SLSTOT5 FOR DPT=DEPT5 .AND. INVTYPE='E' | |
@C21,46 SAY '�' | |
SUM (RETAIL6-TAX6)*NUM6 TO SLSTOT6 FOR DPT=DEPT6 .AND. INVTYPE='E' | |
@C21,47 SAY '�' | |
SUM (RETAIL7-TAX7)*NUM7 TO SLSTOT7 FOR DPT=DEPT7 .AND. INVTYPE='E' | |
@C21,48 SAY '�' | |
SUM (RETAIL8-TAX8)*NUM8 TO SLSTOT8 FOR DPT=DEPT8 .AND. INVTYPE='E' | |
@C21,49 SAY '�' | |
SUM (RETAIL9-TAX9)*NUM9 TO SLSTOT9 FOR DPT=DEPT9 .AND. INVTYPE='E' | |
@C21,50 SAY '�' | |
IF INVLINES=C9 | |
@C21,51 SAY '�' | |
@C21,52 SAY '�' | |
ELSE | |
SUM (RETAILA-TAXA)*NUMA TO SLSTOTA FOR DPT=DEPTA .AND. INVTYPE='E' | |
@C21,51 SAY '�' | |
SUM (RETAILB-TAXB)*NUMB TO SLSTOTB FOR DPT=DEPTB .AND. INVTYPE='E' | |
@C21,52 SAY '�' | |
ENDIF | |
IF INVLINES=C9 | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9 | |
ELSE | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9+SLSTOTA+SLSTOTB | |
ENDIF | |
SUM (RETAIL1-TAX1)*NUM1 TO SLSTOT1 FOR DPT=DEPT1 .AND. INVTYPE='X' | |
@C21,53 SAY '�' | |
SUM (RETAIL2-TAX2)*NUM2 TO SLSTOT2 FOR DPT=DEPT2 .AND. INVTYPE='X' | |
@C21,54 SAY '�' | |
SUM (RETAIL3-TAX3)*NUM3 TO SLSTOT3 FOR DPT=DEPT3 .AND. INVTYPE='X' | |
@C21,55 SAY '�' | |
SUM (RETAIL4-TAX4)*NUM4 TO SLSTOT4 FOR DPT=DEPT4 .AND. INVTYPE='X' | |
@C21,56 SAY '�' | |
SUM (RETAIL5-TAX5)*NUM5 TO SLSTOT5 FOR DPT=DEPT5 .AND. INVTYPE='X' | |
@C21,57 SAY '�' | |
SUM (RETAIL6-TAX6)*NUM6 TO SLSTOT6 FOR DPT=DEPT6 .AND. INVTYPE='X' | |
@C21,58 SAY '�' | |
SUM (RETAIL7-TAX7)*NUM7 TO SLSTOT7 FOR DPT=DEPT7 .AND. INVTYPE='X' | |
@C21,59 SAY '�' | |
SUM (RETAIL8-TAX8)*NUM8 TO SLSTOT8 FOR DPT=DEPT8 .AND. INVTYPE='X' | |
@C21,60 SAY '�' | |
SUM (RETAIL9-TAX9)*NUM9 TO SLSTOT9 FOR DPT=DEPT9 .AND. INVTYPE='X' | |
@C21,51 SAY '�' | |
IF INVLINES=C9 | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9 | |
ELSE | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9+SLSTOTA+SLSTOTB | |
ENDIF | |
@C22,37 SAY SLSTOT PICTURE '99999999.99' | |
@C23,37 SAY SLSNUM PICTURE '99999999' | |
WAIT | |
SET FILTER TO | |
USE | |
CASE PICK=C8 | |
@C19,C20 SAY '������������������������������������������Ŀ' | |
@C20,C20 SAY '� Part No.: �' | |
@C21,C20 SAY '� �' | |
@C22,C20 SAY '� Sales: �' | |
@C23,C20 SAY '� Instances: �' | |
@C24,C20 SAY '��������������������������������������������' | |
PRT=' ' | |
@C20,37 GET PRT PICTURE '!!!!!!!!!!!!!!!' | |
READ | |
PRT=TRIM(PRT) | |
@C21,C21 SAY '������������������������������������������' | |
SUM (RETAIL1*NUM1) TO SLSTOT1 FOR PRT$PART1 .AND. INVTYPE='T' | |
SUM NUM1 TO SLSNUM1 FOR PRT$PART1 | |
@C21,C21 SAY '�' | |
SUM (RETAIL2*NUM2) TO SLSTOT2 FOR PRT$PART2 .AND. INVTYPE='T' | |
SUM NUM2 TO SLSNUM2 FOR PRT$PART2 | |
@C21,C22 SAY '�' | |
SUM (RETAIL3*NUM3) TO SLSTOT3 FOR PRT$PART3 .AND. INVTYPE='T' | |
SUM NUM3 TO SLSNUM3 FOR PRT$PART3 | |
@C21,C23 SAY '�' | |
SUM (RETAIL4*NUM4) TO SLSTOT4 FOR PRT$PART4 .AND. INVTYPE='T' | |
SUM NUM4 TO SLSNUM4 FOR PRT$PART4 | |
@C21,C24 SAY '�' | |
SUM (RETAIL5*NUM5) TO SLSTOT5 FOR PRT$PART5 .AND. INVTYPE='T' | |
SUM NUM5 TO SLSNUM5 FOR PRT$PART5 | |
@C21,C25 SAY '�' | |
SUM (RETAIL6*NUM6) TO SLSTOT6 FOR PRT$PART6 .AND. INVTYPE='T' | |
SUM NUM6 TO SLSNUM6 FOR PRT$PART6 | |
@C21,26 SAY '�' | |
SUM (RETAIL7*NUM7) TO SLSTOT7 FOR PRT$PART7 .AND. INVTYPE='T' | |
SUM NUM7 TO SLSNUM7 FOR PRT$PART7 | |
@C21,27 SAY '�' | |
SUM (RETAIL8*NUM8) TO SLSTOT8 FOR PRT$PART8 .AND. INVTYPE='T' | |
SUM NUM8 TO SLSNUM8 FOR PRT$PART8 | |
@C21,28 SAY '�' | |
SUM (RETAIL9*NUM9) TO SLSTOT9 FOR PRT$PART9 .AND. INVTYPE='T' | |
SUM NUM9 TO SLSNUM9 FOR PRT$PART9 | |
@C21,29 SAY '�' | |
IF INVLINES=C9 | |
@C21,30 SAY '�' | |
@C21,31 SAY '�' | |
ELSE | |
SUM (RETAILA*NUMA) TO SLSTOTA FOR PRT$PARTA .AND. INVTYPE='T' | |
SUM NUMA TO SLSNUMA FOR PRT$PARTA | |
@C21,30 SAY '�' | |
SUM (RETAILB*NUMB) TO SLSTOTB FOR PRT$PARTB .AND. INVTYPE='T' | |
SUM NUMA TO SLSNUMB FOR PRT$PARTB | |
@C21,31 SAY '�' | |
ENDIF | |
IF INVLINES=C9 | |
SLSTOT=SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9 | |
SLSNUM=SLSNUM1+SLSNUM2+SLSNUM3+SLSNUM4+SLSNUM5+SLSNUM6+SLSNUM7+SLSNUM8+SLSNUM9 | |
ELSE | |
SLSTOT=SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9+SLSTOTA+SLSTOTB | |
SLSNUM=SLSNUM1+SLSNUM2+SLSNUM3+SLSNUM4+SLSNUM5+SLSNUM6+SLSNUM7+SLSNUM8+SLSNUM9+SLSNUMA+SLSNUMB | |
ENDIF | |
SUM (RETAIL1*NUM1) TO SLSTOT1 FOR PRT$PART1 .AND. INVTYPE='W' | |
@C21,32 SAY '�' | |
SUM (RETAIL2*NUM2) TO SLSTOT2 FOR PRT$PART2 .AND. INVTYPE='W' | |
@C21,33 SAY '�' | |
SUM (RETAIL3*NUM3) TO SLSTOT3 FOR PRT$PART3 .AND. INVTYPE='W' | |
@C21,34 SAY '�' | |
SUM (RETAIL4*NUM4) TO SLSTOT4 FOR PRT$PART4 .AND. INVTYPE='W' | |
@C21,35 SAY '�' | |
SUM (RETAIL5*NUM5) TO SLSTOT5 FOR PRT$PART5 .AND. INVTYPE='W' | |
@C21,36 SAY '�' | |
SUM (RETAIL6*NUM6) TO SLSTOT6 FOR PRT$PART6 .AND. INVTYPE='W' | |
@C21,37 SAY '�' | |
SUM (RETAIL7*NUM7) TO SLSTOT7 FOR PRT$PART7 .AND. INVTYPE='W' | |
@C21,38 SAY '�' | |
SUM (RETAIL8*NUM8) TO SLSTOT8 FOR PRT$PART8 .AND. INVTYPE='W' | |
@C21,39 SAY '�' | |
SUM (RETAIL9*NUM9) TO SLSTOT9 FOR PRT$PART9 .AND. INVTYPE='W' | |
@C21,40 SAY '�' | |
IF INVLINES=C9 | |
@C21,41 SAY '�' | |
@C21,42 SAY '�' | |
ELSE | |
SUM (RETAILA*NUMA) TO SLSTOTA FOR PRT$PARTA .AND. INVTYPE='W' | |
@C21,41 SAY '�' | |
SUM (RETAILB*NUMB) TO SLSTOTB FOR PRT$PARTB .AND. INVTYPE='W' | |
@C21,42 SAY '�' | |
ENDIF | |
IF INVLINES=C9 | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9 | |
ELSE | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9+SLSTOTA+SLSTOTB | |
ENDIF | |
SUM (RETAIL1-TAX1)*NUM1 TO SLSTOT1 FOR PRT$PART1 .AND. INVTYPE='E' | |
@C21,43 SAY '�' | |
SUM (RETAIL2-TAX2)*NUM2 TO SLSTOT2 FOR PRT$PART2 .AND. INVTYPE='E' | |
@C21,44 SAY '�' | |
SUM (RETAIL3-TAX3)*NUM3 TO SLSTOT3 FOR PRT$PART3 .AND. INVTYPE='E' | |
@C21,45 SAY '�' | |
SUM (RETAIL4-TAX4)*NUM4 TO SLSTOT4 FOR PRT$PART4 .AND. INVTYPE='E' | |
@C21,46 SAY '�' | |
SUM (RETAIL5-TAX5)*NUM5 TO SLSTOT5 FOR PRT$PART5 .AND. INVTYPE='E' | |
@C21,47 SAY '�' | |
SUM (RETAIL6-TAX6)*NUM6 TO SLSTOT6 FOR PRT$PART6 .AND. INVTYPE='E' | |
@C21,48 SAY '�' | |
SUM (RETAIL7-TAX7)*NUM7 TO SLSTOT7 FOR PRT$PART7 .AND. INVTYPE='E' | |
@C21,49 SAY '�' | |
SUM (RETAIL8-TAX8)*NUM8 TO SLSTOT8 FOR PRT$PART8 .AND. INVTYPE='E' | |
@C21,50 SAY '�' | |
SUM (RETAIL9-TAX9)*NUM9 TO SLSTOT9 FOR PRT$PART9 .AND. INVTYPE='E' | |
@C21,51 SAY '�' | |
IF INVLINES=C9 | |
@C21,52 SAY '�' | |
@C21,53 SAY '�' | |
ELSE | |
SUM (RETAILA-TAXA)*NUMA TO SLSTOTA FOR PRT$PARTA .AND. INVTYPE='E' | |
@C21,52 SAY '�' | |
SUM (RETAILB-TAXB)*NUMB TO SLSTOTB FOR PRT$PARTB .AND. INVTYPE='E' | |
@C21,53 SAY '�' | |
ENDIF | |
IF INVLINES=C9 | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9 | |
ELSE | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9+SLSTOTA+SLSTOTB | |
ENDIF | |
SUM (RETAIL1-TAX1)*NUM1 TO SLSTOT1 FOR PRT$PART1 .AND. INVTYPE='X' | |
@C21,54 SAY '�' | |
SUM (RETAIL2-TAX2)*NUM2 TO SLSTOT2 FOR PRT$PART2 .AND. INVTYPE='X' | |
@C21,55 SAY '�' | |
SUM (RETAIL3-TAX3)*NUM3 TO SLSTOT3 FOR PRT$PART3 .AND. INVTYPE='X' | |
@C21,56 SAY '�' | |
SUM (RETAIL4-TAX4)*NUM4 TO SLSTOT4 FOR PRT$PART4 .AND. INVTYPE='X' | |
@C21,57 SAY '�' | |
SUM (RETAIL5-TAX5)*NUM5 TO SLSTOT5 FOR PRT$PART5 .AND. INVTYPE='X' | |
@C21,58 SAY '�' | |
SUM (RETAIL6-TAX6)*NUM6 TO SLSTOT6 FOR PRT$PART6 .AND. INVTYPE='X' | |
@C21,59 SAY '�' | |
SUM (RETAIL7-TAX7)*NUM7 TO SLSTOT7 FOR PRT$PART7 .AND. INVTYPE='X' | |
@C21,60 SAY '�' | |
SUM (RETAIL8-TAX8)*NUM8 TO SLSTOT8 FOR PRT$PART8 .AND. INVTYPE='X' | |
@C21,61 SAY '�' | |
SUM (RETAIL9-TAX9)*NUM9 TO SLSTOT9 FOR PRT$PART9 .AND. INVTYPE='X' | |
@C21,62 SAY '�' | |
IF INVLINES=C9 | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9 | |
ELSE | |
SLSTOT=SLSTOT+SLSTOT1+SLSTOT2+SLSTOT3+SLSTOT4+SLSTOT5+SLSTOT6+SLSTOT7+SLSTOT8+SLSTOT9+SLSTOTA+SLSTOTB | |
ENDIF | |
@C22,37 SAY SLSTOT PICTURE '99999999.99' | |
@C23,37 SAY SLSNUM PICTURE '99999999' | |
WAIT | |
SET FILTER TO | |
USE | |
CASE PICK=C9 | |
LCN='G' | |
@C22,C24 SAY 'Location (G/E):' GET LCN PICTURE '!' | |
READ | |
YORN=NA | |
@C22,C20 SAY '� �' | |
@C22,30 SAY 'Print (Y/N)?' GET YORN PICTURE '!' | |
READ | |
IF YORN=YA | |
SET PRINT ON | |
SET CONSOLE OFF | |
REPORT FORM HISTREP TO PRINT FOR UPPER(TRIM(LCN))$UPPER(LOCN) .AND. PTYPECASH+PTYPECHEQ+PTYPECARD#C0 | |
SET PRINT OFF | |
SET CONSOLE ON | |
ELSE | |
@C19,C20 SAY '����������������������������������������Ŀ' | |
@C20,C20 SAY '� Sales: �' | |
@C21,C20 SAY '� Cost: �' | |
@C22,C20 SAY '� Av Margin: �' | |
@C23,C20 SAY '� No. Sales: �' | |
@C24,C20 SAY '������������������������������������������' | |
NME=TRIM(NME) | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO SLSTOT FOR UPPER(TRIM(LCN))$UPPER(LOCN) | |
@C20,35 SAY SLSTOT PICTURE '99999999.99' | |
SUM COST TO CSTTOT FOR UPPER(LCN)$UPPER(LOCN) | |
@C21,35 SAY CSTTOT PICTURE '99999999.99' | |
SUM PTYPECASH+PTYPECHEQ+PTYPECARD TO TAXTOT FOR UPPER(TRIM(LCN))$UPPER(LOCN) .AND. INVTYPE='T' | |
TAXTOT=TAXTOT*.2 | |
@C22,35 SAY ((SLSTOT-CSTTOT-TAXTOT)/(SLSTOT+.01-TAXTOT))*100 PICTURE '99999999.99' | |
COUNT TO CNTTOT FOR UPPER(LCN)$UPPER(LOCN) | |
@C23,35 SAY CNTTOT PICTURE '99999999' | |
WAIT | |
ENDIF | |
SET FILTER TO | |
USE | |
ENDCASE | |
CASE CHOICE=C8 | |
CALL FADE | |
PICK=C0 | |
USE POSEQUIP | |
YEAR1=LTRIM(STR(YR0))+'/'+LTRIM(STR(YR0+C1)) | |
YEAR2=LTRIM(STR(YR0-C1))+'/'+LTRIM(STR(YR0)) | |
YEAR3=LTRIM(STR(YR0-C2))+'/'+LTRIM(STR(YR0-C1)) | |
YEAR4=LTRIM(STR(YR0-C3))+'/'+LTRIM(STR(YR0-C2)) | |
YEAR5=LTRIM(STR(YR0-C4))+'/'+LTRIM(STR(YR0-C3)) | |
YEAR6=LTRIM(STR(YR0-C5))+'/'+LTRIM(STR(YR0-C4)) | |
YEAR7=LTRIM(STR(YR0-C6))+'/'+LTRIM(STR(YR0-C5)) | |
@C14,63 SAY '��������������Ŀ' | |
@C15,63 SAY '� �' | |
@C16,63 SAY '� �' | |
@C17,63 SAY '� �' | |
@C18,63 SAY '� �' | |
@C19,63 SAY '� �' | |
@C20,63 SAY '� �' | |
@C21,63 SAY '� �' | |
@C22,63 SAY '����������������' | |
@C15,65 PROMPT '1>' | |
@C16,65 PROMPT '2>' | |
@C17,65 PROMPT '3>' | |
@C18,65 PROMPT '4>' | |
@C19,65 PROMPT '5>' | |
@C20,65 PROMPT '6>' | |
@C21,65 PROMPT '7>' | |
@C15,68 SAY YEAR1 | |
@C16,68 SAY YEAR2 | |
@C17,68 SAY YEAR3 | |
@C18,68 SAY YEAR4 | |
@C19,68 SAY YEAR5 | |
@C20,68 SAY YEAR6 | |
@C21,68 SAY YEAR7 | |
MENU TO HYR | |
IF HYR>C7 | |
HYR=C1 | |
ENDIF | |
DO CASE | |
CASE HYR=C1 | |
SHIST='SALEHIST' | |
CASE HYR=C2 | |
DYR='D'+SUBSTR(LTRIM(STR(YR0)),3,2) | |
SHIST='OLDHIST.'+DYR | |
CASE HYR=C3 | |
DYR='D'+SUBSTR(LTRIM(STR(YR0-C1)),3,2) | |
SHIST='OLDHIST.'+DYR | |
CASE HYR=C4 | |
DYR='D'+SUBSTR(LTRIM(STR(YR0-C2)),3,2) | |
SHIST='OLDHIST.'+DYR | |
CASE HYR=C5 | |
DYR='D'+SUBSTR(LTRIM(STR(YR0-C3)),3,2) | |
SHIST='OLDHIST.'+DYR | |
CASE HYR=C6 | |
DYR='D'+SUBSTR(LTRIM(STR(YR0-C4)),3,2) | |
SHIST='OLDHIST.'+DYR | |
CASE HYR=C7 | |
DYR='D'+SUBSTR(LTRIM(STR(YR0-C5)),3,2) | |
SHIST='OLDHIST.'+DYR | |
ENDCASE | |
USE &SHIST | |
IF RECSIZE()>1200 | |
INVLINES=C11 | |
ELSE | |
INVLINES=C9 | |
ENDIF | |
USE | |
CASE CHOICE=C0 | |
RESTORE SCREEN FROM SCRN1 | |
RETURN | |
ENDCASE | |
RESTORE SCREEN FROM SCRN1 | |
ENDDO |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment