my.clients.bom.html

PMS³² Online- Hilfereferenz

MY.CLIENTS.BOM

Bom - Auflösung von Baugruppen über B01 und F02/F03

Hilfe: Baugruppenauflösung

Auflösung von Baugruppen über B01 und F02/F03

Code: Baugruppenauflösung

*/ Kurzbeispiel für den Zugriff auf diese Struktur
*/ Der Zugriff erfolgt über: My.Clients.Bom
*/ Wird dieses Objekt in einem REPLACE oder einer Schleife SCAN ... ENDSCAN | FOR ... NEXT benötigt
*/ so sollte vor der Schleife die Objektstruktur in eine Variable geholt werden!
*/ Die Ausführungsgeschwindigkeit wird dadurch sehr vergrößert!
*/ Beispiel:
*/ Definieren einer LOKALEN Variablen
LOCAL loBom AS My.Clients.Bom
*/ Setzen der Variablen
loBom = My.Clients.Bom
*/ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein...
REPLACE ALL Feldname1 WITH loBom.Function1(),Feldname2 WITH loBom.Function1(), ...
*/ Oder in einer Schleife...
SCAN
	lvValue = loBom.Function(Alias.Spalte) + 25
	lvValue = loBom.Function2(m.lvValue)
	REPLACE Feldname WITH m.lvValue,...
ENDSCAN
*/ Es sind auch geschachtelte Aufrufe möglich...

Liste der Methoden von Bom

ArtInBom() -

Gibt eine Liste mit Artikel in Baugruppen zurück

Hilfeinformation

Aufrufinformation

Variant = My.Clients.Bom.ArtInBom(tcDbfOrId as String)
Variant = My.Clients.Bom.ArtInBom(tcDbfOrId)

Codeinformation

ArtInE1X() -

Artikel incl. Baugruppen in E1X

Hilfeinformation

Aufrufinformation

Variant = My.Clients.Bom.ArtInE1X(tcDbfOrId as String)
Variant = My.Clients.Bom.ArtInE1X(tcDbfOrId)

Codeinformation

GetBom() - Auflösen von Baugruppen mittels einer Tabelle

Rückgabe: [String], Auflösung der Baugruppeninformationen in tcDbf. Rückgabe ist ein Zeiger auf eine Tabelle. Mindestanforderung

Hilfeinformation

Rückgabe: [String], Auflösung der Baugruppeninformationen in tcDbf. Rückgabe ist ein Zeiger auf eine Tabelle. Mindestanforderung

Aufrufinformation

String = My.Clients.Bom.GetBom(tcDbf as String,tlPosition as Boolean,tlSumme as Boolean,tlNoLosBg as Boolean,tlWithF03 as Boolean,tlEmptyCursor as Boolean)
String = My.Clients.Bom.GetBom(tcDbf,tlPosition,tlSumme,tlNoLosBg,tlWithF03,tlEmptyCursor)

Codeinformation

*/ Beispielcode:
*/ Erstellen einer Tabelle mit Baugruppen aus E11
SELECT ide11 AS _id,idb01,mgb AS Menge FROM (My.Clients.Path.cDbfDIr+'e11.dbf') ;
	WHERE e11.ide10 = '10000234' AND e11.is_sl AND e11.ipy01<>"009" ;
	INTO TABLE (My.Clients.Path.cTmpDir+'e11b01.dbf')
*/ Den Cursor SHARED öffnen, da der COM Server zugreifen muss!
USE (DBF()) SHARED
*/ Die Baugruppe(n) auflösen
lcDbf = My.Clients.Bom.GetBom(DBF(),.T.)
IF !EMPTY(m.lcDbf)
	*/ Erstellen eines temp. Cursors
	SELECT * FROM (m.lcDbf) INTO CURSOR qBom
	*/ Kann auch im PMS32K dargestellt werden!
ENDIF

*/ Die Übergabetabelle an den COM server MUSS mindestens die Spalten:
*/	IDB01 [C(8)]	=> ID des Artikels
*/	MENGE [B|I|N]	=> Menge des Artikels
*/ haben. Zur späteren Filterung kann auch eine _ID Spalte übergeben werden!
*/	_ID kann vom Typ Variant sein: [C|V|N|Y|F|B|I|T|D]
*/ Diese Spalte wird mit der Rückgabetabelle wieder zurückgegeben!
*/ In obigem Beispiel wäre es die IDE11 aus E11

GetBomCheck() - Rückgabe einer Tabelle oder einer Checksumme einer Baugruppe

Rückgabe:[Variant], Gibt entweder eine Tabelle [String] oder die Checksumme [Integer] der Baugruppe zurück.

Hilfeinformation

Rückgabe:[Variant], Gibt entweder eine Tabelle [String] oder die Checksumme [Integer] der Baugruppe zurück.

Aufrufinformation

Variant = My.Clients.Bom.GetBomCheck(tcWhat as String,tlTable as Boolean,tlNoLosBg as Boolean)
Variant = My.Clients.Bom.GetBomCheck(tcWhat,tlTable,tlNoLosBg)

Codeinformation

GetBomE1X() - Auflösen eines Vorgangs mit allen Positionen

Auflösen eines kompletten Vorgangs incl. aller Positionen

Hilfeinformation

Aufrufinformation

Variant = My.Clients.Bom.GetBomE1X(tcIde10 as String,tlShowThermos as Boolean)
Variant = My.Clients.Bom.GetBomE1X(tcIde10,tlShowThermos)

Codeinformation

GetBomF() - Baugruppenauflösung FAST

Rückgabe:[String], Auflösung von Baugruppen in PMS32. Schnelle Version... ohne Sortierung und Positionsnummerierung

Hilfeinformation

Rückgabe:[String], Auflösung von Baugruppen in PMS32. Schnelle Version... ohne Sortierung und Positionsnummerierung

Aufrufinformation

String = My.Clients.Bom.GetBomF(tcDbf as String,tlNoLosBg as Boolean,tlSort as Boolean,tlAllRecords as Boolean)
String = My.Clients.Bom.GetBomF(tcDbf,tlNoLosBg,tlSort,tlAllRecords)

Codeinformation

GetBomFC() - Spezielle Baugruppenauflösung

Rückgabe:[String], Auflösung von Baugruppen für die Kalkulation in PMS32. Übergabe ist eine Tabelle mit Baugruppenköpfen.

Hilfeinformation

Aufrufinformation

String = My.Clients.Bom.GetBomFC(tcDbf as String,tlNoLosBg as Boolean,tlSort as Boolean,tlAllRecords as Boolean)
String = My.Clients.Bom.GetBomFC(tcDbf,tlNoLosBg,tlSort,tlAllRecords)

Codeinformation

GetBomFCId() - Baugruppenauflösung mit Angabe einer IDB01

Rückgabe:[String], Auflösung von Baugruppen für die Kalkulation in PMS32. Übergabe ist eine IDB01 des Baugruppenkopfes

Hilfeinformation

Aufrufinformation

String = My.Clients.Bom.GetBomFCId(tcIdb01 as String,tnMenge as Double,tlNoLosBg as Boolean,tlSort as Boolean)
String = My.Clients.Bom.GetBomFCId(tcIdb01,tnMenge,tlNoLosBg,tlSort)

Codeinformation

GetBomFIDN() - Auflösung für Dispo

Rückgabe:[String], Auflösung von Baugruppen in PMS32 - 'neue' Auflösung für Disposition

Hilfeinformation

Dabei werden zwar Summen gebildet, die Baugruppen innerhalb von Baugruppen werden jedoch NICHT summiert!

Aufrufinformation

String = My.Clients.Bom.GetBomFIDN(tcIdb01 as String,tnMenge as Double,tlNoLosBg as Boolean,tlSort as Boolean)
String = My.Clients.Bom.GetBomFIDN(tcIdb01,tnMenge,tlNoLosBg,tlSort)

Codeinformation

GetBomFId() - Wie GetBomFCId jedoch die schnelle Variante

Rückgabe:[String], Auflösung von Baugruppen in PMS32. Schnelle Version mit Übergabe der ID und der Menge

Hilfeinformation

Rückgabe:[String], Auflösung von Baugruppen in PMS32. Schnelle Version mit Übergabe der ID und der Menge

Aufrufinformation

String = My.Clients.Bom.GetBomFId(tcIdb01 as String,tnMenge as Double,tlNoLosBg as Boolean,tlSort as Boolean)
String = My.Clients.Bom.GetBomFId(tcIdb01,tnMenge,tlNoLosBg,tlSort)

Codeinformation

GetBomFN() - Auflösung für Dispo

Rückgabe:[String], Auflösung von Baugruppen in PMS32 - 'neue' Auflösung für Disposition

Hilfeinformation

Dabei werden zwar Summen gebildet, die Baugruppen innerhalb von Baugruppen werden jedoch NICHT summiert!

Aufrufinformation

String = My.Clients.Bom.GetBomFN(tcDbf as String,tlNoLosBg as Boolean,tlSort as Boolean,tlAllRecords as Boolean)
String = My.Clients.Bom.GetBomFN(tcDbf,tlNoLosBg,tlSort,tlAllRecords)

Codeinformation

GetBomId() - Auflösen einer Baugruppe

Rückgabe:[String], Auflösung von Baugruppen in PMS32. Hier Übergabe der IDB01 und der Menge

Hilfeinformation

Rückgabe:[String], Auflösung von Baugruppen in PMS32. Hier Übergabe der IDB01 und der Menge

Aufrufinformation

String = My.Clients.Bom.GetBomId(tcIdb01 as String,tnMenge as Double,tlPosition as Boolean,tlSumme as Boolean,tlNoLosBg as Boolean,tlWithF03 as Boolean)
String = My.Clients.Bom.GetBomId(tcIdb01,tnMenge,tlPosition,tlSumme,tlNoLosBg,tlWithF03)

Codeinformation

GetInvBom() - Inverse Auflösung von Baugruppen

Rückgabe: [String], Inverse Auflösung der Baugruppeninformationen in tcDbf. Rückgabe ist ein Zeiger auf eine Tabelle. Mindestanf

Hilfeinformation

Rückgabe: [String], Inverse Auflösung der Baugruppeninformationen in tcDbf. Rückgabe ist ein Zeiger auf eine Tabelle. Mindestanf

Aufrufinformation

String = My.Clients.Bom.GetInvBom(tcDbf as String,tlPosition as Boolean,tlSumme as Boolean,tlNoLosBg as Boolean,tlWithF03 as Boolean)
String = My.Clients.Bom.GetInvBom(tcDbf,tlPosition,tlSumme,tlNoLosBg,tlWithF03)

Codeinformation

GetInvBomId() - Inverse Auflösung einer Baugruppe

Rückgabe:[String], Invertierte Auflösung von Baugruppen in PMS32 für einen Artikel

Hilfeinformation

Rückgabe:[String], Invertierte Auflösung von Baugruppen in PMS32 für einen Artikel

Aufrufinformation

String = My.Clients.Bom.GetInvBomId(tcIdb01 as String,tnMenge as Double,tlPosition as Boolean,tlSumme as Boolean,tlNoLosBg as Boolean,tlWithF03 as Boolean)
String = My.Clients.Bom.GetInvBomId(tcIdb01,tnMenge,tlPosition,tlSumme,tlNoLosBg,tlWithF03)

Codeinformation

GetProperty() - Abrufen einer Property in der Klasse

Rückgabe der benannten Property der Klasse. tnAsXML... kann sein: 0=Value, 1=C-Structure, 2=XML

Hilfeinformation

Ruft die Value einer Property in der Klasse ab.
Die Parameter: tcProperty as String
tcProperty: Name der Property in der Klasse

Aufrufinformation

Variant = My.Clients.Bom.GetProperty(tcProperty as String,tnAsXMLStructure as Variant)
Variant = My.Clients.Bom.GetProperty(tcProperty,tnAsXMLStructure)

Codeinformation

*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lnError AS Number
lnError = My.Clients.Bom.GetProperty('nError')

GetValue() - Abrufen einer Variablen in der Klasse

Führt das genannte Script aus. Vorhandene Zeiger: poThis=oKlasse, poCom=oNameSpace

Hilfeinformation

Ruft die Value einer Variablen in der Klasse ab.
Die Parameter: tcVariable as String

Aufrufinformation

Variant = My.Clients.Bom.GetValue(tcScript as String)
Variant = My.Clients.Bom.GetValue(tcScript)

Codeinformation

*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcIdx02 AS String
lcIdx02 = My.Clients.Bom.GetValue('My.cIdx02')
IF !ISNULL(m.lcIdx02)
	WAIT WINDOW m.lcIdx02
