&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2 &ANALYZE-RESUME /* Connected Databases anadat PROGRESS */ &Scoped-define WINDOW-NAME CURRENT-WINDOW /* Temp-Table and Buffer definitions */ DEFINE TEMP-TABLE RowObject {"d-krest.i"}. &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS vTableWin /*------------------------------------------------------------------------ File: Description: from viewer.w - Template for SmartDataViewer objects 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 ************************** */ /* Komma-Trennzeichen */ /* Keyfelder werden beim Mutieren nicht "Enabled" */ &Scoped-define ERSTES_FELD CB_FRW_1 &Scoped-define LETZTES_FELD WIRKonto &Scoped-define KEY_FELDER &Scoped-define NUR_LESEN F_CLNR_1,F_CLNR_2,Saldo /* Parameters Definitions --- */ /* Local Variable Definitions --- */ DEF VAR SAktiv AS LOG NO-UNDO INIT FALSE. DEF VAR FNeu AS LOG NO-UNDO INIT FALSE. DEF VAR FMut AS LOG NO-UNDO INIT FALSE. DEF VAR FCopy AS LOG NO-UNDO INIT FALSE. DEF VAR FDisp AS LOG NO-UNDO INIT TRUE . DEF VAR Fenster AS HANDLE NO-UNDO. DEF VAR oldColValues AS CHAR NO-UNDO. DEF VAR oldColList AS CHAR NO-UNDO. DEF VAR Firma AS CHAR NO-UNDO. DEF VAR ADFirma AS CHAR NO-UNDO. DEF VAR Vorhanden AS LOG NO-UNDO. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE SmartDataViewer &Scoped-define DB-AWARE no &Scoped-define ADM-CONTAINER FRAME &Scoped-define ADM-SUPPORTED-LINKS Data-Target,Update-Source,TableIO-Target,GroupAssign-Source,GroupAssign-Target /* Include file with RowObject temp-table definition */ &Scoped-define DATA-FIELD-DEFS "d-krest.i" /* Name of first Frame and/or Browse and/or first Query */ &Scoped-define FRAME-NAME F-Main /* Standard List Definitions */ &Scoped-Define ENABLED-FIELDS RowObject.BezugsPerson RowObject.Anrede ~ RowObject.Telefon RowObject.Fax RowObject.MWST_Nr RowObject.Kred_Knr ~ RowObject.Konto RowObject.Konto_S RowObject.BankE RowObject.BankKto ~ RowObject.BankA RowObject.PCKto RowObject.ESRTnNr RowObject.WIR% ~ RowObject.WIRKonto RowObject.Saldo &Scoped-define ENABLED-TABLES RowObject &Scoped-define FIRST-ENABLED-TABLE RowObject &Scoped-define DISPLAYED-TABLES RowObject &Scoped-define FIRST-DISPLAYED-TABLE RowObject &Scoped-Define ENABLED-OBJECTS CB_FRW_1 CB_FRW_2 CB_FRW_3 CB_Kond ~ CB_Rundung CB_Zahlart CB_Brief F_CLNR_1 F_CLNR_2 RECT-5 &Scoped-Define DISPLAYED-FIELDS RowObject.BezugsPerson RowObject.Anrede ~ RowObject.Telefon RowObject.Fax RowObject.MWST_Nr RowObject.Kred_Knr ~ RowObject.Firma RowObject.Knr RowObject.Konto RowObject.Konto_S ~ RowObject.Rabatt RowObject.FrwBas RowObject.BankE RowObject.BankKto ~ RowObject.BankA RowObject.PCKto RowObject.FrwA2 RowObject.FrwA1 ~ RowObject.ESRTnNr RowObject.WIR% RowObject.WIRKonto RowObject.Kond ~ RowObject.Aktiv RowObject.Brief RowObject.ZahlArt RowObject.Rundung ~ RowObject.Saldo &Scoped-Define DISPLAYED-OBJECTS CB_FRW_1 CB_FRW_2 CB_FRW_3 CB_Kond ~ CB_Rundung CB_Zahlart CB_Brief F_CLNR_1 F_CLNR_2 /* Custom List Definitions */ /* ADM-ASSIGN-FIELDS,List-2,List-3,List-4,List-5,List-6 */ /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Definitions of the field level widgets */ DEFINE VARIABLE CB_Brief AS CHARACTER FORMAT "X(256)":U LABEL "Briefart (AVIS)" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Keine AVIS","000000", "Brief 1","000001" DROP-DOWN-LIST SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_FRW_1 AS CHARACTER FORMAT "X(256)":U LABEL "Basis-Währung" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 30 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_FRW_2 AS CHARACTER FORMAT "X(256)":U LABEL "Ausweich-Währung 1" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 30 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_FRW_3 AS CHARACTER FORMAT "X(256)":U LABEL "Ausweich-Währung 2" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 30 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_Kond AS CHARACTER FORMAT "X(256)":U LABEL "Zahlungskonditionen" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_Rundung AS CHARACTER FORMAT "X(256)":U LABEL "Rundungsart" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Keine Rundung","00", "Kaufmännische Rundung","01", "Rundung auf ganze 10er (kaufmännisch)","02", "Rundung auf ganze 10er aufwärts","03", "Rundung auf ganze 10er abwärts","04", "Nachkommastellen weglassen (kaufmännisch)","05", "Nachkommastellen weglassen aufwärts","06", "Nachkommastellen weglassen abwärts","07", "Rundung auf Zehner-Fr. (kaufmännisch)","08", "Rundung auf Zehner-Fr. aufwärts","09", "Rundung auf Zehner-Fr. abwärts","10" DROP-DOWN-LIST SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_Zahlart AS CHARACTER FORMAT "X(256)":U LABEL "Zahlungsart" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Bankzahlung","01", "Postcheck/ESR-BESR","02", "Checkzahlung","03", "andere","04" DROP-DOWN-LIST SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_CLNR_1 AS CHARACTER FORMAT "X(256)":U LABEL "Clearing-Nr" VIEW-AS FILL-IN NATIVE SIZE 17.2 BY 1 NO-UNDO. DEFINE VARIABLE F_CLNR_2 AS CHARACTER FORMAT "X(256)":U LABEL "Clearing-Nr" VIEW-AS FILL-IN NATIVE SIZE 17.2 BY 1 NO-UNDO. DEFINE RECTANGLE RECT-5 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 118.4 BY 17.33. /* ************************ Frame Definitions *********************** */ DEFINE FRAME F-Main CB_FRW_1 AT ROW 1.52 COL 23 COLON-ALIGNED CB_FRW_2 AT ROW 2.52 COL 23 COLON-ALIGNED CB_FRW_3 AT ROW 3.52 COL 23 COLON-ALIGNED RowObject.BezugsPerson AT ROW 1.52 COL 78 COLON-ALIGNED LABEL "Bezugs-Person" FORMAT "x(30)" VIEW-AS FILL-IN NATIVE SIZE 32 BY 1 BGCOLOR 15 RowObject.Anrede AT ROW 2.52 COL 78 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 32 BY 1 BGCOLOR 15 RowObject.Telefon AT ROW 3.52 COL 78 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 22 BY 1 BGCOLOR 15 RowObject.Fax AT ROW 4.52 COL 78 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 22 BY 1 BGCOLOR 15 RowObject.MWST_Nr AT ROW 5 COL 23 COLON-ALIGNED LABEL "MWST-Nr" FORMAT "x(15)" VIEW-AS FILL-IN NATIVE SIZE 17 BY 1 BGCOLOR 15 RowObject.Kred_Knr AT ROW 6 COL 23 COLON-ALIGNED LABEL "unsere Knr" FORMAT "x(12)" VIEW-AS FILL-IN NATIVE SIZE 17 BY 1 BGCOLOR 15 CB_Kond AT ROW 7 COL 23 COLON-ALIGNED RowObject.Firma AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "Firma" FORMAT "x(08)" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP CB_Rundung AT ROW 8 COL 23 COLON-ALIGNED CB_Zahlart AT ROW 9 COL 23 COLON-ALIGNED CB_Brief AT ROW 10 COL 23 COLON-ALIGNED RowObject.Knr AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "Knr" FORMAT "999999" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP RowObject.Konto AT ROW 7 COL 83 COLON-ALIGNED LABEL "Sammelkonto" FORMAT "x(12)" VIEW-AS FILL-IN NATIVE SIZE 17.6 BY 1 BGCOLOR 15 RowObject.Konto_S AT ROW 8 COL 83 COLON-ALIGNED LABEL "Aufwandkonto" FORMAT "x(12)" VIEW-AS FILL-IN NATIVE SIZE 17.6 BY 1 BGCOLOR 15 RowObject.Rabatt AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "Rabatt" FORMAT "99.99" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP RowObject.FrwBas AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "FrwBas" FORMAT "x(03)" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP RowObject.BankE AT ROW 12 COL 23 COLON-ALIGNED LABEL "Bank des Kreditors" FORMAT "999999" VIEW-AS FILL-IN NATIVE SIZE 11 BY 1 BGCOLOR 15 RowObject.BankKto AT ROW 12 COL 83 COLON-ALIGNED LABEL "KontoNr" FORMAT "x(25)" VIEW-AS FILL-IN NATIVE SIZE 27 BY 1 BGCOLOR 15 RowObject.BankA AT ROW 13 COL 23 COLON-ALIGNED LABEL "Zahlende Bank (eig)" FORMAT "999999" VIEW-AS FILL-IN NATIVE SIZE 11 BY 1 TOOLTIP "Wenn dieser Kreditor ab einer bestimmten Bank/Bankkonto bezahlt werden soll" BGCOLOR 15 RowObject.PCKto AT ROW 14.52 COL 23 COLON-ALIGNED LABEL "PC-Kto" FORMAT "x(20)" VIEW-AS FILL-IN NATIVE SIZE 15 BY 1 BGCOLOR 15 RowObject.FrwA2 AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "FrwA2" FORMAT "x(03)" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE AT COL 1 ROW 1 SCROLLABLE . /* DEFINE FRAME statement is approaching 4K Bytes. Breaking it up */ DEFINE FRAME F-Main RowObject.FrwA1 AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "FrwA1" FORMAT "x(03)" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP RowObject.ESRTnNr AT ROW 14.52 COL 54 COLON-ALIGNED LABEL "ESR-TnNr" FORMAT "999999999" VIEW-AS FILL-IN NATIVE SIZE 14.6 BY 1 BGCOLOR 15 RowObject.WIR% AT ROW 16 COL 23 COLON-ALIGNED LABEL "%-Anteil WIR" FORMAT "999" VIEW-AS FILL-IN NATIVE SIZE 6.6 BY 1 BGCOLOR 15 RowObject.WIRKonto AT ROW 16 COL 54.2 COLON-ALIGNED LABEL "WIR-Konto (FIBU)" FORMAT "x(12)" VIEW-AS FILL-IN NATIVE SIZE 17.6 BY 1 BGCOLOR 15 RowObject.Kond AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "Kond" FORMAT "999999" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP F_CLNR_1 AT ROW 13 COL 54 COLON-ALIGNED NO-TAB-STOP RowObject.Aktiv AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "Aktiv" FORMAT "Ja/Nein" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP RowObject.Brief AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "Brief" FORMAT "999999" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP RowObject.ZahlArt AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "ZahlArt" FORMAT "99" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP RowObject.Rundung AT ROW 5.52 COL 105 COLON-ALIGNED LABEL "Rundung" FORMAT "99" VIEW-AS FILL-IN SIZE 4 BY 1 BGCOLOR 15 NO-TAB-STOP F_CLNR_2 AT ROW 12 COL 54 COLON-ALIGNED NO-TAB-STOP RowObject.Saldo AT ROW 16 COL 84.2 COLON-ALIGNED LABEL "Saldo" FORMAT "zzz,zzz,zz9.99-" VIEW-AS FILL-IN NATIVE SIZE 23 BY 1 BGCOLOR 14 NO-TAB-STOP RECT-5 AT ROW 1.24 COL 2 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE AT COL 1 ROW 1 SCROLLABLE . /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartDataViewer Data Source: "d-krest.w" Allow: Basic,DB-Fields,Smart Container Links: Data-Target,Update-Source,TableIO-Target,GroupAssign-Source,GroupAssign-Target Frames: 1 Add Fields to: Neither Other Settings: PERSISTENT-ONLY COMPILE Temp-Tables and Buffers: TABLE: RowObject D "?" ? ADDITIONAL-FIELDS: {d-krest.i} END-FIELDS. 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 vTableWin ASSIGN HEIGHT = 17.86 WIDTH = 121.4. /* END WINDOW DEFINITION */ */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB vTableWin /* ************************* Included-Libraries *********************** */ {src/adm2/viewer.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR WINDOW vTableWin VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME F-Main NOT-VISIBLE Size-to-Fit Custom */ ASSIGN FRAME F-Main:SCROLLABLE = FALSE FRAME F-Main:HIDDEN = TRUE. /* SETTINGS FOR FILL-IN RowObject.Aktiv IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Aktiv:HIDDEN IN FRAME F-Main = TRUE RowObject.Aktiv:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.BankA IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.BankE IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.BankKto IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.BezugsPerson IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.Brief IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Brief:HIDDEN IN FRAME F-Main = TRUE RowObject.Brief:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.ESRTnNr IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.Firma IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Firma:HIDDEN IN FRAME F-Main = TRUE RowObject.Firma:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.FrwA1 IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.FrwA1:HIDDEN IN FRAME F-Main = TRUE RowObject.FrwA1:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.FrwA2 IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.FrwA2:HIDDEN IN FRAME F-Main = TRUE RowObject.FrwA2:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.FrwBas IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.FrwBas:HIDDEN IN FRAME F-Main = TRUE RowObject.FrwBas:READ-ONLY IN FRAME F-Main = TRUE. ASSIGN F_CLNR_1:READ-ONLY IN FRAME F-Main = TRUE. ASSIGN F_CLNR_2:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.Knr IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Knr:HIDDEN IN FRAME F-Main = TRUE RowObject.Knr:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.Kond IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Kond:HIDDEN IN FRAME F-Main = TRUE RowObject.Kond:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.Konto IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.Konto_S IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.Kred_Knr IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.MWST_Nr IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.PCKto IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.Rabatt IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Rabatt:HIDDEN IN FRAME F-Main = TRUE RowObject.Rabatt:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.Rundung IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Rundung:HIDDEN IN FRAME F-Main = TRUE RowObject.Rundung:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.Saldo IN FRAME F-Main EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Saldo:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.WIR% IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.WIRKonto IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.ZahlArt IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.ZahlArt:HIDDEN IN FRAME F-Main = TRUE RowObject.ZahlArt:READ-ONLY IN FRAME F-Main = TRUE. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main /* Query rebuild information for FRAME F-Main _Options = "NO-LOCK" _Query is NOT OPENED */ /* FRAME F-Main */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME RowObject.BankA &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.BankA vTableWin ON ALT-F OF RowObject.BankA IN FRAME F-Main /* Zahlende Bank (eig) */ DO: IF NOT FMut THEN RETURN NO-APPLY. DEF VAR cBank AS CHAR NO-UNDO. RUN g-such-bank.w ( INPUT-OUTPUT cBank ). IF cBank = '' THEN DO: APPLY 'ENTRY' TO SELF. RETURN NO-APPLY. END. rowObject.BankA:SCREEN-VALUE = STRING(ENTRY(1, cBank, CHR(01))). APPLY 'TAB' TO SELF. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME RowObject.BankE &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.BankE vTableWin ON ALT-F OF RowObject.BankE IN FRAME F-Main /* Bank des Kreditors */ DO: IF NOT FMut THEN RETURN NO-APPLY. DEF VAR cBank AS CHAR NO-UNDO. RUN g-such-bank.w ( INPUT-OUTPUT cBank ). IF cBank = '' THEN DO: APPLY 'ENTRY' TO SELF. RETURN NO-APPLY. END. rowObject.BankE:SCREEN-VALUE = STRING(ENTRY(1, cBank, CHR(01))). APPLY 'TAB' TO SELF. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_Brief &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Brief vTableWin ON VALUE-CHANGED OF CB_Brief IN FRAME F-Main /* Briefart (AVIS) */ DO: IF FMut THEN rowObject.Brief:SCREEN-VALUE = SELF:SCREEN-VALUE. ELSE SELF:SCREEN-VALUE = rowObject.Brief:SCREEN-VALUE NO-ERROR. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_FRW_1 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_FRW_1 vTableWin ON VALUE-CHANGED OF CB_FRW_1 IN FRAME F-Main /* Basis-Währung */ DO: IF FMut THEN rowObject.FRWBas:SCREEN-VALUE = SELF:SCREEN-VALUE. ELSE SELF:SCREEN-VALUE = rowObject.FRWBas:SCREEN-VALUE NO-ERROR. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_FRW_2 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_FRW_2 vTableWin ON VALUE-CHANGED OF CB_FRW_2 IN FRAME F-Main /* Ausweich-Währung 1 */ DO: IF FMut THEN rowObject.FRWA1:SCREEN-VALUE = SELF:SCREEN-VALUE. ELSE SELF:SCREEN-VALUE = rowObject.FRWA1:SCREEN-VALUE NO-ERROR. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_FRW_3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_FRW_3 vTableWin ON VALUE-CHANGED OF CB_FRW_3 IN FRAME F-Main /* Ausweich-Währung 2 */ DO: IF FMut THEN rowObject.FRWA2:SCREEN-VALUE = SELF:SCREEN-VALUE. ELSE SELF:SCREEN-VALUE = rowObject.FRWA2:SCREEN-VALUE NO-ERROR. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_Kond &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Kond vTableWin ON VALUE-CHANGED OF CB_Kond IN FRAME F-Main /* Zahlungskonditionen */ DO: IF FMut THEN rowObject.Kond:SCREEN-VALUE = SELF:SCREEN-VALUE. ELSE SELF:SCREEN-VALUE = rowObject.Kond:SCREEN-VALUE NO-ERROR. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_Rundung &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Rundung vTableWin ON VALUE-CHANGED OF CB_Rundung IN FRAME F-Main /* Rundungsart */ DO: IF FMut THEN rowObject.Rundung:SCREEN-VALUE = SELF:SCREEN-VALUE. ELSE SELF:SCREEN-VALUE = rowObject.Rundung:SCREEN-VALUE NO-ERROR. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_Zahlart &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Zahlart vTableWin ON VALUE-CHANGED OF CB_Zahlart IN FRAME F-Main /* Zahlungsart */ DO: IF FMut THEN rowObject.ZahlArt:SCREEN-VALUE = SELF:SCREEN-VALUE. ELSE SELF:SCREEN-VALUE = rowObject.ZahlArt:SCREEN-VALUE NO-ERROR. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK vTableWin /* *************************** Main Block *************************** */ SAktiv = DYNAMIC-FUNCTION('getSuperAktiv':U) NO-ERROR. IF SAktiv THEN DO: Firma = DYNAMIC-FUNCTION('GETMANDANT':U) NO-ERROR. ADFirma = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR. END. /* Triggers ------------------------------------------------------ */ ON 'RETURN':U OF FRAME {&FRAME-NAME} ANYWHERE DO: RUN RETURN_FELD ( INPUT SELF:HANDLE ). IF RETURN-VALUE = 'TAB' THEN DO: APPLY 'TAB' TO SELF. RETURN NO-APPLY. END. END. ON 'ENTRY':U OF FRAME {&FRAME-NAME} ANYWHERE DO: RUN ENTRY_FELD_TEST ( INPUT SELF:HANDLE ). IF RETURN-VALUE = 'ERROR' THEN DO: APPLY 'ENTRY' TO SELF. RETURN NO-APPLY. END. IF RETURN-VALUE = 'APPLY' THEN DO: RETURN NO-APPLY. END. END. ON 'LEAVE':U OF FRAME {&FRAME-NAME} ANYWHERE DO: RUN LEAVE_FELD_TEST ( INPUT SELF:HANDLE ). IF RETURN-VALUE = 'ERROR' THEN DO: APPLY 'ENTRY' TO SELF. RETURN NO-APPLY. END. IF RETURN-VALUE = 'APPLY' THEN DO: RETURN NO-APPLY. END. END. &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN RUN initializeObject. &ENDIF /************************ INTERNAL PROCEDURES ********************/ /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE addRecord vTableWin PROCEDURE addRecord : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR Knr AS INT NO-UNDO. Knr = DYNAMIC-FUNCTION('GETKNR':U) NO-ERROR. IF Knr = 0 THEN DO: DYNAMIC-FUNCTION('setFlagAbbruchAlt':U, INPUT TRUE) NO-ERROR. RETURN NO-APPLY. END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = ADFirma AND Adresse.Knr = Knr NO-LOCK NO-ERROR. IF Adresse.Aktiv = FALSE THEN DO: RUN FEHLER ( INPUT 1046 ). DYNAMIC-FUNCTION('setFlagAbbruchAlt':U, INPUT TRUE) NO-ERROR. RETURN NO-APPLY. END. FNeu = TRUE. FMut = TRUE. RUN SUPER. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE cancelRecord vTableWin PROCEDURE cancelRecord : /*------------------------------------------------------------------------------ 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 copyRecord vTableWin PROCEDURE copyRecord : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DYNAMIC-FUNCTION('setFlagAbbruchAlt':U, INPUT TRUE) NO-ERROR. RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE deleteRecord vTableWin PROCEDURE deleteRecord : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR Ja AS LOG NO-UNDO. Ja = DYNAMIC-FUNCTION( 'ANTWORT_JA':U, INPUT 1000 ). IF NOT Ja THEN DO: PUBLISH 'TOOLBAR' ( INPUT 'CANCEL':U ). RETURN NO-APPLY. END. DO WITH FRAME {&FRAME-NAME}: rowObject.Aktiv:SCREEN-VALUE = STRING(FALSE). RUN updateRecord. END. RUN SUPER. /* Code placed here will execute AFTER standard behavior. */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disableFields vTableWin PROCEDURE disableFields : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER pcFieldType AS CHARACTER NO-UNDO. DO WITH FRAME {&FRAME-NAME}: END. RUN SUPER( INPUT pcFieldType). IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION. RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ). IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN DO: RUN FARBE_FELDER ( INPUT Fenster, INPUT '{&KEY_FELDER}', INPUT 15 ). END. DO WITH FRAME {&FRAME-NAME}: END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI vTableWin _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 displayFields vTableWin PROCEDURE displayFields : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER pcColValues AS CHARACTER NO-UNDO. DEF VAR ja AS LOG INIT TRUE NO-UNDO. DEF VAR Farbe AS INT NO-UNDO. DEF VAR cDaten AS CHAR NO-UNDO. IF NOT FDisp THEN DO: FDisp = TRUE. RETURN. END. OldColValues = pcColValues. OldColList = DYNAMIC-FUNCTION('getDisplayedFields':U). IF pcColValues = ? THEN Ja = FALSE. IF pcColValues = ? THEN RUN FEHLWERTE ( INPUT-OUTPUT pcColValues ). IF FNeu THEN RUN FEHLWERTE ( INPUT-OUTPUT pcColValues ). DO WITH FRAME {&FRAME-NAME}: END. RUN SUPER( INPUT pcColValues). DO WITH FRAME {&FRAME-NAME}: CB_FRW_1:SCREEN-VALUE = rowObject.FrwBas:SCREEN-VALUE NO-ERROR. CB_FRW_2:SCREEN-VALUE = rowObject.FrwA1:SCREEN-VALUE NO-ERROR. CB_FRW_3:SCREEN-VALUE = rowObject.FrwA2:SCREEN-VALUE NO-ERROR. CB_Kond:SCREEN-VALUE = rowObject.Kond:SCREEN-VALUE NO-ERROR. CB_ZahlArt:SCREEN-VALUE = rowObject.ZahlArt:SCREEN-VALUE NO-ERROR. CB_Brief:SCREEN-VALUE = rowObject.Brief:SCREEN-VALUE NO-ERROR. CB_Rundung:SCREEN-VALUE = rowObject.Rundung:SCREEN-VALUE NO-ERROR. RUN FIND_BANKST ( INPUT INTEGER(rowObject.BankA:SCREEN-VALUE), OUTPUT cDaten ). F_CLNR_1:SCREEN-VALUE = ENTRY(2, cDaten, CHR(01)). RUN FIND_BANKST ( INPUT INTEGER(rowObject.BankE:SCREEN-VALUE), OUTPUT cDaten ). F_CLNR_2:SCREEN-VALUE = ENTRY(2, cDaten, CHR(01)). END. IF SAktiv THEN DO WITH FRAME {&FRAME-NAME}: Farbe = 15. IF rowObject.Aktiv:SCREEN-VALUE BEGINS 'n' THEN Farbe = 12. IF NOT Ja THEN Farbe = 08. IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION. RUN FARBE_FELDER ( INPUT Fenster , INPUT '{&ENABLED-FIELDS}', INPUT Farbe ). RUN FARBE_FELDER ( INPUT Fenster , INPUT '{&ENABLED-OBJECTS}', INPUT Farbe ). END. Vorhanden = Ja. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableFields vTableWin PROCEDURE enableFields : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ /* Code placed here will execute PRIOR to standard behavior. */ /* RUN SUPER. */ IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION. RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT FALSE ). IF NUM-ENTRIES('{&NUR_LESEN}', ',') > 0 THEN DO: RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&NUR_LESEN}', INPUT TRUE ). END. DO WITH FRAME {&FRAME-NAME}: END. IF FNeu THEN RETURN. IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN DO: RUN SCHUETZE_FELDER ( INPUT Fenster, INPUT '{&KEY_FELDER}', INPUT TRUE ). END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject vTableWin PROCEDURE enableObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DO WITH FRAME {&FRAME-NAME}: RUN COMBO_KONDITION ( INPUT CB_Kond:HANDLE ). RUN COMBO_FRW ( INPUT CB_FRW_1:HANDLE ). RUN COMBO_FRW ( INPUT CB_FRW_2:HANDLE ). RUN COMBO_FRW ( INPUT CB_FRW_3:HANDLE ). END. RUN SUPER. IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION. IF SAktiv THEN DO: RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ). END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENTRY_FELD_TEST vTableWin PROCEDURE ENTRY_FELD_TEST : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipHandle AS HANDLE NO-UNDO. DEF VAR FeldName AS CHAR NO-UNDO. DEF VAR FeldInhalt AS CHAR NO-UNDO. FeldName = ''. FeldInhalt = ''. IF NOT VALID-HANDLE(ipHandle) THEN RETURN ''. IF ipHandle:TYPE = 'FRAME' THEN RETURN ''. IF ipHandle:TYPE = 'WINDOW' THEN RETURN ''. FeldName = ipHandle:NAME. IF ipHandle:TYPE = 'FILL-IN' OR ipHandle:TYPE = 'COMBO-BOX' OR ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE. IF NOT FMut THEN RETURN ''. DO WITH FRAME {&FRAME-NAME}: CASE FeldName: END CASE. END. RETURN ''. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FEHLWERTE vTableWin PROCEDURE FEHLWERTE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT-OUTPUT PARAMETER pcColValues AS CHAR NO-UNDO. DEF VAR FwFelder AS CHAR NO-UNDO. DEF VAR FwFeld AS CHAR NO-UNDO. DEF VAR FwValue AS CHAR NO-UNDO. DEF VAR ix AS INT NO-UNDO. DEF VAR i1 AS INT NO-UNDO. GET-KEY-VALUE SECTION 'FwKreditor' KEY ? VALUE FwFelder. IF pcColValues = ? THEN pcColValues = FILL(CHR(01), NUM-ENTRIES(oldColList, ',')). IF NOT FCopy THEN DO: DO ix = 1 TO NUM-ENTRIES(FwFelder, ','): FwFeld = ENTRY (ix , FwFelder , ','). i1 = LOOKUP(FwFeld, oldColList, ',') + 1. IF i1 < 2 THEN NEXT. GET-KEY-VALUE SECTION 'FwKreditor' KEY FwFeld VALUE FwValue. ENTRY(i1, pcColValues, CHR(1)) = FwValue NO-ERROR. END. END. i1 = LOOKUP('Firma', oldColList, ',') + 1. ENTRY(i1, pcColValues, CHR(1)) = Firma NO-ERROR. IF FCopy THEN DO: END. OldColValues = pcColValues. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LEAVE_FELD_TEST vTableWin PROCEDURE LEAVE_FELD_TEST : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipHandle AS HANDLE NO-UNDO. DEF VAR FeldName AS CHAR NO-UNDO. DEF VAR FeldInhalt AS CHAR NO-UNDO. DEF VAR ix AS INT NO-UNDO. DEF VAR LKY AS INT NO-UNDO. DEF VAR hLEAVE AS HANDLE NO-UNDO. DEF VAR hENTER AS HANDLE NO-UNDO. DEF VAR Daten AS CHAR NO-UNDO. IF FMut = FALSE THEN RETURN ''. LKY = LASTKEY. hENTER = LAST-EVENT:WIDGET-ENTER. hLEAVE = LAST-EVENT:WIDGET-LEAVE. FeldName = ''. FeldInhalt = ''. IF NOT VALID-HANDLE(ipHandle) THEN RETURN ''. IF ipHandle:TYPE = 'FRAME' THEN RETURN ''. IF ipHandle:TYPE = 'WINDOW' THEN RETURN ''. FeldName = ipHandle:NAME. IF ipHandle:TYPE = 'FILL-IN' OR ipHandle:TYPE = 'COMBO-BOX' OR ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE. DO WHILE FNeu: CASE FeldName: END CASE. LEAVE. END. DO WITH FRAME {&FRAME-NAME}: CASE FeldName: WHEN 'BankA' THEN DO: RUN FIND_BANKST ( INPUT INTEGER(rowObject.BankA:SCREEN-VALUE), OUTPUT Daten ). F_CLNR_1:SCREEN-VALUE = ENTRY(2, Daten, CHR(01)). END. WHEN 'BankE' THEN DO: RUN FIND_BANKST ( INPUT INTEGER(rowObject.BankE:SCREEN-VALUE), OUTPUT Daten ). F_CLNR_2:SCREEN-VALUE = ENTRY(2, Daten, CHR(01)). END. END CASE. END. IF LOOKUP(FeldName, '{&LETZTES_FELD}', ',') > 0 THEN DO: DO WHILE TRUE: IF KEYFUNCTION(LKY) = 'TAB' THEN LEAVE. IF KEYFUNCTION(LKY) = 'RETURN' THEN LEAVE. IF KEYFUNCTION(LKY) = 'F9' THEN LEAVE. RETURN ''. END. APPLY 'ALT-S'. RETURN 'APPLY'. END. RETURN ''. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE RETURN_FELD vTableWin PROCEDURE RETURN_FELD : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipHandle AS HANDLE NO-UNDO. DEF VAR FeldName AS CHAR NO-UNDO. IF FMut = FALSE THEN RETURN ''. IF NOT VALID-HANDLE(ipHandle) THEN RETURN ''. IF ipHandle:TYPE = 'FRAME' THEN RETURN ''. IF ipHandle:TYPE = 'WINDOW' THEN RETURN ''. FeldName = ipHandle:NAME. IF LOOKUP(FeldName, '{&ENABLED-FIELDS}', ' ') > 0 THEN DO: RETURN 'TAB'. END. IF LOOKUP(FeldName, '{&ENABLED-OBJECTS}', ' ') > 0 THEN DO: RETURN 'TAB'. END. FeldName = 'rowObject.' + FeldName. IF LOOKUP(FeldName, '{&ENABLED-FIELDS}', ' ') > 0 THEN DO: RETURN 'TAB'. END. IF LOOKUP(FeldName, '{&ENABLED-OBJECTS}', ' ') > 0 THEN DO: RETURN 'TAB'. END. RETURN ''. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE updateMode vTableWin PROCEDURE updateMode : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER pcMode AS CHARACTER NO-UNDO. CASE pcMode: WHEN 'updateBegin' THEN DO: IF NOT Vorhanden THEN DO: DYNAMIC-FUNCTION('setFlagAbbruchAlt':U, INPUT TRUE) NO-ERROR. RETURN NO-APPLY. END. END. WHEN 'updateEnd' THEN DO: END. END. RUN SUPER( INPUT pcMode). CASE pcMode: WHEN 'updateBegin' THEN DO: FMut = TRUE. END. WHEN 'updateEnd' THEN DO: FNeu = FALSE. FMut = FALSE. FCopy = FALSE. END. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE updateRecord vTableWin PROCEDURE updateRecord : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DO WITH FRAME {&FRAME-NAME}: rowObject.FRWBas:SCREEN-VALUE = CB_FRW_1:SCREEN-VALUE. rowObject.FRWA1:SCREEN-VALUE = CB_FRW_2:SCREEN-VALUE. rowObject.FRWA2:SCREEN-VALUE = CB_FRW_3:SCREEN-VALUE. rowObject.Kond:SCREEN-VALUE = CB_Kond:SCREEN-VALUE. rowObject.ZahlArt:SCREEN-VALUE = CB_ZahlArt:SCREEN-VALUE. rowObject.Brief:SCREEN-VALUE = CB_Brief:SCREEN-VALUE. IF FNeu THEN DO: rowObject.Firma:SCREEN-VALUE = Firma. END. END. FNeu = FALSE. FCopy = FALSE. RUN SUPER. /* Code placed here will execute AFTER standard behavior. */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME