Skip to Content
author's profile photo Former Member
Former Member

Unable to insert into CredtCard RCT3 table

Dim vPaymnt As SAPbobsCOM.Payments

Set vPaymnt = oCompany.GetBusinessObject(oIncomingPayments)

'Creating the Incoming Payment

vPaymnt.CardCode = "C20000" 'Card Code

vPaymnt.CardName = "Norm Thompson" 'Card name

vPaymnt.DocTypte = rCustomer

vPaymnt.DocDate = Date 'Inv data

vPaymnt.CashSum = 421.1

'Inserting first line

vPaymnt.Invoices.DocEntry = 37 'DocEntry not DocNum

vPaymnt.CashAccount = "_SYS00000000005"

vPaymnt.CreditCards.CardValidUntil = CDate("08/08/2008")

vPaymnt.CreditCards.CreditAcct = "421.1"

vPaymnt.CreditCards.CreditCard = 2

vPaymnt.CreditCards.CreditCardNumber = "4111111111111111"

vPaymnt.CreditCards.CreditSum = 421.1

vPaymnt.CreditCards.CreditType = 1

RetVal = vPaymnt.Add

If RetVal <> 0 Then

oCompany.GetLastError nErr, errMsg

MsgBox nErr & " " & errMsg

Else

MsgBox ("Succeed in payment.add")

End If

Above is the mine code its not working can anyone suggest me why?

Add a comment
10|10000 characters needed characters exceeded

Related questions

2 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Jun 13, 2006 at 12:38 PM

    Hi Sreejith,

    It looks like the problem is with this line:

    vPaymnt.CreditCards.CreditAcct = "421.1"

    You need to specify an account here and it looks like you've put an amount in there.

    Hope it helps,

    Adele

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jun 14, 2006 at 01:18 AM

    Hello Sreejith,

    Remove vPaymnt.CashSum = 421.1, and replace it with vPaymnt.SumApplied = 421.1. Hope this helps...

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.