f$PSI_ActiveBO

With this function, the active business object is retrieved internally and its name returned. This function must be called if the status –14 is returned when saving a data record. That happens if it becomes evident while saving a header data record that at least one more position data record must be entered. An example is creating a transaction header, which also always requires a transaction position. PSIPENTA then automatically opens the belonging form. With f$PSI_ActiveBO, the interface notes that the business object is active and writes its internal names onto the entered ePOS parameter.

Syntax:

Status = f$PSI_ActiveBO (ParaNameBO)

Argument

Type

Meaning

ParaNameBO

String

Name of the ePOS parameter on which the name of the active business object is written

Result:

Integer

Function status

Possible values: -3,-4,--999

Example: (creating a customer order)

Status = f$PSI_Detail (’PKVK’ ,0)

Status = f$PSI_Execute(2,’NUMGEN’)

.. Evaluate the status...

Status = f$PSI_GetField(’CUS_PROCESS_NO’,’PSIOrderHeader.OrderNo’,’’)
Status = f$PSI_SetFields (’PSIOrderHeader’,’List_AU_K’,’Errortxt’)
Status = f$PSI_Execute (2,’KP’)
Status = f$PSI_Save ()

Evaluate the status ...

Status = f$PSI_ActiveBO(’PSIOrderHeader.PosBO’)
Status = f$PSI_Detail (PSIOrderHeader.PosBO ,0)
Status = f$PSI_SetField (’ARTICLE_NO’,’1061’)
Status = f$PSI_SetField (’MD_POSITION_TYPE’,’N’)
Status = f$PSI_SetField (’ORDER_QUANTITY’,’1’)
Status = f$PSI_SetField (’DESIRED_DELIVERY_DATE’,’20040513’)
Status = f$PSI_Execute(2,’PP’)
Status = f$PSI_Execute(2,’TE’)
Status = f$PSI_Read ()
Status = f$PSI_Save ()