Q5/ws_objects/xls_Billprint_win.pbl.src/f_xls_templates.srf

$PBExportHeader$f_xls_templates.srf
global type f_xls_Templates from function_object
end type

forward prototypes
global function integer f_xls_templates (s_xls_msg arg_s_xls)
end prototypes

global function integer f_xls_templates (s_xls_msg arg_s_xls);Int rslt = 1

IF arg_s_xls.obj_dwname = '' THEN
	rslt = 0
	GOTO ext 
END IF

String arg_msg
Long ll_xls_billid,ll_xls_templatesid


ll_xls_billid = arg_s_xls.arg_billid
ll_xls_templatesid = arg_s_xls.arg_templatesid

uo_sendtoexcel uo_xls
uo_xls = CREATE uo_sendtoexcel
uo_xls.commit_transaction = sqlca


datastore ds_xls
ds_xls = CREATE datastore
ds_xls.DataObject = arg_s_xls.obj_dwname
ds_xls.SetTransObject( sqlca)

CHOOSE CASE arg_s_xls.retr_pram_falg
	CASE 0 //
		ds_xls.Retrieve()
	CASE 1 //one string pram
		ds_xls.Retrieve(arg_s_xls.retr_pramstr)
	CASE 2 //one number pram
		ds_xls.Retrieve(arg_s_xls.retr_pramnmb)
	CASE 3 //one date pram
		ds_xls.Retrieve(arg_s_xls.retr_pramfd)
	CASE 4 //two date pram
		ds_xls.Retrieve(arg_s_xls.retr_pramfd,arg_s_xls.retr_pramed)
	CASE 5 //two number pram
		ds_xls.Retrieve(arg_s_xls.retr_pramnmb,arg_s_xls.retr_pramnmb2)
	CASE 6 //two datetime pram
		ds_xls.Retrieve(arg_s_xls.retr_pramfdt,arg_s_xls.retr_pramedt)
	CASE 11 //one number pram,one string pram
		ds_xls.Retrieve(arg_s_xls.retr_pramnmb,arg_s_xls.retr_pramstr)
	CASE 12 //two string pram
		ds_xls.Retrieve(arg_s_xls.retr_pramstr,arg_s_xls.retr_pramstr2)
END CHOOSE

//IF uo_xls.sendtoexcel(ll_xls_billid,ll_xls_templatesid,arg_s_xls.arg_allowwrite,ds_xls,arg_msg) = 0 THEN
//	MessageBox('系统提示',arg_msg)
//	rslt = 0
//	GOTO ext
//END IF

ext:
RETURN rslt





end function