&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1 &ANALYZE-RESUME /* Connected Databases anadat PROGRESS */ &Scoped-define WINDOW-NAME CURRENT-WINDOW &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 --- */ { v8/aufkototv.i "NEW" "SHARED" } DEF VAR ARecid AS RECID NO-UNDO. DEF VAR VAdresse AS CHAR NO-UNDO. DEF VAR QOpen AS LOG NO-UNDO. DEF VAR Vorhanden AS LOG NO-UNDO. DEF VAR XZahart AS CHAR NO-UNDO. DEF VAR VZahArt AS INT NO-UNDO. DEF VAR VKonto AS CHAR NO-UNDO. DEF VAR xx AS INT NO-UNDO. DEF VAR OK AS LOG NO-UNDO. DEF BUFFER BAufko FOR Aufko. DEF BUFFER BAufze FOR Aufze. DEF BUFFER BAufGebKo FOR AufGebKo. DEF BUFFER FDebst FOR Debst. DEF BUFFER LDebst FOR Debst. /* ---------- 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_Bezahlen /* Internal Tables (found by Frame, Query & Browse Queries) */ &Scoped-define INTERNAL-TABLES Aufko Tabel /* Definitions for BROWSE Br_Bezahlen */ &Scoped-define FIELDS-IN-QUERY-Br_Bezahlen Aufko.Aufnr Aufko.Faknr ~ Aufko.Fak_Art Aufko.Fak_Knr VAdresse @ VAdresse Aufko.Fak_Datum ~ Aufko.Auf_Tot Aufko.Bar_Betr &Scoped-define ENABLED-FIELDS-IN-QUERY-Br_Bezahlen &Scoped-define QUERY-STRING-Br_Bezahlen FOR EACH Aufko ~ WHERE Aufko.Firma = GVFirma ~ AND Aufko.Faknr > 0 NO-LOCK, ~ EACH Tabel WHERE TRUE /* Join to Aufko incomplete */ NO-LOCK &Scoped-define OPEN-QUERY-Br_Bezahlen OPEN QUERY Br_Bezahlen FOR EACH Aufko ~ WHERE Aufko.Firma = GVFirma ~ AND Aufko.Faknr > 0 NO-LOCK, ~ EACH Tabel WHERE TRUE /* Join to Aufko incomplete */ NO-LOCK. &Scoped-define TABLES-IN-QUERY-Br_Bezahlen Aufko Tabel &Scoped-define FIRST-TABLE-IN-QUERY-Br_Bezahlen Aufko &Scoped-define SECOND-TABLE-IN-QUERY-Br_Bezahlen Tabel /* Definitions for FRAME F-Main */ /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS Br_Bezahlen CB-Zahart RECT-35 &Scoped-Define DISPLAYED-OBJECTS CB-Zahart F_WW F_Gebinde F_Recycling ~ F_MWST F_Total F_Skonto F_Netto F_Saldo F_Zahbetr F_Bezahlt E_Adresse ~ F_ZahSko F_Skonto_Bez F_Aufnr /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-1 F_WW F_Gebinde F_Recycling F_MWST F_Total F_Skonto ~ F_Netto F_Saldo F_Zahbetr F_Bezahlt E_Adresse F_ZahSko F_Skonto_Bez F_Aufnr &Scoped-define List-6 F_WW F_Gebinde F_Recycling F_MWST F_Total F_Skonto ~ F_Netto F_Saldo F_Zahbetr F_Bezahlt F_ZahSko F_Skonto_Bez /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Definitions of the field level widgets */ DEFINE BUTTON Btn_Bezahlt LABEL "&Bezahlen" SIZE 14 BY 1. DEFINE VARIABLE CB-Zahart AS CHARACTER FORMAT "X(256)":U LABEL "Zahlungsart" VIEW-AS COMBO-BOX INNER-LINES 5 DROP-DOWN-LIST SIZE 28 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE E_Adresse AS CHARACTER VIEW-AS EDITOR NO-WORD-WRAP MAX-CHARS 500 SIZE 50 BY 5.43 BGCOLOR 15 FONT 6 NO-UNDO. DEFINE VARIABLE F_Aufnr AS INTEGER FORMAT "9999999":U INITIAL 0 LABEL "Auftragsnummer" VIEW-AS FILL-IN NATIVE SIZE 10 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Bezahlt AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Bezahlt" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 14 NO-UNDO. DEFINE VARIABLE F_Gebinde AS DECIMAL FORMAT "zz,zz9.999-":U INITIAL 0 LABEL "Gebinde" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_MWST AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Mehrwertsteuer" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Netto AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Nettobetrag" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Recycling AS DECIMAL FORMAT "zz,zz9.999-":U INITIAL 0 LABEL "Gebühren" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Saldo AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Saldo" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 14 NO-UNDO. DEFINE VARIABLE F_Skonto AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Skonto" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Skonto_Bez AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Skontoabzug" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 14 NO-UNDO. DEFINE VARIABLE F_Total AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Totalbetrag" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_WW AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Warenwert" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Zahbetr AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Zahlbetrag" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_ZahSko AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Skonto" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE RECTANGLE RECT-35 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 122.2 BY 21.29. /* Query definitions */ &ANALYZE-SUSPEND DEFINE QUERY Br_Bezahlen FOR Aufko, Tabel SCROLLING. &ANALYZE-RESUME /* Browse definitions */ DEFINE BROWSE Br_Bezahlen &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_Bezahlen F-Frame-Win _STRUCTURED QUERY Br_Bezahlen NO-LOCK DISPLAY Aufko.Aufnr FORMAT "9999999":U Aufko.Faknr COLUMN-LABEL "FakNr" FORMAT "9999999":U Aufko.Fak_Art COLUMN-LABEL "Art" FORMAT "99":U Aufko.Fak_Knr COLUMN-LABEL "Knr" FORMAT "999999":U VAdresse @ VAdresse COLUMN-LABEL "Kunde" FORMAT "x(30)":U Aufko.Fak_Datum COLUMN-LABEL "Fak.Datum" FORMAT "99.99.9999":U Aufko.Auf_Tot COLUMN-LABEL "Total" FORMAT "zzz,zz9.99-":U Aufko.Bar_Betr COLUMN-LABEL "Bezahlt" FORMAT "zzz,zz9.99-":U /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME WITH NO-ASSIGN NO-ROW-MARKERS SEPARATORS SIZE 98.8 BY 7.52 BGCOLOR 15 . /* ************************ Frame Definitions *********************** */ DEFINE FRAME F-Main Br_Bezahlen AT ROW 1.62 COL 3 CB-Zahart AT ROW 18.52 COL 18 COLON-ALIGNED F_WW AT ROW 10 COL 18 COLON-ALIGNED F_Gebinde AT ROW 11 COL 18 COLON-ALIGNED F_Recycling AT ROW 12 COL 18 COLON-ALIGNED F_MWST AT ROW 13 COL 18 COLON-ALIGNED F_Total AT ROW 14 COL 18 COLON-ALIGNED F_Skonto AT ROW 15 COL 18 COLON-ALIGNED F_Netto AT ROW 16 COL 18 COLON-ALIGNED F_Saldo AT ROW 17 COL 18 COLON-ALIGNED F_Zahbetr AT ROW 20 COL 18 COLON-ALIGNED F_Bezahlt AT ROW 21 COL 18 COLON-ALIGNED E_Adresse AT ROW 11 COL 50 NO-LABEL F_ZahSko AT ROW 20 COL 58 COLON-ALIGNED F_Skonto_Bez AT ROW 21.1 COL 58 COLON-ALIGNED F_Aufnr AT ROW 10 COL 88 COLON-ALIGNED Btn_Bezahlt AT ROW 20 COL 86 RECT-35 AT ROW 1.24 COL 2 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 */ /* 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 = 21.62 WIDTH = 123.8. /* 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 Custom */ /* BROWSE-TAB Br_Bezahlen 1 F-Main */ ASSIGN FRAME F-Main:SCROLLABLE = FALSE. /* SETTINGS FOR BUTTON Btn_Bezahlt IN FRAME F-Main NO-ENABLE */ /* SETTINGS FOR EDITOR E_Adresse IN FRAME F-Main NO-ENABLE 1 */ ASSIGN E_Adresse:RETURN-INSERTED IN FRAME F-Main = TRUE E_Adresse:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN F_Aufnr IN FRAME F-Main NO-ENABLE 1 */ /* SETTINGS FOR FILL-IN F_Bezahlt IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_Gebinde IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_MWST IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_Netto IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_Recycling IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_Saldo IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_Skonto IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_Skonto_Bez IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_Total IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_WW IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_Zahbetr IN FRAME F-Main NO-ENABLE 1 6 */ /* SETTINGS FOR FILL-IN F_ZahSko IN FRAME F-Main NO-ENABLE 1 6 */ /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_Bezahlen /* Query rebuild information for BROWSE Br_Bezahlen _TblList = "AnaDat.Aufko,AnaDat.Tabel WHERE AnaDat.Aufko ..." _Options = "NO-LOCK" _Where[1] = "Aufko.Firma = GVFirma AND Aufko.Faknr > 0" _FldNameList[1] = AnaDat.Aufko.Aufnr _FldNameList[2] > AnaDat.Aufko.Faknr "Aufko.Faknr" "FakNr" ? "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[3] > AnaDat.Aufko.Fak_Art "Aufko.Fak_Art" "Art" ? "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[4] > AnaDat.Aufko.Fak_Knr "Aufko.Fak_Knr" "Knr" ? "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[5] > "_" "VAdresse @ VAdresse" "Kunde" "x(30)" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[6] > AnaDat.Aufko.Fak_Datum "Aufko.Fak_Datum" "Fak.Datum" ? "date" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[7] > AnaDat.Aufko.Auf_Tot "Aufko.Auf_Tot" "Total" "zzz,zz9.99-" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[8] > AnaDat.Aufko.Bar_Betr "Aufko.Bar_Betr" "Bezahlt" "zzz,zz9.99-" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _Query is NOT OPENED */ /* BROWSE Br_Bezahlen */ &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_Bezahlen &Scoped-define SELF-NAME Br_Bezahlen &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Bezahlen F-Frame-Win ON RETURN OF Br_Bezahlen IN FRAME F-Main DO: DO WITH FRAME {&FRAME-NAME}: ENABLE F_ZahBetr F_ZahSko. F_ZahBetr = F_Netto. F_ZahSko = F_Skonto. DISPLAY F_ZahBetr F_ZahSko. ENABLE Btn_Bezahlt. APPLY 'ENTRY' TO F_ZahBetr. END. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Bezahlen F-Frame-Win ON ROW-DISPLAY OF Br_Bezahlen IN FRAME F-Main DO: RUN ADRESSE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Bezahlen F-Frame-Win ON VALUE-CHANGED OF Br_Bezahlen IN FRAME F-Main DO: RUN ANZEIGE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_Bezahlt &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Bezahlt F-Frame-Win ON CHOOSE OF Btn_Bezahlt IN FRAME F-Main /* Bezahlen */ DO: DO TRANSACTION WITH FRAME {&FRAME-NAME}: ASSIGN {&list-1}. VKonto = CB-Zahart:SCREEN-VALUE. IF VKonto = 'XXXXXX' THEN DO: BELL. MESSAGE 'Kein Konto gewählt ! ' VIEW-AS ALERT-BOX ERROR. APPLY 'ENTRY' TO CB-Zahart. RETURN NO-APPLY. END. FIND Aufko WHERE RECID(Aufko) = ARecid. Aufko.Bar_Betr = F_Zahbetr. Aufko.Bar_Skonto = F_ZahSko. Aufko.Bar_Konto = VKonto. F_Zahbetr = 0. F_ZahSko = 0. F_Bezahlt = Aufko.Bar_Betr. F_Skonto_Bez = Aufko.Bar_Skonto. DISPLAY {&List-1}. RELEASE Aufko. DISABLE Btn_Bezahlt F_ZahBetr F_ZahSko. Br_Bezahlen:REFRESH(). LEAVE. END. FIND Aufko WHERE RECID(Aufko) = ARecid NO-LOCK. APPLY 'ENTRY' TO Br_Bezahlen. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB-Zahart &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB-Zahart F-Frame-Win ON RETURN OF CB-Zahart IN FRAME F-Main /* Zahlungsart */ DO: APPLY 'TAB' TO SELF. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB-Zahart F-Frame-Win ON VALUE-CHANGED OF CB-Zahart IN FRAME F-Main /* Zahlungsart */ DO: VKonto = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK F-Frame-Win /* *************************** Main Block *************************** */ SUBSCRIBE TO 'ENDEAUFTRAG' ANYWHERE. ON END-ERROR OF F_ZahBetr, F_ZahSko, Btn_Bezahlt IN FRAME {&FRAME-NAME} DO: DO TRANSACTION WITH FRAME {&FRAME-NAME}: F_Zahbetr = 0. F_ZahSko = 0. F_Bezahlt = Aufko.Bar_Betr. F_Skonto_Bez = Aufko.Bar_Skonto. DISPLAY {&List-1}. DISABLE Btn_Bezahlt F_ZahBetr F_ZahSko. LEAVE. END. END. &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 ADRESSE F-Frame-Win PROCEDURE ADRESSE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VAdresse = ''. IF NOT AVAILABLE Aufko THEN RETURN NO-APPLY. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = Aufko.Fak_Knr NO-LOCK NO-ERROR. IF NOT AVAILABLE Adresse THEN VAdresse = FILL('?', 20). ELSE VAdresse = Adresse.Anzeig_Br. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ANZEIGE F-Frame-Win PROCEDURE ANZEIGE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR cString AS CHAR NO-UNDO. IF NOT AVAILABLE Aufko THEN RETURN NO-APPLY. XVAufnr = Aufko.Aufnr. RUN AUFTRAGSTOTAL ( XVAufnr, OUTPUT cString ) NO-ERROR. DO ix = 1 TO NUM-ENTRIES(cString, CHR(01)): VTotal[ix] = DECIMAL(ENTRY(ix, cString, CHR(01))). END. DO WITH FRAME {&FRAME-NAME}: F_Aufnr = XVAufnr. E_Adresse = ''. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = Aufko.Fak_Knr NO-LOCK NO-ERROR. E_Adresse = Adresse.Anschrift[05] + CHR(10) + Adresse.Anschrift[06] + CHR(10) + Adresse.Anschrift[07] + CHR(10) + Adresse.Anschrift[08] + CHR(10) + Adresse.Anschrift[09] + CHR(10) + Adresse.Anschrift[10] + CHR(10) + Adresse.Anschrift[11] + CHR(10) + Adresse.Anschrift[12]. F_WW = VTotal[01]. F_Gebinde = VTotal[11]. F_Recycling = VTotal[12]. F_MWST = VTotal[09]. F_Total = VTotal[10]. F_Skonto = 0. F_ZahBetr = 0. F_ZahSko = 0. F_Bezahlt = Aufko.Bar_Betr. F_Skonto_Bez = Aufko.Bar_Skonto. VKonto = Aufko.Bar_Konto. IF VKonto = '' THEN VKonto = 'XXXXXX'. F_Saldo = F_Total - F_Bezahlt - F_Skonto. CB-Zahart:SCREEN-VALUE = VKonto NO-ERROR. ARecid = RECID(Aufko). FIND Kondi USE-INDEX Kondi-k1 WHERE Kondi.Kond = Aufko.Kond AND Kondi.Sprcd = Adresse.Sprcd NO-LOCK NO-ERROR. IF AVAILABLE Kondi THEN DO: IF Kondi.Skonto[01] <> 0 THEN DO: Rundbetr = VTotal[02] * Kondi.Skonto[01] / 100. Rundcode = 1. RUN "v8/runden.p". F_Skonto = Rundbetr. END. END. Rundbetr = F_Total - F_Skonto. Rundcode = 1. RUN "v8/runden.p". F_Netto = Rundbetr. DISPLAY {&List-1}. APPLY 'ENTRY' TO Br_Bezahlen. RETURN NO-APPLY. END. 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 CB-Zahart F_WW F_Gebinde F_Recycling F_MWST F_Total F_Skonto F_Netto F_Saldo F_Zahbetr F_Bezahlt E_Adresse F_ZahSko F_Skonto_Bez F_Aufnr WITH FRAME F-Main. ENABLE Br_Bezahlen CB-Zahart RECT-35 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: ------------------------------------------------------------------------------*/ IF Btn_Bezahlt:SENSITIVE IN FRAME {&FRAME-NAME} = TRUE THEN DO: ja = TRUE. APPLY 'ENTRY' TO F_ZahBetr IN FRAME {&FRAME-NAME}. RETURN NO-APPLY. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-initialize F-Frame-Win PROCEDURE local-initialize : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ DEF VAR cDelim AS CHAR NO-UNDO. DEF VAR cString AS CHAR NO-UNDO. DO WITH FRAME {&FRAME-NAME}: cDelim = '|'. cString = 'Kein Konto|XXXXXX'. FOR EACH Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'ZAHART' AND Tabel.CodeC = '' AND Tabel.Sprcd = 1 NO-LOCK: cString = cString + cDelim + Tabel.Bez1 + '|' + Tabel.Bez2. cDelim = '|'. END. IF cString = '' THEN cString = '|'. CB-Zahart:DELIMITER = "|". CB-Zahart:LIST-ITEM-PAIRS = cString. END. RUN dispatch IN THIS-PROCEDURE ( INPUT 'initialize':U ) . 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: ------------------------------------------------------------------------------*/ DEF VAR ok AS LOG NO-UNDO. RUN dispatch IN THIS-PROCEDURE ( INPUT 'view':U ) . RUN OPEN_AUFKO. RUN dispatch IN THIS-PROCEDURE ('apply-entry':U). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE OPEN_AUFKO F-Frame-Win PROCEDURE OPEN_AUFKO : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ OPEN QUERY Br_Bezahlen FOR EACH Aufko USE-INDEX Aufko-k1 WHERE Aufko.Firma = GVFirma AND Aufko.Faknr > 0 NO-LOCK, FIRST Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'FAKART' AND Tabel.CodeC = '' AND Tabel.CodeI = Aufko.Fak_Art AND Tabel.Sprcd = 1 AND Tabel.Int_3 = 3 NO-LOCK. DO WHILE TRUE WITH FRAME {&FRAME-NAME}: IF NUM-RESULTS('Br_Bezahlen':U) = ? THEN LEAVE. IF NUM-RESULTS('Br_Bezahlen':U) = 0 THEN LEAVE. Vorhanden = TRUE. QOpen = TRUE. APPLY 'VALUE-CHANGED' TO Br_Bezahlen. APPLY 'ENTRY' TO Br_Bezahlen. LEAVE. END. 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 "Aufko"} {src/adm/template/snd-list.i "Tabel"} /* 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: WHEN 'browser_entry' THEN DO: APPLY 'ENTRY' TO BROWSE Br_Bezahlen. RETURN NO-APPLY. END. END CASE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME