&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2 &ANALYZE-RESUME /* Connected Databases anadat PROGRESS */ &Scoped-define WINDOW-NAME CURRENT-WINDOW /* Temp-Table and Buffer definitions */ DEFINE TEMP-TABLE RowObject {"d-ansprech.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 Ind &Scoped-define LETZTES_FELD Cd15 &Scoped-define KEY_FELDER Ind &Scoped-define NUR_LESEN /* Parameters Definitions --- */ /* Local Variable Definitions --- */ { incl/viwdefinition.i } DEF VAR FFMut AS LOG NO-UNDO INIT FALSE. DEF VAR Aktiv AS LOG NO-UNDO INIT FALSE. DEF VAR cSubject AS CHAR NO-UNDO. DEF VAR cText AS CHAR NO-UNDO. DEF VAR cAttach AS CHAR NO-UNDO. DEF VAR lDebitoren AS LOG NO-UNDO. DEF VAR lBestellung AS LOG NO-UNDO. DEF VAR lLieferschein 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-ansprech.i" /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME F-Main /* Standard List Definitions */ &Scoped-Define ENABLED-FIELDS RowObject.Ind RowObject.Funktion ~ RowObject.Name RowObject.Vorname RowObject.Tel-1 RowObject.Tel-3 ~ RowObject.Natel RowObject.Mail RowObject.Tel-2 RowObject.Tel-4 ~ RowObject.Debitoren RowObject.Bestellung RowObject.Lieferschein ~ RowObject.Cd01 RowObject.Cd02 RowObject.Cd03 RowObject.Cd04 RowObject.Cd05 ~ RowObject.Cd06 RowObject.Cd07 RowObject.Cd08 RowObject.Cd09 RowObject.Cd10 ~ RowObject.Cd11 RowObject.Cd12 RowObject.Cd13 RowObject.Cd14 RowObject.Cd15 &Scoped-define ENABLED-TABLES RowObject &Scoped-define FIRST-ENABLED-TABLE RowObject &Scoped-Define ENABLED-OBJECTS CB_Sprache CB_Anrede RECT-1 &Scoped-Define DISPLAYED-FIELDS RowObject.Ind RowObject.Funktion ~ RowObject.Name RowObject.Vorname RowObject.Tel-1 RowObject.Tel-3 ~ RowObject.Natel RowObject.Mail RowObject.Tel-2 RowObject.Tel-4 ~ RowObject.Anrcd RowObject.Debitoren RowObject.Bestellung ~ RowObject.Lieferschein RowObject.Cd01 RowObject.Cd02 RowObject.Cd03 ~ RowObject.Knr RowObject.Cd04 RowObject.Cd05 RowObject.Sprcd RowObject.Cd06 ~ RowObject.Firma RowObject.Cd07 RowObject.Cd08 RowObject.Cd09 RowObject.Cd10 ~ RowObject.Cd11 RowObject.Cd12 RowObject.Cd13 RowObject.Cd14 RowObject.Cd15 &Scoped-define DISPLAYED-TABLES RowObject &Scoped-define FIRST-DISPLAYED-TABLE RowObject &Scoped-Define DISPLAYED-OBJECTS CB_Sprache CB_Anrede /* Custom List Definitions */ /* ADM-ASSIGN-FIELDS,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-6 F_Cd01 F_Cd02 F_Cd03 F_Cd04 F_Cd05 F_Cd06 F_Cd07 ~ F_Cd08 F_Cd09 F_Cd10 F_Cd11 F_Cd12 F_Cd13 F_Cd14 F_Cd15 /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Menu Definitions */ DEFINE SUB-MENU m_Ueberschrift_Codefelder MENU-ITEM m_Mutieren LABEL "Mutieren" MENU-ITEM m_Speichern LABEL "Speichern" . DEFINE MENU POPUP-MENU-F-Main SUB-MENU m_Ueberschrift_Codefelder LABEL "Ueberschrift Codefelder" MENU-ITEM m_eShop_Login LABEL "eShop Login" . DEFINE MENU POPUP-MENU-Natel MENU-ITEM X_NATEL LABEL "Telefonieren" . DEFINE MENU POPUP-MENU-Tel-1 MENU-ITEM X_Telefongeschaeft LABEL "Telefonieren" . DEFINE MENU POPUP-MENU-Tel-2 MENU-ITEM X_TelefonPrivat LABEL "Telefonieren" . /* Definitions of the field level widgets */ DEFINE VARIABLE CB_Anrede AS CHARACTER FORMAT "X(256)":U LABEL "Anrede" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 42 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_Sprache AS CHARACTER FORMAT "X(256)":U LABEL "Sprache" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 42 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Cd01 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd02 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd03 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd04 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd05 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd06 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd07 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd08 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd09 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd10 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd11 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd12 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd13 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd14 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE VARIABLE F_Cd15 AS CHARACTER FORMAT "x(05)":U VIEW-AS FILL-IN SIZE 8 BY 1 NO-UNDO. DEFINE RECTANGLE RECT-1 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 136 BY 10.48. /* ************************ Frame Definitions *********************** */ DEFINE FRAME F-Main F_Cd01 AT ROW 9 COL 2 COLON-ALIGNED NO-LABEL NO-TAB-STOP RowObject.Ind AT ROW 1.52 COL 18 COLON-ALIGNED LABEL "Index" FORMAT "99" VIEW-AS FILL-IN NATIVE SIZE 4.8 BY 1 BGCOLOR 15 RowObject.Funktion AT ROW 2.52 COL 18 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 32 BY 1 BGCOLOR 15 RowObject.Name AT ROW 3.52 COL 18 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 32 BY 1 BGCOLOR 15 RowObject.Vorname AT ROW 4.52 COL 18 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 22 BY 1 BGCOLOR 15 RowObject.Tel-1 AT ROW 5.52 COL 18 COLON-ALIGNED LABEL "Telefon G" FORMAT "X(20)" VIEW-AS FILL-IN NATIVE SIZE 22 BY 1 BGCOLOR 15 RowObject.Tel-3 AT ROW 6.52 COL 18 COLON-ALIGNED LABEL "Fax G" FORMAT "X(20)" VIEW-AS FILL-IN NATIVE SIZE 22 BY 1 BGCOLOR 15 RowObject.Natel AT ROW 1.52 COL 73 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 22 BY 1 BGCOLOR 15 RowObject.Mail AT ROW 2.52 COL 73 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 60 BY 1 BGCOLOR 15 RowObject.Tel-2 AT ROW 3.52 COL 73 COLON-ALIGNED LABEL "Telefon P" FORMAT "X(20)" VIEW-AS FILL-IN NATIVE SIZE 22 BY 1 BGCOLOR 15 RowObject.Tel-4 AT ROW 4.52 COL 73 COLON-ALIGNED LABEL "Fax P" FORMAT "X(20)" VIEW-AS FILL-IN NATIVE SIZE 22 BY 1 BGCOLOR 15 CB_Sprache AT ROW 5.52 COL 73 COLON-ALIGNED CB_Anrede AT ROW 6.52 COL 73 COLON-ALIGNED RowObject.Anrcd AT ROW 5 COL 53 COLON-ALIGNED LABEL "Anrede" FORMAT "99" VIEW-AS FILL-IN NATIVE SIZE 4 BY 1 NO-TAB-STOP RowObject.Debitoren AT ROW 7.81 COL 20 WIDGET-ID 4 LABEL "Debitoren" VIEW-AS TOGGLE-BOX SIZE 14.2 BY 1 RowObject.Bestellung AT ROW 7.81 COL 45.8 WIDGET-ID 2 LABEL "Bestellwesen" VIEW-AS TOGGLE-BOX SIZE 20.8 BY 1 RowObject.Lieferschein AT ROW 7.81 COL 75 WIDGET-ID 6 LABEL "Lieferschein" VIEW-AS TOGGLE-BOX SIZE 20.2 BY 1 RowObject.Cd01 AT ROW 10 COL 2 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd02 AT ROW 10 COL 10 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd03 AT ROW 10 COL 18 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Knr AT ROW 5 COL 53 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 4 BY 1 NO-TAB-STOP RowObject.Cd04 AT ROW 10 COL 26 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd05 AT ROW 10 COL 34 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Sprcd AT ROW 5 COL 53 COLON-ALIGNED LABEL "Sprache" FORMAT "99" VIEW-AS FILL-IN NATIVE SIZE 4 BY 1 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.Cd06 AT ROW 10 COL 42 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Firma AT ROW 5 COL 53 COLON-ALIGNED VIEW-AS FILL-IN NATIVE SIZE 4 BY 1 NO-TAB-STOP RowObject.Cd07 AT ROW 10 COL 50 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd08 AT ROW 10 COL 58 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd09 AT ROW 10 COL 66 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd10 AT ROW 10 COL 74 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd11 AT ROW 10 COL 82 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd12 AT ROW 10 COL 90 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd13 AT ROW 10 COL 98 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd14 AT ROW 10 COL 106 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 RowObject.Cd15 AT ROW 10 COL 114 COLON-ALIGNED NO-LABEL VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 F_Cd02 AT ROW 9 COL 10 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd03 AT ROW 9 COL 18 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd04 AT ROW 9 COL 26 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd05 AT ROW 9 COL 34 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd06 AT ROW 9 COL 42 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd07 AT ROW 9 COL 50 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd08 AT ROW 9 COL 58 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd09 AT ROW 9 COL 66 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd10 AT ROW 9 COL 74 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd11 AT ROW 9 COL 82 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd12 AT ROW 9 COL 90 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd13 AT ROW 9 COL 98 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd14 AT ROW 9 COL 106 COLON-ALIGNED NO-LABEL NO-TAB-STOP F_Cd15 AT ROW 9 COL 114 COLON-ALIGNED NO-LABEL NO-TAB-STOP RECT-1 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-ansprech.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-ansprech.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 = 10.95 WIDTH = 138. /* 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 FRAME-NAME Size-to-Fit Custom */ ASSIGN FRAME F-Main:SCROLLABLE = FALSE FRAME F-Main:HIDDEN = TRUE FRAME F-Main:POPUP-MENU = MENU POPUP-MENU-F-Main:HANDLE. /* SETTINGS FOR FILL-IN RowObject.Anrcd IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Anrcd:HIDDEN IN FRAME F-Main = TRUE RowObject.Anrcd:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR TOGGLE-BOX RowObject.Bestellung IN FRAME F-Main EXP-LABEL */ /* SETTINGS FOR TOGGLE-BOX RowObject.Debitoren IN FRAME F-Main EXP-LABEL */ /* SETTINGS FOR FILL-IN RowObject.Firma IN FRAME F-Main NO-ENABLE */ ASSIGN RowObject.Firma:HIDDEN IN FRAME F-Main = TRUE RowObject.Firma:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN F_Cd01 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd02 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd03 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd04 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd05 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd06 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd07 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd08 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd09 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd10 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd11 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd12 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd13 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd14 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN F_Cd15 IN FRAME F-Main NO-DISPLAY NO-ENABLE 6 */ /* SETTINGS FOR FILL-IN RowObject.Ind IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.Knr IN FRAME F-Main NO-ENABLE */ ASSIGN RowObject.Knr:HIDDEN IN FRAME F-Main = TRUE RowObject.Knr:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR TOGGLE-BOX RowObject.Lieferschein IN FRAME F-Main EXP-LABEL */ ASSIGN RowObject.Natel:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-Natel:HANDLE. /* SETTINGS FOR FILL-IN RowObject.Sprcd IN FRAME F-Main NO-ENABLE EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Sprcd:HIDDEN IN FRAME F-Main = TRUE RowObject.Sprcd:READ-ONLY IN FRAME F-Main = TRUE. /* SETTINGS FOR FILL-IN RowObject.Tel-1 IN FRAME F-Main EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Tel-1:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-Tel-1:HANDLE. /* SETTINGS FOR FILL-IN RowObject.Tel-2 IN FRAME F-Main EXP-LABEL EXP-FORMAT */ ASSIGN RowObject.Tel-2:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-Tel-2:HANDLE. /* SETTINGS FOR FILL-IN RowObject.Tel-3 IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN RowObject.Tel-4 IN FRAME F-Main EXP-LABEL EXP-FORMAT */ /* _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.Bestellung &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.Bestellung vTableWin ON VALUE-CHANGED OF RowObject.Bestellung IN FRAME F-Main /* Bestellwesen */ DO: IF FMut THEN RETURN. SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)). END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME RowObject.Debitoren &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.Debitoren vTableWin ON VALUE-CHANGED OF RowObject.Debitoren IN FRAME F-Main /* Debitoren */ DO: IF FMut THEN RETURN. SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)). END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME RowObject.Lieferschein &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.Lieferschein vTableWin ON VALUE-CHANGED OF RowObject.Lieferschein IN FRAME F-Main /* Lieferschein */ DO: IF FMut THEN RETURN. SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)). END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME RowObject.Mail &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.Mail vTableWin ON LEFT-MOUSE-DBLCLICK OF RowObject.Mail IN FRAME F-Main /* Mail */ DO: IF FMut THEN RETURN NO-APPLY. IF SELF:SCREEN-VALUE = '' THEN RETURN NO-APPLY. IF INDEX(SELF:SCREEN-VALUE, '@') = 0 THEN RETURN NO-APPLY. cSubject = ''. cAttach = ''. cText = ''. DO WITH FRAME {&FRAME-NAME}: RUN SEND_MAIL_BY_MAILADRESSE ( INPUT SELF:SCREEN-VALUE, INPUT '', INPUT cSubject, INPUT cText, INPUT cAttach ). RETURN NO-APPLY. END. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME m_eShop_Login &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_eShop_Login vTableWin ON CHOOSE OF MENU-ITEM m_eShop_Login /* eShop Login */ DO: DEF VAR cBenutzer AS CHAR INIT '' NO-UNDO. DEF VAR cMail AS CHAR INIT '' NO-UNDO. DEF VAR cPasswort AS CHAR INIT '' NO-UNDO. DEF VAR hDaten AS HANDLE NO-UNDO. DEF VAR lJa AS LOG INIT FALSE NO-UNDO. DEF VAR iKnr AS INT NO-UNDO. DEF VAR iInd AS INT NO-UNDO. iKnr = INTEGER(rowObject.Knr:SCREEN-VALUE IN FRAME {&FRAME-NAME}). iInd = INTEGER(rowObject.Ind:SCREEN-VALUE IN FRAME {&FRAME-NAME}). FIND Ansprech NO-LOCK WHERE Ansprech.Firma = AdFirma AND Ansprech.Knr = iKnr AND Ansprech.Ind = iInd. ASSIGN cBenutzer = Ansprech.esBenutzer cMail = Ansprech.esMail cPasswort = ENTRY(1, Ansprech.esPasswort, CHR(250)). RUN 'g-eshoplogin.w' ( INPUT-OUTPUT cBenutzer, INPUT-OUTPUT cMail, INPUT-OUTPUT cPasswort, OUTPUT lJa). IF NOT lJa THEN RETURN NO-APPLY. IF cBenutzer = '' OR cMail = '' OR cPasswort = '' THEN RETURN NO-APPLY. DO WITH FRAME {&FRAME-NAME}: iKnr = INTEGER(rowObject.Knr:SCREEN-VALUE). iInd = INTEGER(rowObject.Ind:SCREEN-VALUE). REPEAT TRANSACTION: FIND Ansprech WHERE Ansprech.Firma = Firma AND Ansprech.Knr = iKnr AND Ansprech.Ind = iInd. ASSIGN Ansprech.esBenutzer = cBenutzer Ansprech.esAktiv = TRUE Ansprech.esMail = cMail Ansprech.esPasswort = TRIM(cPasswort) + CHR(250) + TRIM(HEX-ENCODE(SHA1-DIGEST(cPasswort))). RELEASE Ansprech. LEAVE. END. hDaten = DYNAMIC-FUNCTION('getDataSource':U) NO-ERROR. IF VALID-HANDLE(hDaten) THEN RUN refreshRow IN hDaten NO-ERROR. RUN POST_HTTP-REQUEST.p ( cMail, cPasswort, cBenutzer, iKnr ). RETURN NO-APPLY. END. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME m_Mutieren &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Mutieren vTableWin ON CHOOSE OF MENU-ITEM m_Mutieren /* Mutieren */ DO: IF FMut THEN RETURN NO-APPLY. RUN FELDMUTATION. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME m_Speichern &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Speichern vTableWin ON CHOOSE OF MENU-ITEM m_Speichern /* Speichern */ DO: IF NOT FFMut THEN RETURN NO-APPLY. RUN FELDSPEICHERN. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME X_NATEL &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL X_NATEL vTableWin ON CHOOSE OF MENU-ITEM X_NATEL /* Telefonieren */ DO: RUN TELEFONIEREN IN hKontainer ( rowObject.Natel:SCREEN-VALUE IN FRAME {&FRAME-NAME} ). END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME X_Telefongeschaeft &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL X_Telefongeschaeft vTableWin ON CHOOSE OF MENU-ITEM X_Telefongeschaeft /* Telefonieren */ DO: RUN TELEFONIEREN IN hKontainer ( rowObject.Tel-1:SCREEN-VALUE IN FRAME {&FRAME-NAME} ). END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME X_TelefonPrivat &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL X_TelefonPrivat vTableWin ON CHOOSE OF MENU-ITEM X_TelefonPrivat /* Telefonieren */ DO: RUN TELEFONIEREN IN hKontainer ( rowObject.Tel-2:SCREEN-VALUE IN FRAME {&FRAME-NAME} ). END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK vTableWin /* *************************** Main Block *************************** */ { incl/viwmainblock.i } &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: ------------------------------------------------------------------------------*/ 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: ------------------------------------------------------------------------------*/ FCancel = TRUE. 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: ------------------------------------------------------------------------------*/ FNeu = TRUE. FMut = TRUE. FCopy = TRUE. FDisp = TRUE. RUN SUPER. 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_NEIN':U, INPUT 1000 ). IF NOT Ja THEN DO: RUN TOOLBAR IN hKontainer ( INPUT 'CANCEL':U ) NO-ERROR. RETURN NO-APPLY. 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. IF SAktiv THEN RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ). IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN DO: IF SAktiv THEN 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 Sprcd AS INT NO-UNDO. DEF VAR Anrcd AS INT NO-UNDO. DEF VAR cParam AS CHAR NO-UNDO. OldColValues = pcColValues. OldColList = DYNAMIC-FUNCTION('getDisplayedFields':U). IF FNeu THEN RUN FEHLWERTE ( INPUT-OUTPUT pcColValues ). DO WITH FRAME {&FRAME-NAME}: END. RUN SUPER( INPUT pcColValues). DO WITH FRAME {&FRAME-NAME}: IF pcColValues = ? THEN DO: GET-KEY-VALUE SECTION 'FwAdresse' KEY 'Sprcd' VALUE cParam. rowObject.Sprcd:SCREEN-VALUE = cParam. GET-KEY-VALUE SECTION 'FwAdresse' KEY 'Anrcd' VALUE cParam. rowObject.Anrcd:SCREEN-VALUE = cParam. END. Sprcd = INTEGER(rowObject.Sprcd:SCREEN-VALUE). Anrcd = INTEGER(rowObject.Anrcd:SCREEN-VALUE). CB_Sprache:SCREEN-VALUE = STRING(Sprcd,'999999') NO-ERROR. IF SAktiv THEN RUN COMBO_ANREDE ( INPUT STRING(Sprcd), INPUT CB_Anrede:HANDLE ). CB_Anrede:SCREEN-VALUE = STRING(Anrcd,'999999') NO-ERROR. IF AVAILABLE rowObject THEN DO: lDebitoren = rowObject.Debitoren . lBestellung = rowObject.Bestellung . lLieferschein = rowObject.Lieferschein. END. END. Aktiv = DYNAMIC-FUNCTION('GETADRESSEAKTIV':U) NO-ERROR. 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: ------------------------------------------------------------------------------*/ DEF VAR Sprcd AS INT NO-UNDO. DEF VAR ix AS INT NO-UNDO. DEF VAR cFelder AS CHAR NO-UNDO. RUN SUPER. { incl/viwenableobject.i } IF SAktiv THEN DO: RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ). RUN COMBO_SPRACHE ( INPUT CB_Sprache:HANDLE IN FRAME {&FRAME-NAME} ). RUN COMBO_ANREDE ( INPUT STRING(iBenuSprcd), INPUT CB_Anrede:HANDLE ). END. FIND Femeld WHERE Femeld.Sprcd = iBenuSprcd AND Femeld.Fenr = 999 NO-LOCK NO-ERROR. IF AVAILABLE Femeld THEN cFelder = Femeld.Fetext. ELSE cFelder = ''. DO ix = 1 TO NUM-ENTRIES(Femeld.Fetext, ','): CASE ix: WHEN 01 THEN F_Cd01:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 02 THEN F_Cd02:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 03 THEN F_Cd03:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 04 THEN F_Cd04:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 05 THEN F_Cd05:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 06 THEN F_Cd06:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 07 THEN F_Cd07:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 08 THEN F_Cd08:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 09 THEN F_Cd09:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 10 THEN F_Cd10:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 11 THEN F_Cd11:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 12 THEN F_Cd12:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 13 THEN F_Cd13:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 14 THEN F_Cd14:SCREEN-VALUE = ENTRY(ix, cFelder, ','). WHEN 15 THEN F_Cd15:SCREEN-VALUE = ENTRY(ix, cFelder, ','). END CASE. 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. 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 'FwAdresse' KEY ? VALUE FwFelder. 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 'FwAdresse' KEY FwFeld VALUE FwValue. ENTRY(i1, pcColValues, CHR(1)) = FwValue NO-ERROR. END. IF FCopy THEN DO: END. OldColValues = pcColValues. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FELDMUTATION vTableWin PROCEDURE FELDMUTATION : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DO WITH FRAME {&FRAME-NAME}: DYNAMIC-FUNCTION('SETMUTFLAG':U, INPUT TRUE, INPUT 'FeldMutation' ) NO-ERROR. ENABLE {&List-6}. F_Cd01:TAB-STOP = TRUE. F_Cd02:TAB-STOP = TRUE. F_Cd03:TAB-STOP = TRUE. F_Cd04:TAB-STOP = TRUE. F_Cd05:TAB-STOP = TRUE. F_Cd06:TAB-STOP = TRUE. F_Cd07:TAB-STOP = TRUE. F_Cd08:TAB-STOP = TRUE. F_Cd09:TAB-STOP = TRUE. F_Cd10:TAB-STOP = TRUE. F_Cd11:TAB-STOP = TRUE. F_Cd12:TAB-STOP = TRUE. F_Cd13:TAB-STOP = TRUE. F_Cd14:TAB-STOP = TRUE. F_Cd15:TAB-STOP = TRUE. FFMut = TRUE. APPLY 'ENTRY' TO F_Cd01. RETURN NO-APPLY. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FELDSPEICHERN vTableWin PROCEDURE FELDSPEICHERN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR cString AS CHAR NO-UNDO. DEF VAR Sprcd AS INT NO-UNDO. DO WITH FRAME {&FRAME-NAME}: ASSIGN {&List-6}. cString = F_Cd01 + ',' + F_Cd02 + ',' + F_Cd03 + ',' + F_Cd04 + ',' + F_Cd05 + ',' + F_Cd06 + ',' + F_Cd07 + ',' + F_Cd08 + ',' + F_Cd09 + ',' + F_Cd10 + ',' + F_Cd11 + ',' + F_Cd12 + ',' + F_Cd13 + ',' + F_Cd14 + ',' + F_Cd15. REPEAT TRANSACTION: FIND Femeld WHERE Femeld.Sprcd = iBenuSprcd AND Femeld.Fenr = 999 NO-ERROR. IF NOT AVAILABLE Femeld THEN DO: CREATE Femeld. ASSIGN Femeld.Sprcd = iBenuSprcd Femeld.Fenr = 999. END. Femeld.Fetext = cString. RELEASE Femeld. LEAVE. END. F_Cd01:TAB-STOP = FALSE. F_Cd02:TAB-STOP = FALSE. F_Cd03:TAB-STOP = FALSE. F_Cd04:TAB-STOP = FALSE. F_Cd05:TAB-STOP = FALSE. F_Cd06:TAB-STOP = FALSE. F_Cd07:TAB-STOP = FALSE. F_Cd08:TAB-STOP = FALSE. F_Cd09:TAB-STOP = FALSE. F_Cd10:TAB-STOP = FALSE. F_Cd11:TAB-STOP = FALSE. F_Cd12:TAB-STOP = FALSE. F_Cd13:TAB-STOP = FALSE. F_Cd14:TAB-STOP = FALSE. F_Cd15:TAB-STOP = FALSE. FFMut = FALSE. DISABLE {&List-6}. DYNAMIC-FUNCTION('SETMUTFLAG':U, INPUT FALSE, INPUT 'FeldMutation' ) NO-ERROR. APPLY 'U1'. RETURN NO-APPLY. END. 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. IF FMut = FALSE THEN RETURN ''. 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. CASE FeldName: WHEN 'Ind' THEN DO: IF FNeu THEN DO WITH FRAME {&FRAME-NAME}: IF CAN-FIND ( Ansprech USE-INDEX Ansprech-k1 WHERE Ansprech.Firma = rowObject.Firma:SCREEN-VALUE AND Ansprech.Knr = INTEGER(rowObject.Knr:SCREEN-VALUE) AND Ansprech.Ind = INTEGER(FeldInhalt) NO-LOCK) THEN DO: RUN FEHLER ( INPUT 1007 ). RETURN 'ERROR'. END. END. END. END CASE. IF LOOKUP(FeldName, '{&LETZTES_FELD}', ',') > 0 THEN DO: 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 ''. IF ipHandle:TYPE = 'COMBO-BOX' THEN RETURN 'TAB'. FeldName = ipHandle:NAME. IF LOOKUP(FeldName, '{&ENABLED-FIELDS}', ' ') > 0 THEN DO: RETURN 'TAB'. END. FeldName = 'rowObject.' + FeldName. IF LOOKUP(FeldName, '{&ENABLED-FIELDS}', ' ') > 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: FMut = TRUE. FNeu = FALSE. FCopy = FALSE. 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: ------------------------------------------------------------------------------*/ DEF VAR iKnr AS INT NO-UNDO. DEF VAR iInd AS INT NO-UNDO. DEF VAR AdFirma AS CHAR NO-UNDO. DEF VAR cAnschrift AS CHAR NO-UNDO. DEF VAR ix AS INT NO-UNDO. DEF VAR hDaten AS HANDLE NO-UNDO. DO WITH FRAME {&FRAME-NAME}: rowObject.Sprcd:SCREEN-VALUE = STRING(INTEGER(CB_Sprache:SCREEN-VALUE)). rowObject.Anrcd:SCREEN-VALUE = STRING(INTEGER(CB_Anrede :SCREEN-VALUE)). iKnr = INTEGER(rowObject.Knr:SCREEN-VALUE). iInd = INTEGER(rowObject.Ind:SCREEN-VALUE). hDaten = DYNAMIC-FUNCTION('getDataSource':U) NO-ERROR. END. RUN SUPER. REPEAT TRANSACTION: AdFirma = DYNAMIC-FUNCTION('getADMandant':U) NO-ERROR. FIND Adresse WHERE Adresse.Firma = AdFirma AND Adresse.Knr = iKnr NO-ERROR. IF NOT AVAILABLE Adresse THEN RETURN. FIND Ansprech WHERE Ansprech.Firma = AdFirma AND Ansprech.Knr = iKnr AND Ansprech.Ind = iInd NO-ERROR. IF NOT AVAILABLE Ansprech THEN RETURN. cAnschrift = Adresse.Firma1 + CHR(11) + Adresse.Firma2 + CHR(11) + Ansprech.Name + CHR(11) + Ansprech.Vorname + CHR(11) + '' + CHR(11) + '' + CHR(11) + Adresse.Strasse + CHR(11) + Adresse.Postfach + CHR(11) + Adresse.Lkz + CHR(11) + Adresse.Plz + CHR(11) + Adresse.Ort + CHR(11) + '' + CHR(11) + STRING(Ansprech.Sprcd) + CHR(11) + STRING(Ansprech.Anrcd). cAnschrift = DYNAMIC-FUNCTION('MAKEANSCHRIFT':U, cAnschrift) NO-ERROR. Ansprech.Anschrift = ''. Ansprech.BriefAnr = ''. DO ix = 1 TO 13: IF ix < 13 THEN Ansprech.Anschrift[ix] = ENTRY(ix, cAnschrift, CHR(11)). ELSE Ansprech.BriefAnr = ENTRY(ix, cAnschrift, CHR(11)). END. cAnschrift = Adresse.Firma1 + CHR(11) + Adresse.Firma2 + CHR(11) + Ansprech.Name + CHR(11) + Ansprech.Vorname + CHR(11) + Adresse.Strasse + CHR(11) + Adresse.Plz + CHR(11) + Adresse.Ort. cAnschrift = DYNAMIC-FUNCTION('MAKEBROWSERANZEIGE':U, INPUT cAnschrift) NO-ERROR. Ansprech.Anzeig_Br = cAnschrift. RELEASE Ansprech. RELEASE Adresse. DYNAMIC-FUNCTION('refreshQuery':U IN hDaten ) . LEAVE. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME