Skip to content

Instantly share code, notes, and snippets.

@samthor

samthor/HIST.PRG Secret

Created Oct 12, 2020
Star
Embed
What would you like to do?
Learn more about clone URLs
Download ZIP
Raw
HIST.PRG
* 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
You can’t perform that action at this time.