GeMIS_WEB/GUI/g-sesam-debi-online.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&Scoped-define FRAME-NAME gSESAM
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gSESAM 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrdlg.w - ADM2 SmartDialog Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

  Created: 
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEF VAR MaxPage         AS INT                      NO-UNDO.
DEF VAR fSuperAkt       AS LOG                      NO-UNDO.
DEF VAR AktSeite        AS INT                      NO-UNDO.
DEF VAR FMutFlag        AS LOG                      NO-UNDO.
DEF VAR cMandant        AS CHAR                     NO-UNDO.
DEF VAR cValue          AS CHAR                     NO-UNDO.
DEF VAR ja              AS LOG                      NO-UNDO.
DEF VAR Firma           AS CHAR                     NO-UNDO.
DEF VAR AdFirma         AS CHAR                     NO-UNDO.
DEF VAR cBuchtext       AS CHAR                     NO-UNDO.

DEF VAR iRetCode        AS INT                      NO-UNDO.
DEF VAR hdSesam         AS COM-HANDLE               NO-UNDO.
DEF VAR hdBeleg         AS COM-HANDLE               NO-UNDO.
DEF VAR hdKonto         AS COM-HANDLE               NO-UNDO.
DEF VAR cString         AS CHAR                     NO-UNDO.
DEF VAR cKonto          AS CHAR                     NO-UNDO.

DEF TEMP-TABLE AInterf  LIKE Interf.
DEF TEMP-TABLE TInterf  LIKE Interf.
DEF TEMP-TABLE SInterf  LIKE Interf
                        INDEX SInterf-k1 AS PRIMARY
                              Kto1
                              Kto2.

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE SmartDialog
&Scoped-define DB-AWARE no

&Scoped-define ADM-CONTAINER DIALOG-BOX

&Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target

/* Name of first Frame and/or Browse and/or first Query                 */
&Scoped-define FRAME-NAME gSESAM

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS F_Status F_Mandant CB_Buchart F_VonDatum ~
F_BisDatum T_Sammelbuchung F_Buchdatum F_Buchungstext T_Abschluss Btn_OK ~
Btn_Cancel RECT-4 
&Scoped-Define DISPLAYED-OBJECTS F_Status F_Mandant CB_Buchart F_VonDatum ~
F_BisDatum T_Sammelbuchung F_Buchdatum F_Buchungstext T_Abschluss 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_Mandant F_VonDatum F_BisDatum T_Sammelbuchung ~
F_Buchdatum F_Buchungstext T_Abschluss 

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



/* ***********************  Control Definitions  ********************** */

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Cancel AUTO-END-KEY 
     LABEL "abbrechen" 
     SIZE 14 BY 1.

DEFINE BUTTON Btn_OK AUTO-GO 
     LABEL "starten" 
     SIZE 14 BY 1.

DEFINE VARIABLE CB_Buchart AS CHARACTER FORMAT "X(256)":U INITIAL "000001" 
     LABEL "Buchungsart" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Rechnungen","000001",
                     "Zahlungen","000002"
     DROP-DOWN-LIST
     SIZE 35 BY 1 NO-UNDO.

DEFINE VARIABLE F_BisDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "-" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 16 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Buchdatum AS DATE FORMAT "99.99.9999":U 
     LABEL "Buchungsdatum" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 16 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Buchungstext AS CHARACTER FORMAT "x(30)":U 
     LABEL "Buchungstext" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 56 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Mandant AS CHARACTER FORMAT "X(256)":U 
     LABEL "SESAM-Mandant" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 56 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Status AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 86 BY 1
     BGCOLOR 14 FONT 6 NO-UNDO.

DEFINE VARIABLE F_VonDatum AS DATE FORMAT "99.99.9999":U INITIAL 01/01/001 
     LABEL "von - bis Rechnungsdatum" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 16 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE RECTANGLE RECT-4
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL 
     SIZE 90 BY 9.05.

DEFINE VARIABLE T_Abschluss AS LOGICAL INITIAL no 
     LABEL "Abschliessen" 
     VIEW-AS TOGGLE-BOX
     SIZE 20 BY 1 NO-UNDO.

