Q5/ws_objects/cw_account.pbl.src/w_porfit_loss.srw

$PBExportHeader$w_porfit_loss.srw
forward
global type w_porfit_loss from w_publ_base
end type
type p_1 from picture within w_porfit_loss
end type
type cb_1 from uo_imflatbutton within w_porfit_loss
end type
type gb_1 from groupbox within w_porfit_loss
end type
type st_2 from statictext within w_porfit_loss
end type
type st_3 from statictext within w_porfit_loss
end type
type st_4 from statictext within w_porfit_loss
end type
type st_5 from statictext within w_porfit_loss
end type
type st_6 from statictext within w_porfit_loss
end type
type st_7 from statictext within w_porfit_loss
end type
type ddlb_credtype from dropdownlistbox within w_porfit_loss
end type
type st_1 from statictext within w_porfit_loss
end type
type st_8 from statictext within w_porfit_loss
end type
type sle_subid from singlelineedit within w_porfit_loss
end type
type cb_2 from commandbutton within w_porfit_loss
end type
end forward

global type w_porfit_loss from w_publ_base
integer width = 1723
integer height = 1376
string title = "结转本期损益"
boolean minbox = false
long backcolor = 80269524
p_1 p_1
cb_1 cb_1
gb_1 gb_1
st_2 st_2
st_3 st_3
st_4 st_4
st_5 st_5
st_6 st_6
st_7 st_7
ddlb_credtype ddlb_credtype
st_1 st_1
st_8 st_8
sle_subid sle_subid
cb_2 cb_2
end type
global w_porfit_loss w_porfit_loss

type variables

end variables

on w_porfit_loss.create
int iCurrent
call super::create
this.p_1=create p_1
this.cb_1=create cb_1
this.gb_1=create gb_1
this.st_2=create st_2
this.st_3=create st_3
this.st_4=create st_4
this.st_5=create st_5
this.st_6=create st_6
this.st_7=create st_7
this.ddlb_credtype=create ddlb_credtype
this.st_1=create st_1
this.st_8=create st_8
this.sle_subid=create sle_subid
this.cb_2=create cb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.p_1
this.Control[iCurrent+2]=this.cb_1
this.Control[iCurrent+3]=this.gb_1
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.st_3
this.Control[iCurrent+6]=this.st_4
this.Control[iCurrent+7]=this.st_5
this.Control[iCurrent+8]=this.st_6
this.Control[iCurrent+9]=this.st_7
this.Control[iCurrent+10]=this.ddlb_credtype
this.Control[iCurrent+11]=this.st_1
this.Control[iCurrent+12]=this.st_8
this.Control[iCurrent+13]=this.sle_subid
this.Control[iCurrent+14]=this.cb_2
end on

on w_porfit_loss.destroy
call super::destroy
destroy(this.p_1)
destroy(this.cb_1)
destroy(this.gb_1)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.st_5)
destroy(this.st_6)
destroy(this.st_7)
destroy(this.ddlb_credtype)
destroy(this.st_1)
destroy(this.st_8)
destroy(this.sle_subid)
destroy(this.cb_2)
end on

