Skip to main content

Notifications

Community site session details

Community site session details

Session Id :
Microsoft Dynamics SL (Archived)

Can't set AP Vendor Class in SivApplication VB.Net

(0) ShareShare
ReportReport
Posted on by

I am sure that there is a very simple answer to this problem!!

When I attempt to set the Vendor Class, the message event fires. The 6568 Message is a Yes/No message that relates to changing the class & replacing default information (which is the whole point),  MessageResponse = sivMessageResponse.sivMsgRspYes.

After saving the vendor, the class is blank. The default information is *not* updated.

Thanks!

*This post is locked for comments

  • Community Member Profile Picture
    on at
    RE: Can't set AP Vendor Class in SivApplication VB.Net

    This was a fairly simple solution. Since I was creating and editing multiple vendors, I had to create a new vendor document every time that I wanted to edit or add a vendor. Just "saving" the last vendor was not adequate.

  • Community Member Profile Picture
    on at
    RE: Can't set AP Vendor Class in SivApplication VB.Net

    That is the code that wasn't working.

  • Mark E Profile Picture
    6,451 on at
    RE: Can't set AP Vendor Class in SivApplication VB.Net

    I'm trying to do something similar, but in Excel VBA with the SL Object Model.  I've already added the Private Sub SIVApp_Message to the code, but am now trying to figure out how to call the sub when the field is being updated like this:

    SIVApp.Controls("corigdocamt") = Worksheets("APDocSummary").Cells(drow, 4).Value

    Any thoughts?

  • Community Member Profile Picture
    on at
    RE: Can't set AP Vendor Class in SivApplication VB.Net

    Hi Resa

    Try the below code

    Declaration:

    Imports Microsoft.Dynamics.SL.ObjectModel.sivMessageType

    Imports Microsoft.Dynamics.SL.ObjectModel.sivMessageResponse

    Procedure:

    Private Sub SIVApp_Message(ByVal MessageNumber As Long, ByVal MessageText As String, ByVal MessageType As sivMessageType, ByVal MessageResponse As sivMessageResponse)

           If MessageNumber = 6568 Then

               MessageResponse = sivMsgRspYes

           End If

       End Sub

    Thanks

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

Quick Links

Jainam Kothari – Community Spotlight

We are honored to recognize Jainam Kothari as our June 2025 Community…

Congratulations to the May Top 10 Community Leaders!

These are the community rock stars!

Announcing the Engage with the Community forum!

This forum is your space to connect, share, and grow!

Leaderboard > 🔒一 Microsoft Dynamics SL (Archived)

#1
Community Member Profile Picture

Community Member 136

#2
Mohamed Amine Mahmoudi Profile Picture

Mohamed Amine Mahmoudi 102 Super User 2025 Season 1

#3
REUser Profile Picture

REUser 8

Featured topics

Product updates

Dynamics 365 release plans