Skip to main content
Skip table of contents

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,


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.