Intrastat Addon

Question

Hallo,
wir haben in SAP B1 8.81 das Addon Intrastat installiert um die Meldung zu erstellen. Wir haben über das Konfigurationstool ide notwendigen Daten eingetragen und kommen jetzt nicht weiter.
Es gibt noch Konfigurationseinstellungen für GP und Artikel. Wenn ich jedoch darauf gehe, kann ich nur Einstellungen für jeden einzelnen GP/Artikel vornehmen. Da wir mehrere Tausend Kunden und Artikel in der Datenbank haben fällt die manuelle Bearbeitung schon mal weg.
Ich habe auch keine Informationen gefunden zum Importieren der Einstellungen per DTW.
Weiß jemand wie wir die Intrastat Meldung mit dem Addon bewerkstelligen können?
Danke im voraus und viele Grüß

Answer 1

Hallo Thomas,
ein Wort vielleicht zu dem "Gold-Partner" (wir sind ebenfalls einer). Geschenkt wird einem dieses Zertifikat nicht, und man muss es ständig erneuern. Ich denke schon das es etwas mit Qualität zu tun hat. Was euer Projekt angeht - da kann und möchte ich nichts zu sagen.
Inhaltlich: Schau Dir mal diese kleine funktionierende Routine in VB an. Vielleicht hilft Dir diese weiter. (Musst einen Verweis zur DI-API setzen!)
Function KundenKorrekt()
    'Variablen
    Dim objCompany As SAPbobsCOM.Company
    Dim objRec As SAPbobsCOM.Recordset
    Dim strCardCode As String
    Dim i As Long
    Dim strErr As String, lngErr As Long
    ' Erstellen eines Company-Objektes über eine kleine Funktion
    If objCompany Is Nothing Then Set objCompany = GetSBOCompany()
    ' Ein Record-Set zum lesen von SAP - Daten
    Set objRec = objCompany.GetBusinessObject(BoRecordset)
    Call objRec.DoQuery("SELECT CardCode FROM OCRD T0 where cardtype='C'") ' Oder was auch immer... halt SQL
    ' Damit das Zeilenzählen auch wirklich funktioniert...
    objRec.MoveFirst
    objRec.MoveLast
    objRec.MoveFirst
    i = objRec.RecordCount
    Do While Not objRec.EOF
        ' Erstellen eines Busines-Partner Objekts
        Set objBP = objCompany.GetBusinessObject(oBusinessPartners)
        strCardCode = objRec.Fields("CardCode").Value
        If objBP.GetByKey(strCardCode) = True Then ' gefunden :)
            objBP.UserFields.Fields("U_Feldname").Value = 1
            objBP.CardName = objBP.CardName & " Test"
            objBP.Update
            Call objCompany.GetLastError(lngErr, strErr)
            If lngErr <> 0 Then
                MsgBox (strErr & " (" & Trim(Str(lngErr)))
            End If
        End If
        objRec.MoveNext
        Debug.Print "Kunde " & strCardCode & " Zeile " & i
        i = i - 1
        DoEvents
    Loop
    objCompany.Disconnect
End Function
und:
Public Function GetSBOCompany() As SAPbobsCOM.Company
   Dim vCompany As SAPbobsCOM.Company
   'create company object
   Set vCompany = New SAPbobsCOM.Company
   'set paras for connection
   vCompany.CompanyDB = "Datenbank"
   vCompany.Password = "Passwort"
   vCompany.UserName = "Benutzer"
   vCompany.Server = "Server"
   vCompany.LicenseServer = "LicenceServer:30000"
   vCompany.DbServerType = dst_MSSQL2008
   vCompany.DbUserName = "sa"
   vCompany.DbPassword = "sapwd"
   'connect to database server
   If (0 <> vCompany.Connect()) Then
        Call vCompany.GetLastError(lngErr, strErr)
        MsgBox "Fehler bei Connect: " & strErr
      Set GetSBOCompany = Nothing
   Else
      Set GetSBOCompany = vCompany
      MsgBox (vCompany.CompanyName & vbCrLf & "DB-Name " & vCompany.CompanyDB & vbCrLf & "Server " & vCompany.Server & " USER " & vCompany.UserName)
   End If
End Function
hdh
Andreas