Wednesday 13 January 2021

AX X++ get value from Financial dimension

  public str getDimValue(RecId _DefaultDim)

    {

        DimensionAttributeValueSetStorage    dimStorage;

        // ProjTable                                            ProjTable;

        Counter                                               i;

        str ret="";

        // ProjTable = ProjTable::find("10005");    //  To display value for ProjectId "10005" only

        dimStorage = DimensionAttributeValueSetStorage::find(_DefaultDim);


        for (i=1 ; i<= dimStorage.elements() ; i++)

        {

            // info(DimensionAttribute::find(dimStorage.getAttributeByIndex(i)).Name +"----" +dimStorage.getDisplayValueByIndex(i));

            if(DimensionAttribute::find(dimStorage.getAttributeByIndex(i)).Name == "Project")

            {

                ret =dimStorage.getDisplayValueByIndex(i));

            }

        

        }

        return ret;

    }


Reference

Monday 11 January 2021

AX 365 Create general journal from code x++

   LedgerJournalTable _ledgerJournalTable;

        JournalTableData _journalTableData;

        LedgerjournalTrans _ledgerjournalTrans;

       

        MCRLedgerJournal        journalTable;

        LedgerJournalTableData LedgerJournalTableData;

        NumberSeq _numberSeq;

        LedgerJournalACType _ledgerJournalACType;

        

        RecId _RecId;

        NumberSequenceTable _NumberSequenceTable;      

           


 _LedgerJournalTable.JournalName = 'Journal Name';//HpSetup::getSetup().HpCheque;

             

            _LedgerJournalTable.initFromLedgerJournalName();

            _ledgerJournalTable.Name=strJournalDesc;

            _LedgerJournalTable.insert();

            if (_ledgerJournalTable.RecId)

            {


                //_numberSeq = NumberSeq::newGetVoucherFromCode("Alloc_01");

                _RecId =  LedgerJournalName::find(HpSetup::getSetup().HpCheque).NumberSequenceTable;


                select firstonly  _NumberSequenceTable

                    where _NumberSequenceTable.RecId == _RecId;


                _numberSeq = NumberSeq::newGetVoucherFromCode(_NumberSequenceTable.NumberSequence);


                _ledgerjournalTrans.clear();

                _ledgerjournalTrans.initvalue();

                _LedgerJournalTrans.voucher = _numberSeq.voucher();

                _ledgerjournalTrans.JournalNum = _ledgerJournalTable.JournalNum;

                //_ledgerjournalTrans.Company = curext();

                _ledgerjournalTrans.TransDate = HpCheque.TransDate;

                _ledgerjournalTrans.CurrencyCode = CompanyInfoHelper::standardCurrency();

                _ledgerjournalTrans.Txt = "Transafer to cash";

                _ledgerjournalTrans.AccountType = LedgerJournalACType::Cust;

                _ledgerjournalTrans.LedgerDimension = LedgerDynamicAccountHelper::getDynamicAccountFromAccountNumber(HpCheque.CustAccount,LedgerJournalACType::Cust);

                _ledgerjournalTrans.OffsetAccountType = LedgerJournalACType::Bank;

                _ledgerjournalTrans.OffsetLedgerDimension = LedgerDynamicAccountHelper::getDynamicAccountFromAccountNumber(dialogField.value(),LedgerJournalACType::Bank) ;

                _ledgerjournalTrans.AmountCurCredit = HpCheque.TrxAmount;

                    

                _ledgerjournalTrans.insert();

AX 365 x++ upload from Excel sheet

 using System.IO;

using OfficeOpenXml;

using OfficeOpenXml.ExcelPackage;

using OfficeOpenXml.ExcelRange;



 System.IO.Stream                     stream;

            ExcelSpreadsheetName            sheeet;

            FileUploadBuild                       fileUpload;

            DialogGroup                             dlgUploadGroup;

            FileUploadBuild                       fileUploadBuild;

            FormBuildControl                    formBuildControl;  

HpCheque  _HpCheque;

            COMVariantType                     type;

            Dialog                      dialog =    new Dialog('Import Cheques'); 


            dlgUploadGroup          = dialog.addGroup('@SYS54759');

            formBuildControl        = dialog.formBuildDesign().control(dlgUploadGroup.name());

            fileUploadBuild           = formBuildControl.addControlEx(classstr(FileUpload), 'Upload');

            fileUploadBuild.style(FileUploadStyle::MinimalWithFilename);

            fileUploadBuild.fileTypesAccepted('.xlsx'); 

            str COMVariant2Str(COMVariant _cv)

            {

                switch (_cv.variantType())

                {

                    case COMVariantType::VT_BSTR:

                        return _cv.bStr();

                    case COMVariantType::VT_EMPTY:

                        return'';

                   default:

                        throw error(strfmt('@SYS26908', _cv.variantType()));

                }

            }

            if (dialog.run() && dialog.closedOk())

            {


                FileUpload fileUploadControl     = dialog.formRun().control(dialog.formRun().controlId('Upload'));

                FileUploadTemporaryStorageResult fileUploadResult = fileUploadControl.getFileUploadResult(); 

                if (fileUploadResult != null && fileUploadResult.getUploadStatus())

                {

                    stream = fileUploadResult.openResult();

                    using (ExcelPackage Package = new ExcelPackage(stream))

                    {


                        int                         rowCount, i,columncount,j;

                        Package.Load(stream);

                        ExcelWorksheet   worksheet   = package.get_Workbook().get_Worksheets().get_Item(1);

                        OfficeOpenXml.ExcelRange    range       = worksheet.Cells;

                        rowCount           = (worksheet.Dimension.End.Row) - (worksheet.Dimension.Start.Row)  + 1;

                        columncount      = (worksheet.Dimension.End.Column);


                        for (i = 2; i<= rowCount; i++)

                        {

                            //info(range.get_Item(i, 1).value);

                            ttsbegin;

                            _HpCheque.initValue();

                            _HpCheque.clear();

                            _HpCheque.ChequeNumber =range.get_Item(i, 1).value;

                            _HpCheque.TransDate = str2DateDMY(range.get_Item(i, 2).value);

                            _HpCheque.CustAccount =range.get_Item(i, 3).value;

                            _HpCheque.DueDate = str2DateDMY(range.get_Item(i, 4).value);

                            _HpCheque.CurrencyCode = range.get_Item(i, 5).value;

                            _HpCheque.UnitID = range.get_Item(i, 6).value;

                            _HpCheque.insert();

                            ttscommit;                         

}

                    }

                }

                else

                {

                    error('Error here');

                } 

            }