GeMIS_WEB/GUI/b-aufko-ruestkontrolle.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS bTableWin 
/*------------------------------------------------------------------------

  File: adm2\src\browser.w

  Description: SmartDataBrowser Object

  Input Parameters:
      <none>

  Output Parameters:
      <none>

------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* 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 ---                                       */

DEFINE VARIABLE cAktion AS CHARACTER NO-UNDO FORMAT "x" INIT 'X'.
DEFINE VARIABLE iAktion AS INTEGER   NO-UNDO INIT 0.

{ incl/tmpbrowser.i }

{src/adm2/widgetprto.i}

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-SUPPORTED-LINKS TableIO-Target,Data-Target,Update-Source

/* Include file with RowObject temp-table definition */
&Scoped-define DATA-FIELD-DEFS "d-aufko-ruestkontrolle.i"

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME F-Main
&Scoped-define BROWSE-NAME br_table

/* Internal Tables (found by Frame, Query & Browse Queries)             */
&Scoped-define INTERNAL-TABLES rowObject

/* Definitions for BROWSE br_table                                      */
&Scoped-define FIELDS-IN-QUERY-br_table rowObject.Tour_Nr1 rowObject.Fahrer ~
rowObject.Lief_Datum rowObject.Knr rowObject.Aufnr rowObject.Kunde ~
rowObject.Strasse rowObject.PlzOrt rowObject.Gewicht ~
rowObject.Ablad_Vor_Text rowObject.Auf_Text rowObject.TotalGewicht ~
rowObject.cStatus 
&Scoped-define ENABLED-FIELDS-IN-QUERY-br_table 
&Scoped-define QUERY-STRING-br_table FOR EACH rowObject NO-LOCK INDEXED-REPOSITION
&Scoped-define OPEN-QUERY-br_table OPEN QUERY br_table FOR EACH rowObject NO-LOCK INDEXED-REPOSITION.
&Scoped-define TABLES-IN-QUERY-br_table rowObject
&Scoped-define FIRST-TABLE-IN-QUERY-br_table rowObject


/* Definitions for FRAME F-Main                                         */

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS RECT-1 br_table CB_Aktion CB_Touren ~
CB_Fahrer 
&Scoped-Define DISPLAYED-OBJECTS CB_Aktion CB_Touren CB_Fahrer 

/* 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 setZeilenfarbe bTableWin 
FUNCTION setZeilenfarbe RETURNS LOGICAL
    ( ipFarbe AS INTEGER )  FORWARD.

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


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


/* Definitions of the field level widgets                               */
DEFINE VARIABLE CB_Aktion AS CHARACTER FORMAT "X(256)":U 
    LABEL "Aktion" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 40 BY 1 NO-UNDO.

DEFINE VARIABLE CB_Fahrer AS CHARACTER FORMAT "X(256)":U 
    LABEL "Fahrer" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 40 BY 1 NO-UNDO.

DEFINE VARIABLE CB_Touren AS CHARACTER FORMAT "X(256)":U 
    LABEL "Tour" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 40 BY 1 NO-UNDO.

DEFINE RECTANGLE RECT-1
    EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
    SIZE 287 BY 26.67.

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE TEMP-TABLE RowObject NO-UNDO
    {{&DATA-FIELD-DEFS}}
    {src/adm2/robjflds.i}.

DEFINE QUERY br_table FOR 
    rowObject SCROLLING.
&ANALYZE-RESUME

/* Browse definitions                                                   */
DEFINE BROWSE br_table
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS br_table bTableWin _STRUCTURED
    QUERY br_table NO-LOCK DISPLAY
    rowObject.Tour_Nr1 COLUMN-LABEL "Tour" FORMAT "99":U
    rowObject.Fahrer FORMAT "99":U
    rowObject.Lief_Datum COLUMN-LABEL "Lief Datum" FORMAT "99.99.9999":U
    rowObject.Knr FORMAT "999999":U WIDTH 7
    rowObject.Aufnr FORMAT "9999999":U WIDTH 8
    rowObject.Kunde FORMAT "x(30)":U
    rowObject.Strasse FORMAT "x(30)":U
    rowObject.PlzOrt COLUMN-LABEL "Plz / Ort" FORMAT "x(30)":U
    rowObject.Gewicht FORMAT "zzz,zz9.999-":U WIDTH 14
    rowObject.Ablad_Vor_Text COLUMN-LABEL "Ablade Vorschrift" FORMAT "x(40)":U
    WIDTH 30
    rowObject.Auf_Text COLUMN-LABEL "Bemerkung" FORMAT "x(500)":U
    WIDTH 80
    rowObject.TotalGewicht FORMAT "->>,>>9.99":U
    rowObject.cStatus COLUMN-LABEL "S" FORMAT "X":U WIDTH 2
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ASSIGN NO-AUTO-VALIDATE NO-ROW-MARKERS SEPARATORS MULTIPLE SIZE 285 BY 25.81.


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

DEFINE FRAME F-Main
    br_table AT ROW 1.48 COL 3 WIDGET-ID 200
    CB_Aktion AT ROW 29 COL 20 COLON-ALIGNED WIDGET-ID 4
    CB_Touren AT ROW 29 COL 80 COLON-ALIGNED WIDGET-ID 6
    CB_Fahrer AT ROW 29 COL 140 COLON-ALIGNED WIDGET-ID 8
    RECT-1 AT ROW 1.24 COL 2 WIDGET-ID 2
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
    SIDE-LABELS NO-UNDERLINE THREE-D 
    AT COL 1 ROW 1 SCROLLABLE  WIDGET-ID 100.


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDataBrowser
   Data Source: "d-aufko-ruestkontrolle.w"
   Allow: Basic,Browse
   Frames: 1
   Add Fields to: Neither
   Other Settings: PERSISTENT-ONLY COMPILE
 */

/* This procedure should always be RUN PERSISTENT.  Report the error,  */
/* then cleanup and return.                                            */
IF NOT THIS-PROCEDURE:PERSISTENT THEN 
DO:
    MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U
        VIEW-AS ALERT-BOX ERROR BUTTONS OK.
    RETURN.
END.

&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW bTableWin ASSIGN
         HEIGHT             = 30.19
         WIDTH              = 289.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

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

{src/adm2/browser.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW bTableWin
  NOT-VISIBLE,,RUN-PERSISTENT                                           */
/* SETTINGS FOR FRAME F-Main
   NOT-VISIBLE FRAME-NAME Size-to-Fit                                   */
/* BROWSE-TAB br_table RECT-1 F-Main */
ASSIGN 
    FRAME F-Main:SCROLLABLE = FALSE
    FRAME F-Main:HIDDEN     = TRUE.

ASSIGN 
    br_table:COLUMN-RESIZABLE IN FRAME F-Main = TRUE
    br_table:COLUMN-MOVABLE IN FRAME F-Main   = TRUE.

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


/* Setting information for Queries and Browse Widgets fields            */

&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE br_table
/* Query rebuild information for BROWSE br_table
     _TblList          = "rowObject"
     _Options          = "NO-LOCK INDEXED-REPOSITION"
     _FldNameList[1]   > _<SDO>.rowObject.Tour_Nr1
"rowObject.Tour_Nr1" "Tour" ? "integer" ? ? ? ? ? ? no "?" no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[2]   = _<SDO>.rowObject.Fahrer
     _FldNameList[3]   > _<SDO>.rowObject.Lief_Datum
"rowObject.Lief_Datum" "Lief Datum" ? "date" ? ? ? ? ? ? no "?" no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[4]   > _<SDO>.rowObject.Knr
"rowObject.Knr" ? ? "integer" ? ? ? ? ? ? no "?" no no "7" yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[5]   > _<SDO>.rowObject.Aufnr
"rowObject.Aufnr" ? ? "integer" ? ? ? ? ? ? no "?" no no "8" yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[6]   > _<SDO>.rowObject.Kunde
"rowObject.Kunde" ? ? "character" ? ? ? ? ? ? no "?" no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[7]   > _<SDO>.rowObject.Strasse
"rowObject.Strasse" ? ? "character" ? ? ? ? ? ? no "?" no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[8]   > _<SDO>.rowObject.PlzOrt
"rowObject.PlzOrt" "Plz / Ort" "x(30)" "character" ? ? ? ? ? ? no "?" no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[9]   > _<SDO>.rowObject.Gewicht
"rowObject.Gewicht" ? ? "decimal" ? ? ? ? ? ? no "?" no no "14" yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[10]   > _<SDO>.rowObject.Ablad_Vor_Text
"rowObject.Ablad_Vor_Text" "Ablade Vorschrift" ? "character" ? ? ? ? ? ? no "?" no no "30" yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[11]   > _<SDO>.rowObject.Auf_Text
"rowObject.Auf_Text" "Bemerkung" ? "character" ? ? ? ? ? ? no "?" no no "80" yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[12]   = _<SDO>.rowObject.TotalGewicht
     _FldNameList[13]   > _<SDO>.rowObject.cStatus
"rowObject.cStatus" "S" ? "character" ? ? ? ? ? ? no "?" no no "2" yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _Query            is NOT OPENED
*/  /* BROWSE br_table */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
/* Query rebuild information for FRAME F-Main
     _Options          = "NO-LOCK"
     _Query            is NOT OPENED
*/  /* FRAME F-Main */
&ANALYZE-RESUME

 



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

&Scoped-define BROWSE-NAME br_table
&Scoped-define SELF-NAME br_table
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON ANY-KEY OF br_table IN FRAME F-Main
    DO:
        IF INTEGER(LASTKEY) = 32 THEN 
        DO: 
            IF   {&BROWSE-NAME}:FOCUSED-ROW-SELECTED THEN {&BROWSE-NAME}:DESELECT-FOCUSED-ROW ().
            ELSE {&BROWSE-NAME}:FETCH-SELECTED-ROW(1).
        END.  
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON CTRL-END OF br_table IN FRAME F-Main
    DO:
        APPLY "END":U TO BROWSE {&BROWSE-NAME}.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON CTRL-HOME OF br_table IN FRAME F-Main
    DO:
        APPLY "HOME":U TO BROWSE {&BROWSE-NAME}.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON DEFAULT-ACTION OF br_table IN FRAME F-Main
    DO:
    {src/adm2/brsdefault.i}
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON END OF br_table IN FRAME F-Main
    DO:
    {src/adm2/brsend.i}
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON F5 OF br_table IN FRAME F-Main
    DO:
        DYNAMIC-FUNCTION ('openQuery':U IN hDaten) NO-ERROR.  
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON HOME OF br_table IN FRAME F-Main
    DO:
    {src/adm2/brshome.i}
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON LEFT-MOUSE-CLICK OF br_table IN FRAME F-Main
    DO:
        /*        {&BROWSE-NAME}:DESELECT-FOCUSED-ROW ().                                            */
        /*        IF {&BROWSE-NAME}:FOCUSED-ROW-SELECTED THEN {&BROWSE-NAME}:DESELECT-FOCUSED-ROW ().*/
        APPLY 'ENTRY' TO {&BROWSE-NAME}.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON LEFT-MOUSE-DBLCLICK OF br_table IN FRAME F-Main
    DO:
        DEFINE VARIABLE rAufko  AS RECID     NO-UNDO.
        DEFINE VARIABLE iAufnr  AS INTEGER   NO-UNDO.
        DEFINE VARIABLE cRetVal AS CHARACTER NO-UNDO.
        
        DEFINE BUFFER bAufko FOR Aufko.
    
        iAktion = INTEGER(CB_Aktion:SCREEN-VALUE IN FRAME {&FRAME-NAME}).
        IF iAktion = 0 THEN RETURN NO-APPLY.
    
        CASE iAktion:
            WHEN 1 THEN 
                DO:
                    {&BROWSE-NAME}:FETCH-SELECTED-ROW (1).
                    rAufko = DYNAMIC-FUNCTION ('getCurrentRecid':U IN hDaten) NO-ERROR.
                    FIND bAufko NO-LOCK WHERE RECID(bAufko) = rAufko NO-ERROR.
                    iAufnr  = bAufko.Aufnr.
                    cRetVal = 'START'.
                    PUBLISH 'DRUCKEN' ( rAufko, iAufnr, '', OUTPUT cRetVal ).
                    IF cRetVal = 'START' THEN 
                    DO:
                        MESSAGE 'Auftragsbearbeitung ist nicht gestartet'
                            VIEW-AS ALERT-BOX.
                    END.
                    {&BROWSE-NAME}:DESELECT-ROWS ().
                END.
            WHEN 2 THEN 
                DO:
                    {&BROWSE-NAME}:FETCH-SELECTED-ROW (1).
                    rAufko = DYNAMIC-FUNCTION ('getCurrentRecid':U IN hDaten) NO-ERROR.
                    REPEAT TRANSACTION:
                        FIND bAufko EXCLUSIVE-LOCK
                            WHERE RECID(bAufko) = rAufko NO-WAIT NO-ERROR.
                        IF  NOT AVAILABLE bAufko AND
                            LOCKED bAufko        THEN 
                        DO:
                            RUN FEHLER ( 82 ) NO-ERROR.
                            LEAVE.
                        END.
                        bAufko.Tour_Nr1 = INTEGER(CB_Touren:SCREEN-VALUE).
                        RELEASE bAufko.
                        LEAVE.
                    END.
                    {&BROWSE-NAME}:DESELECT-ROWS ().
                    APPLY 'F5' TO {&BROWSE-NAME}.
                END.
            WHEN 3 THEN 
                DO:
                    {&BROWSE-NAME}:FETCH-SELECTED-ROW (1).
                    rAufko = DYNAMIC-FUNCTION ('getCurrentRecid':U IN hDaten) NO-ERROR.
                    REPEAT TRANSACTION:
                        FIND bAufko EXCLUSIVE-LOCK
                            WHERE RECID(bAufko) = rAufko NO-WAIT NO-ERROR.
                        IF  NOT AVAILABLE bAufko AND
                            LOCKED bAufko        THEN 
                        DO:
                            RUN FEHLER ( 82 ) NO-ERROR.
                            LEAVE.
                        END.
                        bAufko.Fahrer = INTEGER(CB_Fahrer:SCREEN-VALUE).
                        RELEASE bAufko.
                        LEAVE.
                    END.
                    {&BROWSE-NAME}:DESELECT-ROWS ().
                    APPLY 'F5' TO {&BROWSE-NAME}.
                END.
        END CASE.  
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON OFF-END OF br_table IN FRAME F-Main
    DO:
    {src/adm2/brsoffnd.i}
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON OFF-HOME OF br_table IN FRAME F-Main
    DO:
    {src/adm2/brsoffhm.i}
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON RETURN OF br_table IN FRAME F-Main
    DO:
        DEFINE VARIABLE iNumSelRows AS INTEGER   NO-UNDO.
        DEFINE VARIABLE ii          AS INTEGER   NO-UNDO.
        DEFINE VARIABLE iRow        AS INTEGER   NO-UNDO.
        DEFINE VARIABLE rAufko      AS RECID     NO-UNDO.
        DEFINE VARIABLE iAufnr      AS INTEGER   NO-UNDO.
        DEFINE VARIABLE cRetVal     AS CHARACTER NO-UNDO.
        
        DEFINE BUFFER bAufko FOR Aufko.
    
        iAktion = INTEGER(CB_Aktion:SCREEN-VALUE IN FRAME {&FRAME-NAME}).
        IF iAktion = 0 THEN RETURN NO-APPLY.
        iNumSelRows = {&BROWSE-NAME}:NUM-SELECTED-ROWS.
        IF iNumSelRows = 0 THEN RETURN NO-APPLY.
    
        CASE iAktion:
            WHEN 1 THEN 
                DO:
                    DO ii = 1 TO iNumSelRows:
                        {&BROWSE-NAME}:SCROLL-TO-SELECTED-ROW (ii).
                        {&BROWSE-NAME}:FETCH-SELECTED-ROW (ii).
                        rAufko = DYNAMIC-FUNCTION ('getCurrentRecid':U IN hDaten) NO-ERROR.
                        FIND bAufko NO-LOCK WHERE RECID(bAufko) = rAufko NO-ERROR.
                        iAufnr = bAufko.Aufnr.
                        cRetVal = 'START'.
                        PUBLISH 'DRUCKEN' ( rAufko, iAufnr, '', OUTPUT cRetVal ).
                        IF cRetVal = 'START' THEN 
                        DO:
                            MESSAGE 'Auftragsbearbeitung ist nicht gestartet'
                                VIEW-AS ALERT-BOX.
                            RETURN.
                        END.
                    END.
                    {&BROWSE-NAME}:DESELECT-ROWS ().
                END.
            WHEN 2 THEN 
                DO:
                    LOOP02:
                    DO ii = 1 TO iNumSelRows:
                        {&BROWSE-NAME}:SCROLL-TO-SELECTED-ROW (ii).
                        {&BROWSE-NAME}:FETCH-SELECTED-ROW (ii).
                        rAufko = DYNAMIC-FUNCTION ('getCurrentRecid':U IN hDaten) NO-ERROR.
                        REPEAT TRANSACTION:
                            FIND bAufko EXCLUSIVE-LOCK
                                WHERE RECID(bAufko) = rAufko NO-WAIT NO-ERROR.
                            IF  NOT AVAILABLE bAufko AND
                                LOCKED bAufko        THEN 
                            DO:
                                RUN FEHLER ( 82 ) NO-ERROR.
                                NEXT LOOP02.
                            END.
                            bAufko.Tour_Nr1 = INTEGER(CB_Touren:SCREEN-VALUE).
                            RELEASE bAufko.
                            LEAVE.
                        END.
                    END.
                    {&BROWSE-NAME}:DESELECT-ROWS ().
                    APPLY 'F5' TO {&BROWSE-NAME}.
                END.
            WHEN 3 THEN 
                DO:
                    LOOP03:
                    DO ii = 1 TO iNumSelRows:
                        {&BROWSE-NAME}:SCROLL-TO-SELECTED-ROW (ii).
                        {&BROWSE-NAME}:FETCH-SELECTED-ROW (ii).
                        rAufko = DYNAMIC-FUNCTION ('getCurrentRecid':U IN hDaten) NO-ERROR.
                        REPEAT TRANSACTION:
                            FIND bAufko EXCLUSIVE-LOCK
                                WHERE RECID(bAufko) = rAufko NO-WAIT NO-ERROR.
                            IF  NOT AVAILABLE bAufko AND
                                LOCKED bAufko        THEN 
                            DO:
                                RUN FEHLER ( 82 ) NO-ERROR.
                                NEXT LOOP03.
                            END.
                            bAufko.Fahrer = INTEGER(CB_Fahrer:SCREEN-VALUE).
                            RELEASE bAufko.
                            LEAVE.
                        END.
                    END.
                    {&BROWSE-NAME}:DESELECT-ROWS ().
                    APPLY 'F5' TO {&BROWSE-NAME}.
                END.
        END CASE.  
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON ROW-DISPLAY OF br_table IN FRAME F-Main
    DO:
        DEFINE VARIABLE iStatus AS INTEGER NO-UNDO INIT 0.
        DEFINE VARIABLE iFarbe  AS INTEGER NO-UNDO INIT 15.

        FOR EACH RuestAuf NO-LOCK
            WHERE RuestAuf.Firma = Firma
            AND   RuestAuf.Aufnr = rowObject.Aufnr:
        
            IF  iStatus = 0         THEN iStatus = 1.
            IF  RuestAuf.lGeruestet AND
                iStatus = 1         THEN iStatus = 2.
            IF  RuestAuf.lGeladen   AND
                iStatus = 2         THEN iStatus = 3.
        END.
    
        CASE iStatus:
            WHEN 1 THEN 
                iFarbe = 12.    /*  rot Rüstauftrag aufgegeben  */
            WHEN 2 THEN 
                iFarbe = 14.    /*  gelb Rüstauftrag in Arbeit  */
            WHEN 3 THEN 
                iFarbe = 10.    /*  grün geladen                */ 
        END CASE.
        IF rowObject.TotalGewicht <> 0 THEN rowObject.TotalGewicht:BGCOLOR IN BROWSE {&BROWSE-NAME} = 11.
        rowObject.cStatus:BGCOLOR IN BROWSE {&BROWSE-NAME} = iFarbe.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON ROW-LEAVE OF br_table IN FRAME F-Main
    DO:
    {src/adm2/brsleave.i}
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON SCROLL-NOTIFY OF br_table IN FRAME F-Main
    DO:
        {src/adm2/brsscrol.i}
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON START-SEARCH OF br_table IN FRAME F-Main
    DO:
        { incl/brwstartsearch.i }
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table bTableWin
ON VALUE-CHANGED OF br_table IN FRAME F-Main
    DO:
        {&BROWSE-NAME}:SELECT-FOCUSED-ROW().
        PUBLISH 'RUESTKONTROLLE' (INTEGER(rowObject.Aufnr:SCREEN-VALUE IN BROWSE {&BROWSE-NAME})).
        {src/adm2/brschnge.i}
    END.

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


&Scoped-define SELF-NAME CB_Aktion
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Aktion bTableWin
ON VALUE-CHANGED OF CB_Aktion IN FRAME F-Main /* Aktion */
    DO:
        iAktion = INTEGER(SELF:SCREEN-VALUE).
        CASE iAktion:
            WHEN 0 THEN 
                DO: 
                    ASSIGN 
                        CB_Fahrer:SENSITIVE = FALSE
                        CB_Touren:SENSITIVE = FALSE.
                    APPLY 'U1'.
                END.
            WHEN 1 THEN 
                DO:
                    ASSIGN 
                        CB_Fahrer:SENSITIVE = FALSE
                        CB_Touren:SENSITIVE = FALSE.
                    APPLY 'U1'.
                END.
            WHEN 2 THEN 
                DO: 
                    ASSIGN 
                        CB_Fahrer:SENSITIVE = FALSE
                        CB_Touren:SENSITIVE = TRUE .
                    APPLY 'ENTRY' TO CB_Touren.
                END.
            WHEN 3 THEN 
                DO: 
                    ASSIGN 
                        CB_Fahrer:SENSITIVE = TRUE 
                        CB_Touren:SENSITIVE = FALSE.
                    APPLY 'ENTRY' TO CB_Fahrer.
                END.
        END CASE.
          
    END.

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


&Scoped-define SELF-NAME CB_Fahrer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Fahrer bTableWin
ON VALUE-CHANGED OF CB_Fahrer IN FRAME F-Main /* Fahrer */
    DO:
        APPLY 'U1'.
    END.

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


&Scoped-define SELF-NAME CB_Touren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Touren bTableWin
ON VALUE-CHANGED OF CB_Touren IN FRAME F-Main /* Tour */
    DO:
        APPLY 'U1'.
    END.

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


&UNDEFINE SELF-NAME

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


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

{ incl/brwmainblock.i }
{ incl/brwinternproc.i }

    &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN          
        RUN initializeObject.        
    &ENDIF

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE destroyObject bTableWin 
PROCEDURE destroyObject :
    /*------------------------------------------------------------------------------
                              Purpose:     Super Override
                              Parameters:  
                              Notes:       
                            ------------------------------------------------------------------------------*/

    DEFINE VARIABLE hBrowser AS HANDLE NO-UNDO.

    hBrowser = {&BROWSE-NAME}:HANDLE IN FRAME {&FRAME-NAME}.
    DYNAMIC-FUNCTION('setBrowserDaten':U, INPUT hBrowser,
        INPUT Sektion ) NO-ERROR.

    RUN SUPER.

/* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI bTableWin  _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.
    ------------------------------------------------------------------------------*/
    /* Hide all frames. */
    HIDE FRAME F-Main.
    IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

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

    APPLY 'ENTRY' TO {&BROWSE-NAME} IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject bTableWin 
PROCEDURE initializeObject :
    /*------------------------------------------------------------------------------
                              Purpose:     Super Override
                              Parameters:  
                              Notes:       
                            ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    cString = 'Keine Aktion (00);00;'
        + 'Auslösen Rüstauftrag (01);01;'
        + 'Zuteilen Tourg (02);02;'
        + 'Zuteilen Fahrer (03);03'.
        
    DO WITH FRAME {&FRAME-NAME}:
        CB_Aktion:DELIMITER = ';'.
        CB_Aktion:LIST-ITEM-PAIRS = cString.
        CB_Aktion:SCREEN-VALUE    = '00'.
        
        IF sAktiv THEN 
        DO:
            RUN COMBO_FAHRER ( CB_Fahrer:HANDLE ) NO-ERROR.
            RUN COMBO_TOUREN ( CB_Touren:HANDLE ) NO-ERROR.
        END.
        
    END.

    { incl/brwinitialize.i }
    
    CB_Fahrer:SENSITIVE = FALSE.
    CB_Touren:SENSITIVE = FALSE.

    RUN SET_OPENFLAG IN hDaten ( TRUE ).        

END PROCEDURE.

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

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setZeilenfarbe bTableWin 
FUNCTION setZeilenfarbe RETURNS LOGICAL
    ( ipFarbe AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    { incl/brwsetzeilenfarbe.i }

END FUNCTION.

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