GeMIS_WEB/GUI/super/funktionen.p

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12
&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 VSprcd AS INTEGER NO-UNDO.
DEFINE VARIABLE Benutzer      AS CHARACTER FORMAT "x(40)" NO-UNDO.
DEFINE VARIABLE Kennwort      AS CHARACTER NO-UNDO.
DEFINE VARIABLE MandKurz      AS CHARACTER NO-UNDO.
DEFINE VARIABLE MandName      AS CHARACTER NO-UNDO.
DEFINE VARIABLE BenSprcd      AS INTEGER   NO-UNDO.
DEFINE VARIABLE cBenDaten     AS CHARACTER NO-UNDO.
DEFINE VARIABLE cBerecht      AS CHARACTER NO-UNDO.
DEFINE VARIABLE BenAdmin      AS LOGICAL   NO-UNDO.
DEFINE VARIABLE BenSpezflag   AS LOGICAL   NO-UNDO.
DEFINE VARIABLE BenSupervisor AS LOGICAL   NO-UNDO.
DEFINE VARIABLE AktFeld       AS CHARACTER NO-UNDO.
DEFINE VARIABLE Tabelle       AS CHARACTER NO-UNDO.
DEFINE VARIABLE EntryFeld     AS CHARACTER INIT ? NO-UNDO.
DEFINE VARIABLE EAVCode       AS CHARACTER NO-UNDO.
DEFINE VARIABLE EWKCode       AS CHARACTER NO-UNDO.
DEFINE VARIABLE fAdmin        AS LOGICAL   NO-UNDO.
DEFINE VARIABLE lSpez         AS LOGICAL   NO-UNDO.
DEFINE VARIABLE DBBenutzer    AS CHARACTER NO-UNDO.
DEFINE VARIABLE iBenLager     AS INTEGER   NO-UNDO.
DEFINE VARIABLE cLogDBName    AS CHARACTER NO-UNDO.
DEFINE VARIABLE lRueckstand   AS LOGICAL   NO-UNDO.
DEFINE VARIABLE lBatch        AS LOGICAL   INIT FALSE NO-UNDO.
DEFINE VARIABLE cLogName      AS CHARACTER NO-UNDO.

DEFINE VARIABLE FMutation     AS LOGICAL   NO-UNDO.
DEFINE VARIABLE FAbbruch      AS LOGICAL   NO-UNDO.
DEFINE VARIABLE MutProg       AS CHARACTER NO-UNDO.
DEFINE VARIABLE mOCRB         AS MEMPTR    NO-UNDO.
DEFINE VARIABLE lOCRB         AS LOGICAL   INIT FALSE NO-UNDO.
DEFINE VARIABLE lOK           AS LOGICAL   NO-UNDO.

DEFINE STREAM ocrStream.
DEFINE STREAM Out_Stream.
DEFINE STREAM LogStream.

DEFINE VARIABLE hHandle AS HANDLE NO-UNDO.

DEFINE TEMP-TABLE tProgramme   
    FIELD Prog   AS CHARACTER
    FIELD Proz   AS HANDLE
    FIELD MFlag  AS LOG
    FIELD AbFlag AS LOG
    FIELD Titel  AS CHARACTER
    INDEX tProgramme-k1 IS PRIMARY 
    Prog.

DEFINE TEMP-TABLE tSteuer  LIKE Steuer.
DEFINE TEMP-TABLE tAdresse LIKE Adresse
    FIELD ARecid AS RECID
    FIELD ARowid AS ROWID.

DEFINE TEMP-TABLE tArtst LIKE Artst   
    FIELD iRecid AS RECID.
DEFINE VARIABLE htArtst AS HANDLE NO-UNDO.

DEFINE TEMP-TABLE tFelder     
    FIELD cName   AS CHARACTER
    FIELD hFeld   AS HANDLE
    FIELD cInhalt AS CHARACTER
    FIELD fOK     AS LOG.
                            
DEFINE TEMP-TABLE tBenDaten NO-UNDO LIKE BenDaten.

DEFINE TEMP-TABLE tParam NO-UNDO
    FIELD ParArt   AS CHARACTER
    FIELD Par_char AS CHARACTER
    FIELD Par_int  AS INTEGER
    FIELD Par_dec  AS DECIMAL
    FIELD Par_date AS DATE
    .
    
DEFINE TEMP-TABLE tDrucker NO-UNDO
    FIELD cDrucker AS CHARACTER
    .
DEFINE TEMP-TABLE tScreens NO-UNDO
    FIELD hScreen AS HANDLE
    FIELD lAktiv  AS LOG.

DEFINE TEMP-TABLE tArtBarcode
    FIELD Artnr  AS INTEGER
    FIELD Inhalt AS INTEGER 
    FIELD Jahr   AS INTEGER 
    
    INDEX tArtBarcode-k1
    Artnr
    Inhalt
    Jahr.

{ incl/tmpbrowser.i }

/* _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-antwort_ja) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD antwort_ja Procedure 
FUNCTION antwort_ja RETURNS LOGICAL
    ( INPUT ipNummer AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD checkComboSort Procedure 
FUNCTION checkComboSort RETURNS LOGICAL
    ( Fenster AS HANDLE, ipObjects AS CHARACTER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD fehlerMeldung Procedure 
FUNCTION fehlerMeldung RETURNS LOGICAL
    ( ipNummer AS INTEGER, ipcParam AS CHARACTER  ) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD findArtikelByEAN Procedure 
FUNCTION findArtikelByEAN RETURNS INTEGER
    ( INPUT-OUTPUT iohtTable AS HANDLE ) FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAdressAnzeige Procedure 
FUNCTION getAdressAnzeige RETURNS CHARACTER
    ( Knr AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD GEtAdresseANZEIGEBR Procedure 
FUNCTION GEtAdresseANZEIGEBR RETURNS CHARACTER
    ( Knr AS INTEGER, Art AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAdresseSuchbe Procedure 
FUNCTION getAdresseSuchbe RETURNS CHARACTER
    ( Knr AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAktPreisGruppe Procedure 
FUNCTION getAktPreisGruppe RETURNS CHARACTER
    ( ipGrp   AS INTEGER  )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAlkoholGehalt Procedure 
FUNCTION getAlkoholGehalt RETURNS DECIMAL
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getArtikelBezeichnung Procedure 
FUNCTION getArtikelBezeichnung RETURNS CHARACTER
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getArtikelGrp Procedure 
FUNCTION getArtikelGrp RETURNS CHARACTER
    ( ipiWgr AS INTEGER , ipiPgr AS INTEGER, ipiAgr AS INTEGER ) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD GETARTRABATTGRP Procedure 
FUNCTION GETARTRABATTGRP RETURNS CHARACTER
    ( Rab_Grp AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFehlwert Procedure 
FUNCTION getFehlwert RETURNS CHARACTER
    ( ipcFirma AS CHARACTER, ipcFWArt AS CHARACTER ) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFensterPosition Procedure 
FUNCTION getFensterPosition RETURNS CHARACTER
    ( ipSektion AS CHARACTER, ipSchluessel AS CHARACTER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getFremdNr Procedure 
FUNCTION getFremdNr RETURNS CHARACTER
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getGGebindeInhalt Procedure 
FUNCTION getGGebindeInhalt RETURNS INTEGER
    ( ipGeb_Cd AS CHARACTER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getKGebindeInhalt Procedure 
FUNCTION getKGebindeInhalt RETURNS INTEGER
    ( ipGeb_Cd AS CHARACTER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLagerBestand Procedure 
FUNCTION getLagerBestand RETURNS DECIMAL
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER, ipLager AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLagerort Procedure 
FUNCTION getLagerort RETURNS CHARACTER
    ( INPUT iLager AS INTEGER, INPUT iArtnr AS INTEGER, INPUT iInhalt AS INTEGER, INPUT iJahr AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLagerPlatz Procedure 
FUNCTION getLagerPlatz RETURNS CHARACTER
    ( ipiArtnr AS INTEGER, ipiInhalt AS INTEGER, ipiJahr AS INTEGER ) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLagerTransArt Procedure 
FUNCTION getLagerTransArt RETURNS CHARACTER
    ( ipTr_Art AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLockedUser Procedure 
FUNCTION getLockedUser RETURNS CHARACTER
    ( ipRecid AS RECID )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getMeldung Procedure 
FUNCTION getMeldung RETURNS CHARACTER
    ( ipNr AS INTEGER, ipSprcd AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getMinMarge Procedure 
FUNCTION getMinMarge RETURNS DECIMAL
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getPreisGrp Procedure 
FUNCTION getPreisGrp RETURNS CHARACTER
    ( Preis_Grp AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getPreisGrpFrw Procedure 
FUNCTION getPreisGrpFrw RETURNS CHARACTER
    ( ipGrp AS INTEGER ) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getProdukteGrp Procedure 
FUNCTION getProdukteGrp RETURNS CHARACTER
    ( ipiWgr AS INTEGER , ipiPgr AS INTEGER   ) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getProgParam Procedure 
FUNCTION getProgParam RETURNS CHARACTER
    ( ipParArt AS CHARACTER, ipParTyp AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getSearch Procedure 
FUNCTION getSearch RETURNS CHARACTER
    ( ipcDateiName AS CHARACTER, ipcParam AS CHARACTER   ) FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getSpesenArt Procedure 
FUNCTION getSpesenArt RETURNS CHARACTER
    ( SpesenArt AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getTotalBestand Procedure 
FUNCTION getTotalBestand RETURNS DECIMAL
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER, ipLager AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD GETUMSATZGRP Procedure 
FUNCTION GETUMSATZGRP RETURNS CHARACTER
    ( Ums_Grp AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getVGebindeInhalt Procedure 
FUNCTION getVGebindeInhalt RETURNS INTEGER
    ( ipGeb_Cd AS CHARACTER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD GETWARENGRP Procedure 
FUNCTION GETWARENGRP RETURNS CHARACTER
    ( Wg_Grp AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getWochentag Procedure 
FUNCTION getWochentag RETURNS CHARACTER
    ( ipDatum AS DATE )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD GETZAHKONTO Procedure 
FUNCTION GETZAHKONTO RETURNS CHARACTER
    ( ipArt AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD GET_FEHLWERTE Procedure 
FUNCTION GET_FEHLWERTE RETURNS LOGICAL
    ( ipProgname AS CHARACTER, ipFenster AS HANDLE )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD MAKEANSCHRIFT Procedure 
FUNCTION MAKEANSCHRIFT RETURNS CHARACTER
    ( INPUT VAdresse AS CHARACTER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD MAKEBROWSERANZEIGE Procedure 
FUNCTION MAKEBROWSERANZEIGE RETURNS CHARACTER
    ( INPUT VAdresse AS CHARACTER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD makeProgname Procedure 
FUNCTION makeProgname RETURNS CHARACTER
    ( ipProc AS HANDLE )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD putDateiToPrinter Procedure 
FUNCTION putDateiToPrinter RETURNS INTEGER
    ( ipDatei     AS CHARACTER ,
    ipSchrift   AS RECID,
    ipSchacht   AS INTEGER  ,
    ipBlockSize AS INTEGER  ,
    ipMapTo     AS CHARACTER ,
    ipKopien    AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD PUT_FEHLWERTE Procedure 
FUNCTION PUT_FEHLWERTE RETURNS LOGICAL
    ( ipProgname AS CHARACTER, ipFenster AS HANDLE )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setAktFelder Procedure 
FUNCTION setAktFelder RETURNS LOGICAL
    ( INPUT Felder AS CHARACTER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD SETARTNR Procedure 
FUNCTION SETARTNR RETURNS LOGICAL
    ( Artnr AS INTEGER, Inhalt AS INTEGER, Jahr AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setArtstInSuperproc Procedure 
FUNCTION setArtstInSuperproc RETURNS LOGICAL
    ( ipBuffer AS HANDLE )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setFehlwert Procedure 
FUNCTION setFehlwert RETURNS LOGICAL
    ( ipcFirma AS CHARACTER, ipcFWArt AS CHARACTER, ipcTyp AS CHARACTER, ipcWert AS CHARACTER ) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setFensterPosition Procedure 
FUNCTION setFensterPosition RETURNS LOGICAL
    ( ipSektion AS CHARACTER, ipSchluessel AS CHARACTER, ipX AS INTEGER, ipY AS INTEGER  )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setFlagAbbruch Procedure 
FUNCTION setFlagAbbruch RETURNS LOGICAL
    ( ipFlag AS LOG, ipProg AS CHARACTER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setFlagOK Procedure 
FUNCTION setFlagOK RETURNS l
    ( iplOK AS LOGICAL ) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setGebRgArtnr Procedure 
FUNCTION setGebRgArtnr RETURNS LOGICAL
    ( ipKnr AS INTEGER, ipArtnr AS INTEGER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setGebRgFakart Procedure 
FUNCTION setGebRgFakart RETURNS LOGICAL
    ( ipKnr AS INTEGER, ipFakart AS INTEGER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD SETLAGERORT Procedure 
FUNCTION SETLAGERORT RETURNS LOGICAL
    ( INPUT iLager AS INTEGER, INPUT iArtnr  AS INTEGER, INPUT iInhalt AS INTEGER,
    INPUT iJahr  AS INTEGER, INPUT cLagOrt AS CHARACTER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD SETMODIFIEDFLAG Procedure 
FUNCTION SETMODIFIEDFLAG RETURNS LOGICAL
    ( Fenster AS HANDLE, ipFLag AS LOGICAL )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setMutflag Procedure 
FUNCTION setMutflag RETURNS LOGICAL
    ( INPUT ipFlag  AS LOG, INPUT ipProgName AS CHARACTER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setProgParam Procedure 
FUNCTION setProgParam RETURNS LOGICAL
    ( ipParArt AS CHARACTER, ipParTyp AS INTEGER, ipParam AS CHARACTER )  FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD SETSELEKTION Procedure 
FUNCTION SETSELEKTION RETURNS LOGICAL
    ( ipProgramm AS CHARACTER, ipSelektion AS CHARACTER )  FORWARD.

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

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

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD writeLogFile Procedure 
FUNCTION writeLogFile RETURNS LOGICAL
    ( ipMessage AS CHARACTER  )  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             = 42.29
         WIDTH              = 77.2.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


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


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

FMutation = FALSE.
FAbbruch  = FALSE.
MutProg   = ''.
Benutzer  = ?.
Kennwort  = ?.
BenSprcd  = 1.
VSprcd    = 1.
MandKurz  = ?.

RUN COPY_STEUER.

EMPTY TEMP-TABLE tAdresse  .
EMPTY TEMP-TABLE tArtst    .
EMPTY TEMP-TABLE tProgramme.
CREATE  tAdresse.
CREATE  tArtst  .
htArtst = TEMP-TABLE tArtst:DEFAULT-BUFFER-HANDLE.

PROCEDURE GetUserNameA EXTERNAL "advapi32.dll":
    DEFINE OUTPUT       PARAMETER lpUserName   AS MEMPTR.
    DEFINE INPUT-OUTPUT PARAMETER nChars       AS LONG.
    DEFINE RETURN       PARAMETER bool         AS SHORT.
END PROCEDURE.

/*  ------------------------------------------------------------------
    TRIGGERS
    ------------------------------------------------------------------  */
ON 'CTRL-F':U ANYWHERE
    DO:
        DEFINE VARIABLE hParent AS HANDLE NO-UNDO.
        DEFINE VARIABLE hFocus  AS HANDLE NO-UNDO.

        hFocus = FOCUS.
        DO WHILE VALID-HANDLE(hFocus):
            IF hFocus:TYPE BEGINS 'PROC' THEN MESSAGE hFocus:FILE-NAME.
            hParent = hFocus.
            hFocus  = hParent:PARENT.
        END.
        MESSAGE hParent:TITLE.
        RETURN.
    END.

ON 'ALT-CTRL-A':U ANYWHERE
    DO:
        DEFINE VARIABLE ii      AS INTEGER   NO-UNDO.
        DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
        DEFINE VARIABLE hFeld   AS HANDLE    NO-UNDO.
    
        cString = ''.
        FIND FIRST tArtst NO-ERROR.
        DO ii = 1 TO htArtst:NUM-FIELDS:
            hFeld = htArtst:BUFFER-FIELD(ii).
            IF hFeld:EXTENT > 0 THEN NEXT.
            IF hFeld:TYPE BEGINS 'DAT' THEN NEXT.
            IF hFeld:BUFFER-VALUE = ? THEN NEXT.
            cString = cString + htArtst:BUFFER-FIELD(ii):NAME
                + ' = '
                + htArtst:BUFFER-FIELD(ii):BUFFER-VALUE
                + CHR(10).
        END.
        MESSAGE cString VIEW-AS ALERT-BOX INFORMATION.
    END.

