Q5/ws_objects/Ew_publ903.pbl.src/uo_print_preview.sru

$PBExportHeader$uo_print_preview.sru
forward
global type uo_print_preview from nonvisualobject
end type
end forward

global type uo_print_preview from nonvisualobject autoinstantiate
end type

type prototypes
function boolean IsWindowsNT() library "PrintCtrl.dll"
SUBROUTINE About() library "PrintCtrl.dll"
function boolean GetDefaultPrinter(ref string PrinterName, int BufferLen) library "PrintCtrl.dll" alias for "GetDefaultPrinter;Ansi"
function boolean GetPrinterPort(ref string PrinterName, ref string Port, int PortLen, ref string Driver, int DriverLen) library "PrintCtrl.dll" alias for "GetPrinterPort;Ansi"
function boolean GetPrinterList(ref string PrinterList, ref long bufferLen) library "PrintCtrl.dll" alias for "GetPrinterList;Ansi"
function boolean GetPrinterStatus(ref string Printer, ref long status) library "PrintCtrl.dll" alias for "GetPrinterStatus;Ansi"
function boolean GetPaperList(ref string Printer, ref string PaperList, ref long bufferLen) library "PrintCtrl.dll" alias for "GetPaperList;Ansi"
function boolean SetPrinterDefault(ref string Printer) library "PrintCtrl.dll" alias for "SetPrinterDefault;Ansi"
function boolean AddCustomPaper( ref string Printer, ref string PaperName, long pwidth, long pheight, long left, long right, long top, long bottom) library "PrintCtrl.dll" alias for "AddCustomPaper;Ansi"
function boolean DeleteCustomPaper(ref string Printer, ref string PaperName) library "PrintCtrl.dll" alias for "DeleteCustomPaper;Ansi"
function boolean SetUserDefinePaper(ref string Printer, ref long pWidth, ref long pHeight) library "PrintCtrl.dll" alias for "SetUserDefinePaper;Ansi"
function boolean GetUserDefinePaperMinMax(ref string Printer, ref long minWidth, ref long minHeight, ref long maxWidth, ref long maxHeight) library "PrintCtrl.dll" alias for "GetUserDefinePaperMinMax;Ansi"
function boolean GetDefaultPaper(ref string Printer, ref string PaperName, ref int nOrientation) library "PrintCtrl.dll" alias for "GetDefaultPaper;Ansi"
function boolean SetDefaultPaper(ref string Printer, ref string PaperName, int nOrientation) library "PrintCtrl.dll" alias for "SetDefaultPaper;Ansi"
function boolean GetDefaultPaper(ref string Printer, ref string PaperName,ref long nPapserSize, ref long nOrientation) library "PrintCtrl.dll" alias for "GetDefaultPaper;Ansi"
function boolean GetPaperName(ref string Printer, ref string PaperName, int PaperSize) library "PrintCtrl.dll" alias for "GetPaperName;Ansi"
function boolean GetPaperSize(ref string Printer, ref string PaperName, ref int PaperSize) library "PrintCtrl.dll" alias for "GetPaperSize;Ansi"
function boolean GetBinNameList(ref string Printer, ref string BinNameList) library "PrintCtrl.dll" alias for "GetBinNameList;Ansi"
function boolean GetBin(ref string Printer, ref string BinName, ref int Bin) library "PrintCtrl.dll" alias for "GetBin;Ansi"
function boolean GetBinName(ref string Printer, ref string BinName, int Bin) library "PrintCtrl.dll" alias for "GetBinName;Ansi"
end prototypes

type variables
S_print_MSG  FACT_PRINT_MSG
string dwdataobject
DataWindowChild ins_dwcld
s_childreportxwidth s_xwidth
dwobject dwod
long retrieveid=0,secondretrieveid=0,scid=0

uo_printer_setting  lnv_printer
String ins_printerlist [ ]
int p_printerlist =0
string dw_default_printer ='',default_printer =''
string default_printer_info=''

LONG Print_row
string default_dwname,default_dname

datastore ds_print


end variables

forward prototypes
public subroutine uof_initprinterinfo ()
public function integer uof_trycreate_sys_dwnsyntax (ref string arg_msg)
public function integer uof_print_begin (ref string arg_msg)
public function integer uof_defdataobject (ref string arg_msg)
public function integer uof_dwcreate (string arg_dwname, string arg_formatname, ref string arg_msg)
public function integer uof_read_subdwpos (string arg_dwname, string arg_dname, ref s_childreportxwidth s_subdwwidth, ref string arg_msg)
public subroutine uof_subdwpos_blobtostru (blob arg_blob, ref s_childreportxwidth arg_s_xwidth)
public function integer uof_mdfmxreport (s_childreportxwidth s_xw)
public function integer uof_mdfx (s_childreportxwidth s_xw, integer pt)
public subroutine ds_print ()
public subroutine uof_nullrow (long arg_rowcnt, long arg_pagerow, ref long arg_nullrow)
public subroutine ds_retrieve ()
public subroutine uof_add_pic ()
end prototypes

