123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127 |
- $PBExportHeader$w_saletaskmx_stopqty_edit.srw
- forward
- global type w_saletaskmx_stopqty_edit from w_publ_base
- end type
- type dw_1 from datawindow within w_saletaskmx_stopqty_edit
- end type
- type cb_1 from uo_imflatbutton within w_saletaskmx_stopqty_edit
- end type
- end forward
- global type w_saletaskmx_stopqty_edit from w_publ_base
- integer width = 2016
- integer height = 1164
- string title = "销售订单明细终止"
- boolean minbox = false
- windowtype windowtype = response!
- dw_1 dw_1
- cb_1 cb_1
- end type
- global w_saletaskmx_stopqty_edit w_saletaskmx_stopqty_edit
- type variables
- long ins_scid,ins_taskid,ins_printid
- s_edit_index_tran s_inscust
- end variables
- on w_saletaskmx_stopqty_edit.create
- int iCurrent
- call super::create
- this.dw_1=create dw_1
- this.cb_1=create cb_1
- iCurrent=UpperBound(this.Control)
- this.Control[iCurrent+1]=this.dw_1
- this.Control[iCurrent+2]=this.cb_1
- end on
- on w_saletaskmx_stopqty_edit.destroy
- call super::destroy
- destroy(this.dw_1)
- destroy(this.cb_1)
- end on
- event open;call super::open;dw_1.SetTransObject(sqlca)
- s_inscust = Message.PowerObjectParm
- ins_scid = s_inscust.b_long
- ins_taskid = s_inscust.c_long
- ins_printid = s_inscust.d_long
- dw_1.retrieve(ins_scid,ins_taskid,ins_printid)
- end event
- type cb_func from w_publ_base`cb_func within w_saletaskmx_stopqty_edit
- boolean visible = false
- end type
- type cb_exit from w_publ_base`cb_exit within w_saletaskmx_stopqty_edit
- integer x = 1093
- integer y = 952
- integer width = 302
- integer height = 100
- integer taborder = 40
- end type
- type dw_1 from datawindow within w_saletaskmx_stopqty_edit
- integer x = 32
- integer y = 24
- integer width = 1947
- integer height = 904
- integer taborder = 10
- boolean bringtotop = true
- string title = "none"
- string dataobject = "dw_saletaskmx_stopqty_edit"
- boolean livescroll = true
- borderstyle borderstyle = stylelowered!
- end type
- type cb_1 from uo_imflatbutton within w_saletaskmx_stopqty_edit
- integer x = 594
- integer y = 952
- integer taborder = 30
- boolean bringtotop = true
- string normalpicname = "ok.bmp"
- integer picsize = 16
- end type
- event clicked;call super::clicked;uo_saletask uo_sale
- uo_sale = Create uo_saletask
- uo_sale.commit_transaction = sqlca
- dw_1.AcceptText()
- Int rslt = 1
- Long ll_row
- Decimal ld_stopqty,ld_rebuyqty
- String ls_stopreason,ls_mtrlcode
- String arg_msg
- ll_row = dw_1.GetRow()
- ld_stopqty = dw_1.Object.u_saletaskmx_stopqty[ll_row]
- ls_stopreason = dw_1.Object.u_saletaskmx_stopreason[ll_row]
- ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
- IF uo_sale.uof_stopqty(ins_scid,ins_taskid,ins_printid,ld_stopqty,ls_stopreason,arg_msg,True) = 0 THEN
- MessageBox('Error',arg_msg)
- rslt = 0
- GOTO ext
- END IF
- ext:
- Destroy uo_sale
- IF rslt = 1 THEN
- MessageBox('系统提示','操作成功!')
- Close(Parent)
- END IF
- end event
|