GeMIS_WEB/GUI/w-debitoren.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME wDebitoren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wDebitoren 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrwin.w - ADM SmartWindow Template

  Input Parameters:
      <none>
                       
  Output Parameters:
      <none>

  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 MaxPage  AS INT    NO-UNDO.
DEF VAR hToolbar AS HANDLE NO-UNDO.
DEF VAR sRecid   AS RECID  NO-UNDO.

DEF TEMP-TABLE tDebfa LIKE Debfa.

/* _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

/* 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 wDebitoren AS WIDGET-HANDLE NO-UNDO.

/* Definitions of handles for SmartObjects                              */
DEFINE VARIABLE h_b-debhi AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-debop AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-adresse AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-debhi AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-debop AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-debst AS HANDLE NO-UNDO.
DEFINE VARIABLE h_dyntoolbar AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-besr AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-debjournale AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-debzahlung AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-man-rechnungen AS HANDLE NO-UNDO.
DEFINE VARIABLE h_folder AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-adresse-infdeb AS HANDLE NO-UNDO.

/* ************************  Frame Definitions  *********************** */

DEFINE FRAME fMain
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1
         SIZE 178.2 BY 27.14.


/* *********************** 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
   Other Settings: COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
  CREATE WINDOW wDebitoren ASSIGN
         HIDDEN             = YES
         TITLE              = "DEBITOREN"
         HEIGHT             = 27.14
         WIDTH              = 178.2
         MAX-HEIGHT         = 53.71
         MAX-WIDTH          = 320
         VIRTUAL-HEIGHT     = 53.71
         VIRTUAL-WIDTH      = 320
         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 wDebitoren: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 wDebitoren 
/* ************************* 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 wDebitoren
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   FRAME-NAME                                                           */
IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wDebitoren)
THEN wDebitoren:HIDDEN = yes.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME

 



/* ************************  Control Triggers  ************************ */

&Scoped-define SELF-NAME wDebitoren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wDebitoren wDebitoren
ON END-ERROR OF wDebitoren /* DEBITOREN */
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 wDebitoren wDebitoren
ON WINDOW-CLOSE OF wDebitoren /* DEBITOREN */
DO:
        RUN ENDE.
        RETURN NO-APPLY.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK wDebitoren 


/* ***************************  Main Block  *************************** */

{ incl/winmainblock.i }
    
MaxPage  = 5.
    
{src/adm2/windowmn.i}

SESSION:DATA-ENTRY-RETURN = TRUE.

SUBSCRIBE TO 'TOOLBAR'          ANYWHERE.
SUBSCRIBE TO 'GETPROG'          ANYWHERE.
SUBSCRIBE TO 'FAKTURABEZAHLEN'  ANYWHERE.


/*  TRIGGERS    ------------------------------------------------------  */

ON 'CTRL-N':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN FINDEN_NUMMER.
        RETURN NO-APPLY.
    END.
ON 'ALT-F':U  OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN FINDEN.
        RETURN NO-APPLY.
    END.

    /* Include custom  Main Block code for SmartWindows. */

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* **********************  Internal Procedures  *********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wDebitoren  _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:  <none>
------------------------------------------------------------------------------*/
  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 ( 22.00 , 10.00 ) NO-ERROR.
       /* Size in AB:  ( 3.48 , 16.20 ) */

       RUN constructObject (
             INPUT  'd-debst.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsDebst.Firma,Firma,Debst.Knr,KnrObjectNamed-debstOpenOnInityesPromptColumns(NONE)PromptOnDeleteyesRowsToBatch3RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-debst ).
       RUN repositionObject IN h_d-debst ( 22.00 , 32.00 ) NO-ERROR.
       /* Size in AB:  ( 2.52 , 15.00 ) */

       RUN constructObject (
             INPUT  'd-debhi.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsDebhi.Firma,Firma,Debhi.Knr,KnrObjectNamed-debhiOpenOnInityesPromptColumns(NONE)PromptOnDeleteyesRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-debhi ).
       RUN repositionObject IN h_d-debhi ( 22.00 , 76.00 ) NO-ERROR.
       /* Size in AB:  ( 2.52 , 15.00 ) */

       RUN constructObject (
             INPUT  'd-debop.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsDebop.Firma,Firma,Debop.Knr,KnrObjectNamed-debopOpenOnInityesPromptColumns(NONE)PromptOnDeleteyesRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-debop ).
       RUN repositionObject IN h_d-debop ( 22.00 , 54.00 ) NO-ERROR.
       /* Size in AB:  ( 2.52 , 15.00 ) */

       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.33 , 59.20 ) NO-ERROR.

       RUN constructObject (
             INPUT  'adm2/folder.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'FolderLabels':U + 'Zahlungen (1)|Debitoren-Info (2)|man. Rechnungen (3)|Auswertungen (4)|BESR-Verarbeitung(5)' + 'FolderTabWidth0FolderFont-1HideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_folder ).
       RUN repositionObject IN h_folder ( 2.14 , 1.00 ) NO-ERROR.
       RUN resizeObject IN h_folder ( 26.00 , 178.00 ) NO-ERROR.

       /* Links to SmartDataObject h_d-adresse. */
       RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-adresse ).

       /* Links to SmartDataObject h_d-debst. */
       RUN addLink ( h_d-adresse , 'Data':U , h_d-debst ).

       /* Links to SmartDataObject h_d-debhi. */
       RUN addLink ( h_d-debst , 'Data':U , h_d-debhi ).

       /* Links to SmartDataObject h_d-debop. */
       RUN addLink ( h_d-debst , 'Data':U , h_d-debop ).

       /* 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_dyntoolbar , 'AFTER':U ).
    END. /* Page 0 */
    WHEN 1 THEN DO:
       RUN constructObject (
             INPUT  'f-debzahlung.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-debzahlung ).
       RUN repositionObject IN h_f-debzahlung ( 3.81 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 21.95 , 135.60 ) */

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-debzahlung ,
             h_folder , 'AFTER':U ).
    END. /* Page 1 */
    WHEN 2 THEN DO:
       RUN constructObject (
             INPUT  'v-adresse-infdeb.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_v-adresse-infdeb ).
       RUN repositionObject IN h_v-adresse-infdeb ( 3.76 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 1.76 , 134.00 ) */

       RUN constructObject (
             INPUT  'b-debhi.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-debhi ).
       RUN repositionObject IN h_b-debhi ( 18.91 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-debhi ( 7.38 , 170.00 ) NO-ERROR.

       RUN constructObject (
             INPUT  'b-debop.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-debop ).
       RUN repositionObject IN h_b-debop ( 6.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-debop ( 12.62 , 134.00 ) NO-ERROR.

       /* Links to SmartDataViewer h_v-adresse-infdeb. */
       RUN addLink ( h_d-adresse , 'Data':U , h_v-adresse-infdeb ).

       /* Links to SmartDataBrowser h_b-debhi. */
       RUN addLink ( h_d-debhi , 'Data':U , h_b-debhi ).

       /* Links to SmartDataBrowser h_b-debop. */
       RUN addLink ( h_d-debop , 'Data':U , h_b-debop ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_v-adresse-infdeb ,
             h_folder , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-debop ,
             h_v-adresse-infdeb , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-debhi ,
             h_b-debop , 'AFTER':U ).
    END. /* Page 2 */
    WHEN 3 THEN DO:
       RUN constructObject (
             INPUT  'f-man-rechnungen.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-man-rechnungen ).
       RUN repositionObject IN h_f-man-rechnungen ( 4.05 , 2.60 ) NO-ERROR.
       /* Size in AB:  ( 23.48 , 134.60 ) */

       /* Links to SmartFrame h_f-man-rechnungen. */
       RUN addLink ( h_d-adresse , 'Data':U , h_f-man-rechnungen ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-man-rechnungen ,
             h_folder , 'AFTER':U ).
    END. /* Page 3 */
    WHEN 4 THEN DO:
       RUN constructObject (
             INPUT  'f-debjournale.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-debjournale ).
       RUN repositionObject IN h_f-debjournale ( 5.38 , 20.60 ) NO-ERROR.
       /* Size in AB:  ( 16.67 , 102.00 ) */

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-debjournale ,
             h_folder , 'AFTER':U ).
    END. /* Page 4 */
    WHEN 5 THEN DO:
       RUN constructObject (
             INPUT  'f-besr.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-besr ).
       RUN repositionObject IN h_f-besr ( 5.00 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 18.52 , 172.00 ) */

       /* Links to SmartFrame h_f-besr. */
       RUN addLink ( h_folder , 'Page':U , h_f-besr ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-besr ,
             h_folder , 'AFTER':U ).
    END. /* Page 5 */

  END CASE.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE changePage wDebitoren 
PROCEDURE changePage :
/*------------------------------------------------------------------------------
      Purpose:     Super Override
      Parameters:  
      Notes:       
    ------------------------------------------------------------------------------*/

    RUN SUPER.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    CASE AktSeite:

        WHEN 1 THEN 
            DO:
            END.

        WHEN 2 THEN 
            DO:
            /*             RUN addLink ( hToolbar , 'Navigation':U , h_d-adresse      ). */
            END.

        WHEN 3 THEN 
            DO:
            END.

        WHEN 4 THEN 
            DO:
            END.

    END CASE.

    RUN ENTRY_CURSOR.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wDebitoren  _DEFAULT-DISABLE
PROCEDURE disable_UI :
/*------------------------------------------------------------------------------
  Purpose:     DISABLE the User Interface
  Parameters:  <none>
  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(wDebitoren)
  THEN DELETE WIDGET wDebitoren.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wDebitoren 
PROCEDURE enableObject :
/*------------------------------------------------------------------------------
      Purpose:     Super Override
      Parameters:  
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR wx      AS INT  NO-UNDO.
    DEF VAR wy      AS INT  NO-UNDO.
    DEF VAR MaxX    AS INT  NO-UNDO.
    DEF VAR MaxY    AS INT  NO-UNDO.
    DEF VAR xString AS CHAR NO-UNDO.

    MaxX = SESSION:WIDTH-PIXELS.
    MaxY = SESSION:HEIGHT-PIXELS.
    GET-KEY-VALUE SECTION 'FensterPositionen'
        KEY     ProgName
        VALUE   xString.
    IF xString = ?  THEN xString = '30;30'.
    IF xString = '' THEN xString = '30;30'.
    wx = INTEGER(ENTRY(1, xString, ';')).
    wy = INTEGER(ENTRY(2, xString, ';')).
    IF wx < 0 THEN wx = 30.
    IF wy < 0 THEN wy = 30.
    IF wx > (MaxX - 20) THEN wx = 30.
    IF wy > (MaxY - 20) THEN wy = 30.
    
    {&WINDOW-NAME}:X = wx.
    {&WINDOW-NAME}:Y = wy.

    RUN SUPER.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wDebitoren  _DEFAULT-ENABLE
PROCEDURE enable_UI :
/*------------------------------------------------------------------------------
  Purpose:     ENABLE the User Interface
  Parameters:  <none>
  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.
------------------------------------------------------------------------------*/
  VIEW FRAME fMain IN WINDOW wDebitoren.
  {&OPEN-BROWSERS-IN-QUERY-fMain}
  VIEW wDebitoren.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE wDebitoren 
PROCEDURE ENDE :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    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.

    IF sAktiv THEN RUN ENDE_PROGRAMM ( INPUT Progname ).

    wx = {&WINDOW-NAME}:X NO-ERROR.
    wy = {&WINDOW-NAME}:Y NO-ERROR.
    xString = STRING(wx) + ';' + STRING(wy).
    PUT-KEY-VALUE SECTION 'FensterPositionen'
        KEY     ProgName
        VALUE   xString.

    APPLY "CLOSE":U TO THIS-PROCEDURE.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENTRY_CURSOR wDebitoren 
PROCEDURE ENTRY_CURSOR :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U)             NO-ERROR.
    FMutFlag = DYNAMIC-FUNCTION('GETMUTFLAG':U, INPUT Progname) NO-ERROR.

    CASE AktSeite:
        /*         WHEN 1 THEN DO:                                                  */
        /*             IF FMutFlag THEN RUN applyEntry IN h_v-         ( INPUT ? ). */
        /*             ELSE             RUN applyEntry IN h_b-         ( INPUT ? ). */
        /*         END.                                                             */
        WHEN 1 THEN RUN applyEntry IN h_f-debzahlung     ( INPUT ? ).
        WHEN 2 THEN RUN applyEntry IN h_b-debop          ( INPUT ? ).
        WHEN 3 THEN RUN applyEntry IN h_f-man-rechnungen ( INPUT 'F_Knr' ).
        WHEN 4 THEN RUN applyEntry IN h_f-debjournale    ( INPUT 'F_VonKnr' ).
    /*         WHEN 5 THEN RUN applyEntry IN h_b-aufstreu ( 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 wDebitoren 
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 FAKTURABEZAHLEN wDebitoren 
PROCEDURE FAKTURABEZAHLEN :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER ipFaknr AS CHAR             NO-UNDO.

    DEF VAR Faknr AS INT NO-UNDO.

    Faknr = INTEGER(ipFaknr).
    FIND Debop NO-LOCK USE-INDEX Debop-k2
        WHERE Debop.Firma = Firma
        AND   Debop.Faknr = Faknr NO-ERROR.
    IF NOT AVAILABLE Debop THEN RETURN NO-APPLY.

    RUN selectPage ( INPUT 1 ).

    RUN FAKTURA_VON_OP IN h_f-debzahlung ( INPUT Faknr ).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FINDEN wDebitoren 
PROCEDURE FINDEN :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR iRecid AS RECID NO-UNDO.

    FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, Progname ) NO-ERROR.

    IF FMutFlag THEN RETURN NO-APPLY.

    KUNDENSUCHE:
    DO WHILE TRUE:
        RUN g-suchen-adresse.w (INPUT  '',
            OUTPUT iRecid ) NO-ERROR.
        IF iRecid = ? THEN RETURN NO-APPLY.
        
        FIND Adresse NO-LOCK WHERE RECID(Adresse) = iRecid NO-ERROR.
        AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.
        IF  AktSeite <> 2 AND
            AktSeite <> 3 THEN RUN selectPage ( 2 ).
        
        RUN REPOS IN h_d-adresse (iRecid).
        
        AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.
        IF AktSeite = 3 THEN 
        DO:
            RUN SET_FIND_KNR IN h_f-man-rechnungen ( Adresse.Knr ).
            SESSION:SET-WAIT-STATE('').
            RETURN NO-APPLY.
        END. 

        SESSION:SET-WAIT-STATE('').
        LEAVE.
    END.

    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FINDEN_NUMMER wDebitoren 
PROCEDURE FINDEN_NUMMER :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR iNummer     AS INT    NO-UNDO.
    DEF VAR iAdresse_id AS RECID  NO-UNDO.
    DEF VAR cRowId      AS CHAR   NO-UNDO.
    DEF VAR sHandle     AS CHAR   NO-UNDO.
    DEF VAR hDaten      AS HANDLE NO-UNDO.
    DEF VAR ix          AS INT    NO-UNDO.

    FMutFlag = DYNAMIC-FUNCTION('getMutflag':U) NO-ERROR.
    IF FMutFlag THEN RETURN NO-APPLY.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    RUN g-einlesen-nummer.w ('Suchen nach Kunden', 'KundenNr', OUTPUT iNummer).
    iAdresse_id = 0.
    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        IF iNummer = ? OR
            iNummer = 0  THEN 
        DO:
            DYNAMIC-FUNCTION('FEHLER', INPUT 6016) NO-ERROR.
            LEAVE.
        END.

        FIND FIRST Adresse NO-LOCK USE-INDEX Adresse-k1
            WHERE Adresse.Firma = AdFirma
            AND   Adresse.Knr   = iNummer NO-ERROR.
        IF AVAILABLE Adresse THEN 
        DO:
            iAdresse_id = RECID(Adresse).
            LEAVE.
        END.
        LEAVE.
    END.

    IF iAdresse_id > 0 THEN 
    DO:
        SESSION:SET-WAIT-STATE('GENERAL').
        RUN REPOS IN h_d-Adresse ( iAdresse_Id ) NO-ERROR.
        SESSION:SET-WAIT-STATE('').
    END.

    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GETPROG wDebitoren 
PROCEDURE GETPROG :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF OUTPUT PARAMETER opProg AS CHAR             NO-UNDO.

    opProg = ProgName.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject wDebitoren 
PROCEDURE initializeObject :
/*------------------------------------------------------------------------------
      Purpose:     Super Override
      Parameters:  
      Notes:       
    ------------------------------------------------------------------------------*/

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

    hToolbar = h_dyntoolbar.

    IF sAktiv THEN 
    DO:
        RUN FENSTER_TITEL ( INPUT {&WINDOW-NAME}:HANDLE ) NO-ERROR.
        {&WINDOW-NAME}:TITLE = {&WINDOW-NAME}:TITLE + ' (' + Progname + ')'.
    END.

    IF VALID-HANDLE(hToolbar) THEN 
    DO:
        RUN SETPROGNAME IN hToolbar ( INPUT Progname            ).
        RUN setButtons  IN hToolbar ( INPUT 'Initial-TableIo':U ).
    END.
    
    RUN SET_OPENFLAG IN h_d-adresse ( TRUE ).

    RUN selectPage ( 1 ).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE NEXTPAGE wDebitoren 
PROCEDURE NEXTPAGE :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.
    IF AktSeite = MaxPage 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 wDebitoren 
PROCEDURE PREVPAGE :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.
    IF AktSeite = 1 THEN AktSeite = MaxPage.
    ELSE                 AktSeite = AktSeite - 1.

    RUN selectPage ( INPUT AktSeite ).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage wDebitoren 
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.
    IF FMutFlag THEN RETURN NO-APPLY.

    CASE piPageNum:

    END CASE.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    CASE AktSeite:

        WHEN 1 THEN 
            DO:
                RUN ABBRUCH IN h_f-debzahlung.
            END.
        WHEN 2 THEN 
            DO:
            /*             RUN removeLink ( hToolbar , 'TableIO':U    , h_v-auftr       ). */
            /*             RUN removeLink ( hToolbar , 'Navigation':U , h_d-adresse     ). */
            END.
        WHEN 3 THEN 
            DO:
                RUN SET_CANCEL IN h_f-man-rechnungen.
            END.

        WHEN 4 THEN 
            DO:
            END.

    END CASE.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TOOLBAR wDebitoren 
PROCEDURE TOOLBAR :
/*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER pcAction    AS CHAR             NO-UNDO.
    
    IF pcAction = 'ABBRUCH' THEN 
    DO:
        DYNAMIC-FUNCTION('SETFLAGABBRUCH':U, INPUT TRUE, INPUT Progname ) NO-ERROR.
        RETURN.
    END.
    IF VALID-HANDLE(hToolbar) THEN RUN onChoose IN hToolbar ( INPUT pcAction ).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE viewObject wDebitoren 
PROCEDURE viewObject :
/*------------------------------------------------------------------------------
      Purpose:     Super Override
      Parameters:  
      Notes:       
    ------------------------------------------------------------------------------*/

    RUN SUPER.

    RUN ENTRY_CURSOR.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME