請問各位大哥、高手:
如何用PB9的DW生成XML檔案,如下xml格式
<?xml version="1.0" encoding="utf-8"?>
<Document>
<Events>
<Event Name="PurchaseWareHouseIn" MainAction="WareHouseIn">
<DataField>
<Data Code="81129170018101381607" Actor="0001" ActDate="2015-10-14 10:02:55" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018091843126" Actor="0001" ActDate="2015-10-14 10:02:56" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018434495445" Actor="0001" ActDate="2015-10-14 10:02:57" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018274711964" Actor="0001" ActDate="2015-10-14 10:02:57" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018248282126" Actor="0001" ActDate="2015-10-14 10:02:59" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018283327322" Actor="0001" ActDate="2015-10-14 10:03:00" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018297279155" Actor="0001" ActDate="2015-10-14 10:03:01" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017700772661" Actor="0001" ActDate="2015-10-14 10:03:02" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017712533695" Actor="0001" ActDate="2015-10-14 10:03:03" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018100796072" Actor="0001" ActDate="2015-10-14 10:03:04" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018241967390" Actor="0001" ActDate="2015-10-14 10:03:05" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170019161688793" Actor="0001" ActDate="2015-10-14 10:03:07" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018239701656" Actor="0001" ActDate="2015-10-14 10:03:09" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018238564617" Actor="0001" ActDate="2015-10-14 10:03:10" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018295254737" Actor="0001" ActDate="2015-10-14 10:03:10" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018241914758" Actor="0001" ActDate="2015-10-14 10:03:12" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018243674429" Actor="0001" ActDate="2015-10-14 10:03:13" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018092772609" Actor="0001" ActDate="2015-10-14 10:03:14" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018430491544" Actor="0001" ActDate="2015-10-14 10:03:15" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017683843523" Actor="0001" ActDate="2015-10-14 10:03:15" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170019155545503" Actor="0001" ActDate="2015-10-14 10:03:48" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018081720447" Actor="0001" ActDate="2015-10-14 10:03:49" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017702411721" Actor="0001" ActDate="2015-10-14 10:03:49" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017679604210" Actor="0001" ActDate="2015-10-14 10:03:51" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017704268536" Actor="0001" ActDate="2015-10-14 10:03:52" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018234900763" Actor="0001" ActDate="2015-10-14 10:03:53" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017985971191" Actor="0001" ActDate="2015-10-14 10:03:56" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017680024962" Actor="0001" ActDate="2015-10-14 10:03:57" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018281335019" Actor="0001" ActDate="2015-10-14 10:03:58" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018295730601" Actor="0001" ActDate="2015-10-14 10:04:06" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017986454528" Actor="0001" ActDate="2015-10-14 10:04:07" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018242002784" Actor="0001" ActDate="2015-10-14 10:04:08" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018112264348" Actor="0001" ActDate="2015-10-14 10:04:09" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017717768959" Actor="0001" ActDate="2015-10-14 10:04:10" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018284007275" Actor="0001" ActDate="2015-10-14 10:04:10" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017675436842" Actor="0001" ActDate="2015-10-14 10:05:19" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017689354933" Actor="0001" ActDate="2015-10-14 10:05:19" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018286677510" Actor="0001" ActDate="2015-10-14 10:05:20" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017683393646" Actor="0001" ActDate="2015-10-14 10:05:22" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017683145121" Actor="0001" ActDate="2015-10-14 10:05:23" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018091674865" Actor="0001" ActDate="2015-10-14 10:05:24" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018242616779" Actor="0001" ActDate="2015-10-14 10:05:25" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018271852575" Actor="0001" ActDate="2015-10-14 10:05:26" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170019149505221" Actor="0001" ActDate="2015-10-14 10:05:27" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017673564369" Actor="0001" ActDate="2015-10-14 10:05:31" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018434159675" Actor="0001" ActDate="2015-10-14 10:05:32" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018244102032" Actor="0001" ActDate="2015-10-14 10:05:33" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170018238724899" Actor="0001" ActDate="2015-10-14 10:05:34" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170017683574492" Actor="0001" ActDate="2015-10-14 10:05:34" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
<Data Code="81129170019158217477" Actor="0001" ActDate="2015-10-14 10:05:35" CorpOrderID="In201510140007Q" FromCorpID="0091" ToCorpID="" OwnerID="" />
</DataField>
</Event>
</Events>
</Document>
uj5u.com熱心網友回復:
幾個關于設定PB資料視窗 xml匯出模版的鏈接,請樓主參考下:http://wenku.baidu.com/view/a006398b6529647d2728520a.html
http://www.mpinfo.com.tw/TechnologyColumnFiles/PB_A_200306.pdf
http://pb.besoft.com.cn/download/doc/XMLFeaturesPowerBuilder9.pdf
uj5u.com熱心網友回復:
pb的資料視窗可以用saveas直接存成xml,如果格式不對的話,建議你直接把資料拼成xml的內容,然后寫入到一個檔案,也可以
uj5u.com熱心網友回復:
生成xml,最主要是要做一個xml的模板,然后saveas即可uj5u.com熱心網友回復:
string kld_datestring ls_filename //檔案名
integer ll_filetype //打開檔案的句柄
string sale_no,sale_no1,dataitem,ls_item_code,man,dw_man
kld_date=string(uf_getdate(),'yyyy-mm-dd hh:mm:ss')
sale_no ='SalesWareHouseOut_PX20150603N4001_'+string(uf_getdate(),'yyyymmddhhmmss')
ls_filename='D:\SFDA\InData\Bussiness\'+sale_no+'.xml'
ll_filetype = FileOpen(ls_filename, LineMode!, Write!, LockWrite!, Replace!)
FileWrite(ll_filetype,'<?xml version="1.0" encoding="UTF-8"?>')
FileWrite(ll_filetype,' <Document xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">')//
FileWrite(ll_filetype,' <Events>')
FileWrite(ll_filetype,' <Event Name="SalesWareHouseOut" MainAction="WareHouseOut">')
FileWrite(ll_filetype,' <DataField>')
for i =1 to dw_itemcode.rowcount()
ls_item_code=''
dataitem =''
dt_im_date=uf_getdate()
dw_itemcode.setitem(i,'dw_main',ls_dw_main)
dw_itemcode.setitem(i,'operater',gs_operater)
dw_itemcode.setitem(i,'sale_no',gs_export_no)
dw_itemcode.setitem(i,'falg','1')
dw_itemcode.setitem(i,'ActDate',dt_im_date)
ls_item_code=dw_itemcode.getitemstring(i,'itemcde')
// dataitem =' <Data Code="'+ls_item_code+'" Actor="0001" ActDate="'+kld_date+'" CorpOrderID="'+gs_export_no+'" CorpProductID="" CorpBatchNo="" ProduceDate="" FromCorpID="" ToCorpID="' +ls_dw_main+'" OwnerID="" /> '
dataitem =' <Data Code="'+ls_item_code+'" Actor="0001" ActDate="'+kld_date+'" CorpOrderID="'+gs_export_no+' " CorpProductID="" CorpBatchNo="" ProduceDate="" FromCorpID="" ToCorpID="' +ls_dw_main+'" OwnerCorpID="" />'
FileWrite(ll_filetype,dataitem)
next
FileWrite(ll_filetype,' </DataField>')
FileWrite(ll_filetype,' </Event>')
FileWrite(ll_filetype,' </Events>')
FileWrite(ll_filetype,' </Document>')
fileclose(ll_filetype)
成生這樣的xml檔案為啥不能決議
轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/33046.html
標籤:Web 應用