ON 'ALT-CTRL-P':U ANYWHERE
    DO:
        DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
        cString = ''.
        FOR EACH tProgramme NO-LOCK:
            cString = cString + tProgramme.Prog
                + ' mit MutStatus = '
                + STRING(tProgramme.MFlag)
                + CHR(10).
        END.
        MESSAGE cString VIEW-AS ALERT-BOX INFORMATION.
    END.

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


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

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

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

    DEFINE INPUT PARAMETER XString     AS CHARACTER                 NO-UNDO.
    
    DEFINE VARIABLE cWinUser AS CHARACTER NO-UNDO.

    Benutzer   = ENTRY( 1, XString, CHR(01) ).
    Kennwort   = ENTRY( 2, XString, CHR(01) ).
    MandKurz   = ENTRY( 3, XString, CHR(01) ).
    DBBenutzer = DYNAMIC-FUNCTION('getDBUser':U) NO-ERROR.
    
    IF  DBBenutzer = '' OR
        DBBenutzer = ?  THEN DBBenutzer = DYNAMIC-FUNCTION('getSysUser':U).

    EMPTY TEMP-TABLE tBenDaten.    
    REPEAT TRANSACTION:
        FIND Benutzer USE-INDEX Benutzer-k1
            WHERE Benutzer.Benutzer = Benutzer.
        Benutzer.Firma = MandKurz.
        BenSprcd  = Benutzer.Sprcd.
        VSprcd    = Benutzer.Sprcd.
        fAdmin    = Benutzer.Admin.
        lSpez     = Benutzer.lSpez.
        iBenLager = Benutzer.Lager.
        cBenDaten = Benutzer.Benutzer                + CHR(01)   /* ENTRY 1  */
            + Benutzer.Anzeige                 + CHR(01)   /* ENTRY 2  */
            + Benutzer.Kurz                    + CHR(01)   /* ENTRY 3  */
            + STRING(Benutzer.Admin,"Ja/Nein") + CHR(01)   /* ENTRY 4  */
            + STRING(Benutzer.Knr)             + CHR(01)   /* ENTRY 5  */
            + STRING(Benutzer.Sprcd)           + CHR(01)   /* ENTRY 6  */
            + Benutzer.Kennwort                + CHR(01)   /* ENTRY 7  */
            + Benutzer.Firma                   + CHR(01)   /* ENTRY 8  */
            + STRING(Benutzer.Jahr).
                 
        ASSIGN  
            BenAdmin = Benutzer.Admin.
        IF BenSprcd = 0 THEN BenSprcd = 1.
        IF VSprcd   = 0 THEN VSprcd   = 1.
        RELEASE Benutzer.

        IF DBBenutzer = '' THEN LEAVE.
        FIND BenDaten USE-INDEX BenDaten-k1
            WHERE BenDaten.Benutzer   = DBBenutzer
            AND   BenDaten.Konzern    = '9999'
            AND   BenDaten.Firma      = MandKurz
            AND   BenDaten.Filiale    = '0000'
            AND   BenDaten.RecArt     = 'APPLSTART'
            AND   BenDaten.Sektion    = 'Benutzer'
            AND   BenDaten.Schluessel = DBBenutzer NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            CREATE  BenDaten.
            ASSIGN  
                BenDaten.Benutzer   = DBBenutzer
                BenDaten.Konzern    = '9999'
                BenDaten.Firma      = MandKurz
                BenDaten.Filiale    = '0000'
                BenDaten.RecArt     = 'APPLSTART'
                BenDaten.Sektion    = 'Benutzer'
                BenDaten.Schluessel = DBBenutzer NO-ERROR.
        END.
        RELEASE BenDaten.
        LEAVE.
    END.
    RELEASE Benutzer.
    
    FOR EACH BenDaten NO-LOCK
        WHERE BenDaten.Benutzer   = DBBenutzer
        AND   BenDaten.Konzern    = '9999'
        AND   BenDaten.Firma      = MandKurz
        AND   BenDaten.Filiale    = '0000':
        CREATE  tBenDaten.
        BUFFER-COPY BenDaten TO tBenDaten.
    END.
    IF Benutzer <> DBBenutzer THEN 
    DO:
        FOR EACH BenDaten NO-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = '9999'
            AND   BenDaten.Firma      = MandKurz
            AND   BenDaten.Filiale    = '0000':
            CREATE  tBenDaten.
            BUFFER-COPY BenDaten TO tBenDaten.
        END.
    END.

    FIND Mandant NO-LOCK USE-INDEX Mandant-k1
        WHERE Mandant.Firma = MandKurz NO-ERROR.
    MandName = Mandant.Name.
    Firma    = Mandant.Firma.
    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
    cInstallation = tSteuer.Fwc10.
    cLogDBName    = LDBNAME(1).
    lRueckstand   = (IF tSteuer.St10 = 1 THEN TRUE ELSE FALSE).
    
    cWinUser = DYNAMIC-FUNCTION ('getSysUser').

    FIND FIRST _User NO-LOCK NO-ERROR.
    
    IF AVAILABLE _User THEN 
    DO:
        FIND FIRST _User NO-LOCK
            WHERE _User._Userid      = cWinUser
            AND   _User._Domain-Name = '' NO-ERROR.

        DEFINE BUFFER bUser FOR _User.

        REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
            IF AVAILABLE _User THEN LEAVE.
            DYNAMIC-FUNCTION('setAuditUser':U, 'retlaw7591').
            CREATE buser.
            ASSIGN  
                buser._Userid        = cWinUser
                bUser._Password      = 'wr007'
                bUser._User-Name     = cWinUser
                bUser._sql-only-user = FALSE
                bUser._Domain-Name   = ''.
            RELEASE bUser.
            LEAVE.
        END.
        DYNAMIC-FUNCTION('setAuditUser':U, cWinUser).

        FIND FIRST _User NO-LOCK
            WHERE _User._Userid      = cWinUser
            AND   _User._Domain-Name = '' NO-ERROR.
        IF NOT AVAILABLE _User THEN QUIT.
        
    END.
        
    PUBLISH 'NEUERMANDANT' ( Benutzer, MandKurz ).

    PUT-KEY-VALUE SECTION DBBenutzer  KEY 'Mandant' VALUE MandKurz.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ipArt       AS INTEGER              NO-UNDO.
    DEFINE INPUT PARAMETER ipNetto     AS HANDLE               NO-UNDO.
    DEFINE INPUT PARAMETER ipBrutto    AS HANDLE               NO-UNDO.
    DEFINE INPUT PARAMETER ipMarge     AS HANDLE               NO-UNDO.
    DEFINE INPUT PARAMETER ipDatum     AS HANDLE               NO-UNDO.
    DEFINE INPUT PARAMETER ipFrw       AS CHARACTER            NO-UNDO.

    DEFINE VARIABLE MW     AS INTEGER   NO-UNDO.
    DEFINE VARIABLE Ans    AS DECIMAL   NO-UNDO.
    DEFINE VARIABLE EP     AS DECIMAL   DECIMALS 4 NO-UNDO.
    DEFINE VARIABLE Netto  AS DECIMAL   DECIMALS 4 NO-UNDO.
    DEFINE VARIABLE Brutto AS DECIMAL   DECIMALS 4 NO-UNDO.
    DEFINE VARIABLE Marge  AS DECIMAL   DECIMALS 8 NO-UNDO.
    DEFINE VARIABLE Datum  AS DATE      NO-UNDO.
    DEFINE VARIABLE BasFrw AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Kurs   AS DECIMAL   DECIMALS 4 NO-UNDO.
    DEFINE VARIABLE Faktor AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cType  AS CHARACTER NO-UNDO.

    cType = ipNetto:TYPE.
    CASE cType:
        WHEN 'FILL-IN' THEN 
            DO:
                Netto   = DECIMAL(ipNetto :SCREEN-VALUE).
                Brutto  = DECIMAL(ipBrutto:SCREEN-VALUE).
                Marge   = DECIMAL(ipMarge :SCREEN-VALUE).
                Datum   = DATE   (ipDatum :SCREEN-VALUE).
            END.
        WHEN 'BUFFER-FIELD' THEN 
            DO:
                Netto   = DECIMAL(ipNetto :BUFFER-VALUE).
                Brutto  = DECIMAL(ipBrutto:BUFFER-VALUE).
                Marge   = DECIMAL(ipMarge :BUFFER-VALUE).
                Datum   = DATE   (ipDatum :BUFFER-VALUE).
            END.
    END CASE.
    BasFrw  = DYNAMIC-FUNCTION('getFwFrw') NO-ERROR.
    IF ipFrw <> BasFrw THEN 
    DO:
        FIND Waehrung NO-LOCK USE-INDEX Waehrung-k1
            WHERE Waehrung.Firma = MandKurz
            AND   Waehrung.Frw   = ipFrw NO-ERROR.
        ASSIGN  
            Faktor = Waehrung.Faktor
            Kurs   = Waehrung.Kurs.
    END.
    ELSE 
    DO:
        ASSIGN  
            Faktor = 1
            Kurs   = 1.0.
    END.
    IF Kurs   = 0 THEN Kurs   = 1.0.
    IF Faktor = 0 THEN Faktor = 1.

    FIND FIRST tArtst NO-LOCK NO-ERROR.
    IF NOT AVAILABLE tArtst THEN RETURN 'ERROR'.

    EP      = tArtst.Listen_EP.
    IF EP = 0 THEN EP = tArtst.LEP.

    FIND FIRST tSteuer NO-LOCK 
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
    IF NOT AVAILABLE tSteuer THEN FIND FIRST tSteuer NO-LOCK NO-ERROR.

    FIND Wust USE-INDEX Wust-k1
        WHERE Wust.CodeK = tSteuer.MWST-Exkl
        AND   Wust.CodeA = tArtst.MWST NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Wust THEN RETURN 'MWSTCODE'.
    MW = Wust.WuCd.

    FIND LAST MWSTAns USE-INDEX MWSTAns-k1
        WHERE MWSTAns.MWST_Cd = MW
        AND   MWSTAns.Datum  <= Datum NO-LOCK NO-ERROR.
    IF NOT AVAILABLE MWSTAns THEN RETURN 'MWSTANSATZ'.
    Ans = MWSTAns.Ansatz.

    CASE ipArt:
        WHEN 1 THEN 
            DO:
                IF Netto > 0 THEN 
                DO:
                    Brutto = Netto * ( 100 + Ans ) / 100.
                    IF EP <> 0 THEN Marge = 100 - (EP * 100 / (Netto * Kurs / Faktor)).
                    ELSE            Marge = 0.
                END.
            END.
        WHEN 2 THEN 
            DO:
                IF Brutto > 0 THEN 
                DO:
                    Netto = Brutto * 100 / ( 100 + Ans ).
                    IF EP <> 0 THEN Marge = 100 - (EP * 100 / (Netto * Kurs / Faktor)).
                    ELSE            Marge = 0.
                END.
            END.
        WHEN 3 THEN 
            DO:
                IF EP <> 0 THEN 
                DO:
                    Netto  = EP    * 100           / ( 100 - Marge ) / Kurs * Faktor.
                    Brutto = Netto * ( 100 + Ans ) / 100.
                END.
            END.
    END CASE.

    CASE cType:
        WHEN 'FILL-IN' THEN 
            DO:
                ipNetto :SCREEN-VALUE = STRING(Netto).
                ipBrutto:SCREEN-VALUE = STRING(Brutto).
                ipMarge :SCREEN-VALUE = STRING(Marge).
                ipNetto :MODIFIED = FALSE.
                ipBrutto:MODIFIED = FALSE.
                ipMarge :MODIFIED = FALSE.
            END.
        WHEN 'BUFFER-FIELD' THEN 
            DO:
                ipNetto :BUFFER-VALUE = STRING(Netto).
                ipBrutto:BUFFER-VALUE = STRING(Brutto).
                ipMarge :BUFFER-VALUE = STRING(Marge).
            END.
    END CASE.

    RETURN ''.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipWert     AS  CHARACTER    NO-UNDO.
    DEFINE INPUT  PARAMETER ipCodeArt  AS  CHARACTER    NO-UNDO.
    DEFINE OUTPUT PARAMETER opBarCode  AS  CHARACTER    NO-UNDO.

    DEFINE VARIABLE clr  AS LOGICAL   INIT TRUE NO-UNDO.
    DEFINE VARIABLE wk   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE drw  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDir AS CHARACTER NO-UNDO.
    DEFINE VARIABLE k    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE att  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE kod  AS CHARACTER NO-UNDO
        INIT "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ.Ï *$/+%".

    att =
        "100100001001100001101100000000110001100110000001110000000100101100100100"
        + "001100100000110100100001001001001001101001000000011001100011000001011000"
        + "000001101100001100001001100000011100100000011001000011101000010000010011"
        + "100010010001010010000000111100000110001000110000010110110000001011000001"
        + "111000000010010001110010000011010000010000101110000100011000100010010100"
        + "010101000010100010010001010000101010".

    DEFINE VARIABLE i   AS INTEGER NO-UNDO.
    DEFINE VARIABLE j   AS INTEGER NO-UNDO.
    DEFINE VARIABLE l   AS INTEGER NO-UNDO.
    DEFINE VARIABLE brd AS INTEGER NO-UNDO.
    DEFINE VARIABLE jst AS INTEGER NO-UNDO.

    ASSIGN  
        i         = IF SUBSTRING (ipCodeArt, 1, 1) = "P" THEN 1 ELSE 2
        opBarCode = "~E&f0S~E*c100G"
        drw       = SUBSTRING("ab"     , i, 1)
                      + SUBSTRING(ipCodeArt, 6)
                      + SUBSTRING("ba"     , i, 1)
                      + "P"
        cDir      = SUBSTRING("XY", i, 1)
        k         = "*" + ipWert + "*" .

    DO i = 1 TO LENGTH(k):
        ASSIGN  
            j  = INDEX(kod, SUBSTRING (k, i, 1)) * 9 - 8
            wk = SUBSTRING (att, j, 9) + "0" .
        DO l = 1 TO 10:
            ASSIGN  
                brd       = IF SUBSTRING(wk,l,1) = "0" THEN 2 ELSE 4
                opBarCode = opBarCode
                              + (IF clr THEN "~E*c"  + SUBSTRING (ipCodeArt, brd, 2) + drw
                                        ELSE "~E*p+" + STRING(INTEGER(SUBSTRING(ipCodeArt, brd, 2))
                              + jst) + cDir)
                jst       = INTEGER (SUBSTRING (ipCodeArt, brd, 2))
                clr       = NOT clr.
        END. /* of looping 1 to 10 */
    END. /* of going through string 'k' */

    ASSIGN  
        opBarCode = opBarCode + "~E&f1S"
        wk        = "".

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipPrinterName  AS CHARACTER         NO-UNDO. 
    DEFINE OUTPUT PARAMETER opError        AS LOGICAL          NO-UNDO.

    DEFINE VARIABLE cCheckPrintLog AS CHARACTER NO-UNDO.
    
    cCheckPrintLog = SESSION:TEMP-DIRECTORY + 'CheckPrinter.log'.

    OUTPUT TO VALUE(cCheckPrintLog) KEEP-MESSAGES.  
    DO ON ERROR UNDO, RETRY 
        ON STOP UNDO, RETRY 
        ON QUIT UNDO, RETRY : 

        SESSION:PRINTER-NAME = ipPrinterName. 
    END.
    OUTPUT CLOSE.
    
    PAUSE 0.3 NO-MESSAGE. 

    ASSIGN  
        FILE-INFO:FILE-NAME = cCheckPrintLog 
        opError             = (FILE-INFO:FILE-SIZE <> 0). 
        
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.
    
    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.
    
    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:HIDDEN = TRUE THEN LEAVE.
            IF Fenster:TYPE = 'COMBO-BOX' THEN 
            DO:
                Fenster:SCREEN-VALUE = ' ' NO-ERROR.
                LEAVE.
            END.
            IF Fenster:TYPE = 'FILL-IN' THEN 
            DO:
                IF Fenster:DATA-TYPE = 'INTEGER'   THEN Fenster:SCREEN-VALUE = ''.
                IF Fenster:DATA-TYPE = 'DECIMAL'   THEN Fenster:SCREEN-VALUE = ''.
                IF Fenster:DATA-TYPE = 'CHARACTER' THEN Fenster:SCREEN-VALUE = ''.
                IF Fenster:DATA-TYPE = 'LOGICAL'   THEN Fenster:SCREEN-VALUE = 'no'.
                IF Fenster:DATA-TYPE = 'DATE'      THEN Fenster:SCREEN-VALUE = ?.
            END.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    FOR EACH tBenDaten TRANSACTION:
        FIND BenDaten EXCLUSIVE-LOCK OF tBenDaten NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN NEXT.
            CREATE  BenDaten.
            BUFFER-COPY tBenDaten TO BenDaten.
            NEXT.
        END.

        IF tBenDaten.Zug_Datum < (TODAY - 365) THEN 
        DO:
            DELETE  BenDaten.
            DELETE  tBenDaten.
            NEXT.
        END.

        BUFFER-COPY tBenDaten EXCEPT Konzern
            Firma
            Filiale
            RecArt
            Sektion
            Schluessel
            TO BenDaten.
    END.
    RELEASE BenDaten.
    RELEASE tBenDaten.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'ABCGRP' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'ABLAD' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.

    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE Firma   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Sprcd   AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cAdrArt AS CHARACTER NO-UNDO.

    IHandle:DELIMITER = ';'.
    Firma   = DYNAMIC-FUNCTION('GETADMANDANT':U)  NO-ERROR.
    Sprcd   = DYNAMIC-FUNCTION('GETSPRCD':U)      NO-ERROR.
    cString = ''.
    FOR EACH Adrart USE-INDEX Adrart-k1
        WHERE Adrart.Firma = Firma
        AND   Adrart.Sprcd = Sprcd  NO-LOCK
        BY Adrart.Bez:
        IF AdrArt.Kurz = '' THEN cAdrArt =  '....'.
        ELSE                     cAdrArt = Adrart.Kurz.
        cString = cString + ';' + Adrart.Bez + ';' + cAdrArt.
    END.
    IF cString = '' THEN cString = ';'.
    ELSE                 cString = SUBSTRING(cString,02).
    IHandle:LIST-ITEM-PAIRS = cString.
    IHandle:SCREEN-VALUE    = ENTRY(2, IHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH Aktionen WHERE Aktionen.Firma = MandKurz NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + Aktionen.Aktion.
    END.
    iHandle:LIST-ITEMS   = cString NO-ERROR.
    iHandle:SCREEN-VALUE = ENTRY(1, iHandle:LIST-ITEMS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ISprache    AS CHARACTER                     NO-UNDO.
    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE Sprcd AS INTEGER NO-UNDO.
    
    Sprcd = INTEGER(ISprache).
    iof   = TRUE.
    DO WHILE iof:
        iof = IHandle:DELETE(1).
    END.
    IHandle:DELIMITER = ';'.
    FOR EACH Anrede WHERE Anrede.Sprcd = Sprcd NO-LOCK
        BY Anrede.Anr_Anzeig:
        IHandle:ADD-LAST( Anrede.Anr_Anzeig, STRING(Anrede.Anrcd,'999999') ).
    END.
    IHandle:SCREEN-VALUE = ENTRY(2, IHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    DEFINE INPUT PARAMETER IWgr        AS INTEGER                      NO-UNDO.
    DEFINE INPUT PARAMETER IPgr        AS INTEGER                      NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH ArtikGrp WHERE ArtikGrp.Firma    = MandKurz
        AND   ArtikGrp.Wgr      = IWgr
        AND   ArtikGrp.Prod_Grp = IPgr NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + ArtikGrp.Bez1
            + ' ('
            + TRIM(STRING(ArtikGrp.Art_Grp,'zzzzz9'))
            + ')'
            + ';'
            + STRING(ArtikGrp.Art_Grp,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'AUFSTATUS' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'AVIS' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ipHandle    AS HANDLE           NO-UNDO.
    
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    ipHandle:DELIMITER = CHR(01).
    cString            = ''.
    
    FOR EACH Benutzer NO-LOCK:
        cString = cString + (IF cString = '' THEN '' ELSE CHR(01))
            + Benutzer.Anzeige
            + ' ('
            + Benutzer.Benutzer
            + ')'
            + CHR(01)
            + Benutzer.Benutzer.
    END.
    ipHandle:LIST-ITEM-PAIRS = cString.
    ipHandle:SCREEN-VALUE    = Benutzer NO-ERROR.
    IF ERROR-STATUS:ERROR THEN ipHandle:SCREEN-VALUE = ENTRY(2, cString, CHR(01)) NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'BESRART' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'BESTAT' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).
        
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'BESUCH' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 2 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'BIER' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'BONUS' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'ABONUS' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH BonSumm WHERE BonSumm.Firma = MandKurz NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + BonSumm.Bez
            + ';'     + STRING(BonSumm.Bon_Summ,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'DDKAMPANIE' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 2 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'FAKART' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'FARB' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE xFRW    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    IHandle:DELIMITER = ';'.
    cString = ''.
    FOR EACH Waehrung NO-LOCK
        WHERE Waehrung.Firma = MandKurz
        BY Waehrung.Bezeichnung:
        cString = cString
            + (IF cString = '' THEN '' ELSE ';')
            + Waehrung.Bez
            + ' (' + Waehrung.Frw + ');'
            + Waehrung.FRW.
    END.
    iHandle:LIST-ITEM-PAIRS = cString.

    GET-KEY-VALUE SECTION 'Grundeinstellungen'
        KEY     'FRW'
        VALUE   xFrw.
    IF xFrw = ?  THEN xFrw = 'CHF'.
    IF xFRW = '' THEN xFrw = 'CHF'.
    IHandle:SCREEN-VALUE = xFrw NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Firma   AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    Firma             = DYNAMIC-FUNCTION('GETMANDANT':U) NO-ERROR.
    FOR EACH GebKonto USE-INDEX GebKonto-k1
        WHERE GebKonto.Firma = Firma NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + GebKonto.KBez
            + ';'     + GebKonto.Geb_cd.
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH GGebinde NO-LOCK
        WHERE GGebinde.Firma = MandKurz:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + GGebinde.Bez
            + '   ('
            + GGebinde.Geb_Cd
            + ')'
            + ';'
            + GGebinde.Geb_Cd.
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'HERST' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt  AS CHARACTER INIT 'HOGAGRP' NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH Tabel USE-INDEX Tabel-k1
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = RecArt
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK:
                
        cString = cString
            + (IF cString = '' THEN '' ELSE ';')
            + Tabel.BezL
            + ' ('
            + TRIM(STRING(Tabel.CodeI,'>>>>>9'))
            + ')'
            + ';' + STRING(Tabel.CodeI,'999999').
    END.
    
    iHandle:LIST-ITEM-PAIRS = cString.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH KGebinde NO-LOCK
        WHERE KGebinde.Firma = MandKurz:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + KGebinde.Bez
            + '   ('
            + KGebinde.Geb_Cd
            + ')'
            + ';'
            + KGebinde.Geb_Cd.
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE cList AS CHARACTER NO-UNDO.

    cList = ''.
    iHandle:DELIMITER = ';'.
    FOR EACH Kondi NO-LOCK
        WHERE Kondi.Sprcd = BenSprcd :
        cList = cList
            + (IF cList = '' THEN '' ELSE ';')
            + Kondi.Anzeige
            + ' ('
            + STRING(Kondi.Kond)
            + ')'
            + ';'
            + STRING(Kondi.Kond,'999999').
    END.
    iHandle:LIST-ITEM-PAIRS = cList NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'KUNDGRP' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'LAGER' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'LAGERART' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'LAGKORR' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.

    DEFINE VARIABLE iof AS LOGICAL NO-UNDO.

    iof = TRUE.
    DO WHILE iof:
        iof = IHandle:DELETE(1).
    END.
    IHandle:DELIMITER = ';'.
    FOR EACH Land NO-LOCK
        BY Land.Bez:
        IHandle:ADD-LAST( Land.Bez, Land.Lkz ).
    END.
    IHandle:SCREEN-VALUE = 'CH' NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'LIEFBED' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH Mandant WHERE Mandant.Zustand = TRUE NO-LOCK
        BY Mandant.Firma:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + Mandant.NAME + ';' + Mandant.Firma.
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString   NO-ERROR.
    iHandle:SCREEN-VALUE    = MandKurz  NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH Wust USE-INDEX Wust-k1
        WHERE Wust.CodeA < 10
        AND   Wust.CodeK = 99 NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + Wust.KText
            + ';'     + STRING(Wust.CodeA,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH Wust USE-INDEX Wust-k2
        WHERE Wust.CodeK < 10
        AND   Wust.CodeA < 10 NO-LOCK
                  
        BREAK BY Wust.WuCd:
                  
        IF NOT FIRST-OF ( Wust.WuCd ) THEN NEXT.
        
        FIND LAST MWSTAns NO-LOCK USE-INDEX MWStAns-k1
            WHERE MWSTAns.MWST_Cd = Wust.WuCd
            AND   MWSTAns.Datum  <= TODAY NO-ERROR.
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString
            + Wust.LText
            + ' ('
            + TRIM(STRING(MWStAns.Ansatz,'>9.99'))
            + '%);' + STRING(Wust.WuCd,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString                                NO-ERROR.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH Wust USE-INDEX Wust-k3
        WHERE Wust.CodeK < 10
        AND   Wust.CodeA = 99 NO-LOCK:
        cString = cString
            + (IF cString = '' THEN '' ELSE ';')
            + Wust.KText
            + ' ('
            + TRIM(STRING(Wust.CodeK,'>>9'))
            + ');' + STRING(Wust.CodeK,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString                                NO-ERROR.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'PREGRP' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    DEFINE INPUT PARAMETER IWgr        AS INTEGER                      NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH ProdGrp WHERE ProdGrp.Firma = MandKurz
        AND   ProdGrp.Wgr   = IWgr NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + ProdGrp.Bez1
            + ' ('
            + TRIM(STRING(ProdGrp.Prod_Grp,'zzzzz9'))
            + ')'
            + ';'
            + STRING(ProdGrp.Prod_Grp,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cMenge  AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH ProvSumm WHERE ProvSumm.Firma = MandKurz NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cMenge = ''.
        IF ProvSumm.Menge <> 0  THEN cMenge = '  ('
                + TRIM(STRING(ProvSumm.Menge ,'zzz,zzz,zz9.999'))
                + ')'.
        IF ProvSumm.Betrag <> 0 THEN cMenge = '  ('
                + TRIM(STRING(ProvSumm.Betrag,'zzz,zzz,zz9.99'))
                + ')'.
        IF ProvSumm.Inhalt <> 0 THEN cMenge = '  ('
                + TRIM(STRING(ProvSumm.Inhalt,'zzz,zzz,zz9.999'))
                + ')'.
        cString = cString + ProvSumm.Bez + cMenge
            + ';'     + STRING(ProvSumm.Prov_Summ,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'RABGRP' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'ARABGRP' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'AREG' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'RUEART' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'SPESART' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof AS LOGICAL NO-UNDO.
    
    iof = TRUE.
    DO WHILE iof:
        iof = IHandle:DELETE(1).
    END.
    IHandle:DELIMITER = ';'.
    FOR EACH Sprache NO-LOCK
        BY Sprache.Bez:
        IHandle:ADD-LAST( Sprache.Bez, STRING(Sprache.Sprcd,'999999') ).
    END.
    IHandle:SCREEN-VALUE = STRING(BenSprcd,'999999') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'STYLE' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE       NO-UNDO.
    DEFINE INPUT PARAMETER ipVerband   AS CHARACTER         NO-UNDO.
    
    DEFINE VARIABLE RecArt  AS CHARACTER INIT 'SUBVERBAND' NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH Tabel USE-INDEX Tabel-k1
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = RecArt
        AND   Tabel.CodeC  = ipVerband
        AND   Tabel.Sprcd  = 1 NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + Tabel.Bez1
            + ' ('
            + TRIM(STRING(Tabel.CodeI,'>>>>>9'))
            + ')'
            + ';' + STRING(Tabel.CodeI,'999999').
    END.

    IF cString = '' THEN cString = 'Kein Subverband (0);000000'.
    iHandle:LIST-ITEM-PAIRS = cString.
    iHandle:SCREEN-VALUE    = ENTRY(2, cString, ';').
    
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE aNr     AS INTEGER   NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    aNr               = -1.
    FOR EACH RabSumm USE-INDEX RabSumm-k1
        WHERE RabSumm.Firma     = MandKurz NO-LOCK:
        IF aNr = RabSumm.Rab_Summ THEN NEXT.
        aNr = RabSumm.Rab_Summ.
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + RabSumm.Bez + '     ('
            + TRIM(STRING(RabSumm.Rab_Summ,'zzzzz9'))
            + ')'
            + ';'     + STRING(RabSumm.Rab_Summ,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                NO-UNDO.
    DEFINE INPUT PARAMETER iRecArt     AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER iCodeC      AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER iCodeI      AS INTEGER               NO-UNDO.
    DEFINE INPUT PARAMETER iSprcd      AS INTEGER               NO-UNDO.
    DEFINE INPUT PARAMETER iArt        AS INTEGER               NO-UNDO.

    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    iHandle:DELIMITER = ';'.
    cString           = ''.
    IF iArt = 1 THEN 
    DO:
        FOR EACH Tabel USE-INDEX Tabel-k2
            WHERE Tabel.Firma  = MandKurz
            AND   Tabel.RecArt = iRecArt
            AND   Tabel.Sprcd  = iSprcd NO-LOCK:
            IF RecArt = 'PREGRP'    AND
                Tabel.Int_2 = 0      THEN NEXT.
            IF cString <> '' THEN cString = cString + ';'.
            cString = cString + Tabel.Bez1
                + ' ('
                + TRIM(STRING(Tabel.CodeI,'>>>>>9'))
                + ')'
                + ';' + STRING(Tabel.CodeI,'999999').
        END.
    END.
    IF iArt = 2 THEN 
    DO:
        FOR EACH Tabel USE-INDEX Tabel-k1
            WHERE Tabel.Firma  = MandKurz
            AND   Tabel.RecArt = iRecArt
            AND   Tabel.Sprcd  = iSprcd NO-LOCK:
            IF cString <> '' THEN cString = cString + ';'.
            cString = cString + Tabel.Bez1 + ';' + Tabel.CodeC.
        END.
    END.

    IF iArt = 4 THEN 
    DO:
        FOR EACH Tabel USE-INDEX Tabel-k2
            WHERE Tabel.Firma  = MandKurz
            AND   Tabel.RecArt = iRecArt
            AND   Tabel.Sprcd  = iSprcd NO-LOCK:
            IF cString <> '' THEN cString = cString + ';'.
            cString = cString + Tabel.Bez1.
        END.
    END.

    IF cString = '' THEN cString = ';'.
    IF iArt < 3 THEN 
    DO:
        iHandle:LIST-ITEM-PAIRS = cString.
        iHandle:SCREEN-VALUE    = ENTRY(2, cString, ';') NO-ERROR.
    END.
    ELSE 
    DO:
        IF LOOKUP('', cString, ';') = 0 THEN cString = ';' + cString.
        iHandle:LIST-ITEMS = cString.
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'TOUR1' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'TRAUB' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'UMSGRP' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE       NO-UNDO.
    
    DEFINE VARIABLE RecArt  AS CHARACTER INIT 'VERBAND' NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = RecArt
        AND   Tabel.Sprcd  = 1 NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + Tabel.Bez1
            + ' ('
            + TRIM(STRING(Tabel.CodeI,'>>>>>9'))
            + ')'
            + ';' + STRING(Tabel.CodeI,'999999').
    END.

    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString.
    iHandle:SCREEN-VALUE    = ENTRY(2,cString, ';').

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'VERTR' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH VGebinde NO-LOCK
        WHERE VGebinde.Firma = MandKurz:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + VGebinde.Bez
            + '   ('
            + VGebinde.Geb_Cd
            + ')'
            + ';'
            + VGebinde.Geb_Cd.
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER iHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE iof     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    iHandle:DELIMITER = ';'.
    cString           = ''.
    FOR EACH WarenGrp WHERE WarenGrp.Firma = MandKurz NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + WarenGrp.Bez1
            + ' ('
            + TRIM(STRING(WarenGrp.Wgr,'zzzzz9'))
            + ')'
            + ';'
            + STRING(WarenGrp.Wgr,'999999').
    END.
    IF cString = '' THEN cString = ';'.
    iHandle:LIST-ITEM-PAIRS = cString NO-ERROR.
    iHandle:SCREEN-VALUE    = ENTRY(2, iHandle:LIST-ITEM-PAIRS, ';') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ipHandle    AS HANDLE       NO-UNDO.
    
    DEFINE VARIABLE cDevices AS CHARACTER NO-UNDO.
    DEFINE VARIABLE xDrucker AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ii       AS INTEGER   NO-UNDO.

    EMPTY TEMP-TABLE tDrucker.
    cDevices = SESSION:GET-PRINTERS().
    DO ii = 1 TO NUM-ENTRIES(cDevices, ','):
        CREATE  tDrucker.
        ASSIGN  
            tDrucker.cDrucker = ENTRY(ii, cDevices, ',').
    END.
    
    LOAD "SYSTEM\CurrentControlSet\Control\Print\Printers"
        BASE-KEY "HKEY_LOCAL_MACHINE" NO-ERROR.
    USE  "SYSTEM\CurrentControlSet\Control\Print\Printers" NO-ERROR.
    GET-KEY-VALUE SECTION '' KEY '' VALUE cDevices.
    USE '' NO-ERROR.

    DO ii = 1 TO NUM-ENTRIES(cDevices, ','):
        xDrucker = ENTRY(ii, cDevices, ',').
        FIND FIRST tDrucker NO-LOCK
            WHERE tDrucker.cDrucker = xDrucker NO-ERROR.
        IF AVAILABLE tDrucker THEN NEXT.
        
        CREATE  tDrucker.
        ASSIGN  
            tDrucker.cDrucker = xDrucker.
    END.

    LOAD "SYSTEM\CurrentControlSet\Control\Print\Printers"
        BASE-KEY "HKEY_LOCAL_MACHINE" NO-ERROR.
    USE  "SYSTEM\CurrentControlSet\Control\Print\Printers" NO-ERROR.
    GET-KEY-VALUE SECTION '' KEY '' VALUE cDevices.
    USE '' NO-ERROR.

    DO ii = 1 TO NUM-ENTRIES(cDevices, ','):
        xDrucker = ENTRY(ii, cDevices, ',').
        FIND FIRST tDrucker NO-LOCK
            WHERE tDrucker.cDrucker = xDrucker NO-ERROR.
        IF AVAILABLE tDrucker THEN NEXT.
        
        CREATE  tDrucker.
        ASSIGN  
            tDrucker.cDrucker = xDrucker.
    END.

    cDevices = ''.
    FOR EACH tDrucker:
        cDevices = cDevices
            + (IF cDevices = '' THEN '' ELSE CHR(01))
            + tDrucker.cDrucker.
    END.
    ipHandle:DELIMITER    = CHR(01).
    ipHandle:LIST-ITEMS   = cDevices.
    ipHandle:SCREEN-VALUE = ENTRY(1, cDevices, ',') NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER IHandle     AS HANDLE                   NO-UNDO.
    
    DEFINE VARIABLE RecArt AS CHARACTER INIT 'WISO' NO-UNDO.
    DEFINE VARIABLE CodeC  AS CHARACTER INIT '' NO-UNDO.
    DEFINE VARIABLE CodeI  AS INTEGER   INIT 0 NO-UNDO.
    DEFINE VARIABLE Sprcd  AS INTEGER   INIT 1 NO-UNDO.
    DEFINE VARIABLE Art    AS INTEGER   INIT 1 NO-UNDO.

    RUN COMBO_TABELLE ( INPUT iHandle   ,
        INPUT RecArt    ,
        INPUT CodeC     ,
        INPUT CodeI     ,
        INPUT Sprcd     ,
        INPUT Art       ).

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ipHandle    AS HANDLE       NO-UNDO.

    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    ipHandle:DELIMITER = ';'.
    cString              = 'Kein Konto;XXXXXX'.
    FOR EACH Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'ZAHART'
        AND   Tabel.Sprcd  = 1 NO-LOCK:
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + Tabel.Bez1
            + ' ('
            + Tabel.Bez2
            + ');' + Tabel.Bez2.
    END.
    IF cString = '' THEN cString = ';'.
    ipHandle:LIST-ITEM-PAIRS = cString.

END PROCEDURE.

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

&ENDIF

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

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

    EMPTY TEMP-TABLE tSteuer.

    FOR EACH Steuer NO-LOCK:
        CREATE  tSteuer.
        BUFFER-COPY Steuer TO tSteuer.
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.
    DEFINE INPUT PARAMETER ENFelder    AS CHARACTER        NO-UNDO.
    DEFINE INPUT PARAMETER Flag        AS LOGICAL          NO-UNDO.

    DEFINE VARIABLE VName AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Delim AS CHARACTER NO-UNDO.
    DEFINE VARIABLE anz   AS INTEGER   NO-UNDO.

    DO WHILE TRUE:
        Delim = CHR(01).
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ';'.
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ','.
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ' '.
        anz = NUM-ENTRIES(ENFelder, Delim).
        LEAVE.
    END.

    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.

    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE   = 'LITERAL'   THEN LEAVE.
            IF Fenster:HIDDEN = TRUE        THEN LEAVE.
            VName = Fenster:NAME.
            DO WHILE TRUE.
                IF LOOKUP(VName, ENFelder, Delim ) > 0 THEN LEAVE.
                VName = 'rowObject.' + VName.
                IF LOOKUP(VName, ENFelder, Delim ) > 0 THEN LEAVE.
                VName = ''.
                LEAVE.
            END.
            IF VName = '' THEN LEAVE.
            Fenster:SENSITIVE = Flag.
            Fenster:ENABLED   = Flag.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER VName       AS CHARACTER                 NO-UNDO.

    VName = ENTRY(1, VName, '.').
    FIND FIRST tProgramme USE-INDEX tProgramme-k1
        WHERE tProgramme.Prog = VName NO-ERROR.
    IF AVAILABLE tProgramme THEN 
    DO:
        DELETE tProgramme.
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.
    DEFINE INPUT PARAMETER ENFelder    AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER Farbe       AS INTEGER              NO-UNDO.

    DEFINE VARIABLE VName AS CHARACTER NO-UNDO.
    DEFINE VARIABLE fok   AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE Delim AS CHARACTER NO-UNDO.
    DEFINE VARIABLE anz   AS INTEGER   NO-UNDO.

    DO WHILE TRUE:
        Delim = CHR(01).
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ';'.
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ','.
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ' '.
        anz = NUM-ENTRIES(ENFelder, Delim).
        LEAVE.
    END.

    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.
    
    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE   = 'LITERAL' THEN LEAVE.
            DO WHILE TRUE:
                fok = TRUE.
                IF Fenster:TYPE = 'FILL-IN'     THEN LEAVE.
                IF Fenster:TYPE = 'COMBO-BOX'   THEN LEAVE.
                IF Fenster:TYPE = 'EDITOR'      THEN LEAVE.
                IF Fenster:TYPE = 'TOGGLE-BOX'  THEN LEAVE.
                fok = FALSE.
                LEAVE.
            END.
            IF NOT fok THEN LEAVE.
            IF Fenster:HIDDEN = TRUE    THEN LEAVE.
            /*             IF Fenster:BGCOLOR = 14     THEN LEAVE. */
            VName = Fenster:NAME.
            DO WHILE TRUE.
                IF ENFelder = ''                     THEN LEAVE.
                IF LOOKUP(VName, ENFelder, Delim ) > 0 THEN LEAVE.
                VName = 'rowObject.' + VName.
                IF LOOKUP(VName, ENFelder, Delim ) > 0 THEN LEAVE.
                VName = ''.
                LEAVE.
            END.
            IF VName = '' THEN LEAVE.
            Fenster:BGCOLOR = Farbe.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER VFeNr           AS INTEGER                  NO-UNDO.

    DYNAMIC-FUNCTION('fehlerMeldung':U, vFenr, '' ) NO-ERROR.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER hFenster    AS HANDLE           NO-UNDO.

    hFenster:TITLE = MandKurz + '/' + hFenster:TITLE + ' -> ' + MandName.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'AREG'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipWgr          AS INTEGER              NO-UNDO.
    DEFINE INPUT  PARAMETER ipPgr          AS INTEGER              NO-UNDO.
    DEFINE INPUT  PARAMETER ipAgr          AS INTEGER              NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten        AS CHARACTER             NO-UNDO.

    opDaten = '?'.
    FIND ArtikGrp USE-INDEX ArtikGrp-k1
        WHERE ArtikGrp.Firma    = MandKurz
        AND   ArtikGrp.Wgr      = ipWgr
        AND   ArtikGrp.Prod_Grp = ipPgr
        AND   ArtikGrp.Art_Grp  = ipAgr   NO-LOCK NO-ERROR.
    IF NOT AVAILABLE ArtikGrp THEN RETURN.
    opDaten = STRING(RECID(ArtikGrp))           + CHR(01)
        + ArtikGrp.Bez1                     + CHR(01)
        + STRING(ArtikGrp.INT_1)            + CHR(01)
        + ArtikGrp.Bez2                     + CHR(01)
        + ArtikGrp.Sort_Preisliste          + CHR(01)
        + STRING(ArtikGrp.Titel_Druck)
        .
    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipBanknr       AS INTEGER              NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten        AS CHARACTER             NO-UNDO.

    DEFINE VARIABLE ix AS INTEGER NO-UNDO.

    opDaten = ''.
    IF ipBanknr = 0 THEN 
    DO:
        opDaten = FILL(CHR(01), 3).
        RETURN.
    END.
    FIND Bankst USE-INDEX Bankst-k1
        WHERE Bankst.Bank = ipBanknr NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Bankst THEN 
    DO:
        opDaten = '?????'       + CHR(01)
            + '?????'       + CHR(01)
            + '?????'       + CHR(01).
        RETURN.
    END.
    opDaten = STRING(RECID(Bankst))     + CHR(01)
        + Bankst.Clearing           + CHR(01).
    DO ix = 1 TO 3:
        IF Bankst.Adr[ix] = '' THEN NEXT.
        opDaten = opDaten + Bankst.Adr[ix].
        LEAVE.
    END.
    opDaten = opDaten + CHR(01)
        + Bankst.Adr[04].
    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'ABONUS'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'FAHRER'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01)
            + Tabel.Bez2                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'FARB'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGeb_Cd       AS CHARACTER             NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten        AS CHARACTER             NO-UNDO.

    opDaten = ''.
    FIND GebKonto USE-INDEX GebKonto-k1
        WHERE GebKonto.Firma  = MandKurz
        AND   GebKonto.Geb_Cd = ipGeb_Cd NO-LOCK NO-ERROR.
    IF NOT AVAILABLE GebKonto THEN RETURN.
    opDaten = STRING(RECID(GebKonto))           + CHR(01)
        + GebKonto.Bez                      + CHR(01)
        + GebKonto.KBez.
    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGeb_Cd       AS CHARACTER             NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten        AS CHARACTER             NO-UNDO.

    opDaten = ''.
    FIND GGebinde USE-INDEX GGebinde-k1
        WHERE GGebinde.Firma  = MandKurz
        AND   GGebinde.Geb_Cd = ipGeb_Cd NO-LOCK NO-ERROR.
    IF NOT AVAILABLE GGebinde THEN RETURN.
    opDaten = STRING(RECID(GGebinde))           + CHR(01)
        + GGebinde.Bez                      + CHR(01)
        + GGebinde.KBez.
    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'HERST'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGeb_Cd       AS CHARACTER             NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten        AS CHARACTER             NO-UNDO.

    opDaten = ''.
    FIND KGebinde USE-INDEX KGebinde-k1
        WHERE KGebinde.Firma  = MandKurz
        AND   KGebinde.Geb_Cd = ipGeb_Cd NO-LOCK NO-ERROR.
    IF NOT AVAILABLE KGebinde THEN RETURN.
    opDaten = STRING(RECID(KGebinde))           + CHR(01)
        + KGebinde.Bez                      + CHR(01)
        + KGebinde.KBez.
    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'KUNDGRP'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01)
            + STRING(Tabel.Int_1)       + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'LAGKORR'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01)
            + STRING(Tabel.Int_1)       + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                    NO-UNDO.

    opDaten = ''.
    FIND Tabel NO-LOCK USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'PREGRP'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01)
            + STRING(Tabel.Int_1)       + CHR(01)
            + Tabel.Bez2                + CHR(01)
            .
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipWgr          AS INTEGER              NO-UNDO.
    DEFINE INPUT  PARAMETER ipPgr          AS INTEGER              NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten        AS CHARACTER             NO-UNDO.

    opDaten = '?'.
    FIND ProdGrp USE-INDEX ProdGrp-k1
        WHERE ProdGrp.Firma    = MandKurz
        AND   ProdGrp.Wgr      = ipWgr
        AND   ProdGrp.Prod_Grp = ipPgr     NO-LOCK NO-ERROR.
    IF NOT AVAILABLE ProdGrp THEN RETURN.
    opDaten = STRING(RECID(ProdGrp))            + CHR(01)
        + ProdGrp.Bez1                      + CHR(01)
        + STRING(ProdGrp.INT_1)             + CHR(01)
        + ProdGrp.Bez2                      + CHR(01)
        + ProdGrp.Sort_Preisliste           + CHR(01)
        + STRING(ProdGrp.Titel_Druck)
        .
    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'RABGRP'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'ARABGRP'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'AREG'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel NO-LOCK USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'SPESART'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01)
            + STRING(Tabel.Int_1)       + CHR(01)
            + Tabel.Bez2                + CHR(01)
            + STRING(Tabel.Int_2)       + CHR(01)
            + STRING(Tabel.Dec_1)
            .
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'STYLE'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel NO-LOCK USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'TRAUB'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01)
            + STRING(Tabel.Int_1)       + CHR(01)
            + Tabel.Bez2                + CHR(01)
            .
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel NO-LOCK USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'VERBAND'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01)
            + STRING(Tabel.Int_1)       + CHR(01)
            + Tabel.Bez2                + CHR(01)
            .
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'VERTR'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01)
            + STRING(Tabel.Int_1)       + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGeb_Cd       AS CHARACTER             NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten        AS CHARACTER             NO-UNDO.

    opDaten = ''.
    FIND VGebinde USE-INDEX VGebinde-k1
        WHERE VGebinde.Firma  = MandKurz
        AND   VGebinde.Geb_Cd = ipGeb_Cd NO-LOCK NO-ERROR.
    IF NOT AVAILABLE VGebinde THEN RETURN.
    opDaten = STRING(RECID(VGebinde))           + CHR(01)
        + VGebinde.Bez                      + CHR(01)
        + VGebinde.KBez.
    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipWgr          AS INTEGER              NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten        AS CHARACTER             NO-UNDO.

    opDaten = '?'.
    FIND WarenGrp USE-INDEX WarenGrp-k1
        WHERE WarenGrp.Firma  = MandKurz
        AND   WarenGrp.Wgr    = ipWgr    NO-LOCK NO-ERROR.
    IF NOT AVAILABLE WarenGrp THEN RETURN.
    opDaten = STRING(RECID(WarenGrp))           + CHR(01)
        + WarenGrp.Bez1                     + CHR(01)
        + STRING(WarenGrp.INT_1)            + CHR(01)
        + WarenGrp.Bez2                     + CHR(01)
        + WarenGrp.Sort_Preisliste          + CHR(01)
        + STRING(WarenGrp.Titel_Druck)
        .
    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipGrp      AS INTEGER                      NO-UNDO.
    DEFINE OUTPUT PARAMETER opDaten    AS CHARACTER                     NO-UNDO.

    opDaten = ''.
    FIND Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'WISO'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN 
    DO:
        opDaten = STRING(Tabel.CodeI)       + CHR(01)
            + Tabel.Bez1                + CHR(01).
    END.
    ELSE 
    DO:
        opDaten = STRING(ipGrp)       + CHR(01)
            + '??????????'            + CHR(01).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ProgName    AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.

    DEFINE VARIABLE cVal AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cKey AS CHARACTER NO-UNDO.

    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.
    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE   = 'LITERAL'       THEN LEAVE.
            IF Fenster:TYPE   = 'BUTTON'        THEN LEAVE.
            IF Fenster:TYPE   = 'RECTANGLE'     THEN LEAVE.
            IF Fenster:TYPE   = 'FIELD-GROUP'   THEN LEAVE.
            IF Fenster:HIDDEN = TRUE            THEN LEAVE.

            cKey = Fenster:NAME.
            GET-KEY-VALUE SECTION ProgName KEY cKey VALUE cVal.
            IF cVal = ? THEN cVal = ''.
            Fenster:SCREEN-VALUE = cVal NO-ERROR.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ProgName    AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.

    DEFINE VARIABLE cVal    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cKey    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE i       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE j       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cFeld   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cFeNa   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cFeVa   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE hFeFeld AS HANDLE    NO-UNDO.

    cKey = ProgName.
    GET-KEY-VALUE SECTION 'Auswertungen' KEY cKey VALUE cVal.
    IF cVal = ? THEN RETURN.

    EMPTY TEMP-TABLE tFelder.

    ASSIGN  
        hFeFeld = Fenster:FIRST-CHILD.
    DO WHILE TRUE:
        DO WHILE VALID-HANDLE (hFeFeld) :
            DO WHILE TRUE:
                IF hFeFeld:TYPE = 'FIELD-GROUP' THEN 
                DO:
                    CREATE  tFelder.
                    ASSIGN  
                        tFelder.cName   = ''
                        tFelder.cInhalt = ''
                        tFelder.hFeld   = hFeFeld:HANDLE
                        tFelder.fOK     = FALSE.
                    LEAVE.
                END.
                IF hFeFeld:TYPE   = 'LITERAL'       THEN LEAVE.
                IF hFeFeld:TYPE   = 'BUTTON'        THEN LEAVE.
                IF hFeFeld:TYPE   = 'RECTANGLE'     THEN LEAVE.
                IF hFeFeld:HIDDEN = TRUE            THEN LEAVE.
                CREATE  tFelder.
                ASSIGN  
                    tFelder.cName   = hFeFeld:NAME
                    tFelder.cInhalt = ''
                    tFelder.hFeld   = hFeFeld:HANDLE
                    tFelder.fOK     = TRUE.
                LEAVE.
            END.
            ASSIGN 
                hFeFeld = hFeFeld:NEXT-SIBLING.
        END.
        
        FIND FIRST tFelder WHERE tFelder.fOK = FALSE NO-ERROR.
        IF NOT AVAILABLE tFelder THEN LEAVE.
        hFeFeld = tFelder.hFeld.
        hFeFeld = hFeFeld:FIRST-CHILD.
        DELETE  tFelder.
    END.

    DO i = 1 TO NUM-ENTRIES(cVal, ';'):
        cFeld = ENTRY(i, cVal , ';') NO-ERROR.
        IF NUM-ENTRIES(cFeld, '@') < 2 THEN NEXT.
        
        cFeNa = ENTRY(1, cFeld, '@') NO-ERROR.
        cFeVa = ENTRY(2, cFeld, '@') NO-ERROR.
        IF cFeld = ?    OR
            cFeld = ''   THEN NEXT.
        FIND FIRST tFelder
            WHERE tFelder.cName = cFeNa NO-ERROR.
        IF NOT AVAILABLE tFelder THEN NEXT.
        tFelder.hFeld:SCREEN-VALUE = cFeVa NO-ERROR.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER VFeNr           AS INTEGER                  NO-UNDO.
    
    DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.

    FIND Femeld USE-INDEX Femeld-k1
        WHERE Femeld.Sprcd = BenSprcd
        AND   Femeld.Fenr  = VFenr  NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Femeld THEN 
    DO:
        MESSAGE 'Ein nicht definierter Fehler ist aufgetreten'  SKIP
            'Fehlernummer ist ' VFenr   VIEW-AS ALERT-BOX ERROR.
        RETURN NO-APPLY.
    END.
    BELL.
    cMessage = SUBSTITUTE(Femeld.Fetext + ' (&1)', VFenr) NO-ERROR.
    RELEASE Femeld.
    MESSAGE cMessage
        VIEW-AS ALERT-BOX INFORMATION.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER ipArt      AS INTEGER                  NO-UNDO.
    DEFINE OUTPUT PARAMETER opNr       AS INTEGER                  NO-UNDO.

    DEFINE VARIABLE ja AS LOGICAL NO-UNDO.

    opNr = ?.

    /*  ------------------------------------------------------------------  */
    /*  INPUT PARAMETER : Art   1 = AuftragsNr                              */
    /*                          2 = FakturaNr                               */
    /*                          3 = BestellNr                               */
    /*                          4 = Allg. BelegNr                           */
    /*                          5 = SammelbelegNr                           */
    /*  ------------------------------------------------------------------  */

    NUMMER:
    REPEAT TRANSACTION:
        FIND SteuNr USE-INDEX SteuNr-k1
            WHERE SteuNr.Firma = MandKurz
            EXCLUSIVE-LOCK NO-WAIT NO-ERROR.
        DO WHILE AVAILABLE SteuNr:
        
            CASE ipArt:
            
                WHEN 1 THEN 
                    DO:
                        SteuNr.Nr1 = SteuNr.Nr1 + 1.
                        opNr       = SteuNr.Nr1.
                    END.

                WHEN 2 THEN 
                    DO:
                        SteuNr.Nr2 = SteuNr.Nr2 + 1.
                        opNr       = SteuNr.Nr2.
                    END.

                WHEN 3 THEN 
                    DO:
                        SteuNr.Nr3 = SteuNr.Nr3 + 1.
                        opNr       = SteuNr.Nr3.
                    END.

                WHEN 4 THEN 
                    DO:
                        SteuNr.Nr4 = SteuNr.Nr4 + 1.
                        opNr       = SteuNr.Nr4.
                    END.

                WHEN 5 THEN 
                    DO:
                        SteuNr.Nr5 = SteuNr.Nr5 + 1.
                        opNr       = SteuNr.Nr5.
                    END.

            END CASE.
            
            RELEASE SteuNr.
            LEAVE NUMMER.
        END.
                   
        IF LOCKED SteuNr THEN 
        DO:
            Ja = TRUE.
            MESSAGE 'Die Datei SteuNr ist von einem anderen Benutzer im Zugriff ' SKIP
                'erneuter Versuch ? '
                VIEW-AS ALERT-BOX INFORMATION BUTTONS OK-CANCEL UPDATE Ja.
            IF Ja THEN NEXT NUMMER.
        END.
        
        RELEASE SteuNr.

    END.

    RELEASE SteuNr.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE OUTPUT PARAMETER XString    AS CHARACTER                 NO-UNDO.

    xString = ''.
    FOR EACH tProgramme USE-INDEX tProgramme-k1 NO-LOCK:
        XString = XString + tProgramme.Prog + CHR(01).
    END.

    IF LENGTH(XString) > 1 THEN 
    DO:
        XString = SUBSTRING(XString,01,LENGTH(XString) - 1).
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER XProg      AS CHARACTER                     NO-UNDO.
    DEFINE OUTPUT PARAMETER XBerecht   AS CHARACTER                     NO-UNDO.
    
    DEFINE VARIABLE VPwa   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE VPwm   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE VPwe   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE VPwl   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE VPwS   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE XRecid AS RECID   NO-UNDO.

    VPwa     = FALSE.
    VPwm     = FALSE.
    VPwe     = FALSE.
    VPwl     = FALSE.
    VPwS     = FALSE.
    XRecid   = ?.
    XBerecht = ''.

    FIND Berecht NO-LOCK USE-INDEX Berecht-k1
        WHERE Berecht.Mandant  = MandKurz
        AND   Berecht.Benutzer = Benutzer
        AND   Berecht.Programm = XProg NO-ERROR.
    REPEAT TRANSACTION:
        IF AVAILABLE Berecht                        THEN LEAVE.
        IF ENTRY(4, cBenDaten, CHR(01)) BEGINS 'N'  THEN LEAVE.

        CREATE  Berecht.
        ASSIGN  
            Berecht.Mandant  = MandKurz
            Berecht.Benutzer = Benutzer
            Berecht.Programm = XProg
            Berecht.Pwa      = TRUE
            Berecht.Pwm      = TRUE
            Berecht.Pwe      = TRUE
            Berecht.Pwl      = TRUE
            Berecht.PwS      = TRUE
            .
        XRecid = RECID(Berecht).
        LEAVE.
    END.
    IF  XRecid <> ? THEN
        FIND Berecht WHERE RECID(Berecht) = XRecid NO-LOCK NO-ERROR.
    IF AVAILABLE Berecht THEN 
    DO:
        ASSIGN  
            VPwa = Berecht.Pwa
            VPwm = Berecht.Pwm
            VPwe = Berecht.Pwe
            VPwl = Berecht.Pwl
            VPwS = Berecht.PwS.
    END.
    XBerecht = STRING(VPwa,'Ja/Nein')    + CHR(01)
        + STRING(VPwm,'Ja/Nein')    + CHR(01)
        + STRING(VPwe,'Ja/Nein')    + CHR(01)
        + STRING(VPwl,'Ja/Nein')    + CHR(01)
        + STRING(VPwS,'Ja/Nein')    + CHR(01)
        .
    XBerecht = REPLACE(XBerecht, ' ', '').
    cBerecht = XBerecht.

    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT  PARAMETER XProg      AS CHARACTER                     NO-UNDO.
    DEFINE OUTPUT PARAMETER XBerecht   AS CHARACTER                     NO-UNDO.
    
    DEFINE VARIABLE VPwa   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE VPwm   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE VPwe   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE VPwl   AS LOGICAL NO-UNDO.
    DEFINE VARIABLE XRecid AS RECID   NO-UNDO.

    VPwa     = FALSE.
    VPwm     = FALSE.
    VPwe     = FALSE.
    VPwl     = FALSE.
    XRecid   = ?.
    XBerecht = ''.

    FIND Berecht NO-LOCK
        WHERE Berecht.Mandant  = MandKurz
        AND   Berecht.Benutzer = Benutzer
        AND   Berecht.Programm = XProg NO-ERROR.
    REPEAT TRANSACTION:
        IF AVAILABLE Berecht                    THEN LEAVE.
        IF ENTRY(4, cBenDaten, CHR(01)) <> 'Ja' THEN LEAVE.
        
        CREATE  Berecht.
        ASSIGN  
            Berecht.Mandant  = MandKurz
            Berecht.Benutzer = Benutzer
            Berecht.Programm = XProg
            Berecht.Pwa      = TRUE
            Berecht.Pwm      = TRUE
            Berecht.Pwe      = TRUE
            Berecht.Pwl      = TRUE.
        XRecid = RECID(Berecht).
        LEAVE.
    END.
    IF XRecid <> ? THEN
        FIND Berecht WHERE RECID(Berecht) = XRecid NO-LOCK NO-ERROR.
    IF AVAILABLE Berecht THEN 
    DO:
        ASSIGN  
            VPwa = Berecht.Pwa
            VPwm = Berecht.Pwm
            VPwe = Berecht.Pwe
            VPwl = Berecht.Pwl.
    END.
    XBerecht = STRING(VPwa,'Ja/Nein')    + ','
        + STRING(VPwm,'Ja/Nein')    + ','
        + STRING(VPwe,'Ja/Nein')    + ','
        + STRING(VPwl,'Ja/Nein')    + ','.

    RETURN.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ProgName    AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.

    DEFINE VARIABLE cVal AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cKey AS CHARACTER NO-UNDO.

    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.
    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE   = 'LITERAL'       THEN LEAVE.
            IF Fenster:TYPE   = 'BUTTON'        THEN LEAVE.
            IF Fenster:TYPE   = 'RECTANGLE'     THEN LEAVE.
            IF Fenster:TYPE   = 'FIELD-GROUP'   THEN LEAVE.
            IF Fenster:HIDDEN = TRUE            THEN LEAVE.

            cKey = Fenster:NAME.
            cVal = Fenster:SCREEN-VALUE.
            PUT-KEY-VALUE SECTION ProgName KEY cKey VALUE cVal NO-ERROR.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.
    DEFINE INPUT PARAMETER ENFelder    AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER Flag        AS LOGICAL              NO-UNDO.

    DEFINE VARIABLE VName AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Delim AS CHARACTER NO-UNDO.
    DEFINE VARIABLE anz   AS INTEGER   NO-UNDO.

    DO WHILE TRUE:
        Delim = CHR(01).
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ';'.
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ','.
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ' '.
        anz = NUM-ENTRIES(ENFelder, Delim).
        LEAVE.
    END.

    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.

    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE   = 'LITERAL'   THEN LEAVE.
            IF Fenster:HIDDEN = TRUE        THEN LEAVE.
            VName = Fenster:NAME.
            DO WHILE TRUE.
                IF LOOKUP(VName, ENFelder, Delim ) > 0 THEN LEAVE.
                VName = 'rowObject.' + VName.
                IF LOOKUP(VName, ENFelder, Delim ) > 0 THEN LEAVE.
                VName = ''.
                LEAVE.
            END.
            IF VName = '' THEN LEAVE.
            Fenster:SENSITIVE = TRUE.

            IF Fenster:TYPE = 'TOGGLE-BOX' THEN LEAVE.
            IF Fenster:TYPE = 'RADIO-SET'  THEN LEAVE.
            /*             IF Fenster:TYPE = 'COMBO-BOX'  THEN LEAVE. */
            
            IF Fenster:TYPE = 'COMBO-BOX' THEN 
            DO:
                Fenster:SENSITIVE = NOT Flag.
                LEAVE.
            END.
            Fenster:READ-ONLY = Flag.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER hProgramm   AS HANDLE               NO-UNDO.

    DEFINE VARIABLE XName AS CHARACTER NO-UNDO.
    DEFINE VARIABLE hProc AS HANDLE    NO-UNDO.
    DEFINE VARIABLE wProc AS HANDLE    NO-UNDO.

    IF FMutation = TRUE THEN RETURN NO-APPLY.

    hProc = hProgramm.
    XName = ENTRY(1, hProc:NAME, '.').

    FIND FIRST tProgramme USE-INDEX tProgramme-k1
        WHERE tProgramme.Prog = XName NO-LOCK NO-ERROR.
    IF NOT AVAILABLE tProgramme THEN 
    DO:
        wProc = hProc:CURRENT-WINDOW NO-ERROR.
        CREATE  tProgramme.
        ASSIGN  
            tProgramme.Prog   = XName
            tProgramme.Proz   = hProc
            tProgramme.MFlag  = FALSE
            tProgramme.AbFlag = FALSE
            tProgramme.Titel  = wProc:TITLE.
    END.
    ELSE 
    DO:
        wProc = tProgramme.Proz:CURRENT-WINDOW.
        wProc:MOVE-TO-TOP().
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT        PARAMETER Rundcode     AS INTEGER              NO-UNDO.
    DEFINE INPUT-OUTPUT PARAMETER Rundbetr     AS DECIMAL  DECIMALS 4  NO-UNDO.

    DEFINE VARIABLE VBetr  AS DECIMAL   DECIMALS 4 NO-UNDO.
    DEFINE VARIABLE VOp    AS DECIMAL   INIT 0.2 NO-UNDO.
    DEFINE VARIABLE XPChar AS CHARACTER NO-UNDO.

    DO TRANSACTION:
        VBetr = Rundbetr.

        IF Rundcode = 1 THEN 
        DO:
            VBetr = ROUND((VBetr / 100 * VOp), 4) / VOp * 100.
        END.
        IF Rundcode = 2 THEN 
        DO:
            VBetr = ROUND((VBetr / 100), 3) * 100.
        END.
        IF Rundcode = 3 THEN 
        DO:
            VBetr = VBetr + 0.0499.
            VBetr = ROUND((VBetr / 100), 3) * 100.
        END.
        IF Rundcode = 4 THEN 
        DO:
            VBetr = VBetr - 0.0500.
            VBetr = ROUND((VBetr / 100), 3) * 100.
        END.
        IF Rundcode = 5 THEN 
        DO:
            VBetr = ROUND((VBetr / 100), 2) * 100.
        END.
        IF Rundcode = 6 THEN 
        DO:
            VBetr = VBetr + 0.4999.
            VBetr = ROUND((VBetr / 100), 2) * 100.
        END.
        IF Rundcode = 7 THEN 
        DO:
            VBetr = VBetr - 0.5000.
            VBetr = ROUND((VBetr / 100), 2) * 100.
        END.
        IF Rundcode = 8 THEN 
        DO:
            VBetr = ROUND((VBetr / 1000), 2) * 1000.
        END.
        IF Rundcode = 9 THEN 
        DO:
            VBetr = VBetr + 4.9999.
            VBetr = ROUND((VBetr / 1000), 2) * 1000.
        END.
        IF Rundcode = 10 THEN 
        DO:
            VBetr = VBetr - 5.0000.
            VBetr = ROUND((VBetr / 1000), 2) * 1000.
        END.

        IF Rundcode = 99 THEN 
        DO:
            XPChar = STRING(VBetr,"-99999999.999").
            VBetr  = DECIMAL(SUBSTRING(XPChar,01,12)).
            IF SUBSTRING(XPChar,13,01) > "4" THEN VBetr = VBetr + 0.01.
        END.

        Rundbetr = VBetr.

    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER ProgName    AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.

    DEFINE VARIABLE cVal    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cKey    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE i       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE j       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cFeld   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cFeNa   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cFeVa   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE hFeFeld AS HANDLE    NO-UNDO.

    cKey = ProgName.
    cVal = ''.

    EMPTY TEMP-TABLE tFelder.

    ASSIGN  
        hFeFeld = Fenster:FIRST-CHILD.
    DO WHILE TRUE:
        DO WHILE VALID-HANDLE (hFeFeld) :
            DO WHILE TRUE:
                IF hFeFeld:TYPE = 'FIELD-GROUP' THEN 
                DO:
                    CREATE  tFelder.
                    ASSIGN  
                        tFelder.cName   = ''
                        tFelder.cInhalt = ''
                        tFelder.hFeld   = hFeFeld:HANDLE
                        tFelder.fOK     = FALSE.
                    LEAVE.
                END.
                IF hFeFeld:TYPE   = 'LITERAL'       THEN LEAVE.
                IF hFeFeld:TYPE   = 'BUTTON'        THEN LEAVE.
                IF hFeFeld:TYPE   = 'RECTANGLE'     THEN LEAVE.
                IF hFeFeld:HIDDEN = TRUE            THEN LEAVE.
                CREATE  tFelder.
                ASSIGN  
                    tFelder.cName   = hFeFeld:NAME
                    tFelder.cInhalt = hFeFeld:SCREEN-VALUE
                    tFelder.hFeld   = hFeFeld:HANDLE
                    tFelder.fOK     = TRUE.
                LEAVE.
            END.
            ASSIGN 
                hFeFeld = hFeFeld:NEXT-SIBLING.
        END.
        FIND FIRST tFelder WHERE tFelder.fOK = FALSE NO-ERROR.
        IF NOT AVAILABLE tFelder THEN LEAVE.
        hFeFeld = tFelder.hFeld.
        hFeFeld = hFeFeld:FIRST-CHILD.
        DELETE  tFelder.
    END.

    FOR EACH tFelder:
        cVal = cVal
            + (IF cVal = '' THEN '' ELSE ';')
            + tFelder.cName
            + '@'
            + tFelder.cInhalt.
    END.
    PUT-KEY-VALUE SECTION 'Auswertungen' KEY cKey VALUE cVal.

END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER Fenster     AS HANDLE           NO-UNDO.
    DEFINE INPUT PARAMETER ENFelder    AS CHARACTER             NO-UNDO.
    DEFINE INPUT PARAMETER Flag        AS LOGICAL              NO-UNDO.

    DEFINE VARIABLE VName AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Farbe AS INTEGER   NO-UNDO.
    DEFINE VARIABLE Delim AS CHARACTER NO-UNDO.
    DEFINE VARIABLE anz   AS INTEGER   NO-UNDO.

    DO WHILE TRUE:
        Delim = CHR(01).
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ';'.
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ','.
        anz = NUM-ENTRIES(ENFelder, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ' '.
        anz = NUM-ENTRIES(ENFelder, Delim).
        LEAVE.
    END.

    IF Flag THEN Farbe = 8.
    ELSE         Farbe = 15.

    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.
    
    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE   = 'LITERAL' THEN LEAVE.
            IF Fenster:HIDDEN = TRUE      THEN LEAVE.
            VName = Fenster:NAME.
            DO WHILE TRUE.
                IF LOOKUP(VName, ENFelder, Delim ) > 0 THEN LEAVE.
                VName = 'rowObject.' + VName.
                IF LOOKUP(VName, ENFelder, Delim ) > 0 THEN LEAVE.
                VName = ''.
                LEAVE.
            END.
            IF VName = '' THEN LEAVE.
            Fenster:SENSITIVE = TRUE.
            IF NOT Fenster:TYPE BEGINS 'COMBO' AND
                NOT Fenster:TYPE BEGINS 'TOGGL' THEN Fenster:READ-ONLY = Flag.
            ELSE                                    Fenster:SENSITIVE = NOT Flag.
            Fenster:BGCOLOR = Farbe.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    DEFINE INPUT PARAMETER VName       AS CHARACTER                 NO-UNDO.

    DEFINE VARIABLE Berecht   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE XName     AS CHARACTER NO-UNDO.
    DEFINE VARIABLE hProc     AS HANDLE    NO-UNDO.
    DEFINE VARIABLE wProc     AS HANDLE    NO-UNDO.
    DEFINE VARIABLE cProgramm AS CHARACTER NO-UNDO.

    IF FMutation = TRUE THEN RETURN NO-APPLY.

    XName = ENTRY(1, VName, '.').
    RUN PRUEFEN_PASSWORT ( INPUT XName, OUTPUT Berecht ).
    IF ENTRY(1, Berecht) <> 'Ja' THEN RETURN.
    
    cProgramm = DYNAMIC-FUNCTION ('getSearch':U, VName, '') NO-ERROR.
    IF  cProgramm = ?  OR
        cProgramm = '' THEN 
    DO:
        MESSAGE 'Programm ' VName ' nicht gefunden '
            VIEW-AS ALERT-BOX.
        RETURN.
    END. 

    FIND FIRST tProgramme USE-INDEX tProgramme-k1
        WHERE tProgramme.Prog = XName NO-LOCK NO-ERROR.
    IF NOT AVAILABLE tProgramme THEN 
    DO:
        RUN VALUE(VName) PERSISTENT SET hProc.
        RUN initializeObject IN hProc.
        wProc = hProc:CURRENT-WINDOW NO-ERROR.
        CREATE  tProgramme.
        ASSIGN  
            tProgramme.Prog   = XName
            tProgramme.Proz   = hProc
            tProgramme.MFlag  = FALSE
            tProgramme.AbFlag = FALSE
            tProgramme.Titel  = wProc:TITLE.
    END.
    ELSE 
    DO:
        wProc = tProgramme.Proz:CURRENT-WINDOW.
        wProc:MOVE-TO-TOP().
    END.

END PROCEDURE.

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

&ENDIF

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

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION antwort_ja Procedure 
FUNCTION antwort_ja RETURNS LOGICAL
    ( INPUT ipNummer AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE Ja       AS LOGICAL   INIT TRUE NO-UNDO.

    DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.

    FIND Femeld USE-INDEX Femeld-k1
        WHERE Femeld.Sprcd = BenSprcd
        AND   Femeld.Fenr  = ipNummer  NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Femeld THEN 
    DO:
        MESSAGE 'Eine nicht definierte Fehlernummer ' ipNummer VIEW-AS ALERT-BOX ERROR.
        Ja = FALSE.
        RETURN Ja.
    END.
    
    cMessage = SUBSTITUTE(Femeld.Fetext + ' (&1)', ipNummer) NO-ERROR.
    RELEASE Femeld.
    MESSAGE cMessage
        VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO
        UPDATE Ja.

    RETURN Ja.

END FUNCTION.

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

&ENDIF

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

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

    DEFINE VARIABLE Ja       AS LOGICAL   INIT FALSE NO-UNDO.

    DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.

    FIND Femeld USE-INDEX Femeld-k1
        WHERE Femeld.Sprcd = BenSprcd
        AND   Femeld.Fenr  = ipNummer  NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Femeld THEN 
    DO:
        MESSAGE 'Eine nicht definierte Fehlernummer ' ipNummer VIEW-AS ALERT-BOX ERROR.
        Ja = FALSE.
        RETURN Ja.
    END.

    cMessage = SUBSTITUTE(Femeld.Fetext + ' (&1)', ipNummer) NO-ERROR.
    RELEASE Femeld.
    MESSAGE cMessage
        VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO
        UPDATE Ja.

    RETURN Ja.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION checkComboSort Procedure 
FUNCTION checkComboSort RETURNS LOGICAL
    ( Fenster AS HANDLE, ipObjects AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE lChecked AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cName    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Delim    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE anz      AS INTEGER   NO-UNDO.
    DEFINE VARIABLE hMenu    AS HANDLE    NO-UNDO.

    DO WHILE TRUE:
        Delim = CHR(01).
        anz = NUM-ENTRIES(ipObjects, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ';'.
        anz = NUM-ENTRIES(ipObjects, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ','.
        anz = NUM-ENTRIES(ipObjects, Delim).
        IF anz > 1 THEN LEAVE.
        Delim = ' '.
        anz = NUM-ENTRIES(ipObjects, Delim).
        LEAVE.
    END.
    IF anz = 0 THEN RETURN FALSE.

    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.

    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE <> 'COMBO-BOX' THEN LEAVE.
            cName = Fenster:NAME.
            DO WHILE TRUE.
                IF LOOKUP(cName, ipObjects, Delim ) > 0 THEN LEAVE.
                cName = ''.
                LEAVE.
            END.
            IF cName = '' THEN LEAVE.
            lChecked = DYNAMIC-FUNCTION('getComboSort':U, '', Fenster ) NO-ERROR.
            hMenu    = Fenster:POPUP-MENU NO-ERROR.
            IF VALID-HANDLE ( hMenu ) THEN hMenu = hMenu:FIRST-CHILD.
            
            MENU00:
            DO WHILE VALID-HANDLE ( hMenu ):
                cName = hMenu:NAME NO-ERROR.
                DO WHILE TRUE:
                    IF cName = ?                THEN LEAVE.
                    IF INDEX(cName, 'Sort') = 0 THEN LEAVE.
                    hMenu:CHECKED = lChecked NO-ERROR.
                    LEAVE MENU00.
                END.
                hMenu = hMenu:NEXT-SIBLING.
            END.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.

    RETURN TRUE.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION fehlerMeldung Procedure 
FUNCTION fehlerMeldung RETURNS LOGICAL
    ( ipNummer AS INTEGER, ipcParam AS CHARACTER  ):
    /*------------------------------------------------------------------------------
            Purpose:                                                                                                                                          
            Notes:                                                                                                                                            
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE cParam   AS CHARACTER NO-UNDO EXTENT 10.
    DEFINE VARIABLE ii       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cMeldung AS CHARACTER NO-UNDO.
    
    cParam = ''.
    ipcParam = REPLACE(ipcParam, ',', ';').
    DO ii = 1 TO NUM-ENTRIES(ipcParam, ';'):
        cParam[ii] = ENTRY(ii, ipcParam, ';').
    END.

    FIND Femeld USE-INDEX Femeld-k1
        WHERE Femeld.Sprcd = BenSprcd
        AND   Femeld.Fenr  = ipNummer  NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Femeld THEN 
    DO:
        MESSAGE 'Eine nicht definierte Fehlernummer ' ipNummer VIEW-AS ALERT-BOX ERROR.
        RETURN NO-APPLY.
    END.
    cMeldung = Femeld.FeText + SUBSTITUTE(' (&1) ', ipNummer).
    cMeldung = SUBSTITUTE(cMeldung, cParam[01], cParam[02], cParam[03], cParam[04]).
    MESSAGE cMeldung VIEW-AS ALERT-BOX ERROR.

    RETURN TRUE.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION findArtikelByEAN Procedure 
FUNCTION findArtikelByEAN RETURNS INTEGER
    ( INPUT-OUTPUT iohtTable AS HANDLE ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cStrichcode AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Firma       AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iAnz        AS INTEGER   NO-UNDO.
    DEFINE VARIABLE ii          AS INTEGER   NO-UNDO.
    
    DEFINE BUFFER bArtst   FOR Artst.
    DEFINE BUFFER bArtLief FOR ArtLief.
    
    EMPTY TEMP-TABLE tArtBarcode.
    
    ASSIGN  
        Firma       = iohtTable::Firma
        cStrichcode = iohtTable::sc1
        iAnz        = 0.
    DO WHILE LENGTH(cStrichcode) < 13:
        cStrichcode = '0' + cStrichcode.
    END.

    DO00:
    DO WHILE TRUE:
        FOR EACH bArtst NO-LOCK USE-INDEX Artst-Strichcode
            WHERE bArtst.Firma      = Firma
            AND   bArtst.Strichcode = cStrichcode
            AND   bArtst.Aktiv      = TRUE
            AND   bArtst.Ausverk    > 9:
                
            IF CAN-FIND (FIRST tArtBarcode NO-LOCK WHERE tArtBarcode.Artnr = bArtst.Artnr AND tArtBarcode.Inhalt = bArtst.Inhalt) THEN NEXT.
                
            iAnz = iAnz + 1.
            IF iAnz > 10 THEN LEAVE.
            
            iohtTable::rArtst(iAnz) = RECID(bArtst).
            CREATE  tArtBarcode.
            ASSIGN  
                tArtBarcode.Artnr  = bArtst.Artnr
                tArtBarcode.Inhalt = bArtst.Inhalt
                tArtBarcode.Jahr   = bArtst.Jahr.
        END.
        IF iAnz > 10 THEN LEAVE.
            
        FOR EACH bArtLief NO-LOCK USE-INDEX Strichcode-VGeb
            WHERE bArtLief.Firma           = Firma
            AND   bArtLief.Strichcode_VGeb = cStrichcode,
            
            FIRST bArtst NO-LOCK OF bArtLief:
                 
            IF  NOT bArtst.Aktiv   OR
                bArtst.Ausverk = 9 THEN NEXT.
                 
            IF CAN-FIND (FIRST tArtBarcode NO-LOCK WHERE tArtBarcode.Artnr = bArtLief.Artnr AND tArtBarcode.Inhalt = bArtLief.Inhalt) THEN NEXT.
                
            iAnz = iAnz + 1.
            IF iAnz > 10 THEN LEAVE.
            
            iohtTable::rArtst(iAnz) = RECID(bArtst).
            CREATE  tArtBarcode.
            ASSIGN  
                tArtBarcode.Artnr  = bArtLief.Artnr
                tArtBarcode.Inhalt = bArtLief.Inhalt
                tArtBarcode.Jahr   = bArtLief.Jahr.
        END.
        IF iAnz > 10 THEN LEAVE.
        
        FOR EACH bArtLief NO-LOCK USE-INDEX Strichcode-KGeb
            WHERE bArtLief.Firma           = Firma
            AND   bArtLief.Strichcode_KGeb = cStrichcode, 
            
            FIRST bArtst NO-LOCK OF bArtLief:
                 
            IF  NOT bArtst.Aktiv   OR
                bArtst.Ausverk = 9 THEN NEXT.
                 
            IF CAN-FIND (FIRST tArtBarcode NO-LOCK WHERE tArtBarcode.Artnr = bArtLief.Artnr AND tArtBarcode.Inhalt = bArtLief.Inhalt) THEN NEXT.

            iAnz = iAnz + 1.
            IF iAnz > 10 THEN LEAVE.
            
            iohtTable::rArtst(iAnz) = RECID(bArtst).
            CREATE  tArtBarcode.
            ASSIGN  
                tArtBarcode.Artnr  = bArtLief.Artnr
                tArtBarcode.Inhalt = bArtLief.Inhalt
                tArtBarcode.Jahr   = bArtLief.Jahr.
        END.
        IF iAnz > 10 THEN LEAVE.
        
        FOR EACH bArtLief NO-LOCK USE-INDEX Strichcode-GGeb
            WHERE bArtLief.Firma           = Firma
            AND   bArtLief.Strichcode_GGeb = cStrichcode,
            
            FIRST bArtst NO-LOCK OF bArtLief:
                 
            IF  NOT bArtst.Aktiv   OR
                bArtst.Ausverk = 9 THEN NEXT.
                 
            IF CAN-FIND (FIRST tArtBarcode NO-LOCK WHERE tArtBarcode.Artnr = bArtLief.Artnr AND tArtBarcode.Inhalt = bArtLief.Inhalt) THEN NEXT.

            iAnz = iAnz + 1.
            IF iAnz > 10 THEN LEAVE.
            
            iohtTable::rArtst(iAnz) = RECID(bArtst).
            CREATE  tArtBarcode.
            ASSIGN  
                tArtBarcode.Artnr  = bArtLief.Artnr
                tArtBarcode.Inhalt = bArtLief.Inhalt
                tArtBarcode.Jahr   = bArtLief.Jahr.
        END.
        IF iAnz > 10 THEN LEAVE.
        
        FOR EACH bArtLief NO-LOCK USE-INDEX ArtLief-k3
            WHERE bArtLief.Firma   = Firma
            AND   bArtLief.S_Artnr = cStrichcode,
            
            FIRST bArtst NO-LOCK OF bArtLief:
                
            IF  NOT bArtst.Aktiv   OR
                bArtst.Ausverk = 9 THEN NEXT.
                 
            IF CAN-FIND (FIRST tArtBarcode NO-LOCK WHERE tArtBarcode.Artnr = bArtLief.Artnr AND tArtBarcode.Inhalt = bArtLief.Inhalt) THEN NEXT.

            iAnz = iAnz + 1.
            IF iAnz > 10 THEN LEAVE.
            
            iohtTable::rArtst(iAnz) = RECID(bArtst).
            CREATE  tArtBarcode.
            ASSIGN  
                tArtBarcode.Artnr  = bArtLief.Artnr
                tArtBarcode.Inhalt = bArtLief.Inhalt
                tArtBarcode.Jahr   = bArtLief.Jahr.
        END.
        IF iAnz > 0 THEN LEAVE.
        
        IF NOT cStrichcode BEGINS '0' THEN LEAVE.
        cStrichcode = SUBSTRING(cStrichcode,02).
        IF cStrichcode = ''           THEN LEAVE.
    END.
    
    RELEASE bArtst.
    RELEASE bArtLief.
    
    IF iAnz > 1 THEN 
    DO:
        DO ii = 1 TO iAnz:
        END.
    END.
                
    RETURN iAnz.

END FUNCTION.

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

&ENDIF

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

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

    FIND tSteuer NO-LOCK
        WHERE tSteuer.Firma = MandKurz.
    RETURN tSteuer.Fwi13.

END FUNCTION.

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

&ENDIF

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

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

    FIND tSteuer NO-LOCK
        WHERE tSteuer.Firma = MandKurz.
    RETURN tSteuer.Fwi12.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAbholKnr Procedure 
FUNCTION getAbholKnr RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE iKnr AS INTEGER NO-UNDO.

    FIND tSteuer NO-LOCK
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
    iKnr = tSteuer.Fwi11.
    
    DO WHILE TRUE:
        IF NOT cInstallation BEGINS 'WILDHAB' THEN LEAVE.
        CASE iBenLager.
            WHEN 01 THEN 
                iKnr = iKnr * 10.
        END.
        LEAVE.
    END.

    RETURN iKnr.

END FUNCTION.

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

&ENDIF

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

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

    FIND tSteuer WHERE tSteuer.Firma = MandKurz NO-ERROR.
    IF AVAILABLE tSteuer THEN RETURN tSteuer.ADFirma.
    ELSE                      RETURN ''.

END FUNCTION.

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

&ENDIF

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

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

    RETURN fAdmin.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAdressAnzeige Procedure 
FUNCTION getAdressAnzeige RETURNS CHARACTER
    ( Knr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND FIRST tSteuer NO-LOCK WHERE tSteuer.Firma = MandKurz.

    FIND Adresse NO-LOCK USE-INDEX Adresse-k1
        WHERE Adresse.Firma = tSteuer.AdFirma
        AND   Adresse.Knr   = Knr NO-ERROR.
    IF NOT AVAILABLE Adresse THEN RETURN ''.
    RETURN Adresse.Anzeig_Br.

END FUNCTION.

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

&ENDIF

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

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

    IF AVAILABLE tAdresse THEN RETURN tAdresse.Aktiv.
    ELSE                       RETURN FALSE.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GEtAdresseANZEIGEBR Procedure 
FUNCTION GEtAdresseANZEIGEBR RETURNS CHARACTER
    ( Knr AS INTEGER, Art AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.

    FIND Adresse USE-INDEX Adresse-k1
        WHERE Adresse.Firma = tSteuer.AdFirma
        AND   Adresse.Knr   = Knr NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Adresse THEN RETURN ''.
    IF Art = 0               THEN RETURN Adresse.Anzeig_Br.

    FIND Debst USE-INDEX Debst-k1
        WHERE Debst.Firma = MandKurz
        AND   Debst.Knr   = Adresse.Knr NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Debst THEN RETURN ''.

    CASE Art:

        WHEN 1 THEN 
            DO:
                IF Debst.KnrFak = 0 THEN RETURN ''.
                FIND Adresse USE-INDEX Adresse-k1
                    WHERE Adresse.Firma = tSteuer.ADFirma
                    AND   Adresse.Knr   = Debst.KnrFak NO-LOCK NO-ERROR.
                IF NOT AVAILABLE Adresse THEN RETURN ''.
                RETURN Adresse.Anzeig_Br.
            END.

        WHEN 2 THEN 
            DO:
                IF Debst.KnrLie = 0 THEN RETURN ''.
                FIND Adresse USE-INDEX Adresse-k1
                    WHERE Adresse.Firma = tSteuer.ADFirma
                    AND   Adresse.Knr   = Debst.KnrLie NO-LOCK NO-ERROR.
                IF NOT AVAILABLE Adresse THEN RETURN ''.
                RETURN Adresse.Anzeig_Br.
            END.

    END CASE.

END FUNCTION.

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

&ENDIF

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

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

    IF AVAILABLE tAdresse THEN RETURN tAdresse.ARowid.
    ELSE                       RETURN ?.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAdresseSuchbe Procedure 
FUNCTION getAdresseSuchbe RETURNS CHARACTER
    ( Knr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.

    FIND Adresse NO-LOCK USE-INDEX Adresse-k1
        WHERE Adresse.Firma = tSteuer.AdFirma
        AND   Adresse.Knr   = Knr NO-ERROR.
    IF NOT AVAILABLE Adresse THEN RETURN ''.
    RETURN Adresse.Suchbe.

END FUNCTION.

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

&ENDIF

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

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

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
        
    RETURN tSteuer.Fwi25.

END FUNCTION.

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

&ENDIF

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

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

    RETURN AktFeld.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAktPreisGruppe Procedure 
FUNCTION getAktPreisGruppe RETURNS CHARACTER
    ( ipGrp   AS INTEGER  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE xGruppe AS CHARACTER NO-UNDO.

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.

    xGruppe = ''.
    IF tSteuer.Aktionspreise = 0 THEN RUN FIND_PREISGRUPPE  ( INPUT ipGrp, OUTPUT xGruppe ).
    IF tSteuer.Aktionspreise = 1 THEN RUN FIND_KUNDENGRUPPE ( INPUT ipGrp, OUTPUT xGruppe ).
    IF xGruppe <> '' THEN xGruppe = ENTRY(2, xGruppe, CHR(01)).

    RETURN xGruppe.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAlkoholGehalt Procedure 
FUNCTION getAlkoholGehalt RETURNS DECIMAL
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE BUFFER bArtst FOR Artst.

    FIND bArtst NO-LOCK
        WHERE bArtst.Firma  = MandKurz
        AND   bArtst.Artnr  = ipArtnr
        AND   bArtst.Inhalt = ipInhalt
        AND   bArtst.Jahr   = ipJahr NO-ERROR.
    IF AVAILABLE bArtst THEN RETURN bArtst.Alk_Gehalt.
    ELSE                     RETURN 0.00.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getArtikel Procedure 
FUNCTION getArtikel RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    cString = ''.
    FIND FIRST tArtst NO-ERROR.
    IF NOT AVAILABLE tArtst THEN RETURN cString.

    cString = STRING(tArtst.iRecid)     + CHR(01)
        + STRING(tArtst.Artnr)      + CHR(01)
        + STRING(tArtst.Inhalt)     + CHR(01)
        + STRING(tArtst.Jahr)       + CHR(01)
        + STRING(tArtst.Bez).
    RETURN cString.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getArtikelBezeichnung Procedure 
FUNCTION getArtikelBezeichnung RETURNS CHARACTER
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND FIRST Artbez NO-LOCK
        WHERE Artbez.Firma  = MandKurz
        AND   Artbez.Artnr  = ipArtnr
        AND   Artbez.Inhalt = ipInhalt
        AND   Artbez.Jahr   = ipJahr NO-ERROR.
    IF NOT AVAILABLE Artbez THEN RETURN "".
    ELSE                         RETURN TRIM(Artbez.Bez1 + ' ' + Artbez.Bez2).

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getArtikelGrp Procedure 
FUNCTION getArtikelGrp RETURNS CHARACTER
    ( ipiWgr AS INTEGER , ipiPgr AS INTEGER, ipiAgr AS INTEGER ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    DEFINE VARIABLE result AS CHARACTER NO-UNDO.
        
    FIND ArtikGrp NO-LOCK 
        WHERE ArtikGrp.Firma    = Firma
        AND   ArtikGrp.Wgr      = ipiWgr
        AND   ArtikGrp.Prod_Grp = ipiPgr
        AND   ArtikGrp.Art_Grp  = ipiAgr NO-ERROR.
    RESULT = (IF AVAILABLE ArtikGrp THEN ArtikGrp.Bez1 ELSE '??????????').
        
    RETURN result.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETARTRABATTGRP Procedure 
FUNCTION GETARTRABATTGRP RETURNS CHARACTER
    ( Rab_Grp AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Tabel USE-INDEX Tabel-k1
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'ARABGRP'
        AND   Tabel.CodeC  = ''
        AND   Tabel.CodeI  = Rab_Grp
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Tabel THEN RETURN '??????????'.
    ELSE                        RETURN Tabel.Bez1.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getBatch Procedure 
FUNCTION getBatch RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    IF SESSION:BATCH-MODE THEN lBatch = TRUE.

    RETURN lBatch.

END FUNCTION.

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

&ENDIF

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

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

    RETURN iBenLager.

END FUNCTION.

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

&ENDIF

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

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

    RETURN Benutzer.

END FUNCTION.

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

&ENDIF

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

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

    RETURN cBenDaten.

END FUNCTION.

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

&ENDIF

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

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

    RETURN BenSprcd.

END FUNCTION.

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

&ENDIF

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

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

    RETURN cBerecht.

END FUNCTION.

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

&ENDIF

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

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

    DEFINE VARIABLE hBuf    AS HANDLE    NO-UNDO.
    DEFINE VARIABLE hCol    AS HANDLE    NO-UNDO.
    DEFINE VARIABLE i1      AS INTEGER   NO-UNDO.
    DEFINE VARIABLE i2      AS INTEGER   NO-UNDO.
    
    DEFINE VARIABLE cViewer AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lSecure AS LOGICAL   NO-UNDO.

    i1 = INDEX(ipSektion, 'b-') + 1.
    cViewer = 'v' + TRIM(SUBSTRING(ipSektion,i1)).
    FIND FIRST FeldBerecht NO-LOCK
        WHERE FeldBerecht.Firma    = MandKurz
        AND   FeldBerecht.Benutzer = Benutzer
        AND   FeldBerecht.Programm = cViewer NO-ERROR.
    lSecure = (IF AVAILABLE FeldBerecht THEN TRUE ELSE FALSE).

    EMPTY TEMP-TABLE tBrowser.

    FIND FIRST tBenDaten NO-LOCK
        WHERE tBenDaten.Benutzer   = Benutzer
        AND   tBenDaten.Konzern    = '9999'
        AND   tBenDaten.Firma      = MandKurz
        AND   tBenDaten.Filiale    = '0000'
        AND   tBenDaten.RecArt     = 'BRPOS'
        AND   tBenDaten.Sektion    = ipSektion NO-ERROR.
    IF NOT AVAILABLE tBenDaten THEN 
    DO:
        FOR EACH BenDaten NO-LOCK
            WHERE BenDaten.Benutzer   = Benutzer
            AND   BenDaten.Konzern    = '9999'
            AND   BenDaten.Firma      = MandKurz
            AND   BenDaten.Filiale    = '0000'
            AND   BenDaten.RecArt     = 'BRPOS'
            AND   BenDaten.Sektion    = ipSektion:
            CREATE  tBenDaten.
            BUFFER-COPY BenDaten TO tBenDaten.
        END.
    END.

    i1       = 0.
    hCol     = iphBrowser:FIRST-COLUMN.
    DO WHILE VALID-HANDLE(hCol):
        i1 = i1 + 1.
        FIND FIRST tBrowser WHERE tBrowser.Feld = hCol:NAME NO-ERROR.
        IF AVAILABLE tBrowser THEN 
        DO:
            ASSIGN  
                tBrowser.PosAkt   = i1
                tBrowser.BreitAkt = hCol:WIDTH
                tBrowser.fVisible = hCol:VISIBLE.
        END.
        ELSE 
        DO:
            CREATE  tBrowser.
            ASSIGN  
                tBrowser.Feld     = TRIM(hCol:NAME)
                tBrowser.Pos      = i1
                tBrowser.PosAkt   = i1
                tBrowser.Breit    = hCol:WIDTH
                tBrowser.BreitAkt = tBrowser.Breit
                tBrowser.fVisible = hCol:VISIBLE.
        END.
        ASSIGN  
            tBrowser.fAktiv   = TRUE
            tBrowser.hCol     = hCol
            tBrowser.cType    = hCol:DATA-TYPE
            tBrowser.cFormat  = hCol:FORMAT
            tBrowser.cInitial = ''
            tBrowser.cLabel   = hCol:LABEL.

        FIND FIRST tBenDaten NO-LOCK
            WHERE tBenDaten.Benutzer   = Benutzer
            AND   tBenDaten.Konzern    = '9999'
            AND   tBenDaten.Firma      = MandKurz
            AND   tBenDaten.Filiale    = '0000'
            AND   tBenDaten.RecArt     = 'BRPOS'
            AND   tBenDaten.Sektion    = ipSektion
            AND   tBenDaten.Schluessel = hCol:NAME NO-ERROR.
        IF AVAILABLE tBenDaten THEN 
        DO:
            ASSIGN  
                tBrowser.Pos   = tBenDaten.iFeld_1
                tBrowser.Breit = tBenDaten.dFeld_1.
        END.

        DO WHILE lSecure:
            FIND FIRST FeldBerecht NO-LOCK
                WHERE FeldBerecht.Firma    = MandKurz
                AND   FeldBerecht.Benutzer = Benutzer
                AND   FeldBerecht.Programm = cViewer
                AND   FeldBerecht.Feld     = hCol:NAME NO-ERROR.
            IF NOT AVAILABLE FeldBerecht THEN LEAVE.
            IF FeldBerecht.Zeigen        THEN LEAVE.
            tBrowser.fVisible = FALSE.
            LEAVE.
        END.

        hCol = hCol:NEXT-COLUMN.
    END.

    i1 = 0.
    FOR EACH tBrowser BY tBrowser.fAktiv
        BY tBrowser.Pos:
        IF NOT tBrowser.fAktiv THEN 
        DO:
            DELETE  tBrowser.
            NEXT.
        END.
        i1 = i1 + 1.
        i2 = 0.
        hCol = iphBrowser:FIRST-COLUMN.
        DO WHILE VALID-HANDLE(hCol):
            i2 = i2 + 1.
            IF hCol:NAME <> tBrowser.Feld THEN 
            DO:
                hCol = hCol:NEXT-COLUMN.
                NEXT.
            END.
            hCol:WIDTH   = tBrowser.Breit.
            hCol:VISIBLE = tBrowser.fVisible.
            IF tBrowser.Pos = i2 THEN LEAVE.
            iphBrowser:MOVE-COLUMN(i2, i1).
            LEAVE.
        END.
    END.

    iphtBrowser:EMPTY-TEMP-TABLE().
    FOR EACH tBrowser:
        iphtBrowser:BUFFER-CREATE().
        iphtBrowser:BUFFER-COPY( TEMP-TABLE tBrowser:DEFAULT-BUFFER-HANDLE ).
    END.

    RETURN TRUE.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getDBUser Procedure 
FUNCTION getDBUser RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE ix    AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cUser AS CHARACTER NO-UNDO.
    
    DO ix = 1 TO NUM-DBS:
        cUser = USERID(LDBNAME(ix)).
        IF cUser <> ?   AND
            cUser <> ''  THEN RETURN cUser.
    END.
    
    IF cUser = '' THEN cUser = USERID('GE_MIS').

    RETURN "".

END FUNCTION.

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

&ENDIF

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

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

    FIND Aufko NO-LOCK USE-INDEX AUfko-k1
        WHERE Aufko.Firma = MandKurz
        AND   Aufko.Aufnr = ipAufnr NO-ERROR.

    IF NOT AVAILABLE Aufko THEN RETURN 0.
    
    IF Aufko.Faknr = 0 THEN RETURN Aufko.Aufnr.
    ELSE                    RETURN Aufko.Faknr.
    
    RELEASE Aufko.

END FUNCTION.

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

&ENDIF

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

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

    RETURN EAVCode.

END FUNCTION.

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

&ENDIF

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

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

    RETURN EntryFeld.

END FUNCTION.

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

&ENDIF

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

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

    DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.
    
    GET-KEY-VALUE SECTION 'GrundEinstellungen'
        KEY     'ETIKETTEN'
        VALUE   cPath.
    IF  cPath = '' OR
        cPath = ?  THEN cPath = SESSION:TEMP-DIRECTORY.
    IF  SUBSTRING(cPath, LENGTH(cPath), 01) <> '/' AND
        SUBSTRING(cPath, LENGTH(cPath), 01) <> '\' THEN cPath = cPath + '\'.

    RETURN cPath.

END FUNCTION.

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

&ENDIF

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

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

    RETURN EWKCode.

END FUNCTION.

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

&ENDIF

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

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

    FIND tSteuer WHERE tSteuer.Firma = MandKurz NO-ERROR.
    IF AVAILABLE tSteuer THEN RETURN tSteuer.FBFirma.
    ELSE                      RETURN ''.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFehlwert Procedure 
FUNCTION getFehlwert RETURNS CHARACTER
    ( ipcFirma AS CHARACTER, ipcFWArt AS CHARACTER ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cFehlwert AS CHARACTER NO-UNDO INIT ?.

    FIND Fehlwerte NO-LOCK 
        WHERE Fehlwerte.Firma = ipcFirma
        AND   Fehlwerte.Art   = ipcFWArt NO-ERROR.
    IF NOT AVAILABLE Fehlwerte THEN RETURN cFehlwert.
    
    CASE Fehlwerte.FeldType:
        WHEN 1 THEN 
            cFehlwert =             Fehlwerte.cFeld.
        WHEN 2 THEN 
            cFehlwert = TRIM(STRING(Fehlwerte.iFeld,'->>>>>>>>9')).
        WHEN 3 THEN 
            cFehlwert = TRIM(STRING(Fehlwerte.nFeld,'->>>>>>>>9.99<<')).
        WHEN 4 THEN 
            cFehlwert =      STRING(Fehlwerte.dFeld,'99.99.9999').
        WHEN 5 THEN 
            cFehlwert =      STRING(Fehlwerte.lFeld,'y/n').
    END CASE.
    
    RETURN cFehlwert.

END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFensterPosition Procedure 
FUNCTION getFensterPosition RETURNS CHARACTER
    ( ipSektion AS CHARACTER, ipSchluessel AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE wx     AS INTEGER   NO-UNDO INIT 30.
    DEFINE VARIABLE wy     AS INTEGER   NO-UNDO INIT 30.
    DEFINE VARIABLE iRecid AS RECID     NO-UNDO.
    DEFINE VARIABLE cValue AS CHARACTER NO-UNDO.

    cValue = STRING(wx) + CHR(01)
        + STRING(wy).

    FIND tBenDaten USE-INDEX BenDaten-k1
        WHERE tBenDaten.Benutzer   = DBBenutzer
        AND   tBenDaten.Konzern    = '9999'
        AND   tBenDaten.Firma      = MandKurz
        AND   tBenDaten.Filiale    = '0000'
        AND   tBenDaten.RecArt     = 'FEPOS'
        AND   tBenDaten.Sektion    = ipSektion
        AND   tBenDaten.Schluessel = ipSchluessel NO-LOCK NO-ERROR.

    IF NOT AVAILABLE tBenDaten THEN 
    DO:
        REPEAT TRANSACTION:
            CREATE  tBenDaten.
            ASSIGN  
                tBenDaten.Benutzer   = DBBenutzer
                tBenDaten.Konzern    = '9999'
                tBenDaten.Firma      = MandKurz
                tBenDaten.Filiale    = '0000'
                tBenDaten.RecArt     = 'FEPOS'
                tBenDaten.Sektion    = ipSektion
                tBenDaten.Schluessel = ipSchluessel
                tBenDaten.iFeld_1    = wx
                tBenDaten.iFeld_2    = wy
                tBenDaten.Erf_Datum  = TODAY.
            iRecid = RECID(tBenDaten).
            RELEASE tBenDaten.
            LEAVE.
        END.
        FIND tBenDaten WHERE RECID(tBenDaten) = iRecid NO-LOCK NO-ERROR.
    END.

    iRecid = RECID(tBenDaten).
    wx     = tBenDaten.iFeld_1.
    wy     = tBenDaten.iFeld_2.
    
    cValue = STRING(wx) + CHR(01)
        + STRING(wy).
    
    RETURN cValue.

END FUNCTION.

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

&ENDIF

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

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

    FIND tProgramme USE-INDEX tProgramme-k1
        WHERE tProgramme.Prog = ipProg NO-ERROR.
    IF NOT AVAILABLE tProgramme THEN RETURN FALSE.
    ELSE                             RETURN tProgramme.AbFlag.

END FUNCTION.

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

&ENDIF

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

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

    RETURN FAbbruch.

END FUNCTION.

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

&ENDIF

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

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

    RETURN lOK.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getFremdNr) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFremdNr Procedure 
FUNCTION getFremdNr RETURNS CHARACTER
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Artst NO-LOCK
        WHERE Artst.Firma  = MandKurz
        AND   Artst.Artnr  = ipArtnr
        AND   Artst.Inhalt = ipInhalt
        AND   Artst.Jahr   = ipJahr NO-ERROR.
    IF NOT AVAILABLE Artst THEN RETURN "".
    ELSE                        RETURN Artst.FremdNr.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getFWAktionspreise) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFWAktionspreise Procedure 
FUNCTION getFWAktionspreise RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
        
    RETURN tSteuer.AktionsPreise.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getFWAktionsrab) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFWAktionsrab Procedure 
FUNCTION getFWAktionsrab RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
        
    RETURN tSteuer.Fwi20.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getFwFRW) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFwFRW Procedure 
FUNCTION getFwFRW RETURNS CHARACTER
    (  ):
    /*------------------------------------------------------------------------------
            Purpose:                                                                                                                                          
            Notes:                                                                                                                                            
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE result AS CHARACTER NO-UNDO.
        
    GET-KEY-VALUE SECTION 'FwSteuer'
        KEY     'FwFrw'
        VALUE   result.
    IF RESULT = ? OR RESULT = '' THEN RESULT = 'CHF'.
    
    RETURN RESULT.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getFWNettoRab) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFWNettoRab Procedure 
FUNCTION getFWNettoRab RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
        
    RETURN tSteuer.Fwi15.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getFWPreisgrp) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFWPreisgrp Procedure 
FUNCTION getFWPreisgrp RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
    RETURN tSteuer.Fwi14.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETFWSAMMFAKART) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETFWSAMMFAKART Procedure 
FUNCTION GETFWSAMMFAKART RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.

    RETURN tSteuer.Fwi19.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETFWSPRCD) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETFWSPRCD Procedure 
FUNCTION GETFWSPRCD RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK WHERE tSteuer.Firma = MandKurz.
    RETURN tSteuer.Fwi01.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETFWSRGEDRUCKT) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETFWSRGEDRUCKT Procedure 
FUNCTION GETFWSRGEDRUCKT RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.
        
    RETURN tSteuer.Fwi17.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETFWSRNICHT) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETFWSRNICHT Procedure 
FUNCTION GETFWSRNICHT RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.

    RETURN tSteuer.Fwi16.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getGebRgArtnr) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getGebRgArtnr Procedure 
FUNCTION getGebRgArtnr RETURNS INTEGER
    ( ipKnr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE BUFFER bTabel FOR Tabel.
    
    FIND bTabel NO-LOCK
        WHERE bTabel.Firma  = Firma
        AND   bTabel.Recart = 'GEBRGARTNR'
        AND   bTabel.CodeC  = ''
        AND   bTabel.CodeI  = ipKnr
        AND   bTabel.Sprcd  = 1 NO-ERROR.
    IF NOT AVAILABLE bTabel THEN 
    DO:
        FIND FIRST bTabel NO-LOCK
            WHERE bTabel.Firma  = Firma
            AND   bTabel.Recart = 'GEBRGARTNR'
            AND   bTabel.CodeC  = ''
            AND   bTabel.Sprcd  = 1 NO-ERROR.
    END.
            
    RETURN (IF AVAILABLE bTabel THEN bTabel.Int_1 ELSE 0).

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getGebRgFakart) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getGebRgFakart Procedure 
FUNCTION getGebRgFakart RETURNS INTEGER
    ( ipKnr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE BUFFER bTabel FOR Tabel.
    
    FIND bTabel NO-LOCK
        WHERE bTabel.Firma  = Firma
        AND   bTabel.Recart = 'GEBRGFAKART'
        AND   bTabel.CodeC  = ''
        AND   bTabel.CodeI  = ipKnr
        AND   bTabel.Sprcd  = 1 NO-ERROR.
    IF NOT AVAILABLE bTabel THEN 
    DO:
        FIND FIRST bTabel NO-LOCK
            WHERE bTabel.Firma  = Firma
            AND   bTabel.Recart = 'GEBRGFAKART'
            AND   bTabel.CodeC  = ''
            AND   bTabel.Sprcd  = 1 NO-ERROR.
    END.
            
    RETURN (IF AVAILABLE bTabel THEN bTabel.Int_1 ELSE 1).

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getGeloeschteArtikel) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getGeloeschteArtikel Procedure 
FUNCTION getGeloeschteArtikel RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cKey   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cValue AS CHARACTER NO-UNDO.

    cKey = Benutzer + '¦' + 'GeloeschteArtikel'.
    GET-KEY-VALUE SECTION 'Grundeinstellungen'
        KEY     cKey
        VALUE   cValue.
    IF cValue = ? THEN cValue = 'n'.
    
    RETURN (IF cValue BEGINS 'n' THEN FALSE ELSE TRUE).

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getGGebindeInhalt) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getGGebindeInhalt Procedure 
FUNCTION getGGebindeInhalt RETURNS INTEGER
    ( ipGeb_Cd AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND GGebinde NO-LOCK
        WHERE GGebinde.Firma  = MandKurz
        AND   GGebinde.Geb_Cd = ipGeb_Cd NO-ERROR.
    IF AVAILABLE GGebinde THEN RETURN GGebinde.Inhalt.
    ELSE                       RETURN 0.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getGGebindeKBez) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getGGebindeKBez Procedure 
FUNCTION getGGebindeKBez RETURNS CHARACTER
    ( ipGeb_Cd AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND GGebinde NO-LOCK
        WHERE GGebinde.Firma  = MandKurz
        AND   GGebinde.Geb_Cd = ipGeb_Cd NO-ERROR.
    IF AVAILABLE GGebinde THEN RETURN GGebinde.KBez.
    ELSE                       RETURN '??? ' + ipGeb_Cd.    

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getInstallation) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getInstallation Procedure 
FUNCTION getInstallation RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN cInstallation.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getKGebindeInhalt) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getKGebindeInhalt Procedure 
FUNCTION getKGebindeInhalt RETURNS INTEGER
    ( ipGeb_Cd AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND KGebinde NO-LOCK
        WHERE KGebinde.Firma  = MandKurz
        AND   KGebinde.Geb_Cd = ipGeb_Cd NO-ERROR.
    IF AVAILABLE KGebinde THEN RETURN KGebinde.Inhalt.
    ELSE                       RETURN 0.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getKGebindeKBez) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getKGebindeKBez Procedure 
FUNCTION getKGebindeKBez RETURNS CHARACTER
    ( ipGeb_Cd AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND KGebinde NO-LOCK
        WHERE KGebinde.Firma  = MandKurz
        AND   KGebinde.Geb_Cd = ipGeb_Cd NO-ERROR.
    IF AVAILABLE KGebinde THEN RETURN KGebinde.KBez.
    ELSE                       RETURN '??? ' + ipGeb_Cd.    

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETKNR) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETKNR Procedure 
FUNCTION GETKNR RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    IF NOT AVAILABLE tAdresse THEN RETURN 0.
    RETURN tAdresse.Knr.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getLagerBestand) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLagerBestand Procedure 
FUNCTION getLagerBestand RETURNS DECIMAL
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER, ipLager AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND ArtLager NO-LOCK
        WHERE ArtLager.Firma  = MandKurz
        AND   ArtLager.Artnr  = ipArtnr
        AND   ArtLager.Inhalt = ipInhalt
        AND   ArtLager.Jahr   = ipJahr
        AND   ArtLager.Lager  = ipLager NO-ERROR.
    IF AVAILABLE ArtLager THEN RETURN ArtLager.Bestand.
    ELSE                       RETURN 0.00.
            
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getLagerort) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLagerort Procedure 
FUNCTION getLagerort RETURNS CHARACTER
    ( INPUT iLager AS INTEGER, INPUT iArtnr AS INTEGER, INPUT iInhalt AS INTEGER, INPUT iJahr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND ArtLager USE-INDEX ArtLager-k1
        WHERE ArtLager.Firma  = MandKurz
        AND   ArtLager.Artnr  = iArtnr
        AND   ArtLager.Inhalt = iInhalt
        AND   ArtLager.Jahr   = iJahr
        AND   ArtLager.Lager  = iLager NO-LOCK NO-ERROR.
    IF AVAILABLE ArtLager THEN RETURN ArtLager.Ort.
    ELSE                       RETURN "".

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getLagerPlatz) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLagerPlatz Procedure 
FUNCTION getLagerPlatz RETURNS CHARACTER
    ( ipiArtnr AS INTEGER, ipiInhalt AS INTEGER, ipiJahr AS INTEGER ):
    /*------------------------------------------------------------------------------*/
    /*  Purpose:                                                                    */
    /*  Parameters:  <none>                                                         */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/

    DEFINE VARIABLE cLagOrt  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lVerfall AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE lLotnr   AS LOGICAL   NO-UNDO.

    FIND Artst NO-LOCK
        WHERE Artst.Firma  = Firma
        AND   Artst.Artnr  = ipiArtnr
        AND   Artst.Inhalt = ipiInhalt
        AND   Artst.Jahr   = ipiJahr NO-ERROR.
    IF NOT AVAILABLE Artst THEN RETURN cLagOrt.
    
    lVerfall = Artst.lVerfall.
    lLotnr   = Artst.lLotnr  .
    cLagOrt  = ''.
    
    IF  lVerfall OR 
        lLotnr   THEN 
    DO:
        FOR EACH LotLager NO-LOCK USE-INDEX LotLager-k3
            WHERE LotLager.Firma   = Artst.Firma
            AND   LotLager.Artnr   = Artst.Artnr
            AND   LotLager.Inhalt  = Artst.Inhalt
            AND   LotLager.Jahr    = Artst.Jahr 
            AND   LotLager.Bestand > 0 :
                
            FIND HoReLager NO-LOCK USE-INDEX HoReLager_Id
                WHERE HoReLager.HoReLager_Id = LotLager.HoReLager_Id
                AND   HoReLager.Art          = 1 NO-ERROR.
            IF NOT AVAILABLE HoReLager THEN NEXT. 
            cLagOrt = cLagOrt
                + (IF cLagOrt = '' THEN '' ELSE ';')
                + HoReLager.cSort
                + ','
                + TRIM(STRING(LotLager.Bestand,'->>>>>9'))
                + ',L'
                + STRING(RECID(LotLager)).
        END.
    END.
    IF cLagOrt <> '' THEN RETURN cLagOrt.
    
    FOR EACH HoReLager NO-LOCK USE-INDEX HoReLager-k3
        WHERE HoReLager.Firma   = Artst.Firma
        AND   HoReLager.Lager   = 0
        AND   HoReLager.Art     = 1
        AND   HoReLager.Artnr   = Artst.Artnr
        AND   HoReLager.Inhalt  = Artst.Inhalt
        AND   HoReLager.Bestand > 0 :
            
        cLagOrt = cLagOrt
            + (IF cLagOrt = '' THEN '' ELSE ';')
            + HoReLager.cSort
            + ','
            + TRIM(STRING(HoReLager.Bestand,'->>>>>9'))
            + ',H'
            + STRING(RECID(HoReLager)).
    END.

    /*     
    FOR EACH HoReLager NO-LOCK USE-INDEX HoReLager-k3
        WHERE HoReLager.Firma   = Artst.Firma
        AND   HoReLager.Lager   = 0
        AND   HoReLager.Art     = 2
        AND   HoReLager.Artnr   = Artst.Artnr
        AND   HoReLager.Inhalt  = Artst.Inhalt
        AND   HoReLager.Bestand > 0 :
            
        cLagOrt = cLagOrt
            + (IF cLagOrt = '' THEN '' ELSE ';')
            + HoReLager.cSort
            + ','
            + TRIM(STRING(HoReLager.Bestand,'->>>>>9'))
            + ',H'
            + STRING(RECID(HoReLager)).
    END.
    */
    IF cLagOrt <> '' THEN RETURN cLagOrt.
     
    FOR EACH HoReLager NO-LOCK USE-INDEX HoReLager-k3
        WHERE HoReLager.Firma   = Artst.Firma
        AND   HoReLager.Lager   = 0
        AND   HoReLager.Art     = 1
        AND   HoReLager.Artnr   = Artst.Artnr
        AND   HoReLager.Inhalt  = Artst.Inhalt :
            
        cLagOrt = cLagOrt
            + (IF cLagOrt = '' THEN '' ELSE ';')
            + HoReLager.cSort
            + ','
            + TRIM(STRING(HoReLager.Bestand,'->>>>>9'))
            + ',H'
            + STRING(RECID(HoReLager)).
    END.
    IF cLagOrt <> '' THEN RETURN cLagOrt.
    
    FIND ArtLager NO-LOCK
        WHERE ArtLager.Firma  = Artst.Firma
        AND   ArtLager.Artnr  = Artst.Artnr
        AND   ArtLager.Inhalt = Artst.Inhalt
        AND   ArtLager.Jahr   = Artst.Jahr
        AND   ArtLager.Lager  = 0 NO-ERROR.
    /*
    IF AVAILABLE ArtLager THEN 
    DO:
        cLagOrt = ArtLager.Ort
            + ','
            + TRIM(STRING(ArtLager.Bestand,'->>>>>9'))
            + ','
            + STRING(RECID(ArtLager)).
    END.
    */ 
    IF cLagOrt <> '' THEN RETURN cLagOrt.

    cLagOrt = '99,'
        + (IF AVAILABLE ArtLager THEN TRIM(STRING(ArtLager.Bestand,'->>>>>9')) ELSE '0')
        + ',A'.
    RETURN cLagOrt.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getLagerTransArt) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLagerTransArt Procedure 
FUNCTION getLagerTransArt RETURNS CHARACTER
    ( ipTr_Art AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Tabel NO-LOCK USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'LAGKORR'
        AND   Tabel.CodeI  = ipTr_Art
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-ERROR.
    IF AVAILABLE Tabel THEN RETURN Tabel.Bez1.
    ELSE                    RETURN "".

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getLand) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLand Procedure 
FUNCTION getLand RETURNS CHARACTER
    ( ipcLkz AS CHARACTER  ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    DEFINE VARIABLE result AS CHARACTER NO-UNDO.
        
    FIND FIRST Land NO-LOCK 
        WHERE Land.Lkz = ipcLkz NO-ERROR.
    result = (IF AVAILABLE Land THEN Land.Bez ELSE '??????????').

    RETURN result.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getLockedUser) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLockedUser Procedure 
FUNCTION getLockedUser RETURNS CHARACTER
    ( ipRecid AS RECID ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE iRecid    AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cString   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lRetValue AS LOG       INIT FALSE NO-UNDO.

    iRecid = ipRecid.
    FOR EACH AnaDat._Lock NO-LOCK
        WHERE _Lock._Lock-RecId = iRecid:
        FIND AnaDat._File NO-LOCK
            WHERE _File._File-Number = _Lock._Lock-Table.
        cString = SUBSTITUTE('&1 im Zugriff von &2 mit der Nummer &3',
            _File._File-Name ,
            _Lock._Lock-Name ,
            _Lock._Lock-Usr  ).
        LEAVE.
    END.

    RETURN cString.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getLogFilePfad) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLogFilePfad Procedure 
FUNCTION getLogFilePfad RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.
    
    DO WHILE TRUE:    
        cPath = DYNAMIC-FUNCTION ('getFehlwert':U, MandKurz, 'GEMIS_LOGFILES') NO-ERROR.

        IF  cPath <> '' AND 
            cPath <> ?  THEN LEAVE.
        
        GET-KEY-VALUE SECTION 'GrundEinstellungen'
            KEY     'Ge_MIS_TEMP'
            VALUE   cPath.
        IF  cPath <> '' AND 
            cPath <> ?  THEN LEAVE.
            
        cPath = SESSION:TEMP-DIRECTORY.
        LEAVE.
    END.

    FILE-INFO:FILE-NAME = SEARCH(cPath).
    IF FILE-INFO:FILE-NAME = ? THEN FILE-INFO:FILE-NAME = cPath.
    IF FILE-INFO:FILE-NAME = ? THEN 
    DO:
        DYNAMIC-FUNCTION('fehlerMeldung':U, 1021, SUBSTITUTE("&1", cPath) ).
        RETURN ''.
    END.

    cPath = (IF FILE-INFO:FULL-PATHNAME = ? THEN FILE-INFO:FILE-NAME ELSE FILE-INFO:FULL-PATHNAME).

    IF  SUBSTRING(cPath, LENGTH(cPath), 01) <> '/' AND
        SUBSTRING(cPath, LENGTH(cPath), 01) <> '\' THEN cPath = cPath + '\'.
        
    RETURN cPath.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getLogName) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLogName Procedure 
FUNCTION getLogName RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.

    DO WHILE TRUE:    
        cPath = DYNAMIC-FUNCTION ('getFehlwert':U, MandKurz, 'GEMIS_TEMPDIR') NO-ERROR.
        IF  cPath <> '' AND 
            cPath <> ?  THEN LEAVE.
        
        GET-KEY-VALUE SECTION 'GrundEinstellungen'
            KEY     'Ge_MIS_TEMP'
            VALUE   cPath.
        IF  cPath <> '' AND 
            cPath <> ?  THEN LEAVE.
            
        cPath = SESSION:TEMP-DIRECTORY.
        LEAVE.
    END.
    
    IF  SUBSTRING(cPath, LENGTH(cPath), 01) <> '/' AND
        SUBSTRING(cPath, LENGTH(cPath), 01) <> '\' THEN cPath = cPath + '\'.
        
    RETURN cPath.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getMandant) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getMandant Procedure 
FUNCTION getMandant RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN MandKurz.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETMASTERPASSWORT) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETMASTERPASSWORT Procedure 
FUNCTION GETMASTERPASSWORT RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE XString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE i       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE ix      AS INTEGER   NO-UNDO.
    DEFINE VARIABLE XReturn AS CHARACTER NO-UNDO.
    
    XReturn = ''.
    GET-KEY-VALUE SECTION 'Grundeinstellungen' KEY 'WHO' VALUE XString.
    IF XString = ? THEN RETURN XReturn.
    i = NUM-ENTRIES(XString, ';').
    DO ix = 1 TO i:
        XReturn = XReturn + STRING((INTEGER(ENTRY(ix, XString)) / i) - i).
        IF ix <> i THEN XReturn = XReturn + ';'.
    END.
    RETURN XReturn.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getMeldung) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getMeldung Procedure 
FUNCTION getMeldung RETURNS CHARACTER
    ( ipNr AS INTEGER, ipSprcd AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Femeld NO-LOCK USE-INDEX Femeld-k1
        WHERE Femeld.FeNr  = ipNr
        AND   Femeld.Sprcd = ipSprcd NO-ERROR.
    IF NOT AVAILABLE Femeld AND
        ipSprcd <> 1          THEN 
    DO:
        FIND FIRST Femeld NO-LOCK USE-INDEX Femeld-k1
            WHERE Femeld.FeNr  = ipNr NO-ERROR.
    END.
  
    IF AVAILABLE Femeld THEN RETURN Femeld.FeText.

    RETURN SUBSTITUTE("Keine Femeld mit der Nummer &1 gefunden", ipNr ).

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETMINARTNR) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETMINARTNR Procedure 
FUNCTION GETMINARTNR RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.

    RETURN tSteuer.Fwi10.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getMinMarge) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getMinMarge Procedure 
FUNCTION getMinMarge RETURNS DECIMAL
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Artst NO-LOCK USE-INDEX Artst-k1
        WHERE Artst.Firma  = MandKurz
        AND   Artst.Artnr  = ipArtnr
        AND   Artst.Inhalt = ipInhalt
        AND   Artst.Jahr   = ipJahr NO-ERROR.
    IF AVAILABLE Artst THEN RETURN Artst.Min_Marge.
    ELSE                    RETURN 0.000.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getMutFlag) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getMutFlag Procedure 
FUNCTION getMutFlag RETURNS LOGICAL
    ( ipProgname AS CHARACTER ):
    /*------------------------------------------------------------------------------
            Purpose:                                                                                                                                          
            Notes:                                                                                                                                            
    ------------------------------------------------------------------------------*/

    FIND tProgramme USE-INDEX tProgramme-k1
        WHERE tProgramme.Prog = ipProgName NO-ERROR.

    IF NOT AVAILABLE tProgramme THEN RETURN FALSE.
    ELSE                             RETURN tProgramme.MFlag.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getMutflagAlt) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getMutflagAlt Procedure 
FUNCTION getMutflagAlt RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN FMutation.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETMUTPROG) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETMUTPROG Procedure 
FUNCTION GETMUTPROG RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN MutProg.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getPreisGrp) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getPreisGrp Procedure 
FUNCTION getPreisGrp RETURNS CHARACTER
    ( Preis_Grp AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Tabel USE-INDEX Tabel-k1
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'PREGRP'
        AND   Tabel.CodeC  = ''
        AND   Tabel.CodeI  = Preis_Grp
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Tabel THEN RETURN '??????????'.
    ELSE                        RETURN Tabel.Bez1.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getPreisGrpFrw) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getPreisGrpFrw Procedure 
FUNCTION getPreisGrpFrw RETURNS CHARACTER
    ( ipGrp AS INTEGER ):
    /*------------------------------------------------------------------------------
            Purpose:                                                                                                                                          
            Notes:                                                                                                                                            
    ------------------------------------------------------------------------------*/

    FIND Tabel NO-LOCK USE-INDEX Tabel-k1
        WHERE Tabel.Firma  = Firma
        AND   Tabel.Recart = 'PREGRP'
        AND   Tabel.CodeI  = ipGrp
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1 NO-ERROR.
    IF AVAILABLE Tabel THEN RETURN Tabel.Bez2.
    ELSE                    RETURN 'CHF'.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getProdukteGrp) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProdukteGrp Procedure 