public subroutine uof_initprinterinfo ();// 取PB缺省打印机
String printerName
Boolean rt_1
printerName = Space(255)
rt_1 = GetDefaultPrinter(REF printerName, 255)
IF rt_1 THEN
	default_printer = Trim(printerName)
ELSE
	default_printer = ''
END IF

//取PB缺省打印机设置字符串
default_printer_info = ProfileString ( "win.ini", "windows", "device", "" )





end subroutine

public function integer uof_trycreate_sys_dwnsyntax (ref string arg_msg);//wf_trycreate_sys_dwnsyntax

long rslt=1
long cnt
string createsql_string,t_str
createsql_string="CREATE TABLE sys_dwnSyntax (	dwname char (50) NOT NULL,dname char (50) NOT NULL,default_flag tinyint not null default (0),dwSyntaxB image not NULL DEFAULT (''),subdwSyntaxB image not NULL DEFAULT ('')) "+&
      " ~n ALTER TABLE sys_dwnSyntax WITH NOCHECK ADD CONSTRAINT PK_sys_dwnSyntax PRIMARY KEY  CLUSTERED (dwname,dname)"

t_str="select count(*) from sys_dwnSyntax"

Execute immediate :t_str;  
if sqlca.sqlcode=0 then //已经存在该表
	rslt=1
	goto ext	
end if

Execute immediate :createsql_string ;  
		
if sqlca.sqlcode<>0 then
	arg_msg='建立表sys_dwnSyntax失败>>'+sqlca.sqlerrtext
	rollback ;
	rslt=0
	goto ext	
end if
commit ;

ext:
return rslt


return 0
end function

public function integer uof_print_begin (ref string arg_msg);Int rslt = 1

//------------------初始化打印机
uof_initprinterinfo()



retrieveid = fact_print_msg.retr_pramnmb
scid = fact_print_msg.retr_scid

 //获取DW嵌套子DW
String ls_pblname,ls_pblpath,dwsyntax
String ls_dw_arr[]
String ls_comments[]
Long ll_beg,ll_end,it_max
Select pblname
	Into :ls_pblname
	From sys_dft_dwprint_dynamic
	Where dft_new_dwname = :fact_print_msg.obj_dwname;
If sqlca.SQLCode <> 0 Then
	ls_pblname = ''
End If

