GeMIS_WEB/GUI/g-sesam-debi.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 cString         AS CHAR                     NO-UNDO.
DEF VAR cKonto          AS CHAR                     NO-UNDO.

DEF TEMP-TABLE TInterf  LIKE Interf.

/* _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 Btn_Datei F_Status F_Dateiname CB_Buchart ~
F_VonDatum F_BisDatum T_Abschluss Btn_OK Btn_Cancel RECT-4 
&Scoped-Define DISPLAYED-OBJECTS F_Status F_Dateiname CB_Buchart F_VonDatum ~
F_BisDatum T_Abschluss 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_Dateiname F_VonDatum F_BisDatum 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_Datei 
     IMAGE-UP FILE "grafik/select.bmp":U
     LABEL "......" 
     SIZE 4.2 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_Dateiname AS CHARACTER FORMAT "X(256)":U 
     LABEL "Dateiname" 
     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.


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

DEFINE FRAME gSESAM
     Btn_Datei AT ROW 1.57 COL 86
     F_Status AT ROW 9 COL 2 COLON-ALIGNED NO-LABEL NO-TAB-STOP 
     F_Dateiname 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_Abschluss AT ROW 4.52 COL 30
     Btn_OK AT ROW 6.95 COL 30
     Btn_Cancel AT ROW 6.95 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_Dateiname 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                                                                    */
/* _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_Datei
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Datei gSESAM
ON CHOOSE OF Btn_Datei IN FRAME gSESAM /* ...... */
DO:
    RUN OEFFNEN_DATEI.
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 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.

    SELF:SCREEN-VALUE = '000001' NO-ERROR.

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 = ''.
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


&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 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.
    DEF VAR cDateiName  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     'DateiName'
                      VALUE   cDateiName.
        IF cDateiName <> ? THEN F_DateiName:SCREEN-VALUE = cDateiName.
        ELSE                    F_DateiName:SCREEN-VALUE = ''.
        IF F_DateiName:SCREEN-VALUE = '' THEN F_DateiName:SCREEN-VALUE = 'SESAMDebiInterface.csv'.
        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     'Abschluss'
                      VALUE   cValue.
        IF cValue <> ? THEN DO:
            T_Abschluss:SCREEN-VALUE = cValue.
        END.

        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_Dateiname CB_Buchart F_VonDatum F_BisDatum T_Abschluss 
      WITH FRAME gSESAM.
  ENABLE Btn_Datei F_Status F_Dateiname CB_Buchart F_VonDatum F_BisDatum 
         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 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 OEFFNEN_DATEI gSESAM 
