<!-- 
Anzeigen von Aktivitäten auf HTML-Basis
Copyright © by FlowFact AG 	
Erstellung: Nov/Dez 2001 	Alexander Mayr, Manfred Friederich

Änderung: Mai 2002 	Alexander Mayr   
Änderung: 25.03.2003 ckrebs - Sicherheiten gegen Scriptviren   
Änderung: 22.04.2003 K.Kappert - Container (startdoc)
Änderung : 14.04.2005 H.Ronnacker - Seite wurde für die Internationalisierung angepasst
Änderung : 01.06.2005 H.Ronnacker - Adressverknüpfungen aus Detaildatensätzen realisieren
Änderung : 31.10.2006 DP - html u. body durch DIV-Tag ersetzt; in Notiz

-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>

<HEAD>

	<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
	<!-- über das StyleSheet werden die Ausgabeformate der einzlenen Zellen 
		 z. B.: Überschriften oden Daten gesteuert -->
	<LINK rel="stylesheet" href="styles.css" type="text/css">

	<TITLE>FlowFact Aktivitäten</TITLE>
	
	<!-- deklarieren von globalen Variablen zur Steuerung der angezeigten Daten -->
	<SCRIPT type="text/vbscript">
	
	  Dim m_Anzeige                   ' ist Aktivitäten-Satz tatsächlich vorhanden 
	  Dim m_blnAnzeigenFlag           ' Globale Variable; zur Steuerung, ob ein Absatz ausgegeben werden soll
	  Dim m_blnShowVorlage            ' Globale Variable; sollen Vorlage-Daten angezeigt werden
	  Dim m_blnShowAkt                ' Globale Variable; sollen Aktivitäten-Daten angezeigt werden
	  Dim m_blnShowArchiv             ' Globale Variable; soll der Archiv-Datensatz angezeigt werden
	  Dim m_blnShowBetreff            ' Globale Variable; soll die Betreff-Zeile angezeigt werden
	  Dim m_blnShowAdresse            ' Globale Variable; soll eine vorhandene Adresse angezeigt werden  
	  Dim m_blnShowNotiz              ' Globale Variable; soll eine vorhandenen Notiz angezeigt werden
	  Dim m_blnShowTermin             ' Globale Variable; sollen vorhandenen von / bis Termine angezeigt werden
	  Dim m_blnShowDatum              ' Globale Variable; sollen vorhandenen Datumsangaben angezeigt werden
	  Dim m_blnShowObjekt             ' Globale Variable; soll eine vorhandenes Objekt angezeigt werden
	  Dim m_blnShowProjekt            ' Globale Variable; soll eine vorhandenes Projekt angezeigt werden
	  Dim m_blnShowMerkmal            ' Globale Variable; sollen vorhandene Merkmale angezeigt werden
	  Dim m_blnShowNachweis           ' Globale Variable; sollen vorhandene Offerten-Nachweis-Daten angezeigt werden
	  Dim m_blnShowDetails            ' Globale Variable; sollen vorhandene Detailsdaten angezeigt werden
	  Dim m_blnShowAttach             ' Globale Variable; sollen vorhandenen Dateianhänge angezeigt werden
	  Dim m_blnShowVertrag            ' Globale Variable; sollen vorhandene Vertrags-Daten angezeigt werden
	  Dim m_blnShowAkten              ' Globale Variable; sollen vorhandene Akten-Daten angezeigt werden
	  Dim m_strLinkDSN                ' Globale Variable; beinhaltet die Adress-DSN zur Übergabe an das Adressfenster, wenn 
									  '                   eine Detail-Feldart von Typ Adresse ist
	  Dim m_Grafik                    ' Globale Variable; welches Hintergrundbild wird angezeigt
		
	  Dim m_rsAktArt, m_rsAkt,  m_rsAD, m_rsAD_B, m_rsPROJEKT, m_rsMKM, m_rsVertrag, m_rsAkten   
	  Dim m_rsOBJ, m_rsDetails, m_rsBlob, m_rsArchiv, m_rsVorgang
	  
	</SCRIPT>
	
	<!-- füllen der benötigen Variablen gem. den Übergaben -->
	<SCRIPT type="text/vbscript">
	   strUebergabe = document.location.search   '----- Daten des aktuellen Datensatzes
	   m_strDSN  = Mid(strUebergabe , 6, InStr(1, strUebergabe , "&") - 6)
	   m_strTab  = Mid(strUebergabe , InStr(1, strUebergabe , "&") + 9)
	   m_blnAnzeigenFlag = False
	</SCRIPT>
	
	<!-- Einbinden der entspr. VBS-Dateien -->
	<SCRIPT type="text/vbscript" src="events.vbs"></SCRIPT>
	<SCRIPT type="text/vbscript" src="aktivitäten.vbs"></SCRIPT>
	
	<!-- lesen der Tabelle AKT und Aktivitätenart -->
	<SCRIPT type="text/vbscript"> 
	  
	  m_strDSN = replace(m_strDSN,"%7B","")
	  m_strDSN = replace(m_strDSN,"%7D","")

	  set m_rsAkt = m_oFF.GetShapes(m_strDSN, "AKT")
	  RSumladen m_rsAkt     
	  m_Anzeige = true
	  if m_rsAkt.eof then
		m_Anzeige = false
	  end if
	</SCRIPT>
	
	<!-- füllt Variablen, welche Elemente angezeigt werden sollen ge. Aktivitäten-Art -->
	<SCRIPT type="text/vbscript">
	  if m_Anzeige = true then
		Formularanzeige  m_rsAktArt
	  end if
	</SCRIPT>
	
	<!-- Hintergrundbild ausgeben -->
	<SCRIPT type="text/vbscript">
	  if m_Anzeige = true then
		Background
	  end if
	</SCRIPT>

</HEAD>

<BODY>

<TABLE class="background" border="0" cellpadding="0" cellspacing="0" width="100%">
  <!-- Aktivität -->
  <TR class="notiz" id="TabAkt"> 
    <TD class="titelzelle_main" valign="top" align="left"> 
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=TXT1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Aktivität")</SCRIPT></TD>                      
        <TD id=TXT2 class="titelzelle2"><P>&nbsp;&nbsp;</p></TD>
      </TABLE>
    </TD>
    <TD valign="top" id=Akt1 align="left">                        
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">  
        If m_blnShowAkt = True then
          AktHeaderAusgeben m_rsAkt, m_rsAktArt, m_rsVorgang
          m_blnAnzeigenFlag = True
        End If  
	  </SCRIPT>
    </TD>
  </TR>
  
  <!-- Aktivitäten-Flag = False -->
	<SCRIPT type="text/vbscript">
    If m_Anzeige = false then
      document.GetElementbyId("TabAkt").style.display ="none"
    Else
      If m_blnShowAkt = False then
        document.GetElementbyId("TabAkt").style.display ="none" 
      End If
    End If 
  </SCRIPT>
  
  <!-- Leerzeile -->
	<SCRIPT type="text/vbscript">
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Adressen Tabelle -->
  <TR class="adresse" id="TabAdresse"> 
    <TD class="titelzelle_main" valign="top" align="left">                                                           
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt; border-collapse:collapse" cellspacing="0" cellpadding="0" bordercolor="#111111">
        <TD class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Adresse")</SCRIPT></TD>                         <!-- Überschrift "Adresse" -->
        <TD class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD class="adresse" id=AdressDaten vAlign="top" align="left"> 
      <TABLE border="0" cellspacing="0" cellpadding="0" width="100%">
        <TR> 
          <TD id=AdressDaten1 align="left" valign="top">              <!-- Adresse 1 -->
            <P style="margin-top: 3">
			  <SCRIPT type="text/vbscript">
              If m_blnShowAdresse = True then
  	            If not(m_rsAkt.Fields("AD_DSN") & "" = "") then
  				  m_blnAnzeigenFlag = True
  				  AdresseAusgeben  m_rsAkt.Fields("AD_DSN"), m_rsAD, 1, "&nbsp;&nbsp;"  
				End If  
  			  End If
  			</SCRIPT>
          </TD>
        </TR>
        <TR>  
          <TD id=AdressDaten2 align="left" valign="top">              <!-- Adresse 2 -->
            <P style="margin-top: 3">
			  <SCRIPT type="text/vbscript">
              If m_blnShowAdresse = True then
  	            If not(m_rsAkt.Fields("AD_B_DSN") & "" = "") then
                  AdresseAusgeben  m_rsAkt.Fields("AD_B_DSN"), m_rsAD_B, 2, "&nbsp;&nbsp;"
				End If  
  	          End If
  	        </SCRIPT>
  	      </TD>
        </TR>
      </TABLE>
    </TD>
  </TR>
  
  <!-- Adress-Flag = False oder keine Adress-Daten vorhanden -->
	<SCRIPT type="text/vbscript">
    If m_Anzeige = false then
      document.GetElementbyId("TabAdresse").style.display ="none"
    Else
      If ((m_blnShowAdresse = False) or ((m_rsAkt.Fields("AD_DSN") & "" = "") AND (m_rsAkt.Fields("AD_B_DSN") & "" = ""))) then
        document.GetElementbyId("TabAdresse").style.display ="none"
      End If  
    End If 
  </SCRIPT>  
  
  <!-- Leerzeile -->
	<SCRIPT type="text/vbscript">
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


	<!-- Objekt -->
	<TR class="notiz" id="TabObjekt"> 
    <TD class="titelzelle_main" valign="top" align="left">                                     <!-- Überschrift "Objekt" -->
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
         <TD id=OBJ1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Objekt")</SCRIPT></TD>
         <TD id=OBJ2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD vAlign="top" id=ObjektText align="left">                     <!-- Objekt-Daten -->
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">  
        If m_blnShowObjekt = True then
	      If not(m_rsAkt.Fields("OBJ_DSN") & "" = "") then
			document.write "<a id=LinkObjekt href=''>" 
			IF m_rsOBJ.EOF Then
				WriteTranslate("Archiviert oder keine Leseberechtigung")
				m_blnAnzeigenFlag = True
			Else
				document.write m_rsOBJ.Fields("KENNUNG") & " - " & m_rsOBJ.Fields("INTERN")
		    End If
			document.write "</a>"
			m_blnAnzeigenFlag = True
          End If
      	End If  
      </SCRIPT>
    </TD>
  </TR>

  <!-- Objekt-Flag = False oder keine Objektdaten gefunden -->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabObjekt").style.display ="none" 
    Else
      If ((m_blnShowObjekt = False) or (m_rsAkt.Fields("OBJ_DSN") & "" = "")) then
        document.GetElementbyId("TabObjekt").style.display ="none" 
      End If
    End If
  </SCRIPT>

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">  
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Projekt -->
  <TR class="notiz" id="TabProjekt"> 
    <TD class="titelzelle_main">                                     <!-- Überschrift "Projekt"-->
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=PROJEKT1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Projekt")</SCRIPT></TD>
        <TD id=PROJEKT2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD vAlign="top" id=ProjektText align="left">                    <!-- Projekt-Daten -->
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">  
        If m_blnShowProjekt = True then
		  m_blnAnzeigenFlag = False
          If Not (m_rsAkt.Fields("PROJEKTE_DSN") & "" = "") Then
			document.write "<a id=LinkProjekt href=''>" 
			If m_rsProjekt.EOF Then
				WriteTranslate("Archiviert oder keine Leseberechtigung")
			Else
				document.write m_rsProjekt.Fields("KENNUNG") & " - " & m_rsProjekt.Fields("BEZEICHNUNG")
	        End If
			document.write "</a>"
			m_blnAnzeigenFlag = True
          End If
        End If  
      </SCRIPT>
    </TD>
  </TR>

  <!-- Projekt-Flag = False oder keine Projektdaten gefunden -->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = False then
		document.GetElementbyId("TabProjekt").style.display ="none" 
    Else
		If (m_blnShowProjekt = False) Or (m_blnAnzeigenFlag = False) Then
			document.GetElementbyId("TabProjekt").style.display ="none" 
		End If
    End If
  </SCRIPT>
  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">  
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Verträge -->
  <TR class="notiz" id="TabVertrag"> 
    <TD class="titelzelle_main">                                  
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=Vertrag1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Verträge")</SCRIPT></TD>
        <TD id=Vertrag2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD vAlign="top" id=VertragText align="left">                
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">  
        If m_blnShowVertrag = True then
          If not(m_rsAkt.Fields("Verträge_DSN") & "" = "") then
			document.write "<a id=LinkVertrag href=''>" 
			If m_rsVertrag.EOF Then
				WriteTranslate("Archiviert oder keine Leseberechtigung")
			Else
				document.write m_rsVertrag.Fields("KENNUNG") & " - " & m_rsVertrag.Fields("INTERN")    
	        End If
			document.write "</a>"
	        m_blnAnzeigenFlag = True
          End If
      	End If  
      </SCRIPT>
    </TD>
  </TR>

  <!-- Vertrags-Flag = False oder keine Vertrags-Daten gefunden -->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabVertrag").style.display ="none" 
    Else
      If ((m_blnShowVertrag = False) or (m_rsAkt.Fields("Verträge_DSN") & "" = ""))  then
        document.GetElementbyId("TabVertrag").style.display ="none" 
      End If
    End If
  </SCRIPT>

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">  
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Akten -->
  <TR class="notiz" id="TabAkten"> 
    <TD class="titelzelle_main">                                  
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
         <TD id=Akten1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Akten")</SCRIPT></TD>
         <TD id=Akten2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD vAlign="top" id=AktenText align="left">                
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">  
        If m_blnShowAkten = True then
			If Not (m_rsAkt.Fields("Akten_DSN").Value & "" = "") then
				document.write "<a id=LinkAkten href=''>" 
				If m_rsAkten.EOF Then
					WriteTranslate("Archiviert oder keine Leseberechtigung")
				Else
					document.write m_rsAkten.Fields("KENNUNG") & " - " & m_rsAkten.Fields("RUBRUM") 
				End If
				document.write "</a>"
				m_blnAnzeigenFlag = True
			End If
      	End If
      </SCRIPT>
    </TD>
  </TR>

  <!-- Akten-Flag = False oder keine Akten-Daten gefunden -->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabAkten").style.display ="none" 
    Else
      If ((m_blnShowAkten = False) or (m_rsAkt.Fields("Akten_DSN") & "" = ""))  then
        document.GetElementbyId("TabAkten").style.display ="none" 
      End If
    End If
  </SCRIPT>

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">  
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Termin von / bis -->
  <TR class="notiz" id="TabTermin"> 
    <TD class="titelzelle_main" valign="top" align="left">                                     
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=TERM1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Termin")</SCRIPT></TD>                 <!-- Überschrift "Termin"-->
        <TD id=TERM2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD vAlign="top" align="left"> 
      <TABLE border="0" cellspacing="0" cellpadding="0">
        <TR> 
          <TD class="sonstige_zelle" valign="top"><P style="margin-top: 3"><SCRIPT type="text/vbscript">WriteTranslate("von%@%Datum")</SCRIPT></TD>                       
          <!-- Überschrift "von" -->
          <TD width="10" align="center">&nbsp;</TD>
          <TD align="left" valign="top">                          <!-- Termin-Daten von -->
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">  
			  If m_blnShowTermin = True then
			    If not(m_rsAkt.Fields("DATUM") & "" = "") then
			      document.write "<span class='textbox'>" & m_oHTML.DatumFormatieren(m_rsAkt.Fields("DATUM")) & "</span>"
                  m_blnAnzeigenFlag = True
  		        Else
		          document.GetElementbyId("DatumVon").style.display ="none" 
				End If
      		  End If  
            </SCRIPT>
       	  </TD>
          <TD width="20%" align="center">&nbsp;&nbsp;</TD>
          <TD class="sonstige_zelle" valign="top"><P style="margin-top: 3"><SCRIPT type="text/vbscript">WriteTranslate("bis%@%Datum")</SCRIPT></TD>   
          <!-- Überschrift "bis" -->
          <TD width="10" align="center">&nbsp;</TD>
          <TD align="left" valign="top">                          <!-- TerminDaten bis -->
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">  
		      If m_blnShowTermin = True then
		        If not(m_rsAkt.Fields("DATUM_BIS") & "" = "") then
		          document.write "<span class='textbox'>" & m_oHTML.DatumFormatieren(m_rsAkt.Fields("DATUM_BIS")) & "</span>"
                  m_blnAnzeigenFlag = True
  		        Else
		          document.GetElementbyId("DatumBis").style.display ="none" 
			    End If
      		  End If  
	    	</SCRIPT>
          </TD>
        </TR>
      </TABLE>
    </TD>
  </TR>

  <!-- Termin-Flag = False -->
  <SCRIPT type="text/vbscript">
    If m_Anzeige = false then
      document.GetElementbyId("TabTermin").style.display ="none" 
    Else
      '--- die Überschrift soll auch angezeigt werden, wenn keine Daten vorhanden sind
      if m_blnShowTermin = False then
        document.GetElementbyId("TabTermin").style.display ="none"
      End If
    End If
  </SCRIPT>  

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">  
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Datum, Vorlage -->
  <TR class="notiz" id="TabDatum">  
    <TD class="titelzelle_main" valign="top" align="left">                                     
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5;" cellspacing="0">
        <TD class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Datum")</SCRIPT></TD>                           <!-- Überschrift "Datum" -->
        <TD class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD align="left" valign="top"> 
	  <TABLE border="0" cellpadding="0" cellspacing="0" style="margin-bottom: 7"> 
        <TR> 
      	  <TD class="sonstige_zelle" valign="top"><P style="margin-top: 3"><SCRIPT type="text/vbscript">WriteTranslate("von%@%Datum")</SCRIPT></TD>                         
      	  <!-- Überschrift "von" -->
          <TD width="10" align="center">&nbsp;</TD>                
          <TD align="left" valign="top">                             <!-- Datum von -->
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">  
	  	      If m_blnShowDatum = True then
			    If not(m_rsAkt.Fields("DATUM") & "" = "") then
			      document.write "<span class='textbox'>" & m_oHTML.DatumFormatieren(m_rsAkt.Fields("DATUM")) & "</span>"
                  m_blnAnzeigenFlag = True 
      		    End If  
      		  End If
	    	</SCRIPT>
          </TD>
          <TD width="10%" align="center">&nbsp;&nbsp;</TD>                
          <TD class="sonstige_zelle" valign="top"><P style="margin-top: 3"><SCRIPT type="text/vbscript">WriteTranslate("bis%@%Datum")</SCRIPT></TD>                         
          <!-- Überschrift "bis" -->
          <TD width="10" align="center">&nbsp;</TD>                
          <TD align="left" valign="top">                             <!-- Datum bis -->
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">  
		 	  If m_blnShowDatum = True then
			    If not(m_rsAkt.Fields("DATUM_BIS") & "" = "") then
			      document.write "<span class='textbox'>" & m_oHTML.DatumFormatieren(m_rsAkt.Fields("DATUM_BIS")) & "</span>"
                  m_blnAnzeigenFlag = True
			    End If
      		  End If  
	    	</SCRIPT>
          </TD>
          <TD width="10%" align="center">&nbsp;&nbsp;</TD>
          <TD id=TextVorlage class="sonstige_zelle" valign="top"><P style="margin-top: 3"><SCRIPT type="text/vbscript">WriteTranslate("Wiedervorlage")</SCRIPT></TD>      
          <!-- Überschrift "Vorlage" -->
          <TD width="10" align="center">&nbsp;</TD>                
          <TD align="left" valign="top">           <!-- Daten Vorlage -->
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">  
		      If m_blnShowDatum = True then
		        If not(m_rsAkt.Fields("VORLAGE") & "" = "") then
		          document.write "<span class='textbox'>" & m_oHTML.DatumFormatieren(m_rsAkt.Fields("VORLAGE")) & "</span>"
			      m_blnAnzeigenFlag = True
			    End If
			    If m_rsAkt.Fields("VORLAGE") & "" = "" then
	   		      document.GetElementbyId("TextVorlage").style.display ="none" 
	   		    End If
      		  End If  
	    	</SCRIPT>
       	  </TD>
        </TR>
      </TABLE>
    </TD>
  </TR>

  <!-- Datums-Flag = False -->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabDatum").style.display ="none" 
    Else
      '--- die Überschrift soll auch angezeigt werden, wenn keine Daten vorhanden sind
      If m_blnShowDatum = False then
        document.GetElementbyId("TabDatum").style.display ="none" 
      End If
    End If
  </SCRIPT>

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">  
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Offerten-Nachweis -->
  <TR class="notiz" id="TabNachweis"> 
    <TD class="titelzelle_main" valign="top" align="left"> 
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=TXT1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Nachweis")</SCRIPT></TD>                        <!-- Überschrift "Nachweis" -->
        <TD id=TXT2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD valign="top" id=NachweisText align="left">                           <!-- Daten Nachweis -->
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">  
        If m_blnShowNachweis = True then
          OffertenNachweis m_rsAkt 
          m_blnAnzeigenFlag = True
      	End If  
	  </SCRIPT>
    </TD>
  </TR>

  <!-- Nachweis-Flag = False -->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabNachweis").style.display ="none" 
    Else
      If m_blnShowNachweis = False then
        document.GetElementbyId("TabNachweis").style.display ="none" 
      End If
    End If
  </SCRIPT>
  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">  
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Merkmale -->
  <TR class="merkmal" id="TabMerkmale"> 
    <TD class="titelzelle_main" valign="top" align="left"> 
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=MKM1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Merkmale")</SCRIPT></TD>                <!-- Überschrift "Merkmal" -->
        <TD id=MKM2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD vAlign="top" id=MerkmaleText align="left">                   <!-- Merkmal-Daten -->
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">                    
        If m_blnShowMerkmal = True then
          Dim Zaehler
          Zaehler = 1
          document.write "<span class='textbox'>"
          do while not m_rsMKM.EOF
            if Zaehler = 1 then
             
              
     	      document.write TranslateValue(2,m_rsMKM.Fields("MERKMAL"))                     
 			else
 			  document.write ", " & TransLateValue(2,m_rsMKM.Fields("MERKMAL"))                     			    	  
			End If   
	        Zaehler = Zaehler + 1
			m_blnAnzeigenFlag = True
            m_rsMKM.MoveNext
          loop
          document.write "</span>"
     	End If  
	  </SCRIPT>
    </TD>
  </TR>

  <!-- Merkmal-Flag = False-->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabMerkmale").style.display ="none" 
    Else
      '--- die Überschrift soll auch angezeigt werden, wenn keine Daten vorhanden sind
      If ((m_blnShowMerkmal = False) or (m_rsMKM.RecordCount < 1)) then
        document.GetElementbyId("TabMerkmale").style.display ="none" 
      End If
    End If
  </SCRIPT>  

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">  
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- E-Mail-Daten Von, An, CC und BCC-->
  <TR class="notiz" id="TabEMail"> 
    <TD class="titelzelle_main" valign="top" align="left">                                     
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id="xxx1" class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("E-Mail")</SCRIPT></TD>             
        <TD id="xxx2" class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD vAlign="top" align="left"> 
      <TABLE id="TabVonAn" border="0" cellspacing="0" cellpadding="0">
        <TR> 
          <TD class="sonstige_zelle" valign="top" width="20px"><P style="margin-top: 3"><SCRIPT type="text/vbscript">WriteTranslate("An%@%Person")</SCRIPT></TD>
          <TD id="an" align="left" valign="top" >                          
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">
              If not(m_strDSN& "" = "") then
                If m_blnShowAkt = True then
		          If not(m_rsAkt.Fields("MAILTO") & "" = "") then
                    document.write "<span class='textbox'>" & EMailReplace(m_rsAkt.Fields("MAILTO")) & "</span>"
  			        m_blnAnzeigenFlag = True
                  End If
                End If
              End If 
            </SCRIPT>
          </TD>
          <TD>&nbsp;&nbsp;&nbsp;&nbsp;</TD>
          <TD class="sonstige_zelle" valign="top" width="20px"><P style="margin-top: 3"><SCRIPT type="text/vbscript">WriteTranslate("Von%@%Person")</SCRIPT></TD>
          <TD id="von" align="left" valign="top" >
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">
              Dim strText
              If not(m_strDSN& "" = "") then
                If m_blnShowAkt = True then
		          If not(m_rsAkt.Fields("MAILFROM") & "" = "") then
                    document.write "<span class='textbox'>" & EMailReplace(m_rsAkt.Fields("MAILFROM")) & "</span>"
  				    m_blnAnzeigenFlag = True
                  End If
                End If
              End If 
            </SCRIPT>
       	  </TD>
        </TR>
      </TABLE>
      <SCRIPT type="text/vbscript">  
        If m_Anzeige = false then
          document.GetElementbyId("TabEMail").style.display ="none" 
        Else
          If ((m_blnShowAkt = False) or (m_rsAkt.Fields("MAILFROM") & "" = "" and m_rsAkt.Fields("MAILTO") & "" = ""))  then
            document.GetElementbyId("TabEMail").style.display ="none" 
          End If
        End If
      </SCRIPT>  
            
      <TABLE id="TabCC" border="0" cellspacing="0" cellpadding="0">
        <TR> 
          <TD class="sonstige_zelle" valign="top" width="20px"><P style="margin-top: 3">Cc</TD>                       
          <TD align="left" valign="top">
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">
              If not(m_strDSN& "" = "") then
                If m_blnShowAkt = True then
                  If not(m_rsAkt.Fields("CC") & "" = "")  then
                    document.write "<span class='textbox'>" & EMailReplace(m_rsAkt.Fields("CC")) & "</span>"
  			        m_blnAnzeigenFlag = True
                  End If
                End If
              End If 
            </SCRIPT>
          </TD>
        </TR>
      </TABLE>
      <SCRIPT type="text/vbscript">  
        If m_Anzeige = false then
          document.GetElementbyId("TabCC").style.display ="none" 
        Else
          If ((m_blnShowAkt = False) or (m_rsAkt.Fields("CC") & "" = ""))  then
            document.GetElementbyId("TabCC").style.display ="none" 
          End If
        End If
      </SCRIPT>  
                  
      <TABLE id="TabBCC" border="0" cellspacing="0" cellpadding="0">
        <TR> 
          <TD class="sonstige_zelle" valign="top" width="20px"><P style="margin-top: 3">Bcc</TD>                       
          <TD align="left" valign="top">
            <P style="margin-top: 3">
            <SCRIPT type="text/vbscript">
              If not(m_strDSN& "" = "") then
                If m_blnShowAkt = True then
                  If not(m_rsAkt.Fields("BCC") & "" = "")  then
                    document.write "<span class='textbox'>" & EMailReplace(m_rsAkt.Fields("BCC")) & "</span>"
  			        m_blnAnzeigenFlag = True
                  End If
                End If
              End If 
            </SCRIPT>
          </TD>
       	</TR>
      </TABLE>
      <SCRIPT type="text/vbscript">  
        If m_Anzeige = false then
          document.GetElementbyId("TabBCC").style.display ="none" 
        Else
          If ((m_blnShowAkt = False) or (m_rsAkt.Fields("BCC") & "" = ""))  then
            document.GetElementbyId("TabBCC").style.display ="none" 
          End If
        End If
      </SCRIPT>  
    </TD>
  </TR>

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
   m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Dateianhang -->
  <TR class="notiz" id="TabAttach"> 
    <TD class="titelzelle_main"> 
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=ATTACH1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Anhänge")</SCRIPT></TD>
        <TD id=ATTACH2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD>
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">AttachAusgeben m_rsBlob</SCRIPT>
    </TD>
  </TR>

  <!-- Attach-Flag = False oder keine Dateianhänge vorhanden -->
  <P style="margin-top: 3">
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabAttach").style.display ="none" 
    Else
      If ((m_blnShowAttach = False) or (m_rsBlob.RecordCount < 1)) then
        document.GetElementbyId("TabAttach").style.display ="none" 
      End If
    End If
  </SCRIPT>

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Archiv -->
  <TR class="notiz" id="TabArchiv"> 
    <TD class="titelzelle_main"> 
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=ARCHIV1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Archiv")</SCRIPT></TD>               <!-- Überschrift "Archiv" -->
        <TD id=ARCHIV2 class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD>                                               <!-- Archiv-Daten -->
      <P style="margin-top: 3">
       <SCRIPT type="text/vbscript">ArchivAusgeben m_rsArchiv</SCRIPT>
    </TD>
  </TR>

  <!-- Archiv-Flag = False oder keine Daten vorhanden -->
  <P style="margin-top: 3">
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabArchiv").style.display ="none" 
    Else
      If ((m_blnShowArchiv = False) or (m_rsArchiv.RecordCount < 1))  then
        document.GetElementbyId("TabArchiv").style.display ="none" 
      End If
    End If
  </SCRIPT>

  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Details -->
  <TR class="notiz" id="TabDetails"> 
    <TD class="titelzelle_main" valign="top" align="left"> 
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Details")</SCRIPT></TD>                         <!-- Überschrift "Details" -->
        <TD class="titelzelle2"><P>&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD align="left" valign="top">                                               
	  <!-- Detail-Daten -->
      <!-- Nachlesen der Detailbezeichnungen und -werte; Link auf Feldtypen Adresse legen; Datendarstellung
           in einer eigenen Tabelle mit einer Spalte für Detail-Bezeichnungen, Leerspalte und Spalte für Detail-Werte-->
      <P style="margin-top: 3">
      <SCRIPT type="text/vbscript">
		DetailsAusgeben
	  </SCRIPT>
    </TD>
  </TR>
  <!-- Detail-Flag = False oder mehre Detail-Daten vorhanden -->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabDetails").style.display ="none" 
    Else
      If ((m_blnShowDetails = False) or (m_rsDetails.RecordCount < 1)) then
        document.GetElementbyId("TabDetails").style.display ="none" 
      End If
    End If
  </SCRIPT>  
  <!-- Leerzeile -->
  <SCRIPT type="text/vbscript">
    If blnAnzeigenFlag = True then
      LeerzeileEinfuegen
    End If  
    m_blnAnzeigenFlag = False
  </SCRIPT>


  <!-- Betreff -->
  <TR class="notiz" id="TabBetreff"> 
    <TD class="titelzelle_main" valign="top" align="left"> 
      <TABLE style="x-cell-content-align: top; border-spacing: 0px; margin-top: 0pt; margin-bottom: 5pt;" cellspacing="0">
        <TD id=TXT1 class="titelzelle1"><SCRIPT type="text/vbscript">WriteTranslate("Betreff")</SCRIPT></TD>                      
        <TD id=TXT2 class="titelzelle2">&nbsp;&nbsp;</TD>
      </TABLE>
    </TD>
    <TD valign="top" id=BetreffText align="left">                        
      <P class="betreff" style="margin-top: 3">

      <SCRIPT type="text/vbscript">  
        If m_blnShowBetreff = True then
          BetreffAusgeben m_rsAkt 
          m_blnAnzeigenFlag = True
        End If  
	  </SCRIPT>

    </TD>
  </TR>

  <!-- Betreff-Flag = False -->
  <SCRIPT type="text/vbscript">  
    If m_Anzeige = false then
      document.GetElementbyId("TabBetreff").style.display ="none" 
    Else
      If ((m_blnShowBetreff = False) or (m_rsAkt.Fields("subject") & "" = "")) then
        document.GetElementbyId("TabBetreff").style.display ="none" 
      End If
    End If
  </SCRIPT>
	
	<!-- Leerzeile -->
	<SCRIPT type="text/vbscript">
		If blnAnzeigenFlag = True then
		  LeerzeileEinfuegen
		End If  
		m_blnAnzeigenFlag = False
	</SCRIPT>
	

</TABLE>

<table class="tabellenotiz" id="NotizTab" border="0" width="100%" cellspacing="1" cellpadding="0">
	<tr>
		<td>
			<table cellSpacing="0" cellPadding="5" width="100%" border="0" bgcolor="#FFFFFF">
				<tr class="notiz" id="TabNotiz">
					<td id="NotizText" vAlign="top" align="left" width="100%"></td>
				</tr>
			</table>
		</td>

    <!-- Notiz-Daten -->
    <!-- Geändert ckrebs 25.3. um Sicherheit gegen Fremde Skripte herzustellen  -->
    <!-- Geändert D.Parschau 02.12.2004 - Wegen Scriptfehlern; wenn HTML mit Events im Notizfeld stehen -->
	<SCRIPT type="text/vbscript">  

  	dim collBadElements 
    
  	If m_blnShowNotiz = True then
  	
	      If Not (m_rsAkt.Fields("NOTIZ") & "" = "") then
		 	
		 	On Error Resume Next

             'Verwendung von 'innerhtml' löst parsen aus  - scripte werden erkannt und können entfernt werden 
             
             strText = "<P style='margin-top: 3'>"
             strText = strText & m_oHTML.TextFormatieren(m_rsAkt.Fields("NOTIZ"), m_rsAkt.Fields("DSN"))
             strText = Replace(strText, " onclick", " onclick_Event", 1, -1, 1)
             strText = Replace(strText, " onmouseover", " onmouseover_Event", 1, -1, 1)

             strText = Replace(strText, "<html", "<DIV", 1, -1, 1)
             strText = Replace(strText, "/html>", "/DIV>", 1, -1, 1)

             strText = Replace(strText, "<body", "<DIV", 1, -1, 1)
             strText = Replace(strText, "/body>", "/DIV>", 1, -1, 1)


		     document.GetElementbyId("NotizText").innerhtml = strText
  	       
 			If (m_off.util.IniGet("HTMLMODE", "Safe", "1", m_off.folder & "\FLOWFACT.INI")) = "1" Then   'hier kein Val!!!
        	       
				'Skripte nur aus dem Notiztext
				Set collBadElements = document.GetElementbyId("NotizText").all.tags("script")
				For R = 0 To collBadElements.length - 1
					collBadElements.item(R).removeNode
				Next
				
				'Applets immer entfernen
				Set collBadElements = Document.applets
				For R = 0 To collBadElements.length - 1
					collBadElements.item(R).removeNode
				Next
				
				'eingebundene Steuerelemente
				Set collBadElements = document.GetElementbyId("NotizText").all.tags("object")
				For R = 0 To collBadElements.length - 1
					collBadElements.item(R).removeNode
				Next
          
		  End If

       	  m_oHTML.GrafikenEinbinden m_rsAkt.Fields("DSN"), "AKT", document
		  m_blnAnzeigenFlag = True
	    
	    End If 
	    
      End If  
      
	</SCRIPT>

	</tr>

	<!-- Notizen-Flag = False oder keine Notiz-Daten vorhanden -->
	<SCRIPT type="text/vbscript">  
	If m_Anzeige = false then
		document.GetElementbyId("TabNotiz").style.display ="none" 
		document.GetElementbyId("NotizTab").style.display ="none" 
	Else
		If ((m_blnShowNotiz = False) Or (m_rsAkt.Fields("NOTIZ") & "" = "")) Then
			document.GetElementbyId("TabNotiz").style.display ="none"
			document.GetElementbyId("NotizTab").style.display ="none" 
		End If
	End If
	</SCRIPT>  
	
	<!-- Leerzeile -->
	<SCRIPT type="text/vbscript"> 
	If blnAnzeigenFlag = True then
		LeerzeileEinfuegen
	End If  
	m_blnAnzeigenFlag = False
	</SCRIPT>

</table>

<!-- EVENTS
Versch. Daten sind mit einem Link verbunden. Über die entspr. Procedure werden
entspr. Formulare oder Programme aufgerufen und die Aktivitätendaten übergeben 
-->

<SCRIPT ID="clientEventHandlersVBS" LANGUAGE="vbscript">

'----- öffnet das Aktivitätenfenster
Sub LinkAkt1_onclick
	m_off.panes("F_AKT").findDSN m_rsAkt.Fields("DSN")   
	m_off.panes("F_AKT").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet Vorgangsfenster
Sub LinkVorgang1_onclick
	m_off.panes("F_AKT").findvorgang  m_rsAkt.Fields("DSN") 
	m_off.panes("F_AKT").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet Archiv
Sub LinkArchiv1_onclick
	m_off.panes("F_ARCHIV").find "Archiv.AKT_DSN = '" & m_rsAkt.Fields("DSN")  & "'"
	m_off.panes("F_ARCHIV").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet das Adressfenster mit der 1. Adresse
Sub LinkAdresse1_onclick
	m_off.panes("F_AD").findDSN m_rsAkt.Fields("AD_DSN")  
	m_off.panes("F_AD").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet das Adressfenster mit der 2. Adresse
Sub LinkAdresse2_onclick
	m_off.panes("F_AD").findDSN m_rsAkt.Fields("AD_B_DSN")  
	m_off.panes("F_AD").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet das Adressfenster mit der Adresse aus den Details (Feldart = Adresse)
Sub ShowLinkAD(id)
	m_strLinkDSN = document.GetElementbyId("FeldArtAdresse" & id).name

	m_off.panes("F_AD").findDSN m_strLinkDSN
	m_off.panes("F_AD").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet das Objektfenster
Sub LinkObjekt_onclick
	m_off.panes("F_OBJ").findDSN m_rsAkt.Fields("OBJ_DSN")  
	m_off.panes("F_OBJ").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet das Projektfenster
Sub LinkProjekt_onclick
	m_off.panes("F_PROJEKTE").findDSN m_rsAkt.Fields("PROJEKTE_DSN")  
	m_off.panes("F_PROJEKTE").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet das Vertrag
Sub LinkVertrag_onclick
	m_off.panes("F_VERTRÄGE").findDSN m_rsAkt.Fields("Verträge_DSN")  
	m_off.panes("F_VERTRÄGE").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet das Aktenfenster
Sub LinkAkten_onclick
	m_off.panes("F_AKTEN").findDSN m_rsAkt.Fields("AKTEN_DSN")  
	m_off.panes("F_AKTEN").show
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 
End Sub

'----- öffnet den entspr. Blob-Anhang
'----- die Procedur wird bei jedem Link aus der Tabelle Attach aufgerufen
Sub TabAttach_onclick
	Dim Durchlauf
	Dim SatzNr
	
	'-- welcher Satz wurde zur Anzeige ausgewählt
	SatzNr = window.event.srcElement.parentElement.parentElement.SectionRowIndex
	Durchlauf = 0
	m_rsBlob.MoveFirst
	
	Do While SatzNr <> Durchlauf
		m_rsBlob.MoveNext
		Durchlauf = Durchlauf + 1
	loop

	m_oFF.StartDoc m_oFF.BLOB.OpenBlobFile(m_rsBlob.Fields("DSN"), m_rsAkt.Fields("DSN"),  m_rsBlob("lngTyp"))
	window.event.returnValue = false '-- verhindet die tatsächliche Ausführung des <href> 

End Sub

</SCRIPT>  

</BODY>

</HTML>