ELSE
	*/ My in der Klasse nicht bekannt!
ENDIF

SetProperty() - Setzen einer Property in der Klasse

Setzt die Value an die benannte Property. tnAsObject kann sein: 0=Value, 1=C-Structure, 2=XML

Hilfeinformation

Setzt die Value an die benannte Property.
Die Parameter: tcProperty as String,tvValue as Variant,tnAsObject as Integer
tcProperty: Name der Property in der Klasse
tvValue: Value der Property
tnAsObject: 0=Value, 1=C-Structure, 2=XML
Wird tnAsObject nicht angegeben, so wird 0=Value vorausgesetzt

Aufrufinformation

Variant = My.Clients.Bom.SetProperty(tcProperty as String,tvValue as Variant,tnAsObject as Integer)
Variant = My.Clients.Bom.SetProperty(tcProperty,tvValue,tnAsObject)

Codeinformation

*/ Als Beispielcode für eine Klasse in einem COM+ Server
*/ Vorausgesetzt wird, dass My bekannt ist...
=My.Clients.Bom.SetProperty('nError',0,0)
*/ oder auch...
=My.Clients.Bom.SetProperty('nError',0)

Terminate() -

Den COM+ Server vor dem Release im Aufrufer beenden.

Hilfeinformation

Aufrufinformation

Variant = My.Clients.Bom.Terminate()

Codeinformation

WriteSettings() - Schreiben div. Informationen in ein LOG-File

Mit dieser Methode kann eine Protokollierung div. Informationen in einem LOG File erfolgen.

Hilfeinformation

Mit dieser Methode kann eine Protokollierung div. Informationen in einem LOG File erfolgen.
Diese Methode ist 'nur' bei den NameSpace Servern von PMS zu finden!

Aufrufinformation

Variant = My.Clients.Bom.WriteSettings(tcWann as String)
Variant = My.Clients.Bom.WriteSettings(tcWann)

Codeinformation

*/ Als Beispielcode für eine Klasse in einem COM+ Server
*/ Vorausgesetzt wird, dass My bekannt ist...
=My.Clients.Bom.WriteSettings('Heute um 15:00Uhr')
*/ oder auch...
=My.Clients.Bom.WriteSettings(TTOC(DATETIME(),1))		&& Ausgabe: JJJJMMTThhmmss

Liste der Properties von Bom

_Clsid - CLS-ID des COM+ Servers

CLS-ID des COM+ Servers. Wird im INIT() ermittelt.

Hilfeinformation

Diese Property gibt es nur bei NameSpace Servern, dies sind Programmteile, die in einem geschützten Speicherbereich ablaufen. Sollten Sie mal von außen auf den NameSpace von PMS32 zugreifen und es fehlt Ihnen die Aufrufinformationen, so kann obiger String aus der Registry ermittelt werden.

Aufrufinformation

String = My.Clients.Bom._Clsid

Codeinformation

LOCAL lcClsID AS String
lcClsID = My.Clients.Bom._Clsid
WAIT WINDOW m.lcClsID

_ComServer - Pfad und Name des COM+ Servers

Dateiname und Pfad des gestarteten COM+ Servers

Hilfeinformation

Diese Property gibt es nur bei NameSpace Servern, dies sind Programmteile, die in einem geschützten Speicherbereich ablaufen.

Aufrufinformation

String = My.Clients.Bom._ComServer

Codeinformation

LOCAL lcComServer AS String
lcComServer = My.Clients.Bom._ComServer
WAIT WINDOW m.lcComServer

_Isreleased_ -

Hilfeinformation

Aufrufinformation

Boolean = My.Clients.Bom._Isreleased_

Codeinformation

_Name - Name der COM+ Klasse

Name der COM+ Klasse. MUSS angegeben werden. Dieser _Name wird übertragen und ist von außen abfragbar. Diese Property ist ReadOn

Hilfeinformation

Dateiname der Applikation. Wenn unter Vfp gestartet wird! sind diese Werte NICHT gesetzt! Die Property _Name gibt den Klassennamen der EXE bzw. DLL zurück.
Mit diesem Namen und dem Namen der EXE/DLL kann dann die COM+ Klasse instanziiert werden. Gleiches kann man auch aus den Eigenschaften der Programmklasse
EXE/DLL herausfinden.

Aufrufinformation

String = My.Clients.Bom._Name

Codeinformation

LOCAL lcComName AS String
lcComName = My.Clients.Bom._Name
WAIT WINDOW m.lcComName

_Pcreleaselog_ -

Hilfeinformation

Aufrufinformation

Variant = My.Clients.Bom._Pcreleaselog_

Codeinformation

_ServerName - Name der COM+ Server Datei

Name des Servers, wie bei der Initialisierung

Hilfeinformation

Die Property _ServerName gibt den kompletten Klassennamen der EXE bzw. DLL zurück.
Mit diesem Namen und dem Namen der EXE/DLL kann dann die COM+ Klasse instanziiert werden.
Gleiches kann man auch aus den Eigenschaften der Programmklasse EXE/DLL herausfinden.

Aufrufinformation

String = My.Clients.Bom._ServerName

Codeinformation

LOCAL lcServerName AS String
lcServerName = My.Clients.Bom._ServerName
WAIT WINDOW m.lcServerName

_StartMode - Startmodus des aufrufenden Servers

Startmode des externen Aufrufers. Derjenige, der den COM+ Server initialisiert. _StartMode='cMode,cNumber'

Hilfeinformation

Die Property gibt den Startmodus des Aufrufers zurück. Es gibt insgesamt 6 Modi:
0 - Unter VFP Entwicklung
1 - Unter VFP-COM Steuerung
2 - Start als COM.EXE
3 - Start als COM.DLL in Singleprocess
4 - Start als EXE (Standard Programmaufruf)
5 - Start als COM.DLL in Multiprocess

Aufrufinformation

Number = My.Clients.Bom._StartMode

Codeinformation

*/ Abfrage des Modus
WAIT WINDOW My.Clients.Bom._StartMode

_Sys1016 - Verwendeter Speicher

Verwendeter Speicher in Byte

Hilfeinformation

Gibt den verwendeten Speicher des Namespace zurück.
Rückgabe ist Byte.

Aufrufinformation

Integer = My.Clients.Bom._Sys1016

Codeinformation

LOCAL liBytes AS Integer
*/ Abfrage des Speichers
liBytes = My.Clients.Bom._Sys1016
WAIT WINDOW LTRIM(STR(m.liBytes/1024))+" kB"

_Version - Version der Programmdatei

Versionsnummer des Servers im Format H.U.DD.V1V2.BBBB

Hilfeinformation

Versionsnummer nach PMS32 Konvention. H.U.DD.SSHH.bbbb
Die Property _Version gibt die Programmversion (gilt für DLL, EXE und auch für APP) zurück.
H      - Hauptversion
U      - Unterversion
DD      - Datenbankversion
SS      - Servicepack
HH      - Hotfix
bbbb- Buildnumber

Aufrufinformation

String = My.Clients.Bom._Version

Codeinformation

WAIT WINDOW My.Clients.Bom._Version

_VfpVersion - VFP Version

Version von Visual FoxPro

Hilfeinformation

VFP Version der VFP-9 dll.

Aufrufinformation

String = My.Clients.Bom._VfpVersion

Codeinformation

WAIT WINDOW My.Clients.Bom._VfpVersion

cAppNameExe - Name der Applikation

Übertragen des Application.Servername

Hilfeinformation

Mit dieser Property kann der Name der Applikation abgerufen werden.

Aufrufinformation

String = My.Clients.Bom.cAppNameExe

Codeinformation

*/ Als Beispielcode für eine Klasse in einem COM+ Server
*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcName AS String
lcName = My.Clients.Bom.cAppNameExe

cClass -

Hilfeinformation

Aufrufinformation

String = My.Clients.Bom.cClass

Codeinformation

cDbfDir - Mandantenverzeichnis

Mandantenverzeichnis von PMS32

Hilfeinformation

Pfad der Mandantentabellen
Normalerweise zu finden unter \\server\freigabe\...\pms32\daten\mandant\

Aufrufinformation

String = My.Clients.Bom.cDbfDir

Codeinformation

IF !DIRECTORY(My.Clients.Bom.cDbfDir)
	*/ Benötigte Pfade sollten eigentlich da sein!
	=MESSAGEBOX("Pfad fehlt:" + My.Clients.Bom.cDbfDir,64,"Mandanten Verzeichnis")
ENDIF

cIdx02 - Mandanten ID

Mandanten ID aus PMS32. Weist dem Pfadserver PMS_08.PmsPath den Mandanten zu. Setzen aller Pfade.

Hilfeinformation

Mandanten-ID. Diese ist in der Datei pms32.pth gespeichert und dient dort zur Zuordnung des Mandante und dessen Pfade.
Auszug aus der Pfaddatei pms32.pth:

      */ Verzeichnis der Microcube - Dateien. Wenn leer dann gleich: cDbfdir
      cCubdir = ""
      */ Ein 'anderes' Dokumentenverzeichnis kann angegeben werden. Wenn nicht angegeben dann gleich: cDbfdir+'docs\'
      */ cDocDir = ""
      */ Verzeichnis der Mandantentabellen. Hier ein Beispiel mit UNC Pfaden.
      */ Wird die Freigabe auf dem Server 'versteckt' \pms$\ angegeben, so kann ein Cryptovirius das Verzeichnis nicht finden!
      cDbfdir = "\\server\pms$\pms32\daten\demo.32\"
      */ Verzeichnis der Reporttabellen
      */ Gibt man Bilddateien in einem Report mit My.Clients.Path.cFrxDir+'BILDNAME.JPG' an, so kann PMS32 einfach auf einen anderen Rechner kopiert werden!
      cFrxdir = "\\server\pms$\pms32\reports\demo.32\"
      */ Beschreibung des Mandanten
      cIcx02  = "TESTMANDANT DEMO"
      */ ID der Firmenparameter zum Mandant.
      cIdx09  = "DEMO"
      */ Kann unter der Mandanteninformation leer sein, wenn für mehrere Mandanten das 'gleiche' Systemverzeichnis gültig ist.
      cSysdir = ""
      */ Willkommens-Information als Hintergrundbild in PMS32
      cWelcome= "pms32.htm"
      */ Nummer des Mandanten, beim Einsatz eines BarcodeScanners sollte diese Nummer EINDEUTIG sein!
      nNumber = 1
<>

Aufrufinformation

String = My.Clients.Bom.cIdx02

Codeinformation

*/ Abfrage der Mandanten-ID
WAIT WINDOW My.Clients.Bom.cIdx02

*/ Wenn man mittels VFP Zugriff auf die Applikation braucht:

*/ 1. vfp9.exe öffenen
*/ 2. In das Startverzeichnis von PMS32 wechseln (MUSS)
CD c:\pms\pms32
*/ 3. My Instanziieren
My = NEWOBJECT("pmsmy","pmsmyhandler.vcx","pmsmyhandler.app")
*/ 4. Den letzten aktuellen Mandanten zuweisen
My.cIdx02 = My.cIdx02
*/ 5. Los gehts...

cInfo - Rückmeldeinformationen

Rückmelde- Information, wenn Fehler auftreten...

Hilfeinformation

Rückmelde- Information, wenn Fehler auftreten...

Aufrufinformation

String = My.Clients.Bom.cInfo

Codeinformation

cLastError - Letzter Fehler

Letzte Fehlermeldung im Klartext

Hilfeinformation

Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.

Aufrufinformation

String = My.Clients.Bom.cLastError

Codeinformation

*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lcError AS String
lcError = My.Clients.Bom.cLastError

cMethod - Methode des letzten Fehlers

Methode, in der der Fehler auftrat

Hilfeinformation

Methode in der der letzte Fehler auftrat.
Aufbau: [Fehlernummer] [Methode] [Zeilennummer] [Message]

Aufrufinformation

String = My.Clients.Bom.cMethod

Codeinformation

*/ Abruf...
WAIT WINDOW My.Clients.Bom.cMethod

cResetInfos - Reset C-Structure

Zurücksetzen von beliebigen Informationen in einem COM+ Server!

Hilfeinformation

Reset C-Structure
Diese Property ist normalerweise WriteOnly! Sie dient zum Zurücksetzen verschiedener Informationen.
#DEFINE CRI_REMOVE_MENUES "REMOVE-MENUES"
#DEFINE CRI_REMOVE_CSFILES "REMOVE-CS-FILES"
#DEFINE CRI_REMOVE_SCRIPTS "REMOVE-CS-SCRIPTS"
#DEFINE CRI_CHANGE_IDX09 "CHANGE-IDX09"
#DEFINE CRI_LOGIN "USER_LOGIN"

Aufrufinformation

String = My.Clients.Bom.cResetInfos

Codeinformation

*/ Verschiedene RESET Befehle...
My.Clients.Bom.cResetInfos = "REMOVE-MENUES"
My.Clients.Bom.cResetInfos = "REMOVE-CS-FILES"
My.Clients.Bom.cResetInfos = "REMOVE-CS-SCRIPTS"
My.Clients.Bom.cResetInfos = "CHANGE-IDX09"
My.Clients.Bom.cResetInfos = "USER_LOGIN"
*/ Je nach Klasse wird ein entsprechender RESET ausgeführt!

cSysDir - Systemverzeichnis

Systemverzeichnis von PMS32.

Hilfeinformation

Verzeichnis der Systemtabellen von PMS32
Das Verzeichnis ist normalerweise unter: \\server\pms$\pms32\dbf\ zu finden...

Aufrufinformation

String = My.Clients.Bom.cSysDir

Codeinformation

IF !DIRECTORY(My.Clients.Bom.cSysDir)
	*/ Benötigte Pfade sollten eigentlich da sein!
	=MESSAGEBOX("Pfad fehlt:" + My.Clients.Bom.cSysDir,64,"Systemverzeichnis")
ENDIF

cTmpDir - Temporäres Verzeichnis

Temporäres Verzeichnis von PMS32.

Hilfeinformation

Temporäres Verzeichnis für verschiedene Zwischenspeicherungen
Das Verzeichnis ist normalerweise unter: c:\benutzer\\appdata\local\temp\ zu finden...

Aufrufinformation

String = My.Clients.Bom.cTmpDir

Codeinformation

*/ Same as: ADDBS(SYS(2023))
IF !DIRECTORY(My.Clients.Bom.cTmpDir)
	*/ Benötigte Pfade sollten eigentlich da sein!
	=MESSAGEBOX("Pfad fehlt:" + My.Clients.Bom.cTmpDir,64,"Temporäres Verzeichnis")
ENDIF

lHoldOnRekursion - Anhalten bei Rekursion

Wenn eine Rekursion besteht, dann wird aufgehört.

Hilfeinformation

Aufrufinformation

Boolean = My.Clients.Bom.lHoldOnRekursion

Codeinformation

lRekursion - Rekursion ind der Baugruppe?

Besteht eine Rekursion?

Hilfeinformation

Aufrufinformation

Boolean = My.Clients.Bom.lRekursion

Codeinformation

nError - Fehlernummer des letzten Fehlers

Fehlernummer: VFP+, PMS-, 0 Kein Fehler!

Hilfeinformation

Fehlernummer des letzten Fehlers.
Ist der Wert kleiner null, so handelt es sich um einen logischen Fehler.

Aufrufinformation

Number = My.Clients.Bom.nError

Codeinformation

WAIT WINDOW My.Clients.Bom.nError

nLine - Zeilennummer des letzten Fehlers

Zeilennummer des Fehlers. Kann auch 0 sein!

Hilfeinformation

Zeilennummer, in der der letzte Fehler auftrat

Aufrufinformation

Number = My.Clients.Bom.nLine

Codeinformation

WAIT WINDOW My.Clients.Bom.nLine

oClass -

Hilfeinformation

Aufrufinformation

Object = My.Clients.Bom.oClass

Codeinformation

Siehe auch : Hauptmenü / Hauptindex / Such Index / Cursor Index / Programm Module / Tabellen Index / Tabellenmodule / Masken Index / Programmcode Index / Servicepacks / My.Struktur / Funktionen / Sonstiges Index

Lokale Benutzerhilfe : Meine eigene Hilfe / Zur�ck zur PMS³² - Hilfe

Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022 Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS³² Weitere Informationen finden Sie unter der aktuellen PMS³² WEB-Hilfe
Die Informationen dieser Mitteilung sind vertraulich und nur f�r Sie bestimmt. Unbefugtes Weiterleiten, Ver�ffentlichen, Kopieren usw. sind untersagt und werden gerichtlich verfolgt. © PMS Compelec GmbH 2022 ® el-Projekt