start_agent_info
AgentName = "AU_PURCH_ORDER_IMPORT_COORDINATOR"
AgentDescr = "Purchase Order/Import Coordinator"
PR_FNAME = "AU_EVENT_PURCHIMPORT_E.FM"
PR_TNAME = "AU_EVENT"
end_agent_info
start_bpm_activity "New Purchase Order"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Purchase Approval 1"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisableAllFields
()
call OnOpenForm_EnableField
("APPROVER1_YES"
)
call OnOpenForm_EnableField
("APPROVER1_NO"
)
call OnOpenForm_EnableField
("F_APPROVER2_POS_D"
)
call OnOpenForm_EnableField
("PRICES_CONTROL_FLAG"
)
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
yes = LookUpId
("AU_EVENT"
,__params[2]
,"APPROVER1_YES"
)
no = LookUpId
("AU_EVENT"
,__params[2]
,"APPROVER1_NO"
)
yes = val
(yes
)
no = val
(no
)
if (no = 0
) and
(yes = 0
) then
result = 0
call message
("Approve or disapprove purchase !"
)
endif
if (no = 1
) and
(yes = 1
) then
result = 0
call message
("Approve or disapprove purchase !"
)
endif
if (no = 1
) then
flag = message_yes_no
("You selected
to disapprove the purchase ?"
)
if (flag = 0
) then
result = 0
endif
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Purchase Approval 2"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisableAllFields
()
call OnOpenForm_EnableField
("APPROVER2_YES"
)
call OnOpenForm_EnableField
("APPROVER2_NO"
)
call OnOpenForm_EnableField
("F_APPROVER3_POS_D"
)
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
yes = LookUpId
("AU_EVENT"
,__params[2]
,"APPROVER2_YES"
)
no = LookUpId
("AU_EVENT"
,__params[2]
,"APPROVER2_NO"
)
yes = val
(yes
)
no = val
(no
)
if (no = 0
) and
(yes = 0
) then
result = 0
call message
("Approve or disapprove purchase !"
)
endif
if (no = 1
) and
(yes = 1
) then
result = 0
call message
("Approve or disapprove purchase !"
)
endif
if (no = 1
) then
flag = message_yes_no
("You selected
to disapprove the purchase ?"
)
if (flag = 0
) then
result = 0
endif
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Purchase Approval 3"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisableAllFields
()
call OnOpenForm_EnableField
("APPROVER3_YES"
)
call OnOpenForm_EnableField
("APPROVER3_NO"
)
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
yes = LookUpId
("AU_EVENT"
,__params[2]
,"APPROVER3_YES"
)
no = LookUpId
("AU_EVENT"
,__params[2]
,"APPROVER3_NO"
)
yes = val
(yes
)
no = val
(no
)
if (no = 0
) and
(yes = 0
) then
result = 0
call message
("Approve or disapprove purchase !"
)
endif
if (no = 1
) and
(yes = 1
) then
result = 0
call message
("Approve or disapprove purchase !"
)
endif
if (no = 1
) then
flag = message_yes_no
("You selected
to disapprove the purchase ?"
)
if (flag = 0
) then
result = 0
endif
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "S
end Order
to supplier"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisablePost
()
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Purchase Order"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisablePost
()
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Goods Receipt"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisablePost
()
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Goods Receipt"
rec = __params[2]
call OpenFormTop
("ptBrowse"
,"
AU_PURCHASE_GOODRECEIPT_B.FM"
,"QRY.DATA"
,"PORDER_MODE"
,rec
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Approved Purchase"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisablePost
()
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Goods Receipt"
rec = __params[2]
call OpenFormTop
("ptBrowse"
,"
AU_PURCHASE_GOODRECEIPT_B.FM"
,"QRY.DATA"
,"PORDER_MODE"
,rec
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Purchase Approval 1"
start_bpm_subactivity "Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisableAllFields
()
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
yes = LookUpId
("AU_EVENT"
,__params[2]
,"APPROVER1_YES"
)
no = LookUpId
("AU_EVENT"
,__params[2]
,"APPROVER1_NO"
)
yes = val
(yes
)
no = val
(no
)
if (no = 0
) and
(yes = 0
) then
result = 0
call message
("Approve or disapprove purchase !"
)
endif
if (no = 1
) and
(yes = 1
) then
result = 0
call message
("Approve or disapprove purchase !"
)
endif
if (no = 1
) then
flag = message_yes_no
("You selected
to disapprove the purchase ?"
)
if (flag = 0
) then
result = 0
endif
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Prices Control"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisablePost
()
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Prices Comments"
call message
("Add Notes or attach a
document with prices commenting!"
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Purchase Cover"
start_bpm_subactivity "Purchase Form"
prom_type = __params[1]
rec = __params[2]
form = __params[3]
call OnOpenForm_DisablePost
()
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Purchase Cover"
rec = __params[2]
call OpenFormTop
("ptBrowse"
,"
AU_PURCHASE_COVER_B.FM"
,"QRY.DATA"
,"PORDER_MODE"
,rec
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "New Purchase Order/Import"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Mail To Suplier"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Ingredients and Expiration Dates"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Check Given Prices"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
rec = __params[1]
yes1 = LookUpId
("AU_EVENT"
,rec
,"APPROVER1_YES"
)
no1 = LookUpId
("AU_EVENT"
,rec
,"APPROVER1_NO"
)
sum = yes1 + no1
if (sum <> 1
) then
call message
("You must approve or disaprove the Order!"
)
result = 0
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Prepare Labels"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Mail Labels"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Set Requests
for Quotations"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Set RFQ Form"
rec = __params[2]
call OpenFormTop
("ptBrowse"
,"
AU_RFQSET_B.FM"
,"QRY.DATA"
,"SET_MODE"
,rec
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Mail
for Transportation RFQ"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Set RFQ Form"
rec = __params[2]
itm = __params[3]
if (__contact_form_processing = 1
) then
start_sql "*" "KOSMOS"
SELECT AU_RFQSET.COMM
, AU_RFQSET_ITM.COMM1
,
AU_CURRENCY.AU_CURRENCY
,
AU_RFQSET_ITM.DATE1
, AU_RFQSET_ITM.DATE2
, AU_RFQSET.AU_RFQSET
,
AU_RFQSET_ITM.PRICE
, AU_CURRENCY.CCODE
, AU_RFQSET_ITM.AU_RFQSET_ITM
FROM (AU_RFQSET
LEFT JOIN AU_RFQSET_ITM
ON AU_RFQSET.AU_RFQSET = AU_RFQSET_ITM.AU_RFQSET
)
LEFT JOIN AU_CURRENCY
ON AU_RFQSET_ITM.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
WHERE (AU_RFQSET_ITM.AU_RFQSET_ITM = :R
)
end_sql
q = QueryByName
()
call TSetParam
(q
,"R"
,itm
)
call TExecute
(q
)
count = TRecordCount
(q
)
col = dcol_start
("Transport RFQ"
,__au_contact
,__au_step
)
call TFirst
(q
)
id = TGetFld
(q
,"AU_RFQSET"
)
k_id = TGetFld
(q
,"AU_RFQSET_ITM"
)
c_id = TGetFld
(q
,"AU_CURRENCY"
)
comm = TGetFld
(q
,"COMM"
)
comm1 = TGetFld
(q
,"COMM1"
)
d1 = TGetFld
(q
,"DATE1"
)
d2 = TGetFld
(q
,"DATE2"
)
price = TGetFld
(q
,"PRICE"
)
curr = TGetFld
(q
,"CCODE"
)
call dcol_item
(col
,"Request"
,"AU_RFQSET"
,"COMM"
,comm
,id
,0
,0
)
call dcol_item
(col
,"Departure"
,"AU_RFQSET_ITM"
,"DATE1"
,title
,k_id
,0
,0
)
call dcol_item
(col
,"Arrival"
,"AU_RFQSET_ITM"
,"DATE2"
,meas
,k_id
,0
,0
)
call dcol_item
(col
,"Price"
,"AU_RFQSET_ITM"
,"PRICE"
,price
,k_id
,0
,0
)
call dcol_item
(col
,"Currency"
,"AU_CURRENCY"
,"CCODE"
,curr
,c_id
,0
,0
)
call dcol_item
(col
,"Comments"
,"AU_RFQSET_ITM"
,"COMM1"
,comm1
,k_id
,0
,0
)
call FreeEmbSQL
(q
)
call html_processfile
("AU_DATACOLLECT_EN_M.HTM"
, col
, __au_step
, __postforward
)
else
call OpenFormTop
("ptBrowse"
,"
AU_RFQSET_B.FM"
,"QRY.DATA"
,"SET_MODE"
,rec
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Select Transportion Company"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Set RFQ Form"
rec = __params[2]
call OpenFormTop
("ptBrowse"
,"
AU_RFQSET_B.FM"
,"QRY.DATA"
,"SET_MODE"
,rec
)
end_bpm_subactivity
start_bpm_validation
result = 1
start_sql "*" "KOSMOS"
SELECT Count
(AU_BUSINESS.AU_BUSINESS
) AS CNT
FROM ((AU_RFQSET
LEFT JOIN AU_RFQSET_ITM
ON AU_RFQSET.AU_RFQSET = AU_RFQSET_ITM.AU_RFQSET
)
LEFT
JOIN AU_BUSINESS
ON AU_RFQSET_ITM.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT
JOIN AU_CONTACT
ON AU_RFQSET_ITM.AU_CONTACT = AU_CONTACT.AU_CONTACT
WHERE (AU_RFQSET_ITM.WIN_FLAG = '1'
)
AND
(AU_RFQSET.AU_RFQSET = :R
)
end_sql
q = QueryByName
(q
)
call TSetParam
(q
,"R"
,__params[2]
)
call TExecute
(q
)
call TFirst
(q
)
cnt = TGetFld
(q
,"CNT"
)
call FreeEmbSQL
(q
)
cnt = val
(cnt
)
if (cnt = 0
) then
call message
("You must select a Transporter from the RFQs!"
)
result = 0
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Wait
for Order Progres"
start_bpm_validation
{..............follow up every 10 days!}
result = 0
rec_id = __params[1]
date_s3 = LookUpId
("AU_EVENT"
,rec_id
,"DATE_S3"
)
date_s3 = DateToNum
(date_s3
)
today = crDate
today = DateToNum
(today
)
diff = today - date_s3
mod = Mod
(diff
,10
)
if (mod = 0
) then
result = 1
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Request ETA from Forwarder"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Ask
for Shipping Documents"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Arrange Payment"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Ask
for Documents Date"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Wait
for Shipping Progres"
start_bpm_validation
{..............follow up every 7 days!}
result = 0
rec_id = __params[1]
date_atd = __params[2]
date_atd = DateToNum
(date_atd
)
today = crDate
today = DateToNum
(today
)
diff = today - date_atd
mod = Mod
(diff
,7
)
if (mod = 0
) then
result = 1
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Mail Shipper
to get Progress"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Progress"
if (__contact_form_processing = 1
) then
rec = __params[1]
status = LookUpId
("AU_EVENT"
,rec
,"STATUS2"
)
col = dcol_start
("Import Status"
,__au_contact
,__au_step
)
call dcol_item
(col
,"Status"
,"AU_EVENT"
,"STATUS2"
,status
,rec
,0
,0
)
call html_processfile
("AU_DATACOLLECT_EN_M.HTM"
, col
, __au_step
, __postforward
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Prepare Documents
for Custom Clearance Clerk"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Submit Documents
for Custom Clearance Clerk"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Goods Import"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Negotiate Palettization"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Samples
to Show Room"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Ask
for Reimbursement"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Check Goods Quality"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Ask Quantity Reimbursement"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Ask Quality Reimbursement"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Get a pair of Samples"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Put Samples
to Showroom"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Import Costing"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Check Ingredients"
start_bpm_subactivity "Order Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Mail To Supplier"
start_bpm_subactivity "Order Form"
rec = __params[1]
if (__contact_form_processing = 1
) then
start_sql "*" "KOSMOS"
SELECT AU_GOOD.TITLE
, AU_KE_GOOD.QUANT
, AU_KE_GOOD.PRICE
, AU_UNITMEAS.CODE
,
AU_KE_GOOD.AU_KE_GOOD
, AU_KE_GOOD.AU_GOOD
FROM (AU_GOOD INNER
JOIN AU_KE_GOOD
ON AU_GOOD.AU_GOOD = AU_KE_GOOD.AU_GOOD
)
INNER
JOIN AU_UNITMEAS
ON AU_KE_GOOD.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
WHERE (AU_EVENT=:E
)
ORDER BY AU_KE_GOOD
end_sql
q = QueryByName
()
call TSetParam
(q
,"E"
,rec
)
call TExecute
(q
)
count = TRecordCount
(q
)
col = dcol_start
("Order From"
,__au_contact
,__au_step
)
call TFirst
(q
)
for i = 1
to count
ke_id = TGetFld
(q
,"AU_KE_GOOD"
)
gd_id = TGetFld
(q
,"AU_GOOD"
)
title = TGetFld
(q
,"TITLE"
)
meas = TGetFld
(q
,"CODE"
)
quant = TGetFld
(q
,"QUANT"
)
price = TGetFld
(q
,"PRICE"
)
call dcol_item
(col
,"Description"
,"AU_GOOD"
,"TITLE"
,title
,gd_id
,i
,0
,6
)
call dcol_item
(col
,"UoM"
,"AU_UNITMEAS"
,"CODE"
,meas
,ke_id
,i
,0
,2
)
call dcol_item
(col
,"Quantity"
,"AU_KE_GOOD"
,"QUANT"
,quant
,ke_id
,i
,0
,2
)
call dcol_item
(col
,"Price"
,"AU_KE_GOOD"
,"PRICE"
,price
,ke_id
,i
,0
,2
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
call html_processfile
("AU_DATACOLLECT_EN_ML.HTM"
, col
, __au_step
, __postforward
)
else
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Ingredients and Expiration Dates"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Give Prices"
start_bpm_subactivity "Order Prices Form"
rec = __params[1]
if (__contact_form_processing = 1
) then
start_sql "*" "KOSMOS"
SELECT AU_GOOD.TITLE
, AU_KE_GOOD.QUANT
, AU_KE_GOOD.PRICE
, AU_UNITMEAS.CODE
,
AU_KE_GOOD.AU_KE_GOOD
, AU_KE_GOOD.AU_GOOD
FROM (AU_GOOD INNER
JOIN AU_KE_GOOD
ON AU_GOOD.AU_GOOD = AU_KE_GOOD.AU_GOOD
)
INNER
JOIN AU_UNITMEAS
ON AU_KE_GOOD.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
WHERE (AU_EVENT=:E
)
ORDER BY AU_KE_GOOD
end_sql
q = QueryByName
()
call TSetParam
(q
,"E"
,rec
)
call TExecute
(q
)
count = TRecordCount
(q
)
col = dcol_start
("Order From"
,__au_contact
,__au_step
)
call TFirst
(q
)
for i = 1
to count
ke_id = TGetFld
(q
,"AU_KE_GOOD"
)
gd_id = TGetFld
(q
,"AU_GOOD"
)
title = TGetFld
(q
,"TITLE"
)
meas = TGetFld
(q
,"CODE"
)
quant = TGetFld
(q
,"QUANT"
)
price = TGetFld
(q
,"PRICE"
)
call dcol_item
(col
,"Description"
,"AU_GOOD"
,"TITLE"
,title
,gd_id
,i
,0
,6
)
call dcol_item
(col
,"UoM"
,"AU_UNITMEAS"
,"CODE"
,meas
,ke_id
,i
,0
,2
)
call dcol_item
(col
,"Quantity"
,"AU_KE_GOOD"
,"QUANT"
,quant
,ke_id
,i
,0
,2
)
call dcol_item
(col
,"Price"
,"AU_KE_GOOD"
,"PRICE"
,price
,ke_id
,i
,0
,2
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
call html_processfile
("AU_DATACOLLECT_EN_ML.HTM"
, col
, __au_step
, __postforward
)
else
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Mail Suplier
to get Progress"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Mail Suplier
to get Progress"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Import Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Mail Supplier
to get Progress"
start_bpm_subactivity "Order Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_PURCHIMPORT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Import Form"
if (__contact_form_processing <> 1
) then
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_EVENT_IMPORTDET_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_subactivity "Progress"
if (__contact_form_processing = 1
) then
rec = __params[1]
status = LookUpId
("AU_EVENT"
,rec
,"STATUS1"
)
col = dcol_start
("Import Status"
,__au_contact
,__au_step
)
call dcol_item
(col
,"Status"
,"AU_EVENT"
,"STATUS1"
,status
,rec
,0
,0
)
call html_processfile
("AU_DATACOLLECT_EN_M.HTM"
, col
, __au_step
, __postforward
)
endif
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_action
{...........purchase order/import coordinator....}
rec_id = __params[1]
{...................................................................status variables}
call bpm_addcheckpoint
( "Generate Import Number"
, 1
)
call bpm_addcheckpoint
( "Initial order form completion"
, 1
)
call bpm_addcheckpoint
( "Order Mailed"
, 1
)
call bpm_addcheckpoint
( "Suplier Prices are Checked"
, 1
)
call bpm_addcheckpoint
( "Ingredients and Expiration Dates are Checked"
, 1
)
call bpm_addcheckpoint
( "Labels Prepared"
, 1
)
call bpm_addcheckpoint
( "Labels Mailed"
, 1
)
call bpm_addcheckpoint
( "Get list of RFQ"
, 1
)
call bpm_addcheckpoint
( "Transportation Company Selected"
, 1
)
call bpm_addcheckpoint
( "Order Progress"
, 1
)
call bpm_addcheckpoint
( "Shipping Documents"
, 1
)
call bpm_addcheckpoint
( "ETA from Forwarder"
, 1
)
call bpm_addcheckpoint
( "Payment Aranged"
, 1
)
call bpm_addcheckpoint
( "Ask
for date that will receive
documents"
, 1
)
call bpm_addcheckpoint
( "Documents
for Custom Clearance Clerk Prepared"
, 1
)
call bpm_addcheckpoint
( "Documents
for Custom Clearance Clerk Submited"
, 1
)
call bpm_addcheckpoint
( "Quantity Reimbursement Asked"
, 1
)
call bpm_addcheckpoint
( "Palettization Negotiated"
, 1
)
call bpm_addcheckpoint
( "Samples
to show room S
ended"
, 1
)
call bpm_addcheckpoint
( "Goods and Labels Checked"
, 1
)
call bpm_addcheckpoint
( "Quality Reimbursement Asked"
, 1
)
call bpm_addcheckpoint
( "Samples
to Showroom Put"
, 1
)
call bpm_addcheckpoint
( "Import Costing"
, 1
)
call bpm_setprocedureowner
(__activation_user
) {.....set the procedure owner}
call bpm_setprocedurecomment
("Purchase Order/Import"
) {.....set the procedures comment}
{..................Generate Import Number}
t_event = LookUpId
("AU_EVENT"
,rec_id
,"AU_T_EVENT"
)
num = SelectFrom
("
SELECT NUMBER
FROM AU_EVENT
WHERE (AU_EVENT="
,t_event
,"
)"
)
num = num + 1
call UpdateTable
("AU_EVENT"
, rec_id
, "NUMBER"
, num
)
call bpm_setcheckpoint
( "Generate Import Number"
, 1
, num
)
{..................Initial order form completion}
call bpm_openatonce
()
callwait bpm_assign_job
( "New Purchase Order/Import"
, __activation_user
, "IMPORTS"
, 0
, rec_id
)
comm = LookUpId
("AU_EVENT"
,rec_id
,"SUBJECT"
)
suplier_id = LookUpId
("AU_EVENT"
,rec_id
,"BUSINESS_FROM"
)
supl_cont_id = LookUpId
("AU_EVENT"
,rec_id
,"CONTACT_FROM"
)
call bpm_setcheckpoint
( "Initial order form completion"
, 1
, crDate
)
call bpm_setprocedurecomment
(comm
) {.....set the procedure's comment}
call bpm_setprocedurebusiness
(suplier_id
) {.....set the procedure's business partner}
{...................S
end Mail with Order}
call UpdateTable
("AU_EVENT"
, rec_id
, "DATE_S1"
, crDate
) {.....Date we mailed Order}
call bpm_setactivitycontact
(supl_cont_id
)
callwait bpm_assign_job
( "Mail To Supplier"
, __activation_user
, "IMPORTS"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Order Mailed"
, 1
)
{...................Check and Negotiate Suplier Prices / Ingrddients and Expiration Dates / Quantities}
cancel_flag = 0
for i = 1
to 100
callwait bpm_assign_job
( "Check Given Prices"
, __activation_user
, "IMPORTS"
, 0
, rec_id
)
cancel_flag = LookUpId
("AU_EVENT"
,rec_id
,"CANCEL_FLAG"
)
yes1 = LookUpId
("AU_EVENT"
,rec_id
,"APPROVER1_YES"
)
no1 = LookUpId
("AU_EVENT"
,rec_id
,"APPROVER1_NO"
)
if (no1 = 1
) then
{...................Negotiate Prices}
call bpm_setactivitycontact
(supl_cont_id
)
callwait bpm_assign_job
( "Give Prices"
, __activation_user
, "IMPORTS"
, 0
, rec_id
)
endif
if (yes1 = 1
) then {......order is aproved}
i = 1000
endif
if (cancel_flag = 1
) then {.....order is canceled}
i = 1000
endif
next
if (cancel_flag = 0
) then
call bpm_setcheckpoint
( "Suplier Prices are Checked"
, 1
)
call UpdateTable
("AU_EVENT"
, rec_id
, "DATE_S2"
, crDate
) {...........Date that prices and quantities are confirmed}
{..........................Check Ingredients and Expiration Dates}
callwait bpm_assign_job
( "Check Ingredients"
, ""
, "QUALITY CONTROL"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Ingredients and Expiration Dates are Checked"
, 1
)
{...................Prepare Labels}
callwait bpm_assign_job
( "Prepare Labels"
, ""
, "QUALITY CONTROL"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Labels Prepared"
, 1
)
call UpdateTable
("AU_EVENT"
, rec_id
, "DATE_S3"
, crDate
) {...........Date that Labels s
end}
{...................Mail Labels}
call bpm_setactivitycontact
(supl_cont_id
)
callwait bpm_assign_job
( "Mail Labels"
, __activation_user
, "IMPORTS"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Labels Mailed"
, 1
)
{...................Get RFQ from Transportation Companies and agree on ETD and ETA}
rfqset_id = InsertInto
("AU_RFQSET"
,"SUBJECT"
,comm
,""
)
callwait bpm_assign_job
( "Set Requests
for Quotations"
, __activation_user
, "IMPORTS"
, 0
, rec_id
, rfqset_id
)
call bpm_setcheckpoint
( "Get list of RFQ"
, 1
)
{.............................Get list of RFQ}
start_sql "*" "KOSMOS"
SELECT AU_RFQSET_ITM.AU_RFQSET_ITM
, AU_BUSINESS.AU_BUSINESS
, AU_CONTACT.AU_CONTACT
, AU_RFQSET.SUBJECT
FROM ((AU_RFQSET
LEFT JOIN AU_RFQSET_ITM
ON AU_RFQSET.AU_RFQSET = AU_RFQSET_ITM.AU_RFQSET
)
LEFT JOIN AU_BUSINESS
ON AU_RFQSET_ITM.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_CONTACT
ON AU_RFQSET_ITM.AU_CONTACT = AU_CONTACT.AU_CONTACT
WHERE (AU_RFQSET_ITM.AU_RFQSET = :R
)
end_sql
q = QueryByName
()
call TSetParam
(q
,"R"
,rfqset_id
)
call TExecute
(q
)
count = TRecordCount
(q
)
call TFirst
(q
)
for i = 1
to count
trsp_business[i] = TGetFld
(q
,"AU_BUSINESS"
)
trsp_contact[i] = TGetFld
(q
,"AU_CONTACT"
)
rfqsetitm_id[i] = TGetFld
(q
,"AU_RFQSET_ITM"
)
rfqsubj[i] = TGetFld
(q
,"SUBJECT"
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
split_
for i = 1
to count
{.......................Mail Transportation Companies
for RFQ and get Prices
, ETD and ETA}
call bpm_setactivitybusiness
(trsp_business[i]
)
call bpm_setactivitycontact
(trsp_contact[i]
)
call bpm_setactivitycomment
(rfqsubj[i]
)
callwait bpm_assign_job
( "Mail
for Transportation RFQ"
, __activation_user
, "IMPORTS"
, 0
, rec_id
, rfqset_id
, rfqsetitm_id[i]
)
next_branch
{...................Select Transportation Company}
callwait bpm_assign_job
( "Select Transportion Company"
, __activation_user
, "IMPORTS"
, 0
, rec_id
, rfqset_id
)
{.............................put automaticaly values
for the transporter}
start_sql "*" "KOSMOS"
SELECT AU_BUSINESS.AU_BUSINESS
, AU_CONTACT.AU_CONTACT
FROM ((AU_RFQSET
LEFT JOIN AU_RFQSET_ITM
ON AU_RFQSET.AU_RFQSET = AU_RFQSET_ITM.AU_RFQSET
)
LEFT JOIN AU_BUSINESS
ON AU_RFQSET_ITM.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_CONTACT
ON AU_RFQSET_ITM.AU_CONTACT = AU_CONTACT.AU_CONTACT
WHERE (AU_RFQSET_ITM.WIN_FLAG='1'
)
AND (AU_RFQSET_ITM.AU_RFQSET = :R
)
end_sql
q = QueryByName
()
call TSetParam
(q
,"R"
,rfqset_id
)
call TExecute
(q
)
count = TRecordCount
(q
)
call TFirst
(q
)
trsp_business = TGetFld
(q
,"AU_BUSINESS"
)
trsp_contact = TGetFld
(q
,"AU_CONTACT"
)
call FreeEmbSQL
(q
)
call UpdateTable
("AU_EVENT"
, rec_id
, "TRANSPORTER"
, trsp_business
, "TRANSPORTER_CONT"
, trsp_contact
, ""
)
call bpm_setcheckpoint
( "Transportation Company Selected"
, 1
)
{......................Get Order Progressing every 10 days}
for i = 1
to 100
{
callwait bpm_event
("Wait
for Order Progres"
, rec_id
) }
call bpm_setcheckpoint
( "Order Progress"
, 1
)
call bpm_setactivitycontact
(supl_cont_id
)
callwait bpm_assign_job
( "Mail Supplier
to get Progress"
, __activation_user
, "IMPORTS"
, 0
, rec_id
)
depart_flag = LookUpId
("AU_EVENT"
,rec_id
,"DEPARTURE_FLAG"
)
if (depart_flag = 1
) then {.....order is loaded and travels!}
i = 1000
endif
next
{..................After one week ask Supplier
for Shipping Documents}
call bpm_setactivitycontact
(supl_cont_id
)
call bpm_assign_job
( "Ask
for Shipping Documents"
, __activation_user
, "IMPORTS"
, 7
, rec_id
) {...after 7 days / no
callwait!}
call bpm_setcheckpoint
( "Shipping Documents"
, 1
)
{...................Request ETA from Forwarder
(Transporter
)}
transp_id = LookUpId
("AU_EVENT"
,rec_id
,"TRANSPORTER"
)
transp_cont_id = LookUpId
("AU_EVENT"
,rec_id
,"TRANSPORTER_CONT"
)
date_atd = LookUpId
("AU_EVENT"
,rec_id
,"DATE_ATD"
) {....actual departure date}
call bpm_setactivitycontact
(transp_cont_id
)
callwait bpm_assign_job
( "Request ETA from Forwarder"
, __activation_user
, "IMPORTS"
, 0
, rec_id
)
call bpm_setcheckpoint
( "ETA from Forwarder"
, 1
)
{...................Aragne Payment}
callwait bpm_assign_job
( "Arrange Payment"
, ""
, "MANAGEMENT"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Payment Aranged"
, 1
)
{..................Inform Supplier of Payment and ask
for date that will receive
documents}
call bpm_setactivitycontact
(supl_cont_id
)
call bpm_assign_job
( "Ask
for Documents Date"
, __activation_user
, "IMPORTS"
, 7
, rec_id
) {...after 7 days / no
callwait!}
{.....................Follow up every week with forwarder about whereout of container}
for i = 1
to 100
{
callwait bpm_event
("Wait
for Shipping Progres"
, rec_id
, date_atd
) }
call bpm_setactivitycontact
(transp_cont_id
)
callwait bpm_assign_job
( "Mail Shipper
to get Progress"
, __activation_user
, "IMPORTS"
, 0
, rec_id
)
arrival_flag = LookUpId
("AU_EVENT"
,rec_id
,"ARRIVAL_FLAG"
)
if (arrival_flag = 1
) then {.....order is arrived!}
i = 1000
endif
next
{.......................Prepare Documents
for Custom Clearance Clerk}
callwait bpm_assign_job
( "Prepare Documents
for Custom Clearance Clerk"
, ""
, "QUALITY CONTROL"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Documents
for Custom Clearance Clerk Prepared"
, 1
)
{.......................Submit Documents
for Custom Clearance Clerk}
callwait bpm_assign_job
( "Submit Documents
for Custom Clearance Clerk"
, ""
, "QUALITY CONTROL"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Documents
for Custom Clearance Clerk Submited"
, 1
)
{.......................Goods
to Warehouse or 3PL}
thirdpartlog_id = LookUpId
("AU_EVENT"
,rec_id
,"THIRDPARTLOG"
)
thirdpartlog_cont_id = LookUpId
("AU_EVENT"
,rec_id
,"THIRDPARTLOG_CONT"
)
thirdpartlog_id = val
(thirdpartlog_id
)
if (thirdpartlog_id > 0
) then {..................use 3PL}
call bpm_setactivitycontact
(thirdpartlog_cont_id
)
endif
callwait bpm_assign_job
( "Goods Import"
, ""
, "WAREHOUSE"
, 0
, rec_id
)
{...............................Raise Reimbursement
for Quantities
(if anything is not as specified
)}
errquantitycheck_flag = LookUpId
("AU_EVENT"
,rec_id
,"ERRQUANTITYCHECK_FLAG"
)
if (errquantitycheck_flag = 1
) then
call bpm_assign_job
( "Ask Quantity Reimbursement"
, ""
, "QUALITY CONTROL"
, 0
, rec_id
) {.....start new process}
call bpm_setcheckpoint
( "Quantity Reimbursement Asked"
, 1
)
endif
{...............................Negotiate Palettization
(how 3PL stores
for us!
)}
if (thirdpartlog_id > 0
) then
call bpm_setactivitycontact
(thirdpartlog_cont_id
)
callwait bpm_assign_job
( "Negotiate Palettization"
, ""
, "WAREHOUSE"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Palettization Negotiated"
, 1
)
endif
{......................S
end samples
to show room with first delivery}
if (thirdpartlog_id > 0
) then {..................use 3PL}
call bpm_setactivitycontact
(thirdpartlog_cont_id
)
endif
call bpm_assign_job
( "Get a pair of Samples"
, ""
, "WAREHOUSE"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Samples
to show room S
ended"
, 1
)
{.........................check Goods and Labels}
callwait bpm_assign_job
( "Check Goods Quality"
, ""
, "QUALITY CONTROL"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Goods and Labels Checked"
, 1
)
errqualitycheck_flag = LookUpId
("AU_EVENT"
,rec_id
,"ERRQUALITYCHECK_FLAG"
)
{..................................Ask
for Quality Reimbursement}
if (errqualitycheck_flag = 1
) then
call bpm_assign_job
( "Ask Quality Reimbursement"
, ""
, "QUALITY CONTROL"
, 0
, rec_id
) {.....start new process}
call bpm_setcheckpoint
( "Quality Reimbursement Asked"
, 1
)
endif
{..................................Put Samples
to Showroom}
callwait bpm_assign_job
( "Put Samples
to Showroom"
, ""
, "WAREHOUSE"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Samples
to Showroom Put"
, 1
)
{..................................Import Costing}
callwait bpm_assign_job
( "Import Costing"
, ""
, "ACCOUNTING"
, 0
, rec_id
)
call bpm_setcheckpoint
( "Import Costing"
, 1
)
endif
end_action
