如何用PB9的DW生成XML文件，如下格式

张好人 2015-10-16 11:38:21
请问各位大哥、高手:
如何用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>
...全文
3133 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
张好人 2015-10-31
  • 打赏
  • 举报
 回复
string kld_date string 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文件为啥不能解析
北京大丸子 2015-10-19
  • 打赏
  • 举报
 回复
生成xml，最主要是要做一个xml的模板，然后saveas即可
WorldMobile 2015-10-18
  • 打赏
  • 举报
 回复
引用 楼主 zjclj 的回复:
请问各位大哥、高手: 如何用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>
pb的数据窗口可以用saveas直接存成xml，如果格式不对的话，建议你直接把数据拼成xml的内容，然后写入到一个文件，也可以
猎奇567 2015-10-17
  • 打赏
  • 举报
 回复
几个关于设置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
PB实现微信、支付宝、新大陆星POS支付-9.0.rar
PB新大陆星POS扫码支付源码，调用C#动态库，简单实现接口，采用POWERBUILDER9.0开发 string ls_url string ls_data string ls_dd string ls_zfqd //【交易类型--传入平台用】 if rb_1.checked = true then ls_zfqd = "WXPAY" end if if rb_2.checked = true then ls_zfqd = "ALIPAY" end if if rb_3.checked = true then ls_zfqd = "YLPAY" end if //【生成请求地址===从配置参数中维护请求地址的一部分】 ls_url = gs_pos_requesturl + "sdkBarcodePay.json" //【判断输入金额是否符合要求】 if dec(em_1.text) <= 0.00 then messagebox("系统提示【MYSOFT】","所输金额不正确!~r~n请重新输入!") em_1.setfocus() return end if //【判断商户订单号是否为空】 if sle_4.text = "" then messagebox("系统提示【MYSOFT】","订单号不能为空!") return end if //【判断是否扫描付款码】 if sle_code.text = "" then messagebox("系统提示【MYSOFT】","付款码不能为空!") sle_code.setfocus() return end if //【判断是否扫描付款码】 if len(sle_code.text) = 0 then messagebox("系统提示【MYSOFT】","请扫描服务对象付款码... ...") sle_code.setfocus() return -1 end if //【判断订单号是否为空】 if len(sle_4.text) = 0 then messagebox("系统提示【MYSOFT】","订单号不能为空！") sle_4.setfocus() return -1 end if //【初始化伪随机数发生器，让应用程序每次运用不同的伪随机数序列。】 randomize(0) //【清除is_keys[] is_value[]】 inv_wxpay.of_clear() //====================生成公共请求参数============================================================== //【操作系统：3-直连】 inv_wxpay.of_add_pos("opSys","3") //【字符集：00-GBK】 inv_wxpay.of_add_pos("characterSet","00") //【机构号，从配置参数维护】 inv_wxpay.of_add_pos("orgNo",gs_pos_orgno) //【商户号，从配置参数维护】 inv_wxpay.of_add_pos("mercId",gs_pos_mercid) //【设备号，从配置参数维护】 inv_wxpay.of_add_pos("trmNo",gs_pos_trmno) //【商户单号，不能重复，若重复则返回：数据库错误】 inv_wxpay.of_add_pos("tradeNo",sle_4.text) //【设备端交易时间：yyyymmddhhmmss】 inv_wxpay.of_add_pos("txnTime",string(now(),"yyyymmddhhmmss")) //【签名方式：MD5】 inv_wxpay.of_add_pos("signType","MD5") //【版本号：默认V1.0.0】 inv_wxpay.of_add_pos("version","V1.0.0") //==================生成商户主扫请求参数============================================================ //【实付金额：分为单位】 inv_wxpay.of_add_pos("amount",string(long(dec(em_1.text) * 100))) //【订单总金额：分为单位】 inv_wxpay.of_add_pos("total_amount",string(long(dec(em_1.text) * 100))) //【扫码支付授权码】 inv_wxpay.of_add_pos("authCode",sle_code.text) //【支付渠道：WXPAY,ALIPAY,YLPAY】 inv_wxpay.of_add_pos("payChannel",ls_zfqd) //【请求参数数据签名，并生成JSON格式数据】 mle_1.text = inv_wxpay.of_get_json() ls_data = trim(mle_1.text) mle_2.text = "" //【POST数据到平台，并接收返回数据：JSON格式】 mle_2.text = inv_wxpay.of_post_pos(ls_url,ls_data) //【返回JSON数据转换为XML数据，用于交易解析】 mle_2.text = inv_wxpay.of_json_to_xml(mle_2.text) //===================================以下判断订单交易情况============================================= if gf_xml_resolve_pos(mle_2.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_2.text,"result") = "S" then if dw_2.rowcount() = 1 then //【请求数据XML】 dw_2.object.in_xml[1] = mle_1.text //【交易金额】 dw_2.object.amount[1] = dec(em_1.text) //【交易时间】 dw_2.object.zf_date_wx[1] = gf_xml_resolve_pos(mle_2.text,"sysTime") //【订单状态--保存本地数据库】 dw_2.object.trade_state[1] = "支付成功" //【支付渠道订单号，可用于退款】 dw_2.object.dd_code[1] = gf_xml_resolve_pos(mle_2.text,"orderNo") //【付款码】 dw_2.object.fk_code[1] = sle_code.text dw_2.object.zffs[1] = 1 //【更新交易到数据库】 if dw_2.update() = 1 then commit using sqlca; dw_2.retrieve(trim(sle_4.text)) else rollback using sqlca; end if end if //【执行查单操作】 cb_21.triggerevent(clicked!) //【刷新本地数据】 cb_7.triggerevent(clicked!) return end if //========================================以下判断交易执行情况================================================== if gf_xml_resolve_pos(mle_2.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_2.text,"result") = "A" then messagebox("支付提示【MYSOFT】","状态：【A-等待授权】~n~n【特别注意】：请等候服务对象输入密码确认成功后点[确定]...~n~n还可通过【查询订单状态】检查订单支付情况!") if dw_2.rowcount() = 1 then dw_2.object.in_xml[1] = mle_1.text dw_2.object.amount[1] = dec(em_1.text) dw_2.object.dd_code[1] = "" dw_2.object.fk_code[1] = sle_code.text dw_2.object.zffs[1] = 1 dw_2.object.trade_state[1] = "订单未支付" if dw_2.update() = 1 then commit using sqlca; dw_2.retrieve(trim(sle_4.text)) else rollback using sqlca; end if end if cb_21.triggerevent(clicked!) cb_7.triggerevent(clicked!) return end if if gf_xml_resolve_pos(mle_2.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_2.text,"result") = "A" then messagebox("支付提示【MYSOFT】","订单等待授权~n~n支付单号：【" + gf_xml_resolve_pos(mle_2.text,"orderNo") + "】~n~n支付状态：【" + gf_xml_resolve_pos(mle_2.text,"result") + "】~n~nA-等待授权，S-交易成功，F-交易失败，Z-交易未知，D-订单已撤销!~n~n请重新支付!~n~n系统返回message：" + inv_wxpay.of_utf8togb3212(gf_xml_resolve_pos(mle_2.text,"message"))) return end if if gf_xml_resolve_pos(mle_2.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_2.text,"result") = "F" then messagebox("支付提示【MYSOFT】","订单交易失败~n~n支付单号：【" + gf_xml_resolve_pos(mle_2.text,"orderNo") + "】~n~n支付状态：【" + gf_xml_resolve_pos(mle_2.text,"result") + "】~n~nA-等待授权，S-交易成功，F-交易失败，Z-交易未知，D-订单已撤销!~n~n请重新支付!~n~n系统返回message：" + inv_wxpay.of_utf8togb3212(gf_xml_resolve_pos(mle_2.text,"message"))) return end if if gf_xml_resolve_pos(mle_1.text,"returnCode") = "000000" and gf_xml_resolve_pos(mle_1.text,"result") = "D" then
PB中的DW导入导出XML确实好用
PB中的DW导入导出XML确实好用经过近一周的摸索，虽然还没有完全吃透DW的设置XML模板的全部功能，但目前已经足够我使用的。DW导入导出XML，在设计DW画板中可以建立XML模板，一个DW可以设置多个不同的XML模板，也就是可以为导出或导入设置不同的模板。模板可以通过SAVEAS 另存成一个模板，可以OPEN一个存在的模板，可以DELETE当前编辑的模板。不同的DW可以有相同名称
使用AWS轻松构建PB级企业BI解决方案
AWS提供了强大的数据分析能力，您可以在无需任何服务器的情况下，构建企业的BI解决方案，分析高达PB级别的数据，而成本不到传统方式的十分之一，也无需管理复杂的基础设施。在本次的在线研讨会中，我们将介绍如何...
pb9中数据窗口的XML特性(三、导出XML）
一、导出XML方法(Exporting XML)DataWindow 或者DataStore中的数据都可以导出到XML形式，方法和导出PSR或者TXT等格式类似。具体可以使用以下几种方法：1、在数据窗口画板编辑状态，当Preview视图打开时候，选择Save Rows As菜单项；2、使用SaveAs()函数   dw_1.SaveAs( "c:/foo/bar.xml", XML!, TRUE
pb9中数据窗口为XML
pb9中数据窗口为XML 分类:雕虫小技2008.3.5 23:58 作者：笑熬糨糊 | 评论：0 | 阅读：0 从pb9开始，DataWindow开始支持直接从XML文档中导入数据，将检索到的数据保存为XML文档，以及使用XSL格式对象(XSL-FO) 的新功能。本文根据XML Features in PowerBuilder® 9.0相关内容节选翻译。这是第一部分。 1、 数据窗口导出引擎（D...
Web 应用

662

社区成员

2,333

社区内容

发帖
与我相关
我的任务
社区描述
PowerBuilder Web 应用
社区管理员
  • Web 应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章