正文 第33章 價值鏈會計信息交換係統開發案例(4)(2 / 2)

return

end if

if long(tab_1.tabpage_1.em_2.text) 〈 long(condition_ns) or &

long(tab_1.tabpage_1.em_3.text) 〉 long(condition_ne) then

messagebox(″錯誤!″,″憑證號選擇超出了範圍!″)

return

end if

dw_pz.setfilter(″″)

dw_pz.filter()

dw_pz.setfilter(″yue="″+condition_yue+″" and long(number) 〉=″+tab_1. &

tabpage_1.em_2.text+″ and long(number) 〈=″+tab_1.tabpage_1.em_3.text )

dw_pz.filter()

//檢驗保存文件的路徑和文件名的正確性

if _disibledevent=linestring+″,″

next

//messagebox(″提示!″,linestring)

filewrite(filepointer,linestring)

next

//關閉文件

fileclose(filepointer)

if not goon then

messagebox(″提示!″,″所轉換的憑證中有的編碼還沒有指定與U8 &

係統的編碼相對應!~r~n本次轉換無效,請設置對應關係後再轉換!″)

FileDelete( filename )

return

end if

if not erroroccur then

messagebox(″提示!″,″轉換發生了錯誤!~r~n本次轉換無效,&

請設置對應關係後再轉換!″)

return

//FileDelete( filename )

else

messagebox(″提示!″,″數據轉換成功!~r~n文件成功保存到″+&

trim(SLe_1.TEXT)+″\″中,可在總賬工具中“引入憑證”!″)

end if

四 輸出文件

《標準》要求輸出的數據具有對自身內容和格式的自描述特性。因此轉換後的文件首先包括格式說明文件,然後才是數據文件。轉換文件格式可以是文本文件,也可以是XML文件。但是與XML文件相比,文本文件對數據結構的自描述性功能相對較弱,因此文本接口的可擴展性相對較低,通常適用於標準財務數據的交換,如記賬憑證、科目餘額、會計報表的傳遞。本案例的主要用於記賬憑證的轉換,因此采用文本文件方式進行數據轉換。上述文件VOUCHER.TXT能被價值鏈信息整合平台——U8係統直接讀取,並經第八章第二節所述的“數據抽取”,即可參與生成價值鏈虛擬企業會計信息。