PROCEDURE OEFFNEN_DATEI :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR cDatei      AS CHAR                     NO-UNDO.
    DEF VAR okPressed   AS LOG                      NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        cDatei = F_DateiName:SCREEN-VALUE.
    END.

    SYSTEM-DIALOG GET-FILE cDatei
        TITLE      "Auswahl der InterfaceDatei ..."
        FILTERS    "Alle Dateien (*.*)"   "*.*"
        USE-FILENAME
        UPDATE OKpressed.
      
    IF OKpressed = FALSE THEN RETURN NO-APPLY.

    DO WITH FRAME {&FRAME-NAME}:
        F_Dateiname:SCREEN-VALUE = cDatei.
        APPLY 'ENTRY' TO F_Dateiname.
        RETURN.
    END.

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.
DEF VAR cName       AS CHAR                     NO-UNDO.
DEF VAR cZusatz     AS CHAR                     NO-UNDO.
DEF VAR cKond       AS CHAR                     NO-UNDO.
DEF VAR cBetrag1    AS CHAR                     NO-UNDO.
DEF VAR cBetrag2    AS CHAR                     NO-UNDO.
DEF VAR cBetrag3    AS CHAR                     NO-UNDO.
DEF VAR cBetrag4    AS CHAR                     NO-UNDO.
DEF VAR vHerk       AS INT                      NO-UNDO.
DEF VAR bHerk       AS INT                      NO-UNDO.
DEF VAR ix          AS INT                      NO-UNDO.
DEF VAR Rundbetr    AS DEC  DECIMALS 4          NO-UNDO.
DEF VAR mInkl       AS LOG  EXTENT 12           NO-UNDO.
DEF VAR mAns        AS DEC  EXTENT 12           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.
    DISPLAY {&List-6}.

    cKey = 'BuchungsText' + CB_Buchart:SCREEN-VALUE.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'DateiName'
                  VALUE   F_DateiName    :SCREEN-VALUE NO-ERROR.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'Buchungsart'
                  VALUE   CB_Buchart     :SCREEN-VALUE NO-ERROR.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'VonDatum'
                  VALUE   F_VonDatum     :SCREEN-VALUE NO-ERROR.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'BisDatum'
                  VALUE   F_BisDatum     :SCREEN-VALUE NO-ERROR.
    PUT-KEY-VALUE SECTION 'Sesam'
                  KEY     'Abschluss'
                  VALUE   T_Abschluss    :SCREEN-VALUE NO-ERROR.

    DO WHILE TRUE:
        ERROR-STATUS:ERROR = FALSE.
        OUTPUT TO VALUE(F_DateiName).
        IF ERROR-STATUS:ERROR THEN DO:
            MESSAGE 'ungültiger Dateiname' VIEW-AS ALERT-BOX.
            APPLY 'ENTRY' TO F_DateiName.
            RETURN 'ERROR'.
        END.
        LEAVE.
    END.

    vHerk = 0.
    bHerk = 0.
    CASE CB_Buchart:SCREEN-VALUE:
        WHEN '000001' THEN ASSIGN vHerk = 50
                                  bHerk = 59.
        WHEN '000002' THEN ASSIGN vHerk = 60
                                  bHerk = 69.
    END CASE.

    mInkl = FALSE.
    mAns  = 0.
    DO ix = 1 TO 10:
        FIND FIRST Wust USE-INDEX Wust-k2
                        WHERE Wust.WuCd   = ix
                        AND   Wust.CodeK <> 99
                        AND   Wust.CodeA <> 99 NO-LOCK NO-ERROR.
        IF NOT AVAILABLE Wust THEN NEXT.
        FIND LAST MWSTAns USE-INDEX MWSTAns-k1
                          WHERE MWSTAns.MWSt_Cd = ix
                          AND   MWSTAns.Datum  <= Debop.FakDat NO-LOCK NO-ERROR.
        IF NOT AVAILABLE MWSTAns THEN NEXT.
        mInkl[ix] = Wust.incl.
        mAns [ix] = MWSTAns.Ansatz.
    END.

    fBuchen = TRUE.
    FOR EACH TInterf:
        DELETE  TInterf.
    END.

    FOR EACH Interf USE-INDEX Interf-k2
                    WHERE Interf.Firma    = 'SESAM'
                    AND   Interf.Verbucht = FALSE
                    AND   Interf.Herk    >= vHerk
                    AND   Interf.Herk    <= bHerk
                    AND   Interf.Datum   >= F_VonDatum
                    AND   Interf.Datum   <= F_BisDatum NO-LOCK:

        CREATE  TInterf.
        BUFFER-COPY Interf TO TInterf.
    END.
    IF NOT fBuchen THEN RETURN 'ERROR'.

    FOR EACH TInterf BREAK BY TInterf.Faknr:
        IF NOT FIRST-OF ( TInterf.Faknr ) THEN NEXT.
        FIND Debop USE-INDEX Debop-k2
                   WHERE Debop.Firma = Firma
                   AND   Debop.Faknr = INTEGER(TInterf.Faknr) NO-LOCK NO-ERROR.
        IF NOT AVAILABLE Debop THEN NEXT.

        FIND Adresse USE-INDEX Adresse-k1
                     WHERE Adresse.Firma = AdFirma
                     AND   Adresse.Knr   = Debop.Knr   NO-LOCK NO-ERROR.
        FIND Debst   USE-INDEX Debst-k1
                     WHERE Debst.Firma = Firma
                     AND   Debst.Knr   = Debop.Knr     NO-LOCK NO-ERROR.
        FIND FIRST Kondi USE-INDEX Kondi-k1
                         WHERE Kondi.Kond = Debop.Kond NO-LOCK NO-ERROR.

        IF Adresse.Firma1 <> '' THEN DO:
            cName   = TRIM(Adresse.Firma1 + ' ' + Adresse.Firma2 ).
            cZusatz = TRIM(Adresse.NAME   + ' ' + Adresse.Vorname).
        END.
        ELSE DO:
            cName   = TRIM(Adresse.NAME    + ' ' + Adresse.Vorname).
            cZusatz = TRIM(Adresse.Zusatz1 + ' ' + Adresse.Zusatz2).
        END.
        IF AVAILABLE Kondi THEN DO:
            cKond = ''.
            IF Kondi.Tage[01] <> 0 THEN DO:
                cKond = cKond + STRING(Kondi.Tage[01],'99') + 'T' + STRING(Kondi.Skonto[01],'9%').
            END.
            IF Kondi.Tage[02] <> 0 THEN DO:
                cKond = cKond + STRING(Kondi.Tage[02],'99') + 'T' + STRING(Kondi.Skonto[02],'9%').
            END.
            cKond = cKond + STRING(Kondi.Faellig,'99') + 'T'.
        END.
        ELSE cKond = '30T'.

        cBetrag1 = ''.
        cBetrag2 = ''.
        cBetrag3 = ''.
        cBetrag4 = TRIM(STRING(Debop.Fakbetr,'->>>>>>>9.99')).
        DO ix = 1 TO 10:
            IF Debop.FakWpfl[ix] = 0 THEN NEXT.
            DO WHILE TRUE:
                Rundbetr = Debop.FakWpfl[ix].
                IF NOT mInkl[ix] THEN LEAVE.
                Rundbetr = Rundbetr * 100 / (100 + mAns[ix]).
                LEAVE.
            END.
            CASE ix:
                WHEN  1 THEN cBetrag1 = TRIM(STRING(Rundbetr,'->>>>>>>>9.99')).
                WHEN  2 THEN cBetrag1 = TRIM(STRING(Rundbetr,'->>>>>>>>9.99')).
                WHEN  3 THEN cBetrag2 = TRIM(STRING(Rundbetr,'->>>>>>>>9.99')).
                WHEN  4 THEN cBetrag2 = TRIM(STRING(Rundbetr,'->>>>>>>>9.99')).
            END CASE.
        END.
        IF Debop.FakWpfl[11] <> 0 THEN cBetrag3 = TRIM(STRING(Debop.FakWpfl[11] + Debop.FakWust[11],'->>>>>>>>9.99')).

        PUT CONTROL STRING(Debop.FakDat,'99.99.9999')           ';'
                    STRING(Debop.Knr   ,'999999')               ';'
                    TRIM(SUBSTRING(Adresse.Suchbe,01,11))       ';'
                    cName                                       ';'
                    cZusatz                                     ';'
                    Adresse.Strasse                             ';'
                    Adresse.PLz                                 ';'
                    Adresse.Ort                                 ';'.

        CASE Adresse.Sprcd:
            WHEN 1 THEN PUT CONTROL 'D;'.
            WHEN 2 THEN PUT CONTROL 'I;'.
            WHEN 3 THEN PUT CONTROL 'F;'.
            WHEN 4 THEN PUT CONTROL 'E;'.
            WHEN 5 THEN PUT CONTROL 'S;'.
            OTHERWISE   PUT CONTROL 'D;'.
        END CASE.

        PUT CONTROL cKond                                       ';'
                    STRING(Debop.Faknr,'999999')                ';'
                    cBetrag1                                    ';'
                    cBetrag2                                    ';'
                    cBetrag3                                    ';'
                    cBetrag4                                    chr(10).
    END.

    OUTPUT CLOSE.
    IF NOT T_Abschluss THEN RETURN ''.

    FOR EACH TInterf:
        FIND Interf OF TInterf.
        Interf.Verbucht = TRUE.
    END.

END.

END PROCEDURE.

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