Private Function makeTowerDatei(ArtikelNr As String, ChargenNr As String, _
  Beschreibung As String) As Boolean
 
On Error GoTo fehlerT
 
Dim pfad As String                
Dim strSQL As String
Dim temp1 As String
Dim strDatei As String
Dim UPdArticle As Boolean
Dim RemotePfad As String
 
pfad = Form2.tx_TowerDB
RemotePfad = Form2.tx_towerRemote
 
  Set ACCESS_DB = New ADODB.Connection
  ACCESS_DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pfad
  Set ACCESS_rs = New ADODB.Recordset
 
  strSQL = "SELECT * FROM Carrier WHERE Carrier = '" & ChargenNr & "'"
 
Do
  If ACCESS_DB.State Then
    ACCESS_rs.Open strSQL, ACCESS_DB
    loopend = True
 Else
    loopend = False
    ACCESS_DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pfad
 End If
 DoEvents
Loop Until loopend = True
 
 
  If ACCESS_rs.EOF = True And ACCESS_rs.BOF = True Then
 
   strDatei = "test test"
   Call WriteTowerDatei(RemotePfad & "Create_New_Carrier_" & ChargenNr & _
     ".eto", strDatei)     
   'Schreiben der TowerRemoteDatei um den Carrier zu erstellen
 
  Else
   '
  End If
 
  ACCESS_rs.close   
 
 
 
 
 
 
 
 
 strSQL = "SELECT * FROM Article WHERE Article = '" & ArtikelNr & "'"
 
 ACCESS_rs.Open strSQL, ACCESS_DB  
 If ACCESS_rs.EOF = True And ACCESS_rs.BOF = True Then             
 
 strDatei= "Artikel erstellt" 
    Call WriteTowerDatei(RemotePfad & "Update_Article_" & ArtikelNr & ".eto", _
      strDatei)  
 
  Else
  End If
 
  makeTowerDatei = True
 
fehlerT:
If Err.Number <> 0 Then
   'MsgBox Err.Number & vbCrLf & Err.Description
   Call makeLog("!!!!!Feher in makeTowerDatei!!!!" & vbCrLf & Err.Description & _
     vbCrLf & Err.Source, True)
   Err.Clear
    makeTowerDatei = False
End If
 
   If ACCESS_rs.State Then ACCESS_rs.Close
   If ACCESS_DB.State Then ACCESS_DB.Close
   Set ACCESS_rs = Nothing
   Set ACCESS_DB = Nothing