V 8
2
LANG:0 27 Neuer Tabellentyp erstellen
LANG:1 23 Creating new table type
PANEL,34 47 583 318 N "_3DFace" 1
"$TableType"
"main()
{
  int            pos=1;
  dyn_string     list,type,length,origin,index;

  setValue(\"change\",\"text\",-1);

  if ($TableType==\"\")
  {
    list=makeDynString(\"DPE\");
    type=makeDynString(\"String\");
    length=makeDynString(\"255\");
    origin=makeDynString(\"DPE\");
    index=makeDynString(\"1\");
  }
  else
  {
    dpGet($TableType+\".TableFieldName:_original.._value\",list,
          $TableType+\".TableFieldType:_original.._value\",type,
          $TableType+\".TableFieldLength:_original.._value\",length,
          $TableType+\".TableFieldOrigin:_original.._value\",origin,
          $TableType+\".TableFieldIndexType:_original.._value\",index);
  }

  setMultiValue(\"TableType\",\"text\",$TableType,
                \"TableType\",\"editable\",($TableType==\"\")?true:false,
                \"TableType\",\"backCol\",($TableType==\"\")?\"_Window\":\"_3DFace\",
                \"dyn_list\",\"items\",list,
                \"dyn_list\",\"selectedPos\",pos,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);

  setMultiValue(\"dyn_input\",\"text\",list[pos],
                \"TableFieldType\",\"text\",type[pos],
                \"TableFieldLength\",\"text\",length[pos],
                \"TableFieldOrigin\",\"text\",origin[pos],
                \"TableFieldIndexType\",\"state\",0,index[pos]);

  // field is a data point identifier
  if (origin[pos]==\"DPE\")
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is date/time
  if (strpos(origin[pos],\"_stime\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Date\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is status
  if (strpos(origin[pos],\"_status\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Long\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is alert acknowledge time
  if (strpos(origin,\"_ack_time\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Date\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is alert state
  if (strpos(origin[pos],\"_act_state\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true);
  }
  else
  // field type is alert state
  if (strpos(origin[pos],\"_ack_user\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true);
  }
  else
  // field type is any value
  if (type[pos]==\"Date\" || type[pos]==\"Double\" || type[pos]==\"Long\")
  {
    setMultiValue(\"TableFieldType\",\"enabled\",true,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  {
    setMultiValue(\"TableFieldType\",\"enabled\",true,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true);
  }
}
" 0
 E E E 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 10
""
""
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 0.949152542372882 0 3 0.508474576271184 -1.58095758706622e-013 0 E 10 20 600 90
6 11
""
""
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 0.949152542372882 0 3 1.50847457627118 0.999999999999963 0 E 10 20 600 90
2 21
""
""
20 -148 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  20 20.0000000000001 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  Typname: 
LANG:1 12  Type name: 
2 23
""
""
20 -118 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  20 50 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  Feldnamen 
LANG:1 13  Field names 
2 24
"TableFieldLength_txt"
""
300 -11 E E E 1 E 0 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  300 157 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  Feldlänge: 
LANG:1 15  Field length: 
2 27
""
""
300 -41 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  300 127 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  Feldtyp: 
LANG:1 13  Field type: 
2 29
""
""
300 -71 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  300 97 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 9  Quelle: 
LANG:1 9  Source: 
2 31
""
""
300 19 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  300 187 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  Indiziert: 
LANG:1 10  Indexed: 
13 33
""
""
460 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
 460 280 570 307

T 
2
LANG:0 9 Schließen
LANG:1 5 Close
"main()
{
  int        change;
  string     s;
  dyn_float  df;
  dyn_string ds;
  
  getMultiValue(\"change\",\"text\",change,
                \"TableType\",\"text\",s);
  
  if (change==1)
  {
    ChildPanelOnCentralModalReturn(\"vision/is/IS_MessageInfo.pnl\",
      getCatStr(\"para\",\"warning\"),
      makeDynString(getCatStr(\"IS\",\"changedtabletype\"),
                    getCatStr(\"IS\",\"yes\"),
                    getCatStr(\"IS\",\"no\")),
      df,ds);
    if (df[1]==0)
      return;
  }

  PanelOffReturn(makeDynFloat(1),makeDynString());
}
" 0
 E E E
14 34
"TableType"
""
100 10 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
 100 10 297 39
3 "s" 0 0 0 0 0 -1  E E E
13 35
""
""
340 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
 340 280 450 307

T 
2
LANG:0 10 Übernehmen
LANG:1 4 Save
"main()
{
  int            pos,l,TableFieldIndexType;
  string         s,
                 TableFieldType,TableFieldLength,TableFieldOrigin;
  dyn_int        index;
  dyn_string     list,type,length,origin;

  getMultiValue(\"TableType\",\"text\",s,
                \"dyn_list\",\"items\",list,
                \"dyn_list\",\"selectedPos\",pos,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);

  s=strrtrim(strltrim(s));
  if (s==\"\")
  {
    ISShowWarning(\"emptytabletypename\",s);
    return;
  }

  if (!IS_CheckChar(s))
  {
    ISShowWarning(\"invalidchar\",\"\");
    return;
  }

  if (dpExists(s) && dpTypeName(s)!=\"_IS_TableType\")
  {
    ISShowWarning(\"dpnameoccupied\",s);
    return;
  }

  l=dynlen(list);
  if (l<1)
  {
    ISShowWarning(\"emptytabletype\",s);
    return;
  }

  if (dynlen(type)!=l || dynlen(length)!=l || dynlen(origin)!=l || dynlen(index)!=l)
  {
    ISShowWarning(\"difflength\",s);
    return;
  }

  if (dynContains(origin,\"\")>0)
  {
    ISShowWarning(\"emptyorigin\",s);
    return;
  }

  if (!dpExists(s))
    dpCreate(s,\"_IS_TableType\");
  
  dpSet(s+\".TableFieldName:_original.._value\",list,
        s+\".TableFieldType:_original.._value\",type,
        s+\".TableFieldLength:_original.._value\",length,
        s+\".TableFieldOrigin:_original.._value\",origin,
        s+\".TableFieldIndexType:_original.._value\",index);
        
  setValue(\"change\",\"text\",-1);
}" 0
 E E E
21 37
"TableFieldLength"
""
390 150 E E E 1 E 0 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
 390 150 450 179
0

E
"main()
{
  setValue(\"change\",\"text\",1);
}" 0

E

N 1 255 1 255 1 1
22 38
"TableFieldType"
""
390 120 E E E 0 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
 390 120 508 149
4
2
LANG:0 6 String
LANG:1 6 String

1
2
LANG:0 4 Date
LANG:1 4 Date

0
2
LANG:0 6 Double
LANG:1 6 Double

0
2
LANG:0 4 Long
LANG:1 4 Long

0

E
"main()
{
  string type;
  
  getValue(\"\",\"text\",type);
  
  if (type==\"String\")
  {
    setMultiValue(\"TableFieldLength\",\"text\",255,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength\",\"enabled\",true,
                  \"TableFieldLength_txt\",\"visible\",true);
  }
  else
  {
    setMultiValue(\"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  setValue(\"change\",\"text\",1);
}" 0

E
 0 0
22 39
"TableFieldOrigin"
""
390 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
 390 90 556 119
13
2
LANG:0 3 DPE
LANG:1 3 DPE

1
2
LANG:0 17 _original.._value
LANG:1 17 _original.._value

0
2
LANG:0 15 _online.._value
LANG:1 15 _online.._value

0
2
LANG:0 16 _offline.._value
LANG:1 16 _offline.._value

0
2
LANG:0 17 _original.._stime
LANG:1 17 _original.._stime

0
2
LANG:0 15 _online.._stime
LANG:1 15 _online.._stime

0
2
LANG:0 16 _offline.._stime
LANG:1 16 _offline.._stime

0
2
LANG:0 18 _original.._status
LANG:1 18 _original.._status

0
2
LANG:0 16 _online.._status
LANG:1 16 _online.._status

0
2
LANG:0 17 _offline.._status
LANG:1 17 _offline.._status

0
2
LANG:0 22 _alert_hdl.._act_state
LANG:1 22 _alert_hdl.._act_state

0
2
LANG:0 21 _alert_hdl.._ack_time
LANG:1 21 _alert_hdl.._ack_time

0
2
LANG:0 21 _alert_hdl.._ack_user
LANG:1 21 _alert_hdl.._ack_user

0

E
"main()
{
  string origin;
  
  getValue(\"\",\"text\",origin);
  
  // field is a data point identifier
  if (origin==\"DPE\")
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"text\",255,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false,
                  \"TableFieldIndexType\",\"state\",0,1);
  }
  else
  // field type is date/time
  if (strpos(origin,\"_stime\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Date\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false,
                  \"TableFieldIndexType\",\"state\",0,1);
  }
  else
  // field type is status
  if (strpos(origin,\"_status\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Long\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false,
                  \"TableFieldIndexType\",\"state\",0,0);
  }
  else
  // field type is any value
  if (strpos(origin,\"_value\")>0 || strpos(origin,\"_range\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Double\",
                  \"TableFieldType\",\"enabled\",true,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false,
                  \"TableFieldIndexType\",\"state\",0,0);
  }
  else
  // field type is acknowledge time
  if (strpos(origin,\"_ack_time\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Date\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false,
                  \"TableFieldIndexType\",\"state\",0,1);
  }
  else
  // field type is acknowledge user
  if (strpos(origin,\"_ack_user\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"text\",255,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true,
                  \"TableFieldIndexType\",\"state\",0,0);
  }
  else
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"text\",255,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true,
                  \"TableFieldIndexType\",\"state\",0,0);
  }
  setValue(\"change\",\"text\",1);
}" 0

E
 0 0
17 41
"length"
""
390 0 E E E 1 E 0 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
 390 0 437 40
0

E
E
E

3 1
17 42
"type"
""
439.882218844985 0 E E E 1 E 0 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
 439.882218844985 0 484.882218844985 38
0

E
E
E

3 1
17 43
"origin"
""
485 0 E E E 1 E 0 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
 485 0 532 40
0

E
E
E

3 1
17 44
"index"
""
532.5 0 E E E 1 E 0 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
 532.5 0 579.5 40
0

E
E
E

3 1
13 45
"pb_before"
""
290 230 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
 290 230 330 258

P 
"45.xpm"
2
LANG:0 3 Vor
LANG:1 6 before
"main()
{
  int            TableFieldIndexType,pos;
  string         s,
                 TableFieldType,TableFieldLength,TableFieldOrigin=\"\";
  dyn_int        index;
  dyn_string     list,type,length,origin;

  getMultiValue(\"dyn_input\",\"text\",s,
                \"dyn_list\",\"items\",list,
                \"dyn_list\",\"selectedPos\",pos,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index,
                \"TableFieldType\",\"text\",TableFieldType,
                \"TableFieldLength\",\"text\",TableFieldLength,
//                \"TableFieldOrigin\",\"text\",TableFieldOrigin,
                \"TableFieldIndexType\",\"state\",0,TableFieldIndexType);

  if (strltrim(strrtrim(s))==\"\") return;

  if (dynContains(list,s)>0)
  {
    // error: table name == \"\"
    ISShowWarning(\"columnexists\",s);
    return;
  }

  if(pos<1) pos=1;

  dynInsertAt(list,s,pos);
  dynInsertAt(type,TableFieldType,pos);
  dynInsertAt(length,TableFieldLength,pos);
  dynInsertAt(origin,TableFieldOrigin,pos);
  dynInsertAt(index,TableFieldIndexType,pos);

  setMultiValue(\"dyn_list\",\"items\",list,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);

  setMultiValue(\"dyn_list\",\"selectedPos\",pos,
                \"change\",\"text\",1,
                \"TableFieldOrigin\",\"text\",TableFieldOrigin);
}" 0
 E E E
13 46
"pb_delete"
""
390 230 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
 390 230 430 258

P 
"46.xpm"
2
LANG:0 7 Löschen
LANG:1 6 delete
"main()
{
  int            TableFieldIndexType,pos;
  string         s,
                 TableFieldType,TableFieldLength,TableFieldOrigin;
  dyn_int        index;
  dyn_string     list,type,length,origin;

  getMultiValue(\"dyn_input\",\"text\",s,
                \"dyn_list\",\"items\",list,
                \"dyn_list\",\"selectedPos\",pos,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);

  if (strltrim(strrtrim(s))==\"\") return;

  if(pos>0)
  {
    if (origin[pos]==\"DPE\")
    {
      // error: used tabletype cannot be deleted
      ISShowWarning(\"dpecannotbedeleted\",\"DPE\");
      return;
    }
  
    dynRemove(type,pos);
    dynRemove(length,pos);
    dynRemove(origin,pos);
    dynRemove(index,pos);
    dynRemove(list,pos);
  }
  setMultiValue(\"dyn_list\",\"items\",list,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);
  if (dynlen(list)>=pos)
  {
    setValue(\"dyn_list\",\"selectedPos\",pos);
  }
  else
  if (dynlen(list)>0)
  {
    pos=dynlen(list);
    setValue(\"dyn_list\",\"selectedPos\",pos);
  }
  else
  {
    pos=0;
  }
  setMultiValue(\"dyn_input\",\"text\",(pos>0)?list[pos]:s,
                \"dyn_list\",\"items\",list,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index,
                \"TableFieldType\",\"text\",(pos>0)?type[pos]:\"String\",
                \"TableFieldLength\",\"text\",(pos>0)?length[pos]:255,
                \"TableFieldOrigin\",\"text\",(pos>0)?origin[pos]:\"DPE\",
                \"TableFieldIndexType\",\"state\",0,(pos>0)?index[pos]:1);
  if (pos>0)
    setValue(\"dyn_list\",\"selectedPos\",pos);

  getMultiValue(\"TableFieldType\",\"text\",TableFieldType,
                \"TableFieldLength\",\"text\",TableFieldLength,
                \"TableFieldOrigin\",\"text\",TableFieldOrigin,
                \"TableFieldIndexType\",\"state\",0,TableFieldIndexType);

  // field is a data point identifier
  if (TableFieldOrigin==\"DPE\")
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is date/time
  if (strpos(TableFieldOrigin,\"_stime\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Date\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is status
  if (strpos(TableFieldOrigin,\"_status\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Long\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is any value
  if (TableFieldType==\"Date\" || TableFieldType==\"Double\" || TableFieldType==\"Long\")
  {
    setMultiValue(\"TableFieldType\",\"enabled\",true,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  {
    setMultiValue(\"TableFieldType\",\"enabled\",true,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true);
  }
  setValue(\"change\",\"text\",1);
}" 0
 E E E
13 47
"pb_after"
""
240 230 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
 240 230 280 258

P 
"47.xpm"
2
LANG:0 4 Nach
LANG:1 5 after
"main()
{
  int            TableFieldIndexType,pos;
  string         s,
                 TableFieldType,TableFieldLength,TableFieldOrigin=\"\";
  dyn_int        index;
  dyn_string     list,type,length,origin;

  getMultiValue(\"dyn_input\",\"text\",s,
                \"dyn_list\",\"items\",list,
                \"dyn_list\",\"selectedPos\",pos,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index,
                \"TableFieldType\",\"text\",TableFieldType,
                \"TableFieldLength\",\"text\",TableFieldLength,
//                \"TableFieldOrigin\",\"text\",TableFieldOrigin,
                \"TableFieldIndexType\",\"state\",0,TableFieldIndexType);

  if (strltrim(strrtrim(s))==\"\") return;

  if (dynContains(list,s)>0)
  {
    // error: table name == \"\"
    ISShowWarning(\"columnexists\",s);
    return;
  }

  if(pos<1) pos=dynlen(list);

  dynInsertAt(list,s,pos+1);
  dynInsertAt(type,TableFieldType,pos+1);
  dynInsertAt(length,TableFieldLength,pos+1);
  dynInsertAt(origin,TableFieldOrigin,pos+1);
  dynInsertAt(index,TableFieldIndexType,pos+1);

  setMultiValue(\"dyn_list\",\"items\",list,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);

  setMultiValue(\"dyn_list\",\"selectedPos\",pos+1,
                \"change\",\"text\",1,
                \"TableFieldOrigin\",\"text\",TableFieldOrigin);
}" 0
 E E E
13 48
"pb_modify"
""
340 230 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
 340 230 380 258

P 
"48.xpm"
2
LANG:0 6 Ändern
LANG:1 6 change
"main()
{
  int            TableFieldIndexType,pos,i;
  string         s,
                 TableFieldType,TableFieldLength,TableFieldOrigin;
  dyn_int        index;
  dyn_string     list,type,length,origin;

  getMultiValue(\"dyn_input\",\"text\",s,
                \"dyn_list\",\"items\",list,
                \"dyn_list\",\"selectedPos\",pos,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index,
                \"TableFieldType\",\"text\",TableFieldType,
                \"TableFieldLength\",\"text\",TableFieldLength,
                \"TableFieldOrigin\",\"text\",TableFieldOrigin,
                \"TableFieldIndexType\",\"state\",0,TableFieldIndexType);

  if (strrtrim(strltrim(s))==\"\")
  {
    ISShowWarning(\"emptycolumnname\",s);
    return;
  }

  if (pos<1) return;

  i=dynContains(origin,TableFieldOrigin);
  if (i>0 && i!=pos)
  {
    ISShowWarning(\"doubleorigin\",s);
    setValue(\"TableFieldOrigin\",\"text\",origin[pos]);
    return;
  }

  type[pos]=TableFieldType;
  length[pos]=TableFieldLength;
  origin[pos]=TableFieldOrigin;
  index[pos]=TableFieldIndexType;
  list[pos]=s;

  setMultiValue(\"dyn_list\",\"items\",list,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);
  setMultiValue(\"dyn_list\",\"selectedPos\",pos,
                \"change\",\"text\",1);
}" 0
 E E E
17 49
"dyn_list"
""
20 70 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
 20 70 228 220
0

E
"main()
{
  int            pos;
  string         s;
  dyn_int        index;
  dyn_string     list,type,length,origin;

  getMultiValue(\"dyn_list\",\"selectedPos\",pos,
                \"dyn_list\",\"selectedText\",s,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);

  if (strltrim(strrtrim(s))==\"\" || pos<1) return;

  setMultiValue(\"dyn_input\",\"text\",s,
                \"TableFieldType\",\"text\",type[pos],
                \"TableFieldLength\",\"text\",length[pos],
                \"TableFieldOrigin\",\"text\",origin[pos],
                \"TableFieldIndexType\",\"state\",0,index[pos]);

  // field is a data point identifier
  if (origin[pos]==\"DPE\")
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is date/time
  if (strpos(origin[pos],\"_stime\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Date\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is status
  if (strpos(origin[pos],\"_status\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Long\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is alert acknowledge time
  if (strpos(origin[pos],\"_ack_time\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"Date\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  // field type is alert acknowledge user
  if (strpos(origin[pos],\"_ack_user\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true);
  }
  else
  // field type is alert state
  if (strpos(origin[pos],\"_act_state\")>0)
  {
    setMultiValue(\"TableFieldType\",\"text\",\"String\",
                  \"TableFieldType\",\"enabled\",false,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true);
  }
  else
  // field type is any value
  if (type[pos]==\"Date\" || type[pos]==\"Double\" || type[pos]==\"Long\")
  {
    setMultiValue(\"TableFieldType\",\"enabled\",true,
                  \"TableFieldLength\",\"visible\",false,
                  \"TableFieldLength_txt\",\"visible\",false);
  }
  else
  {
    setMultiValue(\"TableFieldType\",\"enabled\",true,
                  \"TableFieldLength\",\"visible\",true,
                  \"TableFieldLength_txt\",\"visible\",true);
  }
}" 0

E

0 1
14 50
"dyn_input"
""
20 230 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
 20 230 230 263
3 "0s" 0 0 0 0 0 -1  E E E
14 51
"change"
""
360 0 E E E 1 E 0 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
 360 0 389 29
2 "s" 0 0 0 0 0 -1  E E E
13 52
""
""
240 170 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
 240 170 270 197

P 
"52.xpm"
2
LANG:0 3 ???
LANG:1 3 ???
"main()
{
  int            pos,TableFieldIndexType;
  string         s,
                 TableFieldType,TableFieldLength,TableFieldOrigin;
  dyn_int        index;
  dyn_string     list,type,length,origin;

  getMultiValue(\"dyn_input\",\"text\",s,
                \"dyn_list\",\"items\",list,
                \"dyn_list\",\"selectedPos\",pos,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);

  if (strrtrim(strltrim(s))==\"\")
  {
    ISShowWarning(\"emptycolumnname\",s);
    return;
  }

  if (pos>=dynlen(list)) return;

  s=list[pos];
  dynRemove(list,pos);
  dynInsertAt(list,s,pos+1);
  
  s=type[pos];
  dynRemove(type,pos);
  dynInsertAt(type,s,pos+1);
  
  s=length[pos];
  dynRemove(length,pos);
  dynInsertAt(length,s,pos+1);
  
  s=origin[pos];
  dynRemove(origin,pos);
  dynInsertAt(origin,s,pos+1);
  
  s=index[pos];
  dynRemove(index,pos);
  dynInsertAt(index,s,pos+1);

  setMultiValue(\"dyn_list\",\"items\",list,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);
  setValue(\"dyn_list\",\"selectedPos\",pos+1);
  setValue(\"change\",\"text\",1);
}" 0
 E E E
13 53
""
""
240 100 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
 240 100 270 127

P 
"53.xpm"
2
LANG:0 3 ???
LANG:1 3 ???
"main()
{
  int            pos,TableFieldIndexType;
  string         s,
                 TableFieldType,TableFieldLength,TableFieldOrigin;
  dyn_int        index;
  dyn_string     list,type,length,origin;

  getMultiValue(\"dyn_input\",\"text\",s,
                \"dyn_list\",\"items\",list,
                \"dyn_list\",\"selectedPos\",pos,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);

  if (strrtrim(strltrim(s))==\"\")
  {
    ISShowWarning(\"emptycolumnname\",s);
    return;
  }

  if (pos<=1) return;

  s=list[pos];
  dynInsertAt(list,s,pos-1);
  dynRemove(list,pos+1);
  
  s=type[pos];
  dynInsertAt(type,s,pos-1);
  dynRemove(type,pos+1);
  
  s=length[pos];
  dynInsertAt(length,s,pos-1);
  dynRemove(length,pos+1);
  
  s=origin[pos];
  dynInsertAt(origin,s,pos-1);
  dynRemove(origin,pos+1);
  
  s=index[pos];
  dynInsertAt(index,s,pos-1);
  dynRemove(index,pos+1);

  setMultiValue(\"dyn_list\",\"items\",list,
                \"type\",\"items\",type,
                \"length\",\"items\",length,
                \"origin\",\"items\",origin,
                \"index\",\"items\",index);
  setValue(\"dyn_list\",\"selectedPos\",pos-1);
  setValue(\"change\",\"text\",1);
}" 0
 E E E
20 54
"TableFieldIndexType"
""
390 185 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
 390 185 418 213
1
T 
2
LANG:0 0 
LANG:1 0 

0 E E
1
E "main()
{
  setValue(\"change\",\"text\",1);
}" 0

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