GeMIS_WEB/GUI/super/benutzerfunkt.p

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure 
/*------------------------------------------------------------------------
    File        : 
    Purpose     :

    Syntax      :

    Description :

    Author(s)   :
    Created     :
    Notes       :
  ----------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

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

DEFINE VARIABLE Konzern  AS CHARACTER INIT '9999' NO-UNDO.
DEFINE VARIABLE Filiale  AS CHARACTER INIT '0000' NO-UNDO.
DEFINE VARIABLE Firma    AS CHARACTER NO-UNDO.
DEFINE VARIABLE Benutzer AS CHARACTER NO-UNDO.
DEFINE VARIABLE iSprcd   AS INTEGER   NO-UNDO.

DEFINE TEMP-TABLE tScreens NO-UNDO
    FIELD hScreen AS HANDLE
    FIELD lAktiv  AS LOG.
    
DEFINE TEMP-TABLE eBenDaten NO-UNDO LIKE BenDaten.     

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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



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


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

&IF DEFINED(EXCLUDE-getAnzeigeAdresseInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAnzeigeAdresseInaktiv Procedure 
FUNCTION getAnzeigeAdresseInaktiv RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getAnzeigeArtikelInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAnzeigeArtikelInaktiv Procedure 
FUNCTION getAnzeigeArtikelInaktiv RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getAnzeigeArtikelSucheInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAnzeigeArtikelSucheInaktiv Procedure 
FUNCTION getAnzeigeArtikelSucheInaktiv RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getAnzeigePreisInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAnzeigePreisInaktiv Procedure 
FUNCTION getAnzeigePreisInaktiv RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getArtbwVonDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getArtbwVonDatum Procedure
FUNCTION getArtbwVonDatum RETURNS INTEGER 
    (  ) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-getArtikelCopyParams) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getArtikelCopyParams Procedure
FUNCTION getArtikelCopyParams RETURNS CHARACTER 
    (  ) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-getArtikelSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getArtikelSort Procedure 
FUNCTION getArtikelSort RETURNS LOGICAL
    ( INPUT-OUTPUT opFeld AS CHARACTER, INPUT-OUTPUT opDesc AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getArtPreisSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getArtPreisSort Procedure 
FUNCTION getArtPreisSort RETURNS LOGICAL
    ( INPUT-OUTPUT opFeld AS CHARACTER, INPUT-OUTPUT opDesc AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getAnzeigeAufko) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAnzeigeAufko Procedure
FUNCTION getAnzeigeAufko RETURNS LOGICAL 
  (ipcSektion AS CHARACTER,
   OUTPUT opcFeld AS CHARACTER,
   OUTPUT oplDesc AS LOGICAL) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-getBenutzerFWDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getBenutzerFWDatum Procedure 
FUNCTION getBenutzerFWDatum RETURNS DATE
    ( ipcRecArt AS CHARACTER, ipcSektion AS CHARACTER, ipcSchluessel AS CHARACTER,
    ipiDatum   AS INTEGER )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getBeskoParameter) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getBeskoParameter Procedure
FUNCTION getBeskoParameter RETURNS LOGICAL 
    (ipSektion AS CHARACTER,
    INPUT-OUTPUT iphtParam AS HANDLE) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-getComboSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getComboSort Procedure 
FUNCTION getComboSort RETURNS LOGICAL
    ( ipSektion AS CHARACTER, ipComboBox AS HANDLE )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getDDAbsatzFehlwerte) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getDDAbsatzFehlwerte Procedure
FUNCTION getDDAbsatzFehlwerte RETURNS LOGICAL 
    (INPUT-OUTPUT iphtParam AS HANDLE) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-getEPAnpassung) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getEPAnpassung Procedure
FUNCTION getEPAnpassung RETURNS LOGICAL 
    (OUTPUT oplDEP AS LOGICAL,
    OUTPUT oplIntern AS LOGICAL,
    OUTPUT oplLEP AS LOGICAL,
    OUTPUT oplListenEP AS LOGICAL) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-getErrorMessage) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getErrorMessage Procedure
FUNCTION getErrorMessage RETURNS CHARACTER 
    (  ) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-getFehlwerteAllgemein) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFehlwerteAllgemein Procedure
FUNCTION getFehlwerteAllgemein RETURNS CHARACTER 
  (ipcRecArt AS CHARACTER,
   ipcSektion AS CHARACTER,
   ipcSchluessel AS CHARACTER) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-getFWAufSta) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFWAufSta Procedure 
FUNCTION getFWAufSta RETURNS INTEGER
    (  )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getFWLager) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFWLager Procedure 
FUNCTION getFWLager RETURNS INTEGER
    (  )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getHistorieEinkaeufe) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getHistorieEinkaeufe Procedure 
FUNCTION getHistorieEinkaeufe RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-getHistorieVerkaeufe) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getHistorieVerkaeufe Procedure 
FUNCTION getHistorieVerkaeufe RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setAnzeigeAdresseInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setAnzeigeAdresseInaktiv Procedure 
FUNCTION setAnzeigeAdresseInaktiv RETURNS LOGICAL
    ( ipFlag AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setAnzeigeArtikelInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setAnzeigeArtikelInaktiv Procedure 
FUNCTION setAnzeigeArtikelInaktiv RETURNS LOGICAL
    ( ipFlag AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setAnzeigeArtikelSucheInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setAnzeigeArtikelSucheInaktiv Procedure 
FUNCTION setAnzeigeArtikelSucheInaktiv RETURNS LOGICAL
    ( ipFlag AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setAnzeigeAufko) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setAnzeigeAufko Procedure
FUNCTION setAnzeigeAufko RETURNS LOGICAL 
  (ipcSektion AS CHARACTER,
   ipcFeld AS CHARACTER,
   iplDesc AS LOGICAL) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-setAnzeigePreisInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setAnzeigePreisInaktiv Procedure 
FUNCTION setAnzeigePreisInaktiv RETURNS LOGICAL
    ( ipFlag AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setArtbwVonDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setArtbwVonDatum Procedure
FUNCTION setArtbwVonDatum RETURNS LOGICAL 
    (ipiTage AS INTEGER) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-setArtikelCopyParams) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setArtikelCopyParams Procedure
FUNCTION setArtikelCopyParams RETURNS LOGICAL 
    (ipcParams AS CHARACTER) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-setArtikelKopieren) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setArtikelKopieren Procedure
FUNCTION setArtikelKopieren RETURNS LOGICAL 
  (  ) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-setArtikelSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setArtikelSort Procedure 
FUNCTION setArtikelSort RETURNS LOGICAL
    ( INPUT ipFeld AS CHARACTER, INPUT ipDesc AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setArtPreisSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setArtPreisSort Procedure 
FUNCTION setArtPreisSort RETURNS LOGICAL
    ( INPUT ipFeld AS CHARACTER, INPUT ipDesc AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setBenutzerFWDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setBenutzerFWDatum Procedure 
FUNCTION setBenutzerFWDatum RETURNS LOGICAL
    ( ipcRecArt AS CHARACTER, ipcSektion AS CHARACTER, ipcSchluessel AS CHARACTER,
    ipiDatum  AS INTEGER , ipdDatum   AS DATE )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setBeskoParameter) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setBeskoParameter Procedure
FUNCTION setBeskoParameter RETURNS LOGICAL 
    (ipSektion AS CHARACTER,
    INPUT-OUTPUT iphtParam AS HANDLE) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-setComboSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setComboSort Procedure 
FUNCTION setComboSort RETURNS LOGICAL
    ( ipSektion AS CHARACTER, ipComboBox AS HANDLE, ipSort AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setDDAbsatzFehlwerte) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setDDAbsatzFehlwerte Procedure
FUNCTION setDDAbsatzFehlwerte RETURNS LOGICAL 
    (INPUT iphtParam AS HANDLE) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-setEPAnpassung) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setEPAnpassung Procedure
FUNCTION setEPAnpassung RETURNS LOGICAL 
    (iplDEP AS LOGICAL,
    iplIntern AS LOGICAL,
    iplLEP AS LOGICAL,
    iplListenEP AS LOGICAL) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-setErrorMessage) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setErrorMessage Procedure
FUNCTION setErrorMessage RETURNS LOGICAL 
    (ipcTyp AS CHARACTER,
    ipcMessage AS CHARACTER,
    ipiErrNo AS INTEGER,
    iplRetVal AS LOGICAL) FORWARD.

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


&ENDIF


&IF DEFINED(EXCLUDE-setFieldSecure) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setFieldSecure Procedure 
FUNCTION setFieldSecure RETURNS LOGICAL
    ( ipcFirma AS CHARACTER, iphScreen AS HANDLE, ipcName AS CHARACTER, ipcBenutzer AS CHARACTER )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setFWAufSta) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setFWAufSta Procedure 
FUNCTION setFWAufSta RETURNS LOGICAL
    ( ipAufSta AS INTEGER )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setFWLager) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setFWLager Procedure 
FUNCTION setFWLager RETURNS LOGICAL
    ( ipLager AS INTEGER )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setHistorieEinkaeufe) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setHistorieEinkaeufe Procedure 
FUNCTION setHistorieEinkaeufe RETURNS LOGICAL
    ( ipFlag AS LOG )  FORWARD.

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

&ENDIF

&IF DEFINED(EXCLUDE-setHistorieVerkaeufe) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setHistorieVerkaeufe Procedure 
FUNCTION setHistorieVerkaeufe RETURNS LOGICAL
    ( ipFlag AS LOG )  FORWARD.

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

&ENDIF


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: Procedure
   Allow: 
   Frames: 0
   Add Fields to: Neither
   Other Settings: CODE-ONLY COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW Procedure ASSIGN
         HEIGHT             = 29.33
         WIDTH              = 60.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


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


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

SUBSCRIBE TO 'NEUERMANDANT' ANYWHERE.

RUN INITIALISIEREN IN THIS-PROCEDURE.

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


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

&IF DEFINED(EXCLUDE-INITIALISIEREN) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE INITIALISIEREN Procedure
PROCEDURE INITIALISIEREN:
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    Benutzer = DYNAMIC-FUNCTION('getBenutzer':U)        NO-ERROR.
    Firma    = DYNAMIC-FUNCTION('getMandant':U)         NO-ERROR.
    iSprcd   = DYNAMIC-FUNCTION('getBenutzerSprcd':U)   NO-ERROR.

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


&ENDIF


&IF DEFINED(EXCLUDE-NEUERMANDANT) = 0 &THEN

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

    DEFINE INPUT PARAMETER ipBenutzer  AS CHARACTER         NO-UNDO.
    DEFINE INPUT PARAMETER ipMandant   AS CHARACTER         NO-UNDO.
    
    Benutzer = ipBenutzer.
    Firma    = ipMandant.
    iSprcd   = DYNAMIC-FUNCTION ('getBenutzerSprcd':U) NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

&IF DEFINED(EXCLUDE-getAnzeigeAdresseInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAnzeigeAdresseInaktiv Procedure 
FUNCTION getAnzeigeAdresseInaktiv RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'INAKTIV'
        AND   BenDaten.Sektion    = 'ADRESSE'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN TRUE.
    ELSE                           RETURN BenDaten.Flag_1.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getAnzeigeArtikelInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAnzeigeArtikelInaktiv Procedure 
FUNCTION getAnzeigeArtikelInaktiv RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'INAKTIV'
        AND   BenDaten.Sektion    = 'ARTIKEL'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN TRUE.
    ELSE                           RETURN BenDaten.Flag_1.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getAnzeigeArtikelSucheInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAnzeigeArtikelSucheInaktiv Procedure 
FUNCTION getAnzeigeArtikelSucheInaktiv RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'INAKTIV'
        AND   BenDaten.Sektion    = 'ARTIKELSUCH'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN TRUE.
    ELSE                           RETURN BenDaten.Flag_1.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getAnzeigePreisInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAnzeigePreisInaktiv Procedure 
FUNCTION getAnzeigePreisInaktiv RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------*/
    /*  Purpose:                                                                    */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'INAKTIV'
        AND   BenDaten.Sektion    = 'PREIS'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN FALSE.
    ELSE                           RETURN BenDaten.Flag_1.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getArtbwVonDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getArtbwVonDatum Procedure
FUNCTION getArtbwVonDatum RETURNS INTEGER 
    (  ):
    /*------------------------------------------------------------------------------*/
    /*  Purpose:                                                                    */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK 
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'ARTIKEL'
        AND   BenDaten.Sektion    = 'ARTBW'
        AND   BenDaten.Schluessel = 'ANZTAGE' NO-WAIT NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN 999999.
    ELSE                           RETURN BenDaten.iFeld_1.
    RELEASE BenDaten.

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


&ENDIF


&IF DEFINED(EXCLUDE-getArtikelCopyParams) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getArtikelCopyParams Procedure
FUNCTION getArtikelCopyParams RETURNS CHARACTER 
    (  ):
    /*------------------------------------------------------------------------------*/
    /*  Purpose:                                                                    */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE cRetVal AS CHARACTER NO-UNDO.
    
    cRetVal = FILL('no;', 10).
    
    FIND BenDaten NO-LOCK 
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'ARTIKEL'
        AND   BenDaten.Sektion    = 'KOPIEREN'
        AND   BenDaten.Schluessel = 'PARAMETERS' NO-WAIT NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN cRetVal.
    ELSE                           RETURN BenDaten.cFeld_1.

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


&ENDIF


&IF DEFINED(EXCLUDE-getArtikelSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getArtikelSort Procedure 
FUNCTION getArtikelSort RETURNS LOGICAL
    ( INPUT-OUTPUT opFeld AS CHARACTER, INPUT-OUTPUT opDesc AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    ASSIGN  
        opDesc = FALSE
        opFeld = ''.

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'SORT'
        AND   BenDaten.Sektion    = 'ARTST'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN FALSE.
    ASSIGN  
        opFeld = BenDaten.cFeld_1
        opDesc = BenDaten.Flag_1.
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getArtPreisSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getArtPreisSort Procedure 
FUNCTION getArtPreisSort RETURNS LOGICAL
    ( INPUT-OUTPUT opFeld AS CHARACTER, INPUT-OUTPUT opDesc AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    ASSIGN  
        opDesc = FALSE
        opFeld = ''.

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'SORT'
        AND   BenDaten.Sektion    = 'ARTPREIS'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN FALSE.
    ASSIGN  
        opFeld = BenDaten.cFeld_1
        opDesc = BenDaten.Flag_1.
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getAnzeigeAufko) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAnzeigeAufko Procedure
FUNCTION getAnzeigeAufko RETURNS LOGICAL 
    ( ipcSektion AS CHARACTER, OUTPUT opcFeld AS CHARACTER, OUTPUT oplDesc AS LOGICAL  ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten NO-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'AUFKO'
            AND   BenDaten.Sektion    = ipcSektion
            AND   BenDaten.Schluessel = '' NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN RETURN FALSE. 
        ASSIGN  
            oplDesc = BenDaten.Flag_1
            opcFeld = BenDaten.cFeld_1.
            .
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

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


&ENDIF


&IF DEFINED(EXCLUDE-getBenutzerFWDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getBenutzerFWDatum Procedure 
FUNCTION getBenutzerFWDatum RETURNS DATE
    ( ipcRecArt AS CHARACTER, ipcSektion AS CHARACTER, ipcSchluessel AS CHARACTER,
    ipiDatum   AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE dDatum AS DATE      INIT ? NO-UNDO.
    DEFINE VARIABLE cDatum AS CHARACTER INIT '' NO-UNDO.

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = ipcRecArt
        AND   BenDaten.Sektion    = ipcSektion
        AND   BenDaten.Schluessel = ipcSchluessel NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN dDatum.
    
    CASE ipiDatum:
        WHEN 1 THEN 
            cDatum = BenDaten.cFeld_1.
        WHEN 2 THEN 
            cDatum = BenDaten.cFeld_2.
        WHEN 3 THEN 
            cDatum = BenDaten.cFeld_3.
        WHEN 4 THEN 
            cDatum = BenDaten.cFeld_4.
        WHEN 5 THEN 
            cDatum = BenDaten.cFeld_5.
    END CASE.
    
    RELEASE BenDaten.
    
    IF cDatum = '' THEN RETURN dDatum.
    
    dDatum = DATE(INTEGER(ENTRY(2, cDatum, '.')),
        INTEGER(ENTRY(1, cDatum, '.')),
        INTEGER(ENTRY(3, cDatum, '.'))).
    
    RETURN dDatum.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getBeskoParameter) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getBeskoParameter Procedure
FUNCTION getBeskoParameter RETURNS LOGICAL 
    ( ipSektion AS CHARACTER, INPUT-OUTPUT iphtParam AS HANDLE ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten NO-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'BESKOPARAM'
            AND   BenDaten.Sektion    = ipSektion
            AND   BenDaten.Schluessel = STRING(INTEGER(iphtParam::iKnr),'999999') NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN RETURN FALSE. 
        ASSIGN  
            iphtParam::lUnter           = BenDaten.Flag_1
            iphtParam::lVerbrauch       = BenDaten.Flag_2
            iphtParam::lBewegungen      = BenDaten.Flag_3
            iphtParam::dLetztBest       = BenDaten.cFeld_1
            iphtParam::dReserviertdatum = BenDaten.cFeld_2
            iphtParam::dBestandesdatum  = BenDaten.cFeld_3
            iphtParam::dvon             = BenDaten.cFeld_4
            iphtParam::dbis             = BenDaten.cFeld_5
            iphtParam::iKnr             = BenDaten.iFeld_1
            iphtParam::iBesnr           = BenDaten.iFeld_2 
            iphtParam::iIntervall       = BenDaten.iFeld_3
            iphtParam::iLieferfrist     = BenDaten.iFeld_4
            iphtParam::lOK              = TRUE
            iphtParam::nMindProz        = BenDaten.dFeld_1
            iphtParam::nAufrunden       = BenDaten.dFeld_2
            iphtParam::dAktion          = BenDaten.Zug_Datum
            .
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

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


&ENDIF


&IF DEFINED(EXCLUDE-getComboSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getComboSort Procedure 
FUNCTION getComboSort RETURNS LOGICAL
    ( ipSektion AS CHARACTER, ipComboBox AS HANDLE ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'CB_SORT'
        AND   BenDaten.Sektion    = ipSektion
        AND   BenDaten.Schluessel = ipComboBox:NAME NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN ipComboBox:SORT = TRUE            NO-ERROR.
    ELSE                           ipComboBox:SORT = BenDaten.Flag_1 NO-ERROR.
    
    RETURN ipComboBox:SORT.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getDDAbsatzFehlwerte) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getDDAbsatzFehlwerte Procedure
FUNCTION getDDAbsatzFehlwerte RETURNS LOGICAL 
    ( INPUT-OUTPUT iphtParam AS HANDLE ):
    /*------------------------------------------------------------------------------*/
    /* Purpose:                                                                     */
    /* Notes:                                                                       */
    /*------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten NO-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'DDABSATZ'
            AND   BenDaten.Sektion    = STRING(iphtParam::iHerst    ,'999999')
            AND   BenDaten.Schluessel = STRING(iphtParam::iLieferant,'999999') NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN RETURN FALSE. 
        ASSIGN  
            iphtParam::lAbschluss = BenDaten.Flag_1
            iphtParam::lTest      = BenDaten.Flag_2
            iphtParam::dvonDatum  = DATE(BenDaten.cFeld_1)
            iphtParam::dbisDatum  = DATE(BenDaten.cFeld_2)
            iphtParam::cWgr       = BenDaten.cFeld_3
            iphtParam::iLieferant = BenDaten.iFeld_1
            iphtParam::iHerst     = BenDaten.iFeld_2 
            NO-ERROR .
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

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


&ENDIF


&IF DEFINED(EXCLUDE-getEPAnpassung) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getEPAnpassung Procedure
FUNCTION getEPAnpassung RETURNS LOGICAL 
    ( OUTPUT oplDEP AS LOGICAL, OUTPUT oplIntern AS LOGICAL, OUTPUT oplLEP AS LOGICAL, OUTPUT oplListenEP AS LOGICAL  ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE lRetVal AS LOG NO-UNDO INIT FALSE.

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'Fehlwert'
        AND   BenDaten.Sektion    = 'EPANPASSUNG'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN lRetVal.
    ASSIGN  
        oplDEP      = BenDaten.Flag_1
        oplIntern   = BenDaten.Flag_2
        oplLEP      = BenDaten.Flag_3
        oplListenEP = BenDaten.Flag_4
        lRetVal     = TRUE.

    RETURN lRetVal.

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


&ENDIF


&IF DEFINED(EXCLUDE-getErrorMessage) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getErrorMessage Procedure
FUNCTION getErrorMessage RETURNS CHARACTER 
    (  ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cRetVal AS CHARACTER NO-UNDO INIT ''.

    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
        FOR EACH eBenDaten
            WHERE eBenDaten.Benutzer   = Benutzer
            AND   eBenDaten.Konzern    = Konzern
            AND   eBenDaten.Firma      = Firma
            AND   eBenDaten.Filiale    = Filiale
            AND   eBenDaten.RecArt     = 'ERROR' :
                
            CASE eBenDaten.Sektion:
                WHEN 'CHARACTER' THEN 
                    cRetVal = cRetVal
                        + (IF cRetVal = '' THEN '' ELSE CHR(01) )
                        + eBenDaten.Sektion
                        + ':'
                        + eBenDaten.cFeld_1.
                WHEN 'INTEGER'   THEN 
                    cRetVal = cRetVal
                        + (IF cRetVal = '' THEN '' ELSE CHR(01) )
                        + eBenDaten.Sektion
                        + ':'
                        + STRING(eBenDaten.iFeld_1).
                WHEN 'LOGICAL'   THEN 
                    cRetVal = cRetVal
                        + (IF cRetVal = '' THEN '' ELSE CHR(01) )
                        + eBenDaten.Sektion
                        + ':'
                        + STRING(eBenDaten.Flag_1,'y/n').
                WHEN 'DATE' THEN 
                    cRetVal = cRetVal
                        + (IF cRetVal = '' THEN '' ELSE CHR(01) )
                        + eBenDaten.Sektion
                        + ':'
                        + eBenDaten.cFeld_1.
            END CASE.
            
            DELETE  eBenDaten.
        END.
            
        RELEASE eBenDaten.
        LEAVE.
    END.

    RETURN cRetVal.

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


&ENDIF


&IF DEFINED(EXCLUDE-getFehlwerteAllgemein) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFehlwerteAllgemein Procedure
FUNCTION getFehlwerteAllgemein RETURNS CHARACTER 
    ( ipcRecArt AS CHARACTER, ipcSektion AS CHARACTER, ipcSchluessel AS CHARACTER ):
    /*------------------------------------------------------------------------------*/
    /*  Purpose:     Super Override                                                 */
    /*  Parameters:                                                                 */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE cRetVal AS CHARACTER NO-UNDO.

    REPEAT TRANSACTION:
        FIND BenDaten NO-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = ipcRecArt
            AND   BenDaten.Sektion    = ipcSektion
            AND   BenDaten.Schluessel = ipcSchluessel NO-WAIT NO-ERROR.
        cRetVal = (IF AVAILABLE BenDaten THEN BenDaten.cFeld_1 ELSE ''). 
        RELEASE BenDaten.
        LEAVE.
    END.
    RETURN cRetVal.

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


&ENDIF


&IF DEFINED(EXCLUDE-getFWAufSta) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFWAufSta Procedure 
FUNCTION getFWAufSta RETURNS INTEGER
    (  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'Fehlwert'
        AND   BenDaten.Sektion    = 'AUFSTA'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN 0.
    ELSE                           RETURN BenDaten.iFeld_1.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getFWLager) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFWLager Procedure 
FUNCTION getFWLager RETURNS INTEGER
    (  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'Fehlwert'
        AND   BenDaten.Sektion    = 'LAGER'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN 0.
    ELSE                           RETURN BenDaten.iFeld_1.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getHistorieEinkaeufe) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getHistorieEinkaeufe Procedure 
FUNCTION getHistorieEinkaeufe RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'EINKAEUFE'
        AND   BenDaten.Sektion    = 'ARTIKELHISTORIE'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN TRUE.
    ELSE                           RETURN BenDaten.Flag_1.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-getHistorieVerkaeufe) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getHistorieVerkaeufe Procedure 
FUNCTION getHistorieVerkaeufe RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = Benutzer
        AND   BenDaten.Konzern    = Konzern
        AND   BenDaten.Firma      = Firma
        AND   BenDaten.Filiale    = Filiale
        AND   BenDaten.RecArt     = 'VERKAEUFE'
        AND   BenDaten.Sektion    = 'ARTIKELHISTORIE'
        AND   BenDaten.Schluessel = '' NO-ERROR.
    IF NOT AVAILABLE BenDaten THEN RETURN TRUE.
    ELSE                           RETURN BenDaten.Flag_1.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setAnzeigeAdresseInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setAnzeigeAdresseInaktiv Procedure 
FUNCTION setAnzeigeAdresseInaktiv RETURNS LOGICAL
    ( ipFlag AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'INAKTIV'
            AND   BenDaten.Sektion    = 'ADRESSE'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE  BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'INAKTIV'
                BenDaten.Sektion    = 'ADRESSE'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1 = ipFlag.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setAnzeigeArtikelInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setAnzeigeArtikelInaktiv Procedure 
FUNCTION setAnzeigeArtikelInaktiv RETURNS LOGICAL
    ( ipFlag AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'INAKTIV'
            AND   BenDaten.Sektion    = 'ARTIKEL'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'INAKTIV'
                BenDaten.Sektion    = 'ARTIKEL'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1 = ipFlag.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setAnzeigeArtikelSucheInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setAnzeigeArtikelSucheInaktiv Procedure 
FUNCTION setAnzeigeArtikelSucheInaktiv RETURNS LOGICAL
    ( ipFlag AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'INAKTIV'
            AND   BenDaten.Sektion    = 'ARTIKELSUCH'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'INAKTIV'
                BenDaten.Sektion    = 'ARTIKELSUCH'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1 = ipFlag.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setAnzeigeAufko) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setAnzeigeAufko Procedure
FUNCTION setAnzeigeAufko RETURNS LOGICAL 
    ( ipcSektion AS CHARACTER, ipcFeld AS CHARACTER, iplDesc AS LOGICAL ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'AUFKO'
            AND   BenDaten.Sektion    = ipcSektion
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'AUFKO'
                BenDaten.Sektion    = ipcSektion
                BenDaten.Schluessel = ''
                BenDaten.Erf_Datum  = TODAY NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1    = iplDesc
            BenDaten.Zug_Datum = TODAY
            BenDaten.cFeld_1   = ipcFeld
            .
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

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


&ENDIF


&IF DEFINED(EXCLUDE-setAnzeigePreisInaktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setAnzeigePreisInaktiv Procedure 
FUNCTION setAnzeigePreisInaktiv RETURNS LOGICAL
    ( ipFlag AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'INAKTIV'
            AND   BenDaten.Sektion    = 'PREIS'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'INAKTIV'
                BenDaten.Sektion    = 'PREIS'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1 = ipFlag.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setArtbwVonDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setArtbwVonDatum Procedure
FUNCTION setArtbwVonDatum RETURNS LOGICAL 
    ( ipiTage AS INTEGER ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'ARTIKEL'
            AND   BenDaten.Sektion    = 'ARTBW'
            AND   BenDaten.Schluessel = 'ANZTAGE' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE  BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'ARTIKEL'
                BenDaten.Sektion    = 'ARTBW'
                BenDaten.Schluessel = 'ANZTAGE' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.iFeld_1 = ipiTage.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

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


&ENDIF


&IF DEFINED(EXCLUDE-setArtikelCopyParams) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setArtikelCopyParams Procedure
FUNCTION setArtikelCopyParams RETURNS LOGICAL 
    ( ipcParams AS CHARACTER   ):
    /*------------------------------------------------------------------------------*/
    /*  Purpose:                                                                    */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/

    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:    
        FIND BenDaten
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'ARTIKEL'
            AND   BenDaten.Sektion    = 'KOPIEREN'
            AND   BenDaten.Schluessel = 'PARAMETERS' NO-ERROR.
        
        IF NOT AVAILABLE BenDaten THEN
        DO:
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'ARTIKEL'
                BenDaten.Sektion    = 'KOPIEREN'
                BenDaten.Schluessel = 'PARAMETERS'.
        END.
        ASSIGN 
            BenDaten.cFeld_1 = ipcParams.
        RELEASE BenDaten.
        LEAVE.
    END.

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


&ENDIF


&IF DEFINED(EXCLUDE-setArtikelKopieren) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setArtikelKopieren Procedure
FUNCTION setFehlwerteAllgemein RETURNS LOGICAL 
  ( ipcRecArt AS CHARACTER, ipcSektion AS CHARACTER, ipcSchluessel AS CHARACTER, ipcFehlwerte AS CHARACTER ):
    /*------------------------------------------------------------------------------*/
    /*  Purpose:     Super Override                                                 */
    /*  Parameters:                                                                 */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = ipcRecArt
            AND   BenDaten.Sektion    = ipcSektion
            AND   BenDaten.Schluessel = ipcSchluessel NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = ipcRecArt
                BenDaten.Sektion    = ipcSektion
                BenDaten.Schluessel = ipcSchluessel NO-ERROR.
        END.
        ASSIGN  
            BenDaten.cFeld_1   = ipcFehlwerte
            BenDaten.Zug_Datum = TODAY.
        RELEASE BenDaten.
        LEAVE.
    END.
    RETURN TRUE.

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


&ENDIF


&IF DEFINED(EXCLUDE-setArtikelSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setArtikelSort Procedure 
FUNCTION setArtikelSort RETURNS LOGICAL
    ( INPUT ipFeld AS CHARACTER, INPUT ipDesc AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'SORT'
            AND   BenDaten.Sektion    = 'ARTST'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'SORT'
                BenDaten.Sektion    = 'ARTST'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.cFeld_1 = ipFeld
            BenDaten.Flag_1  = ipDesc.
        RELEASE BenDaten.
        LEAVE.
    END.
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setArtPreisSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setArtPreisSort Procedure 
FUNCTION setArtPreisSort RETURNS LOGICAL
    ( INPUT ipFeld AS CHARACTER, INPUT ipDesc AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'SORT'
            AND   BenDaten.Sektion    = 'ARTPREIS'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'SORT'
                BenDaten.Sektion    = 'ARTPREIS'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.cFeld_1 = ipFeld
            BenDaten.Flag_1  = ipDesc.
        RELEASE BenDaten.
        LEAVE.
    END.
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setBenutzerFWDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setBenutzerFWDatum Procedure 
FUNCTION setBenutzerFWDatum RETURNS LOGICAL
    ( ipcRecArt AS CHARACTER, ipcSektion AS CHARACTER, ipcSchluessel AS CHARACTER,
    ipiDatum  AS INTEGER , ipdDatum   AS DATE ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = ipcRecArt
            AND   BenDaten.Sektion    = ipcSektion
            AND   BenDaten.Schluessel = ipcSchluessel NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = ipcRecArt
                BenDaten.Sektion    = ipcSektion
                BenDaten.Schluessel = ipcSchluessel
                BenDaten.Erf_Datum  = TODAY
                Bendaten.Zug_Datum  = TODAY.
        END.
        CASE ipiDatum:
            WHEN 1 THEN 
                BenDaten.cFeld_1 = STRING(ipdDatum,'99.99.9999').
            WHEN 2 THEN 
                BenDaten.cFeld_2 = STRING(ipdDatum,'99.99.9999').
            WHEN 3 THEN 
                BenDaten.cFeld_3 = STRING(ipdDatum,'99.99.9999').
            WHEN 4 THEN 
                BenDaten.cFeld_4 = STRING(ipdDatum,'99.99.9999').
            WHEN 5 THEN 
                BenDaten.cFeld_5 = STRING(ipdDatum,'99.99.9999').
        END CASE.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setBeskoParameter) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setBeskoParameter Procedure
FUNCTION setBeskoParameter RETURNS LOGICAL 
    ( ipSektion AS CHARACTER, INPUT-OUTPUT iphtParam AS HANDLE ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'BESKOPARAM'
            AND   BenDaten.Sektion    = ipSektion
            AND   BenDaten.Schluessel = STRING(INTEGER(iphtParam::iKnr),'999999') NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'BESKOPARAM'
                BenDaten.Sektion    = ipSektion
                BenDaten.Schluessel = STRING(INTEGER(iphtParam::iKnr),'999999')
                BenDaten.Erf_Datum  = TODAY NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1    = iphtParam::lUnter
            BenDaten.Flag_2    = iphtParam::lVerbrauch
            BenDaten.Flag_3    = iphtParam::lBewegungen
            BenDaten.Zug_Datum = TODAY
            BenDaten.cFeld_1   = iphtParam::dLetztBest
            BenDaten.cFeld_2   = iphtParam::dReserviertdatum
            BenDaten.cFeld_3   = iphtParam::dBestandesdatum
            BenDaten.cFeld_4   = iphtParam::dVon
            BenDaten.cFeld_5   = iphtParam::dBis
            BenDaten.iFeld_1   = iphtParam::iKnr
            BenDaten.iFeld_2   = iphtParam::iBesnr
            BenDaten.iFeld_3   = iphtParam::iIntervall
            BenDaten.iFeld_4   = iphtParam::iLieferfrist
            BenDaten.dFeld_1   = iphtParam::nMindProz
            BenDaten.dFeld_2   = iphtParam::nAufrunden
            .
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

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


&ENDIF


&IF DEFINED(EXCLUDE-setComboSort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setComboSort Procedure 
FUNCTION setComboSort RETURNS LOGICAL
    ( ipSektion AS CHARACTER, ipComboBox AS HANDLE, ipSort AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'CB_SORT'
            AND   BenDaten.Sektion    = ipSektion
            AND   BenDaten.Schluessel = ipComboBox:NAME NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'CB_SORT'
                BenDaten.Sektion    = ipSektion
                BenDaten.Schluessel = ipComboBox:NAME
                BenDaten.Erf_Datum  = TODAY NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1    = ipSort
            BenDaten.Zug_Datum = TODAY
            ipComboBox:SORT    = ipSort NO-ERROR.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setDDAbsatzFehlwerte) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setDDAbsatzFehlwerte Procedure
FUNCTION setDDAbsatzFehlwerte RETURNS LOGICAL 
    ( INPUT iphtParam AS HANDLE ):
    /*------------------------------------------------------------------------------*/
    /* Purpose:                                                                     */
    /* Notes:                                                                       */
    /*------------------------------------------------------------------------------*/

    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
        FIND BenDaten
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'DDABSATZ'
            AND   BenDaten.Sektion    = STRING(iphtParam::iHerst    ,'999999')
            AND   BenDaten.Schluessel = STRING(iphtParam::iLieferant,'999999') NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            CREATE  BenDaten.
            ASSIGN
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'DDABSATZ'
                BenDaten.Sektion    = STRING(iphtParam::iHerst    ,'999999')
                BenDaten.Schluessel = STRING(iphtParam::iLieferant,'999999')
                BenDaten.Erf_Datum  = TODAY NO-ERROR.
        END. 
        ASSIGN  
            BenDaten.Flag_1         = iphtParam::lAbschluss
            BenDaten.Flag_2         = iphtParam::lTest
            BenDaten.cFeld_1        = STRING(DATE(iphtParam::dvonDatum),'99.99.9999')
            BenDaten.cFeld_2        = STRING(DATE(iphtParam::dbisDatum),'99.99.9999')
            BenDaten.cFeld_3        = iphtParam::cWgr
            BenDaten.iFeld_1        = iphtParam::iLieferant
            BenDaten.iFeld_2        = iphtParam::iHerst
            .
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

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


&ENDIF


&IF DEFINED(EXCLUDE-setEPAnpassung) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setEPAnpassung Procedure
FUNCTION setEPAnpassung RETURNS LOGICAL 
    ( iplDEP AS LOGICAL, iplIntern AS LOGICAL, iplLEP AS LOGICAL, iplListenEP AS LOGICAL ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE lRetVal AS LOG NO-UNDO INIT FALSE.

    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
        FIND BenDaten
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'Fehlwert'
            AND   BenDaten.Sektion    = 'EPANPASSUNG'
            AND   BenDaten.Schluessel = '' NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'Fehlwert'
                BenDaten.Sektion    = 'EPANPASSUNG'
                BenDaten.Schluessel = ''.
        END.
        ASSIGN  
            BenDaten.Flag_1 = iplDEP
            BenDaten.Flag_2 = iplIntern
            BenDaten.Flag_3 = iplLEP
            BenDaten.Flag_4 = iplListenEP
            lRetVal         = TRUE.
        RELEASE BenDaten.
        LEAVE.
    END.

    RETURN lRetVal.

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


&ENDIF


&IF DEFINED(EXCLUDE-setErrorMessage) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setErrorMessage Procedure
FUNCTION setErrorMessage RETURNS LOGICAL 
    ( ipcTyp AS CHARACTER, ipcMessage AS CHARACTER, ipiErrNo AS INTEGER, iplRetVal AS LOGICAL ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO INIT FALSE.

    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
        FIND eBenDaten
            WHERE eBenDaten.Benutzer   = Benutzer
            AND   eBenDaten.Konzern    = Konzern
            AND   eBenDaten.Firma      = Firma
            AND   eBenDaten.Filiale    = Filiale
            AND   eBenDaten.RecArt     = 'ERROR'
            AND   eBenDaten.Sektion    = ipcTyp
            AND   eBenDaten.Schluessel = '' NO-ERROR.
        IF NOT AVAILABLE eBenDaten THEN 
        DO:
            CREATE  eBenDaten.
            ASSIGN  
                eBenDaten.Benutzer   = Benutzer
                eBenDaten.Konzern    = Konzern
                eBenDaten.Firma      = Firma
                eBenDaten.Filiale    = Filiale
                eBenDaten.RecArt     = 'ERROR'
                eBenDaten.Sektion    = ipcTyp
                eBenDaten.Schluessel = ''
                eBenDaten.Erf_Datum  = TODAY 
                eBenDaten.Zug_Datum  = TODAY.
        END.
        
        CASE ipcTyp:
            WHEN 'CHARACTER' THEN 
                eBenDaten.cFeld_1 = ipcMessage.
            WHEN 'INTEGER'   THEN 
                eBenDaten.iFeld_1 = ipiErrNo  .
            WHEN 'LOGICAL'   THEN 
                eBenDaten.Flag_1  = iplRetVal .
            WHEN 'DATE'      THEN 
                eBenDaten.cFeld_1 = ipcMessage.
        END CASE.
            
        ASSIGN  
            eBenDaten.Zug_Datum = TODAY.
        
        lRetVal = TRUE.
        RELEASE eBenDaten.
        LEAVE.
    END.

    RETURN lRetVal.

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


&ENDIF


&IF DEFINED(EXCLUDE-setFieldSecure) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setFieldSecure Procedure 
FUNCTION setFieldSecure RETURNS LOGICAL
    ( ipcFirma AS CHARACTER, iphScreen AS HANDLE, ipcName AS CHARACTER, ipcBenutzer AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE hFenster   AS HANDLE    NO-UNDO.
    DEFINE VARIABLE cType      AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cFieldName AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cLabel     AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lBrowse    AS LOGICAL   INIT FALSE NO-UNDO.
    DEFINE VARIABLE cTitel     AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cProgramm  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iPos       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cExclude   AS CHARACTER NO-UNDO
        INIT 'RECTANGLE,LITERAL,FRAME,FIELD-GROUP,BROWSE'.
    DEFINE VARIABLE cHandles   AS CHARACTER NO-UNDO
        INIT 'BROWSE,FIELD-GROUP'.
            
    DEFINE BUFFER bFeldBerecht FOR FeldBerecht.
    
    cProgramm = ipcName.
    iPos      = R-INDEX(cProgramm, '.') - 1.
    IF iPos > 1 THEN cProgramm = TRIM(SUBSTRING(ipcName,01,iPos)).
    
    FIND FIRST FeldBerecht NO-LOCK
        WHERE FeldBerecht.Firma    = ipcFirma
        AND   FeldBerecht.Benutzer = ipcBenutzer
        AND   FeldBerecht.Programm = cProgramm NO-ERROR.
    IF NOT AVAILABLE FeldBerecht THEN RETURN FALSE.
    
    EMPTY TEMP-TABLE tScreens.
    CREATE  tScreens.
    ASSIGN  
        tScreens.hScreen = iphScreen
        tScreens.lAktiv  = FALSE.

    IF iphScreen:TYPE BEGINS 'BROWS' THEN lBrowse = TRUE.
    IF lBrowse THEN hFenster = iphScreen:FIRST-COLUMN.
    ELSE            hFenster = iphScreen:FIRST-CHILD.
    DO WHILE VALID-HANDLE(hFenster):
        cType = hFenster:TYPE.
        IF LOOKUP(cType, cHandles, ',') > 0 THEN 
        DO:
            CREATE  tScreens.
            ASSIGN  
                tScreens.hScreen = hFenster
                tScreens.lAktiv  = TRUE.
        END.
        IF lBrowse THEN hFenster = hFenster:NEXT-COLUMN.
        ELSE            hFenster = hFenster:NEXT-SIBLING.
    END.
    
    DO WHILE TRUE:
        FIND FIRST tScreens
            WHERE tScreens.lAktiv = TRUE NO-ERROR.
        IF NOT AVAILABLE tScreens THEN LEAVE.

        tScreens.lAktiv = FALSE.
        hFenster        = tScreens.hScreen.
        IF hFenster:TYPE BEGINS 'BROWS' THEN lBrowse = TRUE.
        IF lBrowse THEN hFenster = hFenster:FIRST-COLUMN.
        ELSE            hFenster = hFenster:FIRST-CHILD.
        DO WHILE VALID-HANDLE(hFenster):
            cType = hFenster:TYPE.
            IF LOOKUP(cType, cHandles, ',') > 0 THEN 
            DO:
                CREATE  tScreens.
                ASSIGN  
                    tScreens.hScreen = hFenster
                    tScreens.lAktiv  = TRUE.
            END.
            IF lBrowse THEN hFenster = hFenster:NEXT-COLUMN.
            ELSE            hFenster = hFenster:NEXT-SIBLING.
        END.
    END.

    FOR EACH tScreens:
        hFenster = tScreens.hScreen.
        lBrowse  = FALSE.
        IF hFenster:TYPE BEGINS 'BROWS' THEN lBrowse = TRUE.
        IF lBrowse THEN hFenster = hFenster:FIRST-COLUMN.
        ELSE            hFenster = hFenster:FIRST-CHILD.

        DO WHILE VALID-HANDLE (hFenster) :
            DO WHILE TRUE:
                cLabel = ''.
                cType  = hFenster:TYPE.
                IF LOOKUP(cType, cExclude, ',') > 0 THEN LEAVE.
                
                IF lBrowse THEN 
                    IF NOT hFenster:VISIBLE THEN LEAVE. 
                    ELSE.
                ELSE
                    IF hFenster:HIDDEN      THEN LEAVE. 
                    ELSE.
                
                cFieldName = hFenster:NAME.
                cLabel     = hFenster:LABEL.

                FIND FIRST bFeldBerecht NO-LOCK
                    WHERE bFeldBerecht.Firma     = ipcFirma
                    AND   bFeldBerecht.Benutzer  = ipcBenutzer
                    AND   bFeldBerecht.Programm  = cProgramm
                    AND   bFeldBerecht.Feld      = cFieldName NO-ERROR.
                IF NOT AVAILABLE bFeldBerecht THEN  LEAVE.
                IF NOT bFeldBerecht.Zeigen THEN 
                DO:
                    hFenster:HIDDEN = TRUE.
                    LEAVE.
                END.
                IF NOT bFeldBerecht.Mutieren THEN 
                DO:
                    hFenster:READ-ONLY = TRUE.
                    LEAVE.
                END.
                LEAVE.
            END.

            IF lBrowse THEN hFenster = hFenster:NEXT-COLUMN.
            ELSE            hFenster = hFenster:NEXT-SIBLING.
        END.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setFWAufSta) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setFWAufSta Procedure 
FUNCTION setFWAufSta RETURNS LOGICAL
    ( ipAufSta AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'Fehlwert'
            AND   BenDaten.Sektion    = 'AUFSTA'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'Fehlwert'
                BenDaten.Sektion    = 'AUFSTA'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        BenDaten.iFeld_1 = ipAufSta.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setFWLager) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setFWLager Procedure 
FUNCTION setFWLager RETURNS LOGICAL
    ( ipLager AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'Fehlwert'
            AND   BenDaten.Sektion    = 'LAGER'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'Fehlwert'
                BenDaten.Sektion    = 'LAGER'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        BenDaten.iFeld_1 = ipLager.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setHistorieEinkaeufe) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setHistorieEinkaeufe Procedure 
FUNCTION setHistorieEinkaeufe RETURNS LOGICAL
    ( ipFlag AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'EINKAEUFE'
            AND   BenDaten.Sektion    = 'ARTIKELHISTORIE'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'EINKAEUFE'
                BenDaten.Sektion    = 'ARTIKELHISTORIE'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1    = ipFlag
            BenDaten.Zug_Datum = TODAY.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF

&IF DEFINED(EXCLUDE-setHistorieVerkaeufe) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setHistorieVerkaeufe Procedure 
FUNCTION setHistorieVerkaeufe RETURNS LOGICAL
    ( ipFlag AS LOG ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = Konzern
            AND   BenDaten.Firma      = Firma
            AND   BenDaten.Filiale    = Filiale
            AND   BenDaten.RecArt     = 'VERKAEUFE'
            AND   BenDaten.Sektion    = 'ARTIKELHISTORIE'
            AND   BenDaten.Schluessel = '' NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                LEAVE.
            END.
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = Benutzer
                BenDaten.Konzern    = Konzern
                BenDaten.Firma      = Firma
                BenDaten.Filiale    = Filiale
                BenDaten.RecArt     = 'VERKAEUFE'
                BenDaten.Sektion    = 'ARTIKELHISTORIE'
                BenDaten.Schluessel = '' NO-ERROR.
        END.
        ASSIGN  
            BenDaten.Flag_1 = ipFlag.
        RELEASE BenDaten.
        LEAVE.
    END.
    
    RETURN TRUE.

END FUNCTION.

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

&ENDIF