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 = ls_xml & "<vouchtype>" & ls_data & "</vouchtype>" + vbCrLf '单据类型 09:其他出库单 11:材料出库单 32:销售出库单 ls_data = Trim(ds_head.TextMatrix(1, 1)) ls_xml = ls_xml & "<businesstype>" & ls_data & "</businesstype>" + vbCrLf '业务类型 ls_data = Trim(ds...