客戶檔新增選項 & 頁籤

請在客戶檔中新增列印外箱尺寸選項並且要在run 工廠訂單時可以列印出來


客戶檔新增頁籤

程序如下
http://idon.666forum.net/forum-f3/topic-t39.htm?sid=92e477bb1de6340d7c5e8c481c11dc9f

1.針對客戶檔加欄位 [是否印外箱尺寸] char(1)
Alter table buyer add isoutsize char(1);



2.針對客戶明細版面增加此欄位,且用勾選方式輸入
bigbeardwo.pbl-->d_big_cust_detail







3.修改工廠訂單Excel報表檔
c:\bigbear_form\Localordstd.xls

Excel 巨集檔 Localordstd.xls 用的是 ole.pbl, 其中客戶主檔 d_big_cust_detail ,需要加 [local PO是否印外箱尺寸]欄位,這樣VBA才能取到此欄位.

在新系統的版面都不是給VBA用的,OLE.pbl專給VBA使用.

發現Localordstd.xls有片段如下,判斷是否需要印外箱尺寸,客戶主檔該欄位為 outershow,看起來與此主題有重複,需與客戶確認


li_outerline = 0
If getitem(lole_buyer_item.GetItemString(1, "buyer_outershow")) = "1" Then
　Worksheets("Sheet3").Range("C" + Trim(Str(li_innerline + 3 + li_eanno + li_gdname + li_itemsub + li_deduline))).Value =
　　 "外箱尺寸: " & getitem(lole_buyer_item.GetItemNumber(1, "e51")) & " x " & getitem(lole_buyer_item.GetItemNumber(1, "e54"))
　　　& " x " & getitem(lole_buyer_item.GetItemNumber(1, "e57")) & " CM "
　　li_outerline = 1
End If

確定是重複處理了,還好只到版面編排,並未送到客戶端,版面可重新去除該欄位

檢討原因

1.當初後勤文件未齊全,改後並未記錄
2.當初版面顯示 [秀外箱] ,並未提影響到何張報表檔,也是需改進地方.但確定 [廠商採購單Localordstd.xls]有用到
3.未先省視Localordstd.xls 的VBA程式碼,若由程式碼切入,可提早發現問題.
4.Localordstd.xls的處理流程圖需產出.