U811.1接口EAI系列之二--生成销售出库单调用U8的EAI通用处理方法--PowerBuilder语言

1.销售系统销售出库，更新U811.1材料库存的EAI的XML生成.

2.主要根据U8配置会生成出库单和同时是否更新库存量，还是更新现存量等等。

3.具体参考代码如下：

作者：王春天 2013-11-06

地址：http://www.cnblogs.com/spring_wang/p/3409925.html

代码中调用的通用方法在:http://www.cnblogs.com/spring_wang/p/3406230.html

//====================================================================
// 函数: gf_voucher_xml.gf_storeout_xml( )
//--------------------------------------------------------------------
// 描述:生成材料出库XML文件
//--------------------------------------------------------------------
// 参数:
//     value        datawindow    adw_head             主表数据所在数据窗口
//     value        datawindow    adw_detail        细表数据所在数据窗口
//     value        datawindow    adw_batch         条码表数据所在数据窗口
//     value        string        as_proc              操作类型：Add（新增）,Edit（修改）,Delete（删除）,Query（查询）
//     value        string        as_exportneedexch    导出时是否要根据对照表替换 Y/N
//     value        string        as_codeexchanged     编码是否已转换 Y/N
//     value        string        as_renewproofno      是否重新编码Y/N
//--------------------------------------------------------------------
// 返回:  integer
//--------------------------------------------------------------------
//  日期: 2013年10月10日 Thursday 09:45:31
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
string ls_sender,ls_xml
string ls_data,ls_detail_pkid
long ll_i,ll_find
decimal ldc_price,ldc_num
string ls_financial_sort
datawindow ldw_temp
string ls_key

ls_sender = ''//需要在数据库中配置

//固定表头
ls_xml = "<?xml version='1.0' encoding='UTF-8'?>" + "~r~n"

//数据的表头格式
ls_xml = ls_xml + "<ufinterface sender='" + ls_sender + "' receiver='u8' roottag='storeout' docid='' proc='" + as_proc + "' renewproofno = '" + as_renewproofno + "' codeexchanged='" + as_codeexchanged + "' exportneedexch='" + as_exportneedexch + "' display='' family='' timestamp=''>" + "~r~n"
//增加文件中数据项信息 header
ls_xml = ls_xml + "<storeout>" + "~r~n"
ls_xml = ls_xml + "<header>" + "~r~n"
ls_data = ""
ls_xml = ls_xml + "<receiveflag>" + ls_data + "</receiveflag>" + "~r~n" //收发标志 入库单-收 1，出库单-发 0
ls_data = ""
ls_xml = ls_xml + "<vouchtype>" + ls_data + "</vouchtype>" + "~r~n" //单据类型 09：其他出库单 11：材料出库单 32：销售出库单
ls_data = "普通销售"
ls_xml = ls_xml + "<businesstype>" + ls_data + "</businesstype>" + "~r~n" //业务类型
ls_data = "库存"
ls_xml = ls_xml + "<source>" + ls_data + "</source>" + "~r~n" //单据来源 采购、销售、库存、存货
ls_data = ""
ls_xml = ls_xml + "<businesscode>" + ls_data + "</businesscode>" + "~r~n" //对应业务单号
ls_data = adw_batch.Object.stock_code[]//"0001" 仓库号需要从条码表获取
ls_xml = ls_xml + "<warehousecode>" + ls_data + "</warehousecode>" + "~r~n" //仓库编码
ls_data = string(date(adw_head.Object.out_date[]),'yyyy-mm-dd')//"2013-10-17"
ls_xml = ls_xml + "<date>" + ls_data + "</date>" + "~r~n" //单据日期
ls_data = adw_head.Object.delivery_code[]//"002"
ls_xml = ls_xml + "<code>" + ls_data + "</code>" + "~r~n" //单据号
ls_data = "" //根据出库类别基本档案表
ls_xml = ls_xml + "<receivecode>" + ls_data + "</receivecode>" + "~r~n" //收发类别编码
//获取事务所对应的成本中心  传入U8做为部门  前一个为合同大类，后一个为事务所
ls_data = gf_get_costcentre('收入',adw_detail.Object.business_type[],adw_detail.Object.office_code[])
if gf_str_isnull(ls_data) then
    MessageBox("系统提示","未获取到事务所对应的成本中心!")
    return
