客戶說
之前老闆的意思...是要用"按鈕"區分
內銷客戶...外銷客戶..各一個按鈕....
後來是有提及....AA外銷..A.內銷.....
應該是可以的...
還有..客戶卡式..要有複製功能...方便轉存...
謝謝
開放客戶類別可輸入兩碼,客戶編號是由新增客戶時,點選類別而自動編號,此動作設定在d_cust_detail的MIS設定窗->[欄位互動]頁,
當點選類別sortno,將觸發欄位互動程序,設定為呼叫get_newcustno(sortno)函數,傳回新客戶編號,填入目標欄位cust_no.
sortno為在SQL端的compute欄位,運算式為space(2) as sortno,並不是真的客戶檔欄位,此欄位只是提供新增客戶時編輯用,而且不秀出,只開放d_sort的文字物件供點選.透過點選d_sortno的系統機制,將回傳sortno值,而sortno值被填入時,則觸發客戶編號的計算.
此函數在stepipe2.pbl中
函數get_newcustno()本來不支援兩個碼的客戶類別,修改後可支援,
修正PB原始碼如下
string mcust_no,mnewno,ls_sqlstr,msqlno
int mlastnum
//找出指定類別最後一名客戶編號
msqlno=msortno+"%"
if len(trim(msortno))=1 then //一碼類別
select max(cust_no) into :mcust_no from customer where cust_no like :msqlno and ISNUMERIC(substr(cust_no,2,3))=1 ;
else
select max(cust_no) into :mcust_no from customer where cust_no like :msqlno and ISNUMERIC(substr(cust_no,3,3))=1 ;
end if
if isnull(mcust_no) then
mnewno=msortno+"001"
else
//取最後該客戶類別流水編號加一
if len(trim(msortno))=1 then
mlastnum=integer(mid(mcust_no,2))
else
mlastnum=integer(mid(mcust_no,3))
end if
mnewno=msortno+mid(string(1001+mlastnum,"####"),2) //流水號為3碼
end if
return mnewno
關於客戶尚要求增加一個功能紐,[複製類似客戶]
就是說游標所停的舊客戶,將畫面資料保留複製給新客戶.這些被保留的欄位必須由MIS設定窗->[欄位複寫] 所設定.
功能表子項內容為
dw_this.call(copy_newitem()) //呼叫系統預設的原地複製功能
pb_canmod //設定為可修改狀態