If ls_pblname <> '' Then
	If f_init_dftpbl(ls_pblname,fact_print_msg.obj_dwname,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

//********************
ds_print.DataObject = fact_print_msg.obj_dwname
ds_print.SetTransObject(sqlca)
If ds_print.Describe("DataWindow.Objects") = "" Then
	arg_msg = '初始化打印格式失败,请检查重定向设置'
	ds_print.DataObject = ''
	rslt = 0
	Goto ext
End If


//------------------读默认行数

If fact_print_msg.printrow = 0  Then
	fact_print_msg.printrow = Long(ProfileString (sys_inifilename,ds_print.DataObject, "printrow", '10'))
End If



//--------------------------------------------建表
If uof_trycreate_sys_dwnsyntax(arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If

If uof_defdataobject(arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If

Ds_Retrieve()



If uof_read_subdwpos(default_dwname,default_dname,s_xwidth,arg_msg) = 0 Then
	rslt = 0
	Goto ext
Else
	uof_mdfmxreport(s_xwidth)
End If

If Not IsNull(fact_print_msg.ini_GROUP) And Trim(ds_print.DataObject) <> '' Then
	//	ds_print.Object.DataWindow.Print.MARGIN.Top = Integer(ProfileString(sys_inifilename,ds_print.DataObject, "MARGIN_TOP",   "110"))
	//	ds_print.Object.DataWindow.Print.MARGIN.Left = Integer(ProfileString(sys_inifilename,ds_print.DataObject, "MARGIN_LEFT", "96" ))
	//	
	//	ds_print.Object.DataWindow.Print.MARGIN.bottom = Integer(ProfileString(sys_inifilename,ds_print.DataObject, "MARGIN_BOTTOM",   "110"))
	//	ds_print.Object.DataWindow.Print.MARGIN.Right = Integer(ProfileString(sys_inifilename,ds_print.DataObject, "MARGIN_RIGHT", "96" ))
	//	
	//	ds_print.Object.DataWindow.Print.PAPER.SIZE = Integer(ProfileString(sys_inifilename,ds_print.DataObject, "PAPER_SIZE",   "0"  ))
	//	ds_print.Object.DataWindow.Print.ORIENTATION = Integer(ProfileString(sys_inifilename,ds_print.DataObject, "ORIENTATION", "0"  ))
	//	
	//	dw_default_printer  = ProfileString(sys_inifilename,ds_print.DataObject, "dw_default_printer ", ""  )
	
	Integer  margin_top = -1,margin_left = -1,margin_bottom = -1,margin_right = -1,paper_size = -1,orientation = -1
	margin_top = 	Integer(f_ProfileString(sys_empid,ds_print.DataObject, "margin_top",   "-1"))
	
	margin_left = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "margin_left", "-1" ))
	
	margin_bottom = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "margin_bottom",   "-1"))
	margin_right = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "margin_right", "-1" ))
	
	paper_size = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "paper_size",   "-1"  ))
	orientation = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "orientation", "-1"  ))
	
	
	//	ds_print.Object.DataWindow.Print.MARGIN.Top = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "margin_top",   "110"))
	//	ds_print.Object.DataWindow.Print.MARGIN.Left = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "margin_left", "96" ))
	//	
	//	ds_print.Object.DataWindow.Print.MARGIN.bottom = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "margin_bottom",   "110"))
	//	ds_print.Object.DataWindow.Print.MARGIN.Right = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "margin_right", "96" ))
	//	
	//	ds_print.Object.DataWindow.Print.PAPER.SIZE = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "paper_size",   "0"  ))
	//	ds_print.Object.DataWindow.Print.ORIENTATION = Integer(f_ProfileString(sys_empid,ds_print.DataObject, "orientation", "0"  ))
	//
	If margin_top > 0 Then
		ds_print.Object.datawindow.Print.margin.Top = margin_top
	End If
	If margin_left > 0 Then
		ds_print.Object.datawindow.Print.margin.Left = margin_left
	End If
	If margin_bottom > 0 Then
		ds_print.Object.datawindow.Print.margin.bottom = margin_bottom
	End If
	If margin_right > 0 Then
		ds_print.Object.datawindow.Print.margin.Right = margin_right
	End If
	
	If paper_size > 0 Then
		ds_print.Object.datawindow.Print.paper.size = paper_size
	End If
	If orientation > 0 Then
		ds_print.Object.datawindow.Print.orientation  = orientation
	End If
	
	
	dw_default_printer  = f_ProfileString(sys_empid,ds_print.DataObject, "dw_default_printer ", ""  )
End If





ext:
Return rslt



end function

public function integer uof_defdataobject (ref string arg_msg);int rslt=1

long ls_count
blob sqlblob

select count(*) into :ls_count from sys_dwnSyntax where dwname=:fact_print_msg.obj_dwname and default_flag=1 ;
if sqlca.sqlcode=-1 then
	arg_msg='查询单据格式失败'+sqlca.sqlerrtext
	rslt=0
	goto ext
end if

if ls_count=1 then
	select dwname,dname into :default_dwname,:default_dname from sys_dwnSyntax where dwname=:fact_print_msg.obj_dwname and default_flag=1 ;
	if sqlca.sqlcode=-1 then
		arg_msg='查询单据格式失败'+sqlca.sqlerrtext
		rslt=0
		goto ext
	end if
	
	if uof_dwcreate(default_dwname,default_dname,arg_msg)=0 then
		arg_msg='打开单据格式失败！原因：'+arg_msg
		rslt=0
		goto ext
	end if
	
	ds_print.settransobject(sqlca)

end if

ext:
return rslt


end function

public function integer uof_dwcreate (string arg_dwname, string arg_formatname, ref string arg_msg);blob dwSyntax

int rslt=1

selectblob dwSyntaxB into :dwSyntax from sys_dwnSyntax where dwname=:arg_dwname and dname=:arg_formatname;
if sqlca.sqlcode=-1 then
	arg_msg='查询单据格式失败,原因:'+sqlca.sqlerrtext
	rslt=0
	goto ext
end if
if ds_print.create(string(dwSyntax),arg_msg)<>1 then
	rslt=0
	goto ext
end if
ext:
return rslt

end function

public function integer uof_read_subdwpos (string arg_dwname, string arg_dname, ref s_childreportxwidth s_subdwwidth, ref string arg_msg);//uof_read_subdwpos(arg_dwname,arg_dname,arg_msg)
blob ls_subdwSyntaxB
int rslt=1
 
