|
換頁程序
張貼日期 2009/3/19 11:35:44
作者 lutuni
|
*MP0PC()Edit15.Text
DO CASE
CASE MultiPage0.PageIndex=0
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ENDIF
CASE MultiPage0.PageIndex=1
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ENDIF
CASE MultiPage0.PageIndex=2
ASSIGN(Label3.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
INVO.Active=1
select INVO
ASSIGN(Field11.DoTotal,0)
ASSIGN(Field11.ShowTotal,0)
Set While FROM CUSTOMER->CUST_CODE+TRIM(COMBO2.TEXT)+TRIM(COMBO3.TEXT) TO CUSTOMER->CUST_CODE+TRIM(COMBO4.TEXT)
ASSIGN(Field11.DoTotal,1)
ASSIGN(Field11.ShowTotal,1)
GO Bottom
CASE MultiPage0.PageIndex=3
ASSIGN(Label4.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
ASSIGN(EDIT25.TEXT,"")
INVOSUB.Active=1
select INVOSUB
Set While FROM CUSTOMER->CUST_CODE+CREPL('0',20)+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+CREPL('Z',20)+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
INVOSUB.GoBottom()
CASE MultiPage0.PageIndex=4
ENDCASE
|
|