Stötte på ett problem när jag skulle testa att skapa ett API till mitt ovnings bolag.

Försökte utföra följande kod för att updatera info på en kund:

-------------------------------------------------------------------------------------------------

Static SPCSerror As AdkNetWrapper.Api.ADKERROR

Dim pData As Integer

pData = AdkNetWrapper.Api.AdkCreateData(AdkNetWrapper.Api.ADK_DB_CUSTOMER)

MessageBox.Show(pData)

SPCSerror = AdkNetWrapper.Api.AdkSetStr(pData, AdkNetWrapper.Api.ADK_CUSTOMER_NUMBER, "Testkund")

If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If

SPCSerror = AdkNetWrapper.Api.AdkSetDouble(pData, AdkNetWrapper.Api.ADK_CUSTOMER_INVOICE_DISCOUNT, 15)

If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If
SPCSerror = AdkNetWrapper.Api.AdkUpdate(pData)

MessageBox.Show(SPCSerror.lRc)
If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If

--------------------------------------------------------------------------------------------
(Detta är ett exempel tagit från SPCS manual)

Men får följande fel när jag försöker köra "AdkUpdate":

"ingen träff på angivet sökvärde"

Någon idé?

/mvh Oskar

Finns kunden 'Testkund' upplagd i det företag du ansluter till?

Japp, han finns upplagd...

Fick detta att fungera:

Byter namn på en kund som redan är regristrerad
-------------------------------------------------------------------------------------------------------

Static SPCSerror As AdkNetWrapper.Api.ADKERROR

Dim pData As Integer

pData = AdkNetWrapper.Api.AdkCreateData(AdkNetWrapper.Api.ADK_DB_CUSTOMER)

SPCSerror = AdkNetWrapper.Api.AdkSetStr(pData, AdkNetWrapper.Api.ADK_CUSTOMER_NUMBER, 108)

MessageBox.Show(SPCSerror.lRc)
If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If

SPCSerror = AdkNetWrapper.Api.AdkSetStr(pData, AdkNetWrapper.Api.ADK_CUSTOMER_NAME, "NewTest")

MessageBox.Show(SPCSerror.lRc)
If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If

SPCSerror = AdkNetWrapper.Api.AdkUpdate(pData)

MessageBox.Show(SPCSerror.lRc)
If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If
-------------------------------------------------------------------------------------------------------

Men det jag vill kunna är egentligen att ändra saldo på hur många artiklar det finns på lager,
detta får jag dock inte att fungera...
-------------------------------------------------------------------------------------------------------

Static SPCSerror As AdkNetWrapper.Api.ADKERROR

Dim pData As Integer

pData = AdkNetWrapper.Api.AdkCreateData(AdkNetWrapper.Api.ADK_DB_ARTICLE)

'Test 1
SPCSerror = AdkNetWrapper.Api.AdkSetData(pData, AdkNetWrapper.Api.ADK_ARTICLE_NUMBER, 100)

'Test 2
'SPCSerror = AdkNetWrapper.Api.AdkSetDouble(pData, AdkNetWrapper.Api.ADK_ARTICLE_NUMBER, 100)

MessageBox.Show(SPCSerror.lRc)
If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If

'Test 1
SPCSerror = AdkNetWrapper.Api.AdkSetStr(pData, AdkNetWrapper.Api.ADK_ARTICLE_STOCK_VALUE, 99)

'Test 2
'SPCSerror = AdkNetWrapper.Api.AdkSetStr(pData, AdkNetWrapper.Api.ADK_ARTICLE_QUANTITY_IN_STOCK, "11")

If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If

SPCSerror = AdkNetWrapper.Api.AdkUpdate(pData)

MessageBox.Show(SPCSerror.lRc)
If SPCSerror.lRc > 0 Then
MessageBox.Show("False")
Else
MessageBox.Show("True")
End If

-------------------------------------------------------------------------------------------------------
Den klagar på att det är fel data type...

Ser du felet?

/mvh Oskar

Hära har jag kommit upp med svaret:

Man kan inte ändra direkt på denna plats, utan man måste göra en manuel in lev.

igenom ADK_DB_MANUAL_DELIVERY_IN

=)

/mvh Oskar