Einzelnen Beitrag anzeigen
  #4 (permalink)  
Alt 24-10-2007, 12:44
joordiee
 Newbie
Links : Onlinestatus : joordiee ist offline
Registriert seit: Oct 2007
Beiträge: 8
joordiee ist zur Zeit noch ein unbeschriebenes Blatt
Standard

Das ist nicht das Problem, ich will nichts erwzingen. Das ist mir klar, dass einfach der vom Benutzer eingestellte Bildbetrachter gewählt wird, wenn das Vertrags-Sheet geöffnet wird im TIFF format. Das ist auch in Ordnung, so kann ich beim PC des Benutzers für die TIFF Endung einen geeigneten Bildbetrachter zuweisen.

Das Problem ist die Verlinkung der TIFF sheets mit der dazugehörigen DocumentID, ich habe keine Ahnung wie vorgehen...

Ich kann mal den Code Posten wie ich es mit MS Access - VBA Makro - gemacht habe:

Code:
Private Sub KUNDENNAME_DblClick(Cancel As Integer)

    Dim Pfad As String
    Dim Pfad1 As String
    Dim pfadasc As String
    Dim Slash As String
    Dim Datei As String
    Dim Extension As String
    Dim Sheetnr As Integer
    Dim SheetnrA As String
    Dim Extension2 As String
    Dim Extension3 As String
    Dim Exist As Integer
 
Exist = 1
    Pfad1 = fGetPath()
    Slash = "\"
    Datei = Doc_ID
    Extension = "_PAGE_"
    Sheetnr = 1
    SheetnrA = Str(Sheetnr)
    Extension2 = "_.tif"
    Pfad = Pfad1 & Slash & Datei & Extension & SheetnrA & Extension2
    DateiÖffnen "open", Pfad, SW_MAXIMIZE
    Extension3 = ".ASC"
    
    
    Do While (Exist = 1)
	Dim Fso, Dateiname
                Set Fso = CreateObject("Scripting.FileSystemObject")
                Dateiname = Pfad
    If Fso.FileExists(Dateiname) Then
            DateiÖffnen "open", Pfad, SW_MAXIMIZE
            Sheetnr = Sheetnr + 1
            SheetnrA = Str(Sheetnr)
            Datei = Doc_ID
            Extension = "_PAGE_"
            Extension2 = "_.tif"
            Pfad = Pfad1 & Slash & Datei & Extension & SheetnrA & Extension2
            Exist = 1
    
    Else
            If Sheetnr = 1 Then
                pfadasc = Pfad1 & Slash & Datei & Extension3
		Shell ("C:\Windows\Notepad.exe " & pfadasc), vbNormalFocus
            End If
	Exist = 2
    
    End If
    Loop

End Sub
Kann man etwas in diese Richtung auch mit PHP und mysql realisieren?
Mit Zitat antworten