&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2 &ANALYZE-RESUME /* Connected Databases */ &Scoped-define WINDOW-NAME CURRENT-WINDOW &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS fFrameWin /*------------------------------------------------------------------------ File: Description: from cntnrfrm.w - ADM2 SmartFrame Template Input Parameters: Output Parameters: ------------------------------------------------------------------------*/ /* 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 Bez AS CHARACTER FORMAT "x(30)" NO-UNDO. DEFINE VARIABLE GeTot AS DECIMAL FORMAT "zzz9.999-" DECIMALS 4 NO-UNDO. DEFINE VARIABLE Firma AS CHARACTER NO-UNDO. DEFINE VARIABLE AdFirma AS CHARACTER NO-UNDO. DEFINE VARIABLE iAufnr AS INTEGER NO-UNDO. DEFINE VARIABLE xTotal AS CHARACTER NO-UNDO. DEFINE VARIABLE VTotal AS DECIMAL DECIMALS 4 EXTENT 15 NO-UNDO. DEFINE VARIABLE SAktiv AS LOG NO-UNDO. DEFINE VARIABLE lView AS LOG INIT FALSE NO-UNDO. DEFINE VARIABLE xRecid AS RECID NO-UNDO. DEFINE VARIABLE ARecid AS RECID NO-UNDO. DEFINE VARIABLE LHandle AS HANDLE NO-UNDO. DEFINE VARIABLE wHandle AS HANDLE NO-UNDO. DEFINE VARIABLE Menge AS DECIMAL DECIMALS 4 NO-UNDO. DEFINE VARIABLE LKY AS INTEGER NO-UNDO. DEFINE VARIABLE FBez AS LOG INIT FALSE NO-UNDO. DEFINE VARIABLE cKonto AS CHARACTER NO-UNDO. DEFINE VARIABLE iLager AS INTEGER NO-UNDO. DEFINE VARIABLE fOpen AS LOG INIT TRUE NO-UNDO. DEFINE VARIABLE Progname AS CHARACTER NO-UNDO. DEFINE VARIABLE lMut AS LOG NO-UNDO. DEFINE VARIABLE hKontainer AS HANDLE NO-UNDO. DEFINE VARIABLE hQuery AS HANDLE NO-UNDO. DEFINE VARIABLE FMutFlag AS LOGICAL NO-UNDO. DEFINE TEMP-TABLE tGebRueck LIKE GebRueck. DEFINE TEMP-TABLE tGebKonto LIKE GebKonto. DEFINE TEMP-TABLE tGebinde FIELD Sort_Cd AS CHARACTER FIELD Geb_Cd AS CHARACTER FIELD cBez AS CHARACTER FIELD iAusgang AS INTEGER FIELD iEingang AS INTEGER FIELD nPreis AS DECIMAL DECIMALS 3 FIELD nBetrAus AS DECIMAL FIELD nBetrEin AS DECIMAL FIELD iSaldo AS INTEGER FIELD nBetrag AS DECIMAL INDEX tGebinde-k1 IS PRIMARY Sort_Cd Geb_Cd . DEFINE VARIABLE htGebinde AS HANDLE NO-UNDO. htGebinde = TEMP-TABLE tGebinde:DEFAULT-BUFFER-HANDLE. /* _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 &Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME fMain &Scoped-define BROWSE-NAME Br_Gebinde /* Internal Tables (found by Frame, Query & Browse Queries) */ &Scoped-define INTERNAL-TABLES tGebinde /* Definitions for BROWSE Br_Gebinde */ &Scoped-define FIELDS-IN-QUERY-Br_Gebinde cBez iAusgang iEingang iSaldo nPreis nBetrag &Scoped-define ENABLED-FIELDS-IN-QUERY-Br_Gebinde &Scoped-define SELF-NAME Br_Gebinde &Scoped-define QUERY-STRING-Br_Gebinde FOR EACH tGebinde &Scoped-define OPEN-QUERY-Br_Gebinde OPEN QUERY {&SELF-NAME} FOR EACH tGebinde. &Scoped-define TABLES-IN-QUERY-Br_Gebinde tGebinde &Scoped-define FIRST-TABLE-IN-QUERY-Br_Gebinde tGebinde /* Definitions for FRAME fMain */ /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS Br_Gebinde F_Kunde F_Zahbetr F_ZahSko F_WW ~ F_Gebinde F_Recycling F_MWST F_Total F_Skonto F_Netto F_Saldo F_Bezahlt ~ F_Skonto_Bez RECT-39 &Scoped-Define DISPLAYED-OBJECTS F_Kunde E_Adresse F_Zahbetr F_ZahSko ~ CB_ZAHLART F_WW F_Gebinde F_Recycling F_MWST F_Total F_Skonto F_Netto ~ F_Saldo F_Bezahlt F_Skonto_Bez /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-6 F_Kunde E_Adresse F_Zahbetr F_ZahSko F_WW F_Gebinde ~ F_Recycling F_MWST F_Total F_Skonto F_Netto F_Saldo F_Bezahlt F_Skonto_Bez /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* ************************ Function Prototypes ********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getBez fFrameWin FUNCTION getBez RETURNS CHARACTER ( ipGeb_Cd AS CHARACTER ) FORWARD. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getTotalBetr fFrameWin FUNCTION getTotalBetr RETURNS DECIMAL ( Betr_1 AS DECIMAL, Betr_2 AS DECIMAL, Betr_3 AS DECIMAL ) FORWARD. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Definitions of the field level widgets */ DEFINE VARIABLE CB_ZAHLART AS CHARACTER FORMAT "X(256)":U LABEL "Zahlungsart" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 36 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE E_Adresse AS CHARACTER VIEW-AS EDITOR NO-WORD-WRAP SCROLLBAR-HORIZONTAL SCROLLBAR-VERTICAL SIZE 50 BY 7 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 "zzz,zz9.999-":U INITIAL 0 LABEL "Gebinde" VIEW-AS FILL-IN NATIVE SIZE 18 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Kunde AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 141.2 BY 1 BGCOLOR 15 FONT 6 NO-UNDO. DEFINE VARIABLE F_MWST AS DECIMAL FORMAT "zzz,zz9.999-":U INITIAL 0 LABEL "Mehrwertst." 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 "zzz,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 17 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 8 NO-UNDO. DEFINE VARIABLE F_WW AS DECIMAL FORMAT "zzz,zz9.999-":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 FGCOLOR 12 NO-UNDO. DEFINE VARIABLE F_ZahSko AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 LABEL "Skonto" VIEW-AS FILL-IN NATIVE SIZE 17 BY 1 BGCOLOR 15 FGCOLOR 12 NO-UNDO. DEFINE RECTANGLE RECT-39 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 146 BY 25.95. /* Query definitions */ &ANALYZE-SUSPEND DEFINE QUERY Br_Gebinde FOR tGebinde SCROLLING. &ANALYZE-RESUME /* Browse definitions */ DEFINE BROWSE Br_Gebinde &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_Gebinde fFrameWin _FREEFORM QUERY Br_Gebinde DISPLAY cBez LABEL 'Gebinde' FORMAT 'x(15)' iAusgang LABEL 'Gel' FORMAT 'zzz9-' iEingang LABEL 'Retour' FORMAT 'zzz9-' iSaldo LABEL 'Saldo' FORMAT 'zzz9-' nPreis LABEL 'Preis' FORMAT 'zz9.99' nBetrag LABEL 'Preis' FORMAT 'z,zz9.99-' /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME WITH NO-ROW-MARKERS SEPARATORS SIZE 57.2 BY 20. /* ************************ Frame Definitions *********************** */ DEFINE FRAME fMain Br_Gebinde AT ROW 3 COL 5 WIDGET-ID 100 F_Kunde AT ROW 1.52 COL 3 COLON-ALIGNED NO-LABEL WIDGET-ID 4 NO-TAB-STOP E_Adresse AT ROW 3 COL 80 NO-LABEL WIDGET-ID 2 NO-TAB-STOP F_Zahbetr AT ROW 19.14 COL 78 COLON-ALIGNED F_ZahSko AT ROW 19.14 COL 112 COLON-ALIGNED CB_ZAHLART AT ROW 21.52 COL 94 COLON-ALIGNED NO-TAB-STOP F_WW AT ROW 11.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_Gebinde AT ROW 12.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_Recycling AT ROW 13.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_MWST AT ROW 14.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_Total AT ROW 15.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_Skonto AT ROW 16.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_Netto AT ROW 17.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_Saldo AT ROW 18.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_Bezahlt AT ROW 20.14 COL 78 COLON-ALIGNED NO-TAB-STOP F_Skonto_Bez AT ROW 20.14 COL 112 COLON-ALIGNED NO-TAB-STOP RECT-39 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 SIZE 148.6 BY 26.48. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartFrame Allow: Basic,Browse,DB-Fields,Query,Smart Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target 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 fFrameWin ASSIGN HEIGHT = 26.48 WIDTH = 148.6. /* END WINDOW DEFINITION */ */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB fFrameWin /* ************************* Included-Libraries *********************** */ {src/adm2/containr.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR WINDOW fFrameWin VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME fMain NOT-VISIBLE FRAME-NAME Custom */ /* BROWSE-TAB Br_Gebinde 1 fMain */ ASSIGN FRAME fMain:HIDDEN = TRUE. /* SETTINGS FOR COMBO-BOX CB_ZAHLART IN FRAME fMain NO-ENABLE */ /* SETTINGS FOR EDITOR E_Adresse IN FRAME fMain NO-ENABLE 6 */ ASSIGN E_Adresse:RETURN-INSERTED IN FRAME fMain = TRUE E_Adresse:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Bezahlt IN FRAME fMain 6 */ ASSIGN F_Bezahlt:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Gebinde IN FRAME fMain 6 */ ASSIGN F_Gebinde:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Kunde IN FRAME fMain 6 */ ASSIGN F_Kunde:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_MWST IN FRAME fMain 6 */ ASSIGN F_MWST:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Netto IN FRAME fMain 6 */ ASSIGN F_Netto:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Recycling IN FRAME fMain 6 */ ASSIGN F_Recycling:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Saldo IN FRAME fMain 6 */ ASSIGN F_Saldo:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Skonto IN FRAME fMain 6 */ ASSIGN F_Skonto:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Skonto_Bez IN FRAME fMain 6 */ ASSIGN F_Skonto_Bez:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Total IN FRAME fMain 6 */ ASSIGN F_Total:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_WW IN FRAME fMain 6 */ ASSIGN F_WW:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_Zahbetr IN FRAME fMain 6 */ ASSIGN F_Zahbetr:READ-ONLY IN FRAME fMain = TRUE. /* SETTINGS FOR FILL-IN F_ZahSko IN FRAME fMain 6 */ ASSIGN F_ZahSko:READ-ONLY IN FRAME fMain = TRUE. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_Gebinde /* Query rebuild information for BROWSE Br_Gebinde _START_FREEFORM OPEN QUERY {&SELF-NAME} FOR EACH tGebinde. _END_FREEFORM _Query is NOT OPENED */ /* BROWSE Br_Gebinde */ &ANALYZE-RESUME &ANALYZE-SUSPEND _QUERY-BLOCK FRAME fMain /* Query rebuild information for FRAME fMain _Options = "" _Query is NOT OPENED */ /* FRAME fMain */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME CB_ZAHLART &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_ZAHLART fFrameWin ON RETURN OF CB_ZAHLART IN FRAME fMain /* Zahlungsart */ DO: APPLY 'TAB' TO SELF. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zahbetr &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zahbetr fFrameWin ON RETURN OF F_Zahbetr IN FRAME fMain /* Zahlbetrag */ DO: APPLY 'TAB' TO SELF. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_ZahSko &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_ZahSko fFrameWin ON RETURN OF F_ZahSko IN FRAME fMain /* Skonto */ DO: APPLY 'TAB' TO SELF. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define BROWSE-NAME Br_Gebinde &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK fFrameWin /* *************************** Main Block *************************** */ SAktiv = DYNAMIC-FUNCTION('getSuperAktiv':U) NO-ERROR. Firma = DYNAMIC-FUNCTION('getMandant':U) NO-ERROR. fOpen = FALSE. &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 initializeObject. &ENDIF /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects fFrameWin _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 DETAILS fFrameWin PROCEDURE DETAILS : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEFINE VARIABLE ix AS INTEGER NO-UNDO. DEFINE VARIABLE VKonto AS CHARACTER NO-UNDO. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. DEFINE BUFFER bSavko FOR savko . DEFINE BUFFER bSavGebKo FOR SavGebKo. DEFINE BUFFER bGebKonto FOR GebKonto. DEFINE BUFFER bAdresse FOR Adresse . DEFINE BUFFER bSteuer FOR Steuer . FIND bSteuer NO-LOCK WHERE bSteuer.Firma = Firma. AdFirma = bSteuer.AdFirma. ASSIGN E_Adresse = '' F_Bezahlt = 0.00 F_Kunde = '' F_MWST = 0.00 F_Netto = 0.00 F_Recycling = 0.00 F_Saldo = 0.00 F_Skonto = 0.00 F_Total = 0.00 F_WW = 0.00 F_Zahbetr = 0.00 F_ZahSko = 0.00 F_Gebinde = 0.00. FIND bSavko NO-LOCK WHERE bSavko.Firma = Firma AND bSavko.Aufnr = iAufnr NO-ERROR. iAufnr = bSavko.Aufnr. iLager = bSavko.Lager. ARecid = RECID(bSavko). DO WITH FRAME {&FRAME-NAME}: VTotal = 0. cString = DYNAMIC-FUNCTION('getVerbuchtTotale':U, Firma, iAufnr, OUTPUT VTotal ) NO-ERROR. 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. VKonto = ''. IF VKonto = '' THEN VKonto = cKonto. F_Bezahlt = bSavko.Bar_Betr. F_Skonto_Bez = bSavko.Bar_Skonto. VKonto = bSavko.Bar_Konto. FIND bAdresse NO-LOCK WHERE bAdresse.Firma = AdFirma AND bAdresse.Knr = bSavko.Knr. DO ix = 11 TO 5 BY -1: E_Adresse = bADresse.Anschrift[ix] + (IF E_Adresse = '' THEN '' ELSE CHR(10)) + E_Adresse. END. F_Kunde = STRING(bAdresse.Knr,'999999') + ' / ' + bAdresse.Anzeig_Br. E_Adresse = CHR(10) + SUBSTITUTE('Knr.: &1 / iAufnr.: &2', bSavko.Knr, bSavko.Aufnr) + E_Adresse. CB_Zahlart:SCREEN-VALUE = VKonto NO-ERROR. F_Netto = F_Total - F_Skonto. F_Saldo = F_Total - F_Bezahlt - F_Skonto. RELEASE bAdresse. RELEASE bSavko. DISPLAY {&List-6}. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI fFrameWin _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 fMain. IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject fFrameWin PROCEDURE enableObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEFINE VARIABLE cString AS CHARACTER NO-UNDO. DEFINE VARIABLE cKey AS CHARACTER NO-UNDO. DEFINE VARIABLE hBrowse AS HANDLE NO-UNDO. RUN SUPER. DO WITH FRAME {&FRAME-NAME}: /* SavGebKo.Menge:READ-ONLY IN BROWSE {&BROWSE-NAME} = TRUE.*/ /* {&BROWSE-NAME}:READ-ONLY = TRUE. */ APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. END. IF sAktiv THEN DO: RUN COMBO_ZAHLUNGSART ( CB_Zahlart:HANDLE ) NO-ERROR. CREATE QUERY hQuery. hQuery:SET-BUFFERS ( htGebinde ). BROWSE {&BROWSE-NAME}:QUERY = hQuery. END. EMPTY TEMP-TABLE tGebRueck. FOR EACH GebRueck WHERE GebRueck.Firma = Firma NO-LOCK: CREATE tGebRueck. BUFFER-COPY GebRueck TO tGebRueck. END. EMPTY TEMP-TABLE tGebKonto. FOR EACH GebKonto WHERE GebKonto.Firma = Firma NO-LOCK: CREATE tGebKonto. BUFFER-COPY GebKonto TO tGebKonto. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI fFrameWin _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_Kunde E_Adresse F_Zahbetr F_ZahSko CB_ZAHLART F_WW F_Gebinde F_Recycling F_MWST F_Total F_Skonto F_Netto F_Saldo F_Bezahlt F_Skonto_Bez WITH FRAME fMain. ENABLE Br_Gebinde F_Kunde F_Zahbetr F_ZahSko F_WW F_Gebinde F_Recycling F_MWST F_Total F_Skonto F_Netto F_Saldo F_Bezahlt F_Skonto_Bez RECT-39 WITH FRAME fMain. {&OPEN-BROWSERS-IN-QUERY-fMain} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject fFrameWin PROCEDURE initializeObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ /* Code placed here will execute PRIOR to standard behavior. */ RUN SUPER. /* Code placed here will execute AFTER standard behavior. */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE OPENSAVGEBKO fFrameWin PROCEDURE OPENSAVGEBKO : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEFINE VARIABLE cWhere AS CHARACTER NO-UNDO. IF NOT fOpen THEN RETURN. EMPTY TEMP-TABLE tGebinde. FOR EACH SavGKon NO-LOCK WHERE SavGKon.Firma = Firma AND SavGKon.Aufnr = iAufnr AND SavGKon.Depot > 0: CREATE tGebinde. ASSIGN tGebinde.Geb_Cd = SavGKon.Geb_Cd tGebinde.Sort_Cd = SavGKon.Sort_Cd tGebinde.cBez = DYNAMIC-FUNCTION('getBez':U IN THIS-PROCEDURE, SavGKon.Geb_Cd ) tGebinde.nPreis = SavGKon.Depot tGebinde.iAusgang = SavGKon.Ausgang tGebinde.iEingang = SavGKon.Eingang tGebinde.iSaldo = tGebinde.iAusgang - tGebinde.iEingang tGebinde.nBetrAus = SavGKon.Ausgang * SavGKon.Depot tGebinde.nBetrEin = SavGKon.Eingang * SavGKon.Depot tGebinde.nBetrag = tGebinde.nBetrAus - tGebinde.nBetrEin. END. cWhere = 'FOR EACH tGebinde NO-LOCK USE-INDEX tGebinde-k1 '. hQuery:QUERY-PREPARE(cWhere). hQuery:QUERY-OPEN(). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SET_AUFNR fFrameWin PROCEDURE SET_AUFNR : /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER ipiAufnr AS INTEGER NO-UNDO. iAufnr = ipiAufnr. fOpen = TRUE. RUN OPENSAVGEBKO. RUN DETAILS. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ************************ Function Implementations ***************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getBez fFrameWin FUNCTION getBez RETURNS CHARACTER ( ipGeb_Cd AS CHARACTER ) : /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ FIND GebKonto USE-INDEX GebKonto-k1 WHERE GebKonto.Firma = Firma AND GebKonto.Geb_Cd = ipGeb_Cd NO-LOCK NO-ERROR. IF AVAILABLE GebKonto THEN Bez = GebKonto.Bez. ELSE Bez = SUBSTITUTE("??&1??", ipGeb_Cd). RETURN Bez. END FUNCTION. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTotalBetr fFrameWin FUNCTION getTotalBetr RETURNS DECIMAL ( Betr_1 AS DECIMAL, Betr_2 AS DECIMAL, Betr_3 AS DECIMAL ) : /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ GeTot = Betr_1 + Betr_2 + Betr_3. RETURN GeTot. END FUNCTION. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME