[FORM]
;set pcdD no visible
;PCDUNVISIBLE=1
;set SQ Unvisible
PCSQUNVISIBLE=1

[BOOLFIELDSD]
FIELDS=D025

[GERNOBYJZFM]
FIELDS=M011

M011NUM=3
MODE=0
M011SHEETNO=999
M011TBLNAME=FM_ZZPZM
M011TBLFBRNO=M001
999M011JZ=
;Y=YEAR,M=MONTH,D=DATE
M011MAXMODE=M
M011DJTYPE=M031

M011NOFRM=ffmZZPZ

[QOBJECTLOADTREED]
FIELDS=D010;D011

D011tvfields=M014,M012,M016,M015,M011,M020
D011TreeLevelFName=M016
D011treetblname=BS_F_KEMU
D011FGName=M014
D011FParentNo=M015
D011SHOWPNO=1

D010tvfields=M014,M012,M016,M015,M011,M020
D010TreeLevelFName=M016
D010treetblname=BS_F_KEMU
D010FGName=M014
D010FParentNo=M015
D010SHOWPNO=1

[CALCHZM]
;0=get from here, 1=get from db
CALCTYPE=0
;0=CALC ONE REC,1 CALC LOOP; 2 SET STRIGN VALUE
MODE=0
FIELDS=

[CALCHZD]
;0=get from here, 1=get from db
CALCTYPE=0
;0=CALC ONE REC,1 CALC LOOP; 2 SET STRIGN VALUE
MODE=0
FIELDS=
;D015;D016;D017

D015SHEETNO=999  
;0=EXIT,1=POST,2=SAVE Data To DB,3=NEW Record
D015TRIGGER=0;1
;0=without tax,1=with tax function
0D015=D019*D014
D015EXITFIELD=
D015DATATYPE=I
;M IS cdsM Field
D015FIELDGRID=D;D
D015LOOP=

D016SHEETNO=999  
;0=EXIT,1=POST,2=SAVE Data To DB,3=NEW Record
D016TRIGGER=0;1
;0=without tax,1=with tax function
0D016=D013*D014
D016EXITFIELD=
D016DATATYPE=I
;M IS cdsM Field
D016FIELDGRID=D;D
D016LOOP=

D017SHEETNO=999  
;0=EXIT,1=POST,2=SAVE Data To DB,3=NEW Record
D017TRIGGER=0;1
;0=without tax,1=with tax function
0D017=D019*D014-D013*D014
D017EXITFIELD=
D017DATATYPE=I
;M IS cdsM Field
D017FIELDGRID=D;D;D;D
D017LOOP=

[CHECKACTION] 
Actions=
;aAPP

aAPPDoAction=aCHECKHASAPPEM;aGetMaxRecNoM;aSave
aAPPaCHECKHASAPPEMSHEETNO=999
aAPPaGetMaxRecNoMSHEETNO=999
aAPPaSaveSHEETNO=999 

[CHECKEVENT] 
Actions=mmiJZSUNYI
;aSave;aAPP

aAPPDoAction=aCopyBill

aAPPaCopyBillSHEETNO=999
;0= no app 1=app -1=no limit
aAPPaCopyBillMODE=0
aAPPaCopyBillMenu=mmiGerPZ

aSaveDoAction=aEXECSQL;aOpencdsD

aSaveaEXECSQLSHEETNO=999
;0= no app 1=app -1=no limit
aSaveaEXECSQLMODE=0
aSaveaEXECSQLMenu=aSave

aSaveaOpencdsDSHEETNO=999

mmiJZSUNYIDoAction=aCopyBill2;aDoExecSQL2;aCopyBill

mmiJZSUNYIaCopyBill2SHEETNO=999
;0= no app 1=app -1=no limit
mmiJZSUNYIaCopyBill2MODE=0
mmiJZSUNYIaCopyBill2Menu=mmiGerDetail

mmiJZSUNYIDoAction=aDoExecSQL2 
mmiJZSUNYIaDoExecSQL2SHEETNO=999
mmiJZSUNYIaDoExecSQL2MODE=0
mmiJZSUNYIaDoExecSQL2Menu=mmiJZSUNYI

mmiJZSUNYIaCopyBillSHEETNO=999
;0= no app 1=app -1=no limit
mmiJZSUNYIaCopyBillMODE=0
mmiJZSUNYIaCopyBillMenu=mmiGerPZ

[DoExecSQL]
;menu name=sql
mmiJZSUNYI=FM_JZSUNYIDELSQL;FM_JZSUNYIINSERTSQL;FM_JZSUNYIUPDATESQL

[CHECKHASAPPEDM]
SQLS=SQL1

SQL1SHEETNO=999
SQL1FIELDS=D001
SQL1FVALUE=M001
SQL1=SELECT * FROM FM_JZSUNYID WHERE D001='SYSFBRNO' AND D002='SYSSHEETNO' AND D025=1 AND D020<=0
SQL1TIP=本年利润科目借方必须大于0
SQL1ACTION=aAPP

[EXECSQL]
SQLS=SQL1

SQL1MODE=1
SQL1SHEETNO=999
SQL1=UPDATE FM_JZSUNYID SET D021=D014 WHERE D001='SYSFBRNO' AND D002='SYSSHEETNO' AND D025=0
SQL1VALUE=
;M002
SQL1WHERE=D001
SQL1WHEREVALUE=M001
SQL1ACTION=aSave

[DBGRIDFOOTERD]
STOP=0
FIELDS=D010;D014;D015;D016;D017;D020;D021
COL=
;7;13
TYPE=fvtStaticText;fvtSum;fvtSum;fvtSum;fvtSum;fvtSum;fvtSum
D010VALUE=统 计
