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