CLASS Consultingwerk.OeraTests.SCL2339.FetchDataByKeyTableRequest
    INHERITS FetchDataRequest
    IMPLEMENTS IFetchDataByKeyTableRequest:

    DEFINE TEMP-TABLE ttCustomer NO-UNDO
        FIELD CustNum AS INTEGER
        INDEX CustNum IS UNIQUE CustNum .

    DEFINE PUBLIC PROPERTY KeyValueTableHandle AS HANDLE NO-UNDO
    GET.
    PRIVATE SET.

    CONSTRUCTOR PUBLIC FetchDataByKeyTableRequest ():

        ASSIGN THIS-OBJECT:KeyValueTableHandle = TEMP-TABLE ttCustomer:HANDLE
               THIS-OBJECT:Tables              = "eCustomer":U .

    END CONSTRUCTOR.

    CONSTRUCTOR PUBLIC FetchDataByKeyTableRequest (poQuery AS CustomerQuery):

        THIS-OBJECT() .

        THIS-OBJECT:Queries = poQuery:ToQueryString(TRUE) .

    END CONSTRUCTOR.

    METHOD PUBLIC VOID AddCustomer (piCustNum AS INTEGER):

        CREATE ttCustomer.
        ASSIGN ttCustomer.CustNum = piCustNum .

        RELEASE ttCustomer .

    END METHOD.

END CLASS.

DEFINE VARIABLE oRequest  AS FetchDataByKeyTableRequest NO-UNDO .
DEFINE VARIABLE oQuery    AS CustomerQuery              NO-UNDO .
DEFINE VARIABLE oCustomer AS CustomerDatasetModel       NO-UNDO .

oQuery = NEW CustomerQuery () .
oQuery:SalesRep:Eq("HXM":U) .

oRequest = NEW FetchDataByKeyTableRequest (oQuery) .

FOR EACH Customer WHERE CustNum >= 20 AND CustNum <= 100:
    oRequest:AddCustomer(Customer.CustNum) .
END.

oCustomer = NEW CustomerDatasetModel () .
oCustomer:Customer:Fill (oRequest) .

    /**
     * Purpose: Locates the Widget handle with the given name based
     *          on a list of widget handles
     * Notes:   Used to find a Frame handle in the cWinKitListOfFrameHandles
     *          variable, etc.
     * @param pcWidgetName The name of the frame to locate
     * @param pcWidgetHandles The comma delimited list of frame handles
     * @return The handle of the frame with the requested name or ?
     */
    METHOD PUBLIC STATIC HANDLE FindWidgetWithName (pcWidgetName AS CHARACTER,
                                                    pcWidgetHandles AS CHARACTER):

    /**
     * Purpose: Creates a Button Tool (RootTool only) in the UltraToolbarsManager
     *          based on the properties of a ABL Button Widget
     * Notes:
     * @param poToolbarsManager The reference to the UltraToolbarsManager that contains the Ribbon
     * @param phButton The HANDLE of the ABL BUTTON widget
     * @param pcButtonKey The key for the new button
     * @return The reference to the ButtonTool that was created to represent the ABL BUTTON widget
     */
    METHOD PUBLIC STATIC ButtonTool CreateButtonToolFromButton (poToolbarsManager AS UltraToolbarsManager,
                                                                phButton AS HANDLE,
                                                                pcButtonKey AS CHARACTER):

    @RestMethod (address="/TestWithRespose3", requestMethod="get", response="return").
    METHOD PUBLIC RestMethodResponse TestMethod4 ():
 
        DEFINE VARIABLE oResponse  AS OpenEdge.Core.String NO-UNDO .
        DEFINE VARIABLE lcResponse AS LONGCHAR             NO-UNDO .
 
        lcResponse = "Hallo Welt!" .
 
        oResponse = NEW OpenEdge.Core.String (lcResponse) .
 
        RETURN NEW RestMethodResponse (oResponse,
                                       "text/plain") .
 
    END METHOD.
 

    METHOD OVERRIDE PUBLIC CHARACTER SourceColumn (pcTable AS CHARACTER, pcColumn AS CHARACTER):
 
        DEFINE VARIABLE cMap  AS CHARACTER NO-UNDO.
        DEFINE VARIABLE iPos  AS INTEGER   NO-UNDO .
 
        @SourceColumnCaseBlock.
        CASE pcTable:
            WHEN "eCustomer":U THEN
                cMap = BUFFER eCustomer:DATA-SOURCE-COMPLETE-MAP .
 
        END CASE .

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

BLOCK-LEVEL ON ERROR UNDO, THROW.

USING Consultingwerk.Framework.* FROM PROPATH .
USING Consultingwerk.Util.*      FROM PROPATH.

{Consultingwerk/products.i}

DEFINE VARIABLE oStartupManager AS GuiClientStartupManager NO-UNDO .

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

IF NOT CONNECTED (&IF DEFINED (SmartDB) NE 0 &THEN "{&SmartDB}":U &ELSE "SmartDB":U &ENDIF) THEN
    oStartupManager = NEW GuiClientStartupManager ("Consultingwerk/Windows/Framework/Reference/startup_gui_client.json":U) .
ELSE
    oStartupManager = NEW GuiClientStartupManager ("Consultingwerk/Windows/Framework/Reference/startup_gui_fatclient.json":U) .

oStartupManager:initialize() .

CATCH err AS Progress.Lang.Error:
    ErrorHelper:ShowErrorMessageBox (err).
END CATCH.

    "staticProperties": {
        "Consultingwerk.Framework.GuiClientStartupManager:TaskbarApplicationId": "de.consultingwerk.reference.mainmenuform",
        "Consultingwerk.OERA.DataAccess:LogFetchDataDetails": true,
        "Consultingwerk.OERA.ServiceInterface:LoggingLevelAsCharacter": "Request",
        "Consultingwerk.Framework.FrameworkSettings:ApplicationLabel": "Consultingwerk Reference Application",
        "Consultingwerk.Framework.FrameworkSettings:BaseRegistryKey": "Software\\Consultingwerk Ltd.\\Sample Applications\\",
        "Consultingwerk.Framework.FrameworkSettings:StoreWindowPosition": true,
        "Consultingwerk.Framework.FrameworkSettings:StoreRibbonQuickAccessToolbar": true,
        "Consultingwerk.Framework.FrameworkSettings:StoreUltraSplitterPosition": true,
        "Consultingwerk.SmartComponents.Implementation.SmartDataBrowser:SaveColumnSettings": true,
        "Consultingwerk.SmartComponents.Implementation.SmartToolbarControllerSettings:SmartToolbarControllerDefaultExit": true,
        "Consultingwerk.Framework.FrameworkSettings:DebugMode": true,
        "Consultingwerk.Framework.NotifyIconWaitStateManager:IdleIconFileName": "Consultingwerk/Framework/NotifyIcons/server_client.ico",
        "Consultingwerk.Framework.NotifyIconWaitStateManager:BusyIconFileName": "Consultingwerk/Framework/NotifyIcons/server_client_exchange.ico",
        "Consultingwerk.Framework.GuiClientStartupManager:StartupForm": "Consultingwerk.Windows.Framework.Reference.MainMenuForm",
        "Consultingwerk.Util.ClassHelper:UseExternalRuntimeForGetClassNames": true,
        "Consultingwerk.SmartComponents.Base.SmartWindowFormController:MapEnterKeyToTab": true
    }

    /**
     * Purpose: Returns the HTTP ContentType of the response
     * Notes:   Should default to application/json
     */
    DEFINE PUBLIC PROPERTY ContentType AS CHARACTER NO-UNDO
    PUBLIC GET.

    /**
     * Purpose: Returns the Response Entity
     * Notes:
     */
    DEFINE PUBLIC PROPERTY Entity AS Progress.Lang.Object NO-UNDO
    GET.
    SET.

    /**
     * Purpose: Returns the HTTP StatusCode as a StatusCodeEnum value
     * Notes:
     */
    DEFINE PUBLIC PROPERTY StatusCode AS StatusCodeEnum NO-UNDO
    GET.

    /**
     * Purpose: Returns the HTTP StatusReason (e.g. OK)
     * Notes:   Should default to StatusCodeHelper:GetMessage (StatusCode)
     */
    DEFINE PUBLIC PROPERTY StatusReason AS CHARACTER NO-UNDO
    GET.

END INTERFACE.

    @RestMethod (address="/TestNoRespose", requestMethod="get", parameterClassName="Consultingwerk.CharacterHolder", response="return").
    METHOD PUBLIC RestMethodResponse TestMethod (poInput AS CharacterHolder):

        RETURN NEW RestMethodResponse (StatusCodeEnum:NoContent) .

    END METHOD.

    @RestMethod (address="/TestWithRespose1", requestMethod="get", parameterClassName="Consultingwerk.CharacterHolder", response="return").
    METHOD PUBLIC RestMethodResponse TestMethod2 (poInput AS CharacterHolder):

        RETURN NEW RestMethodResponse (NEW CharacterHolder (SUBSTITUTE ("Hello &1!", poInput:Value)),
                                       StatusCodeEnum:Accepted) .

    END METHOD.

    @RestMethod (address="/TestWithRespose2", requestMethod="get", parameterClassName="Consultingwerk.CharacterHolder", response="return").
    METHOD PUBLIC RestMethodResponse TestMethod3 (poInput AS CharacterHolder):

        DEFINE VARIABLE oJson AS JsonObject NO-UNDO .

        oJson = NEW JsonObject () .
        oJson:Add ("Hello", poInput:Value) .

        RETURN NEW RestMethodResponse (oJson,
                                       StatusCodeEnum:Accepted,
                                       "Angenommen") .

    END METHOD.