PMS32 Online- Hilfereferenz

MY.SYSTEMS.LOCALDICT

LocalDict - Lokales Datadictionary. Beschleunigt den Zugriff auf die Funktionen des Datadictionaries

Hilfe: Lokales Datadictionary
Lokales Datadictionary. Beschleunigt den Zugriff auf die Funktionen des Datadictionaries

Code: Lokales Datadictionary
*/ Kurzbeispiel für den Zugriff auf diese Struktur
*/ Der Zugriff erfolgt über: My.Systems.LocalDict
*/ 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 loLocalDict AS My.Systems.LocalDict
*/ Setzen der Variablen
loLocalDict = My.Systems.LocalDict
*/ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein...
REPLACE ALL Feldname1 WITH loLocalDict.Function1(),Feldname2 WITH loLocalDict.Function1(), ...
*/ Oder in einer Schleife...
SCAN
	lvValue = loLocalDict.Function(Alias.Spalte) + 25
	lvValue = loLocalDict.Function2(m.lvValue)
	REPLACE Feldname WITH m.lvValue,...
ENDSCAN
*/ Es sind auch geschachtelte Aufrufe möglich...
Memberliste von LocalDict

Liste der Methoden von LocalDict

DBGetFieldProperti() - Feldeigenschaften zurückgeben

Rückgabe:[Variant], Wie DBGetFieldProperty() jedoch Tabelle und Feld getrennt angegeben
Hilfeinformation
Rückgabe:[Variant], Wie DBGetFieldProperty() jedoch Tabelle und Feld getrennt angegeben

Aufrufinformation
Variant = My.Systems.LocalDict.DBGetFieldProperti(tcDbf AS STRING,tcField AS STRING,tcProperty AS STRING,tpReturn AS Variant @)
Variant = My.Systems.LocalDict.DBGetFieldProperti(tcDbf,tcField,tcProperty,@tpReturn)
Codeinformation
*/ Beispiel:
LOCAL loField AS Object
*/ Abruf der kompletten Information eines Feldes...
loField = My.Systems.LocalDict.DBGetFieldProperti("B01","ARTNR")
=MESSAGEBOX(My.Functions.fOTS.ObjectToString(m.loField),64,"Inhalt...")
*/ Abruf einer benannten Property
? My.Systems.LocalDict.DBGetFieldProperti("B01","ARTNR","Caption")
DBGetProperty() - Feldeigenschaften zurückgeben

Rückgabe:[Variant], Lesen der Informationen aus dem DataDictionary
Hilfeinformation
Rückgabe:[Variant], Lesen der Informationen aus dem DataDictionary

Aufrufinformation
Variant = My.Systems.LocalDict.DBGetProperty(tcName AS STRING,tcProperty AS STRING,tcOptions AS STRING,tnReturn AS INTEGER @)
Variant = My.Systems.LocalDict.DBGetProperty(tcName,tcProperty,tcOptions,@tnReturn)
Codeinformation
*/ Beispiel:
LOCAL loField AS Object
*/ Abruf der kompletten Information eines Feldes...
loField = My.Systems.LocalDict.DBGetProperty("B01.ARTNR")
=MESSAGEBOX(My.Functions.fOTS.ObjectToString(m.loField),64,"Inhalt...")
*/ Abruf einer benannten Property
? My.Systems.LocalDict.DBGetProperty("B01.ARTNR","Caption")
DBGetTableSql() - SQL für Combobox

Rückgabe:[String], Erzeugt einen Abfrage SQL für das Füllen eines Arrays. Ähnlich THIS.DBGetTableProperty()
Hilfeinformation
Rückgabe:[String], Erzeugt einen Abfrage SQL für das Füllen eines Arrays. Ähnlich THIS.DBGetTableProperty()

Aufrufinformation
String = My.Systems.LocalDict.DBGetTableSql(tcDbf AS STRING,tcField AS STRING)
String = My.Systems.LocalDict.DBGetTableSql(tcDbf,tcField)
Codeinformation
*/ Beispiel:
LOCAL lcSql AS String
lcSql = My.Systems.Localdict.DbGetTableSql("B01","ARTNR")

*/ Gibt folgendes als String zurück:
SELECT DISTINCT b01.artnr,b01.idb01 FROM CDBFDIR!B01 AS b01 ;
WHERE 1=1 ;
ORDER BY 1
DbGetDefaultProperty() - Gibt den Defaultwert eines Feldes zurück

Gibt den DEFAULT Wert eines Feldes zurück.
Hilfeinformation
Gibt den DEFAULT Wert eines Feldes zurück.

Aufrufinformation
Variant = My.Systems.LocalDict.DbGetDefaultProperty(tcDbfField AS STRING)
Variant = My.Systems.LocalDict.DbGetDefaultProperty(tcDbfField)
Codeinformation
*/ Beispiel:
LOCAL lcDefault AS String
lcDefault = My.Systems.Localdict.DbGetDefaultProperty("B01.ARTNR")
*/ Sollte in etwa so aussehen:
lcDefault = 'IIF(My.Clients.Fips.YX_autoart,CAST(My.Functions.Internals.NextNr("ARTNR") as C(25)),SPACE(25))'
DbGetDefaultTable() - Holt die Defaultwerte der Tabelle

Hole die Defaultwerte als Programm. Ähnlich wie BDGetDefaultProperty() jedoch wird ein Programm zurückgegeben!
Hilfeinformation
Hole die Defaultwerte als Programm. Ähnlich wie BDGetDefaultProperty() jedoch wird ein Programm zurückgegeben!

Aufrufinformation
Variant = My.Systems.LocalDict.DbGetDefaultTable(tcTable AS STRING,tcAtWhat AS STRING)
Variant = My.Systems.LocalDict.DbGetDefaultTable(tcTable,tcAtWhat)
Codeinformation
*/ Beispiel:
PRIVATE pcDefaultB01 AS String , poB01 AS Object
*/ Einen LEEREN Datensatz lesen
poB01 = My.Bussines.Strain.Misc.oB01['~~~~~~~~']
*/ Den Default-Code für die Tabelle
pcDefaultB01 = My.Systems.Localdict.DBGetDefaultTable("B01","poB01")
=EXECSCRIPT(m.pcDefaultB01)

*/ Das Aussehen von pcDefaultB01:
poB01.ARTNR=IIF(My.Clients.Fips.YX_autoart,CAST(My.Functions.Internals.NextNr("ARTNR") as C(25)),SPACE(25))
poB01.AUSPFLICHT=.F.
poB01.BBAS=My.Clients.Fips.YX_BBAS
poB01.BBZUG=0
poB01.BMFEST=0
poB01.BMMAX=0
poB01.BMMIN=0
poB01.BMWI=0
poB01.BSYST=My.Clients.Fips.YX_BSYST
poB01.DATBEW={}
poB01.DATEK=My.xDate
poB01.DATHKO={}
poB01.DEL_DATUM={}
poB01.DEL_MARK=.F.
poB01.DEL_WER=""
poB01.EKD=0
poB01.EKL=0
poB01.EKZUORD=My.Clients.Fips.YX_EKZUORD
poB01.IDB01=My.Clients.Numbers.GetMoreIds("IDB01",1)
poB01.IDC08=My.Clients.Fips.YX_IDC08
poB01.IDC08E=My.Clients.Fips.YX_IDC08
poB01.IDC19EH=My.Clients.Fips.yx_idc19
poB01.IDC19MEBA=My.Clients.Fips.yx_idc19
poB01.IDC19MEEK=My.Clients.Fips.yx_idc19
poB01.IDC19MELA=My.Clients.Fips.yx_idc19
poB01.IDC19MEST=My.Clients.Fips.yx_idc19
poB01.IDC20=My.Clients.Fips.YX_IDC20
poB01.IDC66=My.Clients.Fips.YX_IDC66FI
poB01.IDD03=""
poB01.IEB01=My.Clients.Numbers.EanB01(.NULL.)
poB01.IPB01="001"
poB01.IS_SL=.F.
poB01.LAGERART=.T.
poB01.LASTUPD=0
poB01.LFARAB=0.0
poB01.LSGUT=.F.
poB01.MEEKUF=1
poB01.MEVKUF=1
poB01.MGLOS=0
poB01.NDATUM=My.xDate
poB01.NOTRESU=My.Clients.Fips.yx_Di_NotResu
poB01.NPRG=My.lProgram
poB01.NWER=My.cUser
poB01.NZEIT=My.xTime
poB01.PEEK=1
poB01.PRPFL=.T.
poB01.RABATT1=0.0
poB01.RABATTJN=.T.
poB01.SHKENN=1
poB01.SKONTJN=.T.
poB01.SKP="S"
poB01.STATUS=1
poB01.TOEPLSQL=.F.
poB01.UFLA=1
poB01.UFLAD=1
poB01.UFLAEZU=1
poB01.VARIO=3
poB01.VOMAX=0
poB01.VOMEL=0
poB01.VOMIN=0
poB01.WBZ1=My.Clients.Fips.YX_WBZ1
DbGetFieldProperty() - Feldeigenschaften zurückgeben

Gibt die genannte Property des Feldes zurück. Übergeben wird DBF.FIELD und der Name der Property
Hilfeinformation
Gibt die genannte Property des Feldes zurück. Übergeben wird DBF.FIELD und der Name der Property

Aufrufinformation
Variant = My.Systems.LocalDict.DbGetFieldProperty(tcDbfField AS STRING,tcProperty AS STRING)
Variant = My.Systems.LocalDict.DbGetFieldProperty(tcDbfField,tcProperty)
Codeinformation
*/ Beispiel:
LOCAL loField AS Object
*/ Abruf der kompletten Information eines Feldes...
loField = My.Systems.LocalDict.DBGetFieldProperty("B01.ARTNR")
=MESSAGEBOX(My.Functions.fOTS.ObjectToString(m.loField),64,"Inhalt...")
*/ Abruf einer benannten Property
? My.Systems.LocalDict.DBGetFieldProperty("B01.ARTNR","Caption")
DbGetIndexProperty() - Indexeigenschaften zurückgeben

Ermittelt die Property eines Indexeintrags. DBF.TAG,
Hilfeinformation
Ermittelt die Property eines Indexeintrags. DBF.TAG,

Aufrufinformation
Variant = My.Systems.LocalDict.DbGetIndexProperty(tcDbfIndex AS STRING,tcProperty AS STRING)
Variant = My.Systems.LocalDict.DbGetIndexProperty(tcDbfIndex,tcProperty)
Codeinformation
*/ Beispiel:
LOCAL loIndex AS Object
*/ Abruf der kompletten Information eines Indexes...
loIndex = My.Systems.LocalDict.DBGetIndexProperty("B01.ARTNR")
=MESSAGEBOX(My.Functions.fOTS.ObjectToString(m.loIndex),64,"Inhalt...")
*/ Abruf einer benannten Property
? My.Systems.LocalDict.DBGetIndexProperty("B01.ARTNR","For")
DbGetKeyProperty() - Indexinformationen aus KEY

Ermittelt die Informationen eines Tabellenindexes aus dem KEY des TAG's. DBF.KEY,cProperty
Hilfeinformation
Ermittelt die Informationen eines Tabellenindexes aus dem KEY des TAG's. DBF.KEY,cProperty

Aufrufinformation
Variant = My.Systems.LocalDict.DbGetKeyProperty(tcDbfKey AS STRING,tcProperty AS STRING)
Variant = My.Systems.LocalDict.DbGetKeyProperty(tcDbfKey,tcProperty)
Codeinformation


DbGetSqlTable() - SQL Eigenschaften

 Rückgabe:[Object], Gibt die SQL - Eigenschaften der genannten Tabelle zurück
Hilfeinformation


Aufrufinformation


Object = My.Systems.LocalDict.DbGetSqlTable(tcTable AS STRING)
Object = My.Systems.LocalDict.DbGetSqlTable(tcTable)


Codeinformation




DbGetTableProperty() - Properties der Tabelle

 Gibt die angegebene Property der Tabelle zurück
Hilfeinformation

Gibt die angegebene Property der Tabelle zurück
Aufrufinformation


Variant = My.Systems.LocalDict.DbGetTableProperty(tcDbf AS STRING,tcProperty AS STRING)
Variant = My.Systems.LocalDict.DbGetTableProperty(tcDbf,tcProperty)


Codeinformation


*/ Beispiel:
LOCAL loB01 AS Object
*/ Komplett...
loB01 = My.Systems.Localdict.DBGetTableProperty("B01")
=MESSAGEBOX(My.Functions.fOTS.ObjectToString(m.loB01),64,"Inhalt...")
*/ Nur den Namen des Primärschlüssels
? My.Systems.Localdict.DBGetTableProperty("B01","PrimaryTag")


DocumentCan() - Aufnahme eines Dokuments

 Rückgabe:[Variant], Kann die angegebene Tabelle in die Dokumentenverwaltung aufgenommen werden?
Hilfeinformation


Aufrufinformation


Variant = My.Systems.LocalDict.DocumentCan(tcDbf AS STRING , tlObject AS Boolean)
Variant = My.Systems.LocalDict.DocumentCan(tcDbf,tlObject)


Codeinformation




DocumentGet() - Infos für L20

 Rückgabe:[Variant], Gibt die entsprechenden Informationen für die Dokumentenverwaltung (L20) zurück.
Hilfeinformation


Aufrufinformation


Variant = My.Systems.LocalDict.DocumentGet(tcDbf AS STRING)
Variant = My.Systems.LocalDict.DocumentGet(tcDbf)


Codeinformation




DocumentsCan() - Gibts ein Dokument

 Rückgabe:[Boolean], Gibt es ein Dokument?
Hilfeinformation


Aufrufinformation


Boolean = My.Systems.LocalDict.DocumentsCan(tcDbf AS STRING)
Boolean = My.Systems.LocalDict.DocumentsCan(tcDbf)


Codeinformation




DocumentsGo() - Dokumentenverwaltung

 Rückgabe:[Boolean], Gehe zur Dokumentenverwaltung
Hilfeinformation


Aufrufinformation


Boolean = My.Systems.LocalDict.DocumentsGo(tcDbf AS STRING)
Boolean = My.Systems.LocalDict.DocumentsGo(tcDbf)


Codeinformation




GetDbfFields() - Dictionary nach Excel

 Rückgabe:[Boolean], Erzeugt eine EXCEL Datei mit den Feldinformationen der angegebenen Tabelle
Hilfeinformation

Rückgabe:[Boolean], Erzeugt eine EXCEL Datei mit den Feldinformationen der angegebenen Tabelle
Aufrufinformation


Boolean = My.Systems.LocalDict.GetDbfFields(tcFilterTables AS STRING,tlDontChange AS Boolean)
Boolean = My.Systems.LocalDict.GetDbfFields(tcFilterTables,tlDontChange)


Codeinformation




Liste der Properties von LocalDict


cMethod - Methode des Fehlers

 Methode in der der letzte Fehler auftrat.
Hilfeinformation

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


String = My.Systems.LocalDict.cMethod


Codeinformation


*/ Abruf...
WAIT WINDOW My.Systems.LocalDict.cMethod


nError - Fehlernummer d. Fehlers

 Fehlernummer des letzten Fehlers.
Hilfeinformation

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


Number = My.Systems.LocalDict.nError


Codeinformation


WAIT WINDOW My.Systems.LocalDict.nError


nLine - Zeilennummer d. Fehlers

 Zeilennummer, in der der letzte Fehler auftrat
Hilfeinformation

Zeilennummer, in der der letzte Fehler auftrat
Aufrufinformation


Number = My.Systems.LocalDict.nLine


Codeinformation


WAIT WINDOW My.Systems.LocalDict.nLine





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 PMS32 - Hilfe






Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022 

Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS32 
Weitere Informationen finden Sie unter der aktuellen 
PMS32 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