start_agent_info
AgentName = "AU_PRODUCTION_MASS_COORDINATOR"
AgentDescr = "Massive Production Coordinator"
AgentLanguage = ""
__timer_interval = 0 {....define
(in seconds
) the timer interval
for the wake up}
__delete_on_termination = 0 {....1=the agent frees itself
when terminates its task}
end_agent_info
start_bpm_activity "New Production Order"
start_bpm_subactivity "Subactivity Name To Change"
{.....a sample snipet of code is the following
(CHANGE IT!
)}
{.....you can add as many
(start_bpm_activity...
end_bpm_subactivity
) sections you want}
rec = __params[1] {...usualy the rec_id passed
to bpm_assign_job}
expr = strcat
(rec
,"=SOME_UNIQUE_FIELD_NAME"
)
call OpenFormTop
("ptEdit"
,"
THE_FORM_NAME_FOR_EDITING.FM"
,"WORK.THE_TABLE_NAME"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
{.....you can ommit this section
if result is always
(1
) i.e. valid!}
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "New Mass Production Order"
start_bpm_subactivity "Production Order"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Plan Mass Production"
start_bpm_subactivity "Production Order"
rec = __params[1]
process_id = __params[2]
ag_name = __params[3]
ag_id = __params[4]
call OnOpenForm_DisableField
("PROD1_ACCEPT_FLAG"
)
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
, process_id
, ag_name
, ag_id
)
end_bpm_subactivity
start_bpm_subactivity "Defined Quantities"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Bil of Matterials"
start_bpm_subactivity "Production Order"
rec = __params[1]
form = __params[2]
expr = strcat
(rec
,"=AU_EVENT"
)
call OnOpenForm_DisablePost
()
call OpenFormTop
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Defined Product Quantities"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
start_bpm_subactivity "Reqired Bill of Matterials"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_BIL_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Production Order"
start_bpm_subactivity "Production Order"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Setup Machine"
start_bpm_subactivity "Production Order"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Materials
for Production"
start_bpm_subactivity "Row Materials Moving"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit";"
AU_GOOD_MOVE_E.FM";"WORK.AU_EVENT";1;expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Products Storage"
start_bpm_subactivity "Products Moving"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit";"
AU_GOOD_MOVE_E.FM";"WORK.AU_EVENT";1;expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Define All Quantities"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=Massive Production Coordinator"
)
call OpenFormTop
("ptEdit"
,"Massive Production Coordinator"
,"WORK.Massive Production Coordinator"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Set Production Delivery"
start_bpm_subactivity "Production Order"
rec = __params[1]
call OnOpenForm_DisableAllFields
()
call OnOpenForm_EnableField
("PROD1_ACCEPT_FLAG"
)
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Set Finishing Dates"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Production"
start_bpm_subactivity "Production Scheduling"
call OpenFormTop
("ptBrowse"
,"
AU_PRODUCTION_SC.FM"
,"QRY.DATA"
,"PRODUCTION DEPARTMENT"
)
end_bpm_subactivity
start_bpm_subactivity "Production Execution"
call OpenJobExecutor
("SCHEDULERBROW_KON.BSCH"
,"PRODUCTION DEPARTMENT"
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Production Execution"
start_bpm_subactivity "Production Execution"
call OpenJobExecutor
("SCHEDULERBROW_KON.BSCH"
,"PRODUCTION DEPARTMENT"
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Production Scheduling"
start_bpm_subactivity "Production Order"
rec = __params[1]
process_id = __params[2]
ag_name = __params[3]
ag_id = __params[4]
call OnOpenForm_DisableField
("PROD1_ACCEPT_FLAG"
)
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
, process_id
, ag_name
, ag_id
)
end_bpm_subactivity
start_bpm_subactivity "Defined Quantities"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
start_bpm_subactivity "Production Scheduling"
call OpenFormTop
("ptBrowse"
,"
AU_PRODUCTION_SC.FM"
,"QRY.DATA"
,"PRODUCTION DEPARTMENT"
)
end_bpm_subactivity
start_bpm_subactivity "Production Execution"
call OpenJobExecutor
("SCHEDULERBROW_KON.BSCH"
,"PRODUCTION DEPARTMENT"
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Create Production Activities"
start_bpm_subactivity "Production Order"
rec = __params[1]
process_id = __params[2]
ag_name = __params[3]
ag_id = __params[4]
call OnOpenForm_DisableField
("PROD1_ACCEPT_FLAG"
)
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
, process_id
, ag_name
, ag_id
)
end_bpm_subactivity
start_bpm_subactivity "Defined Quantities"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Quality Control"
start_bpm_subactivity "Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_QUALCONTR"
)
call OpenFormTop
("ptEdit"
,"
AU_QUALCONTR_E.FM"
,"WORK.AU_QUALCONTR"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Define Production Quantities"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=Massive Production Coordinator"
)
call OpenFormTop
("ptEdit"
,"Massive Production Coordinator"
,"WORK.Massive Production Coordinator"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "Complete Production Quantities"
start_bpm_subactivity "Production Order"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OnOpenForm_DisablePost
()
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Defined Quantities"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
start_bpm_subactivity "Check BOMs Validity"
rec = __params[1]
flag = message_yes_no
("Do you want
to Check BOMs Validity?"
)
if (flag = 1
) then
call CreateCheckBoms
(rec
)
call message
("done!"
)
endif
end_bpm_subactivity
start_bpm_subactivity "Supply BOMs
to Final Products"
rec = __params[1]
flag = message_yes_no
("Do you want
to Supply BOMs
to Final Products?"
)
if (flag = 1
) then
call CreateSupplyBoms
(rec
)
call message
("done!"
)
endif
end_bpm_subactivity
start_bpm_subactivity "Inspect Participating BOMs"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_FORM_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
start_bpm_subactivity "Calculate Semifinished"
rec = __params[1]
flag = message_yes_no
("Do you want
to Calculate Semifinished?"
)
if (flag = 1
) then
call CreateSemifinished
(rec
)
call message
("done!"
)
endif
end_bpm_subactivity
start_bpm_subactivity "Calculate MRP I"
rec = __params[1]
proc_id = __params[2]
flag = message_yes_no
("Do you want
to Calculate MRP I"
)
if (flag = 1
) then
call CreateRawmaterials
(rec
,proc_id
)
call message
("done!"
)
endif
end_bpm_subactivity
start_bpm_subactivity "Calculate Standard Cost"
rec = __params[1]
flag = message_yes_no
("Do you want
to Calculate Standard Cost"
)
if (flag = 1
) then
call CreateProdPlanStandardCost
(rec
)
call message
("done!"
)
endif
end_bpm_subactivity
start_bpm_subactivity "Bill of Materials"
call OpenFormTop
("ptBrowse";"
AU_PROD_RECIPIE_B.FM";"QRY.DATA"
,"ALL_MODE"
)
end_bpm_subactivity
start_bpm_subactivity "Inventory Stock"
call OpenFormTop
("ptBrowse"
,"
AU_ALLPRODUCT_QUANT_B.FM"
,"QRY.DATA"
,"PRODUCT_MODE"
)
end_bpm_subactivity
start_bpm_subactivity "Other data"
Workcenters Downtime
Workcenters Planned Maintenance
end_bpm_subactivity
start_bpm_subactivity "Shift Patterns"
call OpenFormTop
("ptBrowse";"
AU_SHIFT_B.FM";"QRY.DATA"
)
end_bpm_subactivity
start_bpm_subactivity "Workcenters"
call OpenFormTop
("ptBrowse";"
AU_RESOURCE_GROUP_B.FM";"QRY.DATA"
)
end_bpm_subactivity
start_bpm_subactivity "Machine Setups"
call OpenFormTop
("ptBrowse";"
AU_EQUIPMENT_SETUP_B.FM";"QRY.DATA"
)
end_bpm_subactivity
start_bpm_subactivity "Resources Cost snd Supply Lead Times"
call OpenFormTop
("ptBrowse";"
AU_RESOURCE_COST_B.FM";"QRY.DATA"
,"EVENT_MODE"
,__params[1]
)
end_bpm_subactivity
start_bpm_subactivity "Production Standard Cost"
call OpenFormTop
("ptBrowse";"
AU_STANDARDCOST_B.FM";"QRY.DATA"
,"EVENT_MODE"
,__params[1]
)
end_bpm_subactivity
start_bpm_subactivity "Purchase Orders"
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PURCH_B.FM"
,"QRY.DATA"
,"OPEN_PURCH_ORDERS"
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Urgent Purchase Orders"
start_bpm_subactivity "Production Order"
rec = __params[1]
expr = strcat
(rec
,"=AU_EVENT"
)
call OnOpenForm_DisablePost
()
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Defined Product Quantities"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
start_bpm_subactivity "Reqired Bill of Matterials"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_BIL_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
start_bpm_subactivity "Materials Purchase Scheduling"
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PURCH_B.FM"
,"QRY.DATA"
,"ALL_MODE"
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Production Costs"
start_bpm_subactivity "Production Order"
rec = __params[1]
process_id = __params[2]
ag_name = __params[3]
ag_id = __params[4]
call OnOpenForm_DisableField
("PROD1_ACCEPT_FLAG"
)
expr = strcat
(rec
,"=AU_EVENT"
)
call OpenFormTop
("ptEdit"
,"
AU_MASS_PROD_ORDER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
, process_id
, ag_name
, ag_id
)
end_bpm_subactivity
start_bpm_subactivity "Defined Quantities"
rec = __params[1]
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_B.FM"
,"QRY.DATA"
,"EVENT_MODE"
,rec
)
end_bpm_subactivity
start_bpm_subactivity "Calculate Standard Cost"
rec = __params[1]
flag = message_yes_no
("Do you want
to Calculate Standard Cost"
)
if (flag = 1
) then
call CreateProdPlanStandardCost
(rec
)
call message
("done!"
)
endif
end_bpm_subactivity
start_bpm_subactivity "Production Standard Cost"
call OpenFormTop
("ptBrowse";"
AU_STANDARDCOST_B.FM";"QRY.DATA"
,"EVENT_MODE"
,__params[1]
)
end_bpm_subactivity
start_bpm_subactivity "Total Production Standard Cost "
end_bpm_subactivity
start_bpm_subactivity "Detailed Activity Based Costing"
end_bpm_subactivity
start_bpm_subactivity "Products AB Costs"
end_bpm_subactivity
start_bpm_subactivity "Total Production AB Cost"
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Inspect Resources Cost"
start_bpm_subactivity "Calculate Standard Cost"
rec = __params[1]
flag = message_yes_no
("Do you want
to Calculate Standard Cost"
)
if (flag = 1
) then
call CreateProdPlanStandardCost
(rec
)
call message
("done!"
)
endif
end_bpm_subactivity
start_bpm_subactivity "Resources Costs"
call OpenFormTop
("ptBrowse";"
AU_RESOURCE_COST_B.FM";"QRY.DATA"
,"EVENT_MODE"
,__params[1]
)
end_bpm_subactivity
start_bpm_subactivity "Production Standard Cost"
call OpenFormTop
("ptBrowse";"
AU_STANDARDCOST_B.FM";"QRY.DATA"
,"EVENT_MODE"
,__params[1]
)
end_bpm_subactivity
start_bpm_subactivity "All Resources Costs"
call OpenFormTop
("ptBrowse";"
AU_RESOURCE_COST_B.FM";"QRY.DATA"
,"ALL_MODE"
)
end_bpm_subactivity
end_bpm_activity
start_action
rec_id = __params[1]
form = __params[2]
comm = __params[3]
call bpm_setprocedurecomment
(comm
) {.....set the procedures comment}
call bpm_setprocedureowner
(__activation_user
) {.....set the procedure owner}
call bpm_addcheckpoint
( "Define Final Products Quantities
to Produce"
, 1
)
call bpm_addcheckpoint
( "Semifinal Products Requirements"
, 1
)
call bpm_addcheckpoint
( "Raw Materials Requierements"
, 1
)
call bpm_addcheckpoint
( "Purchase Orders
for stock-out Materials Requirements"
, 1
)
call bpm_addcheckpoint
( "Products Standard Costs"
, 1
)
call bpm_addcheckpoint
( "Total Production Standard Cost"
, 1
)
call bpm_addcheckpoint
( "Machine Setup Orders"
, 1
)
call bpm_addcheckpoint
( "Machine Production Orders"
, 1
)
call bpm_addcheckpoint
( "Materials Moves"
, 1
)
{...............complete the mass production form.............}
call bpm_openatonce
(0
)
callwait bpm_assign_job
( "New Mass Production Order"
, __activation_user
, ""
, 0
, rec_id
)
{...................................get all "free" AU_EVENT_PROD
for production....................}
start_sql "*" "KOSMOS"
SELECT AU_EVENT_PROD
FROM AU_EVENT_PROD
WHERE (AU_EVENT = 0
)
AND
(RELEASED_FLAG = '1'
)
end_sql
q = QueryByName
()
call TExecute
(q
)
count = TRecordCount
(q
)
call TFirst
(q
)
for i = 1
to count
prod_id = TGetFld
(q
,"AU_EVENT_PROD"
)
start_sql "*" "KOSMOS"
UPDATE AU_EVENT_PROD
WHERE (AU_EVENT_PROD = :PR
)
end_sql
q1 = QueryByName
()
call TSetParam
(q1
,"PR"
,prod_id
)
call TSetFld
(q1
,"AU_EVENT"
,"String"
,rec_id
)
call TExecute
(q1
)
call FreeEmbSQL
(q1
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
call bpm_assign_job
( "Inspect Resources Cost"
, ""
, "COST MANAGER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Complete Production Quantities"
, __activation_user
, "PRODUCTION SCHEDULE"
, 0
, rec_id
, __au_process
)
call bpm_assign_job
( "Urgent Purchase Orders"
, ""
, "PROCUREMENT"
, 0
, rec_id
, __au_process
)
for i := 1
to 100
split_in_branch
callwait bpm_assign_job
( "Plan Mass Production"
, __activation_user
, "PRODUCTION SCHEDULE"
, 0
, rec_id
, __au_process
, __ag_name
, __ag_id
)
and_branch
callwait bpm_assign_job
( "Set Production Delivery"
, ""
, "SALES MANAGER"
, 0
, rec_id
)
join_branches
prod0_flag = LookUpId
("AU_EVENT"
,rec_id
,"PROD0_ACCEPT_FLAG"
)
prod1_flag = LookUpId
("AU_EVENT"
,rec_id
,"PROD1_ACCEPT_FLAG"
)
sum = prod0_flag + prod1_flag
if (sum = 2
) then
i = 1000
endif
next
callwait bpm_assign_job
( "Create Production Activities"
, __activation_user
, "PRODUCTION SCHEDULE"
, 0
, rec_id
, __au_process
, __ag_name
, __ag_id
)
{.............................s
end info
to salespersons............................}
start_sql "*" "KOSMOS"
SELECT AU_GOOD.TITLE
AS GTITLE
, AU_EVENT_PROD.AU_EVENT_PROD
, AU_EVENT_PROD.QUANT
, AU_UNITMEAS.CODE
,
AU_EVENT_PROD.PDATE0
, AU_EVENT_PROD.PDATE
, AU_EVENT_PROD.SCOLOR
, AU_EVENT_PROD.AU_BUSINESS
,
AU_EVENT_PROD.GIVEN_ORDER
, AU_EVENT_PROD.OPTIM_ORDER
, AU_BUSINESS.TITLE
, AU_USER.UNAME
, AU_USER.UNAME
FROM (((AU_EVENT_PROD
LEFT JOIN AU_GOOD
ON AU_EVENT_PROD.AU_GOOD = AU_GOOD.AU_GOOD
)
LEFT
JOIN AU_UNITMEAS
ON AU_EVENT_PROD.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT
JOIN AU_BUSINESS
ON AU_EVENT_PROD.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT
JOIN AU_USER
ON AU_EVENT_PROD.SALESMAN = AU_USER.AU_USER
WHERE (AU_EVENT_PROD.AU_EVENT = :EV
)
AND
(AU_EVENT_PROD.AU_BUSINESS > 0
)
end_sql
q = QueryByName
()
call TSetParam
(q
,"EV"
,rec_id
)
call TExecute
(q
)
count = TRecordCount
(q
)
call TFirst
(q
)
for i = 1
to count
good_id = TGetFld
(q
,"AU_GOOD"
)
salname = TGetFld
(q
,"UNAME"
)
bus_id = TGetFld
(q
,"AU_BUSINESS"
)
quant = TGetFld
(q
,"QUANT"
)
gname = TGetFld
(q
,"GTITLE"
)
fdate0 = TGetFld
(q
,"PDATE0"
)
fdate1 = TGetFld
(q
,"PDATE"
)
fdate0_num = DateToNum
(fdate0
)
fdate1_num = DateToNum
(fdate1
)
fdate = fdate1
if (fdate1 <> fdate0
) then
fdate = fdate0 {...set the required date}
endif
comm = strcat
(quant
,"/"
,gname
)
call bpm_setactivitycomment
(comm
)
call bpm_setstepfinaldate
(fdate
)
call bpm_setactivitybusiness
(bus_id
)
id = bpm_assign_info
( "Production"
, salname
, "SALES"
, 0
, rec_id
, good_id
)
call UpdateTable
("AU_STEP"
,id
,"STEP_INFO"
,"In Production"
,"PRIORITY"
,5
,""
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
{............................schedule and execute until the
end...........}
id = bpm_assign_info
( "Production Execution"
, ""
, "PRODUCTION EXECUTION"
, 0
, rec_id
)
callwait bpm_assign_job
( "Production Scheduling"
, ""
, "PRODUCTION SCHEDULE"
, 0
, rec_id
, __au_process
, __ag_name
, __ag_id
)
{................just
to define the prototype of activities.........}
if (1 = 2
) then
call bpm_assign_job
( "Production Order"
, ""
, "PRODUCTION"
, 0
)
call bpm_assign_job
( "Setup Machine"
, ""
, "PRODUCTION"
, 0
)
call bpm_assign_job
( "Quality Control"
, ""
, "PRODUCTION QUALITY CONTROL"
, 0
)
call bpm_assign_job
( "Materials
for Production"
, ""
, "WAREHOUSE"
, 0
)
call bpm_assign_job
( "Products Storage"
, ""
, "WAREHOUSE"
, 0
)
endif
callwait bpm_assign_job
( "Production Costs"
, ""
, "GENERAL MANAGER"
, 0
, rec_id
, __au_process
, __ag_name
, __ag_id
)
end_action
