PMS32 Online- Hilfereferenz
Rename - Umbenennen verschiedener ID's/IC's in verschiedenen Tabellen.
Variant = My.Bussines.Strain.Rename.Evaluate(pcExpression AS STRING,pvDefault AS Variant,tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant, tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant) Variant = My.Bussines.Strain.Rename.Evaluate(pcExpression,pvDefault,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)
*/ Mit Evaluate kann eine Befehlszeile ausgeführt werden */ Eventuell benutzte Variablen sind PRIVATE zu deklarieren PRIVATE pnVar1 AS Number , pnVar2 AS Number LOCAL lnVar AS Number STORE 2 TO pnVar1,pnVar2 lnVar = My.Bussines.Strain.Rename.Evaluate([m.pnVar1+m.pnVar2]) WAIT WINDOW m.lnVar && Ergibt 4... ENDTEXT
Variant = My.Bussines.Strain.Rename.ExecScriptP(tcScript AS STRING,toPara AS COLLECTION) Variant = My.Bussines.Strain.Rename.ExecScriptP(tcScript,toPara)
*/ Mit EXECSCRIPTP kann ein VFP-Script ausgeführt werden
LOCAL lcScript AS String,lnVar AS Number,loColl AS Collection
loColl = CREATEOBJECT("Collection")
loColl.Add(2,"Var1")
loColl.Add(2,"Var2")
TEXT TO lcScript NOSHOW TEXTMERGE
LPARAMETERS toColl AS Collection
RETURN toColl.Item("Var1") + toColl.Item("Var2")
ENDTEXT
lnVar = My.Bussines.Strain.Rename.ExecScriptP(m.lcScript,m.loColl)
*/ und das Ergebnis...
WAIT WINDOW m.lnVar
Variant = My.Bussines.Strain.Rename.GetParameters(tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant,tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant) Variant = My.Bussines.Strain.Rename.GetParameters(tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)
*/ Hier können mehrere Parameter in eine Collection übertragen werden LOCAL loCollection AS Collection , lni AS Integer , lcNames AS String loCollection = My.Bussines.Strain.Rename.GetParameters(1,DATE(),TIME()) WAIT WINDOW m.loCollection.Count && Anzahl der Werte (3) */ Die Namen der Parameter bestimmen lcNames = "" FOR m.lni = 1 TO m.loCollection.Count lcNames = m.lcNames + ";" + m.loCollection.GetKey(m.lni) NEXT m.lni WAIT WINDOW SUBSTR(m.lcNames,2)
Variant = My.Bussines.Strain.Rename.GetParametersCount(tnCnt AS Number,tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant,tvP5 AS Variant,tvP6 AS Variant,tvP7 AS Variant,tvP8 AS Variant,tvP9 AS Variant) Variant = My.Bussines.Strain.Rename.GetParametersCount(tnCnt,tvP1,tvP2,tvP3,tvP4,tvP5,tvP6,tvP7,tvP8,tvP9)
*/ Hier können mehrere Parameter in eine Collection übertragen werden */ Als Beispiel kann nur der Aufruf eines Scripts / einer Methode dienen LPARAMETERS tp1 AS Variant , tp2 AS Variant , tp3 AS Variant && Es könnten mehr sein! LOCAL loCollection AS Collection , lni AS Integer lni = PCOUNT() && Wieviele Parameter wurden übergeben? loCollection = My.Bussines.Strain.Rename.GetParametersCount(m.lni,m.tp1,m.tp2,m.tp3) WAIT WINDOW m.loCollection.Count && Anzahl der Werte (?)
Variant = My.Bussines.Strain.Rename.SetParameters(toPara AS Collection,tvP1 AS Variant @,tvP2 AS Variant @,tvP3 AS Variant @,tvP4 AS Variant @,tvP5 AS Variant @,tvP6 AS Variant @,tvP7 AS Variant @,tvP8 AS Variant @,tvP9 AS Variant @) Variant = My.Bussines.Strain.Rename.SetParameters(toPara,@tvP1,@tvP2,@tvP3,@tvP4,@tvP5,@tvP6,@tvP7,@tvP8,@tvP9)
*/ Umwandeln einer Collection in Parameter
LOCAL loCollection AS Collection,lnVar1 AS Number,lnVar2 AS Number
loCollection = CREATEOBJECT("Collection")
=loCollection.Add(1,"tvp1")
=loCollection.Add(2,"tvp2")
=My.Bussines.Strain.Rename.SetParameters(m.loCollection,@lnVar1,@lnVar2)
WAIT WINDOW m.lnVar1
WAIT WINDOW m.lnVar2
Variant = My.Bussines.Strain.Rename._SqlCount(tcSql AS String) Variant = My.Bussines.Strain.Rename._SqlCount(tcSql)
LOCAL lcSql AS String lcSql = [SELECT COUNT(*) FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Bussines.Strain.Rename._SqlCount(m.lcSql)>0 WAIT WINDOW "Es sind Daten vorhanden!" ENDIF */ Bemerkung: */ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht!
Variant = My.Bussines.Strain.Rename._SqlExist(tcSql AS String) Variant = My.Bussines.Strain.Rename._SqlExist(tcSql)
LOCAL lcSql AS String lcSql = [SELECT ipy01 FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Bussines.Strain.Rename._SqlExist(m.lcSql) && Gibt Boolean zurück WAIT WINDOW "Es sind Daten vorhanden!" ENDIF */ Bemerkung: */ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht!
Variant = My.Bussines.Strain.Rename._SqlRead(tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String) Variant = My.Bussines.Strain.Rename._SqlRead(tcSql,tcAlias,tvTable,tcIndex)
LOCAL lcSql AS String lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] IF My.Bussines.Strain.Rename._SqlRead(m.lcSql,"qY01",2) && Gibt Boolean zurück ACTIVATE _SCREEN BROWSE ENDIF */ Bemerkung: */ Bei der Angabe der Datenbank, hier CSYSDIR!, wird der Wert gegen den Pfad ausgetauscht! */ Die einzelnen Parameter: */ tcSql AS String,tcAlias AS String,tvTable AS Variant,tcIndex AS String */ Ein muss sind: tcSql AS String,tcAlias AS String */ tvTable kann angegeben werden mit: */ .F. => Cursor incl. __Changed [L] und __New [L], .T. - Tabelle incl. */ Bit-0 => 1 - Als Tabelle, 0 - Als Cursor */ Bit-1 => 1 - Ohne __Changed und __New, 0 - Mit... */ tcIndex kann angegeben werden, wenn Indizes auf dem Cursor / der Tabelle benötigt werden. */ "IndexKey1#IndexTag1;IndexKey2#IndexTag2;...." */ Wird kein IndexTag angegeben und der IndexKey NICHT aus einer Funktion ermittelt, so hat der IndexKey den Namen des IndexTag! */ Wird der IndexKey aus einer Funktion gebildet und es ist kein IndexTag angegeben, so erhält der IndexTag den Namen _Index<Nummer>
Variant = My.Bussines.Strain.Rename._SqlReadArray(tcSql AS String,toObject AS Object,taArray) Variant = My.Bussines.Strain.Rename._SqlReadArray(tcSql,toObject,taArray)
LOCAL lcSql AS String , laErg[1] , loObject AS Object
lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"]
*/ Ausführen in ein lokales Array
IF My.Bussines.Strain.Rename._SqlReadArray(m.lcSql,.NULL.,@laErg) && Es gibt Datensätze...
*/ FOR i = ... NEXT i
ENDIF
*/ Ausführen in ein Objekt-Array
loObject = CREATEOBJECT("EMPTY")
=ADDPROPERTY(loObject,"aErg[1]")
IF My.Bussines.Strain.Rename._SqlReadArray(m.lcSql,m.loObject,"aErg") && Es gibt Datensätze...
*/ FOR i = ... NEXT i
ENDIF
Variant = My.Bussines.Strain.Rename._SqlReadCollection(tcSql AS String,tcIndex AS String) Variant = My.Bussines.Strain.Rename._SqlReadCollection(tcSql,tcIndex)
LOCAL lcSql AS String , loColl AS Collection lcSql = [SELECT * FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] */ Normale Ausführung OHNE Indexangabe. */ Die Keys der Collection sind fortlaufend nummeriert! loColl= My.Bussines.Strain.Rename._SqlReadCollection(m.lcSql) WAIT WINDOW loColl.GetKey(1) && "0000001" */ Hat der SQL einen eindeutigen Key so kann dieser benutzt werden! loColl= My.Bussines.Strain.Rename._SqlReadCollection(m.lcSql,"ipy01") WAIT WINDOW loColl.GetKey(1) && "SU0"
Variant = My.Bussines.Strain.Rename._SqlReadValue(tcSql AS String,tiValue AS Integer) Variant = My.Bussines.Strain.Rename._SqlReadValue(tcSql,tiValue)
LOCAL lcSql AS String , lvValue AS Variant */ Gibt den Inhalt der ERSTEN Spalte zurück lcSql = [SELECT bezei,kurz,master FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] lvValue = My.Bussines.Strain.Rename._SqlReadValue(m.lcSql) && y01.Bezei */ Gibt den Inhalt der ZWEITEN Spalte zurück lcSql = [SELECT bezei,kurz,master FROM CSYSDIR!Y01 WHERE idc26="DE " AND ipy01="SU"] lvValue = My.Bussines.Strain.Rename._SqlReadValue(m.lcSql,2) && y01.Kurz
Variant = My.Bussines.Strain.Rename._SqlUpdate(tcTable AS STRING,tcAlias AS STRING,tcIdName AS STRING,tcFilter AS String) Variant = My.Bussines.Strain.Rename._SqlUpdate(tcTable,tcAlias,tcIdName,tcFilter)
LOCAL lcSql AS String , tlUpdate AS Boolean
lcSql = [SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH']
*/ Lesen der Daten vom Backend
IF My.Bussines.Strain.Rename._SqlRead(m.lcSql,"qB01",1)
*/ Ändern der Daten...
SELECT qB01
REPLACE ALL match WITH "LEISTUNGSSCHALTER",__Changed WITH .T.
tlUpdate = My.Bussines.Strain.Rename._SqlUpdate("B01",ALIAS(),"IDB01")
IF NOT m.tlUpdate
WAIT WINDOW My.Bussines.Strain.Rename.cLastError
ENDIF
ENDIF
;Filter1 = My.Bussines.Strain.Rename._SqlUpdateAll(tcList AS STRING) ;Filter1 = My.Bussines.Strain.Rename._SqlUpdateAll(tcList)
LOCAL tlUpdate AS Boolean
*/ Lesen der Daten vom Backend
IF My.Bussines.Strain.Rename._SqlRead([SELECT * FROM CDBFDIR!B01 WHERE b01.artnr='SIE.3TH'],"qB01",1) AND ;
My.Bussines.Strain.Rename._SqlRead([SELECT d03.* FROM CDBFDIR!D03 INNER JOIN CDBFDIR!B01 ON d03.idd03=b01.idd03 WHERE b01.artnr='SIE.3TH'],"qD03",1)
*/ Ändern der Daten...
UPDATE qB01 SET lang = qD03.bez, __Changed = .T. FROM qD03 WHERE qB01.idd03=qD03.idd03
UPDATE qD03 SET ekpdatum = My.xDate, __Changed = .T.
tlUpdate = My.Bussines.Strain.Rename._SqlUpdateAll("B01;QB01;IDB01#D03;QD03;IDD03")
IF NOT m.tlUpdate
WAIT WINDOW My.Bussines.Strain.Rename.cLastError
ENDIF
ENDIF
*/ Hinweis:
*/ Der Update der einzel angegebenen Cursor wird mit einer Transaktion durchgeführt!
*/ Läuft einer der Updates auf einen Fehler wird die Änderung rückgängig gemacht!
*/ Der String ist folgendermaßen aufgebaut:
*/ "Tableinfo1#Tableinfo2#Tableinfo3#..."
*/ Tableinfo:
*/ Tabelle;Cursor;ID-Field[;Filter]
Variant = My.Bussines.Strain.Rename.renB01(tcOldIC AS STRING , tcNewIC AS STRING , tcExceptTables AS STRING , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renB01(tcOldIC,tcNewIC,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des IC-Feldes:ARTNR in der Tabelle:B01
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcARTNROld AS String , lcARTNRNew AS String
*/ An einem Beispiel...
lcARTNROld = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcARTNRNew = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (B01) das Feld (ARTNR) geändert!
IF My.Bussines.Strain.Rename.renB01(m.lcARTNROld,m.lcARTNRNew,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (B01) das Feld (ARTNR) geändert!
IF My.Bussines.Strain.Rename.renB01(m.lcARTNROld,m.lcARTNRNew,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte ARTNR im Master B01 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC02(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC02(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC02 in der Tabelle:C02
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC02Old AS String , lcIDC02New AS String
*/ An einem Beispiel...
lcIDC02Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC02New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C02) das Feld (IDC02) geändert!
IF My.Bussines.Strain.Rename.renC02(m.lcIDC02Old,m.lcIDC02New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C02) das Feld (IDC02) geändert!
IF My.Bussines.Strain.Rename.renC02(m.lcIDC02Old,m.lcIDC02New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC02 im Master C02 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC03(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC03(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC03 in der Tabelle:C03
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC03Old AS String , lcIDC03New AS String
*/ An einem Beispiel...
lcIDC03Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC03New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C03) das Feld (IDC03) geändert!
IF My.Bussines.Strain.Rename.renC03(m.lcIDC03Old,m.lcIDC03New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C03) das Feld (IDC03) geändert!
IF My.Bussines.Strain.Rename.renC03(m.lcIDC03Old,m.lcIDC03New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC03 im Master C03 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC07(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC07(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC07 in der Tabelle:C07
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC07Old AS String , lcIDC07New AS String
*/ An einem Beispiel...
lcIDC07Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC07New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C07) das Feld (IDC07) geändert!
IF My.Bussines.Strain.Rename.renC07(m.lcIDC07Old,m.lcIDC07New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C07) das Feld (IDC07) geändert!
IF My.Bussines.Strain.Rename.renC07(m.lcIDC07Old,m.lcIDC07New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC07 im Master C07 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC08(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC08(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC08 in der Tabelle:C08
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC08Old AS String , lcIDC08New AS String
*/ An einem Beispiel...
lcIDC08Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC08New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C08) das Feld (IDC08) geändert!
IF My.Bussines.Strain.Rename.renC08(m.lcIDC08Old,m.lcIDC08New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C08) das Feld (IDC08) geändert!
IF My.Bussines.Strain.Rename.renC08(m.lcIDC08Old,m.lcIDC08New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC08 im Master C08 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC09(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC09(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC09 in der Tabelle:C09
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC09Old AS String , lcIDC09New AS String
*/ An einem Beispiel...
lcIDC09Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC09New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C09) das Feld (IDC09) geändert!
IF My.Bussines.Strain.Rename.renC09(m.lcIDC09Old,m.lcIDC09New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C09) das Feld (IDC09) geändert!
IF My.Bussines.Strain.Rename.renC09(m.lcIDC09Old,m.lcIDC09New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC09 im Master C09 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC10(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC10(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC10 in der Tabelle:C10
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC10Old AS String , lcIDC10New AS String
*/ An einem Beispiel...
lcIDC10Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC10New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C10) das Feld (IDC10) geändert!
IF My.Bussines.Strain.Rename.renC10(m.lcIDC10Old,m.lcIDC10New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C10) das Feld (IDC10) geändert!
IF My.Bussines.Strain.Rename.renC10(m.lcIDC10Old,m.lcIDC10New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC10 im Master C10 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC14(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC14(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC14 in der Tabelle:C14
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC14Old AS String , lcIDC14New AS String
*/ An einem Beispiel...
lcIDC14Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC14New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C14) das Feld (IDC14) geändert!
IF My.Bussines.Strain.Rename.renC14(m.lcIDC14Old,m.lcIDC14New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C14) das Feld (IDC14) geändert!
IF My.Bussines.Strain.Rename.renC14(m.lcIDC14Old,m.lcIDC14New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC14 im Master C14 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC16(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC16(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC16 in der Tabelle:C16
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC16Old AS String , lcIDC16New AS String
*/ An einem Beispiel...
lcIDC16Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC16New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C16) das Feld (IDC16) geändert!
IF My.Bussines.Strain.Rename.renC16(m.lcIDC16Old,m.lcIDC16New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C16) das Feld (IDC16) geändert!
IF My.Bussines.Strain.Rename.renC16(m.lcIDC16Old,m.lcIDC16New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC16 im Master C16 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC18(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC18(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC18 in der Tabelle:C18
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC18Old AS String , lcIDC18New AS String
*/ An einem Beispiel...
lcIDC18Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC18New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C18) das Feld (IDC18) geändert!
IF My.Bussines.Strain.Rename.renC18(m.lcIDC18Old,m.lcIDC18New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C18) das Feld (IDC18) geändert!
IF My.Bussines.Strain.Rename.renC18(m.lcIDC18Old,m.lcIDC18New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC18 im Master C18 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC19(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC19(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC19 in der Tabelle:C19
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC19Old AS String , lcIDC19New AS String
*/ An einem Beispiel...
lcIDC19Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC19New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C19) das Feld (IDC19) geändert!
IF My.Bussines.Strain.Rename.renC19(m.lcIDC19Old,m.lcIDC19New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C19) das Feld (IDC19) geändert!
IF My.Bussines.Strain.Rename.renC19(m.lcIDC19Old,m.lcIDC19New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC19 im Master C19 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC20(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC20(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC20 in der Tabelle:C20
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC20Old AS String , lcIDC20New AS String
*/ An einem Beispiel...
lcIDC20Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC20New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C20) das Feld (IDC20) geändert!
IF My.Bussines.Strain.Rename.renC20(m.lcIDC20Old,m.lcIDC20New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C20) das Feld (IDC20) geändert!
IF My.Bussines.Strain.Rename.renC20(m.lcIDC20Old,m.lcIDC20New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC20 im Master C20 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC22(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC22(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC22 in der Tabelle:C22
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC22Old AS String , lcIDC22New AS String
*/ An einem Beispiel...
lcIDC22Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC22New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C22) das Feld (IDC22) geändert!
IF My.Bussines.Strain.Rename.renC22(m.lcIDC22Old,m.lcIDC22New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C22) das Feld (IDC22) geändert!
IF My.Bussines.Strain.Rename.renC22(m.lcIDC22Old,m.lcIDC22New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC22 im Master C22 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC23(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC23(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC23 in der Tabelle:C23
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC23Old AS String , lcIDC23New AS String
*/ An einem Beispiel...
lcIDC23Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC23New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C23) das Feld (IDC23) geändert!
IF My.Bussines.Strain.Rename.renC23(m.lcIDC23Old,m.lcIDC23New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C23) das Feld (IDC23) geändert!
IF My.Bussines.Strain.Rename.renC23(m.lcIDC23Old,m.lcIDC23New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC23 im Master C23 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC24(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC24(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC24 in der Tabelle:C24
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC24Old AS String , lcIDC24New AS String
*/ An einem Beispiel...
lcIDC24Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC24New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C24) das Feld (IDC24) geändert!
IF My.Bussines.Strain.Rename.renC24(m.lcIDC24Old,m.lcIDC24New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C24) das Feld (IDC24) geändert!
IF My.Bussines.Strain.Rename.renC24(m.lcIDC24Old,m.lcIDC24New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC24 im Master C24 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC25(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC25(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC25 in der Tabelle:C25
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC25Old AS String , lcIDC25New AS String
*/ An einem Beispiel...
lcIDC25Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC25New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C25) das Feld (IDC25) geändert!
IF My.Bussines.Strain.Rename.renC25(m.lcIDC25Old,m.lcIDC25New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C25) das Feld (IDC25) geändert!
IF My.Bussines.Strain.Rename.renC25(m.lcIDC25Old,m.lcIDC25New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC25 im Master C25 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC26(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC26(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC26 in der Tabelle:C26
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC26Old AS String , lcIDC26New AS String
*/ An einem Beispiel...
lcIDC26Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC26New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C26) das Feld (IDC26) geändert!
IF My.Bussines.Strain.Rename.renC26(m.lcIDC26Old,m.lcIDC26New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C26) das Feld (IDC26) geändert!
IF My.Bussines.Strain.Rename.renC26(m.lcIDC26Old,m.lcIDC26New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC26 im Master C26 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC27(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC27(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC27 in der Tabelle:C27
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC27Old AS String , lcIDC27New AS String
*/ An einem Beispiel...
lcIDC27Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC27New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C27) das Feld (IDC27) geändert!
IF My.Bussines.Strain.Rename.renC27(m.lcIDC27Old,m.lcIDC27New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C27) das Feld (IDC27) geändert!
IF My.Bussines.Strain.Rename.renC27(m.lcIDC27Old,m.lcIDC27New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC27 im Master C27 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC28(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC28(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC28 in der Tabelle:C28
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC28Old AS String , lcIDC28New AS String
*/ An einem Beispiel...
lcIDC28Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC28New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C28) das Feld (IDC28) geändert!
IF My.Bussines.Strain.Rename.renC28(m.lcIDC28Old,m.lcIDC28New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C28) das Feld (IDC28) geändert!
IF My.Bussines.Strain.Rename.renC28(m.lcIDC28Old,m.lcIDC28New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC28 im Master C28 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC30(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC30(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC30 in der Tabelle:C30
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC30Old AS String , lcIDC30New AS String
*/ An einem Beispiel...
lcIDC30Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC30New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C30) das Feld (IDC30) geändert!
IF My.Bussines.Strain.Rename.renC30(m.lcIDC30Old,m.lcIDC30New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C30) das Feld (IDC30) geändert!
IF My.Bussines.Strain.Rename.renC30(m.lcIDC30Old,m.lcIDC30New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC30 im Master C30 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC31(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC31(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC31 in der Tabelle:C31
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC31Old AS String , lcIDC31New AS String
*/ An einem Beispiel...
lcIDC31Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC31New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C31) das Feld (IDC31) geändert!
IF My.Bussines.Strain.Rename.renC31(m.lcIDC31Old,m.lcIDC31New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C31) das Feld (IDC31) geändert!
IF My.Bussines.Strain.Rename.renC31(m.lcIDC31Old,m.lcIDC31New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC31 im Master C31 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC32(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC32(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC32 in der Tabelle:C32
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC32Old AS String , lcIDC32New AS String
*/ An einem Beispiel...
lcIDC32Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC32New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C32) das Feld (IDC32) geändert!
IF My.Bussines.Strain.Rename.renC32(m.lcIDC32Old,m.lcIDC32New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C32) das Feld (IDC32) geändert!
IF My.Bussines.Strain.Rename.renC32(m.lcIDC32Old,m.lcIDC32New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC32 im Master C32 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC33(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC33(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC33 in der Tabelle:C33
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC33Old AS String , lcIDC33New AS String
*/ An einem Beispiel...
lcIDC33Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC33New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C33) das Feld (IDC33) geändert!
IF My.Bussines.Strain.Rename.renC33(m.lcIDC33Old,m.lcIDC33New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C33) das Feld (IDC33) geändert!
IF My.Bussines.Strain.Rename.renC33(m.lcIDC33Old,m.lcIDC33New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC33 im Master C33 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC34(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC34(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC34 in der Tabelle:C34
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC34Old AS String , lcIDC34New AS String
*/ An einem Beispiel...
lcIDC34Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC34New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C34) das Feld (IDC34) geändert!
IF My.Bussines.Strain.Rename.renC34(m.lcIDC34Old,m.lcIDC34New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C34) das Feld (IDC34) geändert!
IF My.Bussines.Strain.Rename.renC34(m.lcIDC34Old,m.lcIDC34New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC34 im Master C34 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC39(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC39(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC39 in der Tabelle:C39
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC39Old AS String , lcIDC39New AS String
*/ An einem Beispiel...
lcIDC39Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC39New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C39) das Feld (IDC39) geändert!
IF My.Bussines.Strain.Rename.renC39(m.lcIDC39Old,m.lcIDC39New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C39) das Feld (IDC39) geändert!
IF My.Bussines.Strain.Rename.renC39(m.lcIDC39Old,m.lcIDC39New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC39 im Master C39 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC40(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC40(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC40 in der Tabelle:C40
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC40Old AS String , lcIDC40New AS String
*/ An einem Beispiel...
lcIDC40Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC40New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C40) das Feld (IDC40) geändert!
IF My.Bussines.Strain.Rename.renC40(m.lcIDC40Old,m.lcIDC40New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C40) das Feld (IDC40) geändert!
IF My.Bussines.Strain.Rename.renC40(m.lcIDC40Old,m.lcIDC40New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC40 im Master C40 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC41(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC41(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC41 in der Tabelle:C41
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC41Old AS String , lcIDC41New AS String
*/ An einem Beispiel...
lcIDC41Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC41New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C41) das Feld (IDC41) geändert!
IF My.Bussines.Strain.Rename.renC41(m.lcIDC41Old,m.lcIDC41New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C41) das Feld (IDC41) geändert!
IF My.Bussines.Strain.Rename.renC41(m.lcIDC41Old,m.lcIDC41New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC41 im Master C41 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC42(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC42(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC42 in der Tabelle:C42
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC42Old AS String , lcIDC42New AS String
*/ An einem Beispiel...
lcIDC42Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC42New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C42) das Feld (IDC42) geändert!
IF My.Bussines.Strain.Rename.renC42(m.lcIDC42Old,m.lcIDC42New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C42) das Feld (IDC42) geändert!
IF My.Bussines.Strain.Rename.renC42(m.lcIDC42Old,m.lcIDC42New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC42 im Master C42 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC43(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC43(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC43 in der Tabelle:C43
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC43Old AS String , lcIDC43New AS String
*/ An einem Beispiel...
lcIDC43Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC43New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C43) das Feld (IDC43) geändert!
IF My.Bussines.Strain.Rename.renC43(m.lcIDC43Old,m.lcIDC43New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C43) das Feld (IDC43) geändert!
IF My.Bussines.Strain.Rename.renC43(m.lcIDC43Old,m.lcIDC43New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC43 im Master C43 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC44(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC44(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC44 in der Tabelle:C44
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC44Old AS String , lcIDC44New AS String
*/ An einem Beispiel...
lcIDC44Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC44New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C44) das Feld (IDC44) geändert!
IF My.Bussines.Strain.Rename.renC44(m.lcIDC44Old,m.lcIDC44New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C44) das Feld (IDC44) geändert!
IF My.Bussines.Strain.Rename.renC44(m.lcIDC44Old,m.lcIDC44New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC44 im Master C44 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC48(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC48(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC48 in der Tabelle:C48
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC48Old AS String , lcIDC48New AS String
*/ An einem Beispiel...
lcIDC48Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC48New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C48) das Feld (IDC48) geändert!
IF My.Bussines.Strain.Rename.renC48(m.lcIDC48Old,m.lcIDC48New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C48) das Feld (IDC48) geändert!
IF My.Bussines.Strain.Rename.renC48(m.lcIDC48Old,m.lcIDC48New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC48 im Master C48 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC49(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC49(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC49 in der Tabelle:C49
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC49Old AS String , lcIDC49New AS String
*/ An einem Beispiel...
lcIDC49Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC49New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C49) das Feld (IDC49) geändert!
IF My.Bussines.Strain.Rename.renC49(m.lcIDC49Old,m.lcIDC49New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C49) das Feld (IDC49) geändert!
IF My.Bussines.Strain.Rename.renC49(m.lcIDC49Old,m.lcIDC49New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC49 im Master C49 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC50(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC50(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC50 in der Tabelle:C50
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC50Old AS String , lcIDC50New AS String
*/ An einem Beispiel...
lcIDC50Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC50New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C50) das Feld (IDC50) geändert!
IF My.Bussines.Strain.Rename.renC50(m.lcIDC50Old,m.lcIDC50New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C50) das Feld (IDC50) geändert!
IF My.Bussines.Strain.Rename.renC50(m.lcIDC50Old,m.lcIDC50New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC50 im Master C50 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC51(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC51(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC51 in der Tabelle:C51
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC51Old AS String , lcIDC51New AS String
*/ An einem Beispiel...
lcIDC51Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC51New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C51) das Feld (IDC51) geändert!
IF My.Bussines.Strain.Rename.renC51(m.lcIDC51Old,m.lcIDC51New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C51) das Feld (IDC51) geändert!
IF My.Bussines.Strain.Rename.renC51(m.lcIDC51Old,m.lcIDC51New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC51 im Master C51 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC61(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC61(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC61 in der Tabelle:C61
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC61Old AS String , lcIDC61New AS String
*/ An einem Beispiel...
lcIDC61Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC61New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C61) das Feld (IDC61) geändert!
IF My.Bussines.Strain.Rename.renC61(m.lcIDC61Old,m.lcIDC61New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C61) das Feld (IDC61) geändert!
IF My.Bussines.Strain.Rename.renC61(m.lcIDC61Old,m.lcIDC61New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC61 im Master C61 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC62(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC62(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC62 in der Tabelle:C62
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC62Old AS String , lcIDC62New AS String
*/ An einem Beispiel...
lcIDC62Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC62New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C62) das Feld (IDC62) geändert!
IF My.Bussines.Strain.Rename.renC62(m.lcIDC62Old,m.lcIDC62New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C62) das Feld (IDC62) geändert!
IF My.Bussines.Strain.Rename.renC62(m.lcIDC62Old,m.lcIDC62New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC62 im Master C62 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC63(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC63(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC63 in der Tabelle:C63
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC63Old AS String , lcIDC63New AS String
*/ An einem Beispiel...
lcIDC63Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC63New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C63) das Feld (IDC63) geändert!
IF My.Bussines.Strain.Rename.renC63(m.lcIDC63Old,m.lcIDC63New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C63) das Feld (IDC63) geändert!
IF My.Bussines.Strain.Rename.renC63(m.lcIDC63Old,m.lcIDC63New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC63 im Master C63 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC64(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC64(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC64 in der Tabelle:C64
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC64Old AS String , lcIDC64New AS String
*/ An einem Beispiel...
lcIDC64Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC64New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C64) das Feld (IDC64) geändert!
IF My.Bussines.Strain.Rename.renC64(m.lcIDC64Old,m.lcIDC64New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C64) das Feld (IDC64) geändert!
IF My.Bussines.Strain.Rename.renC64(m.lcIDC64Old,m.lcIDC64New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC64 im Master C64 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC65(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC65(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC65 in der Tabelle:C65
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC65Old AS String , lcIDC65New AS String
*/ An einem Beispiel...
lcIDC65Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC65New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C65) das Feld (IDC65) geändert!
IF My.Bussines.Strain.Rename.renC65(m.lcIDC65Old,m.lcIDC65New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C65) das Feld (IDC65) geändert!
IF My.Bussines.Strain.Rename.renC65(m.lcIDC65Old,m.lcIDC65New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC65 im Master C65 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC66(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC66(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC66 in der Tabelle:C66
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC66Old AS String , lcIDC66New AS String
*/ An einem Beispiel...
lcIDC66Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC66New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C66) das Feld (IDC66) geändert!
IF My.Bussines.Strain.Rename.renC66(m.lcIDC66Old,m.lcIDC66New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C66) das Feld (IDC66) geändert!
IF My.Bussines.Strain.Rename.renC66(m.lcIDC66Old,m.lcIDC66New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC66 im Master C66 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC67(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC67(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC67 in der Tabelle:C67
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC67Old AS String , lcIDC67New AS String
*/ An einem Beispiel...
lcIDC67Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC67New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C67) das Feld (IDC67) geändert!
IF My.Bussines.Strain.Rename.renC67(m.lcIDC67Old,m.lcIDC67New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C67) das Feld (IDC67) geändert!
IF My.Bussines.Strain.Rename.renC67(m.lcIDC67Old,m.lcIDC67New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC67 im Master C67 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC68(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC68(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC68 in der Tabelle:C68
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC68Old AS String , lcIDC68New AS String
*/ An einem Beispiel...
lcIDC68Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC68New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C68) das Feld (IDC68) geändert!
IF My.Bussines.Strain.Rename.renC68(m.lcIDC68Old,m.lcIDC68New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C68) das Feld (IDC68) geändert!
IF My.Bussines.Strain.Rename.renC68(m.lcIDC68Old,m.lcIDC68New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC68 im Master C68 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC69(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC69(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC69 in der Tabelle:C69
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC69Old AS String , lcIDC69New AS String
*/ An einem Beispiel...
lcIDC69Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC69New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C69) das Feld (IDC69) geändert!
IF My.Bussines.Strain.Rename.renC69(m.lcIDC69Old,m.lcIDC69New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C69) das Feld (IDC69) geändert!
IF My.Bussines.Strain.Rename.renC69(m.lcIDC69Old,m.lcIDC69New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC69 im Master C69 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC72(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC72(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC72 in der Tabelle:C72
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC72Old AS String , lcIDC72New AS String
*/ An einem Beispiel...
lcIDC72Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC72New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C72) das Feld (IDC72) geändert!
IF My.Bussines.Strain.Rename.renC72(m.lcIDC72Old,m.lcIDC72New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C72) das Feld (IDC72) geändert!
IF My.Bussines.Strain.Rename.renC72(m.lcIDC72Old,m.lcIDC72New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC72 im Master C72 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC75(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC75(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC75 in der Tabelle:C75
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC75Old AS String , lcIDC75New AS String
*/ An einem Beispiel...
lcIDC75Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC75New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C75) das Feld (IDC75) geändert!
IF My.Bussines.Strain.Rename.renC75(m.lcIDC75Old,m.lcIDC75New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C75) das Feld (IDC75) geändert!
IF My.Bussines.Strain.Rename.renC75(m.lcIDC75Old,m.lcIDC75New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC75 im Master C75 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC76(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC76(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC76 in der Tabelle:C76
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC76Old AS String , lcIDC76New AS String
*/ An einem Beispiel...
lcIDC76Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC76New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C76) das Feld (IDC76) geändert!
IF My.Bussines.Strain.Rename.renC76(m.lcIDC76Old,m.lcIDC76New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C76) das Feld (IDC76) geändert!
IF My.Bussines.Strain.Rename.renC76(m.lcIDC76Old,m.lcIDC76New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC76 im Master C76 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC77(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC77(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC77 in der Tabelle:C77
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC77Old AS String , lcIDC77New AS String
*/ An einem Beispiel...
lcIDC77Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC77New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C77) das Feld (IDC77) geändert!
IF My.Bussines.Strain.Rename.renC77(m.lcIDC77Old,m.lcIDC77New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C77) das Feld (IDC77) geändert!
IF My.Bussines.Strain.Rename.renC77(m.lcIDC77Old,m.lcIDC77New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC77 im Master C77 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC78(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC78(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC78 in der Tabelle:C78
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC78Old AS String , lcIDC78New AS String
*/ An einem Beispiel...
lcIDC78Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC78New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C78) das Feld (IDC78) geändert!
IF My.Bussines.Strain.Rename.renC78(m.lcIDC78Old,m.lcIDC78New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C78) das Feld (IDC78) geändert!
IF My.Bussines.Strain.Rename.renC78(m.lcIDC78Old,m.lcIDC78New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC78 im Master C78 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC82(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC82(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC82 in der Tabelle:C82
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC82Old AS String , lcIDC82New AS String
*/ An einem Beispiel...
lcIDC82Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC82New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C82) das Feld (IDC82) geändert!
IF My.Bussines.Strain.Rename.renC82(m.lcIDC82Old,m.lcIDC82New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C82) das Feld (IDC82) geändert!
IF My.Bussines.Strain.Rename.renC82(m.lcIDC82Old,m.lcIDC82New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC82 im Master C82 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC84(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC84(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC84 in der Tabelle:C84
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC84Old AS String , lcIDC84New AS String
*/ An einem Beispiel...
lcIDC84Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC84New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C84) das Feld (IDC84) geändert!
IF My.Bussines.Strain.Rename.renC84(m.lcIDC84Old,m.lcIDC84New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C84) das Feld (IDC84) geändert!
IF My.Bussines.Strain.Rename.renC84(m.lcIDC84Old,m.lcIDC84New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC84 im Master C84 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC98(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC98(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC98 in der Tabelle:C98
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC98Old AS String , lcIDC98New AS String
*/ An einem Beispiel...
lcIDC98Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC98New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C98) das Feld (IDC98) geändert!
IF My.Bussines.Strain.Rename.renC98(m.lcIDC98Old,m.lcIDC98New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C98) das Feld (IDC98) geändert!
IF My.Bussines.Strain.Rename.renC98(m.lcIDC98Old,m.lcIDC98New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC98 im Master C98 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renC99(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renC99(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDC99 in der Tabelle:C99
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDC99Old AS String , lcIDC99New AS String
*/ An einem Beispiel...
lcIDC99Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDC99New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (C99) das Feld (IDC99) geändert!
IF My.Bussines.Strain.Rename.renC99(m.lcIDC99Old,m.lcIDC99New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (C99) das Feld (IDC99) geändert!
IF My.Bussines.Strain.Rename.renC99(m.lcIDC99Old,m.lcIDC99New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDC99 im Master C99 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renD40(tcOldIC AS STRING , tcNewIC AS STRING , tcExceptTables AS STRING , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renD40(tcOldIC,tcNewIC,tcExceptTables,tlNotTheMaster)
Boolean = My.Bussines.Strain.Rename.renE10(tcOldIC AS STRING , tcNewIC AS STRING , tcExceptTables AS STRING , tlNotTheMaster AS Boolean) Boolean = My.Bussines.Strain.Rename.renE10(tcOldIC,tcNewIC,tcExceptTables,tlNotTheMaster)
Variant = My.Bussines.Strain.Rename.renI52(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renI52(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
Variant = My.Bussines.Strain.Rename.renL21(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renL21(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDL21 in der Tabelle:L21
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDL21Old AS String , lcIDL21New AS String
*/ An einem Beispiel...
lcIDL21Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDL21New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (L21) das Feld (IDL21) geändert!
IF My.Bussines.Strain.Rename.renL21(m.lcIDL21Old,m.lcIDL21New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (L21) das Feld (IDL21) geändert!
IF My.Bussines.Strain.Rename.renL21(m.lcIDL21Old,m.lcIDL21New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDL21 im Master L21 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renO10(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renO10(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDO10 in der Tabelle:O10
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDO10Old AS String , lcIDO10New AS String
*/ An einem Beispiel...
lcIDO10Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDO10New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (O10) das Feld (IDO10) geändert!
IF My.Bussines.Strain.Rename.renO10(m.lcIDO10Old,m.lcIDO10New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (O10) das Feld (IDO10) geändert!
IF My.Bussines.Strain.Rename.renO10(m.lcIDO10Old,m.lcIDO10New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDO10 im Master O10 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renO20(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renO20(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDO20 in der Tabelle:O20
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDO20Old AS String , lcIDO20New AS String
*/ An einem Beispiel...
lcIDO20Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDO20New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (O20) das Feld (IDO20) geändert!
IF My.Bussines.Strain.Rename.renO20(m.lcIDO20Old,m.lcIDO20New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (O20) das Feld (IDO20) geändert!
IF My.Bussines.Strain.Rename.renO20(m.lcIDO20Old,m.lcIDO20New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDO20 im Master O20 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renO30(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renO30(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDO30 in der Tabelle:O30
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDO30Old AS String , lcIDO30New AS String
*/ An einem Beispiel...
lcIDO30Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDO30New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (O30) das Feld (IDO30) geändert!
IF My.Bussines.Strain.Rename.renO30(m.lcIDO30Old,m.lcIDO30New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (O30) das Feld (IDO30) geändert!
IF My.Bussines.Strain.Rename.renO30(m.lcIDO30Old,m.lcIDO30New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDO30 im Master O30 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renV02(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renV02(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDV02 in der Tabelle:V02
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDV02Old AS String , lcIDV02New AS String
*/ An einem Beispiel...
lcIDV02Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDV02New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (V02) das Feld (IDV02) geändert!
IF My.Bussines.Strain.Rename.renV02(m.lcIDV02Old,m.lcIDV02New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (V02) das Feld (IDV02) geändert!
IF My.Bussines.Strain.Rename.renV02(m.lcIDV02Old,m.lcIDV02New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDV02 im Master V02 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renV03(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renV03(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDV03 in der Tabelle:V03
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDV03Old AS String , lcIDV03New AS String
*/ An einem Beispiel...
lcIDV03Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDV03New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (V03) das Feld (IDV03) geändert!
IF My.Bussines.Strain.Rename.renV03(m.lcIDV03Old,m.lcIDV03New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (V03) das Feld (IDV03) geändert!
IF My.Bussines.Strain.Rename.renV03(m.lcIDV03Old,m.lcIDV03New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDV03 im Master V03 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renV04(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renV04(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDV04 in der Tabelle:V04
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDV04Old AS String , lcIDV04New AS String
*/ An einem Beispiel...
lcIDV04Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDV04New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (V04) das Feld (IDV04) geändert!
IF My.Bussines.Strain.Rename.renV04(m.lcIDV04Old,m.lcIDV04New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (V04) das Feld (IDV04) geändert!
IF My.Bussines.Strain.Rename.renV04(m.lcIDV04Old,m.lcIDV04New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDV04 im Master V04 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
Variant = My.Bussines.Strain.Rename.renV05(tcOldID AS String , tcNewID AS String , tcExceptTables AS String , tlNotTheMaster AS Boolean) Variant = My.Bussines.Strain.Rename.renV05(tcOldID,tcNewID,tcExceptTables,tlNotTheMaster)
*/ Diese Methode dient zum Umbenennen des ID-Feldes:IDV05 in der Tabelle:V05
*/ Es wird vorausgesetzt, dass die My-Struktur vorhanden ist!
LOCAL lcIDV05Old AS String , lcIDV05New AS String
*/ An einem Beispiel...
lcIDV05Old = "AlterWert" && Der Wert muss natürlich der Relatität entsprechen!
lcIDV05New = "NeuerWert"
*/ Umbenennen OHNE Ausschluss von Tabellen incl. des Masters
*/ Bei diesem Aufruf wird 'auch' in der Mastertabelle (V05) das Feld (IDV05) geändert!
IF My.Bussines.Strain.Rename.renV05(m.lcIDV05Old,m.lcIDV05New,"",.F.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Umbenennen OHNE Ausschluss von Tabellen excl. des Masters
*/ Bei diesem Aufruf wird 'nicht' in der Mastertabelle (V05) das Feld (IDV05) geändert!
IF My.Bussines.Strain.Rename.renV05(m.lcIDV05Old,m.lcIDV05New,"",.T.)
*/ Dann wurde die Funktion ohne Fehler durchgeführt...
=MESSAGEBOX("Umbenennen erfolgreich durchgeführt!",64,"Info...")
ELSE
=MESSAGEBOX(My.Bussines.Strain.Rename.cLastError,16,"Fehler...")
ENDIF
*/ Noch eine Info zu den Methoden unter ...Rename.ren*
*/ Vor dem Umbenennen werden alle 'benötigten' Tabellen SHARED geöffnet jedoch wird versucht die komplette Tabelle zu sperren!
*/ Gelingt dies nicht, wird eine Fehlermeldung ausgegeben, siehe: My.Bussines.Strain.Rename.cLastError
*/ Sie sollten also größere Änderungen an der Datenbank mittels eines Scriptes durchführen!
*/ Dazu könnte man z.B. in einer EXCEL Tabelle eine Liste mit Werten hinterlegen, die dann zu einem Zeitpunkt,
*/ in dem keine Benutzer in PMS sind, via PMS32D.EXE verarbeitet wird.
*/ Damit vermeiden Sie unnötige Datensperren während dem Arbeiten mit PMS...
*/ Wird die Spalte IDV05 im Master V05 mit umbenannt, so wird getestet, ob nach der Umbenennung keine
*/ doppelten Datensätze entstehen! Würden bei einer Umbennung doppelte Sätze entstehen, so wird ein Fehler zurückgegeben!
String = My.Bussines.Strain.Rename.ScriptFile
*/ ScriptFile wird eigentlich intern benötigt! */ Hier nur ein Beispiel... */ My sollte bekannt sein... My.Bussines.Strain.Rename.ScriptFile = "MeineScriptDatei.Define" && Die Datei muss in sys\mysys\ existieren! */ Zuweisen der Mandanten-ID My.Bussines.Strain.Rename.cIdx02 = My.cIdx02
String = My.Bussines.Strain.Rename.cIdx02
*/ Abfrage der Mandanten-ID
WAIT WINDOW My.Bussines.Strain.Rename.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...
String = My.Bussines.Strain.Rename.cLastError
*/ Vorausgesetzt wird, dass My bekannt ist... LOCAL lcError AS String lcError = My.Bussines.Strain.Rename.cLastError
String = My.Bussines.Strain.Rename.cMethod
*/ Abruf... WAIT WINDOW My.Bussines.Strain.Rename.cMethod
String = My.Bussines.Strain.Rename.cResetInfos
*/ Verschiedene RESET Befehle... My.Bussines.Strain.Rename.cResetInfos = "REMOVE-MENUES" My.Bussines.Strain.Rename.cResetInfos = "REMOVE-CS-FILES" My.Bussines.Strain.Rename.cResetInfos = "REMOVE-CS-SCRIPTS" My.Bussines.Strain.Rename.cResetInfos = "CHANGE-IDX09" My.Bussines.Strain.Rename.cResetInfos = "USER_LOGIN" */ Je nach Klasse wird ein entsprechender RESET ausgeführt!
Boolean = My.Bussines.Strain.Rename.lDoUpdate
Number = My.Bussines.Strain.Rename.nError
WAIT WINDOW My.Bussines.Strain.Rename.nError
Number = My.Bussines.Strain.Rename.nLine
WAIT WINDOW My.Bussines.Strain.Rename.nLine
Number = My.Bussines.Strain.Rename.nRecords
WAIT WINDOW My.Bussines.Strain.Rename.nRecords
Number = My.Bussines.Strain.Rename.nSeconds
WAIT WINDOW My.Bussines.Strain.Rename.nSeconds
Object = My.Bussines.Strain.Rename.oSelected
LOCAL loSelected AS My_Fu_Selected loSelected = My.Bussines.Strain.Rename.oSelected */ Danach können Tabellen und Cursor geöffnet werden... */ Mit dem Nachfolgenden Befehl wird der obige Zustand der Datenumgebung wieder hergestellt RELEASE loSelected
Object = My.Bussines.Strain.Rename.oThermos
LOCAL loThermos AS My_Sy_Thermos */ Instanziieren loThermos = My.Bussines.Strain.Rename.oThermos loThermos.AutoCenter = .T. loThermos.cFaktor(1,1/10,.F.,"Info-1...") loThermos.cFaktor(1,2/10,.F.,"Info-2...") */ ... */ Schliesst den Thermos RELEASE loThermos
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