selectblob subdwSyntaxB into :ls_subdwSyntaxB from sys_dwnSyntax  where dwname=:arg_dwname and dname=:arg_dname;
if sqlca.sqlcode=-1 then
	arg_msg='读取单据明细表格式失败！'+sqlca.sqlerrtext
	rslt=0 
	goto ext
end if

if len(ls_subdwSyntaxB)>0 then
	dwod=ds_print.object.mxreport
	uof_subdwpos_blobtostru(ls_subdwSyntaxB,s_subdwwidth)
end if
ext:
return rslt
end function

public subroutine uof_subdwpos_blobtostru (blob arg_blob, ref s_childreportxwidth arg_s_xwidth);//uof_subdwpos_blobtostru(arg_blob,arg_s_xwidth)
string subdwpos_str,clm_str,cmp_str,clm_strx,clm_strwidth,cmplp_x,cmplp_width
long clm_p,cmplp,i
subdwpos_str=string(arg_blob)
clm_str=mid(subdwpos_str,1,pos(subdwpos_str,'cmplp:') - 1)
cmp_str=mid(subdwpos_str,pos(subdwpos_str,'cmplp:'))

clm_strx=mid(clm_str,pos(clm_str,'x:')+2,pos(clm_str,';width:') - pos(clm_str,'x:') - 1 ) //x_str
clm_strwidth=mid(clm_str,pos(clm_str,'width:') + 6)   //width_str

cmplp_x=mid(cmp_str,pos(cmp_str,'x:')+2,pos(cmp_str,';width:') - pos(cmp_str,'x:') - 1 )
cmplp_width=mid(cmp_str,pos(cmp_str,'width:') + 6)   //cmplpwidth_str

clm_p=long(mid(clm_str,3,pos(clm_str,';') - 3)) //P
cmplp=long(mid(cmp_str,7,pos(cmp_str,';') - 7)) //cmplp

arg_s_xwidth.p=clm_p
arg_s_xwidth.cmplp=cmplp
//messagebox('all',subdwpos_str)
//MEssagebox('clm_str',clm_str)
//MEssagebox('cmp_str',cmp_str)
//
//MEssagebox('clm_p',clm_p)
//MEssagebox('cmplp',cmplp)
//
//MEssagebox('clm_strx',clm_strx)
//MEssagebox('clm_strwidth',clm_strwidth)



long xmx
string xstr
xmx=0
xstr=''
for i =1 to len(clm_strx)        //x
	if mid(clm_strx,i,1)<>',' and mid(clm_strx,i,1)<>';' then
		xstr=xstr+mid(clm_strx,i,1)
	else
		xmx++
		arg_s_xwidth.x[xmx]=long(xstr)
		xstr=''
	end if
next
	
xmx=0
xstr=''
for i =1 to len(clm_strwidth)        //width
	if mid(clm_strwidth,i,1)<>',' and mid(clm_strwidth,i,1)<>';' then
		xstr=xstr+mid(clm_strwidth,i,1)
	else
		xmx++
		arg_s_xwidth.width[xmx]=long(xstr)
		xstr=''
	end if
next
	
xmx=0
xstr=''
for i =1 to len(cmplp_x)        //cmplp_x
	if mid(cmplp_x,i,1)<>',' and mid(cmplp_x,i,1)<>';' then
		xstr=xstr+mid(cmplp_x,i,1)
	else
		xmx++
		arg_s_xwidth.cmplx[xmx]=long(xstr)
		xstr=''
	end if
next
	
xmx=0
xstr=''
for i =1 to len(cmplp_width)        //cmplp_width
	if mid(cmplp_width,i,1)<>',' and mid(cmplp_width,i,1)<>';' then
		xstr=xstr+mid(cmplp_width,i,1)
	else
		xmx++
		arg_s_xwidth.cmplwidth[xmx]=long(xstr)
		xstr=''
	end if
next
	
	

//messagebox('','sdfsdf')
	
	
	
	
	
	

end subroutine

public function integer uof_mdfmxreport (s_childreportxwidth s_xw);//uof_mdfmxreport(s_childreportxwidth)


if s_xw.p=0 then 
	return 0
end if

if mod(s_xw.cmplp,2)=1 then
	if s_xw.cmplx[1]>0 then dwod.object.cmpl1.width=s_xw.cmplwidth[1]
end if
if s_xw.cmplp=2 or s_xw.cmplp=3 then
	if s_xw.cmplx[2]>0 then dwod.object.cmpl2.width= s_xw.cmplwidth[2]
