PBdatastore和str使用.doc

1、Datastore: 在当前需要存储数据dw u_datastore lds_datalds_data = Create u_datastorelds_data.dataobject=dw_1.dataobjectlong ll_num if dw_1.rowcount()0 then for i=1 to dw_1.rowcount() if dw_1.getitemnumber(i,check)=1 then ll_num = lds_data.insertrow(0) lds_data.object.code_valuell_num = dw_1.object.code_valuei lds_data.object.code_chinesell_num = dw_1.object.code_chinesei end if end forend ifclosewithreturn(parent,lds_data)在调用该方法的控件里u_datastore lds_datalds_data = message.powerobjectparmlong ll_num,ill_num = lds_data.rowcount()if ll_num 0 then for i = 1 to ll_num ll_row = dw_1.insertrow(0) dw_1.object.banz_idll_row = lds_data.object.code_valuei dw_1.object.banzll_row = lds_data.object.code_chinesei nextend if当使用的时候必须先判断是否为有效的，不然方法不能使用，会跳出错误的，isvalid()2、Str:在需要存储数据的窗口/l1 = 1;/if dw_1.rowcount()0 then/for i=1 to dw_1.rowcount()/if dw_1.getitemnumber(i,check)=1 then /str_sys.code_valuel1=dw_1.object.code_valuei/str_sys.code_chinesel1=dw_1.object.code_chinesei/l1+/end if/end for/end if/closewithreturn(parent,str_sys)在调用其方法的控件里/str_dpdw_sys_codedetall str_sys/str_sys = message.powerobjectparm/long ll_num/int i/ll_num = UpperBound(str_sys.code_value)/if ll_num 0 then/for i = 1 to ll_num/ll_row = dw_1.insertrow(0)/dw_1.object.banz_idll_row = str_sys.code_valuei/dw_1.object.banzll_row = str_sys.code_chinesei/next/end ifDw_dpdw_sys_codedetallstr_ea_yhyymxsj str_yhyyLong l_row,i,l_1=1String ls_selectFOR i = 1 TO dw_1.RowCount()ls_select = dw_1.GetItemString(i,bs_select)IF Long(ls_select) = 1 THENstr_yhyy.i_statusl_1= dw_1.GetItemNumber(i,i_status)str_yhyy.yydhl_1 = dw_1.GetItemString(i,yydh)str_yhyy.larql_1 = dw_1.GetItemDateTime(i,larq)str_yhyy.zlyysll_1= dw_1.GetItemDecimal( i, zlyysl)str_yhyy.yyzll_1 = dw_1.GetItemDecimal( i, yyzl)str_yhyy.zyxzl_1 =dw_1.GetItemString(i,zyxz)str_yhyy.kbhl_1= dw_1.GetItemString(i,kbh)str_yhyy.pml_1= dw_1.GetItemString(i,pm)str_yhyy.bs_khmcl_1= dw_1.GetItemString(i,bs_khmc)str_yhyy.qxlbl_1= dw_1.GetItemString(i,qxlb)str_yhyy.yyyyl_1= dw_1.GetItemString(i,yyyy)str_yhyy.bzl_1= dw_1.GetItemString(i,bz)str_yhyy.clrql_1= dw_1.GetItemDateTime(i,clrq)str_yhyy.gzl_1= dw_1.GetItemString(i,gz)str_yhyy.ggl_1= dw_1.GetItemString(i,gg)str_yhyy.jsyql_1= dw_1.GetItemString(i,jsyq)str_yhyy.zlxql_1= dw_1.GetItemString(i,zlxq)str_yhyy.qtbyl_1= dw_1.GetItemString(i,qtby)str_yhyy.scrql_1= dw_1.GetItemDateTime(i,scrq)str_yhyy.yyqkl_1= dw_1.GetItemString(i,yyqk)str_yhyy.cljgl_1= dw_1.GetItemString(i,cljg)l_1+END IFNEXTCloseWithReturn(w_bs_gc_client_yhyymx_tx,str_yhyy)/PARENT,u_datastorelds_2Long l_row,i/u_u_String ls_selectlds_2 = CREATE u_datastorelds_2.DataObject = dw_ea_yhyymxsjFOR i = 1 TO dw_1.RowCount()ls_select = dw_1.GetItemString(i,bs_select)IF Long(ls_select) = 1 THENl_row = lds_2.InsertRow( 0)lds_2.SetItem(l_row , i_status , dw_1.GetItemNumber(i,i_status)lds_2.SetItem( l_row, yydh, dw_1.GetItemString(i,yydh)lds_2.SetItem( l_row, larq, dw_1.GetItemDateTime(i,larq)lds_2.SetItem( l_row, zlyysl, dw_1.GetItemDecimal( i, zlyysl)lds_2.SetItem( l_row, yyzl, dw_1.GetItemDecimal( i, yyzl)lds_2.SetItem( l_row, zyxz, dw_1.GetItemString(i,zyxz)lds_2.SetItem( l_row, kbh, dw_1.GetItemString(i,kbh)lds_2.SetItem( l_row, pm, dw_1.GetItemString(i,pm)lds_2.SetItem( l_row, bs_khmc, dw_1.GetItemString(i,bs_khmc)lds_2.SetItem( l_row, qxlb, dw_1.GetItemString(i,qxlb)lds_2.SetItem( l_row, yyyy, dw_1.GetItemString(i,yyyy)lds_2.SetItem( l_row, bz, dw_1.GetItemString(i,bz)lds_2.SetItem( l_row, clrq, dw_1.GetItemDateTime(i,clrq)lds_2.SetItem( l_row, gz, dw_1.GetItemString(i,gz)lds_2.SetItem( l_row, gg, dw_1.GetItemString(i,gg)lds_2.SetItem( l_row, jsyq, dw_1.GetItemString(i,jsyq)lds_2.SetItem( l_row, zlxq, dw_1.GetItemString(i,zlxq)lds_2.SetItem( l_row, qtby, dw_1.GetItemString(i,qtby)lds_2.SetItem( l_row, scrq, dw_1.GetItemDateTime(i,scrq)lds_2.SetItem( l_row, yyqk, dw_1.GetItemString(i,yyqk)lds_2.SetItem( l_row, cljg, dw_1.GetItemString(i,cljg)END IFNEXTCloseWithReturn(w_bs_gc_client_yhyymx_tx,lds_2)/PARENT,String ymym = dw_1.GetItemString(1,ym)OpenWithParm(w_bs_gc_client_yhyymx_tx,ym)u_datastorelds_2lds_2 = CREATE u_datastorelds_2 = Message.PowerObjectParmIF IsValid(lds_2) THENLong lll_row,l_find_row,iString yyh,kbh,sIF dw_1.RowCount() 0 THENIF lds_2.RowCount( ) 0 THENFOR i = 1 TO lds_2.RowCount( )yyh = lds_2.GetItemString(i,yydh)kbh = lds_2.GetItemString(i,kbh)s = yyh = +yyh+ and bundle_no = +kbh+l_find_row = dw_2.Find( s, 1, dw_2.RowCount()IF l_find_row = 0 THENlll_row = dw_2.InsertRow(0)dw_2.SetItem(lll_row , Pt_user_id , gu_app.uf_get_gappuserID()dw_2.SetItem(lll_row , pt_user_name , gu_app.uf_get_gappusername()dw_2.SetItem(lll_row , make_e_id ,gu_app.uf_get_gappempid()dw_2.SetItem(lll_row , make_name ,gu_app.uf_get_gappempname()dw_2.SetItem(lll_row , make_date , gu_app.uf_get_server_datetime()dw_2.SetItem(lll_row , ym , dw_1.GetItemString(1,ym)dw_2.SetItem(lll_row , year , dw_1.GetItemString(1,year)dw_2.SetItem(lll_row , months , dw_1.GetItemString(1,months)dw_2.SetItem(lll_row , id , dw_1.GetItemNumber(1,id)dw_2.SetItem(lll_row , item_id , uf_get_next_id() /item_iddw_2.SetItem(lll_row , i_status , lds_2.GetItemNumber(i,i_status)dw_2.SetItem( lll_row, yyh, lds_2.GetItemString(i,yydh)dw_2.SetItem( lll_row, lasj, lds_2.GetItemDateTime(i,larq)dw_2.SetItem( lll_row, yytsl, lds_2.GetItemDecimal( i, zlyysl)dw_2.SetItem( lll_row, sl, lds_2.GetItemDecimal( i, yyzl)dw_2.SetItem( lll_row, zyxz, lds_2.GetItemString(i,zyxz)dw_2.SetItem( lll_row, bundle_no, lds_2.GetItemString(i,kbh)dw_2.SetItem( lll_row, pzlb, lds_2.GetItemString(i,pm)dw_2.SetItem( lll_row, zzyh, lds_2.GetItemString(i,bs_khmc)dw_2.SetItem( lll_row, yygjz, lds_2.GetItemString(i,qxlb)dw_2.SetItem( lll_row, yyyy, lds_2.GetItemString(i,yyyy)dw_2.SetItem( lll_row, bz, lds_2.GetItemString(i,bz)dw_2.SetItem( lll_row, clrq, lds_2.GetItemDateTime(i,clrq)dw_2.SetItem( lll_row, gz, lds_2.GetItemString(i,gz)dw_2.SetItem( lll_row, gg, lds_2.GetItemString(i,gg)dw_2.SetItem( lll_row, jsXq, lds_2.GetItemString(i,jsyq)dw_2.SetItem( lll_row, zlxq, lds_2.GetItemString(i,zlxq)dw_2.SetItem( lll_row, qtby, lds_2.GetItemString(i,qtby)dw_2.SetItem( lll_row, scrq, lds_2.GetItemDateTime(i,scrq)dw_2.SetItem( lll_row, yyqk, lds_2.GetItemString(i,yyqk)dw_2.SetItem( lll_row, cljg, lds_2.GetItemString(i,cljg)END IFNEXTEND IFEND IFDESTROY lds_2END IF/RETURN 1/str_yhyy.i_statusl_1= dw_1.GetItemNumber(i,i_status)str_yhyy.yydhl_1 = dw_1.GetItemString(i,yydh)str_yhyy.larql_1 = dw_1.GetItemDateTime(i,larq)str_yhyy.zlyysll_1= dw_1.GetItemDecimal( i, zlyysl)str_yhyy.yyzll_1 = dw_1.GetItemDecimal( i, yyzl)str_yhyy.zyxzl_1 =dw_1.GetItemString(i,zyxz)str_yhyy.kbhl_1= dw_1.GetItemString(i,kbh)str_yhyy.pml_1= dw_1.GetItemString(i,pm)str_yhyy.bs_khmcl_1= dw_1.GetItemString(i,bs_khmc)str_yhyy.qxlbl_1= dw_1.GetItemString(i,qxlb)str_yhyy.yyyyl_1= dw_1.GetItemString(i,yyyy)str_yhyy.bzl_1= dw_1.GetItemString(i,bz)str_yhyy.clrql_1= dw_1.GetItemDateTime(i,clrq)str_yhyy