ausgelageter Quelltext eines Agenten

Option Public
Option Explicit




Dim session As notessession
Dim db As notesdatabase
Dim context As notesdocument
Dim AttachmentView As notesview
Dim item As notesitem




Sub Initialize

	Dim rueckgabe As String
	Dim AttachmentPath As String
	Dim AttachmentPathTMP As Variant
	Dim Link As notesviewentry
	Dim Names As Variant
	Dim groesse As Variant
	Dim Ansicht As String
	Dim JN As String
	Dim Feld As String
	Dim FeldJN As String
	Dim n,m As Integer

	Set session = New notessession
	Set context = session.documentcontext
	On Error Goto Fehler		

	AttachmentPathTMP = Evaluate("@GetProfileField(""DBProfile"";""DB_Name"")")	
	AttachmentPath = AttachmentPathTMP(0)

	Set db = New notesdatabase("",AttachmentPath )

	For m = 0 To 5

		JN="0"		
		rueckgabe=""		
		Select Case m
		Case 0: Ansicht="Angebot"
			Feld="Feldname"
		Case 1- 5: 'um den Code kürzer zu halten, lass ich das Weg'


		End Select

		Set AttachmentView = db.getview("(Attachmentview"+Ansicht+")")
		Set Link = AttachmentView.Getentrybykey(context.UniversalID)

		If Not (Link Is Nothing) then
		 if (Link.isvalid) Then
			JN="1"			
			Names = Link.columnvalues(2)
			groesse = Link.columnvalues(3)

			For n = 0 To Ubound(Link.columnvalues(2))-1
				rueckgabe = rueckgabe + "<a href="""
				rueckgabe = rueckgabe + "/"+AttachmentPath+"/($all)/"+Link.columnvalues(1)+"/$FILE/"+ Names(n) +"""target=""_blank"">"
				rueckgabe = rueckgabe + Names(n) + " ("+FormatLength(groesse(n))+")</a><br>"
				If (Names(n)="") Then 
					rueckgabe=""
					JN="0"
				End If			
			Next
			Call context.replaceitemvalue(Feld, rueckgabe)
		 end if
		Else
			JN="0"
			Call context.replaceitemvalue(Feld,"")			
		End If
		Call context.replaceitemvalue(FeldJN, JN)
	Next

	Exit Sub

Fehler:
	Call context.replaceitemvalue("Feldname", "Fehler:"+Error()+" in Zeile "+Cstr( Erl() )	)
	Exit Sub	
End Sub




Function FormatLength (laenge As String) As String
'Die Funktion formatiert eine Anzahl an Bytes. Je nach Größe der übergebenen Zahl werden
' "GB", "MB", "KB" oder "Bytes" angezeigt und unterschiedlich viele Nachkommastellen
'abgeschnitten'
	Dim intLaenge As Long

	intLaenge = Val(laenge)

	If (intLaenge >1073741824) Then
		FormatLength = CutSize(Cstr(intLaenge/1073741824),3) + " GB"
	Elseif (intLaenge >1048576) Then
		FormatLength = CutSize(Cstr(intLaenge/1048576),2) + " MB"
	Elseif (intLaenge > 1024) Then
		FormatLength = CutSize(Cstr(intLaenge/1024),1) + " KB"
	Else
		FormatLength = Cstr(intLaenge) + " Bytes"
	End If
End Function




Function CutSize (Laenge As String,Stellen As Integer) As String
	'Schneidet den String nach n Kommastellen ab'
	Dim pPos As Integer

	pPos = Instr(laenge,",")

	If (pPos = 0) Then
		pPos = Instr(laenge,".")
	End If

	If (pPos > 0) Then
		CutSize = Left(Laenge,pPos+Stellen)
	Else
		CutSize = Laenge
	End If
End Function