end if
ls_xml = ls_xml + "<departmentcode>" + ls_data + "</departmentcode>" + "~r~n" //部门编码
ls_data = ""
ls_xml = ls_xml + "<personcode>" + ls_data + "</personcode>" + "~r~n" //职员编码 业务员
ls_data = ""
ls_xml = ls_xml + "<purchasetypecode>" + ls_data + "</purchasetypecode>" + "~r~n" //采购类型编码 采购入库用
ls_data = adw_detail.Object.pact_sort[]// 合同类型

SELECT sms_pact_type.pact_area_type
        INTO :ls_data
        FROM sms_pact_type
        Where sms_pact_type.pk_id = :ls_data;//根据合同类型获取
if gf_str_isnull(ls_data) then
    MessageBox("系统提示","未获取到合同类型对应的编码!")
    Return
end if

ls_xml = ls_xml + "<saletypecode>" + ls_data + "</saletypecode>" + "~r~n" //销售类型编码 销售出库用
ls_data = adw_head.Object.buddy_code[]//"00001"
ls_xml = ls_xml + "<customercode>" + ls_data + "</customercode>" + "~r~n" //客户编码 销售出库单、其他出库单用
ls_data = ""
ls_xml = ls_xml + "<customerccode>" + ls_data + "</customerccode>" + "~r~n" //客户分类
ls_data = ""
ls_xml = ls_xml + "<cacauthcode>" + ls_data + "</cacauthcode>" + "~r~n" //不清楚做什么用的
ls_data = ""
ls_xml = ls_xml + "<vendorcode>" + ls_data + "</vendorcode>" + "~r~n" //供应商编码 采购入库单、其他入库单用
ls_data = ""
ls_xml = ls_xml + "<ordercode>" + ls_data + "</ordercode>" + "~r~n" //订单号
ls_data = ""
ls_xml = ls_xml + "<quantity>" + ls_data + "</quantity>" + "~r~n" //产量
ls_data = ""
ls_xml = ls_xml + "<arrivecode>" + ls_data + "</arrivecode>" + "~r~n" //到货单号 采购入库单用
ls_data = ""
ls_xml = ls_xml + "<billcode>" + ls_data + "</billcode>" + "~r~n" //发票号 采购入库单、销售出库单用
ls_data = ""
ls_xml = ls_xml + "<consignmentcode>" + ls_data + "</consignmentcode>" + "~r~n" //发货单号 销售出库单用
ls_data = ""
ls_xml = ls_xml + "<arrivedate>" + ls_data + "</arrivedate>" + "~r~n" //到货日期
ls_data = ""
ls_xml = ls_xml + "<checkcode>" + ls_data + "</checkcode>" + "~r~n" //检验单号
ls_data = ""
ls_xml = ls_xml + "<checkdate>" + ls_data + "</checkdate>" + "~r~n" //检验日期
ls_data = ""
ls_xml = ls_xml + "<checkperson>" + ls_data + "</checkperson>" + "~r~n" //检验员 编码
ls_data = ""
ls_xml = ls_xml + "<templatenumber>" + ls_data + "</templatenumber>" + "~r~n" //模版号
ls_data = ""
ls_xml = ls_xml + "<serial>" + ls_data + "</serial>" + "~r~n" //生产批号 产成品入库单、材料出库单用
ls_data = ""
ls_xml = ls_xml + "<handler>" + ls_data + "</handler>" + "~r~n" //经手人 编码
ls_data = ""
ls_xml = ls_xml + "<memory>" + ls_data + "</memory>" + "~r~n" //备注
ls_data = user.user_name
ls_xml = ls_xml + "<maker>" + ls_data + "</maker>" + "~r~n" //制单人
ls_data = ""
ls_xml = ls_xml + "<chandler>" + ls_data + "</chandler>" + "~r~n" //审核人
ls_data = adw_detail.Object.pact_code[]//自定义字段1，传输合同编号
ls_xml = ls_xml + "<define1>" + ls_data + "</define1>" + "~r~n" //自定义字段1
ls_data = ""
ls_xml = ls_xml + "<define2>" + ls_data + "</define2>" + "~r~n" //自定义字段2
ls_data = ""
ls_xml = ls_xml + "<define3>" + ls_data + "</define3>" + "~r~n" //自定义字段3
ls_data = ""
ls_xml = ls_xml + "<define4>" + ls_data + "</define4>" + "~r~n" //自定义字段4
ls_data = ""
ls_xml = ls_xml + "<define5>" + ls_data + "</define5>" + "~r~n" //自定义字段5
ls_data = ""
ls_xml = ls_xml + "<define6>" + ls_data + "</define6>" + "~r~n" //自定义字段6
ls_data = ""
ls_xml = ls_xml + "<define7>" + ls_data + "</define7>" + "~r~n" //自定义字段7
ls_data = ""
ls_xml = ls_xml + "<define8>" + ls_data + "</define8>" + "~r~n" //自定义字段8
ls_data = ""
ls_xml = ls_xml + "<define9>" + ls_data + "</define9>" + "~r~n" //自定义字段9
ls_data = ""
ls_xml = ls_xml + "<define10>" + ls_data + "</define10>" + "~r~n" //自定义字段10
ls_data = ""
ls_xml = ls_xml + "<define11>" + ls_data + "</define11>" + "~r~n" //自定义字段11
ls_data = ""
ls_xml = ls_xml + "<define12>" + ls_data + "</define12>" + "~r~n" //自定义字段12
ls_data = ""
ls_xml = ls_xml + "<define13>" + ls_data + "</define13>" + "~r~n" //自定义字段13
ls_data = ""
ls_xml = ls_xml + "<define14>" + ls_data + "</define14>" + "~r~n" //自定义字段14
ls_data = ""
ls_xml = ls_xml + "<define15>" + ls_data + "</define15>" + "~r~n" //自定义字段15
ls_data = ""
ls_xml = ls_xml + "<define16>" + ls_data + "</define16>" + "~r~n" //自定义字段16
ls_data = ""
ls_xml = ls_xml + "<auditdate>" + ls_data + "</auditdate>" + "~r~n" //审核日期
ls_data = ""
ls_xml = ls_xml + "<taxrate>" + ls_data + "</taxrate>" + "~r~n" //税率
ls_data = adw_detail.describe("Evaluate('Lookupdisplay(money_sort)',1)")
ls_xml = ls_xml + "<exchname>" + ls_data + "</exchname>" + "~r~n" //币种名称
ls_data = ""
ls_xml = ls_xml + "<exchrate>" + ls_data + "</exchrate>" + "~r~n" //汇率
ls_data = ""
ls_xml = ls_xml + "<discounttaxtype>" + ls_data + "</discounttaxtype>" + "~r~n" //扣税类别
ls_data = ""
ls_xml = ls_xml + "<contact>" + ls_data + "</contact>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<phone>" + ls_data + "</phone>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<mobile>" + ls_data + "</mobile>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<address>" + ls_data + "</address>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<conphone>" + ls_data + "</conphone>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<conmobile>" + ls_data + "</conmobile>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<deliverunit>" + ls_data + "</deliverunit>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<contactname>" + ls_data + "</contactname>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<officephone>" + ls_data + "</officephone>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<mobilephone>" + ls_data + "</mobilephone>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<psnophone>" + ls_data + "</psnophone>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<psnmobilephone>" + ls_data + "</psnmobilephone>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<shipaddress>" + ls_data + "</shipaddress>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<addcode>" + ls_data + "</addcode>" + "~r~n" //不清楚XML中含义
ls_data = ""
ls_xml = ls_xml + "<iscomplement>" + ls_data + "</iscomplement>" + "~r~n" //补料标志
ls_xml = ls_xml + "</header>" + "~r~n"

