&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: Output Parameters: ------------------------------------------------------------------------*/ /* 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] > "_" "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: ------------------------------------------------------------------------------*/ 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: ------------------------------------------------------------------------------*/ /* 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: 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: 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: 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: 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: 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: 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