Imports System
Imports System.Collections
 
Public Class Form1
 
    Dim oCon As Object
    Dim oDatei As Object
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnGO.Click
 
 
 
        Dim Felder As New Collection
        Dim vDummy As Object
        Dim strKey As String
 
        oCon = CreateObject("bzCLConnector.CLConnector")
        oCon.intMandant = 0
        If Not oCon.blnCLConnect Then Exit Sub
 
        oDatei = CreateObject("bzCLConnector.CLDateiZugriff")
        oDatei.oCLConnector = oCon
 
 
        Felder.Add(CreateObject("bzCLConnector.CLData"))
        Felder(Felder.Count).strFeldname = "Vorgang"
        Felder(Felder.Count).strFeldWert = "A"
        Felder(Felder.Count).strTabelle = "Auftraege"
 
        Felder.Add(CreateObject("bzCLConnector.CLData"))
        Felder(Felder.Count).strFeldname = "Kundennummer"
        Felder(Felder.Count).strFeldWert = "00001"
        Felder(Felder.Count).strTabelle = "Auftraege"
 
        Felder.Add(CreateObject("bzCLConnector.CLData"))
        Felder(Felder.Count).strFeldname = "Artikelnummer"
        Felder(Felder.Count).strFeldWert = "1111"
        Felder(Felder.Count).strTabelle = "ArtikelPos1"
 
        Felder.Add(CreateObject("bzCLConnector.CLData"))
        Felder(Felder.Count).strFeldname = "Menge"
        Felder(Felder.Count).strFeldWert = 2
        Felder(Felder.Count).strTabelle = "ArtikelPos1"
 
        Call oDatei.blnNeuenBelegAnlegen(strKey, vDummy, True, Felder)
        Me.btnGO.Text = strKey
        On Error GoTo 0
 
        Call oCon.blnCLDisconnect()
        oDatei = Nothing
        oCon = Nothing
 
 
    End Sub
End Class