DEFINE VARIABLE T_Sammelbuchung AS LOGICAL INITIAL no 
     LABEL "Sammelbuchung ?" 
     VIEW-AS TOGGLE-BOX
     SIZE 20 BY 1 NO-UNDO.


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

DEFINE FRAME gSESAM
     F_Status AT ROW 9 COL 2 COLON-ALIGNED NO-LABEL NO-TAB-STOP 
     F_Mandant AT ROW 1.52 COL 28 COLON-ALIGNED
     CB_Buchart AT ROW 2.52 COL 28 COLON-ALIGNED
     F_VonDatum AT ROW 3.52 COL 28 COLON-ALIGNED
     F_BisDatum AT ROW 3.52 COL 47 COLON-ALIGNED
     T_Sammelbuchung AT ROW 4.52 COL 30
     F_Buchdatum AT ROW 4.52 COL 68 COLON-ALIGNED
     F_Buchungstext AT ROW 5.52 COL 28 COLON-ALIGNED
     T_Abschluss AT ROW 6.52 COL 30
     Btn_OK AT ROW 7.71 COL 30
     Btn_Cancel AT ROW 7.71 COL 54.2
     RECT-4 AT ROW 1.24 COL 2
     SPACE(0.99) SKIP(0.22)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Fibubuchungen in SESAM"
         CANCEL-BUTTON Btn_Cancel.


/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDialog
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target
   Design Page: 1
   Other Settings: COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB gSESAM 
/* ************************* Included-Libraries *********************** */

{src/adm2/containr.i}

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




/* ***********  Runtime Attributes and AppBuilder Settings  *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR DIALOG-BOX gSESAM
   Custom                                                               */
ASSIGN 
       FRAME gSESAM:SCROLLABLE       = FALSE
       FRAME gSESAM:HIDDEN           = TRUE.

/* SETTINGS FOR FILL-IN F_BisDatum IN FRAME gSESAM
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Buchdatum IN FRAME gSESAM
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Buchungstext IN FRAME gSESAM
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Mandant IN FRAME gSESAM
   6                                                                    */
ASSIGN 
       F_Status:READ-ONLY IN FRAME gSESAM        = TRUE.

/* SETTINGS FOR FILL-IN F_VonDatum IN FRAME gSESAM
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Abschluss IN FRAME gSESAM
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Sammelbuchung IN FRAME gSESAM
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


/* Setting information for Queries and Browse Widgets fields            */

&ANALYZE-SUSPEND _QUERY-BLOCK DIALOG-BOX gSESAM
/* Query rebuild information for DIALOG-BOX gSESAM
     _Options          = "SHARE-LOCK"
     _Query            is NOT OPENED
*/  /* DIALOG-BOX gSESAM */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME gSESAM
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gSESAM gSESAM
ON END-ERROR OF FRAME gSESAM /* Fibubuchungen in SESAM */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gSESAM gSESAM
ON GO OF FRAME gSESAM /* Fibubuchungen in SESAM */
DO:
    /*
    RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ) NO-ERROR.
    */
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gSESAM gSESAM
ON WINDOW-CLOSE OF FRAME gSESAM /* Fibubuchungen in SESAM */
DO:  
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME Btn_Cancel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Cancel gSESAM
ON CHOOSE OF Btn_Cancel IN FRAME gSESAM /* abbrechen */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME Btn_OK
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK gSESAM
ON CHOOSE OF Btn_OK IN FRAME gSESAM /* starten */
DO:
    DO WITH FRAME {&FRAME-NAME}:
        Btn_OK      :SENSITIVE = FALSE.
        Btn_Cancel  :SENSITIVE = FALSE.
        SESSION:SET-WAIT-STATE('GENERAL').
    END.

    RUN VERARBEITUNG.

    DO WITH FRAME {&FRAME-NAME}:
        Btn_OK      :SENSITIVE = TRUE.
        Btn_Cancel  :SENSITIVE = TRUE.
        SESSION:SET-WAIT-STATE('').
    END.

    IF VALID-HANDLE(hdSesam) THEN RELEASE OBJECT hdSesam.
    IF VALID-HANDLE(hdBeleg) THEN RELEASE OBJECT hdBeleg.
    IF VALID-HANDLE(hdKonto) THEN RELEASE OBJECT hdKonto.

    IF RETURN-VALUE <> '' THEN RETURN NO-APPLY.

    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME CB_Buchart
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Buchart gSESAM
ON RETURN OF CB_Buchart IN FRAME gSESAM /* Buchungsart */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Buchart gSESAM
ON VALUE-CHANGED OF CB_Buchart IN FRAME gSESAM /* Buchungsart */
DO:
    DEF VAR cKey    AS CHAR                     NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    cKey = 'BuchungsText' + CB_Buchart:SCREEN-VALUE.
    GET-KEY-VALUE SECTION 'Sesam'
                  KEY     cKey
                  VALUE   cValue.
    IF cValue <> ? THEN cBuchtext = cValue.
    ELSE                cBuchtext = ''.
    IF T_Sammelbuchung:SCREEN-VALUE BEGINS 'n' THEN F_Buchungstext:SCREEN-VALUE = ''.
    ELSE                                            F_Buchungstext:SCREEN-VALUE = cBuchtext.
END.

END.

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


&Scoped-define SELF-NAME F_Buchdatum
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Buchdatum gSESAM
ON ENTRY OF F_Buchdatum IN FRAME gSESAM /* Buchungsdatum */
DO:
DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  {&List-6}.
    IF NOT T_Sammelbuchung THEN DO:
        APPLY 'TAB' TO SELF.
        RETURN NO-APPLY.
    END.
END.
END.

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


&Scoped-define SELF-NAME T_Abschluss
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Abschluss gSESAM
ON RETURN OF T_Abschluss IN FRAME gSESAM /* Abschliessen */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME T_Sammelbuchung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Sammelbuchung gSESAM
ON RETURN OF T_Sammelbuchung IN FRAME gSESAM /* Sammelbuchung ? */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Sammelbuchung gSESAM
ON VALUE-CHANGED OF T_Sammelbuchung IN FRAME gSESAM /* Sammelbuchung ? */
DO:
    DEF VAR cText   AS CHAR                     NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  {&list-6}.
        IF T_Sammelbuchung THEN ASSIGN  F_Buchdatum    = F_BisDatum
                                        F_Buchungstext = cBuchtext.
        ELSE                    ASSIGN  F_Buchdatum    = ?
                                        F_Buchungstext = ''.
        DISPLAY {&List-6}.
    END.
END.

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


&UNDEFINE SELF-NAME

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


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

    MaxPage   = 1.
    AktSeite  = 1.
    fSuperAkt = DYNAMIC-FUNCTION('getSuperAktiv':U) NO-ERROR.

    SESSION:DATA-ENTRY-RETURN = TRUE.
    SESSION:IMMEDIATE-DISPLAY = TRUE.

    SUBSCRIBE TO 'TOOLBAR' ANYWHERE.

    IF fSuperAkt THEN DO:
        Firma   = DYNAMIC-FUNCTION('GETMANDANT':U)   NO-ERROR.
        AdFirma = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.
    END.

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

    ON 'END-ERROR':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN ENDE.
        RETURN NO-APPLY.
    END.
    
/*  ------------------------------------------------------------------  */

    {src/adm2/dialogmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gSESAM  _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>
------------------------------------------------------------------------------*/

END PROCEDURE.

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

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

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

    RUN SUPER.

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

    CASE AktSeite:

        WHEN 1 THEN DO:
/*           RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-auftr        ). */
/*           RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-auftr        ). */
/*           RUN ToolbarInit ( INPUT h_d-auftr ).                              */
            RUN ENTRY_CURSOR.
        END.
        WHEN 2 THEN DO:
            RUN ENTRY_CURSOR.
        END.

    END CASE.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI gSESAM  _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.
------------------------------------------------------------------------------*/
  /* Hide all frames. */
  HIDE FRAME gSESAM.
END PROCEDURE.

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

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

    DEF VAR cKey    AS CHAR                     NO-UNDO.

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

    RUN SUPER.

    IF fSuperAkt THEN RUN FENSTER_TITEL ( INPUT FRAME {&FRAME-NAME}:HANDLE ) NO-ERROR.

    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        GET-KEY-VALUE SECTION 'Sesam'
                      KEY     'Mandant'
                      VALUE   cMandant.
        IF cMandant <> ? THEN DO:
            F_Mandant:SCREEN-VALUE = cMandant.
        END.
        GET-KEY-VALUE SECTION 'Sesam'
                      KEY     'Buchungsart'
                      VALUE   cValue.
        IF cValue <> ? THEN DO:
            CB_Buchart:SCREEN-VALUE = cValue.
            cKey = 'BuchungsText' + cValue.
            GET-KEY-VALUE SECTION 'Sesam'
                          KEY     cKey
                          VALUE   cValue.
            IF cValue <> ? THEN cBuchtext = cValue.
            ELSE                cBuchtext = ''.
        END.
        GET-KEY-VALUE SECTION 'Sesam'
                      KEY     'VonDatum'
                      VALUE   cValue.
        IF cValue <> ? THEN DO:
            F_VonDatum:SCREEN-VALUE = cValue.
        END.
        GET-KEY-VALUE SECTION 'Sesam'
                      KEY     'BisDatum'
                      VALUE   cValue.
        IF cValue <> ? THEN DO:
            F_BisDatum:SCREEN-VALUE = cValue.
        END.
        GET-KEY-VALUE SECTION 'Sesam'
                      KEY     'Sammelbuchung'
                      VALUE   cValue.
        IF cValue <> ? THEN DO:
            T_Sammelbuchung:SCREEN-VALUE = cValue.
        END.
        GET-KEY-VALUE SECTION 'Sesam'
                      KEY     'BuchDatum'
                      VALUE   cValue.
        IF cValue <> ? THEN DO:
            F_BuchDatum:SCREEN-VALUE = cValue.
        END.
        GET-KEY-VALUE SECTION 'Sesam'
                      KEY     'Abschluss'
                      VALUE   cValue.
        IF cValue <> ? THEN DO:
            T_Abschluss:SCREEN-VALUE = cValue.
        END.

        IF T_Sammelbuchung:SCREEN-VALUE BEGINS 'n' THEN F_Buchungstext:SCREEN-VALUE = ''.
        ELSE                                            F_Buchungstext:SCREEN-VALUE = cBuchtext.

        LEAVE.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gSESAM  _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.
------------------------------------------------------------------------------*/
  DISPLAY F_Status F_Mandant CB_Buchart F_VonDatum F_BisDatum T_Sammelbuchung 
          F_Buchdatum F_Buchungstext T_Abschluss 
      WITH FRAME gSESAM.
  ENABLE F_Status F_Mandant CB_Buchart F_VonDatum F_BisDatum T_Sammelbuchung 
         F_Buchdatum F_Buchungstext T_Abschluss Btn_OK Btn_Cancel RECT-4 
      WITH FRAME gSESAM.
  VIEW FRAME gSESAM.
  {&OPEN-BROWSERS-IN-QUERY-gSESAM}
END PROCEDURE.

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

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

    SESSION:IMMEDIATE-DISPLAY = FALSE.
    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    IF AktSeite > 1 THEN DO:
        RUN selectPage ( INPUT 1 ).
        RETURN NO-APPLY.
    END.

    IF fSuperAkt THEN RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ).
    APPLY 'GO' TO FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

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

    CASE AktSeite:
/*         WHEN 1 THEN RUN applyEntry IN h_v-adresse  ( INPUT ? ). */
/*         WHEN 2 THEN RUN applyEntry IN h_f-adrkomm  ( INPUT ? ). */
/*         WHEN 3 THEN RUN applyEntry IN h_b-auftbb   ( INPUT ? ). */
/*         WHEN 4 THEN RUN applyEntry IN h_b-aufdet   ( INPUT ? ). */
/*         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 gSESAM 
PROCEDURE exitObject :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

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

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).
    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 gSESAM 
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('getMutflagAlt':U) NO-ERROR.
    DO WHILE TRUE:
        IF NOT FMutFlag THEN LEAVE.
        MutProg = DYNAMIC-FUNCTION('GETMUTPROG':U).
        IF MutProg <> THIS-PROCEDURE:FILE-NAME THEN LEAVE.
        RETURN NO-APPLY.
    END.

    CASE piPageNum:

    END CASE.

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

    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.

    END CASE.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

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

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

    DEF INPUT PARAMETER pcAction    AS CHAR             NO-UNDO.
/*    
    RUN TOOLBAR IN h_dyntoolbar ( INPUT pcAction ).
*/
END PROCEDURE.

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

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

DEF VAR fBuchen     AS LOG                      NO-UNDO.
DEF VAR cKey        AS CHAR                     NO-UNDO.
DEF VAR iTrnr       AS INT                      NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  {&List-6}.
    IF CB_Buchart:SCREEN-VALUE = ?  OR
       CB_Buchart:SCREEN-VALUE = '' THEN DO:
        APPLY 'ENTRY' TO CB_Buchart.
        RETURN 'ERROR'.
    END.
    IF F_VonDatum = ? THEN DO:
        APPLY 'ENTRY' TO F_VonDatum.
        RETURN 'ERROR'.
    END.
    IF F_BisDatum = ? THEN DO:
        APPLY 'ENTRY' TO F_BisDatum.
        RETURN 'ERROR'.
    END.
    IF F_BisDatum < F_VonDatum THEN F_BisDatum = F_VonDatum.
    IF NOT T_Sammelbuchung THEN ASSIGN  F_Buchdatum    = ?
                                        F_Buchungstext = ''.
    ELSE DO:
        IF F_Buchdatum = ? THEN DO:
            APPLY 'ENTRY' TO F_BuchDatum.
            RETURN 'ERROR'.
        END.
        IF F_Buchungstext = '' THEN DO:
            APPLY 'ENTRY' TO F_Buchungstext.
            RETURN 'ERROR'.
        END.
    END.
    DISPLAY {&List-6}.

    cKey = 'BuchungsText' + CB_Buchart:SCREEN-VALUE.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'Mandant'
                  VALUE   F_Mandant      :SCREEN-VALUE.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'Buchungsart'
                  VALUE   CB_Buchart     :SCREEN-VALUE.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'VonDatum'
                  VALUE   F_VonDatum     :SCREEN-VALUE.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'BisDatum'
                  VALUE   F_BisDatum     :SCREEN-VALUE.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'Sammelbuchung'
                  VALUE   T_Sammelbuchung:SCREEN-VALUE.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'BuchDatum'
                  VALUE   F_BuchDatum    :SCREEN-VALUE.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'Abschluss'
                  VALUE   T_Abschluss    :SCREEN-VALUE.
    IF T_Sammelbuchung THEN DO:
        PUT-KEY-VALUE SECTION 'Sesam'
                      KEY     cKey
                      VALUE   F_Buchungstext:SCREEN-VALUE.
    END.

    DO WHILE TRUE:
        CREATE "FibuNT.Mandant" hdSesam CONNECT NO-ERROR.
        IF VALID-HANDLE(hdSesam) THEN LEAVE.

        CREATE "FibuNT.Mandant" hdSesam NO-ERROR.
        LEAVE.
    END.

    IF NOT VALID-HANDLE(hdSesam) THEN DO:
        MESSAGE 'SESAM ist auf diesem Arbeitsplatz nicht'   SKIP
                'oder nicht richtig installiert ! '
                VIEW-AS ALERT-BOX ERROR.
        RETURN 'ERROR'.
    END.

    cMandant = F_Mandant.
    F_Status:SCREEN-VALUE = 'Login mit ' + cMandant + ' ... '.
    iRetCode = hdSesam:Login( 1, cMandant ).

    IF iRetCode <> 0 THEN DO:
        MESSAGE 'Login nicht erfolgreich ! ' VIEW-AS ALERT-BOX ERROR.
        RETURN 'ERROR'.
    END.

    cMandant = hdSesam:LetzterMandant.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'Mandant'
                  VALUE   cMandant.

    F_Status:SCREEN-VALUE = 'Login mit ' + cMandant + ' ... OK!'.

    hdKonto = hdSesam:NeuKonto().
    IF NOT VALID-HANDLE(hdKonto) THEN DO:
        MESSAGE 'Es kann kin KontoObject erstellt werden ! '
                VIEW-AS ALERT-BOX ERROR.
        RETURN 'ERROR'.
    END.

    hdBeleg = hdSesam:NeuBeleg().
    IF NOT VALID-HANDLE(hdBeleg) THEN DO:
        MESSAGE 'Es können keine Belege eingefügt werden ! '
                VIEW-AS ALERT-BOX ERROR.
        RETURN 'ERROR'.
    END.

    fBuchen = TRUE.
    FOR EACH TInterf:
        DELETE  TInterf.
    END.
    FOR EACH AInterf:
        DELETE  AInterf.
    END.
    FOR EACH SInterf:
        DELETE  SInterf.
    END.
    FOR EACH Interf USE-INDEX Interf-k1
                    WHERE Interf.Firma    = Firma
                    AND   Interf.Verbucht = FALSE
                    AND   Interf.Datum   >= F_VonDatum
                    AND   Interf.Datum   <= F_BisDatum NO-LOCK:
        CASE CB_Buchart:SCREEN-VALUE:
            WHEN '000001' THEN DO:
                IF Interf.Herk < 50 THEN NEXT.
                IF Interf.Herk > 59 THEN NEXT.
            END.
            WHEN '000002' THEN DO:
                IF Interf.Herk < 60 THEN NEXT.
                IF Interf.Herk > 69 THEN NEXT.
            END.
            OTHERWISE NEXT.
        END CASE.

        CREATE  TInterf.
        BUFFER-COPY Interf TO TInterf.

        IF TInterf.Kto1 = ''        THEN TInterf.Kto1 = '2200'.
        IF TInterf.Kto1 = '1050'    THEN TInterf.Kto1 = '1100'.
        IF TInterf.Kto1 = '6000'    THEN TInterf.Kto1 = '3200'.
        IF TInterf.Kto1 = '6600'    THEN TInterf.Kto1 = '3290'.
        IF TInterf.Kto1 = '9999'    THEN TInterf.Kto1 = '1999'.
        IF TInterf.Kto1 = '9400'    THEN TInterf.Kto1 = '1000'.
        IF TInterf.Kto1 = '9300'    THEN TInterf.Kto1 = '1010'.
        IF TInterf.Kto1 = '9200'    THEN TInterf.Kto1 = '1020'.
        IF TInterf.Kto1 = '9100'    THEN TInterf.Kto1 = '1021'.
        IF TInterf.Kto1 = '9600'    THEN TInterf.Kto1 = '1026'.
        IF TInterf.Kto1 = '9500'    THEN TInterf.Kto1 = '1030'.
        IF TInterf.Kto1 = '9998'    THEN TInterf.Kto1 = '3295'.

        IF TInterf.Kto2 = ''        THEN TInterf.Kto2 = '2200'.
        IF TInterf.Kto2 = '1050'    THEN TInterf.Kto2 = '1100'.
        IF TInterf.Kto2 = '6000'    THEN TInterf.Kto2 = '3200'.
        IF TInterf.Kto2 = '6600'    THEN TInterf.Kto2 = '3290'.
        IF TInterf.Kto2 = '9999'    THEN TInterf.Kto2 = '1999'.
        IF TInterf.Kto2 = '9400'    THEN TInterf.Kto2 = '1000'.
        IF TInterf.Kto2 = '9300'    THEN TInterf.Kto2 = '1010'.
        IF TInterf.Kto2 = '9200'    THEN TInterf.Kto2 = '1020'.
        IF TInterf.Kto2 = '9100'    THEN TInterf.Kto2 = '1021'.
        IF TInterf.Kto2 = '9600'    THEN TInterf.Kto2 = '1026'.
        IF TInterf.Kto2 = '9500'    THEN TInterf.Kto2 = '1030'.
        IF TInterf.Kto2 = '9998'    THEN TInterf.Kto2 = '3295'.

        iRetCode = hdKonto:Lesen(TInterf.Kto1).
        IF iRetCode <> 0 THEN DO:
            MESSAGE TInterf.Kto1 ' ist ein ungültiges Konto '   SKIP
                    'Fehlercode = ' iRetCode
                    VIEW-AS ALERT-BOX ERROR.
            fBuchen = FALSE.
        END.
        iRetCode = hdKonto:Lesen(TInterf.Kto2).
        IF iRetCode <> 0 THEN DO:
            MESSAGE TInterf.Kto2 ' ist ein ungültiges Konto '   SKIP
                    'Fehlercode = ' iRetCode
                    VIEW-AS ALERT-BOX ERROR.
            fBuchen = FALSE.
        END.

        CREATE  AInterf.
        BUFFER-COPY TInterf TO AInterf.
    END.
    IF NOT fBuchen THEN RETURN 'ERROR'.
    IF T_Sammelbuchung THEN DO:
        iTrnr = 0.
        FOR EACH TInterf.
            FIND FIRST SInterf USE-INDEX SInterf-k1
                               WHERE SInterf.Kto1   = TInterf.Kto1
                               AND   SInterf.Kto2   = TInterf.Kto2
                               AND   SInterf.Frw    = TInterf.Frw
                               AND   SInterf.Kurs   = TInterf.Kurs
                               AND   SInterf.Faktor = TInterf.Faktor NO-ERROR.
            IF NOT AVAILABLE SInterf THEN DO:
                iTrnr = iTrnr + 1.
                CREATE  SInterf.
                BUFFER-COPY TInterf TO SInterf
                            ASSIGN  SInterf.Trnr1    = 0
                                    SInterf.Trnr2    = 0
                                    SInterf.Trnr     = iTrnr
                                    SInterf.Datum    = F_Buchdatum
                                    SInterf.Buchtxt1 = F_Buchungstext
                                    SInterf.Buchtxt2 = ''
                                    SInterf.Buchtxt3 = ''.
                NEXT.
            END.
            ASSIGN  SInterf.Betrag     = SInterf.Betrag     + TInterf.Betrag
                    SInterf.Betrag_Frw = SInterf.Betrag_Frw + TInterf.Betrag_Frw.
        END.
        FOR EACH TInterf:
            DELETE  TInterf.
        END.
        FOR EACH SInterf NO-LOCK:
            CREATE  TInterf.
            BUFFER-COPY SInterf TO TInterf.
            DELETE  SInterf.
        END.
    END.
    FOR EACH TInterf BREAK BY TInterf.Trnr1
                           BY TInterf.Trnr2
                           BY TInterf.Trnr:
        F_Status:SCREEN-VALUE = TInterf.Kto1        + '  '
                              + TInterf.Kto2        + '  '
                              + TInterf.Buchtxt1    + '  '
                              + STRING(TInterf.Betrag,'zzz,zzz,zz9.99-').
        iRetCode = hdBeleg:Buchen( TInterf.Datum, FALSE, TInterf.Kto1, TInterf.Buchtxt1, TInterf.Betrag ).
        iRetCode = hdBeleg:Buchen( TInterf.Datum, TRUE , TInterf.Kto2, TInterf.Buchtxt1, TInterf.Betrag ).
        iRetCode = hdBeleg:Einfügen(hdSesam).
        iRetCode = hdBeleg:Leeren().
    END.

    IF NOT T_Abschluss THEN RETURN ''.
    FOR EACH AInterf:
        FIND Interf USE-INDEX Interf-k1
                    WHERE Interf.Firma = AInterf.Firma
                    AND   Interf.Trnr1 = AInterf.Trnr1
                    AND   Interf.Trnr2 = AInterf.Trnr2
                    AND   Interf.Trnr  = AInterf.Trnr   NO-ERROR.
        IF NOT AVAILABLE Interf THEN NEXT.
        ASSIGN  Interf.Verbucht = TRUE
                Interf.Kto1     = AInterf.Kto1
                Interf.Kto2     = Ainterf.Kto2.
    END.

END.

END PROCEDURE.

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