FUNCTION getProdukteGrp RETURNS CHARACTER
    ( ipiWgr AS INTEGER , ipiPgr AS INTEGER   ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    DEFINE VARIABLE result AS CHARACTER NO-UNDO.
        
    FIND ProdGrp NO-LOCK 
        WHERE ProdGrp.Firma    = Firma
        AND   ProdGrp.Wgr      = ipiWgr
        AND   ProdGrp.Prod_Grp = ipiPgr NO-ERROR.
    RESULT = (IF AVAILABLE ProdGrp THEN ProdGrp.Bez1 ELSE '??????????').
        
    RETURN result.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getProgParam) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgParam Procedure 
FUNCTION getProgParam RETURNS CHARACTER
    ( ipParArt AS CHARACTER, ipParTyp AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cRetValue AS CHARACTER NO-UNDO.

    FIND FIRST tParam WHERE tParam.ParArt = ipParArt NO-ERROR.
    IF NOT AVAILABLE tParam THEN RETURN ?.
    
    CASE ipParTyp:
        WHEN 2 THEN 
            ASSIGN 
                cRetValue = STRING(tParam.Par_int ) NO-ERROR.
        WHEN 3 THEN 
            ASSIGN 
                cRetValue = STRING(tParam.Par_dec ) NO-ERROR.
        WHEN 4 THEN 
            ASSIGN 
                cRetValue = STRING(tParam.Par_date) NO-ERROR.
        OTHERWISE   
        ASSIGN 
            cRetValue = tParam.Par_char  NO-ERROR.
    END CASE.
    
    IF ERROR-STATUS:ERROR THEN RETURN ?.
    ELSE                       RETURN cRetValue.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getProgrammGestartet) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgrammGestartet Procedure 
FUNCTION getProgrammGestartet RETURNS LOGICAL
    ( ipName AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE XName   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Berecht AS CHARACTER NO-UNDO.

    XName = ENTRY(1, ipName, '.').

    FIND FIRST tProgramme USE-INDEX tProgramme-k1
        WHERE tProgramme.Prog = XName NO-LOCK NO-ERROR.
    IF NOT AVAILABLE tProgramme THEN RETURN FALSE.
    ELSE                             RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getSearch) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSearch Procedure 
FUNCTION getSearch RETURNS CHARACTER
    ( ipcDateiName AS CHARACTER, ipcParam AS CHARACTER   ):
    /*------------------------------------------------------------------------------*/
    /*  Purpose:     Super Override                                                 */
    /*  Parameters:                                                                 */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/

    DEFINE VARIABLE cResult       AS CHARACTER NO-UNDO INIT ?.
    DEFINE VARIABLE cFileName     AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cString       AS CHARACTER NO-UNDO.
    DEFINE VARIABLE i             AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cPrePath      AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cProgEndungen AS CHARACTER NO-UNDO INIT '.r,.p,.w,.cls'.
    DEFINE VARIABLE cProgEndung   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lProgramm     AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE iProgEndung   AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cReplVon      AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cReplZu       AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDoppel       AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDateiName    AS CHARACTER NO-UNDO.
    
    IF OPSYS = 'WIN32' THEN 
        ASSIGN
            cReplVon = '/'
            cReplZu  = '\'
            cDoppel  = '\\'.
    IF OPSYS = 'UNIX' THEN 
        ASSIGN
            cReplVon = '\'
            cReplZu  = '/'
            cDoppel  = '//'.
    ipcDateiName = REPLACE(ipcDateiName, cReplVon, cReplZu).
    
    cString      = (IF ipcDateiName BEGINS cDoppel THEN cReplZu ELSE ''). 
    ipcDateiName = REPLACE(ipcDateiName, cDoppel, cReplZu).
    ipcDateiName = cString + ipcDateiName.
    
    /*  "\.\" aus dem Pfad entfernen    */
    cString      = cReplZu + '.' + cReplZu.
    ipcDateiName = REPLACE(ipcDateiName, cString, cReplZu).
    
    SUCHENDATEI:
    DO WHILE TRUE:
        cProgEndung = ''.
        cPrePath    = ''.
        cDateiName  = ipcDateiName.
        cFilename   = SEARCH(cDateiName).
        IF cFileName <> ? THEN LEAVE.
    
        i = R-INDEX(cDateiname, '.').
        IF i > 0 THEN cProgEndung = SUBSTRING(cDateiName, i).
        lProgramm = (IF cProgEndung <> '' AND LOOKUP(cProgEndung, cProgEndungen, ',') > 0 THEN TRUE ELSE FALSE). 

        cPrePath = ENTRY(1, PROPATH, ',').
        cPrePath = (IF cPrePath = '.' THEN '' ELSE cPrePath + cReplZu).

        IF lProgramm THEN 
        DO:
            i          = R-INDEX(ipcDateiName, '.') - 1.
            cDateiName = SUBSTRING(cDateiName,01,i).
            IF cPrePath <> '' THEN 
            DO:
                IF INDEX(cDateiName, cPrePath) = 0 THEN cDateiName = cPrePath + cDateiName.
            END.
        
            PROGRAMM:
            DO WHILE TRUE:
                DO iProgEndung = 1 TO NUM-ENTRIES(cProgEndungen, ','):
                    cFileName = cDateiName + ENTRY(iProgEndung, cProgEndungen, ',').
                    cFileName = SEARCH(cFileName).
                    IF cFileName <> ? THEN LEAVE PROGRAMM.
                END.
                IF cPrePath = '' THEN LEAVE.
                cDateiName  = REPLACE(cDateiName, cPrePath, '').
                cPrePath    = ''.
            END.
        END.
        LEAVE.
    END.
     
    IF cFileName <> ? THEN 
    DO:
        FILE-INFO:FILE-NAME = cFileName.
        cResult = FILE-INFO:FULL-PATHNAME.
        RETURN cResult.
    END.
    
    FILE-INFO:FILE-NAME = ipcDateiName NO-ERROR.
    IF  FILE-INFO:FILE-NAME = ?  OR
        FILE-INFO:FILE-NAME = '' THEN RETURN cResult.
        
    IF INDEX(FILE-INFO:FILE-TYPE, 'D') > 0 THEN cFileName = FILE-INFO:PATHNAME + cReplZu.
    ELSE                                        cFileName = FILE-INFO:FULL-PATHNAME.
    
    IF cFileName = ? THEN RETURN cResult.
    cResult = cFileName.

    RETURN cResult.
    
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETSELEKTION) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETSELEKTION Procedure 
FUNCTION GETSELEKTION RETURNS CHARACTER
    ( ipProgramm AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE Selektion AS CHARACTER NO-UNDO.

    Selektion = "?".
    FIND Tabel USE-INDEX Tabel-k1
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'SELEKTION'
        AND   Tabel.CodeC  = Benutzer + '!' + ipProgramm
        AND   Tabel.CodeI  = 0
        AND   Tabel.Sprcd  = 0 NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN Selektion = Tabel.BezL.
    RETURN Selektion.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getSperrDatum) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSperrDatum Procedure 
