PMS32 Online- Hilfereferenz
Rename - Umbenennen verschiedener ID's/IC's in verschiedenen Tabellen.
Ausführen eines VFP-Befehls mit EVALUATE().
Achtung! Eventuell müssen Variablen als PRIVATE deklariert werden!ENDTEXT
*
TEXT TO lcMessage NOSHOW TEXTMERGE
Ausführen eines VFP-Befehls mit EVALUATE().
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
Ausführen eines VFP-Scripts incl. PARAMETER (Collection)
Als Parameter wird eine Collection mit Informationen übergeben!
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
Wandelt übergebene Parameter in eine Collection um.
Umkehrfunktion zu SetParameters.
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)
Wandelt übergebene Parameter in eine Collection um.
Jedoch wird als 'erster' Parameter die Anzahl der Parameter mitgegeben.
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 (?)
Wandelt eine übergebene Collection in Parameter um.
Umkehrfunktion zu GetParameters.
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
Anzahl der Datensätze eines SQL Statements ermitteln.
Die Rückgabe ist Number oder .NULL.
Die Datenbankangaben:
CSYSDIR! => My.Clients.Path.cSysDir
CDBFDIR! => My.Clients.Path.cDbfDir
CFRXDIR! => My.Clients.Path.cFrxDir
CNETDIR! => My.Clients.Path.cNetDir
CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
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!
Werden Datensätze im SQL-Statement ermittelt?
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
CSYSDIR! => My.Clients.Path.cSysDir
CDBFDIR! => My.Clients.Path.cDbfDir
CFRXDIR! => My.Clients.Path.cFrxDir
CNETDIR! => My.Clients.Path.cNetDir
CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server 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!
Ausführen eines SQL-Statements und Rückgabe des angegebenen Cursors.
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
CSYSDIR! => My.Clients.Path.cSysDir
CDBFDIR! => My.Clients.Path.cDbfDir
CFRXDIR! => My.Clients.Path.cFrxDir
CNETDIR! => My.Clients.Path.cNetDir
CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server 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>
Ausführen eines SQL-Statements in ein Array und Rückgabe ob Daten ermittelt wurden.
Die Rückgabe ist Boolean oder .NULL.
Die Datenbankangaben:
CSYSDIR! => My.Clients.Path.cSysDir
CDBFDIR! => My.Clients.Path.cDbfDir
CFRXDIR! => My.Clients.Path.cFrxDir
CNETDIR! => My.Clients.Path.cNetDir
CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
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
Ausführen eines SQL-Statements in eine Collection und Rückgabe der Collection.
Die Rückgabe ist Collection oder .NULL.
Die Datenbankangaben:
CSYSDIR! => My.Clients.Path.cSysDir
CDBFDIR! => My.Clients.Path.cDbfDir
CFRXDIR! => My.Clients.Path.cFrxDir
CNETDIR! => My.Clients.Path.cNetDir
CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
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"
Ausführen eines SQL-Statements und Rückgabe der Value des ERSTEN Feldes.
Die Rückgabe ist Variant oder .NULL.
Die Datenbankangaben:
CSYSDIR! => My.Clients.Path.cSysDir
CDBFDIR! => My.Clients.Path.cDbfDir
CFRXDIR! => My.Clients.Path.cFrxDir
CNETDIR! => My.Clients.Path.cNetDir
CTMPDIR! => My.Clients.Path.cTmpDir
werden unter VFP-Tabellen in den entsprechenden Pfad umgewandelt!
Bei der Verwendung eines SQL-Servers werden diese Informationen gegen den Datenbanknamen im SQL-Server ausgetauscht.
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
UPDATE eines lokalen Cursors gegenüber der angegebenen Tabelle durchführen.
Die Rückgabe ist Boolean oder .NULL.
Der Cursor MUSS die Spalten __Changed und __New enthalten!
Außerdem MUSS die Zieltabelle die Spalte LastUpd enthalten!
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
UPDATE mehrerer lokaler Cursor gegenüber den angegebenen Tabellen durchführen.
Die Rückgabe ist Boolean oder .NULL.
Die Cursor MUSS die Spalten __Changed und __New enthalten!
Außerdem MUSS die Zieltabelle die Spalte LastUpd enthalten!
;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]
Umbenennen des IC-Feldes:ARTNR in der Tabelle:B01
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!
Umbenennen des ID-Feldes:IDC02 in der Tabelle:C02
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!
Umbenennen des ID-Feldes:IDC03 in der Tabelle:C03
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!
Umbenennen des ID-Feldes:IDC07 in der Tabelle:C07
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!
Umbenennen des ID-Feldes:IDC08 in der Tabelle:C08
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!
Umbenennen des ID-Feldes:IDC09 in der Tabelle:C09
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!
Umbenennen des ID-Feldes:IDC10 in der Tabelle:C10
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!
Umbenennen des ID-Feldes:IDC14 in der Tabelle:C14
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!
Umbenennen des ID-Feldes:IDC16 in der Tabelle:C16
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!
Umbenennen des ID-Feldes:IDC18 in der Tabelle:C18
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!
Umbenennen des ID-Feldes:IDC19 in der Tabelle:C19
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!
Umbenennen des ID-Feldes:IDC20 in der Tabelle:C20
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!
Umbenennen des ID-Feldes:IDC22 in der Tabelle:C22
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!
Umbenennen des ID-Feldes:IDC23 in der Tabelle:C23
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!
Umbenennen des ID-Feldes:IDC24 in der Tabelle:C24
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!
Umbenennen des ID-Feldes:IDC25 in der Tabelle:C25
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!
Umbenennen des ID-Feldes:IDC26 in der Tabelle:C26
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!
Umbenennen des ID-Feldes:IDC27 in der Tabelle:C27
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!
Umbenennen des ID-Feldes:IDC28 in der Tabelle:C28
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!
Umbenennen des ID-Feldes:IDC30 in der Tabelle:C30
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!
Umbenennen des ID-Feldes:IDC31 in der Tabelle:C31
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!
Umbenennen des ID-Feldes:IDC32 in der Tabelle:C32
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!
Umbenennen des ID-Feldes:IDC33 in der Tabelle:C33
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!
Umbenennen des ID-Feldes:IDC34 in der Tabelle:C34
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!
Umbenennen des ID-Feldes:IDC39 in der Tabelle:C39
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!
Umbenennen des ID-Feldes:IDC40 in der Tabelle:C40
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!
Umbenennen des ID-Feldes:IDC41 in der Tabelle:C41
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!
Umbenennen des ID-Feldes:IDC42 in der Tabelle:C42
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!
Umbenennen des ID-Feldes:IDC43 in der Tabelle:C43
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!
Umbenennen des ID-Feldes:IDC44 in der Tabelle:C44
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!
Umbenennen des ID-Feldes:IDC48 in der Tabelle:C48
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!
Umbenennen des ID-Feldes:IDC49 in der Tabelle:C49
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!
Umbenennen des ID-Feldes:IDC50 in der Tabelle:C50
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!
Umbenennen des ID-Feldes:IDC51 in der Tabelle:C51
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!
Umbenennen des ID-Feldes:IDC61 in der Tabelle:C61
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!
Umbenennen des ID-Feldes:IDC62 in der Tabelle:C62
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!
Umbenennen des ID-Feldes:IDC63 in der Tabelle:C63
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!
Umbenennen des ID-Feldes:IDC64 in der Tabelle:C64
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!
Umbenennen des ID-Feldes:IDC65 in der Tabelle:C65
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!
Umbenennen des ID-Feldes:IDC66 in der Tabelle:C66
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!
Umbenennen des ID-Feldes:IDC67 in der Tabelle:C67
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!
Umbenennen des ID-Feldes:IDC68 in der Tabelle:C68
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!
Umbenennen des ID-Feldes:IDC69 in der Tabelle:C69
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!
Umbenennen des ID-Feldes:IDC72 in der Tabelle:C72
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!
Umbenennen des ID-Feldes:IDC75 in der Tabelle:C75
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!
Umbenennen des ID-Feldes:IDC76 in der Tabelle:C76
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!
Umbenennen des ID-Feldes:IDC77 in der Tabelle:C77
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!
Umbenennen des ID-Feldes:IDC78 in der Tabelle:C78
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!
Umbenennen des ID-Feldes:IDC82 in der Tabelle:C82
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!
Umbenennen des ID-Feldes:IDC84 in der Tabelle:C84
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!
Umbenennen des ID-Feldes:IDC98 in der Tabelle:C98
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!
Umbenennen des ID-Feldes:IDC99 in der Tabelle:C99
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)
Umbenennen des ID-Feldes:IDL21 in der Tabelle:L21
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!
Umbenennen des ID-Feldes:IDO10 in der Tabelle:O10
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!
Umbenennen des ID-Feldes:IDO20 in der Tabelle:O20
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!
Umbenennen des ID-Feldes:IDO30 in der Tabelle:O30
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!
Umbenennen des ID-Feldes:IDV02 in der Tabelle:V02
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!
Umbenennen des ID-Feldes:IDV03 in der Tabelle:V03
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!
Umbenennen des ID-Feldes:IDV04 in der Tabelle:V04
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!
Umbenennen des ID-Feldes:IDV05 in der Tabelle:V05
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!
Name der Scriptdatei, die bei der Zuweisung der Mandanten-ID nachgeladen wird.
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
Mandanten-ID. Diese ist in der Datei pms32.pth gespeichert und dient dort zur Zuordnung des Mandante und dessen Pfade.
Auszug aus der Pfaddatei pms32.pth:
*/ Verzeichnis der Microcube - Dateien. Wenn leer dann gleich: cDbfdir
cCubdir = ""
*/ Ein 'anderes' Dokumentenverzeichnis kann angegeben werden. Wenn nicht angegeben dann gleich: cDbfdir+'docs\'
*/ cDocDir = ""
*/ Verzeichnis der Mandantentabellen. Hier ein Beispiel mit UNC Pfaden.
*/ Wird die Freigabe auf dem Server 'versteckt' \pms$\ angegeben, so kann ein Cryptovirius das Verzeichnis nicht finden!
cDbfdir = "\\server\pms$\pms32\daten\demo.32\"
*/ Verzeichnis der Reporttabellen
*/ Gibt man Bilddateien in einem Report mit My.Clients.Path.cFrxDir+'BILDNAME.JPG' an, so kann PMS32 einfach auf einen anderen Rechner kopiert werden!
cFrxdir = "\\server\pms$\pms32\reports\demo.32\"
*/ Beschreibung des Mandanten
cIcx02 = "TESTMANDANT DEMO"
*/ ID der Firmenparameter zum Mandant.
cIdx09 = "DEMO"
*/ Kann unter der Mandanteninformation leer sein, wenn für mehrere Mandanten das 'gleiche' Systemverzeichnis gültig ist.
cSysdir = ""
*/ Willkommens-Information als Hintergrundbild in PMS32
cWelcome= "pms32.htm"
*/ Nummer des Mandanten, beim Einsatz eines BarcodeScanners sollte diese Nummer EINDEUTIG sein!
nNumber = 1
<>
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...
Mit dieser Property kann der letzte Fehler im Klartext abgerufen werden.
String = My.Bussines.Strain.Rename.cLastError
*/ Vorausgesetzt wird, dass My bekannt ist... LOCAL lcError AS String lcError = My.Bussines.Strain.Rename.cLastError
Methode in der der letzte Fehler auftrat.
Aufbau: [Fehlernummer] [Methode] [Zeilennummer] [Message]
String = My.Bussines.Strain.Rename.cMethod
*/ Abruf... WAIT WINDOW My.Bussines.Strain.Rename.cMethod
Reset C-Structure
Diese Property ist normalerweise WriteOnly! Sie dient zum Zurücksetzen verschiedener Informationen.
#DEFINE CRI_REMOVE_MENUES "REMOVE-MENUES"
#DEFINE CRI_REMOVE_CSFILES "REMOVE-CS-FILES"
#DEFINE CRI_REMOVE_SCRIPTS "REMOVE-CS-SCRIPTS"
#DEFINE CRI_CHANGE_IDX09 "CHANGE-IDX09"
#DEFINE CRI_LOGIN "USER_LOGIN"
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
Fehlernummer des letzten Fehlers.
Ist der Wert kleiner null, so handelt es sich um einen logischen Fehler.
Number = My.Bussines.Strain.Rename.nError
WAIT WINDOW My.Bussines.Strain.Rename.nError
Zeilennummer, in der der letzte Fehler auftrat
Number = My.Bussines.Strain.Rename.nLine
WAIT WINDOW My.Bussines.Strain.Rename.nLine
Verarbeitete Datensätze
Number = My.Bussines.Strain.Rename.nRecords
WAIT WINDOW My.Bussines.Strain.Rename.nRecords
Ausführungszeit in Sekunden
Number = My.Bussines.Strain.Rename.nSeconds
WAIT WINDOW My.Bussines.Strain.Rename.nSeconds
Merkt sich die Datenumgebung für eine Verarbeitung.
Beim Release der Variable wird die vorherige Datenumgebung wieder hergestellt.
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
Instanziiert einen temporären Thermos
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