GeMIS_WEB/GUI/yourBarMate/ybmgetCategories.p

/*------------------------------------------------------------------------
    File        : ybmProducts.p
    Purpose     : 

    Syntax      :

    Description : 

    Author(s)   : walter.riechsteiner
    Created     : Tue Apr 06 15:28:25 CEST 2021
    Notes       :
  ----------------------------------------------------------------------*/

USING OpenEdge.Core.Collections.List FROM PROPATH.
USING OpenEdge.Core.Collections.IListIterator FROM PROPATH.
USING OpenEdge.Net.HTTP.IHttpResponse FROM PROPATH.
USING src.ch.adprime.api.yourbarmate.YourBarMateHandler FROM PROPATH.
USING src.ch.adprime.api.yourbarmate.beans.Category FROM PROPATH.
USING src.ch.adprime.communication.HttpHandler FROM PROPATH.

/*USING OpenEdge.Net.HTTP.IHttpResponse FROM PROPATH.        */

/* ***************************  Definitions  ************************** */

DEFINE VARIABLE ipcFirma            AS CHARACTER          NO-UNDO INIT '1000'.
DEFINE VARIABLE opcRetVal           AS CHARACTER          NO-UNDO.

DEFINE VARIABLE oYourBarMateHandler AS YourBarMateHandler NO-UNDO.

DEFINE VARIABLE oCategory           AS Category           NO-UNDO.
DEFINE VARIABLE oCategories         AS List               NO-UNDO.
        
DEFINE VARIABLE opErrorMessage      AS CHARACTER          NO-UNDO.
DEFINE VARIABLE oIterator           AS IListIterator      NO-UNDO.
DEFINE VARIABLE lRetVal             AS LOGICAL            NO-UNDO.
DEFINE VARIABLE cString             AS CHARACTER          NO-UNDO.
DEFINE VARIABLE ii                  AS INTEGER            NO-UNDO.
DEFINE VARIABLE cId                 AS CHARACTER          NO-UNDO.
DEFINE VARIABLE cName               AS CHARACTER          NO-UNDO.

{ propertiesYBM.i }

DEFINE TEMP-TABLE tWarenGrp LIKE WarenGrp
    FIELD lOK       AS LOGICAL
    FIELD lKGebinde AS LOGICAL
    .
DEFINE OUTPUT PARAMETER TABLE FOR tWarenGrp.

/* ********************  Preprocessor Definitions  ******************** */


/* ***************************  Main Block  *************************** */

IF lTest THEN 
DO:
    oYourBarMateHandler = NEW YourBarMateHandler().
    oYourBarMateHandler:cURL                 = cURI_CategoriesDev.
    oYourBarMateHandler:cApiKey              = cApiName.
    oYourBarMateHandler:cApiKeyValue         = cApiKeyDev.
    oYourBarMateHandler:cServerNameIndicator = cServerNameIndicatorDev.
    oYourBarMateHandler:lDebug               = TRUE.
END.
ELSE 
DO:
    oYourBarMateHandler = NEW YourBarMateHandler().
    oYourBarMateHandler:lDebug               = lDebug.
    oYourBarMateHandler:cURL                 = cURI_Categories.
    oYourBarMateHandler:cApiKey              = cApiName.
    oYourBarMateHandler:cApiKeyValue         = cApiKey.
    oYourBarMateHandler:cServerNameIndicator = cServerNameIndicator.
END.

/*  ----------------------------------------------------------  */
/*  Warengruppen / Kategorien Abfragen                          */
/*  ----------------------------------------------------------  */

lRetVal = oYourBarMateHandler:getCategories(OUTPUT opErrorMessage, OUTPUT oCategories).

DO WHILE TRUE:
    IF NOT lRetVal THEN LEAVE.
    IF oCategories:SIZE = 0 THEN LEAVE.

    oIterator = oCategories:ListIterator().

    EMPTY TEMP-TABLE tWarenGrp.
    DO WHILE oIterator:HasNext():
        oCategory = CAST (oIterator:Next(), Category).
        cId   = oCategory:cId.
        cName = oCategory:cName.
        
        CREATE  tWarenGrp.
        ASSIGN  
            tWarenGrp.Firma = ipcFirma
            tWarenGrp.Wgr   = INTEGER(cId)
            tWarenGrp.Bez1  = cName
            tWarenGrp.lOK   = TRUE.
    END.
    
    LEAVE.
END.