SQL Datenbank direkt ändern

Question

Hallo Ihr Wissenden.
Habe in unserem B1 ca. 200 Arbeitsgänge angelegt, welche in diversen BOM's enthalten sind.
Es gibt ein User Defined Field in der OITM welches die Performance / h enthält. Aufgrund dieser
Performance wird der Preis für dieses Teil / Arbeitsgang berechnet und in Item Cost eingetragen.
Dieser Betrag steht nun in der OITM im Feld AvgPrice.
Um den Preis zu berechnen habe ich zum einen die Performance/Stunde und einen Durchschnitts-
Stundensatz der Production.
Wenn sich nun dieser Stundesatz ändert, muss bisher jeder Artikel von Hand geöffnet und der
neue Preis eingetragen Werden. Ändert sich die Performance aufgrund von Verbesserungen,
Automation etc. muss der Preis wieder geändert werden.
Dies möchte ich automatisieren.
Mein Gedanke ist folgender:
Lege einen neuen Artikel an, der als Item Cost den aktuellen Stundensatz enthält. Dieser Artikel dient
lediglich dazu diesen Stundensatz im System zu haben und wird sonst nicht verwendet.
Schreibe mir nun eine Routine in VBA, in der ich zum einen den Stundensatz auslese, dann
jeden Arbeitsgang mit diesen Satz neu berechne und das Feld AvgPrice in der OITM neu
schreibe.
Die Frage ist ganz einfach. Bisher habe ich nur Daten aus der Datenbank gelesen und nie
etwas geändert. Was passiert, wenn ich nun das Feld AvgPrice direkt in der OITM ändere?
Noch eine Info. Diese Artikel (Arbeitsgänge) sind NICHT als Lagerartikel deklariert. Das AvgPrice
Feld wird nicht von SAP berechnet, sondern der Preis von uns manuell eingetragen. In Jeder
BOM ist der Arbeitsgang mit Stückzahl 1/Fertigteil eingetragen. Also ein Arbeitsgang für jedes
Fertigteil. 1000 Fertigteile * Preis/Arbeitsgang = direkte Fertigungskosten. Meiner Meinung
nach dürfte es kein Problem sein, das Feld AvgPrice mit einem SQL Update Befehl zu ändern und
nicht über die SAP Maske selbst.
Wäre nett, wenn dies jemand bestätigen könnte, bevor ich die DB abschiesse

Answer 1

Versuch es mal hiermit (ungetestet, Beispiel ItemCode) in VBA:
Function ArtikelKorrekt()
    Dim objCompany As SAPbobsCOM.Company
    Dim objRec As SAPbobsCOM.Recordset
    Dim objItems As SAPbobsCOM.Items
    Dim strErr As String, lngErr As Long
    Dim strItemCode As String
    Dim lngRet As Long
    Dim i As Long
    If objCompany Is Nothing Then Set objCompany = GetSBOCompany()
    Set objRec = objCompany.GetBusinessObject(BoRecordset)
    Call objRec.DoQuery("SELECT ItemCode FROM WHERE 1=1")
    objRec.MoveFirst
    objRec.MoveLast
    objRec.MoveFirst
    i = objRec.RecordCount
    Do While Not objRec.EOF
        Set objItems = objCompany.GetBusinessObject(oItems)
        strItemCode = objRec.Fields("Itemcode").Value
        If objItems.GetByKey(strItemCode) = True Then
            objItems.ItemName = "TEST"
            objItems.Update
            Call objCompany.GetLastError(lngErr, strErr)
            If lngErr <> 0 Then
                MsgBox (strErr & " (" & Trim(str(lngErr)))
            End If
        End If
        objRec.MoveNext
        Debug.Print "Artikel " & strItemCode & " Zeile " & i
        i = i - 1
        DoEvents
    Loop
    objCompany.Disconnect
End Function
Public objCompany As SAPbobsCOM.Company
Public lngErr As Long
Public strErr As String
Public blnKeineMeldungen As Boolean
   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 =
   vCompany.Password =
   vCompany.UserName =
   vCompany.Server =
   vCompany.LicenseServer =
   vCompany.DbServerType =
   vCompany.DbUserName =
   vCompany.DbPassword =
   '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
Ist nur ein BEISPIEL, nicht Deine Lösung.
hdh
Andreas