API RF GERE_SUPP

Package : Standard

Sous-programme Basic : Gere_Support

Nom de la gnc : gnc_rf_gere_support

En mode Lecture ou Suppression :

• Contrôle de disponibilité du support : il doit être vide.
• Vérification du contenant du support : son niveau conteneur doit être « 4 ».
• En mode suppression : suppression du support.

En mode Création :

• Identification de l’OP.
• identification du contenant (défini par le paramètre LRFOPR) : son niveau conteneur doit être égal à « 4 ».
• Identification du magasin virtuel associé au dépôt.
• Création du support avec le contenant défini par le paramètre LRFOPR.

If the data action mode is ‘read’ (mode = ‘L’) or ‘delete’ (mode = ‘S’).

For each child stock object data (LOBJSTK table) of the input stock object, read with the input third-party (typtie, sigtie) and idobjpere = input parameter idobj.

If the reuse of a ‘bac’ (not in glossary) used on the same vacation for a different picking list is allowed.

(If the parameter ‘LRFOPR’ is active and the value of the parameter field N3 is equal to 1.)

Read the picking list data (LOP table) with the input parameters (typtie, sigtie and idop).

If the picking list exists.

Search the last created stock movement (LMVTSTK table) with ‘regrouping’ type (typmvt='Z'), with an ‘E’ direction (sensmvt='E'), which corresponds to the input parameter (typtie) and to the found stock object’s identifiers (lobjstk.idobj, lobjstk.idobjpere), ordered descending by creation date (datcre) and creation time (heucre).

If the movement does not exist OR the movement does not belong to the same wave as the picking list found (lmvtstk.idbch != lop.idvac).

The API returns an error code 2.

If the picking list does not exist.

The API returns an error code 3.

Otherwise the API returns an error code 2.

Read the stock object data (LOBJSTK table), which corresponds to the input parameters (typtie, sigtie and idobj).

If the stock object does not exist, the API returns an error code 0.

Read the container data (LCNTREF table) with (lobjstk.typtie, lobjstk.sigtie, lobjstk.cnttyp, lobjstk.cntcod).

If the container does not exist the API returns the error code 0.

If the container’s code level is different from 4, the API returns the error code 0.

If the data action mode is ‘ delete’ (mode = ‘L’).

Delete the stock object.

If the deletion does not succeed, the API returns an error code 4.

Otherwise.

Read the picking list data (LOP table) with the input parameters (typtie, sigtie and idop).

If the picking list does not exist, the API returns an error code 3.

Store the input parameters (typtie, sigtie, idobj) into the logistic stock object to be created (LOBJSTK table).

If the parameter ‘LRFOPR ’ is not active, the API returns an error code 3.

Store the values of container code (cntcod) and container type (cnttyp) read from ‘LRFOPR’ parameter fields A1 and A2 into the logistic stock object to be created.

Read the container data (LCNTREF table) with the input parameters (typtie, sigtie) and with container code (cntcod) and container type (cnttyp) read from ‘LRFOPR’ parameter fields A1 and A2.

If the container does not exist, the API returns an error code 3.

If the container’s code level (codlncn) is different from 4, the API returns the error code 3

Store the value of the container’s code level (codlncn) into the logistic stock object to be created.

Read the depot data (LDEP table) with the input parameters (typtie, sigtie).

If the depot is not found, the API returns an error code 3.

Store the depot’s virtual logistic store code (magvir) into the logistic store code (lcodmag) and slot address (adremp) from the logistic stock object to be created.

Read the logistic store data (LMAG table) with (lobjstk.typtie, lobjstk.sigtie, lobjstk.lcodmag).

If the logistic store does not exist, the API returns an error code 3.

Store the logistic store’s type (typmag) into the logistic stock object to be created.

Initialize the stock type (typstock) for logistic stock object to be created with ‘0’.

Initialize the container number (nbrcnt) for logistic stock object to be created with ‘1’.

Read the container type data (LCNTTYP table) with (lobjstk.typtie, lobjstk.sigtie, lobjstk.cnttyp).

Store the container type’s product code (codpro) and the physical company code (codsoc_phy) into the

logistic stock object to be created.

Initialize the quantity of CU (qteunt) for the logistic stock object to be created with ‘1’.

Initialize the status for the logistic stock object to be created with an ‘Available’ value (statut=’0’).

Initialize the virtual picking flag (l_virtuel) for the logistic stock object to be created with ‘0’.

Initialize the moving in progress flag (flgencdpl) for the logistic stock object to be created with ‘0’.

Create the logistic stock object (LOBJSTK).

If the creation does not succeed, the API returns an error code 3.