V 8
2
LANG:0 10 IS-Tabelle
LANG:1 8 IS-Table
PANEL,34 47 612 400 N "_3DFace" 0
"main()
{
  int        i,j,akt=0,TableMaxLengthDpeName=255,TableAlias=0,
             TableOldDays,TableFIFOAtHour;
  bool       TableSystemNameDpe=false;
  string     TableName=\"\",
             TableType=\"StandardHistory\",s;
  dyn_string _IS_Table=dpNames(\"*\",\"_IS_Table\"),
             _IS_Db=dpNames(\"*\",\"_IS_Database\"), ds=makeDynString();
  
  string st;

  if (!_WIN32)
  {
    st=getCurrentTime();
    DebugN(\"IS::: \"+st+\" Error: Information Server runs only under Windows NT !\");
    RootPanelOn(\"vision/MessageWarning\",
      getCatStr(\"para\",\"warning\"),
      makeDynString(\"IS::: \"+st+\"\\nError: Information Server runs only under Windows NT !\"));
    return;
  }

  for (i=1;i<=dynlen(_IS_Db);i++) _IS_Db[i]=dpSubStr(_IS_Db[i],DPSUB_DP);
  for (i=1;i<=dynlen(_IS_Table);i++) _IS_Table[i]=dpSubStr(_IS_Table[i],DPSUB_DP);

  if (dynlen(_IS_Table)<1) _IS_Table[1]=TableName;
  addGlobal(\"ISTableGlobal\",STRING_VAR);
  addGlobal(\"ISDbGlobal\",STRING_VAR);
  addGlobal(\"ISActiveRegisterGlobal\",INT_VAR);
  
  i=dynContains(_IS_Db,ISDbGlobal);
  if (i<1)
  {
    if(dynlen(_IS_Db)>0)
    {
      i=1;
      ISDbGlobal=_IS_Db[1];
    }
    else
      ISDbGlobal=\"\";
  }
  else
    ISDbGlobal=_IS_Db[i];

  if (ISDbGlobal==\"\")
  {
    _IS_Table=makeDynString();
  }

  else
  {
    // selecting tables of db
    j=0;
    for (i=1;i<=dynlen(_IS_Table);i++)
    {
      s=_IS_Table[i];
      strreplace(s,ISDbGlobal+\"_\",\"\");
      if (s!=_IS_Table[i])
      {
        j++;
        ds[j]=s;
      }
    }
    _IS_Table=ds;
    
    akt=dynContains(_IS_Table,ISTableGlobal);
    if (akt<1)
    {
      if(dynlen(_IS_Table)>0)
      {
        akt=1;
        ISTableGlobal=_IS_Table[1];
      }
      else
        ISTableGlobal=\"\";
    }
    else
      ISTableGlobal=_IS_Table[akt];

    if (akt>0)
    {
      dpGet(ISDbGlobal+\"_\"+ISTableGlobal+\".TableName:_original.._value\",TableName,
            ISDbGlobal+\"_\"+ISTableGlobal+\".TableType:_original.._value\",TableType,
            ISDbGlobal+\"_\"+ISTableGlobal+\".TableMaxLengthDpeName:_original.._value\",TableMaxLengthDpeName,
            ISDbGlobal+\"_\"+ISTableGlobal+\".TableSystemNameDpe:_original.._value\",TableSystemNameDpe,
            ISDbGlobal+\"_\"+ISTableGlobal+\".TableOldDays:_original.._value\",TableOldDays,
            ISDbGlobal+\"_\"+ISTableGlobal+\".TableFIFOAtHour:_original.._value\",TableFIFOAtHour,
            ISDbGlobal+\"_\"+ISTableGlobal+\".TableAlias:_original.._value\",TableAlias);
    }
  }
  
  setMultiValue(\"DbName\",\"text\",ISDbGlobal,
                \"DbName\",\"items\",_IS_Db,
                \"TableName\",\"text\",TableName,
                \"Tables\",\"text\",TableName,
                \"Tables\",\"items\",_IS_Table,
                \"TableType\",\"text\",TableType,
                \"TableMaxLengthDpeName\",\"text\",TableMaxLengthDpeName,
                \"TableOldDays\",\"text\",TableOldDays,
                \"TableFIFOAtHour\",\"text\",TableFIFOAtHour,
                \"TableSystemNameDpe\",\"state\",0,TableSystemNameDpe,
                \"TableAlias\",\"number\",TableAlias);
  if (dynlen(_IS_Table)>0)
    setValue(\"Tables\",\"selectedPos\",1);
}" 0
 E E "main() 
{ 
  int        answer, ok; 
  string     FileName; 
  dyn_string txt; 
  int          err,i,pos,DbAlivePeriod,TableOldDays;
  bool         exists,insert=false;
  string       TableName,AgTableName,AgDbName,Db,
               DbName,DbPath,DbType,DbUser,DbPassword,dp;
  dyn_float    df;
  dyn_string   ds,
               _IS_Db=dpNames(\"*\",\"_IS_Database\");
 
  txt = (strpos(getLocale(getActiveLang()),\"de_AT\")==0)?makeDynString(\"PUSH_BUTTON,Tabelleneinträge älter als ... löschen,1,1\"+ok)
                                                       :makeDynString(\"PUSH_BUTTON,Delete records older then...,1,1\"+ok);
   
  popupMenu(txt,answer); 
 
  if      (answer!=1) return; 

  ISActiveRegisterGlobal=1;
  getMultiValue(\"TableName\",\"text\",TableName,
                \"TableOldDays\",\"text\",TableOldDays,
                \"DbName\",\"text\",Db);

  if (Db==\"\")
  {
    // error: table name == \"\"
    ISShowWarning(\"emptydbname\",\"\");
    return;
  }

  TableName=strltrim(strrtrim(TableName));
  if (TableName==\"\")
  {
    // error: table name == \"\"
    ISShowWarning(\"emptytablename\",\"\");
    return;
  }

  dp=Db+\"_\"+TableName;
  // Searching table datapoint 
  if (!dpExists(dp))
  {
    // error: table does not exist
    ISShowWarning(\"tablenotexists\",TableName);
    return;
  }

  ChildPanelOnCentralModalReturn(\"vision/is/IS_MessageInfo.pnl\",
    getCatStr(\"IS\",\"deletingrecords\")+TableName,
    makeDynString(getCatStr(\"IS\",\"deleterecords\"),
                  getCatStr(\"IS\",\"yes\"),
                  getCatStr(\"IS\",\"no\")),
    df,ds);

  if (df[1]!=1) return;

  dpGet(Db+\".DbName:_original.._value\",DbName,
        Db+\".DbPath:_original.._value\",DbPath,
        Db+\".DbType:_original.._value\",DbType,
        Db+\".DbUser:_original.._value\",DbUser,
        Db+\".DbPassword:_original.._value\",DbPassword,
        Db+\".DbAlivePeriod:_original.._value\",DbAlivePeriod);

  if ( (DbType==\"MS Access\" || DbType==\"MS Excel\") && access(DbPath+DbName,F_OK)!=0)
  {
    // error: db-file does not exist
    ISShowWarning(\"dbfilenotexist\",DbPath+DbName);
    return;
  }
    
  ChildPanelOnCentralModal(\"vision/is/IS_Child.pnl\",\"IS\",
    makeDynString(getCatStr(\"IS\",\"deletingrecords\")+TableName));
  delay(0,100);

  IS_DeleteOldRecords(DbName,
                      DbPath,
                      DbType,
                      DbUser,
                      DbPassword,
                      TableName,
                      TableOldDays,
                      err);
  PanelOffPanel(\"IS\");
  if (err)
  {
    // error: deleting table
    ISShowWarning(\"errordelrecords\",TableName);
    return;
  }
  ISShowWarning(\"recordsdeleted\",TableName);
}" 0
 E 1 -1 -1 0  10 10
""
NC
DISPLAY_LAYER, 1 1 1 1 1 1 1 1
LAYER, 0 
2
LANG:0 0 
LANG:1 0 
6 0
""
""
10 20 E E E 1 E 1 E N "_Window" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E 1 0 1.28571428571428 1 15.2857142857142 0 E 10 20 600 90
6 1
""
""
10 20 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E 1 0 1.28571428571428 0 14.2857142857142 0 E 10 20 600 90
2 2
""
""
20 -99.999999999999 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  20 148 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 14  Tabellenname:
LANG:1 12  Table name:
2 4
""
""
-592.630149388863 60.000000000001 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  340 147 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 13  Tabellentyp:
LANG:1 12  Table type:
2 18
""
""
10 -170 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  1 E 0 0 0 "s" 0 0 0 0 0 0  10 10 1
2
LANG:0 68 -microsoft windows-arial-bold-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 68 -microsoft windows-arial-bold-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 23  Tabelleneinstellungen 
LANG:1 16  Table settings 
2 26
""
""
30 -100 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  430 186.999999999999 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 12  Max. Länge:
LANG:1 13  Max. length:
21 27
"TableMaxLengthDpeName"
""
520 180 E E E 0 E 1 E N "_WindowText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 520 180 580 209
0

E
E
E

N 10 255 1 10 1 1
20 28
"TableSystemNameDpe"
""
380 179.999999999999 E E E 0 E 1 E N "_3DText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 380 179.999999999999 414 209.999999999999
1
T 
2
LANG:0 1  
LANG:1 1  

0 E E
1
E E
2 29
""
""
20 -110 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  260 185.999999999999 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 18  Inkl. Systemname:
LANG:1 19  Incl. system name:
13 36
""
""
490 360 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 490 360 600 387

T 
2
LANG:0 5 Hilfe
LANG:1 4 Help
"main()
{
  std_help(\"is_table_para\");
}" 0
 E E E
6 42
""
""
10 20 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E 1 0 2.71428571428572 0 75.7142857142849 0 E 10 20 600 90
6 44
""
""
10 20 E E E 1 E 1 E N "_Window" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E 1 0 2.71428571428572 1 76.7142857142849 0 E 10 20 600 90
2 45
""
""
20 -110 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  20 58 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 11  Datenbank:
LANG:1 10  Database:
22 46
"DbName"
""
140 50 E E E 1 E 1 E N [0,0,0] E N "_Window" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 140 50 411 79
0

E
"main()
{
  int        i,j;
  string     s;
  dyn_string dbs,_IS_Table=dpNames(\"*\",\"_IS_Table\"),ds;

  for (i=1;i<=dynlen(_IS_Table);i++) _IS_Table[i]=dpSubStr(_IS_Table[i],DPSUB_DP);

  getValue(\"\",\"selectedPos\",i,
              \"items\",dbs);

  if (i<1) return;

  ISDbGlobal=dbs[i];

  for (i=1;i<=dynlen(_IS_Table);i++)
  {
    s=_IS_Table[i];
    strreplace(s,ISDbGlobal+\"_\",\"\");
    if (s!=_IS_Table[i])
    {
      j++;
      ds[j]=s;
    }
  }
  _IS_Table=ds;
  setMultiValue(\"DbName\",\"text\",ISDbGlobal,
                \"TableName\",\"text\",\"\",
                \"Tables\",\"text\",\"\",
                \"Tables\",\"items\",_IS_Table,
                \"TableType\",\"text\",\"StandardHistory\",
                \"TableMaxLengthDpeName\",\"text\",255,
                \"TableSystemNameDpe\",\"state\",0,true,
                \"TableAlias\",\"number\",0);
//  if (dynlen(_IS_Table)>0)
//    setValue(\"Tables\",\"selectedPos\",1);
}
" 0

E
 0 0
2 48
""
""
20 -73 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  20 95 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 10  Tabellen:
LANG:1 8  Tables:
14 49
"TableName"
""
140 139.999999999999 E E E 1 E 1 E N "_WindowText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 140 139.999999999999 295 168.999999999999
2 "s" 0 0 0 0 0 -1  E E E
19 51
"TableAlias"
""
140 169.999999999999 E E E 0 E 1 E N "_3DText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 140 169.999999999999 233 225.999999999999
2
T 
2
LANG:0 8 DPE-Name
LANG:1 8 DPE name

1 E E
T 
2
LANG:0 5 Alias
LANG:1 5 Alias

0 E E
1
E E2 52
""
""
20 -32 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  20 179.999999999999 2
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 13  Speichern in
LANG:1 10  Saving in
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 13  der Tabelle:
LANG:1 11  the table:
13 53
""
""
430 90 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 430 90 500 117

T 
2
LANG:0 3 Neu
LANG:1 3 New
"main()
{
  string     DbName;
  dyn_float  df;
  dyn_string ds,tables;

  ISActiveRegisterGlobal=1;
  getValue(\"DbName\",\"text\",DbName);
  if (DbName==\"\")
  {
    ISShowWarning(\"nodatabaseselected\",\"\");
    return;
  }
  ChildPanelOnCentralModalReturn(\"vision/is/IS_NewTable.pnl\",
    getCatStr(\"IS\",\"newtable\"),makeDynString(DbName),df,ds);

  if (df[1]==-1)
    return;

  getValue(\"Tables\",\"items\",tables);
  dynAppend(tables,ds[1]);
  ISTableGlobal=ds[1];
  setMultiValue(\"TableName\",\"text\",ds[1],
                \"Tables\",\"items\",tables,
                \"TableType\",\"text\",ds[2],
                \"TableMaxLengthDpeName\",\"text\",ds[3],
                \"TableSystemNameDpe\",\"state\",0,ds[4],
                \"TableOldDays\",\"text\",ds[6],
                \"TableFIFOAtHour\",\"text\",ds[7],
                \"TableAlias\",\"number\",ds[5]);
  setValue(\"Tables\",\"selectedPos\",dynlen(tables));
  RootPanelOn(\"vision/is/IS_Para.pnl\",myModuleName(),
              makeDynString());
}" 0
 E E E
13 54
""
""
520 90 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 520 90 590 117

T 
2
LANG:0 7 Löschen
LANG:1 6 Delete
"main()
{
  int          err,i,pos,DbAlivePeriod,threadnumber;
  bool         exists,insert=false;
  string       TableName,AgTableName,AgDbName,Db,sql,
               DbName,DbPath,DbType,DbUser,DbPassword,dp;
  dyn_float    df;
  dyn_string   tables,ds,
               _IS_Db=dpNames(\"*\",\"_IS_Database\"),
               _IS_Ag=dpNames(\"*\",\"_IS_ArchiveGroup\");
  dbConnection conn;

  ISActiveRegisterGlobal=1;
  getMultiValue(\"TableName\",\"text\",TableName,
                \"Tables\",\"items\",tables,
                \"DbName\",\"text\",Db);

  TableName=strltrim(strrtrim(TableName));
  if (TableName==\"\")
  {
    // error: table name == \"\"
    ISShowWarning(\"emptytablename\",\"\");
    return;
  }

  if (Db==\"\")
  {
    // error: table name == \"\"
    ISShowWarning(\"emptydbname\",\"\");
    return;
  }

  pos=dynContains(tables,TableName);
    
  dp=Db+\"_\"+TableName;
  if (!dpExists(dp) || pos<1)
  {
    // error: table does not exist
    ISShowWarning(\"tablenotexists\",TableName);
    return;
  }

  for (i=1;i<=dynlen(_IS_Ag);i++)
  {
    dpGet(_IS_Ag[i]+\".AgTableName:_original.._value\",AgTableName,
          _IS_Ag[i]+\".AgDbName:_original.._value\",AgDbName);
    if  (AgTableName==TableName && AgDbName==Db)
    {
      // error: used table cannot be deleted
      ISShowWarning(\"usedtablecannotbedeleted\",TableName);
      return;
    }
  }
  
  ChildPanelOnCentralModalReturn(\"vision/is/IS_MessageInfo3.pnl\",
    getCatStr(\"IS\",\"deletingtable\")+TableName,
    makeDynString(getCatStr(\"IS\",\"howtodeletetable\"),
                  getCatStr(\"IS\",\"onlyis\"),
                  getCatStr(\"IS\",\"dbandis\"),
                  getCatStr(\"para\",\"cancel\")),
    df,ds);

  if (df[1]==2) return;

  // Deleting table datapoint 
  if (df[1]==1)
  {
    dpDelete(dp);
    ISShowWarning(\"tabledeletedis\",TableName);
    dynRemove(tables,dynContains(tables,TableName));
    setMultiValue(\"TableName\",\"text\",\"\",
                  \"Tables\",\"items\",tables);
    return;
  }
  
  dpGet(Db+\".DbName:_original.._value\",DbName,
        Db+\".DbPath:_original.._value\",DbPath,
        Db+\".DbType:_original.._value\",DbType,
        Db+\".DbUser:_original.._value\",DbUser,
        Db+\".DbPassword:_original.._value\",DbPassword,
        Db+\".DbAlivePeriod:_original.._value\",DbAlivePeriod);

  if ( (DbType==\"MS Access\" || DbType==\"MS Excel\") && access(DbPath+DbName,F_OK)!=0)
  {
    // error: db-file does not exist
    ISShowWarning(\"dbfilenotexist\",DbPath+DbName);
    return;
  }
    
  err=IS_OpenConnection(DbName, 
                        DbPath, 
                        DbType, 
                        DbUser, 
                        DbPassword, 
                        conn);
  if (err)
  {
    // error: deleting table
    adoShowError(conn);
    return;
  }

  switch (DbType)
  {
// !!! DB-specific
    case \"MS Access\"     : sql=\"DROP TABLE \"+TableName;
                           break;
    case \"MS Excel\"      : return;
                           sql=\"DROP TABLE \"+TableName;
                           break;
    case \"MS SQL-Server\" : sql=\"DROP TABLE \"+TableName;
                           break;
    case \"Oracle\"        : sql=\"DROP TABLE \"+TableName;
                           break;
    default              : return;
  }

  err=IS_Command2(conn, sql, err); 
  if (err)
  {
    // error: deleting table
    adoShowError(conn);
    dbCloseConnection(conn);
    return;
  }
  dbCloseConnection(conn);

  dpDelete(dp);
  ISShowWarning(\"tabledeletedisdb\",TableName);
  dynRemove(tables,dynContains(tables,TableName));
  setMultiValue(\"TableName\",\"text\",\"\",
                \"Tables\",\"items\",tables);

  IS_UpdateTableList(DbName,
                     DbPath,
                     DbType,
                     DbUser,
                     DbPassword,
                     TableName,
                     insert, // true==insert, false==delete
                     err);

  RootPanelOn(\"vision/is/IS_Para.pnl\",myModuleName(),
              makeDynString());
}" 0
 E E E
22 55
"Tables"
""
140 90 E E E 1 E 1 E N [0,0,0] E N "_Window" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 140 90 408 119
0

E
"main()
{
  int        i,TableMaxLengthDpeName=255,TableAlias=0,
             TableOldDays,TableFIFOAtHour;
  bool       TableSystemNameDpe=false;
  string     TableName,TableType,DbName;
  
  getMultiValue(\"\",\"selectedText\",TableName,
                \"DbName\",\"text\",DbName);
              
  if (TableName==\"\") return;

  ISTableGlobal=TableName;

  dpGet(DbName+\"_\"+ISTableGlobal+\".TableType:_original.._value\",TableType,
        DbName+\"_\"+ISTableGlobal+\".TableMaxLengthDpeName:_original.._value\",TableMaxLengthDpeName,
        DbName+\"_\"+ISTableGlobal+\".TableSystemNameDpe:_original.._value\",TableSystemNameDpe,
        DbName+\"_\"+ISTableGlobal+\".TableOldDays:_original.._value\",TableOldDays,
        DbName+\"_\"+ISTableGlobal+\".TableFIFOAtHour:_original.._value\",TableFIFOAtHour,
        DbName+\"_\"+ISTableGlobal+\".TableAlias:_original.._value\",TableAlias);

  setMultiValue(\"TableName\",\"text\",ISTableGlobal,
                \"TableType\",\"text\",TableType,
                \"TableMaxLengthDpeName\",\"text\",TableMaxLengthDpeName,
                \"TableOldDays\",\"text\",TableOldDays,
                \"TableFIFOAtHour\",\"text\",TableFIFOAtHour,
                \"TableSystemNameDpe\",\"state\",0,TableSystemNameDpe,
                \"TableAlias\",\"number\",TableAlias);
}" 0

E
 0 0
14 57
"TableType"
""
430 140 E E E 1 E 1 E N "_WindowText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 430 140 585 169
2 "s" 0 0 0 0 0 -1  E E E
13 58
"TableTypes"
""
430 50 E E E 1 E 0 E N "_3DText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 430 50 590 77

T 
2
LANG:0 13 Tabellentypen
LANG:1 11 Table types
"main()
{
  ChildPanelOnCentralModal(
    \"vision/is/IS_Para_TableType.pnl\",
    getCatStr(\"IS\",\"tabletypes\"),
    makeDynString());
}" 0
 E E E
14 60
"TableOldDays"
""
180 240 E E E 1 E 1 E N "_WindowText" E N "_Window" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 180 240 257 269
3 "6d" 6 0 0 0 0 -1  E E E
2 61
""
""
20 35 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  20 246.999999999999 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 27  Tabelleneinträge älter als
LANG:1 26  Delete records older then
4 62
""
""
10 230 E E E 1 E 1 E N "_3DText" E N [80,80,80] E E
 E EE E 0 0 0 0 1 E  10 230 600 230
4 63
""
""
11 231 E E E 1 E 1 E N "_Window" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E  11 231 601 231
2 64
""
""
266 35.000000000001 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  266 247 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 24 Tage löschen, täglich um
LANG:1 30 days,                 daily at
13 65
""
""
430 280 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 430 280 580 307

T 
2
LANG:0 10 Übernehmen
LANG:1 5 Apply
"main()
{
  int          err,TableOldDays,days,hour,TableFIFOAtHour;
  bool         dbactive;
  string       DbName,TableName,Table;

  getMultiValue(\"DbName\",\"text\",DbName,
                \"TableName\",\"text\",TableName,
                \"TableOldDays\",\"text\",days,
                \"TableFIFOAtHour\",\"text\",hour);

  ISDbActive(DbName,dbactive);
  if (!dbactive)
  {
    ISShowWarning(\"dbisnotactive\",DbName);
    return;
  }

  TableName=strltrim(strrtrim(TableName));
  if (TableName==\"\")
  {
    // error: table name == \"\"
    ISShowWarning(\"emptytablename\",\"\");
    return;
  }

  Table=DbName+\"_\"+TableName;

  if (!dpExists(Table))
  {
    // error: table dp does not exist
    ISShowWarning(\"tablenotexists\",Table);
    return;
  }

  dpGet(Table+\".TableOldDays:_original.._value\",TableOldDays,
        Table+\".TableFIFOAtHour:_original.._value\",TableFIFOAtHour); 

  if (days!=TableOldDays || hour!=TableFIFOAtHour)
  {
    dpSet(Table+\".TableOldDays:_original.._value\",days,
          Table+\".TableFIFOAtHour:_original.._value\",hour); 
    dpSet(\"_IS_Control_1.TableName:_original.._value\",Table,
          \"_IS_Control_1.TableFIFO:_original.._value\",true);
    if (days>0)
      ISShowWarning(\"fifostarted\",Table);
    else
      ISShowWarning(\"fifostopped\",Table);
  }
}
" 0
 E E E
21 66
"TableFIFOAtHour"
""
430 240 E E E 1 E 1 E N "_WindowText" E N "_Window" E E
 E E2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
 430 240 490 269
0

E
E
E

N 0 23 1 0 1 1
2 67
""
""
508 79 E E E 1 E 1 E N "_3DText" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  508 247 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 3 Uhr
LANG:1 7 o'clock
2 68
""
""
180 58.000000000001 E E E 1 E 1 E N "Dunkelgrau" E N "_3DFace" E E
 E EE E 0 0 0 0 1 E U  0 E 0 0 0 "s" 0 0 0 0 0 0  180 270 1
2
LANG:0 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
LANG:1 70 -microsoft windows-arial-medium-r-normal-*-*-120-100-100-*-*-iso8859-1
0
2
LANG:0 35  ( Tage < 1 für FIFO deaktivieren )
LANG:1 32  ( days < 1 to deactivate FIFO )
0
LAYER, 1 
2
LANG:0 0 
LANG:1 0 
0
LAYER, 2 
2
LANG:0 0 
LANG:1 0 
0
LAYER, 3 
2
LANG:0 0 
LANG:1 0 
0
LAYER, 4 
2
LANG:0 0 
LANG:1 0 
0
LAYER, 5 
2
LANG:0 0 
LANG:1 0 
0
LAYER, 6 
2
LANG:0 0 
LANG:1 0 
0
LAYER, 7 
2
LANG:0 0 
LANG:1 0 
0
0