Skip to main content

Format Excel Worksheet of workbook in MSD axapta

This is code hints to Format Excel Worksheet of workbook in axapta. You excel workbook will be in xls or in higher version. You can open excel sheet by using visible true property then you can use other properties like font,style etc    

 #Excel  
    SysExcelApplication     excelApp;  
    SysExcelWorkbooks      XLSWorkbooks;  
    SysExcelWorkbook      XLSWorkbook;  
    SysExcelWorksheet      sheet;  
    SysExcelRange        range;  
    SysExcelStyles       styles;  
    SysExcelStyle        style;  
    SysExcelInterior      interior;  
    SysExcelFont        font;  
    COM             _char, RangeComObj;  
    ;  
    excelApp    = SysExcelApplication::construct();  
    excelApp.visible(true);  
    XLSWorkbooks    = excelApp.workbooks();  
    XLSWorkbook    = XLSWorkbooks.add();  
    sheet    = excelApp.activeSheet();  
    range    = sheet.range('A1');  
    styles   = XLSWorkbook.styles();  
    style    = styles.add('MyStyle');  
    interior  = style.interior();  
    interior.color(WinApi::RGB2int(246, 233, 206));  
    font    = style.font();  
    font.bold(true);  
    font.color(winapi::RGB2int(153, 204, 255));  
    range.style('MyStyle');  
    range.locked(true);  
    RangeComObj     = range.comObject();  
    _char    = RangeComObj.characters(1);  
    _char.insert('MyStyle');  

Popular posts from this blog

Code to get Invoice settlement data for customer in ax 2012

This is simple Code to get Invoice settlement amount data for customer payment in ax 2012. This data is after posting of data. select sum(SettleAmountCur) from custSettlement where custSettlement.TransRecId == custtrans.RecId If you want get settlement amount before posting than you can refer spectrans table.The table SpecTrans contains all the transactions marked for settlement for payment journal. while select spectrans join custtransopen join custtrans where spectrans.SpecCompany == ledgerjournaltrans.DataAreaId && spectrans.SpecTableId == ledgerjournaltrans.TableId && spectrans.SpecRecId == ledgerjournaltrans.RecId && spectrans.RefCompany == custtranssopen.DataAreaId && spectrans.RefTableId == custtranssopen.TableId && spectrans.RefRecId == custtranssopen.RecId && custtransopen.RefRecId == custtrans.RecId && custtransopen.AccountNum == custtrans.AccountNum { info...

Cancel Deliver Remainder through X++ (Sales Order ) DAX

 To Cancel Deliver Remainder through X++ you can use below code sample. Thanks. static void _CancelDeliverRemainder_Sales(Args _args) {     SalesLine SalesLine = SalesLine::find('SO0013', true);     ;           if (SalesLine)     {         // Set remaining inventory Qty to zero         SalesLine.RemainInventPhysical  = 0;           // Set remaining physical Qty to zero         SalesLine.RemainSalesPhysical   = 0;                                   // We have to cancel the SalesLine                  SalesLine.PurchStatus           = PurchStatus::Canceled;                    SalesLine.update();         ...

Add Miscellaneous Charges to a Purchase Order in MSD Axapta

Add Miscellaneous Charges to a Purchase Order To add miscellaneous charges to a purchase order, follow these steps: 1. Click Accounts payable > Purchase Order Details. 2. Select a purchase order and then click Posting > Invoice. 3. Enter or select an invoice. 4. Select which miscellaneous charges transactions to add, change, or delete: a. To add, change, or delete miscellaneous charges transactions for the invoice header, click Setup > Misc. charges on the Overview tab. b. To add, change, or delete miscellaneous charges transactions for an invoice line, click the Lines tab, and then click Misc. charges. c. To add, change, or delete miscellaneous charges for the invoice header for a summary invoice that is selected on the Overview tab, click the Purchases tab, and then click Setup > Misc. charges. 5. In the Misc. charges transactions form, enter the miscellaneous charge from the invoice that you received from your vendor. 6. If necessary, you can click ...