Jiwa

Hi,

When a sales order payment is created, Jwia automatically creates a Cash Book Receipts batch in the background.
I need to change the bank account on the created cash book receipt.
I can't work out how to do it.

The bank account change will be based on the sales order branch/division, so a different back acct for each division.
It would also mean a new batch (on the same day) would need to be created for different divisions.

Can you point me in the right direction?

Cheers

Danny

Hi Danny,

In the payment processing part of the code, we do the following:

Code: Select all

For Each payment As Payment In SalesOrderPayments
                RaiseEvent PaymentProcessingStart(Me, payment)

                If payment.Processed = False AndAlso payment.ProcessPayment Then
                    If SystemSettings.UsePaymentTypeBankAccounts Then
                        BankAccount = payment.PaymentType.LedgerAccount
                    Else
                        If SystemSettings.ChildDebtorsUseChildGLAccounts OrElse Debtor.ParentDebtor.DebtorID = "" Then
                            BankAccount = Debtor.LedgerDebtorSourcedReceipts
                        Else
                            BankAccount = Debtor.ParentDebtor.LedgerDebtorSourcedReceipts
                        End If
                    End If

So, you can add a handler for the PaymentProcessingStart event and in there set the Debtor.LedgerDebtorSourcedReceipts or payment.PaymentType.LedgerAccount (depending on how your UsePaymentTypeBankAccounts system setting is set) account by doing a Read on that entity - and then our payment processing code will use that account.

For example - after adding the "Sales Order Entry" to the business logic tab of your plugin, use the following code:

Code: Select all

Public Class BusinessLogicPlugin
    Inherits System.MarshalByRefObject
    Implements JiwaApplication.IJiwaBusinessLogicPlugin

    Public Overrides Function InitializeLifetimeService() As Object
        ' returning null here will prevent the lease manager
        ' from deleting the Object.
        Return Nothing
    End Function

    Public Sub Setup(ByVal JiwaBusinessLogic As JiwaApplication.IJiwaBusinessLogic, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaBusinessLogicPlugin.Setup
      Dim salesOrder As JiwaSales.SalesOrder.SalesOrder = JiwaBusinessLogic
      AddHandler salesOrder.PaymentProcessingStart, AddressOf PaymentProcessingStart
    End Sub
   
   Private Sub PaymentProcessingStart(SalesOrder As JiwaSales.SalesOrder.SalesOrder, Payment As JiwaSales.SalesOrder.Payment)
      If SalesOrder.Branch.Description = "Perth" Then
         ' Override the bank account
         If SalesOrder.SystemSettings.UsePaymentTypeBankAccounts Then
            If SalesOrder.SystemSettings.ChildDebtorsUseChildGLAccounts OrElse SalesOrder.Debtor.ParentDebtor.DebtorID = "" Then
               SalesOrder.Debtor.LedgerDebtorSourcedReceipts.ReadRecordFromAccountNo("1000-000-01")
            Else               
               SalesOrder.Debtor.ParentDebtor.LedgerDebtorSourcedReceipts.ReadRecordFromAccountNo("1000-000-01")
            End If
         Else
            payment.PaymentType.LedgerAccount.ReadRecordFromAccountNo("1000-000-01")
         End If
      End If
   End Sub

End Class


Let us know if that works for you.

Mike

Hi Mike,

I have taken this project over from Danny.
have tried the code you supplied and cannot get it to work - not sure if its running too as the debug msgbox too does not pop up
( is it because its on the Business Logic plugin ?)
see my code below - only difference is the gl code and the message box.
can you advise pls ? What we want is the Bank Legder code to change - ( under the description field on header on a Cash Book receipt )
thanks.

Code: Select all

 Public Sub Setup(ByVal JiwaBusinessLogic As JiwaApplication.IJiwaBusinessLogic, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaBusinessLogicPlugin.Setup
'      If TypeOf JiwaBusinessLogic Is JiwaSales.SalesOrder.SalesOrder
'         Dim salesOrder As JiwaSales.SalesOrder.SalesOrder = JiwaBusinessLogic
'            AddHandler salesOrder.PaymentProcessingStart, AddressOf PaymentProcessingStart   
'      End If
      Dim salesOrder As JiwaSales.SalesOrder.SalesOrder = JiwaBusinessLogic
      AddHandler salesOrder.PaymentProcessingStart, AddressOf PaymentProcessingStart
    End Sub
   Private Sub PaymentProcessingStart(SalesOrder As JiwaSales.SalesOrder.SalesOrder, Payment As JiwaSales.SalesOrder.Payment)
      msgbox (" att_Bakery_CashBookReceiptDefaultGL  - at work ")
      If SalesOrder.Branch.Description = "Perth" Then
         ' Override the bank account
         If SalesOrder.SystemSettings.UsePaymentTypeBankAccounts Then
            If SalesOrder.SystemSettings.ChildDebtorsUseChildGLAccounts OrElse SalesOrder.Debtor.ParentDebtor.DebtorID = "" Then
               SalesOrder.Debtor.LedgerDebtorSourcedReceipts.ReadRecordFromAccountNo("1200-200-00")
            Else               
               SalesOrder.Debtor.ParentDebtor.LedgerDebtorSourcedReceipts.ReadRecordFromAccountNo("1200-200-00")
            End If
         Else
            payment.PaymentType.LedgerAccount.ReadRecordFromAccountNo("1200-200-00")
         End If
      End If
   End Sub

attn Mike - Just trying to get attention to my reply above. Could you advise pls ?

Instead of a messagebox, put in a System.Diagnostics.Debugger.Launch() to determine if your code is actually running. Messageboxes will still display if invoked in business logic - but you've got to be mindful that there won't always be a user to display the messagebox to (e.g.: services).

If the debugger does not launch, then the PaymentProcessingStart event is not being raised by the sales order processing - which would occur if there were no payments on the sales order - there are payments on the sales order, right?

I missed your question because this was marked as answered after a few weeks of inactivity after I responded - Danny should have marked this topic as unanswered, or responded!

Thanks Mike. I will follow your recommendations.