GeMIS_WEB/GUI/w-bestellung.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME wBestellwesen
{adecomm/appserv.i}
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wBestellwesen 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrwin.w - ADM SmartWindow Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  History: New V9 Version - January 15, 1998
          
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AB.              */
/*----------------------------------------------------------------------*/

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

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

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

{ incl/windefinition.i }

{src/adm2/widgetprto.i}

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

&Scoped-define PROCEDURE-TYPE SmartWindow
&Scoped-define DB-AWARE no

&Scoped-define ADM-CONTAINER WINDOW

&Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME fMain

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS CB_Lager CB_Status Btn_Suchen 
&Scoped-Define DISPLAYED-OBJECTS CB_Lager CB_Status 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */

/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME


/* ************************  Function Prototypes ********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLager wBestellwesen 
FUNCTION getLager RETURNS INTEGER
    ( /* parameter-definitions */ )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getProgname wBestellwesen 
FUNCTION getProgname RETURNS CHARACTER
    ( /* parameter-definitions */ )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getStatus wBestellwesen 
FUNCTION getStatus RETURNS INTEGER
    ( /* parameter-definitions */ )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setStatus wBestellwesen 
FUNCTION setStatus RETURNS LOGICAL
    ( ipiStatus AS INTEGER )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* ***********************  Control Definitions  ********************** */

/* Define the widget handle for the window                              */
DEFINE VAR      wBestellwesen  AS WIDGET-HANDLE NO-UNDO.

/* Definitions of handles for SmartObjects                              */
DEFINE VARIABLE h_b-artlief    AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-beseing    AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-besko      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-besze      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-artlief    AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-beseing    AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-besko      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-besze      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_dyntoolbar   AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_f-besgebko   AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_folder       AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-beseing    AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-besko      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-besko-info AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-besze      AS HANDLE        NO-UNDO.

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Suchen 
    IMAGE-UP FILE "grafik/select.bmp":U
    IMAGE-DOWN FILE "grafik/select.bmp":U
    LABEL "Suchen" 
    SIZE 4 BY .95.

DEFINE VARIABLE CB_Lager  AS CHARACTER FORMAT "X(256)":U INITIAL "000000" 
    LABEL "Lager" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 30 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Status AS CHARACTER FORMAT "X(256)":U INITIAL "000001" 
    LABEL "Status" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 30 BY 1
    BGCOLOR 15 NO-UNDO.


/* ************************  Frame Definitions  *********************** */

DEFINE FRAME fMain
    CB_Lager AT ROW 1.1 COL 85 COLON-ALIGNED WIDGET-ID 4
    CB_Status AT ROW 1.1 COL 140 COLON-ALIGNED WIDGET-ID 6
    Btn_Suchen AT ROW 1.19 COL 69.4 WIDGET-ID 2
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
    SIDE-LABELS NO-UNDERLINE THREE-D 
    AT COL 1 ROW 1
    SIZE 216 BY 30.48 WIDGET-ID 100.


/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartWindow
   Allow: Basic,Browse,DB-Fields,Query,Smart,Window
   Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source
   Other Settings: COMPILE APPSERVER
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
    CREATE WINDOW wBestellwesen ASSIGN
        HIDDEN             = YES
        TITLE              = "Bestellwesen"
        HEIGHT             = 30.48
        WIDTH              = 216
        MAX-HEIGHT         = 30.48
        MAX-WIDTH          = 216
        VIRTUAL-HEIGHT     = 30.48
        VIRTUAL-WIDTH      = 216
        RESIZE             = NO
        SCROLL-BARS        = NO
        STATUS-AREA        = NO
        BGCOLOR            = ?
        FGCOLOR            = ?
        THREE-D            = YES
        MESSAGE-AREA       = NO
        SENSITIVE          = YES.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.

&IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN
IF NOT wBestellwesen:LOAD-ICON("grafik/appl.ico":U) THEN
    MESSAGE "Unable to load icon: grafik/appl.ico"
        VIEW-AS ALERT-BOX WARNING BUTTONS OK.
&ENDIF
/* END WINDOW DEFINITION                                                */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB wBestellwesen 
/* ************************* Included-Libraries *********************** */

    {src/adm2/containr.i}

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME




/* ***********  Runtime Attributes and AppBuilder Settings  *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW wBestellwesen
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   FRAME-NAME                                                           */
ASSIGN 
    Btn_Suchen:AUTO-RESIZE IN FRAME fMain = TRUE.

IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wBestellwesen)
    THEN wBestellwesen:HIDDEN = YES.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME

 



/* ************************  Control Triggers  ************************ */

&Scoped-define SELF-NAME wBestellwesen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wBestellwesen wBestellwesen
ON END-ERROR OF wBestellwesen /* Bestellwesen */
    OR ENDKEY OF {&WINDOW-NAME} ANYWHERE 
    DO:
        /* This case occurs when the user presses the "Esc" key.
           In a persistently run window, just ignore this.  If we did not, the
           application would exit. */
        IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY.
        /*  ******************************  */
        RUN ENDE.
        RETURN NO-APPLY.
    /*  ******************************  */
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wBestellwesen wBestellwesen
ON WINDOW-CLOSE OF wBestellwesen /* Bestellwesen */
    DO:
        /* This ADM code must be left here in order for the SmartWindow
           and its descendents to terminate properly on exit. */

        RUN ENDE.
        RETURN NO-APPLY.

    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Suchen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Suchen wBestellwesen
ON CHOOSE OF Btn_Suchen IN FRAME fMain /* Suchen */
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
        IF fMutFlag THEN RETURN NO-APPLY.
        RUN FINDEN NO-ERROR.
        RETURN NO-APPLY.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME CB_Lager
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Lager wBestellwesen
ON VALUE-CHANGED OF CB_Lager IN FRAME fMain /* Lager */
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
        IF fMutFlag THEN RETURN NO-APPLY.
        DYNAMIC-FUNCTION('openQuery':U IN h_d-besko) NO-ERROR.
        APPLY 'U1'.
        RETURN NO-APPLY.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME CB_Status
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Status wBestellwesen
ON VALUE-CHANGED OF CB_Status IN FRAME fMain /* Status */
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
        IF fMutFlag THEN RETURN NO-APPLY.
        DYNAMIC-FUNCTION('openQuery':U IN h_d-besko) NO-ERROR.
        APPLY 'U1'.
        RETURN NO-APPLY.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK wBestellwesen 


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

    
{ incl/winmainblock.i }
    
MaxSeite = 7.

SUBSCRIBE TO 'BESTELLMUTATION' ANYWHERE.
    
{src/adm2/windowmn.i}

ON 'INS':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
        IF FMutFlag THEN RETURN 'APPLY'.
        RUN TOOLBAR ( INPUT 'ADD':U ).
        RETURN NO-APPLY.
    END.
    
ON 'DELETE-CHARACTER':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
        IF FMutFlag THEN RETURN 'APPLY'.
        RUN TOOLBAR ( INPUT 'DELETE':U ).
        RETURN NO-APPLY.
    END.
    
ON 'ALT-F':U, 'CTRL-F':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN FINDEN NO-ERROR.
        RETURN NO-APPLY.
    END.

ON 'CTRL-N':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN FINDEN_NUMMER NO-ERROR.
        RETURN NO-APPLY.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* **********************  Internal Procedures  *********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wBestellwesen  _ADM-CREATE-OBJECTS