FUNCTION getSperrDatum RETURNS DATE
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE SperrDat AS DATE NO-UNDO.

    SperrDat = TODAY - 90.
    FIND Steuer NO-LOCK USE-INDEX Steuer-k1
        WHERE Steuer.Firma = MandKurz NO-ERROR.
    IF NOT AVAILABLE Steuer THEN RETURN SperrDat.

    SperrDat = DATE(Steuer.Fwc08) NO-ERROR.
    IF Sperrdat = ? THEN Sperrdat = TODAY - 90.

    RELEASE Steuer.

    RETURN SperrDat.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getSpesenArt) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSpesenArt Procedure 
FUNCTION getSpesenArt RETURNS CHARACTER
    ( SpesenArt AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Tabel USE-INDEX Tabel-k1
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'SPESART'
        AND   Tabel.CodeC  = ''
        AND   Tabel.CodeI  = Spesenart
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Tabel THEN RETURN '??????????'.
    ELSE                        RETURN Tabel.Bez1.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getSpez) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSpez Procedure 
FUNCTION getSpez RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN lSpez.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETSPRCD) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETSPRCD Procedure 
FUNCTION GETSPRCD RETURNS INTEGER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN VSprcd.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getSuperAktiv) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSuperAktiv Procedure 
FUNCTION getSuperAktiv RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getSysPrinters) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSysPrinters Procedure 
FUNCTION getSysPrinters RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cDevices AS CHARACTER NO-UNDO.

    LOAD "Software\Microsoft\Windows NT\CurrentVersion\Devices"
        BASE-KEY "HKEY_CURRENT_USER".
    USE  "Software\Microsoft\Windows NT\CurrentVersion\Devices".
    GET-KEY-VALUE SECTION '' KEY '' VALUE cDevices.
    
    USE '' NO-ERROR.

    RETURN cDevices.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getSysUser) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSysUser Procedure 
FUNCTION getSysUser RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE mBen  AS MEMPTR    NO-UNDO.
    DEFINE VARIABLE iLeng AS INTEGER   INIT 100 NO-UNDO.
    DEFINE VARIABLE fok   AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cBen  AS CHARACTER NO-UNDO.

    SET-SIZE(mBen) = iLeng.
    RUN GetUserNameA( OUTPUT mBen, INPUT-OUTPUT iLeng, OUTPUT fok ).
    ASSIGN 
        cBen = GET-STRING(mBen,1) NO-ERROR.
    SET-SIZE(mBen) = 0.

    RETURN cBen.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETTABELLE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETTABELLE Procedure 
FUNCTION GETTABELLE RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN Tabelle.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getTotalBestand) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTotalBestand Procedure 
FUNCTION getTotalBestand RETURNS DECIMAL
    ( ipArtnr AS INTEGER, ipInhalt AS INTEGER, ipJahr AS INTEGER, ipLager AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Artst NO-LOCK
        WHERE Artst.Firma  = MandKurz
        AND   Artst.Artnr  = ipArtnr
        AND   Artst.Inhalt = ipInhalt
        AND   Artst.Jahr   = ipJahr NO-ERROR.
    IF NOT AVAILABLE Artst THEN RETURN 0.00.
    ELSE                        RETURN Artst.Bestand.
            
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETUMSATZGRP) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETUMSATZGRP Procedure 
FUNCTION GETUMSATZGRP RETURNS CHARACTER
    ( Ums_Grp AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Tabel USE-INDEX Tabel-k1
        WHERE Tabel.Firma  = MandKurz
        AND   Tabel.RecArt = 'UMSGRP'
        AND   Tabel.CodeC  = ''
        AND   Tabel.CodeI  = Ums_Grp
        AND   Tabel.Sprcd  = 1 NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Tabel THEN RETURN '??????????'.
    ELSE                        RETURN Tabel.Bez1.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getVGebindeInhalt) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getVGebindeInhalt Procedure 
FUNCTION getVGebindeInhalt RETURNS INTEGER
    ( ipGeb_Cd AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND VGebinde NO-LOCK
        WHERE VGebinde.Firma  = MandKurz
        AND   VGebinde.Geb_Cd = ipGeb_Cd NO-ERROR.
    IF AVAILABLE VGebinde THEN RETURN VGebinde.Inhalt.
    ELSE                       RETURN 0.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getVGebindeKBez) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getVGebindeKBez Procedure 
FUNCTION getVGebindeKBez RETURNS CHARACTER
    ( ipGeb_Cd AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND VGebinde NO-LOCK
        WHERE VGebinde.Firma  = MandKurz
        AND   VGebinde.Geb_Cd = ipGeb_Cd NO-ERROR.
    IF AVAILABLE VGebinde THEN RETURN VGebinde.KBez.
    ELSE                       RETURN '??? ' + ipGeb_Cd.    

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETWARENGRP) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETWARENGRP Procedure 
FUNCTION GETWARENGRP RETURNS CHARACTER
    ( Wg_Grp AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND WarenGrp USE-INDEX WarenGrp-k1
        WHERE WarenGrp.Firma  = MandKurz
        AND   WarenGrp.WGr    = Wg_Grp NO-LOCK NO-ERROR.
    IF NOT AVAILABLE WarenGrp THEN RETURN '??????????'.
    ELSE                           RETURN WarenGrp.Bez1.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getWindowsDrucker) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getWindowsDrucker Procedure 
