Bank cheque report customization in D365

 Customize bank cheque payment report in D365


Lets say, we need to add a column Description in SlipText field on the report that is generated dynamically from code. In order to customize the field we need to make COC of few methods of class CustVendChequeSlipTextCalculator.



class CustVendChequeSlipTextCalculator is responsible for calculating slip text area required during printing of cheque and adding dynamic columns and values in the field.

Note: Cheque layout is sensitive to the area of printing. We need to be careful in order to modify a design while customizing as each and every field added to the report contains limited area of printing which is a risk to disturb as it can effect the size and length of report. Slip text is also calculated according to the size of the cheque in millimeters.

We need to create COC of following methods to add a new column in SlipText field. 

We have to add header and then value. 

Before creating COC for SlipText we need to first add Description field in table BankChequePaymTrans. 

Note: We need to create extension of the table and add Description field in BankChequePaymTrans.

After that we need to create a COC of method InitBankChequePaymentTransFromVendTrans of class CustVendCheque to fill description field as this field has to be populated from ledger transaction of vendor payment. 

[ExtensionOf(classStr(CustVendCheque))]

internal final class CustVendCheque_Extension

{

    Protected BankChequePaymTrans 
    initBankChequePaymentTransFromVendTrans
   (SpecTrans _specTrans, CustVendPaym _custVendPaym, AmountCur    
   _paymAmount)

    {
        BankChequePaymTrans bankChequePaymTrans;
        
        bankChequePaymTrans = next     
        initBankChequePaymentTransFromVendTrans(_specTrans, 
        _custVendPaym,     _paymAmount);

        bankChequePaymTrans.Description = 
        _custVendPaym.ledgerJournalTrans().Txt;
        
        return bankChequePaymTrans;
    }

Now we need to use this description field of BankChequePaymTrans in SlipText value.

1)  For Header column we need to create COC of method determineSlipTextTitleAndEndLinesAdjustmentForColumnHeaders.

[ExtensionOf(classStr(CustVendChequeSlipTextCalculator))]

internal final class CustVendChequeSlipTextCalculator_Extension

{

      public container 
      determineSlipTextTitleAndEndLinesAdjustmentForColumnHeaders
     (BankChequeTable _bankChequeTable, ChequeFormType,
      _chequeFormType)
     {
        ChequeSlipTxt chequeSlipText;
        Counter endLines;

        [chequeSlipText, endLines] = next 
        determineSlipTextTitleAndEndLinesAdjustmentForColumnHeaders
        (_bankChequeTable, _chequeFormType);

        switch (_chequeFormType)
        {
            case ChequeFormType::USStyle:  
            //we can modify cheque slip text here
                chequeSlipText = strFmt(
                    '\n\n\n%1       %2    %3   %4 %5\n\n',
                    "@SYS14204", "@SYS80056", "@SYS41042",      
                    "@SYS11818", "@SYS1943");
                endLines = -2;
                break;
        }
        return [chequeSlipText, endLines];
    }

2) Now adding column value in slip text. We need to create COC of method determinSlipTextAndEndLinesAdjustmentForBankChequePaymTrans.

    protected container   
    determineSlipTextAndEndLinesAdjustmentForBankChequePaymTrans
   (BankChequePaymTrans bankChequePaymTrans)
    {
        ChequeSlipTxt chequeSlipText;
        Counter endLines;

        [chequeSlipText, endLines] = next
        determineSlipTextAndEndLinesAdjustmentForBankChequePaymTrans
        (bankChequePaymTrans);

        FromDate invoiceDate = bankChequePaymTrans.InvoiceDate;

        //we can modify values here for slip text
        chequeSlipText = strFmt(
        '%1  %2  %3  %4  %5\n',
        strLFix(bankChequePaymTrans.InvoiceId, 12),
        strLFix(date2StrUsr(invoiceDate), 10),
        strLFix(bankChequePaymTrans.Description, 36),
        strRFix(num2str(-
        bankChequePaymTrans.InvoiceAmountCur, 0, 2, -1, -1), 12),
        strRFix(num2str(-
        bankChequePaymTrans.PaymentAmountCur, 0, 2, -1, -1), 14));

        endLines = -1;
        return [chequeSlipText, endLines];
    }

Also, if we need to move a value we can use strLFix and strRFix.
strLFix moves value from left side
strRFix moves value from right side


I need to move total amount of SlipText to a bit of right side to adjust accordingly, so we need to create another COC of method determineSlipTextTitleAndEndLinesForSubTotalOrTotal of same class above,
that is responsible for adjusting total amount of slipText. 


Note: I changed strLFix(_args.chequeSlipTxtLabel, 66) to trLFix(_args.chequeSlipTxtLabel, 75) in below method. 


 protected CustVendChequeSlipTextCalcDeterminSlipTextForTotalReturn 
 determineSlipTextTitleAndEndLinesForSubTotalOrTotal(CustVendChequeSl
 ipTextCalcDeterminSlipTextForTotalParameters _args)
 {
    CustVendChequeSlipTextCalcDeterminSlipTextForTotalReturn 
    totalReturn = 
    CustVendChequeSlipTextCalcDeterminSlipTextForTotalReturn
    ::construct();

    totalReturn = next 
    determineSlipTextTitleAndEndLinesForSubTotalOrTotal(_args);

    totalReturn.chequeSlipTxt = strFmt('\n%1 %2', 
    strLFix(_args.chequeSlipTxtLabel, 75), 
    num2str(_args.TotalAmountCur, 16, 2, -1, -1));
    
    totalReturn.endLines = -1;

    return totalReturn;
 }

Output:










Comments

Post a Comment

Popular posts from this blog

Cross Company queries - X++

Image
When we create a query in X++, it fetches record only for the company that we are logged in. If we want to get records for multiple companies, we have the keyword in X++. i.e. crossCompany. Select query: For example, Let’s say we write the following query. SalesTable            salesTable; while select * from salesTable {     i nfo(strfmt(“%1”,salesTable.SalesId)); } It will return only the records from the company we are logged into. Now we want to get records from all companies. We will need to write following query. while select crossCompany salesTable {     info(strfmt(“%1”,salesTable.SalesId)); } This crossCompany keyword will return all the companies record. If we want to get specific companies records, we need to use container . For example, container specificComp = [‘USMF’,’USMR’]; while select crossCompany : specificComp salesTable {     info...
Read more

Create multi select company lookup in report dialogue using X++

Image
Create multi select company lookup in dialogue using X++ Let’s say we have a requirement to show multi select lookup on report dialogue box. Steps: 1) Create CONTRACT class with a company parameter in it. 2)   Create  UI BUILDER  Class to make multi select company lookup 3)   Get selected companies in Report DP class Let’s put some lights on the above steps. Assuming that we know the basic concepts of SysOperationFramework. Create CONTRACT class with a company parameter in it. Adding  SysOperationContractProcessingAttribute  in contract class will use controls modified in UI Builder class. Use LIST as a data type as we can have multiple selected companies. Code: [ DataContractAttribute,    SysOperationContractProcessingAttribute( classStr (TestReportUIBuilder)) ] class TestReporContract {      List     legalEntity; } Now add new method for company parame...
Read more

Positive pay file in D365

Image
Positive Pay File -  D365  Convert XSLT file to CSV format. Positive pay files are created using data entities. The input file format must be only of XML type. Therefore, we need to create an a file with the extension XSLT ( Extensible Style sheet Language Transformation ). Create an XSLT file. Note: We can use Notepad/Notepad++ and save it with extension .XSLT  Now, we need to do setup configurations to run positive pay file on bank. Step 1: Add positive pay formats. Go to Cash and bank management > Setup > Positive pay formats   Create/edit positive pay file format. Then click on Upload file used for transformation to upload XSLT file created above. Step 2: Assign file format to the bank. Go to  Cash and bank management > Bank accounts > Bank accounts. Select any bank. Go to  Manage Payments Tab > General > positive pay format. Select payment format. Now, before jumping to step ...
Read more