end if
if s_xw.cmplp=4 or s_xw.cmplp=6 or s_xw.cmplp=7  then
	if s_xw.cmplp=6 or s_xw.cmplp=7 then 
		if s_xw.cmplx[2]>0 then dwod.object.cmpl2.width= s_xw.cmplwidth[2] //yyx0609
	end if
	if s_xw.cmplx[3]>0 then dwod.object.cmpl3.width= s_xw.cmplwidth[3]
end if


if s_xw.x[1]>0 then dwod.object.#1.width=s_xw.width[1]
if s_xw.p<2 then goto mdfx
if s_xw.x[2]>0 then dwod.object.#2.width=s_xw.width[2]
if s_xw.p<3 then goto mdfx
if s_xw.x[3]>0 then dwod.object.#3.width=s_xw.width[3]
if s_xw.p<4 then goto mdfx
if s_xw.x[4]>0 then dwod.object.#4.width=s_xw.width[4]
if s_xw.p<5 then goto mdfx
if s_xw.x[5]>0 then dwod.object.#5.width=s_xw.width[5]
if s_xw.p<6 then goto mdfx
if s_xw.x[6]>0 then dwod.object.#6.width=s_xw.width[6]
if s_xw.p<7 then goto mdfx
if s_xw.x[7]>0 then dwod.object.#7.width=s_xw.width[7]
if s_xw.p<8 then goto mdfx
if s_xw.x[8]>0 then dwod.object.#8.width=s_xw.width[8]
if s_xw.p<9 then goto mdfx
if s_xw.x[9]>0 then dwod.object.#9.width=s_xw.width[9]
if s_xw.p<10 then goto mdfx
if s_xw.x[10]>0 then dwod.object.#10.width=s_xw.width[10]
if s_xw.p<11 then goto mdfx
if s_xw.x[11]>0 then dwod.object.#11.width=s_xw.width[11]
if s_xw.p<12 then goto mdfx
if s_xw.x[12]>0 then dwod.object.#12.width=s_xw.width[12]
if s_xw.p<13 then goto mdfx
if s_xw.x[13]>0 then dwod.object.#13.width=s_xw.width[13]
if s_xw.p<14 then goto mdfx
if s_xw.x[14]>0 then dwod.object.#14.width=s_xw.width[14]
if s_xw.p<15 then goto mdfx
if s_xw.x[15]>0 then dwod.object.#15.width=s_xw.width[15]
if s_xw.p<16 then goto mdfx
if s_xw.x[16]>0 then dwod.object.#16.width=s_xw.width[16]
if s_xw.p<17 then goto mdfx
if s_xw.x[17]>0 then dwod.object.#17.width=s_xw.width[17]
if s_xw.p<18 then goto mdfx
if s_xw.x[18]>0 then dwod.object.#18.width=s_xw.width[18]
if s_xw.p<19 then goto mdfx
if s_xw.x[19]>0 then dwod.object.#19.width=s_xw.width[19]
if s_xw.p<20 then goto mdfx
if s_xw.x[20]>0 then dwod.object.#20.width=s_xw.width[20]
if s_xw.p<21 then goto mdfx
if s_xw.x[21]>0 then dwod.object.#21.width=s_xw.width[21]
if s_xw.p<22 then goto mdfx
if s_xw.x[22]>0 then dwod.object.#22.width=s_xw.width[22]
if s_xw.p<23 then goto mdfx
if s_xw.x[23]>0 then dwod.object.#23.width=s_xw.width[23]
if s_xw.p<24 then goto mdfx
if s_xw.x[24]>0 then dwod.object.#24.width=s_xw.width[24]
if s_xw.p<25 then goto mdfx
if s_xw.x[25]>0 then dwod.object.#25.width=s_xw.width[25]
if s_xw.p<26 then goto mdfx
if s_xw.x[26]>0 then dwod.object.#26.width=s_xw.width[26]
if s_xw.p<27 then goto mdfx
if s_xw.x[27]>0 then dwod.object.#27.width=s_xw.width[27]
if s_xw.p<28 then goto mdfx
if s_xw.x[28]>0 then dwod.object.#28.width=s_xw.width[28]
if s_xw.p<29 then goto mdfx
if s_xw.x[29]>0 then dwod.object.#29.width=s_xw.width[29]



mdfx:

if mod(s_xw.cmplp,2)=1 then
	if s_xw.cmplx[1]>0 then dwod.object.cmpl1.x= s_xw.cmplx[1] - 9