//body
ls_xml = ls_xml + "<body>" + "~r~n"
For ll_i =  To adw_batch.RowCount()
    ls_detail_pkid = adw_batch.Object.stock_out_detail_pkid[ll_i]
    ll_find = adw_detail.Find("pk_id = '" + ls_detail_pkid + "'",,adw_detail.RowCount())

    ls_xml = ls_xml + "<entry>" + "~r~n"
    ls_data = ""
    ls_xml = ls_xml + "<barcode>" + ls_data + "</barcode>" + "~r~n" //条形码
    ls_data = adw_batch.Object.special_prot_code[ll_i]//"0002"
    ls_xml = ls_xml + "<inventorycode>" + ls_data + "</inventorycode>" + "~r~n" //存货编码
    ls_data = ""
    ls_xml = ls_xml + "<free1>" + ls_data + "</free1>" + "~r~n" //自由项1
    ls_data = ""
    ls_xml = ls_xml + "<free2>" + ls_data + "</free2>" + "~r~n" //自由项2
    ls_data = ""
    ls_xml = ls_xml + "<free3>" + ls_data + "</free3>" + "~r~n" //自由项3
    ls_data = ""
    ls_xml = ls_xml + "<free4>" + ls_data + "</free4>" + "~r~n" //自由项4
    ls_data = ""
    ls_xml = ls_xml + "<free5>" + ls_data + "</free5>" + "~r~n" //自由项5
    ls_data = ""
    ls_xml = ls_xml + "<free6>" + ls_data + "</free6>" + "~r~n" //自由项6
    ls_data = ""
    ls_xml = ls_xml + "<free7>" + ls_data + "</free7>" + "~r~n" //自由项7
    ls_data = ""
    ls_xml = ls_xml + "<free8>" + ls_data + "</free8>" + "~r~n" //自由项8
    ls_data = ""
    ls_xml = ls_xml + "<free9>" + ls_data + "</free9>" + "~r~n" //自由项9
    ls_data = ""
    ls_xml = ls_xml + "<free10>" + ls_data + "</free10>" + "~r~n" //自由项10
    ls_data = ""
    ls_xml = ls_xml + "<shouldquantity>" + ls_data + "</shouldquantity>" + "~r~n" //应收（发）数量
    ls_data = ""
    ls_xml = ls_xml + "<shouldnumber>" + ls_data + "</shouldnumber>" + "~r~n" //应收（发）件数
    ldc_num = adw_batch.Object.prot_num[ll_i]
    ls_data = string(ldc_num)
    ls_xml = ls_xml + "<quantity>" + ls_data + "</quantity>" + "~r~n" //数量（主记量数量） 应收（发）数量和数量不能同时为空。
    ls_data = adw_batch.describe("Evaluate('Lookupdisplay(prot_unit)'," + string(ll_i) + ")")
    ls_xml = ls_xml + "<cmassunitname>" + ls_data + "</cmassunitname>" + "~r~n" //主记量单位名称？
    ls_data = ""
    ls_xml = ls_xml + "<assitantunit>" + ls_data + "</assitantunit>" + "~r~n" //辅记量单位
    ls_data = ""
    ls_xml = ls_xml + "<assitantunitname>" + ls_data + "</assitantunitname>" + "~r~n" //辅记量单位名称
    ls_data = ""
    ls_xml = ls_xml + "<irate>" + ls_data + "</irate>" + "~r~n" //换算率？
    ls_data = ""
    ls_xml = ls_xml + "<number>" + ls_data + "</number>" + "~r~n" //件数
    ldc_price = adw_detail.object.sale_price[ll_find]
    ls_data = string(ldc_price)//销售单价
    ls_xml = ls_xml + "<price>" + ls_data + "</price>" + "~r~n" //单价
    ls_data = string(round(ldc_num * ldc_price,))
    ls_xml = ls_xml + "<cost>" + ls_data + "</cost>" + "~r~n" //金额
    ls_data = ""
    ls_xml = ls_xml + "<plancost>" + ls_data + "</plancost>" + "~r~n" //计划单价？
    ls_data = ""
    ls_xml = ls_xml + "<planprice>" + ls_data + "</planprice>" + "~r~n" //计划金额？
    ls_data = ""
    ls_xml = ls_xml + "<serial>" + ls_data + "</serial>" + "~r~n" //批号
    ls_data = ""
    ls_xml = ls_xml + "<makedate>" + ls_data + "</makedate>" + "~r~n" //生产日期
    ls_data = ""
    ls_xml = ls_xml + "<validdate>" + ls_data + "</validdate>" + "~r~n" //失效日期）
    ls_data = ""
    ls_xml = ls_xml + "<transitionid>" + ls_data + "</transitionid>" + "~r~n" //调拨单子表ID号
    ls_data = ""
    ls_xml = ls_xml + "<subbillcode>" + ls_data + "</subbillcode>" + "~r~n" //发票子表ID号
    ls_data = ""
    ls_xml = ls_xml + "<subpurchaseid>" + ls_data + "</subpurchaseid>" + "~r~n" //采购订单子表ID号
    ls_data = adw_batch.Object.stack_code[ll_i]
    ls_xml = ls_xml + "<position>" + ls_data + "</position>" + "~r~n" //货位
    ls_data = ""
    ls_xml = ls_xml + "<itemclasscode>" + ls_data + "</itemclasscode>" + "~r~n" //项目大类编码
    ls_data = ""//项目大类编码固定为00
    ls_xml = ls_xml + "<itemclassname>" + ls_data + "</itemclassname>" + "~r~n" //项目大类名称
    ls_financial_sort = adw_detail.Object.financial_sort[ll_find]
    if gf_get_sanyoerp_encode("SMS",'SAP',ls_financial_sort,ls_data,'') =  then
        MessageBox("系统提示","获取财务类别：" + ls_financial_sort + "对应业务范围失败!")
        Return
    end if
    ls_xml = ls_xml + "<itemcode>" + ls_data + "</itemcode>" + "~r~n" //项目编码
    ls_data = ""
    ls_xml = ls_xml + "<itemname>" + ls_data + "</itemname>" + "~r~n" //项目名称
    ls_data = ""
    ls_xml = ls_xml + "<define22>" + ls_data + "</define22>" + "~r~n" //表体自定义项22
    ls_data = ""
    ls_xml = ls_xml + "<define23>" + ls_data + "</define23>" + "~r~n" //表体自定义项23
    ls_data = ""
    ls_xml = ls_xml + "<define24>" + ls_data + "</define24>" + "~r~n" //表体自定义项24
    ls_data = ""
    ls_xml = ls_xml + "<define25>" + ls_data + "</define25>" + "~r~n" //表体自定义项25
    ls_data = ""
    ls_xml = ls_xml + "<define26>" + ls_data + "</define26>" + "~r~n" //表体自定义项26
    ls_data = ""
    ls_xml = ls_xml + "<define27>" + ls_data + "</define27>" + "~r~n" //表体自定义项27
    ls_data = ""
    ls_xml = ls_xml + "<define28>" + ls_data + "</define28>" + "~r~n" //表体自定义项28
    ls_data = ""
    ls_xml = ls_xml + "<define29>" + ls_data + "</define29>" + "~r~n" //表体自定义项29
    ls_data = ""
    ls_xml = ls_xml + "<define30>" + ls_data + "</define30>" + "~r~n" //表体自定义项30
    ls_data = ""
    ls_xml = ls_xml + "<define31>" + ls_data + "</define31>" + "~r~n" //表体自定义项31
    ls_data = ""
    ls_xml = ls_xml + "<define32>" + ls_data + "</define32>" + "~r~n" //表体自定义项32
    ls_data = ""
    ls_xml = ls_xml + "<define33>" + ls_data + "</define33>" + "~r~n" //表体自定义项33
    ls_data = ""
    ls_xml = ls_xml + "<define34>" + ls_data + "</define34>" + "~r~n" //表体自定义项34
    ls_data = ""
    ls_xml = ls_xml + "<define35>" + ls_data + "</define35>" + "~r~n" //表体自定义项35
    ls_data = ""
    ls_xml = ls_xml + "<define36>" + ls_data + "</define36>" + "~r~n" //表体自定义项36
    ls_data = ""
    ls_xml = ls_xml + "<define37>" + ls_data + "</define37>" + "~r~n" //表体自定义项37
    ls_data = ""
    ls_xml = ls_xml + "<subconsignmentid>" + ls_data + "</subconsignmentid>" + "~r~n" //发货单子表ID
    ls_data = ""
    ls_xml = ls_xml + "<delegateconsignmentid>" + ls_data + "</delegateconsignmentid>" + "~r~n" //委托代销发货单子表
    ls_data = ""
    ls_xml = ls_xml + "<subproducingid>" + ls_data + "</subproducingid>" + "~r~n" //生产订单子表ID
    ls_data = ""
    ls_xml = ls_xml + "<subcheckid>" + ls_data + "</subcheckid>" + "~r~n" //检验单子表ID
    ls_data = ""
    ls_xml = ls_xml + "<cRejectCode>" + ls_data + "</cRejectCode>" + "~r~n" //不良品处理单号
    ls_data = ""
    ls_xml = ls_xml + "<iRejectIds>" + ls_data + "</iRejectIds>" + "~r~n" //不良品处理单ID
    ls_data = ""
    ls_xml = ls_xml + "<cCheckPersonCode>" + ls_data + "</cCheckPersonCode>" + "~r~n" //检验员
    ls_data = ""
    ls_xml = ls_xml + "<dCheckDate>" + ls_data + "</dCheckDate>" + "~r~n" //检验日期
    ls_data = ""
    ls_xml = ls_xml + "<cCheckCode>" + ls_data + "</cCheckCode>" + "~r~n" //检验单号
    ls_data = ""
    ls_xml = ls_xml + "<iMassDate>" + ls_data + "</iMassDate>" + "~r~n" //保质期天数
    ls_data = ""
    ls_xml = ls_xml + "<ioritaxcost>" + ls_data + "</ioritaxcost>" + "~r~n" //不清楚XML中具体含义
    ls_data = ""
    ls_xml = ls_xml + "<ioricost>" + ls_data + "</ioricost>" + "~r~n" //不清楚XML中具体含义
    ls_data = ""
    ls_xml = ls_xml + "<iorimoney>" + ls_data + "</iorimoney>" + "~r~n" //不清楚XML中具体含义
    ls_data = ""
    ls_xml = ls_xml + "<ioritaxprice>" + ls_data + "</ioritaxprice>" + "~r~n" //不清楚XML中具体含义
    ls_data = ""
    ls_xml = ls_xml + "<iorisum>" + ls_data + "</iorisum>" + "~r~n" //不清楚XML中具体含义
    ls_data = ""
    ls_xml = ls_xml + "<taxrate>" + ls_data + "</taxrate>" + "~r~n" //不清楚XML中具体含义
    ls_data = ""
    ls_xml = ls_xml + "<taxprice>" + ls_data + "</taxprice>" + "~r~n" //不清楚XML中具体含义
    ls_data = ""
    ls_xml = ls_xml + "<isum>" + ls_data + "</isum>" + "~r~n" //不清楚XML中具体含义
    ls_data = ""
    ls_xml = ls_xml + "<massunit>" + ls_data + "</massunit>" + "~r~n" //保质期单位
    ls_data = ""
    ls_xml = ls_xml + "<vmivencode>" + ls_data + "</vmivencode>" + "~r~n" //代管商编码
    ls_data = ""
    ls_xml = ls_xml + "<whpersoncode>" + ls_data + "</whpersoncode>" + "~r~n" //库管员编码
    ls_data = ""
    ls_xml = ls_xml + "<whpersonname>" + ls_data + "</whpersonname>" + "~r~n" //库管员名称
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty1>" + ls_data + "</batchproperty1>" + "~r~n" //属性1
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty2>" + ls_data + "</batchproperty2>" + "~r~n" //属性2
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty3>" + ls_data + "</batchproperty3>" + "~r~n" //属性3
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty4>" + ls_data + "</batchproperty4>" + "~r~n" //属性4
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty5>" + ls_data + "</batchproperty5>" + "~r~n" //属性5
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty6>" + ls_data + "</batchproperty6>" + "~r~n" //属性6
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty7>" + ls_data + "</batchproperty7>" + "~r~n" //属性7
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty8>" + ls_data + "</batchproperty8>" + "~r~n" //属性8
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty9>" + ls_data + "</batchproperty9>" + "~r~n" //属性9
    ls_data = ""
    ls_xml = ls_xml + "<batchproperty10>" + ls_data + "</batchproperty10>" + "~r~n" //属性10
    ls_data = ""
    ls_xml = ls_xml + "<iexpiratdatecalcu>" + ls_data + "</iexpiratdatecalcu>" + "~r~n" //有效期推算方式
    ls_data = ""
    ls_xml = ls_xml + "<dexpirationdate>" + ls_data + "</dexpirationdate>" + "~r~n" //有效期计算项
    ls_data = ""
    ls_xml = ls_xml + "<cexpirationdate>" + ls_data + "</cexpirationdate>" + "~r~n" //有效期至
    ls_data = ""
    ls_xml = ls_xml + "<memory>" + ls_data + "</memory>" + "~r~n" //备注
    ls_xml = ls_xml + "</entry>" + "~r~n"
Next
ls_xml = ls_xml + "</body>" + "~r~n"

//增加文件尾相关信息
ls_xml = ls_xml + "</storeout>" + "~r~n"
ls_xml = ls_xml + "</ufinterface>" + "~r~n"

//此段代码生成一个XML文件，可用于查看生成的数据
//oleobject ixmldom
//long ll_return
//ixmldom = CREATE OLEObject
//ll_return = ixmldom.connecttonewobject( "microsoft.xmldom")//创建DOM对象
//if ll_return <> 0 then
//    destroy ixmldom
//    messagebox("","创建DOM对象失败!")
//    Return 0
//end if
//iXMLDOM.loadXML(ls_xml)
//iXMLDOM.save("d:\temp.xml")
//destroy ixmldom

if gf_interface_eai(ldw_temp,ls_xml,as_proc,ls_key) =  then
    Return
end if
MessageBox("系统提示","上传成功!")
Return