GeMIS_WEB/GUI/w-auftrag.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME wAuftrag
{adecomm/appserv.i}
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wAuftrag 
/*------------------------------------------------------------------------

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

DEFINE VARIABLE cUser    AS CHARACTER NO-UNDO.
DEFINE VARIABLE iRetVal  AS INTEGER   NO-UNDO.
DEFINE VARIABLE cRetVal  AS CHARACTER NO-UNDO.
DEFINE VARIABLE lEscFlag AS LOG       NO-UNDO.
DEFINE VARIABLE lClose   AS LOG       INIT FALSE NO-UNDO.
DEFINE VARIABLE cSysUser AS CHARACTER NO-UNDO.

{ incl/windefinition.i }
{ incl/ttdruckparam.i  }

{src/adm2/widgetprto.i}

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER WINDOW

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

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME fMain

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS CB_Lager CB_Aufstatus Btn_Suchen 
&Scoped-Define DISPLAYED-OBJECTS CB_Lager CB_Aufstatus 

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

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


/* ************************  Function Prototypes ********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAufSta wAuftrag 
FUNCTION getAufSta RETURNS INTEGER
    ( /* parameter-definitions */ )  FORWARD.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLager wAuftrag 
FUNCTION getLager RETURNS INTEGER
    ( /* parameter-definitions */ )  FORWARD.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getProgname wAuftrag 
FUNCTION getProgname RETURNS CHARACTER
    ( /* parameter-definitions */ )  FORWARD.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD SetAufSta wAuftrag 
FUNCTION SetAufSta RETURNS LOGICAL
    ( ipStatus AS INTEGER )  FORWARD.

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


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

/* Define the widget handle for the window                              */
DEFINE VAR wAuftrag AS WIDGET-HANDLE NO-UNDO.

/* Definitions of handles for SmartObjects                              */
DEFINE VARIABLE h_b-adresse-faxliste AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artbw-auftrag AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artst-auftrag AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-aufko AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-aufze AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-kunbest AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-savko AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-savze AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-adresse-auftrag AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artbw-auftrag AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artst-auftrag AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-aufko AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-aufze AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-kunbest AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-savko AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-savze AS HANDLE NO-UNDO.
DEFINE VARIABLE h_dyntoolbar AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-aufgebko AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-aufko-auftrag AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-umsatz-auftrag AS HANDLE NO-UNDO.
DEFINE VARIABLE h_folder AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-aufko AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-aufko-info AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-aufze AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-kunbest AS HANDLE NO-UNDO.

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Suchen 
     IMAGE-UP FILE "grafik/select.bmp":U
     IMAGE-DOWN FILE "grafik/select.bmp":U
     LABEL "Suchen" 
     SIZE 4 BY .95.

DEFINE VARIABLE CB_Aufstatus AS CHARACTER FORMAT "X(256)":U 
     LABEL "Status" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_Lager AS CHARACTER FORMAT "X(256)":U 
     LABEL "Lager" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 35 BY 1
     BGCOLOR 15  NO-UNDO.


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

DEFINE FRAME fMain
     CB_Lager AT ROW 1.1 COL 83 COLON-ALIGNED WIDGET-ID 4 NO-TAB-STOP 
     CB_Aufstatus AT ROW 1.1 COL 128 COLON-ALIGNED WIDGET-ID 6 NO-TAB-STOP 
     Btn_Suchen AT ROW 1.19 COL 69.4 WIDGET-ID 2 NO-TAB-STOP 
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1
         SIZE 189.2 BY 33.52 WIDGET-ID 100.


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

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

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

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
  CREATE WINDOW wAuftrag ASSIGN
         HIDDEN             = YES
         TITLE              = "Auftragsbearbeitung"
         HEIGHT             = 33.52
         WIDTH              = 189.2
         MAX-HEIGHT         = 99.91
         MAX-WIDTH          = 768
         VIRTUAL-HEIGHT     = 99.91
         VIRTUAL-WIDTH      = 768
         RESIZE             = NO
         SCROLL-BARS        = NO
         STATUS-AREA        = NO
         BGCOLOR            = ?
         FGCOLOR            = ?
         THREE-D            = YES
         MESSAGE-AREA       = NO
         SENSITIVE          = YES.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.

&IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN
IF NOT wAuftrag: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 wAuftrag 
/* ************************* 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 wAuftrag
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   FRAME-NAME                                                           */
ASSIGN 
       Btn_Suchen:AUTO-RESIZE IN FRAME fMain      = TRUE.

IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wAuftrag)
THEN wAuftrag:HIDDEN = YES.

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

 



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

&Scoped-define SELF-NAME wAuftrag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wAuftrag wAuftrag
ON END-ERROR OF wAuftrag /* Auftragsbearbeitung */
OR ENDKEY OF {&WINDOW-NAME} ANYWHERE 
    DO:
        /* This case occurs when the user presses the "Esc" key.
           In a persistently run window, just ignore this.  If we did not, the
           application would exit. */
        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 wAuftrag wAuftrag
ON WINDOW-CLOSE OF wAuftrag /* Auftragsbearbeitung */
DO:
        /* This ADM code must be left here in order for the SmartWindow
           and its descendents to terminate properly on exit. */

        lClose = TRUE.
        RUN ENDE.
        RETURN NO-APPLY.

    END.

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


&Scoped-define SELF-NAME Btn_Suchen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Suchen wAuftrag
ON CHOOSE OF Btn_Suchen IN FRAME fMain /* Suchen */
DO:
        RUN FINDEN NO-ERROR.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME CB_Aufstatus
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Aufstatus wAuftrag
ON VALUE-CHANGED OF CB_Aufstatus IN FRAME fMain /* Status */
DO:
        DYNAMIC-FUNCTION('setFWAufSta':U, INTEGER(SELF:SCREEN-VALUE)) NO-ERROR.
        DYNAMIC-FUNCTION('openQuery':U IN h_d-aufko ) NO-ERROR.
        PUBLISH 'ANZEIGE_AUFKOPF'.
        APPLY 'U1'.
    END.

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