end if
if s_xw.cmplp=2 or s_xw.cmplp=3 then
	if s_xw.cmplx[2]>0 then dwod.object.cmpl2.x= s_xw.cmplx[2] - 9
end if
if s_xw.cmplp=4 or s_xw.cmplp=6 or s_xw.cmplp=7  then
	if s_xw.cmplp=6 or s_xw.cmplp=7 then 
		if s_xw.cmplx[2]>0 then dwod.object.cmpl2.x= s_xw.cmplx[2] - 9 //yyx0609
	end if
	if s_xw.cmplx[3]>0 then dwod.object.cmpl3.x= s_xw.cmplx[3] - 9
end if

long obp,bp,bi,bj,bk
obp=0
for bi=1 to s_xw.p
	bp=50000
	bk=0
	for bj=1 to s_xw.p
		if s_xw.x[bj]<bp and s_xw.x[bj]>obp and s_xw.x[bj]>0 then 
			bp=s_xw.x[bj]
			bk=bj
		end if
	next
	if mod(s_xw.cmplp,2)=1 then
		if s_xw.cmplx[1]<bp and s_xw.cmplx[1]>obp and s_xw.cmplx[1]>0 then 
			bp=s_xw.cmplx[1]
			bk=0
			bi = bi -1
			dwod.object.cmpl1.x= s_xw.cmplx[1] - 9
		end if
	end if

	uof_mdfx(s_xw,bk)
	obp=bp
next

if mod(s_xw.cmplp,2)=1 then
	if s_xw.cmplx[1]>0 then dwod.object.cmpl1.x= s_xw.cmplx[1] - 9
end if
if s_xw.cmplp=2 or s_xw.cmplp=3 then
	if s_xw.cmplx[2]>0 then dwod.object.cmpl2.x= s_xw.cmplx[2] - 9
end if
if s_xw.cmplp=4 or s_xw.cmplp=6 or s_xw.cmplp=7  then
	if s_xw.cmplp=6 or s_xw.cmplp=7 then 
		if s_xw.cmplx[2]>0 then dwod.object.cmpl2.x= s_xw.cmplx[2] - 9 //yyx0609
	end if
	if s_xw.cmplx[3]>0 then dwod.object.cmpl3.x= s_xw.cmplx[3] - 9
end if

return 0

end function

public function integer uof_mdfx (s_childreportxwidth s_xw, integer pt);//uof_mdfx(s_childreportxwidth,int)

if s_xw.p=0 or pt=0 then 
	return 0
end if

CHOOSE CASE pt
	CASE 1
	if s_xw.p>=1 and s_xw.x[1]>0 then dwod.object.#1.x=s_xw.x[1] - 9
	CASE 2
	if s_xw.p>=2 and s_xw.x[2]>0 then dwod.object.#2.x=s_xw.x[2] - 9
	CASE 3
	if s_xw.p>=3 and s_xw.x[3]>0 then dwod.object.#3.x=s_xw.x[3] - 9
	CASE 4
	if s_xw.p>=4 and s_xw.x[4]>0 then dwod.object.#4.x=s_xw.x[4] - 9
	CASE 5
	if s_xw.p>=5 and s_xw.x[5]>0 then dwod.object.#5.x=s_xw.x[5] - 9
	CASE 6
	if s_xw.p>=6 and s_xw.x[6]>0 then dwod.object.#6.x=s_xw.x[6] - 9
	CASE 7
	if s_xw.p>=7 and s_xw.x[7]>0 then dwod.object.#7.x=s_xw.x[7] - 9
	CASE 8
	if s_xw.p>=8 and s_xw.x[8]>0 then dwod.object.#8.x=s_xw.x[8] - 9
	CASE 9
	if s_xw.p>=9 and s_xw.x[9]>0 then dwod.object.#9.x=s_xw.x[9] - 9
	CASE 10
	if s_xw.p>=10 and s_xw.x[10]>0 then dwod.object.#10.x=s_xw.x[10] - 9
	CASE 11
	if s_xw.p>=11 and s_xw.x[11]>0 then dwod.object.#11.x=s_xw.x[11] - 9
	CASE 12
	if s_xw.p>=12 and s_xw.x[12]>0 then dwod.object.#12.x=s_xw.x[12] - 9
	CASE 13
	if s_xw.p>=13 and s_xw.x[13]>0 then dwod.object.#13.x=s_xw.x[13] - 9
	CASE 14
	if s_xw.p>=14 and s_xw.x[14]>0 then dwod.object.#14.x=s_xw.x[14] - 9
	CASE 15
	if s_xw.p>=15 and s_xw.x[15]>0 then dwod.object.#15.x=s_xw.x[15] - 9
	CASE 16
	if s_xw.p>=16 and s_xw.x[16]>0 then dwod.object.#16.x=s_xw.x[16] - 9
	CASE 17
	if s_xw.p>=17 and s_xw.x[17]>0 then dwod.object.#17.x=s_xw.x[17] - 9
	CASE 18
	if s_xw.p>=18 and s_xw.x[18]>0 then dwod.object.#18.x=s_xw.x[18] - 9
	CASE 19
	if s_xw.p>=19 and s_xw.x[19]>0 then dwod.object.#19.x=s_xw.x[19] - 9
	CASE 20
	if s_xw.p>=20 and s_xw.x[20]>0 then dwod.object.#20.x=s_xw.x[20] - 9
	CASE 21
	if s_xw.p>=21 and s_xw.x[21]>0 then dwod.object.#21.x=s_xw.x[21] - 9
	CASE 22
	if s_xw.p>=22 and s_xw.x[22]>0 then dwod.object.#22.x=s_xw.x[22] - 9
	CASE 23
	if s_xw.p>=23 and s_xw.x[23]>0 then dwod.object.#23.x=s_xw.x[23] - 9
	CASE 24
	if s_xw.p>=24 and s_xw.x[24]>0 then dwod.object.#24.x=s_xw.x[24] - 9
	CASE 25
	if s_xw.p>=25 and s_xw.x[25]>0 then dwod.object.#25.x=s_xw.x[25] - 9
	CASE 26
	if s_xw.p>=26 and s_xw.x[26]>0 then dwod.object.#26.x=s_xw.x[26] - 9
	CASE 27
	if s_xw.p>=27 and s_xw.x[27]>0 then dwod.object.#27.x=s_xw.x[27] - 9
	CASE 28
	if s_xw.p>=28 and s_xw.x[28]>0 then dwod.object.#28.x=s_xw.x[28] - 9
	CASE 29
	if s_xw.p>=29 and s_xw.x[29]>0 then dwod.object.#29.x=s_xw.x[29] - 9
	
