Adding Journal Entry throgh Incoming Payments,

Hi Friend,
              I need Help ....
I need to create a journal entry using incoming payment. I have different types of deduction Accounts. All deductions need to display in journal entry and also its reflect in Invoice.Then only invoice going to close.
Dim junEntry As SAPbobsCOM.JournalEntries
Ex :-
:::::Journal Entry::::::
*Account Code/BpName*                *AccountName*          *DR*            *CR*
620005                                Deduction1            10
620006                                Deduction2           100
620007                                Deduction3           100
620008                                Deduction4           115
620009                                Deduction5            10
6200010                              Deduction6             10
6200011                         Cash Recived               655             1000
                                                          1000             1000
        Dim decDebi As Decimal = 0
        Dim dtCount As Integer = dtDataTable.Rows.Count - 1
        junEntry = objAddOnCentral.objCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oJournalEntries)
        junEntry.Memo = strBpCode
        junEntry.ReferenceDate = Now.Date
        For intLoop = 0 To dtDataTable.Rows.Count - 1
            junEntry.Lines.AccountCode = dtDataTable.Rows(intLoop)("Account").ToString()
            junEntry.Lines.Debit = dtDataTable.Rows(intLoop)("Amount").ToString()
            decDebi += CDec(dtDataTable.Rows(intLoop)("Amount").ToString())
            junEntry.Lines.Add()
        Next
        junEntry.Lines.ShortName = strBpCode.Replace("Incoming Payments", "")
        junEntry.Lines.Credit = decDebi
        junEntry.Lines.Add()
        intErrCode = junEntry.Add()
        If intErrCode <> 0 Then
            objAddOnCentral.objApplication.StatusBar.SetText("" & objAddOnCentral.objCompany.GetLastErrorCode & " " & objAddOnCentral.objCompany.GetLastErrorDescription & "", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
            Return False
        End If

Hi,
I thing no need addon once u add incoming payment automatically invoice will close and JE also will pass.
Regards,
Siva

Similar Messages

Background Journal entry for Incoming payment

Dear Experts,
Would you please help me in how to get the journal entry for an incoming payment entered as "payment on account".
The relationship map does not show this, but I can see the credit entry for the customer is passed.
same happens for incoming payment made for specific AR invoices.
SAP Doc says...
Result
An incoming payment document is created.
A journal entry that credits the customer and the tax accounts (if tax is involved), and debits the receivable account, is created.
The journal entries of the incoming payments and the paid invoices are reconciled.
The paid invoices are closed; they no longer appear in the Open Items list and in the Incoming Paymentswindow as documents for payment.
So how to check the journal entries for incoming payments.
Regards
Message was edited by: Suman Roy

Hi,
To see journal entry, drill down arrow at transaction no of incoming payment window.
Thanks & Regards,
Nagarajan

Query for Journal Entry as Incoming/Outgoing Payment

Hi all,
I need a query that returns all journal entries that are incoming/outgoing payments.
I have not found anything in the journal entries tables that marks it as a payment.
thanks,
Lucas.

Hi Lucas,
I am afraid 2 queries could be more meaningful. That might be more convenient:
Incoming:
SELECT T0.TransId as [Journal Entry#],
T0.RefDate as [Posting Date],
T0.BaseRef as [Incoming Payment #],
Isnull(T1.AcctName,T0.ShortName) as [GL Account Name/Vendor Code],
T0.Credit
from JDT1 T0
Left JOIN OACT T1 ON T1.AcctCode= T0.ShortName
where T0.TransType=24 AND
T0.Credit > 0
Order By T0.RefDate
Outgoing:
SELECT T0.TransId as [Journal Entry#],
T0.RefDate as [Posting Date],
T0.BaseRef as [Outgoing Payment #],
Isnull(T1.AcctName,T0.ShortName) as [GL Account Name/Vendor Code],
T0.debit
from JDT1 T0
Left JOIN OACT T1 ON T1.AcctCode= T0.ShortName
where T0.TransType=46 AND
T0.debit > 0
Order By T0.RefDate
Thanks,
Gordon

Problem adding Journal entry

Hi everybody.
We've developed an addon for B1 2007A PL 42 and we are facing some concurrency issues.
Some background information:
The add-on has to create a Journal Entry every time an Incoming Payment is made for an Invoice that is in foreign currency and the exchange rate of the day the document is paid is different of that of the Invoice.
This is acheived by catching a successful Incoming Payment using the following code:
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED && pVal.FormTypeEx == "170"
                && pVal.ItemUID == "1" && pVal.Action_Success && !pVal.BeforeAction)
//some calculations
oJEntry.Add();
This works fine except when 2 (or more) users simultaneously add an Incoming Payment (i.e They click the ADD button (almost) at the same time)
When this happens only the last Journal Entry gets added.
Any idea how to solve this?
Thanks

try to use transactions in je adding as
If Not SAP.Connection.oCompany.InTransaction Then
                SAP.Connection.oCompany.StartTransaction()
End If
create je
if its added ok, use¨
If SAP.Connection.oCompany.InTransaction Then
                    SAP.Connection.oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit)
                End If
otherwise
If SAP.Connection.oCompany.InTransaction Then
                    SAP.Connection.oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_RollBack)
                End If

Negative Document Entry in Incoming Payment Form

Hello All,
I have faced an unique problem in Incoming Payment Form in SAP while entering the document for the Period 2014 the document is getting saved but while checking it from the table the DocEntry field is getting added in Negative values like '-1','-2' and soon .Document No. is getting added in normal manner this peculiar thing is happening in this specific Period not for the other period.
Negative DocEntry will create any problem or not ?? How to resolve this problem.
Thanks ,
Rajeev

Hi,
Please check SAP note:
1310893 - Negative docentry is used when there are overlapping
numbers
Thanks & Regards,
Nagarajan

How to generate a single Journal Entry for multiple Payments

Hi All
When creating a payment batch with 2 notes for example, would be possible in the accounting GL batch summarize only the line of Cash?
Thanks

Hi
I made the settings below:
1º Journal Line Type
Merge Matching Lines = No
Transfer to GL = Summary
for all lines type of Event Class: Payments
2º Accounting Setup Manager
Update Accounting Options for Applications Payables
General Ledger Journal Entry Summarization = Summarize by GL Period
Redid the Lot Payment with two notes from two different suppliers to verify XLA_AE_LINES not summarized lines CASH accounting class code.
Is it not possible to summarize the lines of CASH?

Reversing Single Entry in Incoming Payment

Dear Experts,
I want to reverse a single invoice entry from an incoming payment which contains knocking off multiple invoices.
Let's suppose i have knocked-off Invoice 1,2, and 3 in an incoming payment, and now i have to reverse the entry of Invoice no. 2.
How can we do this, please help!

Hi Ahmed,
when you paid several invoices with the one payment you created a reconciliation between all these documents. If you just took one of these documents out, you'd have an unbalanced reconciliation, which the application will not allow. Therefore, the correct course of action is to cancel the complete payment, thus making all documents involved available for reconciliation again. You then re-apply the open payment to the correct invoices.
All the best,
Kerstin

Adding journal entry to bussiness partner

Hello There
I am trying to create a journal entry for a business partner.
the issue is because the business partner doesn't appear officially/directly in the chart of account- I get an error for that.
(the property is : jr.Lines.AccountCode )
(when I use an account that appears in the chart of account, everything works fine)
any suggestions?
rgds
HAGAI
jr.Lines.SetCurrentLine(0)
            jr.TaxDate = TAX_DATE
            jr.Lines.AccountCode = cardId
            jr.Lines.Debit = SUM
            jr.Lines.DueDate = DUE_DATE
            ' vje.Lines.Line_ID = 0
            jr.Lines.ReferenceDate1 = Date.Today
            jr.Lines.ShortName = cardName
            jr.Lines.TaxDate = TAX_DATE
            jr.Lines.Add()
            'MsgBox(vje.Lines.Line_ID)
            jr.Lines.SetCurrentLine(1)
            jr.Lines.AccountCode = BANKCODE
            jr.Lines.Credit = SUM
            jr.Lines.DueDate = DUE_DATE
            jr.Lines.ReferenceDate1 = Date.Today
            jr.Lines.ShortName = BANKCODE
            jr.Lines.TaxDate = TAX_DATE
            If lRetCode <> jr.Add() Then
                oCompany.GetLastError(lErrCode, sErrMsg)
                writeToLog(lErrCode, sErrMsg, Date.Today, False)
                Return
            End If

Hi Hagai!
hope that thread helps you to solve your problem:
JournalEntries

Check encashment entry for incoming payment

Dear Viewers,
I would like to know how utillity companies are handling the customer check encashment in FI-CA.
Let's say customer is giving the check. The entry is posted as follows:
Dr. Incoming Check clearing account
Cr. Business partner account.
At the time of uploading the bank statement in FI-CA the should be posted as follows:
Dr. Main bank account
Cr. Incoming Check clearing account
I am trying get the solution in FI-CA for the incoming check encashment. Could anyone please help me to get the soultion for this.
Thanks in advance..
Thanks
Aswin

Dear Natalie,
Thank you so much for your immediate reply on this.
I have tried as you mentioned. But When I upload the bank statement the clearing is not happening in FICA .
Dr Bank A/c,
Cr. Incoming celaring A/c
Our client wants to do the above entry in FI-CA not FICO.
When I upload the bank statement through FF_5 FICA related payments are transferred to FICA but the clearing entry is not happening.
Is there any specific configuration settings are available to post this entry in FICA? If you can send me the help documents, It would be very helpful to understatnd this functionality well..
Thanks in advance for your help.
Thanks
Aswin
Edited by: Aswinkumar.V on Jul 18, 2010 9:18 AM
Edited by: Aswinkumar.V on Jul 18, 2010 9:21 AM

Payment on Account in Incoming payment

Dear All,
We are creating a addon for incoming payment through DI API. We are adding incoming payment based on journal entry and Invoice. While creating this entry in incoming payment, Payment on account checkbox is automatically enabled for the balance amount if the amount of incoming payment is less than the value of Invoice or outstanding in the journal entry. In this scenario we are unable to do the next incoming payment for the same invoice or the same journal entry(Customer outstanding amount). The following is the coding we are using for this purpose. Can any one suggest us as how to solve this problem.?
                                ocompany.GetNewObjectCode(CStr(jeno))
                                oPmt = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oIncomingPayments)
                                oPmt.DocType = SAPbobsCOM.BoRcptTypes.rCustomer
                                sNum = invno
                                oPmt.CardCode = custcode
                                oPmt.Invoices.InvoiceType = SAPbobsCOM.BoRcptInvTypes.it_JournalEntry
                                oPmt.Invoices.DocEntry = jeno
                                oPmt.Remarks = crno
                                oPmt.DocDate = docdate.Date
                                oPmt.DocTypte = SAPbobsCOM.BoRcptTypes.rCustomer
                                oPmt.CashSum = chqsum
                                If oPmt.Add() <> 0 Then
                                    MessageBox.Show(ocompany.GetLastErrorDescription)
                                    SBO_Application.MessageBox("Problem in Payment for Invoice no: " & crno & " Problem found is - " & ocompany.GetLastErrorDescription)
                                Else
                                End If
Regards,
Chandramohan

Hello Thiya,
see this thread: [Re: How to do an incoming payment based on journal entry whit SDK ?]
I did post some example code from the sdk help.
HTH
Regards Teun Aben

Error incomming payment cash

Hi
I have a problem when create a incoming payment from customer
creating journal entry, payment, and add the journal entry on the payment
if the invoice is partially paid the payment is created sucessfully
but if the invoice is not paid send a error
error code:-10
description:Enter valid code [JDT1.ContraAct][line: 1] , 'SN0001' [??????? 173-36]
here ir the code:
                    //creating journal entry
                    var entry = company.GetBusinessObject(BoObjectTypes.oJournalEntries) as JournalEntries;
                    var cuenta = parametros.CodigoCuentaContableAnticiposClienteExportacion;
                    entry.TaxDate = pago.FechaCreacion;
                    entry.ReferenceDate = pago.FechaCreacion;
                    entry.DueDate = pago.FechaCreacion;
                    entry.Reference = "Aplic Anticipo cliente";
                    entry.Memo = "Aplic ANTICIPO CLIENTE";
                    entry.Reference2 = pago.Codigo.ToString();
                    entry.Lines.ShortName = pago.ClientePago.CardCode;
                    entry.Lines.Credit = (double)pago.Anticipado;
                    entry.Lines.TaxDate = entry.TaxDate;
                    entry.Lines.Add();
                    entry.Lines.SetCurrentLine(1);
                    entry.Lines.ShortName = cuenta;
                    entry.Lines.Debit = (double)pago.Anticipado;
                    entry.Lines.TaxDate = entry.TaxDate;
                    var statusPoliza = entry.Add();
                    if (statusPoliza != 0)
                        return;
                    var polizaAnticipo = company.GetNewObjectKey();
                    //creating payment
                    var payment = company.GetBusinessObject(BoObjectTypes.oIncomingPayments) as Payments;
                    payment.CardCode = client;
                    payment.DocDate = pago.FechaCreacion;
                    payment.DocType = BoRcptTypes.rCustomer;
                    payment.DocCurrency = "MXP"
                    var remarks = pago.PagoFacturas.Aggregate<PagoFactura, string>("",(folios, factura) => folios += "," + FolioImpreso).Substring(1);
                    if (remarks.Length > 50)
                        remarks = remarks.Substring(0, 47) + "...";
                    payment.JournalRemarks = remarks;
                    payment.Remarks = pago.Observaciones.Substring(0, pago.Observaciones.Length >= 254 ? 253 : pago.Observaciones.Length);
                    var pagar = pago.MontoPago
                    payment.CashAccount = pago.TipoMercado == TipoMercado.Exportacion ? "_SYS00000000123" : CodigoCuentaContableRedondeo;
                    payment.CashSum = (double)0.01;
                    var line = 0;
                    foreach (var pagoFactura in pago.PagoFacturas)
                        var factura = pagoFactura.FacturaCliente;
                        var folio = "";
                        var monto = 0m;
                        folio = factura.FolioSAP;
                        monto = pagoFactura.Monto
                         if (line != 0)
                            payment.Invoices.Add();
                        payment.Invoices.DocEntry = int.Parse(folio);
                        payment.Invoices.InvoiceType = BoRcptInvTypes.it_Invoice; //BoRcptInvTypes.it_JournalEntry Así se indica que es una poliza
                        payment.Invoices.SumApplied = (double)monto;
                        line++;
                         // add the journal entry on the payment
                        if (line != 0)
                            payment.Invoices.Add();
                        payment.Invoices.DocEntry = int.Parse(polizaAnticipo);
                        payment.Invoices.InvoiceType = BoRcptInvTypes.it_JournalEntry; //Así se indica que es una poliza
                        payment.Invoices.SumApplied = -(double)pago.Anticipado;
                        line++;
                    var status = payment.Add();
I hope that you can help me
i'm usgin .net and DI API 9.0

Gracias por la respuesta alejandro
realmente no es SN0001, lo puse solo de ejemplo
pero el error lo marca en la linea
var status = payment.Add();
y si el error me dice que es algo del asiento contable, pero que se me hace raro es que si la factura ya tiene algo pagado, si registra bien el pago.
y tambien si intento hacer ese mismo pago en sap directamente me marca una advertencia pero si me deja continuar
me dice esto.
a cash account is required, chossing a diferent account may cause inaccurancies in the cash flow report

How to print incoming payment receipt !

Dear all,
I am now want to print incoming payment receipt.
work-flow is : end-user will use Cash journal (FBCJ) or incoming payment (F-28) to enter incoming payment. during posting and after posted document, they want to print out payment receipt.
from Cash journal (FBCJ), they want to using "print receipt" feature with different layout.
so, i don't know how to using correspondence.
i have not experience on using correspondence.
so, i have all of you help to guide me how can we do to create correspondence as our end-user requirement.
thanks you so much !

Quoc,
You can use the correspondence for internal document (SAP09) for printing the document you are posting.
In SPRO go to Financial Accounting --> AR and AP and then customer Account --> Line item and then correspondence.
There you have to attach the form developed by the ABAPer to the correspondence SAP09. ABAPer has to copy the exiting standard foprm attached to the correspondence and do the changes and design the layout as per the requirement.
When you post the document , you have to attach the relavent correspondence (SAP09) to the doc and then go to F.64 tcode and execute with the inputs in the selection screen such as Correspondence, doc number, fiscal year .
Regards..

How to do an incoming payment based on journal entry whit SDK ?

Hello
Somebody have the code for SDK of Business One, how to do an incoming payment based on journal entry?
Tks

Hello Julio,
Here some example code from the SDK helpfile.
Private Sub cmdTest_Click()
   On Error GoTo ErrorHandler
   Dim vCompany As SAPbobsCOM.Company
   'create company object
   Set vCompany = New SAPbobsCOM.Company
   'set paras for connection
   vCompany.CompanyDB = "SBODemo_US"
   vCompany.Password = "manager"
   vCompany.UserName = "manager"
   vCompany.Server = "(local)"
   'connect to database server
   If (0 <> vCompany.Connect()) Then
      MsgBox "Failed to connect"
      Exit Sub
   End If
   Dim nErr As Long
   Dim errMsg As String
   'Set the object's properties
   Dim vPay As SAPbobsCOM.Payments
   Set vPay = vCompany.GetBusinessObject(oIncomingPayments)
   vPay.Address = "622-7"
   vPay.ApplyVAT = 1
   vPay.CardCode = "D10006"
   vPay.CardName = "Card D10004"
   vPay.CashAccount = "288000"
   vPay.CashSum = 0
   'vPay.CheckAccount = "280001"
   vPay.ContactPersonCode = 1
   vPay.DocCurrency = "Eur"
   vPay.DocDate = Now
   vPay.DocRate = 0
   vPay.DocTypte = 0
   vPay.HandWritten = 0
   vPay.JournalRemarks = "Incoming - D10004"
   vPay.LocalCurrency = tYES
   vPay.Printed = 0
   vPay.Reference1 = 8
   vPay.Series = 0
   vPay.SplitTransaction = 0
   vPay.TaxDate = Now
   vPay.TransferAccount = "10100"
   vPay.TransferDate = Now
   vPay.TransferSum = 0
   vPay.Invoices.AppliedFC = 0
   vPay.Invoices.AppliedSys = 0
   vPay.Invoices.DocEntry = 8
   vPay.Invoices.DocLine = 0
   vPay.Invoices.DocRate = 0
   vPay.Invoices.InvoiceType = 13
   vPay.Invoices.LineNum = 0
   vPay.Invoices.SumApplied = 5031.2
   Call vPay.Invoices.Add
   Call vPay.Invoices.SetCurentLine(1)
   vPay.Invoices.AppliedFC = 0
   vPay.Invoices.AppliedSys = 1089.65
   vPay.Invoices.DocEntry = 11
   vPay.Invoices.DocLine = 1
   vPay.Invoices.DocRate = 0
   vPay.Invoices.InvoiceType = it_Invoice
   vPay.Invoices.LineNum = 1
   vPay.Invoices.SumApplied = 1000
   vPay.CreditCards.AdditionalPaymentSum = 0
   vPay.CreditCards.CardValidUntil = CDate("10/31/2004")
   vPay.CreditCards.CreditAcct = "295000"
   vPay.CreditCards.CreditCard = 3
   vPay.CreditCards.CreditCardNumber = "884848448"
   vPay.CreditCards.CreditCur = "EUR"
   vPay.CreditCards.CreditRate = 0
   vPay.CreditCards.CreditSum = 5031.2
   vPay.CreditCards.CreditType = 1
   vPay.CreditCards.FirstPaymentDue = CDate("11/29/2002")
   vPay.CreditCards.FirstPaymentSum = 5031.2
   vPay.CreditCards.LineNum = 0
   vPay.CreditCards.NumOfCreditPayments = 1
   vPay.CreditCards.NumOfPayments = 1
   vPay.CreditCards.OwnerIdNum = "3993939"
   vPay.CreditCards.OwnerPhone = "383838888"
   vPay.CreditCards.PaymentMethodCode = 1
   Call vPay.CreditCards.Add
   Call vPay.CreditCards.SetCurentLine(1)
   vPay.CreditCards.AdditionalPaymentSum = 0
   vPay.CreditCards.CardValidUntil = CDate("10/31/2004")
   vPay.CreditCards.CreditAcct = "295000"
   vPay.CreditCards.CreditCard = 3
   vPay.CreditCards.CreditCardNumber = "884848448"
   vPay.CreditCards.CreditCur = "EUR"
   vPay.CreditCards.CreditRate = 0
   vPay.CreditCards.CreditSum = 1000
   vPay.CreditCards.CreditType = 1
   vPay.CreditCards.FirstPaymentDue = CDate("11/29/2002")
   vPay.CreditCards.FirstPaymentSum = 1000
   vPay.CreditCards.LineNum = 1
   vPay.CreditCards.NumOfCreditPayments = 1
   vPay.CreditCards.NumOfPayments = 1
   vPay.CreditCards.OwnerIdNum = "3993939"
   vPay.CreditCards.OwnerPhone = "383838888"
   vPay.CreditCards.PaymentMethodCode = 1
   If (vPay.Add() <> 0) Then
       MsgBox ("Failed to add a payment")
   End If
   'Check Error
   Call vCompany.GetLastError(nErr, errMsg)
   If (0 <> nErr) Then
       MsgBox ("Found error:" + Str(nErr) + "," + errMsg)
   Else
       MsgBox ("Succeed in payment.add")
   End If
   'disconnect the company object, and release resource
   Call vCompany.Disconnect
   Set vCompany = Nothing
   Exit Sub
ErrorHandler:
   MsgBox ("Exception:" + Err.Description)
End Sub
HTH Regards Teun
Edited by: Teun Aben on Aug 4, 2010 9:00 PM

Incoming Payment / Journal Entry

Hi people
I'm working in 2005 SP01 PL27
I'm trying to do an Incoming Payment based in a Journal Entry.
I have the follow journal entry
Account: 572000 Credit: 185.2 (line 0)
Account C00001 Debit: 185.2 (line 1)
Code is like this
lPago.Invoices.InvoiceType = SAPbobsCOM.BoRcptInvTypes.it_JournalEntry
lPago.Invoices.DocEntry = mRS.Fields.Item("TransID").Value
lPago.Invoices.DocLine = mRS.Fields.Item("Line_ID").Value ' Value (1)
I fill CardCode and anymore mandatory fields, but and error message says me:
Base document card and target document card do not match
Any idea?
Thnx in advance

Hi Juli,
iam programing at this moment a payment tool.
i don't use Invoices.DocLine and its working fine
btw - i think i had a similar problem when i didnt use
oPay.DocType = rCustomer or rSupplier
regards

Include the Journal entry created in Incoming Payments PLD

Hello Experts!!!
Is there a way to include the journal entry created in the Incoming Payments PLD?

hi jennifer,
You can create query print layout designer report using query.
SELECT
T0.TransId, T0.BaseRef, T0.RefDate,
T1.Account, T1.ShortName, T2.AcctName,
T1.Debit, T1.Credit
FROM OJDT T0 INNER JOIN JDT1 T1 ON T0.TransId = T1.TransId and
T1.TransType = 24 INNER JOIN OACT T2 ON T1.Account = T2.AcctCode
WHERE
T0.BaseRef = '[%0]' or T0.RefDate = '[%1]'
Jeyakanthan

Adding Journal Entry throgh Incoming Payments,

Similar Messages

Maybe you are looking for