GeMIS_WEB/GUI/g-debop-detail.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&Scoped-define FRAME-NAME gDebopDetail

/* Temp-Table and Buffer definitions                                    */
DEFINE TEMP-TABLE TInterf NO-UNDO LIKE Interf.


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gDebopDetail 
/*------------------------------------------------------------------------

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

DEF INPUT PARAMETER ipFaknr     AS INT                  NO-UNDO.

/* Local Variable Definitions ---                                       */

DEF VAR MaxPage         AS INT                      NO-UNDO.
DEF VAR AktSeite        AS INT                      NO-UNDO.
DEF VAR FMutFlag        AS LOG                      NO-UNDO.
DEF VAR ProgName        AS CHAR                     NO-UNDO.
DEF VAR SAktiv          AS LOG                      NO-UNDO.
DEF VAR Firma           AS CHAR                     NO-UNDO.
DEF VAR AdFirma         AS CHAR                     NO-UNDO.
DEF VAR FBFirma         AS CHAR                     NO-UNDO.

/* _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 gDebopDetail
&Scoped-define BROWSE-NAME BROWSE-1

/* Internal Tables (found by Frame, Query & Browse Queries)             */
&Scoped-define INTERNAL-TABLES TInterf

/* Definitions for BROWSE BROWSE-1                                      */
&Scoped-define FIELDS-IN-QUERY-BROWSE-1 TInterf.Kto1 TInterf.Kto2 ~
TInterf.Datum TInterf.Buchtxt1 TInterf.FRW TInterf.Betrag ~
TInterf.Betrag_FRW 
&Scoped-define ENABLED-FIELDS-IN-QUERY-BROWSE-1 
&Scoped-define OPEN-QUERY-BROWSE-1 OPEN QUERY BROWSE-1 FOR EACH TInterf NO-LOCK INDEXED-REPOSITION.
&Scoped-define TABLES-IN-QUERY-BROWSE-1 TInterf
&Scoped-define FIRST-TABLE-IN-QUERY-BROWSE-1 TInterf


/* Definitions for DIALOG-BOX gDebopDetail                              */
&Scoped-define OPEN-BROWSERS-IN-QUERY-gDebopDetail ~
    ~{&OPEN-QUERY-BROWSE-1}

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS BROWSE-1 RECT-40 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */

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



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

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE RECTANGLE RECT-40
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL 
     SIZE 128 BY 11.43.

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE QUERY BROWSE-1 FOR 
      TInterf SCROLLING.
&ANALYZE-RESUME

/* Browse definitions                                                   */
DEFINE BROWSE BROWSE-1
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS BROWSE-1 gDebopDetail _STRUCTURED
  QUERY BROWSE-1 NO-LOCK DISPLAY
      TInterf.Kto1 COLUMN-LABEL "Konto" FORMAT "x(12)":U
      TInterf.Kto2 COLUMN-LABEL "Gegenkonto" FORMAT "x(12)":U
      TInterf.Datum COLUMN-LABEL "Buchungsdatum" FORMAT "99.99.9999":U
      TInterf.Buchtxt1 COLUMN-LABEL "Buchungstext" FORMAT "x(40)":U
      TInterf.FRW COLUMN-LABEL "Währung" FORMAT "x(3)":U
      TInterf.Betrag FORMAT "zzz,zzz,zz9.99-":U
      TInterf.Betrag_FRW COLUMN-LABEL "Betrag FRW" FORMAT "zzz,zzz,zz9.99-":U
            WIDTH 12.4
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ROW-MARKERS SEPARATORS SIZE 126 BY 10.95.


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

DEFINE FRAME gDebopDetail
     BROWSE-1 AT ROW 1.48 COL 3
     RECT-40 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 "Detail eines offenen Posten".


/* *********************** 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
   Temp-Tables and Buffers:
      TABLE: TInterf T "?" NO-UNDO AnaDat Interf
   END-TABLES.
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB gDebopDetail 
/* ************************* 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 gDebopDetail
                                                                        */
/* BROWSE-TAB BROWSE-1 1 gDebopDetail */
ASSIGN 
       FRAME gDebopDetail:SCROLLABLE       = FALSE
       FRAME gDebopDetail:HIDDEN           = TRUE.

ASSIGN 
       BROWSE-1:COLUMN-RESIZABLE IN FRAME gDebopDetail       = TRUE.

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


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

