志翔科技有限公司後勤網

後勤等待處理訊息站,請各位成員努力消除待工區
 
首頁首頁  會員註冊會員註冊  登入登入  

分享 | 
 

 主要Master File 成交價資料加秀最後訂單或報價單號

向下 
發表人內容
flying
Admin
avatar

文章數 : 207
注冊日期 : 2008-11-11

發表主題: 主要Master File 成交價資料加秀最後訂單或報價單號   周二 11月 25, 2008 6:07 pm

到同集團蒐尋主要成交價資料需加秀最後訂單或報價單號,原本客戶產品檔有規劃最後訂單或報價單號,但需檢查是否有確實回寫的動作,如果回寫正常,加入Master File成交價顯示就沒問題.

顯示Master file成交價資料是由註冊工作底稿檔來完成,當客戶產品檔d_buyer_item_detail Retrieve讀完資料後,系統緊接著呼叫dw_tab1.call(get_masterprice(buyer_item_d01,buyer_item_c01))執行,此函數會隨後在客戶產品檔的版面置換Master file成交價欄位資料.進而讓操作者看到Master File成交資料.

此函數 get_masterprice() 主要是透過客戶集團碼找出同集團最新成交資料,並判斷要秀出的內容,內容如下:
decimal mprice,mprice2
date mlastorddate,mlastquedate,mdate
long li_row
string mcurrencyord,mcurrency,mret,mtocust_no,mbuyer_id2,misorder
li_row=dw_focus.getrow()
if li_row=0 then
 return ""
end if
select tocust_no into :mtocust_no from buyer where d01=:mbuyer_id; //找出此客戶同集團編號
//找出此集團最後成交日期
select max(lastquedate) into :mlastquedate from buyer_item,buyer where buyer.d01=buyer_item.d01 and buyer_item.c01=:mitem_id and buyer.tocust_no=:mtocust_no;
select max(lastorddate) into :mlastorddate from buyer_item,buyer where buyer.d01=buyer_item.d01 and buyer_item.c01=:mitem_id and buyer.tocust_no=:mtocust_no;
//針對客戶產品檔版面填最後成交日期
if isnull(mlastquedate) and isnull(mlastorddate) then //沒任何成交日
 dw_focus.setitem(li_row,"mlastorddate",mlastorddate)
 dw_focus.setitem(li_row,"mlastquedate",mlastquedate)
 return ""
end if
//用最後訂單日與最後報價日比較誰比較新
if isnull(mlastquedate) and not isnull(mlastorddate) then //沒報價日有訂單日
 mdate=mlastorddate
 misorder="1" //最後成交是訂單
elseif not isnull(mlastquedate) and isnull(mlastorddate) then //有報價日沒訂單日
 mdate=mlastquedate
 misorder="0" //最後成交是報價單
elseif mlastquedate > mlastorddate then //報價日比較新
 mdate=mlastquedate
 misorder="0" //最後成交是報價單
else
 mdate=mlastorddate
 misorder="1" //最後成交是訂單
end if
//用最後報價日去找同集團最新報價單價
select price into :mprice from buyer_item,buyer where buyer.d01=buyer_item.d01 and buyer_item.c01=:mitem_id and buyer.tocust_no=:mtocust_no and lastquedate=:mlastquedate;
//用最後訂單日去找同集團最新訂單價
select price2 into :mprice2 from buyer_item,buyer where buyer.d01=buyer_item.d01 and buyer_item.c01=:mitem_id and buyer.tocust_no=:mtocust_no and lastorddate=:mlastorddate;
if misorder="1" then //如果是訂單比較新,則找同集團最新訂單的客戶編號出來
 select buyer_item.d01 into :mbuyer_id2 from buyer_item,buyer where buyer.d01=buyer_item.d01 and buyer_item.c01=:mitem_id and buyer.tocust_no=:mtocust_no and lastorddate=:mdate;
else //如果是報價單比較新,則找同集團最新報價單的客戶編號出來
 select buyer_item.d01 into :mbuyer_id2 from buyer_item,buyer where buyer.d01=buyer_item.d01 and buyer_item.c01=:mitem_id and buyer.tocust_no=:mtocust_no and lastquedate=:mdate;
end if
dw_focus.setitem(li_row,"mlastorddate",mlastorddate)
dw_focus.setitem(li_row,"mlastquedate",mlastquedate)
dw_focus.setitem(li_row,"mprice",mprice)
dw_focus.setitem(li_row,"mprice2",mprice2)
dw_focus.setitem(li_row,"mbuyer_id",mbuyer_id2)
if trim(mbuyer_id2)="" or isnull(mbuyer_id2) then //如果沒有最新成交的客戶代碼,則清掉最後報價日與訂單日
 dw_focus.setitem(li_row,"mlastorddate",setnull(mlastorddate))
 dw_focus.setitem(li_row,"mlastquedate",setnull(mlastquedate))
end if
return ""
回頂端 向下
檢視會員個人資料 http://idon.666forum.net
 
主要Master File 成交價資料加秀最後訂單或報價單號
回頂端 
1頁(共1頁)
 相似主題
-
» Error: Cannot find help file: acad.chm

這個論壇的權限:無法 在這個版面回復文章
志翔科技有限公司後勤網 :: 後勤主題與待工區 :: bigbear待工區-
前往: