$PBExportHeader$gf_setxxcx_childdw.srf
global type gf_setxxcx_childdw from function_object
end type
forward prototypes
global subroutine gf_setxxcx_childdw (datawindow p_dwmain, u_globparam uo_globparam)
end prototypes
global subroutine gf_setxxcx_childdw (datawindow p_dwmain, u_globparam uo_globparam);long columncount,colv_i,rowv_i,filter_i
string columnname,dddw_name,dddw_discol,dddw_datcol,rowdata,filter_str
DataWindowChild childdw
columncount=long(P_dwmain.Object.DataWindow.Column.Count)
if(columncount>0) then
for colv_i=1 to columncount
columnname=P_dwmain.describe("#"+string(colv_i)+".name")
choose case columnname
case "c_ddxzqh","c_xzqh"
P_dwmain.Modify(columnname+".DDDW.Name=d_childdw_xzqh")
P_dwmain.Modify(columnname+".DDDW.DisplayColumn=c_mc")
P_dwmain.Modify(columnname+".DDDW.DataColumn=c_dm")
P_dwmain.getchild(columnname, childdw)
childdw.settransobject(uo_globparam.SQL_CA)
gf_deletedwdata(P_dwmain,childdw)
childdw.retrieve('5',"",1)
case else
end choose
next
end if
if (P_dwmain.rowcount()>0) then
P_dwmain.setrow(P_dwmain.rowcount())
P_dwmain.setrow(1)
end if