Neue Individualtabelle anlegen mit nur Standardfeldern
Dieses Programm dient dazu bei der Anlage einer neuen Individualtabelle nicht die Standradfelder manuell anlegen zu müssen, sondern eine Tabell mit Standardfeldern zu haben und nur die Individualfelder ergänzen zu müssen
JS
//##############################################################################
//##############################################################################
// Beschreibung: Installations-Script für eine neue Individualtabelle mit Stndard-feldern
//##############################################################################
//##############################################################################
|
// Workareas
nWorkarea_KDNPRG,
// Tabellendefinitionen
oTableDef_KDNPRG,
aDialogResult,
cUsername,
cPassword,
i,
oDM
|
//##############################################################################
//##############################################################################
// Konstanten
//##############################################################################
//##############################################################################
nWorkarea_KDNPRG := 709,
//##############################################################################
//##############################################################################
// Tabellendefinitionen
//##############################################################################
//##############################################################################
oTableDef_KDNPRG := PCKGU_TableDefinition_Create('KDNPRG', nWorkarea_KDNPRG, 'Programme', '', True, False),
//##############################################################################
//##############################################################################
// Felddefinitionen
//##############################################################################
//##############################################################################
//##############################################################################
//##############################################################################
// Installer
//##############################################################################
//##############################################################################
startseq
aDialogResult := DU_InputDialog(
'ADS-User Anmeldung',
'Datenbank Anmeldeinformation für einen administrativen User angeben',
{
DU_InputDialog_CreateInputControlDefinition('USERNAME', 'Username', gl_DU_InputControlType_String, '', 0, 'ADSSYS', True),
DU_InputDialog_CreateInputControlDefinition('PASSWORD', 'Passwort', gl_DU_InputControlType_Password, '', 0, '', True)
},
{mrOK, mrCancel},
{}
),
if DU_InputDialogResult_GetModalResult(aDialogResult) = mrOK then
cUsername := DU_InputDialogResult_GetInputValue(aDialogResult, 'USERNAME'),
cPassword := DU_InputDialogResult_GetInputValue(aDialogResult, 'PASSWORD'),
oDM := CreateObject('TBeDbGet'),
startseq
oDM.CbTransaction_Begin(),
startseq
// HINWEIS: Um eine bestehende Installation der Tabellen zu löschen
// müssen die folgenden beiden Zeilen einkommentiert werden:
//PCKGU_RemoveTableAndMetaInfo(oDM, nWorkarea_TSKPLSCHED, 'TSKPLSCHED', cUsername, cPassword),
PCKGU_AddTableAndMetaInfo(oDM, oTableDef_KDNPRG, cUsername, cPassword),
oDM.CbTransaction_Commit(),
always
oDM.CbTransaction_TryRollback(),
stopseq,
always
DestroyObject(oDM),
stopseq,
endif,
onerror
GU_ShowStdErrorMessage('Fehler im Programm ' + ProgName(), GetErrorObj()),
stopseq,