$PBExportHeader$w_outware_pos_js.srw forward global type w_outware_pos_js from w_publ_base end type type cb_1 from uo_imflatbutton within w_outware_pos_js end type type st_1 from statictext within w_outware_pos_js end type type em_1 from editmask within w_outware_pos_js end type type st_2 from statictext within w_outware_pos_js end type type em_2 from editmask within w_outware_pos_js end type type st_4 from statictext within w_outware_pos_js end type type em_3 from editmask within w_outware_pos_js end type end forward global type w_outware_pos_js from w_publ_base integer width = 1938 integer height = 1268 boolean titlebar = false string title = "" boolean controlmenu = false boolean minbox = false windowtype windowtype = response! cb_1 cb_1 st_1 st_1 em_1 em_1 st_2 st_2 em_2 em_2 st_4 st_4 em_3 em_3 end type global w_outware_pos_js w_outware_pos_js type variables decimal ins_totalamt decimal ins_getamt s_pos_bank s_rt_stru end variables on w_outware_pos_js.create int iCurrent call super::create this.cb_1=create cb_1 this.st_1=create st_1 this.em_1=create em_1 this.st_2=create st_2 this.em_2=create em_2 this.st_4=create st_4 this.em_3=create em_3 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_1 this.Control[iCurrent+2]=this.st_1 this.Control[iCurrent+3]=this.em_1 this.Control[iCurrent+4]=this.st_2 this.Control[iCurrent+5]=this.em_2 this.Control[iCurrent+6]=this.st_4 this.Control[iCurrent+7]=this.em_3 end on on w_outware_pos_js.destroy call super::destroy destroy(this.cb_1) destroy(this.st_1) destroy(this.em_1) destroy(this.st_2) destroy(this.em_2) destroy(this.st_4) destroy(this.em_3) end on event open;call super::open;ins_totalamt = Message.DoubleParm em_1.Text = String(ins_totalamt) em_3.Text = '0.00' em_2.SetFocus() s_rt_stru.if_ok = 0 end event event close;call super::close;closewithreturn(this,s_rt_stru) end event type cb_func from w_publ_base`cb_func within w_outware_pos_js boolean visible = false integer y = 1432 end type type cb_exit from w_publ_base`cb_exit within w_outware_pos_js integer x = 1111 integer y = 992 string text = "退出[ESC]" string normalpicname = "" end type event cb_exit::clicked;s_rt_stru.if_ok = 0 close(parent) end event type cb_1 from uo_imflatbutton within w_outware_pos_js integer x = 425 integer y = 992 integer width = 311 integer height = 96 integer taborder = 30 boolean bringtotop = true string text = "确定[ENT]" boolean default = true end type event clicked;call super::clicked;IF Dec(em_2.Text) < Dec(em_1.Text) THEN OpenWithParm(w_pos_msg,'请输入正确实收现金!') em_2.SetFocus() em_2.SelectText( 1, Len(THIS.Text)) RETURN END IF s_rt_stru.if_ok = 1 s_rt_stru.getamt = Dec(em_2.Text) s_rt_stru.backamt = Dec(em_2.Text) - ins_totalamt Close(PARENT) end event type st_1 from statictext within w_outware_pos_js integer x = 114 integer y = 116 integer width = 658 integer height = 136 boolean bringtotop = true integer textsize = -20 integer weight = 700 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 16777215 string text = "应收现金:" boolean focusrectangle = false end type type em_1 from editmask within w_outware_pos_js integer x = 777 integer y = 116 integer width = 928 integer height = 136 boolean bringtotop = true integer textsize = -20 integer weight = 700 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 16777215 string text = "0.00" boolean border = false alignment alignment = right! boolean displayonly = true borderstyle borderstyle = stylelowered! string mask = "###,##0.00" end type type st_2 from statictext within w_outware_pos_js integer x = 114 integer y = 396 integer width = 658 integer height = 136 boolean bringtotop = true integer textsize = -20 integer weight = 700 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 16777215 string text = "实收现金:" boolean focusrectangle = false end type type em_2 from editmask within w_outware_pos_js event keyup pbm_keyup integer x = 777 integer y = 396 integer width = 928 integer height = 136 integer taborder = 40 boolean bringtotop = true integer textsize = -20 integer weight = 700 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 16711680 long backcolor = 16777215 string text = "0.00" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "###,##0.00" end type event keyup;em_3.Text = String(Dec(em_2.Text) - ins_totalamt) end event event getfocus;this.selecttext( 1, len(this.text)) end event type st_4 from statictext within w_outware_pos_js integer x = 114 integer y = 716 integer width = 658 integer height = 136 boolean bringtotop = true integer textsize = -20 integer weight = 700 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 16777215 string text = "找 回:" boolean focusrectangle = false end type type em_3 from editmask within w_outware_pos_js integer x = 777 integer y = 716 integer width = 933 integer height = 136 boolean bringtotop = true integer textsize = -20 integer weight = 700 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 16777215 string text = "0.00" boolean border = false alignment alignment = right! boolean displayonly = true borderstyle borderstyle = stylelowered! string mask = "###,##0.00" end type