type cb_func from w_publ_base`cb_func within w_porfit_loss
boolean visible = false
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_porfit_loss
integer x = 1038
integer y = 1136
string text = "取消"
end type

type p_1 from picture within w_porfit_loss
integer x = 46
integer y = 28
integer width = 544
integer height = 832
boolean bringtotop = true
boolean originalsize = true
string picturename = "graphics\profit_loss.bmp"
boolean border = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type cb_1 from uo_imflatbutton within w_porfit_loss
integer x = 416
integer y = 1136
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
boolean default = true
string normalpicname = "ok.bmp"
end type

event clicked;//结转损益
//1.结转总帐
//2.结转0子帐

datastore ds_5x_balance
Long i,ls_subaccsetid,no_mxt = 0,zero_cnt = 0,all_cnt = 0
DateTime end_date,null_datetime
Decimal ls_debit,ls_credit,ls_rawdebit,ls_rawcredit,ls_rate,ls_cmount,ls_price
String ls_subid,ls_subname,ls_brief
Long ls_deptid,ls_itemid
String arg_msg = ''

Int ls_dcflag,tmp_dcflag = 0
Decimal sum_debit,sum_credit
String sum_subid,sum_brief

Long ll_ref_credid,ll_ref_credno

s_credence arg_s_cred

SetNull(null_datetime)

IF Trim(sle_subid.Text) = '' THEN
	MessageBox(publ_operator,'请选择本年利润科目')
	RETURN
END IF

SELECT cw_calendar.edate INTO :end_date FROM cw_calendar
	Where cw_calendar.accsetid = :sys_accsetid AND cmonth = :sys_curyearmon;
IF sqlca.SQLCode <> 0 THEN
	MessageBox(publ_operator,'查询本期间期末日期失败')
	RETURN
END IF

Int li_credtype
String tmp_credtype
String ls_retr_subid
Long ll_len_retr_subid

li_credtype = f_check_credtype(sys_accsetid)
IF li_credtype = 0 THEN
	MessageBox(publ_operator,'查询凭证字数目失败')
	RETURN
ELSEIF li_credtype = 2 THEN
	tmp_credtype = Trim(ddlb_credtype.Text)
	IF tmp_credtype = '' THEN
		MessageBox(publ_operator,'请选择凭证字')
		RETURN
	END IF
END IF

IF s_sys_accset.ifnewsubid = 0 THEN
	ls_retr_subid = '500'
	ll_len_retr_subid = 3
ELSE
	ls_retr_subid = '6000'
	ll_len_retr_subid = 4
END IF

ds_5x_balance = CREATE datastore
ds_5x_balance.DataObject = 'ds_5x_balance'
ds_5x_balance.SetTransObject(sqlca)



ds_5x_balance.Retrieve(sys_accsetid,sys_curyearmon,0,ls_retr_subid,ll_len_retr_subid)
IF ds_5x_balance.RowCount() = 0 THEN
	all_cnt = 0
	GOTO suc
END IF


FOR i = 1 TO ds_5x_balance.RowCount()
	no_mxt++
	ls_subid = ds_5x_balance.Object.cw_credencemx_subid[i]
	ls_subname = ds_5x_balance.Object.cw_subject_name[i]
	ls_dcflag = ds_5x_balance.Object.cw_subject_dcflag[i]
	ls_brief = '结转'+ls_subname
	
	IF ls_dcflag = 0 THEN
		ls_debit = 0 - ds_5x_balance.Object.balance[i]
		ls_credit = 0
		sum_debit = sum_debit + ls_debit
		
		ls_rawdebit = 0 - ds_5x_balance.Object.rawbalance[i]
		ls_rawcredit = 0
	ELSE
		ls_debit = 0
		ls_credit = ds_5x_balance.Object.balance[i]
		sum_credit = sum_credit + ls_credit
		
		ls_rawdebit = 0
		ls_rawcredit = ds_5x_balance.Object.rawbalance[i]
	END IF
	
	ls_rate = ds_5x_balance.Object.cw_credencemx_rate[i]
	
	ls_cmount = ds_5x_balance.Object.amount[i]
	ls_price = ds_5x_balance.Object.cw_credencemx_price[i]
	
	ls_deptid = ds_5x_balance.Object.cw_credencemx_deptid[i]
	ls_itemid = ds_5x_balance.Object.cw_credencemx_itemid[i]
	
	//--结转贷方-----------
	IF ls_dcflag <> tmp_dcflag AND sum_debit <> 0 THEN
		
		sum_subid = Trim(sle_subid.Text)
		
		sum_brief = '结转本期损益'
		arg_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_s_cred.arg_s_credmx[no_mxt].subid = sum_subid
		arg_s_cred.arg_s_credmx[no_mxt].brief = sum_brief
		arg_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_s_cred.arg_s_credmx[no_mxt].credit = sum_debit
		arg_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_s_cred.arg_s_credmx[no_mxt].billdate = null_datetime
		arg_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		tmp_dcflag = ls_dcflag
		
		no_mxt++
	END IF
	//---------------
	arg_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_s_cred.arg_s_credmx[no_mxt].subid = ls_subid
	arg_s_cred.arg_s_credmx[no_mxt].brief = ls_brief
	arg_s_cred.arg_s_credmx[no_mxt].rate = ls_rate
	arg_s_cred.arg_s_credmx[no_mxt].rawdebit = ls_rawdebit
	arg_s_cred.arg_s_credmx[no_mxt].rawcredit = ls_rawcredit
	arg_s_cred.arg_s_credmx[no_mxt].debit = ls_debit
	arg_s_cred.arg_s_credmx[no_mxt].credit = ls_credit
	arg_s_cred.arg_s_credmx[no_mxt].amount = ls_cmount
	arg_s_cred.arg_s_credmx[no_mxt].price = ls_price
	arg_s_cred.arg_s_credmx[no_mxt].deptid = ls_deptid
	arg_s_cred.arg_s_credmx[no_mxt].itemid = ls_itemid
	arg_s_cred.arg_s_credmx[no_mxt].billdate = null_datetime
	arg_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
NEXT

//--结转借方-----------
IF sum_credit <> 0 THEN
	no_mxt++
	
	sum_subid = Trim(sle_subid.Text)
	
	sum_brief = '结转本期损益'
	
	arg_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_s_cred.arg_s_credmx[no_mxt].subid = sum_subid
	arg_s_cred.arg_s_credmx[no_mxt].brief = sum_brief
	arg_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_s_cred.arg_s_credmx[no_mxt].debit = sum_credit
	arg_s_cred.arg_s_credmx[no_mxt].credit = 0
	arg_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_s_cred.arg_s_credmx[no_mxt].billdate = null_datetime
	arg_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
END IF
//-----------------------

arg_s_cred.creddate = end_date
arg_s_cred.readtype = 100
arg_s_cred.credtype = tmp_credtype
arg_s_cred.ifauto = 0

IF f_create_cred(arg_s_cred,TRUE,arg_msg,ll_ref_credid,ll_ref_credno) = 0 THEN
	MessageBox('error!',arg_msg)
	RETURN
END IF

suc:
MessageBox(publ_operator,'本期结转成功!')
CLOSE(PARENT)






end event

type gb_1 from groupbox within w_porfit_loss
integer x = 50
integer y = 1052
integer width = 1591
integer height = 36
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
end type

type st_2 from statictext within w_porfit_loss
integer x = 677
integer y = 176
integer width = 933
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "的余额转入《本年利润》科目，以反映"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_3 from statictext within w_porfit_loss
integer x = 677
integer y = 264
integer width = 933
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "企来在一个会计期间内实现的利润或亏"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_4 from statictext within w_porfit_loss
integer x = 677
integer y = 352
integer width = 933
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "损总额！并且生成相应的记帐凭证。"
boolean focusrectangle = false
end type

type st_5 from statictext within w_porfit_loss
integer x = 677
integer y = 572
integer width = 933
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 80269524
boolean enabled = false
string text = "在结转本期损益以前，要求你将本"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within w_porfit_loss
integer x = 677
integer y = 652
integer width = 933
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 80269524
boolean enabled = false
string text = "期的凭证全部登帐！"
boolean focusrectangle = false
end type

type st_7 from statictext within w_porfit_loss
integer x = 677
integer y = 976
integer width = 187
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "凭证字"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_credtype from dropdownlistbox within w_porfit_loss
integer x = 873
integer y = 964
integer width = 453
integer height = 340
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;String ls_credtype

DECLARE cur_credtype CURSOR FOR
	SELECT cw_Credenceword.Credenceword
	FROM cw_Credenceword
	Where accsetid = :sys_accsetid;
	
OPEN cur_credtype;
FETCH cur_credtype INTO :ls_credtype;
DO WHILE sqlca.SQLCode = 0
	THIS.AddItem(ls_credtype)
	FETCH cur_credtype INTO :ls_credtype;
LOOP

CLOSE cur_credtype;


end event

type st_1 from statictext within w_porfit_loss
integer x = 677
integer y = 88
integer width = 933
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "提示：该功能帮助你将损益类科目"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_8 from statictext within w_porfit_loss
integer x = 462
integer y = 876
integer width = 402
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "本年利润科目"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_subid from singlelineedit within w_porfit_loss
integer x = 873
integer y = 860
integer width = 626
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type cb_2 from commandbutton within w_porfit_loss
integer x = 1509
integer y = 856
integer width = 142
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "..."
end type

event clicked;s_subject s_rt_subject

IF NOT IsValid(w_subjectdef_edit) THEN
	OpenWithParm(w_subjectdef_edit,0)
	s_rt_subject = Message.PowerObjectParm

	IF s_rt_subject.subid = '' THEN RETURN

	sle_subid.Text = s_rt_subject.subid
END IF

end event