&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: 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