ArmstrongHe
IS-IT--Management
Dear Sir,
I am an IT manager in China, I know I can get very good tip here for all kind of IT problems. See... Another day for you and me in paradise...
I set an alias with line *Note001 in the program, then in the line *Note002, the sum result after running the program is 0, wrong calculation with that alias. but with the line *Note003, the alias is not set, and the sum result after running the program is quite right. why?
Your kind help would be very appreciated. thanks!
Armstrong
All Source code:
SET TALK OFF
with thisform.list1
for nfile=5 to .listcount
if .selected(nfile)
dbffile=.list(2)+.list(nfile)
endif
endfor
endwith
WMONTH=SUBS(DBFFILE,LEN(ALLT(DBFFILE))-5,2)
mes1=messagebox('?????? '+dbffile,17,'??')
IF WMONTH=='01' THEN
sele 1
use p:\wh\finrpt01
inde on itemno to c:\wh1
sele 2
use p:\wh\wfrpt01
inde on itemno to c:\wh2
sele 1
set rela to itemno into 2
repl all month with 1,value with 0,prevalue with 0,ytd with 0
sele 1
use p:\wh\finrpt02
inde on itemno to c:\wh1
sele 2
use p:\wh\wfrpt02
inde on itemno to c:\wh2
sele 1
set rela to itemno into 2
repl all month with 1,value with 0,prevalue with 0,ytd with 0
sele 1
use p:\wh\finrpt03
inde on itemno to c:\wh1
sele 2
use p:\wh\wfrpt03
inde on itemno to c:\wh2
sele 1
set rela to itemno into 2
repl all month with 1,value with 0,prevalue with ytd,ytd with 0
sele 1
use p:\wh\finrpt04
inde on itemno to c:\wh1
sele 2
use p:\wh\wfrpt04
inde on itemno to c:\wh2
sele 1
set rela to itemno into 2
repl all month with 1,value with 0,prevalue with ytd,ytd with 0
use
sele 2
use
ENDIF
if mes1=1
copy file &dbffile to C:\comp.dbf
copy file P:\WH\HAI.DBF to C:\ACCT.dbf
SELE 2
USE C:\ACCT
INDE ON ACCTCODE TO C:\W2
COPY STRU TO C:\OUT
SELE 1
use C:\comp
REPL ALL BAL WITH DR-CR
COUNT TO ALL1
GO TOP
I=0
DO WHILE NOT EOF()
I=I+1
THISFORM.LABEL1.CAPTION='???'+ALLT(STR(ALL1,6,0))+'?'+ALLT(STR(I,6,0))+'!'
ACCT1=ALLT(ACCTCODE)+ALLT(DEPTNO)
SELE 2
SEEK ACCT1
IF FOUND() THEN
OK=.T.
IF LEN(ALLT(USEABLE))>0 THEN
OK=.F.
ENDIF
ELSE
OK=.F.
ENDIF
IF OK THEN
ACCTSUM=ALLT(CCODE)
DEPT1=ALLT(ACCTDEPT)
IF LEN(ALLT(ACCTSUM))=0 THEN
DELE
ENDIF
ENDIF
COPY TO C:\TMP FOR DELETE()
RECA ALL
SELE 4
USE C:\OUT
APPE FROM C:\TMP
SELE 1
IF OK THEN
REPL ACCTCODE WITH ACCTSUM,DEPTNO WITH DEPT1
SELE 1
ENDIF
SKIP
ENDDO
INDE ON ALLT(ACCTCODE) TO C:\W1
TOTA ON ALLT(ACCTCODE) TO C:\W1
INDE ON ALLT(DEPTNO)+ALLT(ACCTCODE) TO C:\W1
TOTA ON ALLT(DEPTNO)+ALLT(ACCTCODE) TO C:\W2
CLOS ALL
SELE 1
USE P:\WH\E_FORM
ZAP
APPE FROM C:\W1 FIEL ACCTCODE,DR,CR
REPL ALL BAL WITH DR-CR
INDE ON ACCTCODE TO C:\W1
* SELE 3
* USE C:\W3
* INDE ON DEPTNO+ACCTCODE TO C:\W3
SELE 2
USE C:\W2
GO TOP
DO WHIL NOT EOF()
DEPT1=ALLT(DEPTNO)
DO CASE
CASE DEPT1='010'
FIEL1='ADMIN'
CASE DEPT1='150'
FIEL1='ADDEV'
CASE DEPT1='110'
FIEL1='SALEFIX'
CASE DEPT1='120'
FIEL1='SALEVAR'
CASE DEPT1='030'
FIEL1='MFGFIX'
CASE DEPT1='03A'
FIEL1='MFGVAR'
CASE DEPT1='63A'
FIEL1='D_A'
*Note001: CASE DEPT1='63B'
FIEL1='TPBNSV'
CASE DEPT1='63C'
FIEL1='CPBNSV'
CASE DEPT1='630'
FIEL1='TP'
CASE DEPT1='620'
FIEL1='CP'
CASE DEPT1='610'
FIEL1='MEDIA'
CASE DEPT1='640'
FIEL1='RESEARCH'
OTHERWISE
FIEL1='OTHER'
ENDCASE
BAL1=BAL
ACCTCODE1=ACCTCODE
SELE 1
GO TOP
LOCA FOR ACCTCODE=ACCTCODE1
IF NOT EOF()
REPL &FIEL1 WITH &FIEL1+BAL1
ENDIF
SELE 2
SKIP
ENDDO
SELE 4
USE C:\OUT
COUNT TO W1
IF W1>0 THEN
BROW TITL '????'+ALLT(STR(W1,6,0))+'?????'
ENDIF
SELE 1
*STOR 0 TO SUM1,SUM2,SUM3,SUM4,SUM5SUM6,SUM7,SUM8
*SUM ADMIN,SALEFIX,SALEVAR,MFGFIX,MFGVAR,DR,CR,BAL TO SUM1,SUM2,SUM3,SUM4,SUM5,SUM6,SUM7,SUM8
*APPE BLANK
*REPL ACCTCODE WITH '??',ADMIN WITH SUM1,SALEFIX WITH SUM2,SALEVAR WITH SUM3,MFGFIX WITH SUM4,MFGVAR WITH SUM5,;
*DR WITH SUM6,CR WITH SUM7,BAL WITH SUM8
SET FILT TO BAL<>0
GO TOP
MON1=SUBS(DBFFILE,LEN(DBFFILE)-5,2)
*MODI REPO p:\WH\E_FORM
REPO FORM p:\WH\E_FORM PREV
THISFORM.LABEL1.CAPTION='??P:\WH\E_FORM.DBF?!'
THISFORM.LABEL2.CAPTION='??????????P:\wh\finrpt02.dbf,???...'
sele 2
use p:\wh\finrpt02
inde on itemno to c:\cc
****
mon2=month
if val(mon1)=1 then
repl all prevalue with 0,ytd with 0,month with VAL(mon1)
else
if val(mon1)=MON2+1 then
repl all prevalue with ytd,MONTH WITH VAL(MON1)
else
if val(mon1)<>MON2 then
WAIT WIND'????'+ALLT(STR(MON2,2,0))+'???????????!'
CLOS ALL
RETU
endif
endif
endif
sele 1
sum bal to wh2 for acctcode='4105'
sum bal to wh21 for acctcode='4155'
wh2=abs(wh2)-wh21
sum bal to wh11 for acctcode='4130'
wh1=abs(wh11)
wh3=wh1+wh2
sum D_A to wh4
*Note002:sum tpbnsv to wh5
sum cpbnsv to wh6
wh7=wh3-wh4-wh5-wh6
*Note003: sum bal to wh8 for acctcode='5105' or acctcode='5110' or acctcode='5115' or acctcode='5120'
sum bal to wh9 for acctcode='5130'
wh10=wh9+wh8
wh11=wh7-wh10
sum salevar to wh12
sum salefix to wh13
wh14=wh12+wh13
sum tp to wh15
sum cp to wh16
sum media to wh17
sum research to wh18
wh19=wh18+wh15+wh16+wh17
sum admin to wh20
sum addev to wh21
wh22=wh20+wh21
wh23=wh11-wh14-wh19-wh22
sum bal to wh29 for acctcode='8105' or acctcode='8110' or acctcode='8505' or acctcode='8510'
sum bal to wh26 for acctcode='8355' OR ACCTCODE='8360'
* sum bal to wh25 for acctcode=''
sum bal to wh24 for acctcode='8205'
sum bal to wh28 for acctcode='8210'
sum bal to wh27 for acctcode='8410' or acctcode='8420' or acctcode='8405'
wh30=WH23-wh24-wh26-wh27-wh28-wh29
sum bal to wh31 for acctcode='9105'
wh32=wh30-wh31
*----
*----
sele 2
REPL ALL VALUE WITH 0,YTD WITH 0
repl all value with round(wh1/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02001'
repl all value with round(wh2/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02002'
repl all value with round(wh3/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02003'
repl all value with round(wh4/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02004'
repl all value with round(wh5/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02005'
repl all value with round(wh6/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02006'
repl all value with round(wh7/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02007'
repl all value with round(wh8/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02008'
repl all value with round(wh9/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02009'
repl all value with round(wh10/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02010'
repl all value with round(wh11/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02011'
* repl all value with round(wh11a/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=6 AND allt(itemno)=='02011A'
repl all value with round(wh12/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02012'
repl all value with round(wh13/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02013'
repl all value with round(wh14/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02014'
repl all value with round(wh15/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02015'
repl all value with round(wh16/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02016'
repl all value with round(wh17/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02017'
repl all value with round(wh18/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02018'
repl all value with round(wh19/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02019'
repl all value with round(wh20/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02020'
repl all value with round(wh21/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02021'
repl all value with round(wh22/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02022'
repl all value with round(wh23/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02023'
repl all value with round(wh24/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02024'
* repl all value with round(wh25/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02025'
repl all value with round(wh26/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02026'
repl all value with round(wh27/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02027'
repl all value with round(wh28/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02028'
repl all value with round(wh29/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02029'
repl all value with round(wh30/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02030'
repl all value with round(wh31/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02031'
repl all value with round(wh32/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02032'
repo form e_form1 prev
****
THISFORM.LABEL2.CAPTION='???P:\wh\finrpt**.dbf?!??!'
****
ENDIF
CLOS ALL
RETU
I am an IT manager in China, I know I can get very good tip here for all kind of IT problems. See... Another day for you and me in paradise...
I set an alias with line *Note001 in the program, then in the line *Note002, the sum result after running the program is 0, wrong calculation with that alias. but with the line *Note003, the alias is not set, and the sum result after running the program is quite right. why?
Your kind help would be very appreciated. thanks!
Armstrong
All Source code:
SET TALK OFF
with thisform.list1
for nfile=5 to .listcount
if .selected(nfile)
dbffile=.list(2)+.list(nfile)
endif
endfor
endwith
WMONTH=SUBS(DBFFILE,LEN(ALLT(DBFFILE))-5,2)
mes1=messagebox('?????? '+dbffile,17,'??')
IF WMONTH=='01' THEN
sele 1
use p:\wh\finrpt01
inde on itemno to c:\wh1
sele 2
use p:\wh\wfrpt01
inde on itemno to c:\wh2
sele 1
set rela to itemno into 2
repl all month with 1,value with 0,prevalue with 0,ytd with 0
sele 1
use p:\wh\finrpt02
inde on itemno to c:\wh1
sele 2
use p:\wh\wfrpt02
inde on itemno to c:\wh2
sele 1
set rela to itemno into 2
repl all month with 1,value with 0,prevalue with 0,ytd with 0
sele 1
use p:\wh\finrpt03
inde on itemno to c:\wh1
sele 2
use p:\wh\wfrpt03
inde on itemno to c:\wh2
sele 1
set rela to itemno into 2
repl all month with 1,value with 0,prevalue with ytd,ytd with 0
sele 1
use p:\wh\finrpt04
inde on itemno to c:\wh1
sele 2
use p:\wh\wfrpt04
inde on itemno to c:\wh2
sele 1
set rela to itemno into 2
repl all month with 1,value with 0,prevalue with ytd,ytd with 0
use
sele 2
use
ENDIF
if mes1=1
copy file &dbffile to C:\comp.dbf
copy file P:\WH\HAI.DBF to C:\ACCT.dbf
SELE 2
USE C:\ACCT
INDE ON ACCTCODE TO C:\W2
COPY STRU TO C:\OUT
SELE 1
use C:\comp
REPL ALL BAL WITH DR-CR
COUNT TO ALL1
GO TOP
I=0
DO WHILE NOT EOF()
I=I+1
THISFORM.LABEL1.CAPTION='???'+ALLT(STR(ALL1,6,0))+'?'+ALLT(STR(I,6,0))+'!'
ACCT1=ALLT(ACCTCODE)+ALLT(DEPTNO)
SELE 2
SEEK ACCT1
IF FOUND() THEN
OK=.T.
IF LEN(ALLT(USEABLE))>0 THEN
OK=.F.
ENDIF
ELSE
OK=.F.
ENDIF
IF OK THEN
ACCTSUM=ALLT(CCODE)
DEPT1=ALLT(ACCTDEPT)
IF LEN(ALLT(ACCTSUM))=0 THEN
DELE
ENDIF
ENDIF
COPY TO C:\TMP FOR DELETE()
RECA ALL
SELE 4
USE C:\OUT
APPE FROM C:\TMP
SELE 1
IF OK THEN
REPL ACCTCODE WITH ACCTSUM,DEPTNO WITH DEPT1
SELE 1
ENDIF
SKIP
ENDDO
INDE ON ALLT(ACCTCODE) TO C:\W1
TOTA ON ALLT(ACCTCODE) TO C:\W1
INDE ON ALLT(DEPTNO)+ALLT(ACCTCODE) TO C:\W1
TOTA ON ALLT(DEPTNO)+ALLT(ACCTCODE) TO C:\W2
CLOS ALL
SELE 1
USE P:\WH\E_FORM
ZAP
APPE FROM C:\W1 FIEL ACCTCODE,DR,CR
REPL ALL BAL WITH DR-CR
INDE ON ACCTCODE TO C:\W1
* SELE 3
* USE C:\W3
* INDE ON DEPTNO+ACCTCODE TO C:\W3
SELE 2
USE C:\W2
GO TOP
DO WHIL NOT EOF()
DEPT1=ALLT(DEPTNO)
DO CASE
CASE DEPT1='010'
FIEL1='ADMIN'
CASE DEPT1='150'
FIEL1='ADDEV'
CASE DEPT1='110'
FIEL1='SALEFIX'
CASE DEPT1='120'
FIEL1='SALEVAR'
CASE DEPT1='030'
FIEL1='MFGFIX'
CASE DEPT1='03A'
FIEL1='MFGVAR'
CASE DEPT1='63A'
FIEL1='D_A'
*Note001: CASE DEPT1='63B'
FIEL1='TPBNSV'
CASE DEPT1='63C'
FIEL1='CPBNSV'
CASE DEPT1='630'
FIEL1='TP'
CASE DEPT1='620'
FIEL1='CP'
CASE DEPT1='610'
FIEL1='MEDIA'
CASE DEPT1='640'
FIEL1='RESEARCH'
OTHERWISE
FIEL1='OTHER'
ENDCASE
BAL1=BAL
ACCTCODE1=ACCTCODE
SELE 1
GO TOP
LOCA FOR ACCTCODE=ACCTCODE1
IF NOT EOF()
REPL &FIEL1 WITH &FIEL1+BAL1
ENDIF
SELE 2
SKIP
ENDDO
SELE 4
USE C:\OUT
COUNT TO W1
IF W1>0 THEN
BROW TITL '????'+ALLT(STR(W1,6,0))+'?????'
ENDIF
SELE 1
*STOR 0 TO SUM1,SUM2,SUM3,SUM4,SUM5SUM6,SUM7,SUM8
*SUM ADMIN,SALEFIX,SALEVAR,MFGFIX,MFGVAR,DR,CR,BAL TO SUM1,SUM2,SUM3,SUM4,SUM5,SUM6,SUM7,SUM8
*APPE BLANK
*REPL ACCTCODE WITH '??',ADMIN WITH SUM1,SALEFIX WITH SUM2,SALEVAR WITH SUM3,MFGFIX WITH SUM4,MFGVAR WITH SUM5,;
*DR WITH SUM6,CR WITH SUM7,BAL WITH SUM8
SET FILT TO BAL<>0
GO TOP
MON1=SUBS(DBFFILE,LEN(DBFFILE)-5,2)
*MODI REPO p:\WH\E_FORM
REPO FORM p:\WH\E_FORM PREV
THISFORM.LABEL1.CAPTION='??P:\WH\E_FORM.DBF?!'
THISFORM.LABEL2.CAPTION='??????????P:\wh\finrpt02.dbf,???...'
sele 2
use p:\wh\finrpt02
inde on itemno to c:\cc
****
mon2=month
if val(mon1)=1 then
repl all prevalue with 0,ytd with 0,month with VAL(mon1)
else
if val(mon1)=MON2+1 then
repl all prevalue with ytd,MONTH WITH VAL(MON1)
else
if val(mon1)<>MON2 then
WAIT WIND'????'+ALLT(STR(MON2,2,0))+'???????????!'
CLOS ALL
RETU
endif
endif
endif
sele 1
sum bal to wh2 for acctcode='4105'
sum bal to wh21 for acctcode='4155'
wh2=abs(wh2)-wh21
sum bal to wh11 for acctcode='4130'
wh1=abs(wh11)
wh3=wh1+wh2
sum D_A to wh4
*Note002:sum tpbnsv to wh5
sum cpbnsv to wh6
wh7=wh3-wh4-wh5-wh6
*Note003: sum bal to wh8 for acctcode='5105' or acctcode='5110' or acctcode='5115' or acctcode='5120'
sum bal to wh9 for acctcode='5130'
wh10=wh9+wh8
wh11=wh7-wh10
sum salevar to wh12
sum salefix to wh13
wh14=wh12+wh13
sum tp to wh15
sum cp to wh16
sum media to wh17
sum research to wh18
wh19=wh18+wh15+wh16+wh17
sum admin to wh20
sum addev to wh21
wh22=wh20+wh21
wh23=wh11-wh14-wh19-wh22
sum bal to wh29 for acctcode='8105' or acctcode='8110' or acctcode='8505' or acctcode='8510'
sum bal to wh26 for acctcode='8355' OR ACCTCODE='8360'
* sum bal to wh25 for acctcode=''
sum bal to wh24 for acctcode='8205'
sum bal to wh28 for acctcode='8210'
sum bal to wh27 for acctcode='8410' or acctcode='8420' or acctcode='8405'
wh30=WH23-wh24-wh26-wh27-wh28-wh29
sum bal to wh31 for acctcode='9105'
wh32=wh30-wh31
*----
*----
sele 2
REPL ALL VALUE WITH 0,YTD WITH 0
repl all value with round(wh1/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02001'
repl all value with round(wh2/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02002'
repl all value with round(wh3/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02003'
repl all value with round(wh4/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02004'
repl all value with round(wh5/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02005'
repl all value with round(wh6/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02006'
repl all value with round(wh7/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02007'
repl all value with round(wh8/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02008'
repl all value with round(wh9/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02009'
repl all value with round(wh10/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02010'
repl all value with round(wh11/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02011'
* repl all value with round(wh11a/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=6 AND allt(itemno)=='02011A'
repl all value with round(wh12/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02012'
repl all value with round(wh13/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02013'
repl all value with round(wh14/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02014'
repl all value with round(wh15/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02015'
repl all value with round(wh16/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02016'
repl all value with round(wh17/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02017'
repl all value with round(wh18/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02018'
repl all value with round(wh19/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02019'
repl all value with round(wh20/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02020'
repl all value with round(wh21/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02021'
repl all value with round(wh22/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02022'
repl all value with round(wh23/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02023'
repl all value with round(wh24/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02024'
* repl all value with round(wh25/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02025'
repl all value with round(wh26/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02026'
repl all value with round(wh27/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02027'
repl all value with round(wh28/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02028'
repl all value with round(wh29/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02029'
repl all value with round(wh30/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02030'
repl all value with round(wh31/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02031'
repl all value with round(wh32/1000,0),YTD with prevalue+value for LEN(ALLT(ITEMNO))=5 AND allt(itemno)=='02032'
repo form e_form1 prev
****
THISFORM.LABEL2.CAPTION='???P:\wh\finrpt**.dbf?!??!'
****
ENDIF
CLOS ALL
RETU
