/*------------------------------------------------------------------------
    File        : JomalaDatasetServiceAdapter
    Purpose     : 
    Syntax      : 
    Description : 
    Author(s)   : Tom
    Created     : Tue Jul 16 17:29:52 CEST 2019
    Notes       : 
  ----------------------------------------------------------------------*/

USING Progress.Lang.*.
USING ListLabel.OpenEdgeAdapter.OpenEdgeDatasetServiceAdapter FROM PROPATH.
USING ListLabel.OpenEdgeAdapter.OpenEdgeDatasetService FROM PROPATH.

/*BLOCK-LEVEL ON ERROR UNDO, THROW.*/

CLASS Jomala.JomalaDatasetServiceAdapter INHERITS OpenEdgeDatasetServiceAdapter:
    DEFINE VARIABLE mhProcedure  AS HANDLE  NO-UNDO.
    DEFINE VARIABLE mlDataLoaded AS LOGICAL NO-UNDO.
    
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    CONSTRUCTOR PUBLIC JomalaDatasetServiceAdapter ( poService AS OpenEdgeDatasetService, phProcedure AS HANDLE ):
        SUPER ( poService ).
        mhProcedure = phProcedure.
    END CONSTRUCTOR.

    METHOD OVERRIDE PUBLIC LOGICAL GetData( INPUT ServiceName AS CHARACTER, INPUT JsonServiceParameter AS TasteITConsulting.ListLabel24.OELongchar, INPUT JsonDataRequest AS TasteITConsulting.ListLabel24.OELongchar, OUTPUT JsonDataResponse AS TasteITConsulting.ListLabel24.OELongchar ):
        IF mlDataLoaded = FALSE THEN 
        DO:
            mlDataLoaded = TRUE.
            RUN getDataEventHandler IN mhProcedure (THIS-OBJECT).
        END.
        RETURN SUPER:GetData(INPUT ServiceName, INPUT JsonServiceParameter, INPUT JsonDataRequest, OUTPUT JsonDataResponse).
    END METHOD.
    
END CLASS.