FUNCTION getWindowsDrucker RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cDrucker AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDevices AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ij       AS INTEGER   NO-UNDO.

    LOAD "Software\Microsoft\Windows NT\CurrentVersion\Devices"
        BASE-KEY "HKEY_CURRENT_USER".
    USE  "Software\Microsoft\Windows NT\CurrentVersion\Devices".
    GET-KEY-VALUE SECTION '' KEY '' VALUE cDevices.
    cDrucker = REPLACE(cDevices, ',', ';').
    USE '' NO-ERROR.
    RETURN cDrucker.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-getWochentag) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getWochentag Procedure 
FUNCTION getWochentag RETURNS CHARACTER
    ( ipDatum AS DATE ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE cWoTag  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cWoTage AS CHARACTER NO-UNDO
        INIT 'Sonntag,Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag'.

    cWoTag = ''.
    IF ipDatum = ? THEN RETURN cWoTag.
    cWotag = ENTRY(WEEKDAY(ipDatum), cWoTage, ',').
    RETURN cWoTag.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GETZAHKONTO) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GETZAHKONTO Procedure 
FUNCTION GETZAHKONTO RETURNS CHARACTER
    ( ipArt AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND FIRST Tabel USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = '1000'
        AND   Tabel.RecArt = 'ZAHART'
        AND   Tabel.CodeI  = ipArt NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN RETURN Tabel.Bez2.
    ELSE                    RETURN STRING(ipArt,'999999').

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GET_FEHLWERTE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION GET_FEHLWERTE Procedure 
FUNCTION GET_FEHLWERTE RETURNS LOGICAL
    ( ipProgname AS CHARACTER, ipFenster AS HANDLE ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE Fenster  AS WIDGET-HANDLE NO-UNDO.
    DEFINE VARIABLE cSection AS CHARACTER     NO-UNDO.
    DEFINE VARIABLE cFeld    AS CHARACTER     NO-UNDO.
    DEFINE VARIABLE cValue   AS CHARACTER     NO-UNDO.
    DEFINE VARIABLE fok      AS LOGICAL       NO-UNDO.

    Fenster  = ipFenster:FIRST-CHILD.
    cSection = ipProgname.

    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE = 'LITERAL' THEN LEAVE.
            IF Fenster:HIDDEN = TRUE    THEN LEAVE.
            DO WHILE TRUE:
                fok = TRUE.
                IF Fenster:TYPE = 'FILL-IN'     THEN LEAVE.
                IF Fenster:TYPE = 'COMBO-BOX'   THEN LEAVE.
                IF Fenster:TYPE = 'EDITOR'      THEN LEAVE.
                IF Fenster:TYPE = 'RADIO-SET'   THEN LEAVE.
                fok = FALSE.
                LEAVE.
            END.
            IF NOT fok THEN LEAVE.
            cFeld = Fenster:NAME.
            GET-KEY-VALUE SECTION cSection
                KEY     cFeld
                VALUE   cValue.
            IF cValue = ? THEN cValue = ''.
            Fenster:SCREEN-VALUE = cValue NO-ERROR.
            LEAVE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-infoMeldung) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION infoMeldung Procedure 
FUNCTION infoMeldung RETURNS LOGICAL
    ( ipNummer AS INTEGER ):
    /*------------------------------------------------------------------------------
            Purpose:                                                                                                                                          
            Notes:                                                                                                                                            
    ------------------------------------------------------------------------------*/

    FIND Femeld USE-INDEX Femeld-k1
        WHERE Femeld.Sprcd = BenSprcd
        AND   Femeld.Fenr  = ipNummer  NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Femeld THEN 
    DO:
        MESSAGE 'Eine nicht definierte Fehlernummer ' ipNummer VIEW-AS ALERT-BOX ERROR.
        RETURN NO-APPLY.
    END.
    MESSAGE Femeld.Fetext ' (' ipNummer ')' VIEW-AS ALERT-BOX INFORMATION.

    RETURN TRUE.
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-isMakeRueckstand) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isMakeRueckstand Procedure 
FUNCTION isMakeRueckstand RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN lRueckstand.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-loadOCRBFont) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION loadOCRBFont Procedure 
FUNCTION loadOCRBFont RETURNS LOGICAL
    ( ipDrucker AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE iLength    AS INTEGER   NO-UNDO.
    DEFINE VARIABLE xString    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cAusgabe   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ix         AS INTEGER   NO-UNDO.
    DEFINE VARIABLE ii         AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cDateiName AS CHARACTER NO-UNDO
        INIT 'ocrb/ocrb.sfp'.

    IF lOCRB THEN RETURN TRUE.

    ASSIGN  
        cAusgabe = ipDrucker.
    
    SESSION:PRINTER-NAME = cAusgabe NO-ERROR.
    IF ERROR-STATUS:ERROR               OR
        SESSION:PRINTER-NAME <> cAusgabe THEN 
    DO:
        cAusgabe = DYNAMIC-FUNCTION('setDrucker':U, cAusgabe) NO-ERROR.
        IF cAusgabe = ?  OR
            cAusgabe = '' THEN RETURN FALSE.
        ELSE                  cAusgabe = SESSION:PRINTER-NAME.
    END.

    iLength = GET-SIZE(mOCRB) NO-ERROR.
    IF iLength = 0 THEN 
    DO:
        cDateiName = SEARCH(cDateiName).
        IF cDateiName = ?  THEN RETURN FALSE.
        IF cDateiName = '' THEN RETURN FALSE.
        FILE-INFO:FILE-NAME = cDateiName.
        IF FILE-INFO:FULL-PATHNAME = ?  OR
            FILE-INFO:FULL-PATHNAME = '' THEN RETURN FALSE.
        SET-SIZE(mOCRB) = FILE-INFO:FILE-SIZE + 1.
        COPY-LOB FILE FILE-INFO:FULL-PATHNAME FOR FILE-INFO:FILE-SIZE TO mOCRB NO-CONVERT.
    END.
    OUTPUT STREAM ocrStream TO PRINTER
        BINARY NO-ECHO NO-MAP NO-CONVERT.
    xString = CHR(27) + 'E'
        + CHR(27) + '*c0F'
        + CHR(27) + '*c10D'.
    PUT STREAM ocrStream CONTROL xString.
    DO ix = 1 TO GET-SIZE(mOCRB):
        ii = GET-BYTE(mOCRB, ix).
        IF ii < 1 THEN PUT STREAM ocrStream CONTROL NULL.
        ELSE           PUT STREAM ocrStream CONTROL CHR(ii).
    END.
    xString = CHR(27) + '*c5F'
        + CHR(27) + 'E'.
    PUT STREAM ocrStream CONTROL xString.
    OUTPUT STREAM ocrStream CLOSE.

    lOCRB = TRUE.
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-MAKEANSCHRIFT) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION MAKEANSCHRIFT Procedure 
FUNCTION MAKEANSCHRIFT RETURNS CHARACTER
    ( INPUT VAdresse AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE VAnschrift   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE VBriefanr    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE VSprcd       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE VAnrcd       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE XAdresse     AS CHARACTER EXTENT 12 NO-UNDO.
    DEFINE VARIABLE ii           AS INTEGER   NO-UNDO.
    DEFINE VARIABLE FFirma       AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE XChar        AS CHARACTER NO-UNDO.
    DEFINE VARIABLE VLkz         AS CHARACTER NO-UNDO.
    DEFINE VARIABLE VVornameName AS CHARACTER NO-UNDO.
    DEFINE VARIABLE VAnrede      AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Vzhv         AS CHARACTER NO-UNDO.
    DEFINE VARIABLE FwLkz        AS CHARACTER NO-UNDO.
    DEFINE VARIABLE RetValue     AS CHARACTER NO-UNDO.

    VAnschrift = ''.
    VBriefanr  = ''.
    XAdresse   = ''.
    XChar      = ''.
    VAnrede    = ''.
    Vzhv       = ''.

    GET-KEY-VALUE SECTION 'Adresse' KEY 'FwLkz' VALUE RetValue.
    IF RetValue = ? THEN RetValue = 'CH'.
    FwLkz = RetValue.

    FFirma = TRUE.
    IF ENTRY( 1, VAdresse, CHR(11) ) = '' AND
        ENTRY( 2, VAdresse, CHR(11) ) = '' THEN FFirma = FALSE.

    VSprcd = INTEGER(ENTRY(13, VAdresse, CHR(11) )).
    VAnrcd = INTEGER(ENTRY(14, VAdresse, CHR(11) )).
    VLkz   =         ENTRY( 9, VAdresse, CHR(11) ).
    VVornameName = TRIM(ENTRY( 4, VAdresse, CHR(11) ) + ' '
        +      ENTRY( 3, VAdresse, CHR(11) )).

    FIND Anrede USE-INDEX Anrede-k1
        WHERE Anrede.Sprcd = VSprcd
        AND   Anrede.Anrcd = VAnrcd NO-LOCK NO-ERROR.
    IF AVAILABLE Anrede THEN 
    DO:
        IF FFirma THEN Vzhv    = Anrede.Anr_zhv.
        ELSE           VAnrede = Anrede.Anr_Anrede.
        VBriefanr = Anrede.Anr_BK_G + ' '.
    END.

    FIND Land USE-INDEX Land-k2
        WHERE Land.Lkz = VLkz NO-LOCK NO-ERROR.

    DO WHILE AVAILABLE Land:
        IF Land.LasLkz = 9 THEN XAdresse[12] = Land.Bez.
        DO ii = 1 TO 3:
            IF VLkz <> FwLkz THEN 
            DO:
                IF Land.LaSLkz = ii THEN 
                DO:
                    XAdresse[11] = XAdresse[11] + VLkz.
                    IF ii < 3 THEN XAdresse[11] = XAdresse[11] + '-'.
                    ELSE           XAdresse[11] = XAdresse[11] + ' '.
                END.
            END.
            IF Land.LaSPlz = ii THEN 
            DO:
                XAdresse[11] = XAdresse[11] + ENTRY(10, VAdresse, CHR(11) ) + ' '.
            END.
            IF Land.LaSOrt = ii THEN 
            DO:
                XAdresse[11] = XAdresse[11] + ENTRY(11, VAdresse, CHR(11) ) + ' '.
            END.
        END.
        LEAVE.
    END.
    XAdresse[11] = TRIM(XAdresse[11]).
    IF XAdresse[11] = '' THEN XAdresse[11] = ENTRY( 9, VAdresse, CHR(11) )
            + ' '
            + ENTRY(10, VAdresse, CHR(11) )
            + ' '
            + ENTRY(11, VAdresse, CHR(11) ).

    XAdresse[10] = ENTRY( 8, VAdresse, CHR(11) ).   /*  Postfach    */
    XAdresse[09] = ENTRY( 7, VAdresse, CHR(11) ).   /*  Strasse     */
    XAdresse[08] = ENTRY( 6, VAdresse, CHR(11) ).   /*  Zusatz 2    */
    XAdresse[07] = ENTRY( 5, VAdresse, CHR(11) ).   /*  Zusatz 1    */

    XAdresse[02] = ENTRY( 1, VAdresse, CHR(11) ).   /*  Firma  1    */
    XAdresse[03] = ENTRY( 2, VAdresse, CHR(11) ).   /*  Firma  2    */

    IF VVornameName <> '' THEN 
    DO:
        XAdresse[01] = VAnrede.
        XAdresse[04] = TRIM(Vzhv + ' ' + ENTRY(12, VAdresse, CHR(11) )).
        ii = LENGTH(XAdresse[04]) + LENGTH(VVornameName).
        IF ii > 45 THEN XAdresse[05] = VVornameName.
        ELSE            XAdresse[04] = XAdresse[04] + ' ' + VVornameName.
    END.

    VAnschrift = CHR(11) + XAdresse[12].
    DO ii = 11 TO 1 BY -1:
        IF TRIM(XAdresse[ii]) = '' THEN NEXT.
        VAnschrift = TRIM(XAdresse[ii]) + XChar + VAnschrift.
        XChar = CHR(11).
    END.
    ii = 12 - NUM-ENTRIES(VAnschrift, CHR(11)).
    VAnschrift = FILL(CHR(11), ii) + VAnschrift.

    IF ENTRY(12, VAdresse, CHR(11)) <> ''
        THEN VBriefanr  = VBriefanr  + ENTRY(12, VAdresse, CHR(11)) + ' '.
    VBriefanr  = VBriefanr  + ENTRY( 3, VAdresse, CHR(11)).
    VAnschrift = VAnschrift + CHR(11) + VBriefanr.

    RETURN VAnschrift.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-MAKEBROWSERANZEIGE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION MAKEBROWSERANZEIGE Procedure 
FUNCTION MAKEBROWSERANZEIGE RETURNS CHARACTER
    ( INPUT VAdresse AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE XAnschrift AS CHARACTER NO-UNDO.
    DEFINE VARIABLE VAnschrift AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ix         AS INTEGER   NO-UNDO.

    XAnschrift = ''.
    VAnschrift = ''.

    XAnschrift = ENTRY(1, VAdresse, CHR(11)) + ' '
        + ENTRY(2, VAdresse, CHR(11)) + CHR(11).
    XAnschrift = TRIM(XAnschrift).
    IF LENGTH(XAnschrift) = 1 THEN XAnschrift = ''.

    XAnschrift = XAnschrift + ENTRY(3, VAdresse, CHR(11)) + ' '
        + ENTRY(4, VAdresse, CHR(11)) + CHR(11).

    XAnschrift = XAnschrift + ENTRY(5, VAdresse, CHR(11)) + CHR(11)
        + ENTRY(7, VAdresse, CHR(11)).

    DO ix = 1 TO NUM-ENTRIES(XAnschrift, CHR(11)):
        IF TRIM(ENTRY(ix, XAnschrift, CHR(11))) = '' THEN NEXT.
        IF VAnschrift <> '' THEN VAnschrift = VAnschrift + ', '.
        VAnschrift = VAnschrift + TRIM(ENTRY(ix, XAnschrift, CHR(11))).
    END.

    RETURN VAnschrift.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-makeProgname) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION makeProgname Procedure 
FUNCTION makeProgname RETURNS CHARACTER
    ( ipProc AS HANDLE ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    DEFINE VARIABLE cName  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iIndex AS INTEGER   NO-UNDO.
    
    cName = ''.
    IF NOT VALID-HANDLE(ipProc)     THEN RETURN cName.
    IF ipProc:TYPE <> 'PROCEDURE'   THEN RETURN cName.
    
    cName  = REPLACE(TRIM(ipProc:FILE-NAME), '\', '/').
    iIndex = R-INDEX(cName, '/').
    IF iIndex > 0 THEN cName = SUBSTRING(cName,iIndex + 1).
    iIndex = NUM-ENTRIES(cName, '.').
    IF iIndex > 1 THEN 
    DO:
        IF  ENTRY(iIndex, cName, '.') <> 'p' AND 
            ENTRY(iIndex, cName, '.') <> 'r' AND
            ENTRY(iIndex, cName, '.') <> 'w' THEN RETURN cName.
    END.            
    cName = ENTRY(1, cName, '.').

    RETURN cName.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-putDateiToPrinter) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION putDateiToPrinter Procedure 
FUNCTION putDateiToPrinter RETURNS INTEGER
    ( ipDatei     AS CHARACTER ,
    ipSchrift   AS RECID,
    ipSchacht   AS INTEGER  ,
    ipBlockSize AS INTEGER  ,
    ipMapTo     AS CHARACTER ,
    ipKopien    AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cAusgabe AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cSchrift AS CHARACTER NO-UNDO.
    DEFINE VARIABLE TZeile   AS MEMPTR    NO-UNDO.
    DEFINE VARIABLE QZeile   AS LONGCHAR  NO-UNDO.
    DEFINE VARIABLE XZeile   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iSize    AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iRest    AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iString  AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cFormat  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ja       AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE ix       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE ii       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE AnzKop   AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cString  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lError   AS LOGICAL   NO-UNDO.
    
    FIND Schrift NO-LOCK WHERE RECID(Schrift) = ipSchrift NO-ERROR.
    IF NOT AVAILABLE Schrift THEN RETURN 0.

    ASSIGN  
        cAusgabe = Schrift.Schname
        cSchrift = Schrift.Schbild.
            
    FIND Drucker NO-LOCK
        WHERE Drucker.Drucker = Schrift.Schdru NO-ERROR.
    IF NOT AVAILABLE Drucker THEN RETURN 0.
            
    FILE-INFO:FILE-NAME = ipDatei NO-ERROR.
    IF ERROR-STATUS:ERROR THEN RETURN 0.
    IF FILE-INFO:FULL-PATHNAME = ?  OR
        FILE-INFO:FULL-PATHNAME = '' THEN RETURN 0.
    ipDatei = FILE-INFO:FULL-PATHNAME.
       
    ASSIGN  
        iSize = FILE-INFO:FILE-SIZE
        iRest = iSize MOD ipBlockSize
        ix    = 1.
    
    RUN CHECKPRINTER ( cAusgabe, OUTPUT lError ) NO-ERROR.
    IF  lError                           OR
        SESSION:PRINTER-NAME <> cAusgabe THEN 
    DO: 
        cString = SUBSTITUTE('Drucker &1 konnte nicht zugeteilt werden', cAusgabe).
        DYNAMIC-FUNCTION('writeLogFile':U, cString) NO-ERROR.
        
        cAusgabe = DYNAMIC-FUNCTION('setDrucker':U, cAusgabe) NO-ERROR.
        IF  cAusgabe = ?  OR
            cAusgabe = '' THEN RETURN 0.
        SESSION:PRINTER-NAME = cAusgabe NO-ERROR.
    END.
    
    IF ipKopien = 0 THEN ipKopien = 1.
    DO AnzKop = 1 TO ipKopien:
        ja = FALSE.
        REPEAT TRANSACTION ON ERROR UNDO, LEAVE.
            IF  ipMapTo <> ?     AND
                ipMapTo <> ''    THEN 
            DO:
                OUTPUT STREAM Out_Stream TO PRINTER
                    /*
                    PAGED PAGE-SIZE 5000
                    */
                    CONVERT TARGET ipMapTo.
            END.
            ELSE 
            DO:
                OUTPUT STREAM Out_Stream TO PRINTER
                    /*
                    PAGED PAGE-SIZE 5000
                    */
                    NO-MAP NO-CONVERT.
            END.
            Ja = TRUE.
            LEAVE.
        END.
        IF NOT Ja THEN RETURN 0.
        
        PUT STREAM Out_Stream CONTROL Schrift.Schseqbeg.
    
        IF  ipSchacht <> ? AND
            ipSchacht  > 0 THEN 
        DO:
            PUT STREAM Out_Stream CONTROL Drucker.DruSchacht[ipSchacht].
        END.
            
        SET-SIZE(TZeile) = iSize + 1.
        COPY-LOB FILE ipDatei FOR iSize TO TZeile NO-CONVERT.
        DO WHILE ix <= iSize:
            IF (ix + ipBlockSize - 1) > iSize THEN iString = iRest.
            ELSE                                   iString = ipBlockSize.
            COPY-LOB FROM TZeile STARTING AT ix FOR iString TO QZeile NO-CONVERT.
            ASSIGN  
                XZeile  = ''
                XZeile  = QZeile
                cFormat = SUBSTITUTE('x(&1)', iString).
    
            IF iString < ipBlockSize THEN 
            DO:
                DO ii = LENGTH(xZeile) TO 1 BY -1:
                    IF SUBSTRING(xZeile,ii,01) = '' THEN NEXT.
                    IF SUBSTRING(xZeile,ii,01) = CHR(12) THEN 
                    DO:
                        xZeile = SUBSTRING(xZeile,001,ii - 1).
                        LEAVE.
                    END.
                END.
            END.
            PUT STREAM Out_Stream XZeile FORMAT cFormat.
            ix = ix + ipBlockSize.
        END.
        iString = LENGTH(xZeile).
        /*
        IF AnzKop < ipKopien THEN PUT STREAM Out_Stream CONTROL CHR(12).
        */
        SET-SIZE(TZeile) = 0.
        
        OUTPUT STREAM Out_Stream CLOSE.

        ETIME(TRUE).
        DO WHILE ETIME(FALSE) < 100:
        END.
    
    END.
        
    
    RETURN iSize.
    
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-PUT_FEHLWERTE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION PUT_FEHLWERTE Procedure 
FUNCTION PUT_FEHLWERTE RETURNS LOGICAL
    ( ipProgname AS CHARACTER, ipFenster AS HANDLE ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE Fenster  AS HANDLE    NO-UNDO.
    DEFINE VARIABLE cSection AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cFelder  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cFeld    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cValue   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE fJa      AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE anz      AS INTEGER   NO-UNDO.

    Fenster  = ipFenster:FIRST-CHILD.
    cSection = ipProgname.

    FOR EACH tFelder:
        DELETE tFelder.
    END.
    GET-KEY-VALUE SECTION cSection
        KEY     ''
        VALUE   cValue.
    IF cValue = ? THEN cValue = ''.
    cFelder = cValue.
    DO anz = 1 TO NUM-ENTRIES(cFelder, ','):
        cFeld = ENTRY(anz, cFelder, ',') NO-ERROR.
        CREATE tFelder.
        ASSIGN 
            tFelder.cName = cFeld
            tFelder.fOK   = FALSE.
    END.

    DO WHILE VALID-HANDLE (Fenster) :
        DO WHILE TRUE:
            IF Fenster:TYPE = 'LITERAL' THEN LEAVE.
            IF Fenster:HIDDEN = TRUE    THEN LEAVE.
            fJa = TRUE.
            DO WHILE TRUE:
                IF Fenster:TYPE = 'FILL-IN'     THEN LEAVE.
                IF Fenster:TYPE = 'COMBO-BOX'   THEN LEAVE.
                IF Fenster:TYPE = 'EDITOR'      THEN LEAVE.
                IF Fenster:TYPE = 'RADIO-SET'   THEN LEAVE.
                fJa = FALSE.
                LEAVE.
            END.
            IF NOT fJa THEN LEAVE.
            cFeld  = Fenster:NAME.
            cValue = Fenster:SCREEN-VALUE.
            anz    = 0.
            DO WHILE TRUE:
                ERROR-STATUS:ERROR = FALSE.
                anz = anz + 1.
                PUT-KEY-VALUE SECTION cSection
                    KEY     cFeld
                    VALUE   cValue NO-ERROR.
                IF anz = 5 THEN LEAVE.
                IF ERROR-STATUS:ERROR = FALSE THEN LEAVE.
            END.
            LEAVE.
        END.
        IF fJa THEN 
        DO:
            FIND FIRST tFelder WHERE tFelder.cName = cFeld NO-ERROR.
            IF AVAILABLE tFelder THEN tFelder.fOK = TRUE.
        END.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.

    FOR EACH tFelder WHERE tFelder.fOK = FALSE:
        PAUSE 1 NO-MESSAGE.
        PUT-KEY-VALUE SECTION cSection KEY tFelder.cName VALUE '' NO-ERROR.
    END.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-REAKTIVIEREN) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION REAKTIVIEREN Procedure 
FUNCTION REAKTIVIEREN RETURNS LOGICAL
    ( ipTabelle AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    CASE ipTabelle:
        WHEN 'Adresse' THEN 
            DO:
                IF NOT AVAILABLE tAdresse THEN RETURN FALSE.
                REPEAT TRANSACTION:
                    FIND Adresse WHERE RECID(Adresse) = tAdresse.ARecid.
                    Adresse.Aktiv  = TRUE.
                    tAdresse.Aktiv = TRUE.
                    RELEASE Adresse.
                    LEAVE.
                END.
            END.
        WHEN 'Debst' THEN 
            DO:
                IF NOT AVAILABLE tAdresse THEN RETURN FALSE.
                REPEAT TRANSACTION:
                    FIND Debst USE-INDEX Debst-k1
                        WHERE Debst.Firma = MandKurz
                        AND   Debst.Knr   = tAdresse.Knr.
                    Debst.Aktiv  = TRUE.
                    RELEASE Debst.
                    LEAVE.
                END.
            END.
        WHEN 'Artst' THEN 
            DO:
                IF NOT AVAILABLE tArtst THEN RETURN FALSE.
                REPEAT TRANSACTION:
                    FIND Artst WHERE RECID(Artst) = tArtst.iRecid.
                    Artst.Aktiv = TRUE.
                    RELEASE Artst.
                    LEAVE.
                END.
            END.
        WHEN 'Liefst' THEN 
            DO:
                IF NOT AVAILABLE tAdresse THEN RETURN FALSE.
                REPEAT TRANSACTION:
                    FIND Liefst USE-INDEX Liefst-k1
                        WHERE Liefst.Firma = MandKurz
                        AND   Liefst.Knr   = tAdresse.Knr.
                    Liefst.Aktiv  = TRUE.
                    RELEASE Liefst.
                    LEAVE.
                END.
            END.
    END CASE.

    RETURN TRUE.   /* Function return value. */

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setAktFelder) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setAktFelder Procedure 
FUNCTION setAktFelder RETURNS LOGICAL
    ( INPUT Felder AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    AktFeld = Felder.
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETARTNR) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETARTNR Procedure 
FUNCTION SETARTNR RETURNS LOGICAL
    ( Artnr AS INTEGER, Inhalt AS INTEGER, Jahr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND Artst USE-INDEX Artst-k1
        WHERE Artst.Firma  = MandKurz
        AND   Artst.Artnr  = Artnr
        AND   Artst.Inhalt = Inhalt
        AND   Artst.Jahr   = Jahr NO-LOCK NO-ERROR.
    FIND FIRST tArtst.
    tArtst.iRecid = 0.
    IF NOT AVAILABLE Artst THEN RETURN FALSE.

    BUFFER-COPY Artst TO tArtst.
    tArtst.iRecid = RECID(Artst).
    PUBLISH 'MINMARGE' ( INPUT tArtst.Min_Marge ).
    PUBLISH 'OPENPREIS'.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setArtstInSuperproc) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setArtstInSuperproc Procedure 
FUNCTION setArtstInSuperproc RETURNS LOGICAL
    ( ipBuffer AS HANDLE ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND FIRST tArtst.
    htArtst:BUFFER-COPY( ipBuffer ).
    
    FIND Artst NO-LOCK
        WHERE Artst.Firma  = ipBuffer::Firma
        AND   Artst.Artnr  = ipBuffer::Artnr
        AND   Artst.Inhalt = ipBuffer::Inhalt
        AND   Artst.Jahr   = ipBuffer::Jahr.
    BUFFER-COPY Artst TO tArtst
        ASSIGN  
        tArtst.iRecid = RECID(Artst).
    RELEASE Artst.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setAuditUser) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setAuditUser Procedure 
FUNCTION setAuditUser RETURNS LOGICAL
    ( ipcUser AS CHARACTER ):
    /*------------------------------------------------------------------------------*/
    /* Purpose:                                                                     */
    /* Notes:                                                                       */
    /*------------------------------------------------------------------------------*/

    DEFINE VARIABLE hClientPrincipal AS HANDLE    NO-UNDO.
    DEFINE VARIABLE cLDBName         AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDBName          AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ii               AS INTEGER   NO-UNDO.

    DO ii = 1 TO NUM-DBS:
        IF INDEX(LDBNAME(ii), 'pse') <> 0 THEN NEXT.
        cLDBName = LDBNAME(ii).
        cDBName  = DBNAME.
        LEAVE.
    END.
    
    IF cLDBName = '' THEN RETURN FALSE.
        
    DO WHILE TRUE:
        SECURITY-POLICY:LOAD-DOMAINS(cLDBName).
        
        hClientPrincipal = SECURITY-POLICY:GET-CLIENT().
        IF VALID-HANDLE ( hClientPrincipal ) THEN 
        DO:
            IF hClientPrincipal:USER-ID = ipcUser THEN LEAVE.
              
            hClientPrincipal:LOGOUT() NO-ERROR.
            SECURITY-POLICY:SET-CLIENT( ? ) NO-ERROR.
            DELETE OBJECT hClientPrincipal NO-ERROR.
        END.

        CREATE CLIENT-PRINCIPAL hClientPrincipal.
        ASSIGN  
            hClientPrincipal:USER-ID     = ipcUser
            hClientPrincipal:DOMAIN-NAME = cDBName
            hClientPrincipal:DOMAIN-TYPE = cDBName
            hClientPrincipal:SESSION-ID  = SUBSTRING(BASE64-ENCODE(GENERATE-UUID),1,22).

        hClientPrincipal:SEAL("0123456789").
        SECURITY-POLICY:SET-CLIENT(hClientPrincipal).

        LEAVE.
    END.
    
    IF NOT VALID-HANDLE (hClientPrincipal) THEN RETURN FALSE.
     
    RETURN TRUE.
    
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setBatch) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setBatch Procedure 
FUNCTION setBatch RETURNS LOGICAL
    ( ipBatch AS LOGICAL ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    lBatch = ipBatch.
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setBrowserDaten) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setBrowserDaten Procedure 
FUNCTION setBrowserDaten RETURNS LOGICAL
    ( iphBrowser AS HANDLE, ipSektion AS CHARACTER ):
    DEFINE VARIABLE hCol AS WIDGET-HANDLE NO-UNDO.
    DEFINE VARIABLE i1   AS INTEGER       NO-UNDO.
    
    DEFINE BUFFER uBenDaten FOR BenDaten.

    IF NOT CONNECTED(cLogDBName) THEN RETURN FALSE.

    FOR EACH tBenDaten    
        WHERE tBenDaten.Benutzer   = Benutzer
        AND   tBenDaten.Konzern    = '9999'
        AND   tBenDaten.Firma      = MandKurz
        AND   tBenDaten.Filiale    = '0000'
        AND   tBenDaten.RecArt     = 'BRPOS'
        AND   tBenDaten.Sektion    = ipSektion:
        DELETE  tBenDaten.
    END.
    i1   = 0.
    hCol = iphBrowser:FIRST-COLUMN.
    DO WHILE VALID-HANDLE(hCol) TRANSACTION:
        i1 = i1 + 1.
        CREATE  tBenDaten.
        ASSIGN  
            tBenDaten.Benutzer   = Benutzer
            tBenDaten.Konzern    = '9999'
            tBenDaten.Firma      = MandKurz
            tBenDaten.Filiale    = '0000'
            tBenDaten.RecArt     = 'BRPOS'
            tBenDaten.Sektion    = ipSektion
            tBenDaten.Schluessel = hCol:NAME
            tBenDaten.iFeld_1    = i1
            tBenDaten.dFeld_1    = hCol:WIDTH
            tBenDaten.Erf_Datum  = TODAY
            tBenDaten.Zug_Datum  = TODAY.
        FIND BenDaten EXCLUSIVE-LOCK OF tBenDaten NO-WAIT NO-ERROR.
        IF NOT AVAILABLE BenDaten THEN 
        DO:
            IF LOCKED BenDaten THEN 
            DO:
                RELEASE BenDaten.
                hCol = hCol:NEXT-COLUMN.
                NEXT.
            END.
            CREATE BenDaten.
        END.
        BUFFER-COPY tBenDaten TO BenDaten.
        RELEASE BenDaten.
        RELEASE tBenDaten.
        hCol = hCol:NEXT-COLUMN.
    END.

    FOR EACH BenDaten NO-LOCK USE-INDEX BenDaten-k1
        WHERE BenDaten.Benutzer = Benutzer
        AND   BenDaten.Konzern  = '9999'
        AND   BenDaten.Firma    = MandKurz
        AND   BenDaten.Filiale  = '0000'
        AND   BenDaten.RecArt   = 'BRPOS'
        AND   BenDaten.Sektion  = ipSektion TRANSACTION:
        IF BenDaten.Zug_Datum = TODAY THEN NEXT.
        FIND uBenDaten EXCLUSIVE-LOCK
            WHERE RECID(uBendaten) = RECID(BenDaten) NO-WAIT NO-ERROR.
        IF NOT AVAILABLE uBenDaten THEN NEXT.
        DELETE  uBenDaten.
        RELEASE uBenDaten.
    END.
    RELEASE BenDaten.

    RETURN TRUE.
    
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setDrucker) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setDrucker Procedure 
FUNCTION setDrucker RETURNS CHARACTER
    ( ipDruckername AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cName    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDrucker AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDevices AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ij       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE ja       AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE lError   AS LOGICAL   NO-UNDO.

    cDevices = SESSION:GET-PRINTERS().
    DO ij = 1 TO NUM-ENTRIES(cDevices, ','):
        cDrucker = ENTRY(ij, cDevices, ',').
        IF ipDruckername = cDrucker THEN LEAVE.
        cDrucker = ''.
    END.
    IF cDrucker <> '' THEN 
    DO:
        RUN CHECKPRINTER ( cDrucker, OUTPUT lError ) NO-ERROR.
        IF  NOT lError                      AND
            SESSION:PRINTER-NAME = cDrucker THEN RETURN cDrucker.
    END.
    
    ij = R-INDEX(ipDruckername, '\').
    IF ij = 0 THEN cName = ipDruckername.
    ELSE           cName = TRIM(SUBSTRING(ipDruckername,ij + 1)).
    IF  cName = ''   OR
        cName = ?    THEN RETURN ?.

    RUN CHECKPRINTER ( cName, OUTPUT lError ) NO-ERROR.
    IF  NOT lError                   AND
        SESSION:PRINTER-NAME = cName THEN RETURN cName.
    
    IF lBatch THEN RETURN ?.

    SYSTEM-DIALOG PRINTER-SETUP
        NUM-COPIES 1
        UPDATE ja.
    IF NOT ja THEN RETURN ?.
    ELSE           RETURN SESSION:PRINTER-NAME.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETEAVCODE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETEAVCODE Procedure 
FUNCTION SETEAVCODE RETURNS CHARACTER
    ( ipCode AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    EAVCode = ipCode.
    RETURN EAVCode.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETENTRYFELD) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETENTRYFELD Procedure 
FUNCTION SETENTRYFELD RETURNS LOGICAL
    ( ipFeld AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    EntryFeld = ipFeld.
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETEWKCODE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETEWKCODE Procedure 
FUNCTION SETEWKCODE RETURNS CHARACTER
    ( ipCode AS CHARACTER ) :
    /*------------------------------------------------------------------------------
        Purpose:  
          Notes:  
    ------------------------------------------------------------------------------*/

    EWKCode = ipCode.
    RETURN EWKCode.


END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setFehlwert) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setFehlwert Procedure 
FUNCTION setFehlwert RETURNS LOGICAL
    ( ipcFirma AS CHARACTER, ipcFWArt AS CHARACTER, ipcTyp AS CHARACTER, ipcWert AS CHARACTER ):
    /*------------------------------------------------------------------------------*/
    /* Purpose:                                                                     */
    /* Parameters: Firma, Typ (CHAR, INT, DATE, NUM, LOG, ... )                     */
    /* Notes:                                                                       */
    /*------------------------------------------------------------------------------*/

    DEFINE VARIABLE iTyp AS INTEGER NO-UNDO.
    
    IF ipcTyp BEGINS 'CHAR' THEN iTyp = 1.
    IF ipcTyp BEGINS 'INT'  THEN iTyp = 2.
    IF ipcTyp BEGINS 'DEC'  THEN iTyp = 3.
    IF ipcTyp BEGINS 'DATE' THEN iTyp = 4.
    IF ipcTyp BEGINS 'LOG'  THEN iTyp = 5.

    FIND Fehlwert  
        WHERE Fehlwerte.Firma = ipcFirma
        AND   Fehlwerte.Art   = ipcFWArt NO-ERROR.
    IF NOT AVAILABLE Fehlwerte THEN 
    DO:
        CREATE  Fehlwerte.
        ASSIGN  
            Fehlwerte.Firma        = ipcFirma
            Fehlwerte.Art          = ipcFWArt
            Fehlwerte.Beschreibung = ipcFWArt.
    END.
    
    CASE iTyp:
        WHEN 1 THEN 
            Fehlwerte.cFeld = RIGHT-TRIM(ipcWert) NO-ERROR.
        WHEN 2 THEN 
            Fehlwerte.iFeld = INTEGER(ipcWert) NO-ERROR.
        WHEN 3 THEN 
            Fehlwerte.nFeld = DECIMAL(ipcWert) NO-ERROR.
        WHEN 4 THEN 
            Fehlwerte.dFeld = DATE(ipcWert) NO-ERROR.
        WHEN 5 THEN 
            Fehlwerte.lFeld = (IF ipcWert BEGINS 'n' THEN FALSE ELSE TRUE).
    END CASE.
    
    RETURN TRUE.
    
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setFensterPosition) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setFensterPosition Procedure 
FUNCTION setFensterPosition RETURNS LOGICAL
    ( ipSektion AS CHARACTER, ipSchluessel AS CHARACTER, ipX AS INTEGER, ipY AS INTEGER  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE iRecid AS RECID     NO-UNDO.
    DEFINE VARIABLE cValue AS CHARACTER NO-UNDO.
    
    REPEAT TRANSACTION:
        FIND tBenDaten USE-INDEX BenDaten-k1
            WHERE tBenDaten.Benutzer   = DBBenutzer
            AND   tBenDaten.Konzern    = '9999'
            AND   tBenDaten.Firma      = MandKurz
            AND   tBenDaten.Filiale    = '0000'
            AND   tBenDaten.RecArt     = 'FEPOS'
            AND   tBenDaten.Sektion    = ipSektion
            AND   tBenDaten.Schluessel = ipSchluessel NO-ERROR.

        IF NOT AVAILABLE tBenDaten THEN 
        DO:
            CREATE  tBenDaten.
            ASSIGN  
                tBenDaten.Benutzer   = DBBenutzer
                tBenDaten.Konzern    = '9999'
                tBenDaten.Firma      = MandKurz
                tBenDaten.Filiale    = '0000'
                tBenDaten.RecArt     = 'FEPOS'
                tBenDaten.Sektion    = ipSektion
                tBenDaten.Schluessel = ipSchluessel
                tBenDaten.Erf_Datum  = TODAY.
        END.
        ASSIGN  
            tBenDaten.iFeld_1   = ipX
            tBenDaten.iFeld_2   = ipY
            tBenDaten.Zug_Datum = TODAY.
        RELEASE tBenDaten.
        LEAVE.
    END.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setFlagAbbruch) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setFlagAbbruch Procedure 
FUNCTION setFlagAbbruch RETURNS LOGICAL
    ( ipFlag AS LOG, ipProg AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tProgramme USE-INDEX tProgramme-k1
        WHERE tProgramme.Prog = ipProg NO-ERROR.
    IF NOT AVAILABLE tProgramme THEN RETURN FALSE.
    ELSE 
    DO:
        tProgramme.AbFlag = ipFlag.
        RETURN tProgramme.AbFlag.
    END.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setFlagAbbruchAlt) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setFlagAbbruchAlt Procedure 
FUNCTION setFlagAbbruchAlt RETURNS LOGICAL
    ( ipFlag AS LOGICAL ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FAbbruch = ipFlag.
    RETURN FAbbruch.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setFlagOK) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setFlagOK Procedure 
FUNCTION setFlagOK RETURNS l
    ( iplOK AS LOGICAL ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    
    lOK = iplOK.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setGebRgArtnr) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setGebRgArtnr Procedure 
FUNCTION setGebRgArtnr RETURNS LOGICAL
    ( ipKnr AS INTEGER, ipArtnr AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE BUFFER bTabel FOR Tabel.
    
    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
        FIND bTabel
            WHERE bTabel.Firma  = Firma
            AND   bTabel.Recart = 'GEBRGARTNR'
            AND   bTabel.CodeC  = ''
            AND   bTabel.CodeI  = ipKnr
            AND   bTabel.Sprcd  = 1 NO-ERROR.
        IF NOT AVAILABLE bTabel THEN 
        DO:
            CREATE  bTabel.
            ASSIGN  
                bTabel.Firma  = Firma
                bTabel.Recart = 'GEBRGARTNR'
                bTabel.CodeC  = ''
                bTabel.CodeI  = ipKnr
                bTabel.Sprcd  = 1 NO-ERROR.
        END.
        ASSIGN  
            bTabel.Int_1 = ipArtnr.
        RELEASE bTabel.
        LEAVE.
    END.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setGebRgFakart) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setGebRgFakart Procedure 
FUNCTION setGebRgFakart RETURNS LOGICAL
    ( ipKnr AS INTEGER, ipFakart AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE BUFFER bTabel FOR Tabel.
    
    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
        FIND bTabel
            WHERE bTabel.Firma  = Firma
            AND   bTabel.Recart = 'GEBRGFAKART'
            AND   bTabel.CodeC  = ''
            AND   bTabel.CodeI  = ipKnr
            AND   bTabel.Sprcd  = 1 NO-ERROR.
        IF NOT AVAILABLE bTabel THEN 
        DO:
            CREATE  bTabel.
            ASSIGN  
                bTabel.Firma  = Firma
                bTabel.Recart = 'GEBRGFAKART'
                bTabel.CodeC  = ''
                bTabel.CodeI  = ipKnr
                bTabel.Sprcd  = 1 NO-ERROR.
        END.
        ASSIGN  
            bTabel.Int_1 = ipFakart.
        RELEASE bTabel.
        LEAVE.
    END.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setGeloeschteArtikel) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setGeloeschteArtikel Procedure 
FUNCTION setGeloeschteArtikel RETURNS LOGICAL
    ( ipGeloeschte AS LOGICAL ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cKey   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cValue AS CHARACTER NO-UNDO.

    cKey   = Benutzer + '¦' + 'GeloeschteArtikel'.
    cValue = STRING(ipGeloeschte,'y/n').
    
    PUT-KEY-VALUE SECTION 'Grundeinstellungen'
        KEY     cKey
        VALUE   cValue NO-ERROR.
    
    RETURN (IF ERROR-STATUS:ERROR THEN FALSE ELSE TRUE).

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETKNR) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETKNR Procedure 
FUNCTION SETKNR RETURNS LOGICAL
    ( Knr AS INTEGER  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND tSteuer NO-LOCK USE-INDEX Steuer-k1
        WHERE tSteuer.Firma = MandKurz NO-ERROR.

    FIND Adresse USE-INDEX Adresse-k1
        WHERE Adresse.Firma = tSteuer.AdFirma
        AND   Adresse.Knr   = Knr NO-LOCK NO-ERROR.
    FIND FIRST tAdresse.
    tAdresse.ARecid = 0.
    IF NOT AVAILABLE Adresse THEN RETURN FALSE.

    BUFFER-COPY Adresse TO tAdresse.
    tAdresse.ARecid = RECID(Adresse).

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setLabelTexte) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setLabelTexte Procedure 
FUNCTION setLabelTexte RETURNS LOGICAL
    ( ipcFirma AS CHARACTER, iphScreen AS HANDLE, ipcName AS CHARACTER, ipiSprcd AS INTEGER ) :
    /*------------------------------------------------------------------------------
      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 cProgName  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 bScreenGUI FOR ScreenGUI.

    cProgName = ipcName.
    iPos      = R-INDEX(ipcName, '.') - 1.
    IF iPos > 1 THEN cProgName = TRIM(SUBSTRING(ipcName,01,iPos)).

    EMPTY TEMP-TABLE tScreens.
    CREATE  tScreens.
    ASSIGN  
        tScreens.hScreen = iphScreen
        tScreens.lAktiv  = FALSE.

    IF iphScreen:TYPE BEGINS 'PROC'  THEN MESSAGE 'prochandle'
            VIEW-AS ALERT-BOX.
    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.
                
                IF hFenster:LABEL = '/' THEN LEAVE.
                IF hFenster:LABEL = '-' THEN LEAVE.
                IF hFenster:LABEL = '.' THEN LEAVE.
                IF hFenster:LABEL = ?   THEN LEAVE.
                
                cFieldName = hFenster:NAME.
                cLabel     = hFenster:LABEL.
                
                FIND FIRST bScreenGUI NO-LOCK
                    WHERE bScreenGUI.Firma     = ipcFirma
                    AND   bScreenGUI.ViewName  = cProgName
                    AND   bScreenGUI.FieldName = cFieldName
                    AND   bScreenGUI.Sprcd     = ipiSprcd  NO-ERROR.
                IF AVAILABLE bScreenGUI  THEN 
                DO:
                    cLabel = bScreenGUI.Label_Text.
                    LEAVE.
                END.
                LEAVE.
            END.

            IF cLabel <> '' THEN hFenster:LABEL = cLabel.
            IF lBrowse THEN hFenster = hFenster:NEXT-COLUMN.
            ELSE            hFenster = hFenster:NEXT-SIBLING.
        END.
    END.
    
    IF NOT cProgName BEGINS 'w-' AND
        NOT cProgName BEGINS 'g-' THEN RETURN TRUE.
       
    hFenster:TITLE = MandKurz + '/' + hFenster:TITLE + ' -> ' + MandName.
    
    FIND FIRST bScreenGUI NO-LOCK
        WHERE bScreenGUI.Firma     = ipcFirma
        AND   bScreenGUI.ViewName  = cProgName
        AND   bScreenGUI.FieldName = 'TITEL'
        AND   bScreenGUI.Sprcd     = ipiSprcd  NO-ERROR.
    IF AVAILABLE bScreenGUI  THEN 
    DO:
        cTitel = MandKurz + '/' + hFenster:TITLE + ' -> ' + MandName.
        iphScreen:TITLE = cTitel NO-ERROR.
    END.
                
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETLAGERORT) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETLAGERORT Procedure 
FUNCTION SETLAGERORT RETURNS LOGICAL
    ( INPUT iLager AS INTEGER, INPUT iArtnr  AS INTEGER, INPUT iInhalt AS INTEGER,
    INPUT iJahr  AS INTEGER, INPUT cLagOrt AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND ArtLager USE-INDEX ArtLager-k1
        WHERE ArtLager.Firma  = MandKurz
        AND   ArtLager.Artnr  = iArtnr
        AND   ArtLager.Inhalt = iInhalt
        AND   ArtLager.Jahr   = iJahr
        AND   ArtLager.Lager  = iLager NO-ERROR.
    IF NOT AVAILABLE ArtLager THEN 
    DO:
        CREATE  ArtLager.
        ASSIGN  
            ArtLager.Firma  = MandKurz
            ArtLager.Artnr  = iArtnr
            ArtLager.Inhalt = iInhalt
            ArtLager.Jahr   = iJahr
            ArtLager.Lager  = iLager.
    END.
    ASSIGN  
        ArtLager.Ort = cLagOrt.
      
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETMODIFIEDFLAG) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETMODIFIEDFLAG Procedure 
FUNCTION SETMODIFIEDFLAG RETURNS LOGICAL
    ( Fenster AS HANDLE, ipFLag AS LOGICAL ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    ASSIGN  
        Fenster = Fenster:FIRST-CHILD.
    
    DO WHILE VALID-HANDLE (Fenster) :
        IF Fenster:TYPE = 'FILL-IN'     THEN Fenster:MODIFIED = ipFlag.
        IF Fenster:TYPE = 'COMBO-BOX'   THEN Fenster:MODIFIED = ipFlag.
        IF Fenster:TYPE = 'EDITOR'      THEN Fenster:MODIFIED = ipFlag.
        ASSIGN 
            Fenster = Fenster:NEXT-SIBLING.
    END.
    
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setMutflag) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setMutflag Procedure 
FUNCTION setMutflag RETURNS LOGICAL
    ( INPUT ipFlag  AS LOG, INPUT ipProgName AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cProg AS CHARACTER NO-UNDO.
    
    cProg = ENTRY(1, ipProgName, '.').

    FIND tProgramme USE-INDEX tProgramme-k1
        WHERE tProgramme.Prog = cProg NO-ERROR.
    IF AVAILABLE tProgramme THEN ASSIGN  tProgramme.MFlag = ipFlag.
    ASSIGN  
        FMutation = ipFlag
        MutProg   = cProg.
            
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-setProgParam) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setProgParam Procedure 
FUNCTION setProgParam RETURNS LOGICAL
    ( ipParArt AS CHARACTER, ipParTyp AS INTEGER, ipParam AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND FIRST tParam WHERE tParam.ParArt = ipParArt NO-ERROR.
    IF NOT AVAILABLE tParam THEN 
    DO:
        CREATE  tParam.
        ASSIGN  
            tParam.ParArt = ipParArt.
    END.

    CASE ipParTyp:
        WHEN 2 THEN 
            ASSIGN 
                tParam.Par_int = INTEGER(ipParam) NO-ERROR.
        WHEN 3 THEN 
            ASSIGN 
                tParam.Par_dec = DECIMAL(ipParam) NO-ERROR.
        WHEN 4 THEN 
            ASSIGN 
                tParam.Par_date = DATE   (ipParam) NO-ERROR.
        OTHERWISE   
        ASSIGN 
            tParam.Par_char = ipParam  NO-ERROR.
    END CASE.
    
    IF ERROR-STATUS:ERROR THEN RETURN FALSE.
    ELSE                       RETURN TRUE .

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETSELEKTION) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETSELEKTION Procedure 
FUNCTION SETSELEKTION RETURNS LOGICAL
    ( ipProgramm AS CHARACTER, ipSelektion AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    REPEAT TRANSACTION:
        FIND Tabel USE-INDEX Tabel-k1
            WHERE Tabel.Firma  = MandKurz
            AND   Tabel.RecArt = 'SELEKTION'
            AND   Tabel.CodeC  = Benutzer + '!' + ipProgramm
            AND   Tabel.CodeI  = 0
            AND   Tabel.Sprcd  = 0 NO-ERROR.
        IF NOT AVAILABLE Tabel THEN 
        DO:
            CREATE  Tabel.
            ASSIGN  
                Tabel.Firma  = MandKurz
                Tabel.RecArt = 'SELEKTION'
                Tabel.CodeC  = Benutzer + '!' + ipProgramm
                Tabel.CodeI  = 0
                Tabel.Sprcd  = 0.
        END.
        Tabel.BezL = ipSelektion.
        RELEASE Tabel.
        LEAVE.
    END.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETSPRCD) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETSPRCD Procedure 
FUNCTION SETSPRCD RETURNS INTEGER
    ( Sprcd AS INTEGER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/
    
    VSprcd = Sprcd.
    RETURN VSprcd.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SETTABELLE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SETTABELLE Procedure 
FUNCTION SETTABELLE RETURNS LOGICAL
    ( RecArt AS CHARACTER ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    Tabelle = RecArt.
    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-unloadOCRB) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION unloadOCRB Procedure 
FUNCTION unloadOCRB RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    SET-SIZE(mOCRB) = 0.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-writeLogFile) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION writeLogFile Procedure 
FUNCTION writeLogFile RETURNS LOGICAL
    ( ipMessage AS CHARACTER  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    cString = SUBSTITUTE('&1 &2 -> &3', STRING(TODAY,'99.99.9999'), STRING(TIME,'HH:MM:SS'), ipMessage).
    OUTPUT STREAM LogStream TO VALUE(cLogName) APPEND.
    PUT STREAM LogStream CONTROL cString CHR(10).
    OUTPUT STREAM LogStream CLOSE.

    RETURN TRUE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF