&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2 &ANALYZE-RESUME &Scoped-define WINDOW-NAME wAdressen &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wAdressen /*------------------------------------------------------------------------ File: Description: from cntnrwin.w - ADM SmartWindow Template Input Parameters: Output Parameters: History: New V9 Version - January 15, 1998 ------------------------------------------------------------------------*/ /* This .W file was created with the Progress AB. */ /*----------------------------------------------------------------------*/ /* 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 --- */ { incl/windefinition.i } DEF VAR sRecid AS RECID NO-UNDO. DEF VAR lOldInaktiv AS LOG NO-UNDO. DEF VAR lNewInaktiv AS LOG NO-UNDO. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE SmartWindow &Scoped-define DB-AWARE no &Scoped-define ADM-CONTAINER WINDOW &Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME fMain /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS Btn_Search /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Define the widget handle for the window */ DEFINE VAR wAdressen AS WIDGET-HANDLE NO-UNDO. /* Definitions of handles for SmartObjects */ DEFINE VARIABLE h_b-abwprgrp AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-adresse AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-aktkeine AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-ansprech AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-debums AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-kunbw AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-spezprei-deb AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-spezrab-deb AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-abwprgrp AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-adresse AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-aktkeine AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-ansprech AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-debst AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-debums AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-krest AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-kunbw AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-liefst AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-spezprei AS HANDLE NO-UNDO. DEFINE VARIABLE h_d-spezrab AS HANDLE NO-UNDO. DEFINE VARIABLE h_dyntoolbar AS HANDLE NO-UNDO. DEFINE VARIABLE h_folder AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-abwprgrp AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-adresse AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-adresse-inf AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-adresse-kopf AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-ansprech AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-debst AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-debums AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-krest AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-liefst AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-spezprei-deb AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-spezrab-deb AS HANDLE NO-UNDO. /* Definitions of the field level widgets */ DEFINE BUTTON Btn_Search IMAGE-UP FILE "grafik/select.bmp":U IMAGE-DOWN FILE "grafik/select.bmp":U LABEL "Button 1" SIZE 5 BY 1.14. DEFINE VARIABLE R_Spezpreis AS INTEGER VIEW-AS RADIO-SET VERTICAL RADIO-BUTTONS "Spezial&preise/Artikel", 1, "Ra&batte/Artikelrabattgruppe", 2 SIZE 60 BY 1.52 NO-UNDO. /* ************************ Frame Definitions *********************** */ DEFINE FRAME fMain R_Spezpreis AT ROW 6.05 COL 4.6 NO-LABEL NO-TAB-STOP Btn_Search AT ROW 1 COL 60 WIDGET-ID 2 NO-TAB-STOP WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY SIDE-LABELS NO-UNDERLINE THREE-D AT COL 1 ROW 1 SIZE 142.4 BY 30.33. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartWindow Allow: Basic,Browse,DB-Fields,Query,Smart,Window Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source Design Page: 4 Other Settings: COMPILE */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW IF SESSION:DISPLAY-TYPE = "GUI":U THEN CREATE WINDOW wAdressen ASSIGN HIDDEN = YES TITLE = "Adressverwaltung" HEIGHT = 30.33 WIDTH = 142.4 MAX-HEIGHT = 99.86 MAX-WIDTH = 768 VIRTUAL-HEIGHT = 99.86 VIRTUAL-WIDTH = 768 RESIZE = NO SCROLL-BARS = NO STATUS-AREA = NO BGCOLOR = ? FGCOLOR = ? THREE-D = YES MESSAGE-AREA = NO SENSITIVE = YES. ELSE {&WINDOW-NAME} = CURRENT-WINDOW. &IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN IF NOT wAdressen:LOAD-ICON("grafik/appl.ico":U) THEN MESSAGE "Unable to load icon: grafik/appl.ico" VIEW-AS ALERT-BOX WARNING BUTTONS OK. &ENDIF /* END WINDOW DEFINITION */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB wAdressen /* ************************* 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 wAdressen VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME fMain FRAME-NAME Custom */ /* SETTINGS FOR RADIO-SET R_Spezpreis IN FRAME fMain NO-DISPLAY NO-ENABLE */ ASSIGN R_Spezpreis:HIDDEN IN FRAME fMain = TRUE. IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wAdressen) THEN wAdressen:HIDDEN = YES. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME wAdressen &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wAdressen wAdressen ON END-ERROR OF wAdressen /* Adressverwaltung */ OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO: IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY. RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wAdressen wAdressen ON WINDOW-CLOSE OF wAdressen /* Adressverwaltung */ DO: RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_Search &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Search wAdressen ON CHOOSE OF Btn_Search IN FRAME fMain /* Button 1 */ DO: IF DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) = TRUE THEN RETURN NO-APPLY. RUN FIND_ADRESSE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME R_Spezpreis &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Spezpreis wAdressen ON VALUE-CHANGED OF R_Spezpreis IN FRAME fMain DO: DO WITH FRAME {&FRAME-NAME}: R_SpezPreis = INTEGER(SELF:SCREEN-VALUE). IF R_SpezPreis = 1 THEN DO: RUN removeLink ( h_dyntoolbar, 'TableIO':U, h_v-spezrab-deb). RUN hideObject IN h_b-spezrab-deb. RUN hideObject IN h_v-spezrab-deb. RUN viewObject IN h_b-spezprei-deb. RUN viewObject IN h_v-spezprei-deb. RUN addLink ( h_dyntoolbar, 'TableIO':U, h_v-spezprei-deb). DYNAMIC-FUNCTION('openQuery':U IN h_d-spezprei) NO-ERROR. END. IF R_SpezPreis = 2 THEN DO: RUN removeLink ( h_dyntoolbar, 'TableIO':U, h_v-spezprei-deb). RUN hideObject IN h_b-spezprei-deb. RUN hideObject IN h_v-spezprei-deb. RUN viewObject IN h_b-spezrab-deb. RUN viewObject IN h_v-spezrab-deb. RUN addLink ( h_dyntoolbar, 'TableIO':U, h_v-spezrab-deb). DYNAMIC-FUNCTION('openQuery':U IN h_d-spezrab) NO-ERROR. END. RUN ENTRY_CURSOR. RETURN NO-APPLY. END. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK wAdressen /* *************************** Main Block *************************** */ { incl/winmainblock.i } MaxSeite = 9. AktSeite = 1. R_SpezPreis = 1. /* TRIGGERS ------------------------------------------------------ */ ON 'U2':U OF {&WINDOW-NAME} ANYWHERE DO: IF DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) = TRUE THEN RETURN NO-APPLY. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U). IF AktSeite = 3 THEN RETURN NO-APPLY. RUN selectPage ( INPUT 3 ). END. ON 'ALT-F':U OF {&WINDOW-NAME} ANYWHERE DO: IF DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) = TRUE THEN RETURN NO-APPLY. RUN FIND_ADRESSE. RETURN NO-APPLY. END. ON 'CTRL-N':U OF {&WINDOW-NAME} ANYWHERE DO: DEF VAR sHandle AS CHAR NO-UNDO. DEF VAR ix AS INT NO-UNDO. DEF VAR nRows AS INT NO-UNDO. DEF VAR hData AS HANDLE NO-UNDO. IF DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) = TRUE THEN RETURN NO-APPLY. RUN 'g-kundennr.w':U ( OUTPUT sRecid ). IF sRecid = ? THEN RETURN NO-APPLY. SESSION:SET-WAIT-STATE('GENERAL'). sHandle = DYNAMIC-FUNCTION('linkHandles':U IN h_d-adresse, 'Data-Target':U ). DO ix = 1 TO NUM-ENTRIES(sHandle, ','): hData = WIDGET-HANDLE(ENTRY(ix, sHandle)). RUN removeLink ( h_d-adresse, 'Data':U, hData ). END. RUN OPENQUERY_REPOS IN h_d-adresse ( INPUT sRecid, INPUT 1 ). DO ix = 1 TO NUM-ENTRIES(sHandle, ','): hData = WIDGET-HANDLE(ENTRY(ix, sHandle)). RUN addLink ( h_d-adresse, 'Data':U, hData ). END. RUN REPOS IN h_d-adresse ( INPUT sRecid ). RUN ENTRYBROWSE IN h_b-adresse. RUN ENTRY_CURSOR. SESSION:SET-WAIT-STATE(''). RETURN NO-APPLY. END. /* Include custom Main Block code for SmartWindows. */ {src/adm2/windowmn.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wAdressen _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: ------------------------------------------------------------------------------*/ DEFINE VARIABLE currentPage AS INTEGER NO-UNDO. ASSIGN currentPage = getCurrentPage(). CASE currentPage: WHEN 0 THEN DO: RUN constructObject ( INPUT 'd-adresse.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-adresseOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U , OUTPUT h_d-adresse ). RUN repositionObject IN h_d-adresse ( 7.76 , 47.00 ) NO-ERROR. /* Size in AB: ( 3.05 , 17.60 ) */ RUN constructObject ( INPUT 'v-adresse-kopf.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-adresse-kopf ). RUN repositionObject IN h_v-adresse-kopf ( 3.52 , 2.00 ) NO-ERROR. /* Size in AB: ( 1.71 , 137.00 ) */ RUN constructObject ( INPUT 'd-krest.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsKrest.Knr,KnrObjectNamed-krestOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U , OUTPUT h_d-krest ). RUN repositionObject IN h_d-krest ( 5.76 , 118.60 ) NO-ERROR. /* Size in AB: ( 1.86 , 10.80 ) */ RUN constructObject ( INPUT 'd-debst.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsDebst.Knr,Knr,Debst.Firma,FirmaObjectNamed-debstOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch2RebuildOnReposyesToggleDataTargetsyes':U , OUTPUT h_d-debst ). RUN repositionObject IN h_d-debst ( 10.05 , 115.40 ) NO-ERROR. /* Size in AB: ( 1.86 , 10.80 ) */ RUN constructObject ( INPUT 'd-kunbw.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtbw.Firma,Firma,Artbw.Knr,KnrObjectNamed-kunbwOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U , OUTPUT h_d-kunbw ). RUN repositionObject IN h_d-kunbw ( 9.29 , 81.00 ) NO-ERROR. /* Size in AB: ( 3.14 , 14.40 ) */ RUN constructObject ( INPUT 'd-spezrab.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsSpPrRab.Firma,Firma,SpPrRab.Knr,KnrObjectNamed-spezrabOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch25RebuildOnReposyesToggleDataTargetsyes':U , OUTPUT h_d-spezrab ). RUN repositionObject IN h_d-spezrab ( 13.48 , 21.40 ) NO-ERROR. /* Size in AB: ( 2.67 , 16.40 ) */ RUN constructObject ( INPUT 'd-aktkeine.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsAktKeine.Firma,Firma,AktKeine.Knr,KnrObjectNamed-aktkeineOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch10RebuildOnReposyesToggleDataTargetsyes':U , OUTPUT h_d-aktkeine ). RUN repositionObject IN h_d-aktkeine ( 16.14 , 104.60 ) NO-ERROR. /* Size in AB: ( 3.05 , 18.00 ) */ RUN constructObject ( INPUT 'd-abwprgrp.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsAbwPrGrp.Firma,Firma,AbwPrGrp.Knr,KnrObjectNamed-abwprgrpOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U , OUTPUT h_d-abwprgrp ). RUN repositionObject IN h_d-abwprgrp ( 17.76 , 91.00 ) NO-ERROR. /* Size in AB: ( 3.05 , 14.40 ) */ RUN constructObject ( INPUT 'd-debums.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsDebUms.Firma,Firma,DebUms.Knr,KnrObjectNamed-debumsOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U , OUTPUT h_d-debums ). RUN repositionObject IN h_d-debums ( 19.76 , 111.80 ) NO-ERROR. /* Size in AB: ( 3.24 , 17.20 ) */ RUN constructObject ( INPUT 'd-spezprei.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsSpezPrei.Firma,Firma,SpezPrei.Knr,KnrObjectNamed-spezpreiOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U , OUTPUT h_d-spezprei ). RUN repositionObject IN h_d-spezprei ( 20.05 , 28.20 ) NO-ERROR. /* Size in AB: ( 3.24 , 18.80 ) */ RUN constructObject ( INPUT 'd-liefst.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsLiefst.Knr,KnrObjectNamed-liefstOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch5RebuildOnReposyesToggleDataTargetsyes':U , OUTPUT h_d-liefst ). RUN repositionObject IN h_d-liefst ( 13.00 , 78.20 ) NO-ERROR. /* Size in AB: ( 1.86 , 10.80 ) */ RUN constructObject ( INPUT 'd-ansprech.wDB-AWARE':U , INPUT FRAME fMain:HANDLE , INPUT 'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsAnsprech.Firma,Firma,Ansprech.Knr,KnrObjectNamed-ansprechOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U , OUTPUT h_d-ansprech ). RUN repositionObject IN h_d-ansprech ( 15.38 , 59.00 ) NO-ERROR. /* Size in AB: ( 3.05 , 13.20 ) */ RUN constructObject ( INPUT 'src/adm2/folder.w':U , INPUT FRAME fMain:HANDLE , INPUT 'FolderLabels':U + 'Info(1)|Ansprech(2)|Adresse(3)|Debi(4)|Lieferanten(5)|Abw.Preis./Akt.(6)|Spez.Preis(7)|Kredi (8)|Ums/Beweg(9)' + 'FolderTabWidth0FolderFont-1HideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_folder ). RUN repositionObject IN h_folder ( 2.43 , 1.00 ) NO-ERROR. RUN resizeObject IN h_folder ( 28.81 , 142.00 ) NO-ERROR. RUN constructObject ( INPUT 'adm2/dyntoolbar.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EdgePixels2DeactivateTargetOnHidenoDisabledActionsFlatButtonsyesMenunoShowBorderyesToolbaryesActionGroupsTableio,NavigationTableIOTypeUpdateSupportedLinksNavigation-source,Tableio-sourceToolbarBandsToolbarAutoSizenoToolbarDrawDirectionhorizontalLogicalObjectNameDisabledActionsHiddenActionsResetHiddenToolbarBandsHiddenMenuBandsMenuMergeOrder0RemoveMenuOnHidenoCreateSubMenuOnConflictyesNavigationTargetNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_dyntoolbar ). RUN repositionObject IN h_dyntoolbar ( 1.00 , 1.00 ) NO-ERROR. RUN resizeObject IN h_dyntoolbar ( 1.24 , 58.40 ) NO-ERROR. /* Links to SmartDataObject h_d-adresse. */ RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-adresse ). /* Links to SmartDataViewer h_v-adresse-kopf. */ RUN addLink ( h_d-adresse , 'Data':U , h_v-adresse-kopf ). /* Links to SmartDataObject h_d-krest. */ RUN addLink ( h_d-adresse , 'Data':U , h_d-krest ). /* Links to SmartDataObject h_d-debst. */ RUN addLink ( h_d-adresse , 'Data':U , h_d-debst ). /* Links to SmartDataObject h_d-kunbw. */ RUN addLink ( h_d-debst , 'Data':U , h_d-kunbw ). /* Links to SmartDataObject h_d-spezrab. */ RUN addLink ( h_d-debst , 'Data':U , h_d-spezrab ). /* Links to SmartDataObject h_d-aktkeine. */ RUN addLink ( h_d-debst , 'Data':U , h_d-aktkeine ). /* Links to SmartDataObject h_d-abwprgrp. */ RUN addLink ( h_d-debst , 'Data':U , h_d-abwprgrp ). /* Links to SmartDataObject h_d-debums. */ RUN addLink ( h_d-debst , 'Data':U , h_d-debums ). /* Links to SmartDataObject h_d-spezprei. */ RUN addLink ( h_d-debst , 'Data':U , h_d-spezprei ). /* Links to SmartDataObject h_d-liefst. */ RUN addLink ( h_d-adresse , 'Data':U , h_d-liefst ). /* Links to SmartDataObject h_d-ansprech. */ RUN addLink ( h_d-adresse , 'Data':U , h_d-ansprech ). /* Links to SmartFolder h_folder. */ RUN addLink ( h_folder , 'Page':U , THIS-PROCEDURE ). /* Adjust the tab order of the smart objects. */ RUN adjustTabOrder ( h_folder , h_v-adresse-kopf , 'AFTER':U ). RUN adjustTabOrder ( h_dyntoolbar , h_folder , 'AFTER':U ). END. /* Page 0 */ WHEN 1 THEN DO: RUN constructObject ( INPUT 'v-adresse-inf.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-adresse-inf ). RUN repositionObject IN h_v-adresse-inf ( 5.29 , 2.80 ) NO-ERROR. /* Size in AB: ( 10.48 , 135.00 ) */ RUN constructObject ( INPUT 'b-adresse.w':U , INPUT FRAME fMain:HANDLE , INPUT 'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_b-adresse ). RUN repositionObject IN h_b-adresse ( 16.33 , 3.80 ) NO-ERROR. RUN resizeObject IN h_b-adresse ( 8.95 , 135.00 ) NO-ERROR. /* Links to SmartDataViewer h_v-adresse-inf. */ RUN addLink ( h_d-adresse , 'Data':U , h_v-adresse-inf ). /* Links to SmartDataBrowser h_b-adresse. */ RUN addLink ( h_d-adresse , 'Data':U , h_b-adresse ). END. /* Page 1 */ WHEN 2 THEN DO: RUN constructObject ( INPUT 'b-ansprech.w':U , INPUT FRAME fMain:HANDLE , INPUT 'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_b-ansprech ). RUN repositionObject IN h_b-ansprech ( 5.62 , 2.00 ) NO-ERROR. RUN resizeObject IN h_b-ansprech ( 7.38 , 137.00 ) NO-ERROR. RUN constructObject ( INPUT 'v-ansprech.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-ansprech ). RUN repositionObject IN h_v-ansprech ( 13.95 , 2.00 ) NO-ERROR. /* Size in AB: ( 10.71 , 137.00 ) */ /* Links to SmartDataBrowser h_b-ansprech. */ RUN addLink ( h_d-ansprech , 'Data':U , h_b-ansprech ). /* Links to SmartDataViewer h_v-ansprech. */ RUN addLink ( h_d-ansprech , 'Data':U , h_v-ansprech ). RUN addLink ( h_v-ansprech , 'Update':U , h_d-ansprech ). END. /* Page 2 */ WHEN 3 THEN DO: RUN constructObject ( INPUT 'v-adresse.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-adresse ). RUN repositionObject IN h_v-adresse ( 5.48 , 1.80 ) NO-ERROR. /* Size in AB: ( 20.10 , 137.20 ) */ /* Links to SmartDataViewer h_v-adresse. */ RUN addLink ( h_d-adresse , 'Data':U , h_v-adresse ). RUN addLink ( h_v-adresse , 'Update':U , h_d-adresse ). END. /* Page 3 */ WHEN 4 THEN DO: RUN constructObject ( INPUT 'v-debst.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-debst ). RUN repositionObject IN h_v-debst ( 5.38 , 2.80 ) NO-ERROR. /* Size in AB: ( 24.05 , 137.00 ) */ /* Links to SmartDataViewer h_v-debst. */ RUN addLink ( h_d-debst , 'Data':U , h_v-debst ). RUN addLink ( h_v-debst , 'Update':U , h_d-debst ). END. /* Page 4 */ WHEN 5 THEN DO: RUN constructObject ( INPUT 'v-liefst.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-liefst ). RUN repositionObject IN h_v-liefst ( 5.38 , 4.20 ) NO-ERROR. /* Size in AB: ( 20.00 , 133.00 ) */ /* Links to SmartDataViewer h_v-liefst. */ RUN addLink ( h_d-liefst , 'Data':U , h_v-liefst ). RUN addLink ( h_v-liefst , 'Update':U , h_d-liefst ). END. /* Page 5 */ WHEN 6 THEN DO: RUN constructObject ( INPUT 'b-aktkeine.w':U , INPUT FRAME fMain:HANDLE , INPUT 'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_b-aktkeine ). RUN repositionObject IN h_b-aktkeine ( 5.52 , 85.00 ) NO-ERROR. RUN resizeObject IN h_b-aktkeine ( 10.48 , 43.00 ) NO-ERROR. RUN constructObject ( INPUT 'b-abwprgrp.w':U , INPUT FRAME fMain:HANDLE , INPUT 'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_b-abwprgrp ). RUN repositionObject IN h_b-abwprgrp ( 5.52 , 3.00 ) NO-ERROR. RUN resizeObject IN h_b-abwprgrp ( 8.81 , 77.00 ) NO-ERROR. RUN constructObject ( INPUT 'v-abwprgrp.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-abwprgrp ). RUN repositionObject IN h_v-abwprgrp ( 14.71 , 3.00 ) NO-ERROR. /* Size in AB: ( 2.86 , 77.00 ) */ /* Links to SmartDataBrowser h_b-aktkeine. */ RUN addLink ( h_d-aktkeine , 'Data':U , h_b-aktkeine ). RUN addLink ( h_b-aktkeine , 'Update':U , h_d-aktkeine ). /* Links to SmartDataBrowser h_b-abwprgrp. */ RUN addLink ( h_d-abwprgrp , 'Data':U , h_b-abwprgrp ). /* Links to SmartDataViewer h_v-abwprgrp. */ RUN addLink ( h_d-abwprgrp , 'Data':U , h_v-abwprgrp ). RUN addLink ( h_v-abwprgrp , 'Update':U , h_d-abwprgrp ). END. /* Page 6 */ WHEN 7 THEN DO: RUN constructObject ( INPUT 'b-spezrab-deb.w':U , INPUT FRAME fMain:HANDLE , INPUT 'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_b-spezrab-deb ). RUN repositionObject IN h_b-spezrab-deb ( 8.00 , 3.00 ) NO-ERROR. RUN resizeObject IN h_b-spezrab-deb ( 7.38 , 111.00 ) NO-ERROR. RUN constructObject ( INPUT 'v-spezrab-deb.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-spezrab-deb ). RUN repositionObject IN h_v-spezrab-deb ( 16.00 , 3.00 ) NO-ERROR. /* Size in AB: ( 7.91 , 111.00 ) */ RUN constructObject ( INPUT 'b-spezprei-deb.w':U , INPUT FRAME fMain:HANDLE , INPUT 'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_b-spezprei-deb ). RUN repositionObject IN h_b-spezprei-deb ( 7.95 , 3.00 ) NO-ERROR. RUN resizeObject IN h_b-spezprei-deb ( 7.38 , 134.40 ) NO-ERROR. RUN constructObject ( INPUT 'v-spezprei-deb.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-spezprei-deb ). RUN repositionObject IN h_v-spezprei-deb ( 16.00 , 3.00 ) NO-ERROR. /* Size in AB: ( 7.91 , 127.00 ) */ /* Links to SmartDataBrowser h_b-spezrab-deb. */ RUN addLink ( h_d-spezrab , 'Data':U , h_b-spezrab-deb ). /* Links to SmartDataViewer h_v-spezrab-deb. */ RUN addLink ( h_d-spezrab , 'Data':U , h_v-spezrab-deb ). RUN addLink ( h_v-spezrab-deb , 'Update':U , h_d-spezrab ). /* Links to SmartDataBrowser h_b-spezprei-deb. */ RUN addLink ( h_d-spezprei , 'Data':U , h_b-spezprei-deb ). /* Links to SmartDataViewer h_v-spezprei-deb. */ RUN addLink ( h_d-spezprei , 'Data':U , h_v-spezprei-deb ). RUN addLink ( h_v-spezprei-deb , 'Update':U , h_d-spezprei ). END. /* Page 7 */ WHEN 8 THEN DO: RUN constructObject ( INPUT 'v-krest.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-krest ). RUN repositionObject IN h_v-krest ( 6.33 , 8.20 ) NO-ERROR. /* Size in AB: ( 17.57 , 119.40 ) */ /* Links to SmartDataViewer h_v-krest. */ RUN addLink ( h_d-krest , 'Data':U , h_v-krest ). RUN addLink ( h_v-krest , 'Update':U , h_d-krest ). END. /* Page 8 */ WHEN 9 THEN DO: RUN constructObject ( INPUT 'b-kunbw.w':U , INPUT FRAME fMain:HANDLE , INPUT 'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_b-kunbw ). RUN repositionObject IN h_b-kunbw ( 5.52 , 2.00 ) NO-ERROR. RUN resizeObject IN h_b-kunbw ( 7.38 , 138.00 ) NO-ERROR. RUN constructObject ( INPUT 'b-debums.w':U , INPUT FRAME fMain:HANDLE , INPUT 'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_b-debums ). RUN repositionObject IN h_b-debums ( 13.52 , 2.00 ) NO-ERROR. RUN resizeObject IN h_b-debums ( 7.38 , 96.00 ) NO-ERROR. RUN constructObject ( INPUT 'v-debums.w':U , INPUT FRAME fMain:HANDLE , INPUT 'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U , OUTPUT h_v-debums ). RUN repositionObject IN h_v-debums ( 21.38 , 2.00 ) NO-ERROR. /* Size in AB: ( 4.05 , 138.00 ) */ /* Links to SmartDataBrowser h_b-kunbw. */ RUN addLink ( h_d-kunbw , 'Data':U , h_b-kunbw ). /* Links to SmartDataBrowser h_b-debums. */ RUN addLink ( h_d-debums , 'Data':U , h_b-debums ). /* Links to SmartDataViewer h_v-debums. */ RUN addLink ( h_d-debums , 'Data':U , h_v-debums ). /* Adjust the tab order of the smart objects. */ END. /* Page 9 */ END CASE. /* Select a Startup page. */ IF currentPage EQ 0 THEN RUN selectPage IN THIS-PROCEDURE ( 1 ). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE changePage wAdressen PROCEDURE changePage : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ RUN SUPER. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U). CASE AktSeite: WHEN 1 THEN DO: /* RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-ansprech ). */ /* RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-auftr ). */ /* RUN ToolbarInit ( INPUT h_d-auftr ). */ RUN ENTRY_CURSOR. END. WHEN 2 THEN DO: RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-ansprech ). RUN ENTRY_CURSOR. END. WHEN 3 THEN DO: RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-adresse ). RUN ENTRY_CURSOR. END. WHEN 4 THEN DO: RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-debst ). RUN ENTRY_CURSOR. END. WHEN 5 THEN DO: RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-liefst ). RUN ENTRY_CURSOR. END. WHEN 6 THEN DO: PUBLISH 'SETOPENFLAGDEBST' ( INPUT TRUE ). RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-abwprgrp ). RUN ENTRY_CURSOR. END. WHEN 7 THEN DO WITH FRAME {&FRAME-NAME}: R_SpezPreis:SENSITIVE = TRUE. R_SpezPreis:HIDDEN = FALSE. IF R_SpezPreis = 1 THEN DO: RUN hideObject IN h_b-spezrab-deb. RUN hideObject IN h_v-spezrab-deb. RUN viewObject IN h_b-spezprei-deb. RUN viewObject IN h_v-spezprei-deb. RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-spezprei-deb). DYNAMIC-FUNCTION('initializeToolBar':U IN h_dyntoolbar) NO-ERROR. DYNAMIC-FUNCTION('openQuery':U IN h_d-spezprei) NO-ERROR. END. IF R_SpezPreis = 2 THEN DO: RUN hideObject IN h_b-spezprei-deb. RUN hideObject IN h_v-spezprei-deb. RUN viewObject IN h_b-spezrab-deb. RUN viewObject IN h_v-spezrab-deb. RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-spezrab-deb). DYNAMIC-FUNCTION('initializeToolBar':U IN h_dyntoolbar) NO-ERROR. DYNAMIC-FUNCTION('openQuery':U IN h_d-spezrab) NO-ERROR. END. RUN ENTRY_CURSOR. END. WHEN 8 THEN DO: RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-krest ). RUN ENTRY_CURSOR. END. WHEN 9 THEN DO: PUBLISH 'SETOPENFLAGDEBST' ( INPUT TRUE ). RUN ENTRY_CURSOR. END. END CASE. IF VALID-HANDLE(h_dyntoolbar) THEN RUN setButtons IN h_dyntoolbar ( INPUT 'Initial-TableIo':U ). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wAdressen _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. ------------------------------------------------------------------------------*/ /* Delete the WINDOW we created */ IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wAdressen) THEN DELETE WIDGET wAdressen. IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wAdressen PROCEDURE enableObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ lOldInaktiv = DYNAMIC-FUNCTION('getAnzeigeAdresseInaktiv':U) NO-ERROR. IF lOldInaktiv = ? THEN lOldInaktiv = FALSE. lNewInaktiv = DYNAMIC-FUNCTION('getAnzeigeAdresseInaktiv':U) NO-ERROR. IF lNewInaktiv = ? THEN lNewInaktiv = FALSE. { incl/winenableobject.i } RUN SUPER. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wAdressen _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. ------------------------------------------------------------------------------*/ ENABLE Btn_Search WITH FRAME fMain IN WINDOW wAdressen. {&OPEN-BROWSERS-IN-QUERY-fMain} VIEW wAdressen. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE wAdressen PROCEDURE ENDE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ { incl/winende.i } /* DEF VAR wx AS INT NO-UNDO. DEF VAR wy AS INT NO-UNDO. DEF VAR xString AS CHAR NO-UNDO. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR. IF AktSeite > 1 THEN DO: RUN selectPage ( INPUT 1 ). RETURN NO-APPLY. END. RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ). wx = {&WINDOW-NAME}:X NO-ERROR. wy = {&WINDOW-NAME}:Y NO-ERROR. /* DYNAMIC-FUNCTION('setFensterPosition':U, */ xString = STRING(wx) + ';' + STRING(wy). PUT-KEY-VALUE SECTION 'FensterPositionen' KEY 'Adressfenster' VALUE xString. APPLY "CLOSE":U TO THIS-PROCEDURE. */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENTRY_CURSOR wAdressen PROCEDURE ENTRY_CURSOR : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR FeldName AS CHAR NO-UNDO. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U). FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname). CASE AktSeite: WHEN 1 THEN RUN applyEntry IN h_b-adresse ( INPUT ? ). WHEN 2 THEN DO: IF FMutFlag THEN RUN applyEntry IN h_v-ansprech ( INPUT ? ). ELSE RUN applyEntry IN h_b-ansprech ( INPUT ? ). END. WHEN 3 THEN DO: IF FMutFlag THEN DO: FeldName = DYNAMIC-FUNCTION('GETENTRYFELD':U) NO-ERROR. RUN applyEntry IN h_v-adresse ( INPUT FeldName ). END. ELSE RUN applyEntry IN h_v-adresse ( INPUT ? ). END. WHEN 4 THEN RUN applyEntry IN h_v-debst ( INPUT ? ). WHEN 5 THEN RUN applyEntry IN h_v-liefst ( INPUT ? ). WHEN 6 THEN DO: IF FMutFlag THEN RUN applyEntry IN h_v-abwprgrp ( INPUT ? ). ELSE RUN applyEntry IN h_b-abwprgrp ( INPUT ? ). END. WHEN 7 THEN DO WITH FRAME {&FRAME-NAME}: IF R_SpezPreis = 1 THEN DO: IF FMutFlag THEN RUN applyEntry IN h_v-spezprei-deb ( INPUT ? ). ELSE RUN applyEntry IN h_b-spezprei-deb ( INPUT ? ). END. IF R_SpezPreis = 2 THEN DO: IF FMutFlag THEN RUN applyEntry IN h_v-spezrab-deb ( INPUT ? ). ELSE RUN applyEntry IN h_b-spezrab-deb ( INPUT ? ). END. END. WHEN 8 THEN RUN applyEntry IN h_v-krest ( INPUT ? ). WHEN 9 THEN RUN applyEntry IN h_b-kunbw ( INPUT ? ). /* WHEN 6 THEN RUN applyEntry IN h_b-auffak ( INPUT ? ). */ /* WHEN 7 THEN RUN applyEntry IN h_b-position ( INPUT ? ). */ END CASE. RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject wAdressen PROCEDURE exitObject : /*------------------------------------------------------------------------------ Purpose: Window-specific override of this procedure which destroys its contents and itself. Notes: ------------------------------------------------------------------------------*/ RUN ENDE. RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FIND_ADRESSE wAdressen PROCEDURE FIND_ADRESSE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR cParam AS CHAR NO-UNDO. DEF VAR bRecid AS RECID NO-UNDO. DEF VAR bSort AS INT NO-UNDO. DEF VAR ix AS INT NO-UNDO. DEF VAR sHandle AS CHAR NO-UNDO. DEF VAR hData AS HANDLE NO-UNDO. bRecid = ?. RUN g-suchen-adresse.w ( INPUT 'ADR;', OUTPUT bRecid ). IF bRecid = ? THEN RETURN. IF bRecid = 0 THEN RETURN. lNewInaktiv = DYNAMIC-FUNCTION('getAnzeigeAdresseInaktiv':U) NO-ERROR. FIND Adresse NO-LOCK WHERE RECID(Adresse) = bRecid NO-ERROR. IF lNewInaktiv <> lOldInaktiv THEN DYNAMIC-FUNCTION('openQuery':U IN h_d-Adresse) NO-ERROR. lOldInaktiv = lNewInaktiv. RUN REPOS IN h_d-adresse ( INPUT bRecid ). RUN ENTRY_CURSOR. RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject wAdressen PROCEDURE initializeObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ RUN SUPER. { incl/wininitializeobject.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE NEXTPAGE wAdressen PROCEDURE NEXTPAGE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U). IF AktSeite = MaxSeite THEN AktSeite = 1. ELSE AktSeite = AktSeite + 1. RUN selectPage ( INPUT AktSeite ). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE PREVPAGE wAdressen PROCEDURE PREVPAGE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U). IF AktSeite = 1 THEN AktSeite = MaxSeite. ELSE AktSeite = AktSeite - 1. RUN selectPage ( INPUT AktSeite ). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SEITENWECHSEL wAdressen PROCEDURE SEITENWECHSEL : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ { incl/winseitenwechsel.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage wAdressen PROCEDURE selectPage : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER piPageNum AS INT NO-UNDO. DEF VAR FMutFlag AS LOG NO-UNDO. DEF VAR MutProg AS CHAR NO-UNDO. FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) NO-ERROR. DO WHILE TRUE: IF NOT FMutFlag THEN LEAVE. RETURN NO-APPLY. END. IF cInstallation = 'oswald' AND cBenutzer = 'gt' THEN DO: CASE piPageNum: WHEN 6 THEN RETURN NO-APPLY. WHEN 7 THEN RETURN NO-APPLY. WHEN 9 THEN RETURN NO-APPLY. END CASE. END. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U). IF AktSeite = piPageNum THEN RETURN NO-APPLY. CASE AktSeite: WHEN 1 THEN DO: /* RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-auftr ). */ /* RUN removeLink ( h_dyntoolbar , 'Navigation':U , h_d-auftr ). */ END. WHEN 2 THEN DO: RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-ansprech ). END. WHEN 3 THEN DO: RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-adresse ). END. WHEN 4 THEN DO: RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-debst ). END. WHEN 5 THEN DO: RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-liefst ). END. WHEN 6 THEN DO: PUBLISH 'SETOPENFLAGDEBST' ( INPUT FALSE ). RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-abwprgrp ). END. WHEN 7 THEN DO WITH FRAME {&FRAME-NAME}: R_SpezPreis:SENSITIVE = FALSE. R_SpezPreis:HIDDEN = TRUE. IF R_SpezPreis = 1 THEN DO: RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-spezprei-deb). END. IF R_SpezPreis = 2 THEN DO: RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-spezrab-deb). END. RUN hideObject IN h_b-spezrab-deb. RUN hideObject IN h_v-spezrab-deb. RUN hideObject IN h_b-spezprei-deb. RUN hideObject IN h_v-spezprei-deb. END. WHEN 8 THEN DO: RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-krest ). END. WHEN 9 THEN DO: PUBLISH 'SETOPENFLAGDEBST' ( INPUT FALSE ). END. END CASE. RUN SUPER( INPUT piPageNum). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TELEFONIEREN wAdressen PROCEDURE TELEFONIEREN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipNummer AS CHAR NO-UNDO. IF ipNummer = '' THEN RETURN. DEF VAR cNummer AS CHAR NO-UNDO. DEF VAR cPasswort AS CHAR NO-UNDO. DEF VAR cMessage AS CHAR NO-UNDO. FIND Tabel NO-LOCK WHERE Tabel.Firma = Firma AND Tabel.RecArt = 'TEL_INTNR' AND Tabel.CodeC = cBenutzer AND Tabel.CodeI = 0 AND Tabel.Sprcd = 1 NO-ERROR. IF NOT AVAILABLE Tabel THEN DO: RUN g-einlesen-text.w ( 'Eingabe interne Telefonnummer', 'Int. TelNr:', TRUE, INPUT-OUTPUT cNummer ). IF cNummer = '' OR cNummer = ? THEN RETURN. REPEAT TRANSACTION: CREATE Tabel. ASSIGN Tabel.Firma = Firma Tabel.RecArt = 'TEL_INTNR' Tabel.CodeC = cBenutzer Tabel.CodeI = 0 Tabel.Sprcd = 1 Tabel.Bez1 = cNummer. RELEASE Tabel. LEAVE. END. END. ELSE cNummer = Tabel.Bez1. FIND Tabel NO-LOCK WHERE Tabel.Firma = Firma AND Tabel.RecArt = 'TEL_PASSW' AND Tabel.CodeC = cBenutzer AND Tabel.CodeI = 0 AND Tabel.Sprcd = 1 NO-ERROR. IF NOT AVAILABLE Tabel THEN DO: RUN g-einlesen-text.w ( 'Eingabe Telefonpasswort', 'Tel.-Passwort', TRUE, INPUT-OUTPUT cPasswort ). IF cPasswort = '' OR cPasswort = ? THEN RETURN. REPEAT TRANSACTION: CREATE Tabel. ASSIGN Tabel.Firma = Firma Tabel.RecArt = 'TEL_PASSW' Tabel.CodeC = cBenutzer Tabel.CodeI = 0 Tabel.Sprcd = 1 Tabel.Bez1 = cPasswort. RELEASE Tabel. LEAVE. END. END. ELSE cPasswort = Tabel.Bez1. CASE cInstallation: WHEN 'OSWALD' THEN DO: RUN Telefon_UNIFY.p ( cNummer, cPasswort, ipNummer, OUTPUT cMessage ) NO-ERROR. END. WHEN 'HUBER' THEN DO: RUN Telefon_UNIFY.p ( cNummer, cPasswort, ipNummer, OUTPUT cMessage ) NO-ERROR. END. END CASE. IF cMessage <> '' THEN DO: MESSAGE 'Probleme mit Telefonverbindung' SKIP cMessage VIEW-AS ALERT-BOX. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TOOLBAR wAdressen PROCEDURE TOOLBAR : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ { incl/wintoolbar.i } /* DEF INPUT PARAMETER pcAction AS CHAR NO-UNDO. IF pcAction = 'setSaveReset' THEN DO: DYNAMIC-FUNCTION('sensitizeActions':U IN h_dyntoolbar, 'SAVE,RESET', TRUE) NO-ERROR. RETURN. END. RUN onChoose IN h_dyntoolbar ( INPUT pcAction ). */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE viewObject wAdressen PROCEDURE viewObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ RUN SUPER. APPLY 'U1'. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME