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,