&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE BROWSE-1
/* Query rebuild information for BROWSE BROWSE-1
     _TblList          = "Temp-Tables.TInterf"
     _Options          = "NO-LOCK INDEXED-REPOSITION"
     _FldNameList[1]   > Temp-Tables.TInterf.Kto1
"TInterf.Kto1" "Konto" ? "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[2]   > Temp-Tables.TInterf.Kto2
"TInterf.Kto2" "Gegenkonto" ? "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[3]   > Temp-Tables.TInterf.Datum
"TInterf.Datum" "Buchungsdatum" ? "date" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[4]   > Temp-Tables.TInterf.Buchtxt1
"TInterf.Buchtxt1" "Buchungstext" ? "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[5]   > Temp-Tables.TInterf.FRW
"TInterf.FRW" "Währung" ? "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[6]   = Temp-Tables.TInterf.Betrag
     _FldNameList[7]   > Temp-Tables.TInterf.Betrag_FRW
"TInterf.Betrag_FRW" "Betrag FRW" ? "decimal" ? ? ? ? ? ? no ? no no "12.4" yes no no "U" "" ""
     _Query            is OPENED
*/  /* BROWSE BROWSE-1 */
&ANALYZE-RESUME

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

 



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

&Scoped-define SELF-NAME gDebopDetail
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDebopDetail gDebopDetail
ON END-ERROR OF FRAME gDebopDetail /* Detail eines offenen Posten */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDebopDetail gDebopDetail
ON GO OF FRAME gDebopDetail /* Detail eines offenen Posten */
DO:
    /*
    RUN ENDE_PROGRAMM ( INPUT Progname ) NO-ERROR.
    */
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDebopDetail gDebopDetail
ON WINDOW-CLOSE OF FRAME gDebopDetail /* Detail eines offenen Posten */
DO:  
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define BROWSE-NAME BROWSE-1
&UNDEFINE SELF-NAME

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


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

    MaxPage  = 1.
    AktSeite = 1.
    sAktiv   = DYNAMIC-FUNCTION('getSuperaktiv':U) NO-ERROR.
    IF sAktiv THEN DO:
        Firma    = DYNAMIC-FUNCTION('GETMANDANT':U                         ) NO-ERROR.
        AdFirma  = DYNAMIC-FUNCTION('GETADMANDANT':U                       ) NO-ERROR.
        FBFirma  = DYNAMIC-FUNCTION('GETFBMANDANT':U                       ) NO-ERROR.
        Progname = DYNAMIC-FUNCTION('MAKEPROGNAME':U, INPUT THIS-PROCEDURE ) NO-ERROR.
    END.

    SESSION:DATA-ENTRY-RETURN = TRUE.

    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 gDebopDetail  _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 gDebopDetail  _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 gDebopDetail.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject gDebopDetail 
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.
    
    FRAME {&FRAME-NAME}:X = wx.
    FRAME {&FRAME-NAME}:Y = wy.

    RUN SUPER.

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

    EMPTY TEMP-TABLE TInterf.
    FIND FIRST Debop USE-INDEX Debop-k2
                     WHERE Debop.Firma = Firma
                     AND   Debop.Faknr = ipFaknr NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Debop THEN RETURN.
    FOR EACH Interf USE-INDEX Interf-k1
                    WHERE Interf.Firma = FBFirma
                    AND   Interf.TrNr1 = Debop.TrNr1 NO-LOCK:
        CREATE  TInterf.
        BUFFER-COPY Interf TO TInterf.
    END.

    OPEN QUERY {&BROWSE-NAME}
        FOR EACH TInterf NO-LOCK.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gDebopDetail  _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.
------------------------------------------------------------------------------*/
  ENABLE BROWSE-1 RECT-40 
      WITH FRAME gDebopDetail.
  VIEW FRAME gDebopDetail.
  {&OPEN-BROWSERS-IN-QUERY-gDebopDetail}
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE gDebopDetail 
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 = FRAME {&FRAME-NAME}:X NO-ERROR.
    wy = FRAME {&FRAME-NAME}:Y NO-ERROR.
    xString = STRING(wx) + ';' + STRING(wy).
    PUT-KEY-VALUE SECTION 'FensterPositionen'
                  KEY     ProgName
                  VALUE   xString.

    APPLY "CLOSE":U TO THIS-PROCEDURE.

    APPLY 'GO' TO FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

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