&Scoped-define SELF-NAME CB_Lager
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Lager wAuftrag
ON VALUE-CHANGED OF CB_Lager IN FRAME fMain /* Lager */
DO:
        DYNAMIC-FUNCTION('setFWLager':U, INTEGER(SELF:SCREEN-VALUE)) NO-ERROR.
        DYNAMIC-FUNCTION('openQuery':U IN h_d-aufko ) NO-ERROR.
        APPLY 'U1'.
    END.

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


&UNDEFINE SELF-NAME

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


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

    
{ incl/winmainblock.i }
    
MaxSeite = 9.
    
SUBSCRIBE TO 'DRUCKEN'          ANYWHERE. 
SUBSCRIBE TO 'VERBUCHEN'        ANYWHERE.
SUBSCRIBE TO 'RUESTKONTROLLE'   ANYWHERE. 

{src/adm2/windowmn.i}

ON 'DELETE-CHARACTER':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutFlag':U, INPUT Progname ) NO-ERROR.
        IF FMutFlag THEN RETURN 'APPLY'.
        RUN TOOLBAR ( INPUT 'DELETE':U ).
        RETURN NO-APPLY.
    END.
ON 'ALT-F':U, 'CTRL-F':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
        IF FMutFlag THEN RETURN 'APPLY'.
        RUN FINDEN NO-ERROR.
        RETURN NO-APPLY.
    END.

ON 'CTRL-N':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
        IF FMutFlag THEN RETURN 'APPLY'.
        RUN FINDEN_NUMMER NO-ERROR.
        RETURN NO-APPLY.
    END.

ON 'INS':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
        IF FMutFlag THEN RETURN 'APPLY'.
        RUN TOOLBAR ( INPUT 'ADD':U    ).
        RETURN NO-APPLY.
    END.

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wAuftrag  _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-aufko.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-aufkoOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch50RebuildOnReposyesToggleDataTargetsno':U ,
             OUTPUT h_d-aufko ).
       RUN repositionObject IN h_d-aufko ( 6.91 , 9.80 ) NO-ERROR.
       /* Size in AB:  ( 4.38 , 22.00 ) */

       RUN constructObject (
             INPUT  'd-aufze.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsAufze.Firma,Firma,Aufze.Aufnr,AufnrObjectNamed-aufzeOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-aufze ).
       RUN repositionObject IN h_d-aufze ( 7.10 , 46.20 ) NO-ERROR.
       /* Size in AB:  ( 3.62 , 24.00 ) */

       RUN constructObject (
             INPUT  'd-artbw-auftrag.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtbw.Firma,Firma,Artbw.Knr,KnrObjectNamed-artbw-auftragOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch30RebuildOnReposnoToggleDataTargetsyes':U ,
             OUTPUT h_d-artbw-auftrag ).
       RUN repositionObject IN h_d-artbw-auftrag ( 7.19 , 81.80 ) NO-ERROR.
       /* Size in AB:  ( 3.14 , 19.20 ) */

       RUN constructObject (
             INPUT  'd-savko.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangednoDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-savkoOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch50RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-savko ).
       RUN repositionObject IN h_d-savko ( 7.10 , 123.40 ) NO-ERROR.
       /* Size in AB:  ( 3.14 , 19.20 ) */

       RUN constructObject (
             INPUT  'd-savze.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangednoDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsSavZe.Firma,Firma,SavZe.Aufnr,AufnrObjectNamed-savzeOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-savze ).
       RUN repositionObject IN h_d-savze ( 6.05 , 155.00 ) NO-ERROR.
       /* Size in AB:  ( 4.48 , 22.40 ) */

       RUN constructObject (
             INPUT  'd-artst-auftrag.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangednoDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-artst-auftragOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-artst-auftrag ).
       RUN repositionObject IN h_d-artst-auftrag ( 11.29 , 119.40 ) NO-ERROR.
       /* Size in AB:  ( 3.76 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-adresse-auftrag.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-adresse-auftragOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-adresse-auftrag ).
       RUN repositionObject IN h_d-adresse-auftrag ( 11.48 , 12.60 ) NO-ERROR.
       /* Size in AB:  ( 3.91 , 24.00 ) */

       RUN constructObject (
             INPUT  'd-kunbest.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsKunBest.Firma,Firma,KunBest.Knr,KnrObjectNamed-kunbestOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch50RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-kunbest ).
       RUN repositionObject IN h_d-kunbest ( 11.76 , 48.60 ) NO-ERROR.
       /* Size in AB:  ( 3.24 , 17.60 ) */

       RUN constructObject (
             INPUT  'adm2/dyntoolbar.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EdgePixels2DeactivateTargetOnHideyesDisabledActionsFlatButtonsyesMenunoShowBorderyesToolbaryesActionGroupsTableio,NavigationTableIOTypeUpdateSupportedLinksNavigation-source,Tableio-sourceToolbarBandsToolbarAutoSizenoToolbarDrawDirectionHorizontalLogicalObjectNameDisabledActionsHiddenActionsResetHiddenToolbarBandsHiddenMenuBandsMenuMergeOrder0RemoveMenuOnHidenoCreateSubMenuOnConflictyesNavigationTargetNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_dyntoolbar ).
       RUN repositionObject IN h_dyntoolbar ( 1.00 , 1.00 ) NO-ERROR.
       RUN resizeObject IN h_dyntoolbar ( 1.24 , 67.20 ) NO-ERROR.

       RUN constructObject (
             INPUT  'adm2/folder.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'FolderLabels':U + 'Kopf (1)|Zeile (2)|Gebinde (3)|Aufträge (4)|Zahlung (5)|Verkäufe (6)|Faxliste/Favoriten (7)|Verbuchte (8)|Umsätze (9)' + 'FolderTabWidth0FolderFont-1HideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_folder ).
       RUN repositionObject IN h_folder ( 2.33 , 1.00 ) NO-ERROR.
       RUN resizeObject IN h_folder ( 32.00 , 189.20 ) NO-ERROR.

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

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

       /* Links to SmartDataObject h_d-artbw-auftrag. */
       RUN addLink ( h_d-aufko , 'Data':U , h_d-artbw-auftrag ).

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

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

       /* Links to SmartFolder h_folder. */
       RUN addLink ( h_folder , 'Page':U , THIS-PROCEDURE ).

    END. /* Page 0 */
    WHEN 1 THEN DO:
       RUN constructObject (
             INPUT  'b-aufko.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-aufko ).
       RUN repositionObject IN h_b-aufko ( 4.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-aufko ( 7.86 , 183.00 ) NO-ERROR.

       RUN constructObject (
             INPUT  'v-aufko.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_v-aufko ).
       RUN repositionObject IN h_v-aufko ( 12.00 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 20.48 , 182.80 ) */

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-aufko ,
             h_folder , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-aufko ,
             h_d-kunbest , 'AFTER':U ).
    END. /* Page 1 */
    WHEN 2 THEN DO:
       RUN constructObject (
             INPUT  'v-aufko-info.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_v-aufko-info ).
       RUN repositionObject IN h_v-aufko-info ( 3.81 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 1.91 , 183.00 ) */

       RUN constructObject (
             INPUT  'b-aufze.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-aufze ).
       RUN repositionObject IN h_b-aufze ( 5.81 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-aufze ( 14.19 , 185.00 ) NO-ERROR.

       RUN constructObject (
             INPUT  'v-aufze.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_v-aufze ).
       RUN repositionObject IN h_v-aufze ( 20.76 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 13.10 , 183.00 ) */

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

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_v-aufko-info ,
             h_folder , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-aufze ,
             h_v-aufko-info , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-aufze ,
             h_d-kunbest , 'AFTER':U ).
    END. /* Page 2 */
    WHEN 3 THEN DO:
       RUN constructObject (
             INPUT  'f-aufgebko.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-aufgebko ).
       RUN repositionObject IN h_f-aufgebko ( 4.00 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 26.48 , 148.60 ) */

       /* Links to SmartFrame h_f-aufgebko. */
       RUN addLink ( h_d-aufko , 'Data':U , h_f-aufgebko ).
       RUN addLink ( h_folder , 'Page':U , h_f-aufgebko ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-aufgebko ,
             h_folder , 'AFTER':U ).
    END. /* Page 3 */
    WHEN 4 THEN DO:
       RUN constructObject (
             INPUT  'f-aufko-auftrag.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-aufko-auftrag ).
       RUN repositionObject IN h_f-aufko-auftrag ( 4.81 , 1.00 ) NO-ERROR.
       /* Size in AB:  ( 21.43 , 174.60 ) */

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-aufko-auftrag ,
             h_folder , 'AFTER':U ).
    END. /* Page 4 */
    WHEN 6 THEN DO:
       RUN constructObject (
             INPUT  'b-artbw-auftrag.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artbw-auftrag ).
       RUN repositionObject IN h_b-artbw-auftrag ( 5.38 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artbw-auftrag ( 25.48 , 185.00 ) NO-ERROR.

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-artbw-auftrag ,
             h_folder , 'AFTER':U ).
    END. /* Page 6 */
    WHEN 7 THEN DO:
       RUN constructObject (
             INPUT  'b-artst-auftrag.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artst-auftrag ).
       RUN repositionObject IN h_b-artst-auftrag ( 24.71 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artst-auftrag ( 7.38 , 181.00 ) NO-ERROR.

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

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

       RUN constructObject (
             INPUT  'v-kunbest.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EnabledObjFldsToDisable(None)ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNamev-kunbestLogicalObjectNamev-kunbestPhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_v-kunbest ).
       RUN repositionObject IN h_v-kunbest ( 19.71 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 4.52 , 181.00 ) */

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

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

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-adresse-faxliste ,
             h_folder , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-kunbest ,
             h_d-kunbest , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-kunbest ,
             h_b-kunbest , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-artst-auftrag ,
             h_v-kunbest , 'AFTER':U ).
    END. /* Page 7 */
    WHEN 8 THEN DO:
       RUN constructObject (
             INPUT  'b-savko.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-savko ).
       RUN repositionObject IN h_b-savko ( 4.10 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-savko ( 11.67 , 183.00 ) NO-ERROR.

       RUN constructObject (
             INPUT  'b-savze.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-savze ).
       RUN repositionObject IN h_b-savze ( 17.10 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-savze ( 13.33 , 183.00 ) NO-ERROR.

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-savko ,
             h_folder , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-savze ,
             h_d-kunbest , 'AFTER':U ).
    END. /* Page 8 */
    WHEN 9 THEN DO:
       RUN constructObject (
             INPUT  'f-umsatz-auftrag.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-umsatz-auftrag ).
       RUN repositionObject IN h_f-umsatz-auftrag ( 5.48 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 25.24 , 182.00 ) */

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

  END CASE.

END PROCEDURE.

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

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

    DEFINE VARIABLE cString  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cAuftrag AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iAufnr   AS INTEGER   NO-UNDO.
    
    DEFINE BUFFER bAufko FOR Aufko.

    FIND FIRST tParam.
    
    IF tParam.iFakArt = 80 THEN 
    DO:
        FIND bAufko NO-LOCK WHERE RECID(bAufko) = tParam.iRecid.
        iAufnr = bAufko.Aufnr.
        RELEASE bAufko.
        RUN WEITER ( iAufnr ).
        RETURN 'FEST'.
    END.
    
    FIND Steuer NO-LOCK
        WHERE Steuer.Firma = Firma.
            
    FIND bAufko NO-LOCK WHERE RECID(bAufko) = tParam.iRecid.

    cAuftrag = ''.
    REPEAT TRANSACTION ON ERROR UNDO, RETRY:
        CREATE  ASMutation.
        ASSIGN  
            ASMutation.ASMutation_id = NEXT-VALUE(ASMutation_id)
            ASMutation.MutArt        = 'RUESTDRUCK'
            ASMutation.Firma         = Firma
            ASMutation.AdFirma       = ''
            ASMutation.Datum         = TODAY
            ASMutation.cStatus       = ''
            ASMutation.Aktiv         = TRUE
            ASMutation.iKey_1        = tParam.iAufnr
            ASMutation.iKey_2        = Steuer.RuestArt
            ASMutation.iFeld_1       = 0
            ASMutation.iFeld_2       = 0
            ASMutation.iFeld_3       = 0
            ASMutation.cFeld_2       = tParam.cBenutzer NO-ERROR.
        .
        RELEASE ASMutation.
        
        cAuftrag = cAuftrag
            + (IF cAuftrag = '' THEN '' ELSE ' ')
            + STRING(tParam.iAufnr,'9999999').
        LEAVE.
    END.
    
    RELEASE bAufko.
    RELEASE Steuer.
    
    IF tParam.iAufSta < 1 THEN RUN WEITER ( tParam.iAufnr ).
    
    cString = SUBSTITUTE('Druckauftrag Auftrags- und Rüstpiere &1 aufgegeben', cAuftrag).
    MESSAGE cString VIEW-AS ALERT-BOX INFORMATION.
    
    RETURN 'OK'.
        
END PROCEDURE.

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

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

    RUN SUPER.

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

    DO WITH FRAME {&FRAME-NAME}:

        CASE AktSeite:

            WHEN 1 THEN 
                DO:
                    /*             RUN addLink ( hAktionen , 'Navigation':U , h_d-auftr        ). */
                    RUN addLink ( hAktionen , 'TableIO':U    , h_v-aufko        ) NO-ERROR.
                    RUN setButtons  IN h_dyntoolbar ( INPUT 'Initial-TableIo':U ) NO-ERROR.
                END.
            WHEN 2 THEN 
                DO:
                    RUN addLink ( hAktionen , 'TableIO':U    , h_v-aufze        ) NO-ERROR.
                END.
            WHEN 3 THEN 
                DO:
                    /*                    RUN removeLink ( hAktionen , 'Navigation':U , h_d-aufko  ) NO-ERROR.*/
                    CB_Lager    :SENSITIVE = FALSE.
                END.
            WHEN 4 THEN 
                DO:
                    RUN removeLink ( hAktionen , 'Navigation':U , h_d-aufko  ) NO-ERROR.
                    CB_Lager    :SENSITIVE = FALSE.
                    CB_AufStatus:SENSITIVE = FALSE.
                END.
            WHEN 7 THEN 
                DO:
                    RUN addLink ( hAktionen , 'TableIO':U    , h_v-kunbest      ) NO-ERROR.
                END.

        END CASE.
    
    END.

    RUN ENTRY_CURSOR.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE CREATE_TABELLE_RECORDS wAuftrag 
PROCEDURE CREATE_TABELLE_RECORDS :
/*------------------------------------------------------------------------------*/
    /*  Purpose:                                                                    */
    /*  Parameters:  <none>                                                         */
    /*  Notes:                                                                      */       
    /*------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE i1        AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cProgname AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ARecid    AS RECID     NO-UNDO.
    DEFINE VARIABLE BRecid    AS RECID     NO-UNDO.
    DEFINE VARIABLE CRecid    AS RECID     NO-UNDO.
    
    DEFINE BUFFER bAufko FOR Aufko.
    DEFINE BUFFER aTabel FOR Tabel.

    FIND FIRST tParam.
    
    FIND bAufko NO-LOCK WHERE RECID(bAufko) = tParam.iRecid.
    
    REPEAT TRANSACTION:
        cProgname = TRIM(tParam.cBenutzer) + '!AUFTRAG'.
        
        FIND aTabel NO-LOCK USE-INDEX Tabel-k1
            WHERE aTabel.Firma  = Firma
            AND   aTabel.RecArt = 'FAKART'
            AND   aTabel.CodeC  = ''
            AND   aTabel.CodeI  = bAufko.Fak_Art
            AND   aTabel.Sprcd  = 1 NO-ERROR.
        IF NOT AVAILABLE aTabel THEN LEAVE.
        
        tParam.cDokument = aTabel.Bez2.
        
        FIND FIRST HilfsTab NO-LOCK USE-INDEX HilfsTab-k1
            WHERE HilfsTab.Firma  = Firma
            AND   HilfsTab.Sort_1 = tParam.cBenutzer
            AND   HilfsTab.Sort_2 = tParam.cDokument NO-ERROR.
        IF NOT AVAILABLE HilfsTab THEN 
        DO:
            FIND FIRST HilfsTab NO-LOCK USE-INDEX HilfsTab-k1
                WHERE HilfsTab.Firma  = Firma
                AND   HilfsTab.Sort_1 = ''
                AND   HilfsTab.Sort_2 = tParam.cDokument NO-ERROR.
        END.
        
        FIND FIRST Listen USE-INDEX Listen-k1
            WHERE Listen.Firma    = Firma
            AND   Listen.Progname = cProgname
            AND   Listen.Listfl   = ''    NO-ERROR.
        IF NOT AVAILABLE Listen THEN 
        DO:
            FIND LAST Listen USE-INDEX Listen-k1
                WHERE Listen.Firma = Firma NO-LOCK NO-ERROR.
            IF AVAILABLE Listen THEN i1 = Listen.Listnr + 1.
            ELSE                     i1 = 1.
            CREATE  Listen.
            ASSIGN  
                Listen.Firma    = Firma
                Listen.Listnr   = i1
                Listen.Progname = cProgname
                Listen.Listfl   = ''
                Listen.Jahr     = YEAR(TODAY)
                Listen.Sprcd    = 1
                Listen.Sort     = 1
                Listen.ProgWahl = 1.
        END.
        Listen.Listfl = 'A'.
        ARecid        = RECID(Listen).
    
        FIND LiDruck USE-INDEX LiDruck-k1
            WHERE LiDruck.Firma    = Firma
            AND   LiDruck.Listnr   = Listen.Listnr
            AND   LiDruck.ProgWahl = Listen.ProgWahl NO-ERROR.
        IF NOT AVAILABLE LiDruck THEN 
        DO:
            CREATE  LiDruck.
            ASSIGN  
                LiDruck.Firma    = Firma
                LiDruck.Listnr   = Listen.Listnr
                LiDruck.ProgWahl = Listen.ProgWahl
                LiDruck.Listprog = 'AUFTRAG' + STRING(Listen.ProgWahl,'99')
                LiDruck.ListCopy = 1
                LiDruck.Schacht  = 0
                LiDruck.Listlq   = FALSE.
        END.
        BRecid = RECID(LiDruck).
    
        ASSIGN  
            LiDruck.ListDru  = HilfsTab.Zeichen_1
            LiDruck.ListBild = HilfsTab.Zeichen_2
            LiDruck.Listtzz  = HilfsTab.Zahl[01]
            LiDruck.Listkzz  = HilfsTab.Zahl[02]
            LiDruck.Listfzz  = HilfsTab.Zahl[03]
            LiDruck.ListCopy = HilfsTab.Zahl[04]
            LiDruck.Schacht  = HilfsTab.Zahl[05].
            
        IF LiDruck.ListCopy = 0 THEN LiDruck.ListCopy = 1.
    
        RELEASE Listen.
        RELEASE LiDruck.
    
        FIND LAST Tabel NO-LOCK USE-INDEX Tabel-k1
            WHERE Tabel.Firma  = Firma
            AND   Tabel.RecArt = 'AUFDRUCK'
            AND   Tabel.CodeC  = tParam.cBenutzer NO-ERROR.
        IF AVAILABLE Tabel THEN i1 = Tabel.CodeI + 1.
        ELSE                    i1 = 1.
        CREATE  Tabel.
        ASSIGN  
            Tabel.Firma  = Firma
            Tabel.RecArt = 'AUFDRUCK'
            Tabel.CodeC  = tParam.cBenutzer
            Tabel.CodeI  = i1
            Tabel.Sprcd  = 1
            Tabel.Int_1  = ARecid
            Tabel.Int_2  = BRecid
            Tabel.Int_3  = CRecid
            Tabel.Dec_1  = HilfsTab.Zahl[07]
            Tabel.Dec_2  = INTEGER(RECID(HilfsTab))
            Tabel.Dec_3  = HilfsTab.Zahl[06]
            Tabel.Bez1   = ''
            Tabel.Bez2   = tParam.cDokument
            Tabel.BezL   = SUBSTITUTE('&1;&2;&3;&4',
                                       HilfsTab.Zahl[05],
                                       HilfsTab.Zahl[06],
                                       HilfsTab.Zahl[07],
                                       HilfsTab.Zahl[08]).
        RELEASE LiDruck.
        RELEASE Listen.
        RELEASE Tabel.
        RELEASE ATabel.
        LEAVE.  
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wAuftrag  _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(wAuftrag)
  THEN DELETE WIDGET wAuftrag.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

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

    DEFINE INPUT  PARAMETER ipRecid    AS RECID            NO-UNDO.
    DEFINE INPUT  PARAMETER ipAufnr    AS INTEGER          NO-UNDO.
    DEFINE INPUT  PARAMETER ipParam    AS CHARACTER        NO-UNDO.
    DEFINE OUTPUT PARAMETER opRetVal   AS CHARACTER        NO-UNDO.

    DEFINE VARIABLE cUser          AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iVDRecid       AS RECID     NO-UNDO.
    DEFINE VARIABLE ii             AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cResult        AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDruckProgramm AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lSammFak       AS LOG       NO-UNDO.
    DEFINE VARIABLE lFaktura       AS LOG       NO-UNDO.
    DEFINE VARIABLE iRuestArt      AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iWinX          AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iWinY          AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cString        AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iDokArt        AS INTEGER   NO-UNDO.

    DEFINE BUFFER bViperDoc FOR ViperDoc.
    DEFINE BUFFER bAufko    FOR Aufko.
    DEFINE BUFFER bSavko    FOR Savko.
    DEFINE BUFFER bTabel    FOR Tabel.
    DEFINE BUFFER bDebst    FOR Debst.
    
    FIND bAufko NO-LOCK WHERE RECID(bAufko) = ipRecid.

    opRetVal = ''.
    
    FIND bDebst NO-LOCK 
        WHERE bDebst.Firma = bAufko.Firma
        AND   bDebst.Knr   = bAufko.Knr NO-ERROR.
    RUN FIND_PREISGRUPPE ( bDebst.Preis_Grp, OUTPUT cString ).
    ii = INTEGER(ENTRY(3, cString, CHR(01))).

    EMPTY TEMP-TABLE tParam.
    CREATE tParam.
    
    FIND Steuer NO-LOCK
        WHERE Steuer.Firma = bAufko.Firma.
    ASSIGN  
        iRuestArt = Steuer.RuestArt.
    
    ASSIGN  
        tParam.cFirma    = bAufko.Firma
        tParam.iRecid    = ipRecid
        tParam.iAufnr    = ipAufnr
        tParam.iKnr      = bAufko.Knr
        tParam.iFak_Knr  = bAufko.Fak_Knr
        tParam.iFakArt   = bAufko.Fak_Art
        tParam.iAufSta   = bAufko.Auf_Sta
        tParam.cBenutzer = DYNAMIC-FUNCTION('getBenutzer':U)
        tParam.cDBUser   = DYNAMIC-FUNCTION('getDBUser':U)
        tParam.cWinUser  = DYNAMIC-FUNCTION('getSysUser':U)
        tParam.cInstall  = DYNAMIC-FUNCTION('getInstallation':U)
        tParam.lPreis    = FALSE
        tParam.lSendMail = FALSE
        tParam.lBatch    = FALSE
        tParam.iVerband  = 999999.
        
    IF bAufko.AlsOfferte THEN 
    DO:
        tParam.cDokument = 'EXCEL_OFFERTE'.
        tParam.lBatch    = TRUE.
        lSammFak         = FALSE.
        lFaktura         = FALSE.
    END.
    ELSE 
    DO:
        FIND FIRST Tabel NO-LOCK
            WHERE Tabel.Firma  = tParam.cFirma
            AND   Tabel.RecArt = 'FAKART'
            AND   Tabel.CodeI  = bAufko.Fak_Art NO-ERROR.
        tParam.cDokument = Tabel.Bez2.
        lSammFak         = (IF Tabel.Int_3 = 4 THEN TRUE ELSE FALSE).
        lFaktura         = (IF Tabel.Int_3 = 3 THEN TRUE ELSE FALSE).
    END.

    CASE cInstallation:
        WHEN 'oswald'     OR 
        WHEN 'california' THEN 
            DO:
                IF bAufko.AlsOfferte THEN 
                DO:
                    RUN 'v8/c-p_oswald.w' ( INPUT htParam )NO-ERROR.
                    RETURN.
                END.                   
            END.
        WHEN 'sanmartino' THEN 
            DO:
                IF (bAufko.Fak_Art >= 01 AND
                    bAufko.Fak_Art <= 20)
                    OR (bAufko.AlsOfferte) 
                    THEN 
                DO:
                    RUN 'v8/c-p_sanmartino.w' ( INPUT htParam )NO-ERROR.
                    RETURN.
                END.                   
            END.
    END CASE.
    
    IF  iRuestArt > 0         AND
        NOT bAufko.AlsOfferte AND
        bAufko.Auf_Sta < 2    THEN 
    DO:
        RUN AUFBEREITEN_RUESTPAPIER.
        IF RETURN-VALUE <> 'FEST' THEN RETURN.
    END.

    IF lSammFak THEN 
    DO:
        FOR EACH Aufko NO-LOCK
            WHERE Aufko.Firma   = bAufko.Firma
            AND   Aufko.Samm_Nr = bAufko.Samm_Nr
            AND   Aufko.Fak_Art = bAufko.Fak_Art:
            IF tParam.dVonDatum = ? THEN  tParam.dVonDatum = bAufko.Lief_Datum.
            IF tParam.dBisDatum = ? THEN  tParam.dBisDatum = bAufko.Lief_Datum.
            IF tParam.dVonDatum > Aufko.Lief_Datum THEN tParam.dVonDatum = Aufko.Lief_Datum.
            IF tParam.dBisDatum < Aufko.Lief_Datum THEN tParam.dBisDatum = Aufko.Lief_Datum.
        END.
        RUN 'g-fakauswahl.w':U ( INPUT-OUTPUT htParam, OUTPUT cResult ) NO-ERROR.
        IF cResult <> 'OK' THEN 
        DO:
            RELEASE bAufko.
            APPLY 'U1'.
            RETURN NO-APPLY.
        END.
        FIND FIRST Tabel NO-LOCK
            WHERE Tabel.Firma  = tParam.cFirma
            AND   Tabel.RecArt = 'FAKART'
            AND   Tabel.CodeI  = tParam.iFakArt NO-ERROR.
        ASSIGN  
            tParam.cDokument = Tabel.Bez2
            lSammFak         = (IF Tabel.Int_3 = 4 THEN TRUE ELSE FALSE)
            lFaktura         = (IF Tabel.Int_3 = 3 THEN TRUE ELSE FALSE)
            tParam.lPreis    = TRUE.
    END.
    
    iVDRecid = ?.
    IF cInstallation = 'realwines' THEN 
    DO:
        IF bAufko.Fak_Art > 4 AND
           bAufko.Auf_Sta > 2 THEN 
        DO:
            iDokArt          = bAufko.Ku_Grp.
            tParam.iVerband  = bAufko.Ku_Grp.
        END.
    END.
    DO ii = 1 TO 3:
        CASE ii:
            WHEN 1 THEN 
                cUser = tParam.cBenutzer.
            WHEN 2 THEN 
                cUser = tParam.cDBUser.
            WHEN 3 THEN 
                cUser = tParam.cWinUser.
        END CASE.
        
        FIND FIRST ViperDoc NO-LOCK
            WHERE ViperDoc.Firma    = bAufko.Firma
            AND   ViperDoc.Benutzer = cUser
            AND   ViperDoc.Formular = tParam.cDokument
            AND   ViperDoc.DokArt   = iDokArt NO-ERROR.
        IF AVAILABLE ViperDoc THEN 
        DO:
            iVDRecid = RECID(ViperDoc).
            LEAVE.
        END.
    END.
    DO WHILE iVDREcid = ?:
        FIND FIRST ViperDoc NO-LOCK
            WHERE ViperDoc.Firma    = bAufko.Firma
            AND   ViperDoc.Formular = tParam.cDokument
            AND   ViperDoc.DokArt   = iDokArt NO-ERROR.
        IF NOT AVAILABLE ViperDoc THEN 
        DO:
            MESSAGE 'Es ist keine Drucker-Formular-Definition hinterlegt'
                VIEW-AS ALERT-BOX ERROR.
            APPLY 'U1'.
            RETURN NO-APPLY.
        END.
        REPEAT TRANSACTION:
            CREATE  bViperDoc.
            BUFFER-COPY ViperDoc
                EXCEPT  Benutzer
                TO      bViperDoc
                ASSIGN  
                bViperDoc.Benutzer = tParam.cBenutzer.
            iVDRecid = RECID(bViperDoc).
            RELEASE bViperDoc.
            RELEASE ViperDoc.
            LEAVE.
        END.
        LEAVE.
    END.
    tParam.iVDRecid = iVDRecid.
    
    RELEASE bAufko.
    RELEASE ViperDoc.
    RELEASE Tabel.
    
    RUN 'g-druck-bestaetigung.w':U ( INPUT-OUTPUT htParam, OUTPUT cResult ).
    IF cResult <> 'OK' THEN 
    DO:
        APPLY 'U1'.
        RETURN NO-APPLY.
    END.
    
    cDruckProgramm  = SUBSTITUTE('DruckProgramme/&1/&2',
        cInstallation,
        tParam.Programm ).
    IF cDruckProgramm = ? THEN 
    DO:
        MESSAGE 'Druckprogramm nicht gefunden' VIEW-AS ALERT-BOX ERROR.
        APPLY 'U1'.
        RETURN NO-APPLY.
    END.
    
    SESSION:SET-WAIT-STATE('GENERAL').
    RUN VALUE(cDruckProgramm) ( htParam, OUTPUT cResult ).
    SESSION:SET-WAIT-STATE('').
    
    RUN refreshRow IN h_d-aufko.
    
    RETURN cResult.
    
END PROCEDURE.

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

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

    { incl/winenableobject.i }

    RUN SUPER.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wAuftrag  _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 CB_Lager CB_Aufstatus 
      WITH FRAME fMain IN WINDOW wAuftrag.
  ENABLE CB_Lager CB_Aufstatus Btn_Suchen 
      WITH FRAME fMain IN WINDOW wAuftrag.
  {&OPEN-BROWSERS-IN-QUERY-fMain}
  VIEW wAuftrag.
END PROCEDURE.

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

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

    DEFINE VARIABLE wx AS INTEGER NO-UNDO.
    DEFINE VARIABLE wy AS INTEGER NO-UNDO.

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

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

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

    IF NOT lEscFlag THEN 
    DO:
        IF NOT lClose THEN RETURN NO-APPLY.
    END.

    IF sAktiv THEN RUN ENDE_PROGRAMM ( INPUT Progname ) NO-ERROR.

    wx = {&WINDOW-NAME}:X NO-ERROR.
    wy = {&WINDOW-NAME}:Y NO-ERROR.

    DYNAMIC-FUNCTION('setFensterposition':U, INPUT 'Fensterposition',
        INPUT Progname,
        INPUT wx,
        INPUT wy) NO-ERROR.

    APPLY "CLOSE":U TO THIS-PROCEDURE.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENTRY_CURSOR wAuftrag 
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-aufko   ( INPUT 'Auf_Datum' ).
                ELSE             RUN applyEntry IN h_b-aufko   ( INPUT ? ).
            END.                                                            
        WHEN 2 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-aufze   ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-aufze   ( INPUT ? ).
            END.
        WHEN 3 THEN RUN applyEntry IN h_f-aufgebko         ( INPUT 'Br_AufGebKo' ).
        WHEN 4 THEN RUN applyEntry IN h_f-aufko-auftrag    ( INPUT 'Br_AufkoAuftrag' ).
        WHEN 6 THEN RUN applyEntry IN h_b-artbw-auftrag    ( INPUT ? ).
        WHEN 7 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-kunbest          ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-adresse-faxliste ( INPUT ? ).
            END.
        WHEN 8 THEN RUN applyEntry IN h_b-savko            ( INPUT ? ).
        WHEN 9 THEN RUN applyEntry IN h_f-umsatz-auftrag   ( INPUT ? ).
    END CASE.

    RETURN NO-APPLY.

END PROCEDURE.

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

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

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    DEFINE VARIABLE iRecid  AS RECID   NO-UNDO.
    DEFINE VARIABLE iStatus AS INTEGER NO-UNDO.
    DEFINE VARIABLE iArt    AS INTEGER NO-UNDO.
    DEFINE VARIABLE iFaknr  AS INTEGER NO-UNDO.
    DEFINE VARIABLE iAufnr  AS INTEGER NO-UNDO.
    DEFINE VARIABLE iKnr    AS INTEGER NO-UNDO.
    
    DEFINE BUFFER bAufko FOR Aufko.
    DEFINE BUFFER bSavko FOR Savko.

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

    CASE AktSeite:
        WHEN 1 OR
        WHEN 2 OR
        WHEN 3 THEN 
            DO:
                RUN 'g-suchen-aufko.w':U (OUTPUT iRecid, OUTPUT iStatus) NO-ERROR.
                IF iRecid <> ?  AND
                    iRecid <> 0  THEN 
                DO:
                    DYNAMIC-FUNCTION('SetAufSta':U, iStatus) NO-ERROR.
                    FIND bAufko NO-LOCK WHERE RECID(bAufko) = iRecid.
                    DYNAMIC-FUNCTION('fetchRowIdent':U IN h_d-aufko, STRING(ROWID(bAufko)), ? ) NO-ERROR.
                    PUBLISH 'ANZEIGE_AUFKOPF'.
                    RELEASE bAufko.
                END.
            END.
        WHEN 8 THEN 
            DO:
                RUN 'g-suchen-savko.w':U (OUTPUT iRecid, OUTPUT iArt) NO-ERROR.
                IF iRecid = ?  OR
                    iRecid = 0  THEN 
                DO:
                    APPLY 'U1'.
                    RETURN NO-APPLY.
                END.
                FIND bSavko NO-LOCK WHERE RECID(bSavko) = iRecid.
                ASSIGN  
                    iAufnr = 0
                    iFaknr = 0
                    iKnr   = 0.
                ASSIGN  
                    iFaknr = bSavko.Faknr
                    iKnr   = bSavko.Knr
                    iAufnr = bSavko.Aufnr.
                RELEASE bSavko.
                DYNAMIC-FUNCTION('setSelectedSavko':U IN h_d-savko, iRecid, iFaknr, iKnr, iAufnr ) NO-ERROR.
            END.
    END CASE.

    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    DEFINE VARIABLE iNummer AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cRowId  AS CHARACTER NO-UNDO.
    
    DEFINE BUFFER bAufko FOR Aufko.

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

    RUN g-einlesen-nummer.w ('Auftrag Suchen', 'ummer (LS/Knr/Faknr)', OUTPUT iNummer).
    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        IF iNummer = ?  THEN LEAVE.
        IF iNummer = 0  THEN LEAVE.
        DO WHILE TRUE:
            FIND FIRST bAufko NO-LOCK
                WHERE bAufko.Firma = Firma
                AND   bAufko.Aufnr = iNummer NO-ERROR.
            IF AVAILABLE bAufko THEN LEAVE.
            FIND FIRST bAufko NO-LOCK
                WHERE bAufko.Firma = Firma
                AND   bAufko.Knr   = iNummer NO-ERROR.
            IF AVAILABLE bAufko THEN LEAVE.
            FIND FIRST bAufko NO-LOCK
                WHERE bAufko.Firma = Firma
                AND   bAufko.Faknr = iNummer NO-ERROR.
            IF AVAILABLE bAufko THEN LEAVE.
            LEAVE.
        END.
        IF NOT AVAILABLE bAufko THEN LEAVE.
        DYNAMIC-FUNCTION('fetchRowIdent':U IN h_d-aufko, STRING(ROWID(bAufko)), ? ) NO-ERROR.
        RELEASE bAufko.
        LEAVE.
    END.

    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    cSysUser       = DYNAMIC-FUNCTION ( 'getSysUser':U       ) NO-ERROR.
    cBenutzer      = DYNAMIC-FUNCTION ( 'getBenutzer':U      ) NO-ERROR.
    cBenutzerDaten = DYNAMIC-FUNCTION ( 'getBenutzerDaten':U ) NO-ERROR.
    cInstallation  = DYNAMIC-FUNCTION ( 'getInstallation':U  ) NO-ERROR.

    GET-KEY-VALUE SECTION 'GrundEinstellungen'
        KEY     'EscapeAufAuftrag'
        VALUE   cString.
    IF cString = ? THEN cString = 'nein'.
    IF cString BEGINS 'n' THEN lEscFlag = FALSE.
    ELSE                       lEscFlag = TRUE .
    
    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_LAGER     ( CB_Lager:HANDLE     ).
        RUN COMBO_AUFSTATUS ( CB_Aufstatus:HANDLE ).
        
        iRetVal = DYNAMIC-FUNCTION('getFWLager':U) NO-ERROR.
        IF iRetVal = ? THEN iRetVal = 0.
        CB_Lager:SCREEN-VALUE = STRING(iRetVal,'999999') NO-ERROR.

        iRetVal = DYNAMIC-FUNCTION('getFWAufSta':U) NO-ERROR.
        IF iRetVal = ? THEN iRetVal = 0.
        CB_Aufstatus:SCREEN-VALUE = STRING(iRetVal,'999999') NO-ERROR.
    END.
        
    RUN SUPER.

    { incl/wininitializeobject.i }

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER ipiAufnr     AS INTEGER NO-UNDO.
    
    DEFINE BUFFER bAufko FOR Aufko.

    FIND bAufko NO-LOCK 
        WHERE bAufko.Firma = Firma
        AND   bAufko.Aufnr = ipiAufnr NO-ERROR.
    IF NOT AVAILABLE bAufko THEN RETURN.
    
    IF bAufko.Auf_Sta <> INTEGER(CB_Aufstatus:SCREEN-VALUE IN FRAME {&FRAME-NAME}) THEN 
    DO:
        CB_Aufstatus:SCREEN-VALUE IN FRAME {&FRAME-NAME} = STRING(bAufko.Auf_Sta,'999999') NO-ERROR.
        APPLY 'VALUE-CHANGED' TO CB_Aufstatus.
    END.
    DYNAMIC-FUNCTION ('fetchRowIdent':U IN h_d-aufko,  STRING(ROWID(bAufko)), ?) NO-ERROR.

END PROCEDURE.

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

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

    { incl/winseitenwechsel.i }

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER piPageNum   AS INTEGER                      NO-UNDO.

    DEFINE VARIABLE FMutFlag AS LOG       NO-UNDO.
    DEFINE VARIABLE MutProg  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lAdmin   AS LOG       NO-UNDO.

    FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
    IF FMutFlag THEN RETURN NO-APPLY.
    
    IF piPageNum = 9 THEN 
    DO:
        lAdmin = DYNAMIC-FUNCTION('getAdmin':U) NO-ERROR.
        IF NOT lAdmin THEN RETURN NO-APPLY.
    END.

    CASE piPageNum:

    END CASE.

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

    DO WITH FRAME {&FRAME-NAME}:

        CASE AktSeite:

            WHEN 1 THEN 
                DO:
                    RUN removeLink ( hAktionen , 'TableIO':U    , h_v-aufko    ) NO-ERROR.
                /*  RUN removeLink ( hAktionen , 'Navigation':U , h_d-auftr    ). */
                END.
            WHEN 2 THEN 
                DO:
                    RUN removeLink ( hAktionen , 'TableIO':U    , h_v-aufze    ) NO-ERROR.
                END.
            WHEN 3 THEN 
                DO:
                    /*  RUN addLink ( hAktionen , 'Navigation':U , h_d-aufko       ) NO-ERROR.*/
                    CB_Lager    :SENSITIVE = TRUE.
                END.
            WHEN 4 THEN 
                DO:
                    RUN addLink ( hAktionen , 'Navigation':U , h_d-aufko       ) NO-ERROR.
                    CB_Lager    :SENSITIVE = TRUE.
                    CB_AufStatus:SENSITIVE = TRUE.
                END.
            WHEN 7 THEN 
                DO:
                    RUN removeLink ( hAktionen , 'TableIO':U    , h_v-kunbest  ) NO-ERROR.
                END.

        END CASE.
    
    END.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

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

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

    { incl/wintoolbar.i }

END PROCEDURE.

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

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

    RUN 'VERBUCHEN' IN h_b-aufko.
    RETURN NO-APPLY.
    
END PROCEDURE.

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

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

    RUN SUPER.

    RUN ENTRY_CURSOR.

END PROCEDURE.

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

/* ************************  Function Implementations ***************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAufSta wAuftrag 
FUNCTION getAufSta RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------*/
    /*      Purpose:                                                                */
    /*      Parameters:  <none>                                                     */
    /*      Notes:                                                                  */
    /*------------------------------------------------------------------------------*/

    RETURN INTEGER(CB_AufStatus:SCREEN-VALUE IN FRAME {&FRAME-NAME}).

END FUNCTION.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLager wAuftrag 
FUNCTION getLager RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------*/
    /*      Purpose:                                                                */
    /*      Parameters:  <none>                                                     */
    /*      Notes:                                                                  */
    /*------------------------------------------------------------------------------*/

    RETURN INTEGER(CB_Lager:SCREEN-VALUE IN FRAME {&FRAME-NAME}).

END FUNCTION.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgname wAuftrag 
FUNCTION getProgname RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------*/
    /*      Purpose:                                                                */
    /*      Parameters:  <none>                                                     */
    /*      Notes:                                                                  */
    /*------------------------------------------------------------------------------*/

    RETURN Progname.

END FUNCTION.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SetAufSta wAuftrag 
FUNCTION SetAufSta RETURNS LOGICAL
    ( ipStatus AS INTEGER ) :
    /*------------------------------------------------------------------------------*/
    /*      Purpose:                                                                */
    /*      Parameters:  <none>                                                     */
    /*      Notes:                                                                  */
    /*------------------------------------------------------------------------------*/

    DO WITH FRAME {&FRAME-NAME}:
        CB_AufStatus:SCREEN-VALUE = STRING(ipStatus,'999999') NO-ERROR.
        APPLY 'VALUE-CHANGED' TO CB_Aufstatus.
    END.
    
    RETURN TRUE.

END FUNCTION.

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