STRING ls_file_name,ls_file_name_new
String ls_file,ls_file_new
String ls_parth_local = 'E:\鑫鑫请货数据\请货库存表\'
INTEGER li_fileNum
LONG ll_column,i,ll_status,ll_loop
DATETIME ldt_sysdate
STRING ls_columnname,ls_value,ls_header,ls_detail
STRING ls_goods_opcode,ls_goods_name,ls_goods_desc,ls_lot_no,ls_expire_date,ls_produce_date,ls_package_num,ls_onavailable
STRING ls_sysdate,ls_party_owner,ls_price1,ls_price2,ls_price3
ldt_sysdate = OF_GET_SYSTEMDATE()
ls_file_name = '100_请货库存表_'+ STRING(ldt_sysdate,"YYYYMMDDHHMMSS") + ".TXT"
ls_file = ls_parth_local + ls_file_name
ls_file_new = is_parth + ls_file_name
ll_column = LONG(dw_1.OBJECT.datawindow.column.count)
FOR i = 1 TO ll_column
ls_columnname = dw_1.DESCRIBE( "#"+STRING(i)+".name")+"_t"
ls_value = dw_1.DESCRIBE(ls_columnname +".text")
IF i = 1 THEN
ls_header = ls_value
ELSE
ls_header = ls_header + "|" + ls_value
END IF
NEXT
ll_status = FILEOPEN(ls_file,LineMode!,WRITE!,LockWrite!,REPLACE!)
FILEWRITE(ll_status,ls_header)
FILECLOSE(ll_status)
FOR ll_loop = 1 TO dw_1.ROWCOUNT()
ls_goods_opcode = dw_1.OBJECT.goods_opcode[ll_loop]
ls_goods_name = dw_1.OBJECT.goods_name[ll_loop]
ls_goods_desc = dw_1.OBJECT.goods_desc[ll_loop]
ls_lot_no = dw_1.OBJECT.lot_no[ll_loop]
ls_expire_date = STRING(dw_1.OBJECT.expire_date[ll_loop],'YYYY-MM-DD')
ls_produce_date = STRING(dw_1.OBJECT.produce_date[ll_loop],'YYYY-MM-DD')
ls_package_num = STRING(dw_1.OBJECT.package_num[ll_loop])
ls_onavailable = STRING(dw_1.OBJECT.onavailable[ll_loop])
ls_sysdate = STRING(dw_1.OBJECT.sysdate[ll_loop],'YYYY-MM-DD HH:MM:SS')
ls_party_owner = STRING(dw_1.OBJECT.party_owner[ll_loop])
ls_price1 = STRING(dw_1.OBJECT.price1[ll_loop])
ls_price2 = STRING(dw_1.OBJECT.price2[ll_loop])
ls_price3 = STRING(dw_1.OBJECT.price3[ll_loop])
if isnull(ls_goods_opcode) then ls_goods_opcode = ''
if isnull(ls_goods_name) then ls_goods_name = ''
if isnull(ls_goods_desc) then ls_goods_desc = ''
if isnull(ls_lot_no) then ls_lot_no = ''
if isnull(ls_expire_date) then ls_expire_date = ''
if isnull(ls_produce_date) then ls_produce_date = ''
if isnull(ls_package_num) then ls_package_num = ''
if isnull(ls_onavailable) then ls_onavailable = ''
if isnull(ls_sysdate) then ls_sysdate = ''
if isnull(ls_party_owner) then ls_party_owner = ''
if isnull(ls_price1) then ls_price1 = ''
if isnull(ls_price2) then ls_price2 = ''
if isnull(ls_price3) then ls_price3 = ''
ls_detail = ls_goods_opcode + '|' + ls_goods_name + '|' + ls_goods_desc + '|' + ls_lot_no + '|' + ls_expire_date + '|' + &
ls_produce_date + '|' + ls_package_num + '|' + ls_onavailable + '|' + ls_sysdate + '|' + ls_party_owner + '|' + &
ls_price1 + '|' + ls_price2 + '|' +ls_price3
ll_status = FILEOPEN(ls_file,LineMode!,WRITE!,LockWrite!,Append!)
FILEWRITE(ll_status,ls_detail)
FILECLOSE(ll_status)
NEXT
//================================================================================
integer li_rtn
string ls_str
OLEObject ole_ADOStream //定义流
ole_ADOStream = CREATE OLEObject //创建流
li_rtn = ole_ADOStream.ConnectToNewObject( "ADODB.Stream") //连接流
if li_rtn <> 0 then
messagebox('提示', '无法连接ADODB.Stream')
return
end if
//初始化流
ole_ADOStream.Mode = 3 //具有读/写权限
ole_ADOStream.Type = 2 //二进制数据Binary
ole_ADOStream.charset = 'GB2312'
ole_ADOStream.Open() //打开流
ole_ADOStream.LoadFromFile(ls_file) //载入文本文件
ls_str = ole_ADOStream.readtext()//读取流文本
//重新初始化流
ole_ADOStream.Position = 0 //Position为0才能设置Charset 和 Type
ole_ADOStream.Type = 2 //文本数据
ole_ADOStream.Charset = "UTF-8"
ole_ADOStream.writetext(ls_str)//写入流文本（关键步骤，不然中文会出现乱码）
ole_ADOStream.SaveToFile(ls_file,2) //保存为文本文件
ole_ADOStream.flush()//清空缓冲区数据
ole_ADOStream.Close() //关闭流
destroy ole_ADOStream //销毁流
//================================================================================
Messagebox('提示','导出文件成功，文件路径为' + ls_file)