PROCEDURE adm-create-objects :
    /*------------------------------------------------------------------------------
      Purpose:     Create handles for all SmartObjects used in this procedure.
                   After SmartObjects are initialized, then SmartLinks are added.
      Parameters:  <none>
    ------------------------------------------------------------------------------*/
    DEFINE VARIABLE currentPage AS INTEGER NO-UNDO.

    ASSIGN 
        currentPage = getCurrentPage().

    CASE currentPage: 

        WHEN 0 THEN 
            DO:
                RUN constructObject (
                    INPUT  'd-besko.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-beskoOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch50RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-besko ).
                RUN repositionObject IN h_d-besko ( 5.86 , 14.20 ) NO-ERROR.
                /* Size in AB:  ( 2.86 , 20.40 ) */

                RUN constructObject (
                    INPUT  'v-besko-info.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-besko-info ).
                RUN repositionObject IN h_v-besko-info ( 4.00 , 3.00 ) NO-ERROR.
                /* Size in AB:  ( 1.91 , 205.00 ) */

                RUN constructObject (
                    INPUT  'd-artlief.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtLief.Firma,Firma,ArtLief.Knr,KnrObjectNamed-artliefOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch100RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-artlief ).
                RUN repositionObject IN h_d-artlief ( 7.19 , 105.00 ) NO-ERROR.
                /* Size in AB:  ( 3.10 , 22.00 ) */

                RUN constructObject (
                    INPUT  'd-besze.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsBesze.Firma,Firma,Besze.Besnr,BesnrObjectNamed-beszeOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch50RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-besze ).
                RUN repositionObject IN h_d-besze ( 10.05 , 15.40 ) NO-ERROR.
                /* Size in AB:  ( 3.24 , 23.20 ) */

                RUN constructObject (
                    INPUT  'd-beseing.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsBesEing.Firma,Firma,BesEing.Besnr,BesnrObjectNamed-beseingOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch1RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-beseing ).
                RUN repositionObject IN h_d-beseing ( 10.52 , 99.00 ) NO-ERROR.
                /* Size in AB:  ( 4.29 , 26.00 ) */

                RUN constructObject (
                    INPUT  'adm2/dyntoolbar.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EdgePixels2DeactivateTargetOnHideyesDisabledActionsFlatButtonsyesMenunoShowBorderyesToolbaryesActionGroupsTableio,NavigationTableIOTypeUpdateSupportedLinksNavigation-source,Tableio-sourceToolbarBandsToolbarAutoSizenoToolbarDrawDirectionHorizontalLogicalObjectNameDisabledActionsHiddenActionsResetHiddenToolbarBandsHiddenMenuBandsMenuMergeOrder0RemoveMenuOnHidenoCreateSubMenuOnConflictyesNavigationTargetNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_dyntoolbar ).
                RUN repositionObject IN h_dyntoolbar ( 1.00 , 1.00 ) NO-ERROR.
                RUN resizeObject IN h_dyntoolbar ( 1.24 , 67.20 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'adm2/folder.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'FolderLabels':U + 'Kopf (1)|Zeile (2)|Gebinde (3)|Eingang (4)|Artikelübersicht (5)|Rechnungen (6)' + 'FolderTabWidth0FolderFont-1HideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_folder ).
                RUN repositionObject IN h_folder ( 2.33 , 1.00 ) NO-ERROR.
                RUN resizeObject IN h_folder ( 29.14 , 216.00 ) NO-ERROR.

                /* Links to SmartDataObject h_d-besko. */
                RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-besko ).

                /* Links to SmartDataViewer h_v-besko-info. */
                RUN addLink ( h_d-besko , 'Data':U , h_v-besko-info ).

                /* Links to SmartDataObject h_d-artlief. */
                RUN addLink ( h_d-besko , 'Data':U , h_d-artlief ).

                /* Links to SmartDataObject h_d-besze. */
                RUN addLink ( h_d-besko , 'Data':U , h_d-besze ).

                /* Links to SmartDataObject h_d-beseing. */
                RUN addLink ( h_d-besko , 'Data':U , h_d-beseing ).

                /* Links to SmartFolder h_folder. */
                RUN addLink ( h_folder , 'Page':U , THIS-PROCEDURE ).

                /* Adjust the tab order of the smart objects. */
                RUN adjustTabOrder ( h_dyntoolbar ,
                    CB_Lager:HANDLE IN FRAME fMain , 'BEFORE':U ).
                RUN adjustTabOrder ( h_folder ,
                    Btn_Suchen:HANDLE IN FRAME fMain , 'AFTER':U ).
                RUN adjustTabOrder ( h_v-besko-info ,
                    h_folder , 'AFTER':U ).
            END. /* Page 0 */
        WHEN 1 THEN 
            DO:
                RUN constructObject (
                    INPUT  'b-besko.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-besko ).
                RUN repositionObject IN h_b-besko ( 6.00 , 4.00 ) NO-ERROR.
                RUN resizeObject IN h_b-besko ( 7.86 , 191.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'v-besko.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-besko ).
                RUN repositionObject IN h_v-besko ( 14.00 , 3.00 ) NO-ERROR.
                /* Size in AB:  ( 9.76 , 191.00 ) */

                /* Links to SmartDataBrowser h_b-besko. */
                RUN addLink ( h_d-besko , 'Data':U , h_b-besko ).

                /* Links to SmartDataViewer h_v-besko. */
                RUN addLink ( h_d-besko , 'Data':U , h_v-besko ).
                RUN addLink ( h_v-besko , 'Update':U , h_d-besko ).

                /* Adjust the tab order of the smart objects. */
                RUN adjustTabOrder ( h_b-besko ,
                    h_d-besko , 'AFTER':U ).
                RUN adjustTabOrder ( h_v-besko ,
                    h_d-beseing , 'AFTER':U ).
            END. /* Page 1 */
        WHEN 2 THEN 
            DO:
                RUN constructObject (
                    INPUT  'b-besze.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-besze ).
                RUN repositionObject IN h_b-besze ( 6.52 , 3.00 ) NO-ERROR.
                RUN resizeObject IN h_b-besze ( 7.38 , 205.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'v-besze.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-besze ).
                RUN repositionObject IN h_v-besze ( 14.43 , 3.00 ) NO-ERROR.
                /* Size in AB:  ( 13.57 , 205.00 ) */

                /* Links to SmartDataBrowser h_b-besze. */
                RUN addLink ( h_d-besze , 'Data':U , h_b-besze ).

                /* Links to SmartDataViewer h_v-besze. */
                RUN addLink ( h_d-besze , 'Data':U , h_v-besze ).
                RUN addLink ( h_v-besze , 'Update':U , h_d-besze ).

                /* Adjust the tab order of the smart objects. */
                RUN adjustTabOrder ( h_b-besze ,
                    h_d-besko , 'AFTER':U ).
                RUN adjustTabOrder ( h_v-besze ,
                    h_d-beseing , 'AFTER':U ).
            END. /* Page 2 */
        WHEN 3 THEN 
            DO:
                RUN constructObject (
                    INPUT  'f-besgebko.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_f-besgebko ).
                RUN repositionObject IN h_f-besgebko ( 6.24 , 4.00 ) NO-ERROR.
                /* Size in AB:  ( 24.76 , 148.60 ) */

                /* Links to SmartFrame h_f-besgebko. */
                RUN addLink ( h_d-besko , 'Data':U , h_f-besgebko ).

                /* Adjust the tab order of the smart objects. */
                RUN adjustTabOrder ( h_f-besgebko ,
                    h_d-besko , 'AFTER':U ).
            END. /* Page 3 */
        WHEN 4 THEN 
            DO:
                RUN constructObject (
                    INPUT  'b-beseing.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-beseing ).
                RUN repositionObject IN h_b-beseing ( 6.48 , 3.00 ) NO-ERROR.
                RUN resizeObject IN h_b-beseing ( 7.38 , 205.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'v-beseing.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-beseing ).
                RUN repositionObject IN h_v-beseing ( 14.33 , 4.00 ) NO-ERROR.
                /* Size in AB:  ( 9.76 , 205.00 ) */

                /* Links to SmartDataBrowser h_b-beseing. */
                RUN addLink ( h_d-beseing , 'Data':U , h_b-beseing ).

                /* Links to SmartDataViewer h_v-beseing. */
                RUN addLink ( h_d-beseing , 'Data':U , h_v-beseing ).
                RUN addLink ( h_v-beseing , 'Update':U , h_d-beseing ).

                /* Adjust the tab order of the smart objects. */
                RUN adjustTabOrder ( h_b-beseing ,
                    h_d-besko , 'AFTER':U ).
                RUN adjustTabOrder ( h_v-beseing ,
                    h_d-beseing , 'AFTER':U ).
            END. /* Page 4 */
        WHEN 5 THEN 
            DO:
                RUN constructObject (
                    INPUT  'b-artlief.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-artlief ).
                RUN repositionObject IN h_b-artlief ( 6.48 , 3.00 ) NO-ERROR.
                RUN resizeObject IN h_b-artlief ( 22.00 , 207.00 ) NO-ERROR.

                /* Links to SmartDataBrowser h_b-artlief. */
                RUN addLink ( h_d-artlief , 'Data':U , h_b-artlief ).

                /* Adjust the tab order of the smart objects. */
                RUN adjustTabOrder ( h_b-artlief ,
                    h_d-besko , 'AFTER':U ).
            END. /* Page 5 */

    END CASE.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE BESTELLMUTATION wBestellwesen 
PROCEDURE BESTELLMUTATION :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    DEFINE INPUT PARAMETER ipcArt      AS CHARACTER         NO-UNDO.

    CASE ipcArt:
        WHEN 'START' THEN 
            DO WITH FRAME {&FRAME-NAME}:
                CB_Lager :SENSITIVE = FALSE.
                CB_Status:SENSITIVE = FALSE.
            END.
        WHEN 'ENDE' THEN 
            DO WITH FRAME {&FRAME-NAME}:
                CB_Lager :SENSITIVE = TRUE.
                CB_Status:SENSITIVE = TRUE.
            END.
    END CASE.
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE changePage wBestellwesen 
PROCEDURE changePage :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    RUN SUPER.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    CASE AktSeite:

        WHEN 1 THEN 
            DO:
                RUN addLink ( hAktionen , 'TableIO':U    , h_v-besko        ).
                RUN setButtons  IN h_dyntoolbar ( INPUT 'Initial-TableIo':U ) NO-ERROR.
            END.
        WHEN 2 THEN 
            DO:
                RUN addLink ( hAktionen , 'TableIO':U    , h_v-besze        ).
                RUN setButtons  IN h_dyntoolbar ( INPUT 'Initial-TableIo':U ) NO-ERROR.
            END.
        WHEN 4 THEN 
            DO:
                RUN addLink ( hAktionen , 'TableIO':U    , h_v-beseing      ).
                RUN setButtons  IN h_dyntoolbar ( INPUT 'Initial-TableIo':U ) NO-ERROR.
            END.

    END CASE.

    RUN ENTRY_CURSOR.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wBestellwesen  _DEFAULT-DISABLE
PROCEDURE disable_UI :
    /*------------------------------------------------------------------------------
      Purpose:     DISABLE the User Interface
      Parameters:  <none>
      Notes:       Here we clean-up the user-interface by deleting
                   dynamic widgets we have created and/or hide 
                   frames.  This procedure is usually called when
                   we are ready to "clean-up" after running.
    ------------------------------------------------------------------------------*/
    /* Delete the WINDOW we created */
    IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wBestellwesen)
        THEN DELETE WIDGET wBestellwesen.
    IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wBestellwesen 
PROCEDURE enableObject :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_LAGER  ( CB_Lager:HANDLE ) NO-ERROR.
        RUN COMBO_BESTAT ( CB_Status:HANDLE ) NO-ERROR.
    END.

    { incl/winenableobject.i }

    RUN SUPER.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wBestellwesen  _DEFAULT-ENABLE
PROCEDURE enable_UI :
    /*------------------------------------------------------------------------------
      Purpose:     ENABLE the User Interface
      Parameters:  <none>
      Notes:       Here we display/view/enable the widgets in the
                   user-interface.  In addition, OPEN all queries
                   associated with each FRAME and BROWSE.
                   These statements here are based on the "Other 
                   Settings" section of the widget Property Sheets.
    ------------------------------------------------------------------------------*/
    DISPLAY CB_Lager CB_Status 
        WITH FRAME fMain IN WINDOW wBestellwesen.
    ENABLE CB_Lager CB_Status Btn_Suchen 
        WITH FRAME fMain IN WINDOW wBestellwesen.
    {&OPEN-BROWSERS-IN-QUERY-fMain}
    VIEW wBestellwesen.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE wBestellwesen 
PROCEDURE ENDE :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    { incl/winende.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENTRY_CURSOR wBestellwesen 
PROCEDURE ENTRY_CURSOR :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U)             NO-ERROR.
    FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) NO-ERROR.

    CASE AktSeite:
        WHEN 1 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-besko    ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-besko    ( INPUT ? ).
            END.
        WHEN 2 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-besze    ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-besze    ( INPUT ? ).
            END.
        WHEN 4 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-beseing  ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-beseing  ( INPUT ? ).
            END.
    /*         WHEN 1 THEN RUN applyEntry IN h_v-adresse  ( INPUT ? ). */
    /*         WHEN 2 THEN RUN applyEntry IN h_f-adrkomm  ( INPUT ? ). */
    /*         WHEN 3 THEN RUN applyEntry IN h_b-auftbb   ( INPUT ? ). */
    /*         WHEN 4 THEN RUN applyEntry IN h_b-aufdet   ( INPUT ? ). */
    /*         WHEN 5 THEN RUN applyEntry IN h_b-aufstreu ( INPUT ? ). */
    /*         WHEN 6 THEN RUN applyEntry IN h_b-auffak   ( INPUT ? ). */
    /*         WHEN 7 THEN RUN applyEntry IN h_b-position ( INPUT ? ). */
    END CASE.

    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject wBestellwesen 
PROCEDURE exitObject :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FINDEN wBestellwesen 
PROCEDURE FINDEN :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    DEFINE VARIABLE iRecid  AS RECID     NO-UNDO.
    DEFINE VARIABLE cRowid  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iStatus AS INTEGER   NO-UNDO.
    DEFINE VARIABLE ii      AS INTEGER   NO-UNDO.
    
    DEFINE BUFFER bAdresse FOR Adresse.
    DEFINE BUFFER bBesko   FOR Besko.

    FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
    IF fMutFlag THEN RETURN NO-APPLY.
    
    iRecid = ?.
    RUN g-suchen-adresse.w ( INPUT 'LIE;', OUTPUT iRecid ).
    
    IF iRecid = ?   THEN RETURN.
    IF iRecid = 0   THEN RETURN.
    
    FIND bAdresse NO-LOCK WHERE RECID(bAdresse) = iRecid NO-ERROR.
    
    iStatus = DYNAMIC-FUNCTION('getStatus':U IN THIS-PROCEDURE) NO-ERROR.
    FIND FIRST bBesko NO-LOCK
        WHERE bBesko.Firma    = Firma
        AND   bBesko.Knr      = bAdresse.Knr
        AND   bBesko.Best_Sta = iStatus NO-ERROR.
    IF NOT AVAILABLE bBesko THEN 
    DO:
        DO ii = 1 TO 3:
            IF ii = iStatus THEN NEXT.
            FIND FIRST bBesko NO-LOCK
                WHERE bBesko.Firma    = Firma
                AND   bBesko.Knr      = bAdresse.Knr
                AND   bBesko.Best_Sta = ii NO-ERROR.
            IF NOT AVAILABLE bBesko THEN NEXT.
        END.
    END.
    IF NOT AVAILABLE bBesko THEN RETURN NO-APPLY.
    IF bBesko.Best_Sta <> iStatus THEN 
    DO:
        DYNAMIC-FUNCTION ('setStatus':U IN THIS-PROCEDURE, bBesko.Best_Sta) NO-ERROR.
    END.
    cRowId = STRING(ROWID(bBesko)).
    
    RUN SET_SORT IN h_d-Besko ( 'Knr' ).
    
    DYNAMIC-FUNCTION('fetchRowIdent':U IN h_d-besko, cRowid, ?) NO-ERROR.
    
    RELEASE bAdresse.
    RELEASE bBesko.

    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FINDEN_NUMMER wBestellwesen 
PROCEDURE FINDEN_NUMMER :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    DEFINE VARIABLE iNummer AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cRowId  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iStatus AS INTEGER   NO-UNDO.
    DEFINE VARIABLE rBesko  AS RECID     NO-UNDO.
    
    DEFINE BUFFER bBesko FOR Besko.

    FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, Progname) NO-ERROR.
    IF FMutFlag THEN RETURN NO-APPLY.

    RUN g-einlesen-nummer.w ( 'Eingabe Bestellnummer', 'Bestellnummer', OUTPUT iNummer).
    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        IF iNummer = ?  THEN LEAVE.
        IF iNummer = 0  THEN LEAVE.
        iStatus = DYNAMIC-FUNCTION('getStatus':U IN THIS-PROCEDURE) NO-ERROR.
        FIND FIRST bBesko NO-LOCK
            WHERE bBesko.Firma = Firma
            AND   bBesko.Besnr = iNummer NO-ERROR.
        IF NOT AVAILABLE bBesko THEN LEAVE.

        IF bBesko.Best_Sta <> iStatus THEN 
        DO WITH FRAME {&FRAME-NAME}:
            rBesko = RECID(bBesko).
            DYNAMIC-FUNCTION ('setStatus':U IN THIS-PROCEDURE, bBesko.Best_Sta) NO-ERROR.
            
            FIND FIRST bBesko NO-LOCK WHERE RECID(bBesko) = rBesko NO-ERROR.
            cRowId = STRING(ROWID(bBesko)).
            DYNAMIC-FUNCTION('fetchRowIdent':U IN h_d-besko, cRowid, ?) NO-ERROR.
        END.
        LEAVE.
    END.

    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject wBestellwesen 
PROCEDURE initializeObject :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

    { incl/wininitializeobject.i }

    RUN SET_OPENFLAG IN h_d-besko ( TRUE ) NO-ERROR.
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SEITENWECHSEL wBestellwesen 
PROCEDURE SEITENWECHSEL :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    { incl/winseitenwechsel.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage wBestellwesen 
PROCEDURE selectPage :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    DEFINE INPUT PARAMETER piPageNum   AS INTEGER                      NO-UNDO.

    DEFINE VARIABLE FMutFlag AS LOG       NO-UNDO.
    DEFINE VARIABLE MutProg  AS CHARACTER NO-UNDO.

    FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
    IF FMutFlag THEN RETURN NO-APPLY.

    CASE piPageNum:

    END CASE.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    CASE AktSeite:

        WHEN 1 THEN 
            DO:
                RUN removeLink ( hAktionen , 'TableIO':U    , h_v-besko       ).
            /*             RUN removeLink ( hAktionen , 'Navigation':U , h_d-besko       ). */
            END.
        WHEN 2 THEN 
            DO:
                RUN removeLink ( hAktionen , 'TableIO':U    , h_v-besze       ).
            /*             RUN removeLink ( hAktionen , 'Navigation':U , h_d-besko       ). */
            END.
        WHEN 4 THEN 
            DO:
                RUN removeLink ( hAktionen , 'TableIO':U    , h_v-beseing     ).
            /*             RUN removeLink ( hAktionen , 'Navigation':U , h_d-besko       ). */
            END.

    END CASE.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME




&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TOOLBAR wBestellwesen 
PROCEDURE TOOLBAR :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    { incl/wintoolbar.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE viewObject wBestellwesen 
PROCEDURE viewObject :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    RUN SUPER.

    RUN ENTRY_CURSOR.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

/* ************************  Function Implementations ***************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLager wBestellwesen 
FUNCTION getLager RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    DEFINE VARIABLE iLager AS INTEGER NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        iLager = INTEGER(CB_Lager:SCREEN-VALUE).
    END.
    
    RETURN iLager.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgname wBestellwesen 
FUNCTION getProgname RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    RETURN Progname.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getStatus wBestellwesen 
FUNCTION getStatus RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */

    DEFINE VARIABLE iStatus AS INTEGER NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        iStatus = INTEGER(CB_Status:SCREEN-VALUE).
    END.
    
    RETURN iStatus.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setStatus wBestellwesen 
FUNCTION setStatus RETURNS LOGICAL
    ( ipiStatus AS INTEGER ) :
    /*  ------------------------------------------------------------------------------  */
    /*  Purpose:                                                                        */
    /*  Parameters:  <none>                                                             */
    /*  Notes:                                                                          */
    /*  ------------------------------------------------------------------------------  */
    
    DO WITH FRAME {&FRAME-NAME}:
        IF ipiStatus = INTEGER(CB_Status:SCREEN-VALUE) THEN RETURN TRUE.
        CB_Status:SCREEN-VALUE = STRING(ipiStatus,'999999') NO-ERROR.
        APPLY 'VALUE-CHANGED' TO CB_Status.
    END.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME