GeMIS_WEB/GUI/v8/f-auftrag.w

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW


/* Temp-Table and Buffer definitions                                    */
DEFINE TEMP-TABLE XAufko NO-UNDO LIKE Aufko.



&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS F-Frame-Win 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrfrm.w - ADM SmartFrame Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

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

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

DEF VAR VAdresse            AS CHAR                         NO-UNDO.
DEF VAR ok                  AS LOG                          NO-UNDO.
DEF VAR Sort                AS INT                          NO-UNDO.
DEF VAR VAUf_Sta            AS INT                          NO-UNDO.

/*  ----------  Globale Variablen   ---------------------------------- */

{ v8/globvar.i" " " " "SHARED" }
{ v8/debivar.i " " " " "SHARED" }
{ v8/artivar.i " " " " "SHARED" }
{ v8/contvar.i " " " " "SHARED" }

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER FRAME

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

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

/* Definitions for BROWSE Br_Auftrag                                    */
&Scoped-define FIELDS-IN-QUERY-Br_Auftrag XAufko.Aufnr XAufko.Knr ~
VAdresse @ VAdresse XAufko.Fak_Art XAufko.Lief_Datum XAufko.Lief_Bed ~
XAufko.Tour_Nr1 XAufko.Tour_Nr2 XAufko.Auf_Tot 
&Scoped-define ENABLED-FIELDS-IN-QUERY-Br_Auftrag XAufko.Knr 
&Scoped-define ENABLED-TABLES-IN-QUERY-Br_Auftrag XAufko
&Scoped-define FIRST-ENABLED-TABLE-IN-QUERY-Br_Auftrag XAufko
&Scoped-define QUERY-STRING-Br_Auftrag FOR EACH XAufko NO-LOCK
&Scoped-define OPEN-QUERY-Br_Auftrag OPEN QUERY Br_Auftrag FOR EACH XAufko NO-LOCK.
&Scoped-define TABLES-IN-QUERY-Br_Auftrag XAufko
&Scoped-define FIRST-TABLE-IN-QUERY-Br_Auftrag XAufko


/* Definitions for FRAME F-Main                                         */

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS RECT-35 RECT-36 Br_Auftrag F_Anzahl ~
F_Gewicht F_Fahrer F_BeiFahr F_LKW F_LiefArt T_Fahrer T_BeiFahr T_LKW ~
T_LiefArt Btn_Drucken Btn_Verschieben 
&Scoped-Define DISPLAYED-OBJECTS F_Anzahl F_Gewicht F_Fahrer F_BeiFahr ~
F_LKW F_LiefArt T_Fahrer T_BeiFahr T_LKW T_LiefArt 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-1 F_Fahrer F_BeiFahr F_LKW F_LiefArt T_Fahrer T_BeiFahr ~
T_LKW T_LiefArt 
&Scoped-define List-6 F_Anzahl F_Gewicht F_Fahrer F_BeiFahr F_LKW F_LiefArt ~
T_Fahrer T_BeiFahr T_LKW T_LiefArt 

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



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


/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Drucken 
     LABEL "&Drucken" 
     SIZE 16.8 BY 1.

DEFINE BUTTON Btn_Verschieben 
     LABEL "&Weiter" 
     SIZE 16.8 BY 1.

DEFINE VARIABLE F_Anzahl AS DECIMAL FORMAT "zz9":U INITIAL 0 
     LABEL "Anzahl" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 7 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_BeiFahr AS INTEGER FORMAT "99":U INITIAL 0 
     LABEL "Beifahrer" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 5 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Fahrer AS INTEGER FORMAT "99":U INITIAL 0 
     LABEL "Fahrer" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 5 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Gewicht AS DECIMAL FORMAT "zzz,zz9.999-":U INITIAL 0 
     LABEL "Gewicht" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_LiefArt AS INTEGER FORMAT "99":U INITIAL 0 
     LABEL "Lierferart" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 5 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_LKW AS INTEGER FORMAT "99":U INITIAL 0 
     LABEL "LKW" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 5 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE RECTANGLE RECT-35
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 126.4 BY 15.33.

DEFINE RECTANGLE RECT-36
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 118 BY 1.67.

DEFINE VARIABLE T_BeiFahr AS LOGICAL INITIAL no 
     LABEL "" 
     VIEW-AS TOGGLE-BOX
     SIZE 5.4 BY 1 TOOLTIP "Beifahrer auf Aufträgen mutieren" NO-UNDO.

DEFINE VARIABLE T_Fahrer AS LOGICAL INITIAL no 
     LABEL "" 
     VIEW-AS TOGGLE-BOX
     SIZE 5.4 BY 1 TOOLTIP "Fahrer auf Aufträgen mutieren" NO-UNDO.

DEFINE VARIABLE T_LiefArt AS LOGICAL INITIAL no 
     LABEL "" 
     VIEW-AS TOGGLE-BOX
     SIZE 5.4 BY 1 TOOLTIP "Lieferart auf Aufträgen mutieren" NO-UNDO.

DEFINE VARIABLE T_LKW AS LOGICAL INITIAL no 
     LABEL "" 
     VIEW-AS TOGGLE-BOX
     SIZE 5.4 BY 1 TOOLTIP "LKW auf Aufträgen mutieren" NO-UNDO.

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE QUERY Br_Auftrag FOR 
      XAufko SCROLLING.
&ANALYZE-RESUME

/* Browse definitions                                                   */
DEFINE BROWSE Br_Auftrag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_Auftrag F-Frame-Win _STRUCTURED
  QUERY Br_Auftrag DISPLAY
      XAufko.Aufnr COLUMN-LABEL "DokNr" FORMAT "9999999":U
      XAufko.Knr FORMAT "999999":U
      VAdresse @ VAdresse COLUMN-LABEL "Kunde" FORMAT "x(30)":U
      XAufko.Fak_Art COLUMN-LABEL "Art" FORMAT "99":U
      XAufko.Lief_Datum COLUMN-LABEL "Lief.Datum" FORMAT "99.99.9999":U
      XAufko.Lief_Bed COLUMN-LABEL "Lief.Art" FORMAT "99":U
      XAufko.Tour_Nr1 COLUMN-LABEL "T1" FORMAT "99":U
      XAufko.Tour_Nr2 COLUMN-LABEL "T2" FORMAT "x(10)":U
      XAufko.Auf_Tot COLUMN-LABEL "Total" FORMAT "->>>,>>9.99":U
  ENABLE
      XAufko.Knr
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ASSIGN NO-ROW-MARKERS SEPARATORS MULTIPLE SIZE 100 BY 7.62
         BGCOLOR 15 .


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

DEFINE FRAME F-Main
     Br_Auftrag AT ROW 1.81 COL 3.8
     F_Anzahl AT ROW 10.91 COL 10 COLON-ALIGNED
     F_Gewicht AT ROW 10.91 COL 28 COLON-ALIGNED
     F_Fahrer AT ROW 10.91 COL 58 COLON-ALIGNED
     F_BeiFahr AT ROW 10.91 COL 78 COLON-ALIGNED
     F_LKW AT ROW 10.91 COL 98 COLON-ALIGNED
     F_LiefArt AT ROW 10.91 COL 118 COLON-ALIGNED
     T_Fahrer AT ROW 12.81 COL 60
     T_BeiFahr AT ROW 12.81 COL 80
     T_LKW AT ROW 12.81 COL 100
     T_LiefArt AT ROW 12.81 COL 120
     Btn_Drucken AT ROW 14.43 COL 67
     Btn_Verschieben AT ROW 14.43 COL 85.4
     "Mutieren von" VIEW-AS TEXT
          SIZE 26 BY 1 AT ROW 12.81 COL 10
          FONT 10
     RECT-35 AT ROW 1.43 COL 2.2
     RECT-36 AT ROW 12.43 COL 8.6
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1 SCROLLABLE .


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartFrame
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Other Settings: PERSISTENT-ONLY COMPILE
   Temp-Tables and Buffers:
      TABLE: XAufko T "?" NO-UNDO AnaDat Aufko
   END-TABLES.
 */

/* 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 F-Frame-Win ASSIGN
         HEIGHT             = 15.95
         WIDTH              = 127.6.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB F-Frame-Win 
/* ************************* Included-Libraries *********************** */

{src/adm/method/containr.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW F-Frame-Win
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME F-Main
   NOT-VISIBLE FRAME-NAME Size-to-Fit                                   */
/* BROWSE-TAB Br_Auftrag RECT-36 F-Main */
ASSIGN 
       FRAME F-Main:SCROLLABLE       = FALSE.

/* SETTINGS FOR FILL-IN F_Anzahl IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR FILL-IN F_BeiFahr IN FRAME F-Main
   1 6                                                                  */
/* SETTINGS FOR FILL-IN F_Fahrer IN FRAME F-Main
   1 6                                                                  */
/* SETTINGS FOR FILL-IN F_Gewicht IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR FILL-IN F_LiefArt IN FRAME F-Main
   1 6                                                                  */
/* SETTINGS FOR FILL-IN F_LKW IN FRAME F-Main
   1 6                                                                  */
/* SETTINGS FOR TOGGLE-BOX T_BeiFahr IN FRAME F-Main
   1 6                                                                  */
/* SETTINGS FOR TOGGLE-BOX T_Fahrer IN FRAME F-Main
   1 6                                                                  */
/* SETTINGS FOR TOGGLE-BOX T_LiefArt IN FRAME F-Main
   1 6                                                                  */
/* SETTINGS FOR TOGGLE-BOX T_LKW IN FRAME F-Main
   1 6                                                                  */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_Auftrag
/* Query rebuild information for BROWSE Br_Auftrag
     _TblList          = "Temp-Tables.XAufko"
     _FldNameList[1]   > Temp-Tables.XAufko.Aufnr
"XAufko.Aufnr" "DokNr" ? "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[2]   > Temp-Tables.XAufko.Knr
"XAufko.Knr" ? ? "integer" ? ? ? ? ? ? yes ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[3]   > "_<CALC>"
"VAdresse @ VAdresse" "Kunde" "x(30)" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[4]   > Temp-Tables.XAufko.Fak_Art
"XAufko.Fak_Art" "Art" ? "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[5]   > Temp-Tables.XAufko.Lief_Datum
"XAufko.Lief_Datum" "Lief.Datum" ? "date" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[6]   > Temp-Tables.XAufko.Lief_Bed
"XAufko.Lief_Bed" "Lief.Art" ? "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[7]   > Temp-Tables.XAufko.Tour_Nr1
"XAufko.Tour_Nr1" "T1" ? "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[8]   > Temp-Tables.XAufko.Tour_Nr2
"XAufko.Tour_Nr2" "T2" "x(10)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[9]   > Temp-Tables.XAufko.Auf_Tot
"XAufko.Auf_Tot" "Total" "->>>,>>9.99" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _Query            is NOT OPENED
*/  /* BROWSE Br_Auftrag */
&ANALYZE-RESUME

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

 



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

&Scoped-define BROWSE-NAME Br_Auftrag
&Scoped-define SELF-NAME Br_Auftrag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Auftrag F-Frame-Win
ON ROW-DISPLAY OF Br_Auftrag IN FRAME F-Main
DO:
    RUN ANZEIGE.  
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Auftrag F-Frame-Win
ON START-SEARCH OF Br_Auftrag IN FRAME F-Main
DO:
    DEFINE VARIABLE ColumnHandle AS HANDLE    NO-UNDO.
  
    ASSIGN ColumnHandle = {&BROWSE-NAME}:CURRENT-COLUMN.

    DO WITH FRAME {&FRAME-NAME}:
        APPLY 'END-SEARCH' TO Br_Auftrag.
    END.

    CASE ColumnHandle:NAME:
    
        WHEN 'Aufnr' THEN DO:
            Sort = 1.
            RUN OPEN_AUFTRAG.
        END.
    
        WHEN 'Knr' THEN DO:
            Sort = 2.
            RUN OPEN_AUFTRAG.
        END.
    
        WHEN 'Fak_Art' THEN DO:
            Sort = 3.
            RUN OPEN_AUFTRAG.
        END.
    
        WHEN 'Lief_Datum' THEN DO:
            Sort = 4.
            RUN OPEN_AUFTRAG.
        END.
    
        WHEN 'Tour_Nr1' THEN DO:
            Sort = 5.
            RUN OPEN_AUFTRAG.
        END.
    
    END CASE.

    DO WITH FRAME {&FRAME-NAME}:
        Br_Auftrag:SELECT-ROW(1).
        Br_Auftrag:FETCH-SELECTED-ROW(1).
    END.

END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Auftrag F-Frame-Win
ON VALUE-CHANGED OF Br_Auftrag IN FRAME F-Main
DO:
    i1 = Br_Auftrag:NUM-SELECTED-ROWS.
    
    F_Anzahl  = 0.
    F_Gewicht = 0.
    
    DO ix = 1 TO i1:
        Br_Auftrag:FETCH-SELECTED-ROW(ix).
        F_Anzahl  = F_Anzahl  + 1.
        F_Gewicht = F_Gewicht + XAufko.Gewicht.
    END.
    DISPLAY F_Anzahl    F_Gewicht WITH FRAME {&FRAME-NAME}.
END.

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


&Scoped-define SELF-NAME Btn_Drucken
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Drucken F-Frame-Win
ON CHOOSE OF Btn_Drucken IN FRAME F-Main /* Drucken */
DO:

    DEF VAR Sel         AS INT                      NO-UNDO.
    DEF VAR Anz         AS INT                      NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    DISABLE Btn_Verschieben
            Btn_Drucken.
    ASSIGN  {&List-1}.
    Anz = Br_Auftrag:NUM-SELECTED-ROWS.
    FOR EACH Tabel USE-INDEX Tabel-k1
                   WHERE Tabel.Firma  = GVFirma
                   AND   Tabel.RecArt = "AUFDRUCK"
                   AND   Tabel.CodeC  = GVSbKb TRANSACTION:
        DELETE  Tabel.
    END.
    
    DO Sel = 1 TO Anz:
        DO TRANSACTION:
            Br_Auftrag:FETCH-SELECTED-ROW(Sel).
            FIND Tabel USE-INDEX Tabel-k1
                       WHERE Tabel.Firma  = GVFirma
                       AND   Tabel.RecArt = "AUFSTATUS"
                       AND   Tabel.CodeC  = ""
                       AND   Tabel.CodeI  = XAufko.Auf_Sta
                       AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
            IF NOT AVAILABLE Tabel THEN NEXT.
        
            IF T_Fahrer     THEN XAufko.Fahrer   = F_Fahrer  .
            IF T_BeiFahr    THEN XAufko.BeiFahr  = F_BeiFahr .
            IF T_LKW        THEN XAufko.LKW      = F_LKW     .
            IF T_LiefArt    THEN XAufko.Lief_Bed = F_LiefArt .
        
            FIND Aufko USE-INDEX Aufko-k1
                       WHERE Aufko.Firma = XAufko.Firma
                       AND   Aufko.Aufnr = XAufko.Aufnr.
            ASSIGN  Aufko.Auf_Sta  = XAufko.Auf_Sta
                    Aufko.Fahrer   = XAufko.Fahrer  
                    Aufko.BeiFahr  = XAufko.BeiFahr 
                    Aufko.LKW      = XAufko.LKW
                    Aufko.Lief_Bed = XAufko.Lief_Bed .
            XVAufnr = Aufko.Aufnr.
            
            CREATE  Tabel.
            ASSIGN  Tabel.Firma  = GVFirma
                    Tabel.RecArt = "AUFDRUCK"
                    Tabel.CodeC  = GVSbKb
                    Tabel.CodeI  = XVAufnr
                    Tabel.Sprcd  = 1.
                    
            DELETE XAufko.
        END.
        Linknr = 999.
        RUN "v8/d-p_auftrag.w".
        Linknr = 0.
    END.
    ENABLE  Btn_Verschieben
            Btn_Drucken.
            
    F_Anzahl  = 0.
    F_Gewicht = 0.
    F_Fahrer  = 0.
    F_BeiFahr = 0.
    F_LKW     = 0.
    F_LiefArt = 0.
    T_Fahrer  = FALSE.
    T_BeiFahr = FALSE.
    T_LKW     = FALSE.
    T_LiefArt = FALSE.
    DISPLAY {&List-6}.
    
    RUN OPEN_AUFTRAG.
    
END.

END.

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


&Scoped-define SELF-NAME Btn_Verschieben
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Verschieben F-Frame-Win
ON CHOOSE OF Btn_Verschieben IN FRAME F-Main /* Weiter */
DO:

DO WITH FRAME {&FRAME-NAME}:
    DISABLE Btn_Verschieben
            Btn_Drucken.
    ASSIGN  {&List-1}.
    i1 = Br_Auftrag:NUM-SELECTED-ROWS.
    DO ix = 1 TO i1 TRANSACTION:
        Br_Auftrag:FETCH-SELECTED-ROW(1).
        XVAufnr = XAufko.Aufnr.
        IF T_Fahrer     THEN XAufko.Fahrer   = F_Fahrer  .
        IF T_BeiFahr    THEN XAufko.BeiFahr  = F_BeiFahr .
        IF T_LKW        THEN XAufko.LKW      = F_LKW     .
        IF T_LiefArt    THEN XAufko.Lief_Bed = F_LiefArt .
        FIND Aufko USE-INDEX Aufko-k1
                   WHERE Aufko.Firma = XAufko.Firma
                   AND   Aufko.Aufnr = XAufko.Aufnr.
        IF Aufko.AlsOfferte THEN DO:
            RELEASE Aufko.
            MESSAGE 'Auftrag ist Offerte! WEITER geht hier nicht! '
                    VIEW-AS ALERT-BOX INFORMATION.
            RETURN 'Fehler'.
            
        END.
        ASSIGN  Aufko.Auf_Sta  = XAufko.Auf_Sta
                Aufko.Fahrer   = XAufko.Fahrer  
                Aufko.BeiFahr  = XAufko.BeiFahr 
                Aufko.LKW      = XAufko.LKW
                Aufko.Lief_Bed = XAufko.Lief_Bed .
        RUN WEITER ( INPUT XAufko.Aufnr ).
        DELETE XAufko.
        Br_Auftrag:DELETE-SELECTED-ROW(1).
    END.
    ENABLE  Btn_Verschieben
            Btn_Drucken.
    F_Anzahl  = 0.
    F_Gewicht = 0.
    F_Fahrer  = 0.
    F_BeiFahr = 0.
    F_LKW     = 0.
    F_LiefArt = 0.
    T_Fahrer  = FALSE.
    T_BeiFahr = FALSE.
    T_LKW     = FALSE.
    T_LiefArt = FALSE.
    DISPLAY {&List-6}.
END.

    RUN OPEN_AUFTRAG.

END.

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


&Scoped-define SELF-NAME F_Anzahl
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Anzahl F-Frame-Win
ON ENTRY OF F_Anzahl IN FRAME F-Main /* Anzahl */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_BeiFahr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_BeiFahr F-Frame-Win
ON ENTRY OF F_BeiFahr IN FRAME F-Main /* Beifahrer */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_Fahrer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Fahrer F-Frame-Win
ON ENTRY OF F_Fahrer IN FRAME F-Main /* Fahrer */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_LiefArt
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_LiefArt F-Frame-Win
ON ENTRY OF F_LiefArt IN FRAME F-Main /* Lierferart */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_LKW
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_LKW F-Frame-Win
ON ENTRY OF F_LKW IN FRAME F-Main /* LKW */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME T_BeiFahr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_BeiFahr F-Frame-Win
ON VALUE-CHANGED OF T_BeiFahr IN FRAME F-Main
DO:

DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  T_BeiFahr.
    IF T_BeiFahr = TRUE THEN DO:
        LVFirma  = GVFirma.
        LVRecArt = 'BEIFAHR'.
        LVSprcd  = 1.
        LVCodeI  = INTEGER(F_BeiFahr:SCREEN-VALUE).
        ok       = TRUE.
        RUN "v8/d-a-tabel-i.w" ( INPUT-OUTPUT ok ).
        IF ok THEN F_BeiFahr:SCREEN-VALUE = STRING(LVCodeI).
        ELSE DO:
            T_BeiFahr = FALSE.
            DISPLAY T_BeiFahr.
        END.
    END.
END.

END.

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


&Scoped-define SELF-NAME T_Fahrer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Fahrer F-Frame-Win
ON VALUE-CHANGED OF T_Fahrer IN FRAME F-Main
DO:

DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  T_Fahrer.
    IF T_Fahrer = TRUE THEN DO:
        LVFirma  = GVFirma.
        LVRecArt = 'FAHRER'.
        LVSprcd  = 1.
        LVCodeI  = INTEGER(F_Fahrer:SCREEN-VALUE).
        ok       = TRUE.
        RUN "v8/d-a-tabel-i.w" ( INPUT-OUTPUT ok ).
        IF ok THEN F_Fahrer:SCREEN-VALUE = STRING(LVCodeI).
        ELSE DO:
            T_Fahrer = FALSE.
            DISPLAY T_Fahrer.
        END.
    END.
END.

END.

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


&Scoped-define SELF-NAME T_LiefArt
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_LiefArt F-Frame-Win
ON VALUE-CHANGED OF T_LiefArt IN FRAME F-Main
DO:

DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  T_Liefart.
    IF T_Liefart = TRUE THEN DO:
        LVFirma  = GVFirma.
        LVRecArt = 'LIEFART'.
        LVSprcd  = 1.
        LVCodeI  = INTEGER(F_Liefart:SCREEN-VALUE).
        ok       = TRUE.
        RUN "v8/d-a-tabel-i.w" ( INPUT-OUTPUT ok ).
        IF ok THEN F_Liefart:SCREEN-VALUE = STRING(LVCodeI).
        ELSE DO:
            T_LiefArt = FALSE.
            DISPLAY T_LiefArt.
        END.
    END.
END.

END.

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


&Scoped-define SELF-NAME T_LKW
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_LKW F-Frame-Win
ON VALUE-CHANGED OF T_LKW IN FRAME F-Main
DO:

DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  T_LKW.
    IF T_LKW = TRUE THEN DO:
        LVFirma  = GVFirma.
        LVRecArt = 'LKW'.
        LVSprcd  = 1.
        LVCodeI  = INTEGER(F_LKW:SCREEN-VALUE).
        ok       = TRUE.
        RUN "v8/d-a-tabel-i.w" ( INPUT-OUTPUT ok ).
        IF ok THEN F_LKW:SCREEN-VALUE = STRING(LVCodeI).
        ELSE DO:
            T_LKW = FALSE.
            DISPLAY T_LKW.
        END.
    END.
END.

END.

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


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK F-Frame-Win 


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

Sort = 4.
SUBSCRIBE TO 'ENDEAUFTRAG' ANYWHERE.

&IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN
   /* Now enable the interface  if in test mode - otherwise this happens when
      the object is explicitly initialized from its container. */
   RUN dispatch IN THIS-PROCEDURE ('initialize':U).
&ENDIF

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects F-Frame-Win  _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>
------------------------------------------------------------------------------*/

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available F-Frame-Win  _ADM-ROW-AVAILABLE
PROCEDURE adm-row-available :
/*------------------------------------------------------------------------------
  Purpose:     Dispatched to this procedure when the Record-
               Source has a new row available.  This procedure
               tries to get the new row (or foriegn keys) from
               the Record-Source and process it.
  Parameters:  <none>
------------------------------------------------------------------------------*/

  /* Define variables needed by this internal procedure.             */
  {src/adm/template/row-head.i}

  /* Process the newly available records (i.e. display fields,
     open queries, and/or pass records on to any RECORD-TARGETS).    */
  {src/adm/template/row-end.i}

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ANZEIGE F-Frame-Win 
PROCEDURE ANZEIGE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VAdresse = ''.
    IF NOT AVAILABLE XAufko THEN RETURN.
    FIND Adresse USE-INDEX Adresse-k1
                 WHERE Adresse.Firma = ADFirma
                 AND   Adresse.Knr   = XAufko.Knr NO-LOCK NO-ERROR.
    IF AVAILABLE Adresse THEN VAdresse = Adresse.Anzeig_Br.
    ELSE                      VAdresse = FILL('?', 20).
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI F-Frame-Win  _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 enable_UI F-Frame-Win  _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 F_Anzahl F_Gewicht F_Fahrer F_BeiFahr F_LKW F_LiefArt T_Fahrer 
          T_BeiFahr T_LKW T_LiefArt 
      WITH FRAME F-Main.
  ENABLE RECT-35 RECT-36 Br_Auftrag F_Anzahl F_Gewicht F_Fahrer F_BeiFahr F_LKW 
         F_LiefArt T_Fahrer T_BeiFahr T_LKW T_LiefArt Btn_Drucken 
         Btn_Verschieben 
      WITH FRAME F-Main.
  {&OPEN-BROWSERS-IN-QUERY-F-Main}
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDEAUFTRAG F-Frame-Win 
PROCEDURE ENDEAUFTRAG :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-view F-Frame-Win 
PROCEDURE local-view :
/*------------------------------------------------------------------------------
  Purpose:     Override standard ADM method
  Notes:       
------------------------------------------------------------------------------*/

    RUN dispatch IN THIS-PROCEDURE ( INPUT 'view':U ) .
    
    XAufko.Knr:READ-ONLY IN BROWSE Br_Auftrag = TRUE.

    FOR EACH XAufko:
        DELETE  XAufko.
    END.
    FOR EACH Aufko WHERE Aufko.Firma   = GVFirma
                   AND   Aufko.Auf_Sta = 1 NO-LOCK:
        CREATE  XAufko.
        BUFFER-COPY Aufko TO XAufko.
    END.
    
    RUN OPEN_AUFTRAG.
    APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE OPEN_AUFTRAG F-Frame-Win 
PROCEDURE OPEN_AUFTRAG :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    IF NUM-RESULTS('Br_Auftrag':U) <> ? THEN CLOSE QUERY Br_Auftrag.
    
    VAuf_Sta = 1.
    
    CASE Sort:
    
        WHEN 1 THEN DO:    
            OPEN QUERY Br_Auftrag
            FOR EACH XAufko USE-INDEX Aufko-k1
                           WHERE XAufko.Firma   = GVFirma
                           AND   XAufko.Auf_Sta = VAuf_Sta NO-LOCK
                          
                           BY XAufko.Aufnr
                           BY XAufko.Lief_Datum .
        END.
        
        WHEN 2 THEN DO:    
            OPEN QUERY Br_Auftrag
            FOR EACH XAufko USE-INDEX Aufko-k2
                           WHERE XAufko.Firma   = GVFirma
                           AND   XAufko.Auf_Sta = VAuf_Sta NO-LOCK
                          
                           BY XAufko.Knr
                           BY XAufko.Aufnr
                           BY XAufko.Lief_Datum .
        END.
        
        WHEN 3 THEN DO:    
            OPEN QUERY Br_Auftrag
            FOR EACH XAufko USE-INDEX Aufko-k2
                           WHERE XAufko.Firma   = GVFirma
                           AND   XAufko.Auf_Sta = VAuf_Sta NO-LOCK
                          
                           BY XAufko.Fak_Art
                           BY XAufko.Lief_Datum
                           BY XAufko.Tour_Nr1   .
        END.
        
        WHEN 4 THEN DO:    
            OPEN QUERY Br_Auftrag
            FOR EACH XAufko USE-INDEX Aufko-k3
                           WHERE XAufko.Firma   = GVFirma
                           AND   XAufko.Auf_Sta = VAuf_Sta NO-LOCK
                          
                           BY XAufko.Lief_Datum
                           BY XAufko.Tour_Nr1
                           BY XAufko.Tour_Nr2   .
        END.
        
        WHEN 5 THEN DO:    
            OPEN QUERY Br_Auftrag
            FOR EACH XAufko USE-INDEX Aufko-k1
                           WHERE XAufko.Firma   = GVFirma
                           AND   XAufko.Auf_Sta = VAuf_Sta NO-LOCK
                          
                           BY XAufko.Tour_Nr1
                           BY XAufko.Tour_Nr2
                           BY XAufko.Lief_Datum .
        END.
        
    END CASE.
                          
    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        Br_Auftrag:SET-REPOSITIONED-ROW(4, 'CONDITIONAL':U).

        IF NUM-RESULTS('Br_Auftrag':U) = ? THEN LEAVE.
        IF NUM-RESULTS('Br_Auftrag':U) = 0 THEN LEAVE.
        
        LEAVE.
    END.

    RETURN.
        
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records F-Frame-Win  _ADM-SEND-RECORDS
PROCEDURE send-records :
/*------------------------------------------------------------------------------
  Purpose:     Send record ROWID's for all tables used by
               this file.
  Parameters:  see template/snd-head.i
------------------------------------------------------------------------------*/

  /* Define variables needed by this internal procedure.               */
  {src/adm/template/snd-head.i}

  /* For each requested table, put it's ROWID in the output list.      */
  {src/adm/template/snd-list.i "XAufko"}

  /* Deal with any unexpected table requests before closing.           */
  {src/adm/template/snd-end.i}

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed F-Frame-Win 
PROCEDURE state-changed :
/* -----------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
-------------------------------------------------------------*/
    DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE       NO-UNDO.
    DEFINE INPUT PARAMETER p-state      AS CHARACTER    NO-UNDO.
    
    CASE p-state:
    
    END CASE.
    
END PROCEDURE.

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