END CHOOSE


return 0

end function

public subroutine ds_print ();lnv_printer.of_SetDefault ( dw_default_printer )
ds_print.print()

end subroutine

public subroutine uof_nullrow (long arg_rowcnt, long arg_pagerow, ref long arg_nullrow);//====================================================================
// Function: uof_nullrow()
//--------------------------------------------------------------------
// Description:返回加空行数
//--------------------------------------------------------------------
// Arguments: 
//		value    	long	arg_rowcnt 		
//		value    	long	arg_pagerow		
//		reference	long	arg_nullrow		
//--------------------------------------------------------------------
// Returns:  (none)
//--------------------------------------------------------------------
// Author:	yyx		Date: 2004.09.13
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================
long pagecnt,tal_rowcnt

pagecnt = long(arg_rowcnt / arg_pagerow)

tal_rowcnt = arg_rowcnt + pagecnt + 1

if mod(tal_rowcnt,arg_pagerow)<>0 then
	arg_nullrow = arg_pagerow - mod(tal_rowcnt,arg_pagerow)
else
	arg_nullrow = 0
end if




end subroutine

public subroutine ds_retrieve ();//ds_retrieve 
 
CHOOSE CASE fact_print_msg.retr_pram_falg
	CASE 0 //SHARE DATAWINDOW
		DATAWINDOW LS_DW
		LS_DW = fact_print_msg.SHARE_DW
		LS_DW.ShareData(ds_print)
	CASE 1 //ONE STRING PRAM
		  ds_print.Retrieve(fact_print_msg.retr_pramstr)
	CASE 2 //ONE NUMBER PRAM
		  ds_print.Retrieve(fact_print_msg.retr_pramnmb)
		retrieveid = fact_print_msg.retr_pramnmb
	CASE 3 //ONE DATE PRAM
		  ds_print.Retrieve(fact_print_msg.retr_pramfd)
	CASE 4 //TWO DATE PRAM
		  ds_print.Retrieve(fact_print_msg.retr_pramfd,fact_print_msg.retr_pramed)
	CASE 5 //TWO NUMBER PRAM
		  ds_print.Retrieve(fact_print_msg.retr_pramnmb,fact_print_msg.b_long)
	CASE 11 //scid string
		  ds_print.Retrieve(fact_print_msg.retr_scid,fact_print_msg.retr_pramstr)
	CASE 12 //scid long
		  ds_print.Retrieve(fact_print_msg.retr_scid,fact_print_msg.retr_pramnmb)
	CASE 13 //scid long and TWO NUMBER PRAM
		  ds_print.Retrieve(fact_print_msg.retr_scid,fact_print_msg.retr_pramnmb,fact_print_msg.b_long)
	CASE 14 //TWO DATETIME PRAM
		  ds_print.Retrieve(fact_print_msg.retr_pramfdt,fact_print_msg.retr_pramedt)
	CASE 15 //scid long and TWO NUMBER PRAM and null_row
		uof_nullrow(fact_print_msg.rowcnt,fact_print_msg.printrow,fact_print_msg.nullrow)
		  ds_print.Retrieve(fact_print_msg.retr_scid,fact_print_msg.retr_pramnmb,fact_print_msg.printrow,fact_print_msg.nullrow)
	CASE 16 //scid long and TWO NUMBER PRAM and null_row
		uof_nullrow(fact_print_msg.rowcnt,fact_print_msg.printrow,fact_print_msg.nullrow)
		  ds_print.Retrieve(fact_print_msg.retr_scid,fact_print_msg.a_string_arr,fact_print_msg.printrow,fact_print_msg.nullrow)
	CASE 17	
		uof_nullrow(fact_print_msg.rowcnt,fact_print_msg.printrow,fact_print_msg.nullrow)
		  ds_print.Retrieve(fact_print_msg.retr_scid,fact_print_msg.a_string_arr,fact_print_msg.printrow,fact_print_msg.nullrow)
	case 18
		  ds_print.Retrieve(fact_print_msg.retr_scid,fact_print_msg.retr_pramnmb,fact_print_msg.b_long,fact_print_msg.c_long)
	CASE ELSE
		  ds_print.Retrieve()
