<img src="https://secure.perk0mean.com/176329.png" alt="" style="display:none;">

Subscribe to get new posts and updates delivered.

Call Business Objects From BPM Using 4GL/ABL Code

By TJ McDowell

ABL-4GL code Epicor

Call Business Objects From BPM Using 4GL/ABL Code

Interested in how to progress 4GL/ABL code to call Epicor business objects from a BPM? Good, we thought you might be.

Below is the source code that you can insert to automate Epicor business processes.

Here is the source.

{Bpm/Bpm.i &OBJECT_NAME=UD08 }
{core/CallContext/CallContext.i}
{bo/UD08/UD08_ds.i}
define input parameter iKey1 as character.
define input parameter iKey2 as character.
define input parameter iKey3 as character.

{&TRY_PRIVATE}
define variable morePages as logical.
define variable i as integer.
define variable hUD08 as handle.

RUN bo\UD08\UD08.p PERSISTENT SET hUD08.

if VALID-HANDLE (hUD08) THEN DO:

RUN GetRows IN hUD08 (input "Key1 = '" + iKey1 + "' and Key2 = '" + iKey2 + "' and Key3 = '" + iKey3 + "'", input "", {&output_dataset_UD08DataSet}, input 0, input 0, output morePages).
for each ttUD08:
message "good".
RUN DeleteByID IN hUD08 (input ttUD08.Key1, input ttUD08.Key2, input ttUD08.Key3, input ttUD08.Key4, input ttUD08.Key5) NO-ERROR.
end.
RUN GetRows IN hUD08 (input "Key1 = '" + STRING(iKey1) + "'", input "", {&output_dataset_UD08DataSet}, input 0, input 0, output morePages) NO-ERROR.

RUN GetaNewUD08 IN hUD08 ( {&input-output_dataset_UD08DataSet} ) NO-ERROR.

for each ttUD08 where ttUD08.RowMod = "A":
assign ttUD08.Key1 = iKey1.
assign ttUD08.Key2 = iKey1.
assign ttUD08.Key3 = iKey3.
end.

RUN Update IN hUD08 ({&input-output_dataset_UD08DataSet}) NO-ERROR.
end.
else do:
message "Could not create handle to UD08.p!".
end.

delete object hUD08.
{&CATCH_PRIVATE} ;

Can the experts at Datix help you with a problem?


 

While You're Here:

Tags: 4gl, abl, bpm, call business objects, code, Coding, database, Epicor® ERP, Epicor® and ERP, ERP Strategies & Implementations, ERP System, gaming techniques, integration, Power Tips: Epicor® ERP, tech savvy, customer service, how to, implementation, issues, progress code

YOUR ONE-STOP-SHOP WITH A BUSINESS-FIRST APPROACH

From start to finish, the expert consultants at Datix understand your business needs and execute software solutions that work.

Datix_ERP_CRM_BookCover4