END CHOOSE
IF fact_print_msg.retr_pram_falg <> 0 THEN
	ds_print.SetFilter(fact_print_msg.FILTER_STRING)
	ds_print.Filter()
END IF 

IF fact_print_msg.ifpic = 1 THEN
	uof_add_pic() 
END IF

end subroutine

public subroutine uof_add_pic ();Long Columns,i,j,k
String ls_modify_str
Boolean lb_find = False 

IF Pos(Lower(ds_print.Describe("DataWindow.Objects")),'print_picture') > 0  THEN
	Columns = Long(ds_print.Describe("DataWindow.Column.Count"))
	FOR i = 1 To Columns
		ls_modify_str = ds_print.Describe("#" + String(i) + ".name")
		ls_modify_str = Lower(ls_modify_str)
		IF Pos(ls_modify_str,'mtrlid') > 0 Or Pos(ls_modify_str,'_mtrlid') > 0 THEN
			lb_find = True
			EXIT
		END IF
	NEXT
	
	IF lb_find THEN
		FOR j = 1 To ds_print.RowCount()
			IF ds_print.GetItemNumber( j,  ls_modify_str ) > 0 THEN
				FOR k = 1 To UpperBound(fact_print_msg.s_pic.path)
					IF ds_print.GetItemNumber( j,  ls_modify_str )  = fact_print_msg.s_pic.mtrlid[k] THEN
						ds_print.Object.Print_Picture[j] = fact_print_msg.s_pic.path[k]
					END IF
				NEXT
			ELSE
				EXIT
			END IF
		NEXT
	END IF
END IF


//String a,c
//a = childwod.dataobject
//datastore b
//b = create datastore
//b.DataObject = a		
//b.SetTransObject (sqlca)  

//IF ds_print.Describe('mxreport.type') = 'report' And Pos(Lower(b.Describe("DataWindow.Objects")),'print_picture') > 0  THEN
//	Columns = Long(b.Describe("DataWindow.Column.Count"))
//	childwod = ds_print.Object.mxreport
//
//	FOR i = 1 To Columns
//		ls_modify_str = b.Describe("#" + String(i) + ".name")
//		ls_modify_str = Lower(ls_modify_str)
//		IF Pos(Lower(ls_modify_str),'mtrlid') > 0 Or Pos(Lower(ls_modify_str),'_mtrlid') > 0 THEN
//			FOR j = 1 To 1
//				FOR k = 1 To UpperBound(fact_print_msg.s_pic.path)
////					IF  childwod.GetItemNumber( j,  ls_modify_str ) = fact_print_msg.s_pic.mtrlid[k] THEN
//						childwod.Object.Print_Picture[j] = fact_print_msg.s_pic.path[k]
////					END IF
//				NEXT
//			NEXT
//		END IF
//	NEXT
//ELSE
//END IF










end subroutine

on uo_print_preview.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_print_preview.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event constructor;ds_print = create datastore 
end event