X++ code to read the attached file in D365

using Microsoft.Dynamics.ApplicationPlatform.Services.Instrumentation;
using Microsoft.DynamicsOnline.Infrastructure.Components.SharedServiceUnitStorage;
using Microsoft.Dynamics.AX.Framework.FileManagement;
public class ReadAzureBlobStorage
{
    str docfiletype;
    Microsoft.Dynamics.AX.Framework.FileManagement.IDocumentStorageProvider storageProvider;
    Public void readfromAzureBlob(DocuRef _docuRef)
    {
        AsciiStreamIo file;
        container record;
        str downloadUrl;
        if (_docuRef.isValueAttached())
        {
            var docuValueloc = _docuRef.docuValue();
            downloadUrl = docuValueloc.Path;

            if (!downloadUrl || docuValueloc.Type == DocuValueType::Others)
            {
                str accessToken = DocumentManagement::createAccessToken(_docuRef);
                downloadUrl = Microsoft.Dynamics.AX.Framework.FileManagement.URLBuilderUtilities::GetDownloadUrl(docuValueloc.FileId, accessToken);
            }
            var docContents = storageProvider.GetFile(docuValueloc.createLocation());
            file = AsciiStreamIo::constructForRead(docContents.Content);//File::UseFileFromURL(downloadUrl));
         
        }
       
        if (file)
        {
            if (file.status())
            {
                throw error("@SYS52680");
            }
            file.inFieldDelimiter(',');
            file.inRecordDelimiter('\r\n');
           
        }
      
        while (!file.status())
        {
            record = file.read();
          
            if (conLen(record))
            {
                info(strFmt("%1 - %2",conPeek(record,1),conPeek(record,2)));
            }
        }

    }
}

X++ code to send mail code in D365

System.IO.Stream workbookStream = new System.IO.MemoryStream(); 
SysMailerSMTP   mailer = new SysMailerSMTP();
SysMailerMessageBuilder builder = new SysMailerMessageBuilder();
SysEmailParameters parameters = SysEmailParameters::find();
FileIOPermission fileIOPermission;
InteropPermission interopPerm;
Notes content;          

Filepath = c:/temp/"filename"
System.IO.Stream filestream = File::UseFileFromURL(Filepath );
   
builder.setFrom(SysEmailParameters::find().SMTPUserName);
builder.addTo("Test@test.com");
builder.addAttachment(filestream,"Bookings.csv");
builder.setSubject("Ax_Daily Shipment report");
builder.setbody(content );
content ="";
content = content + strfmt("\n<p dir=ltr align=left>Hello, </p> ");
content = content + strfmt("\n<p dir=ltr align=left>XXXXXXX : %1 </p> ","");
content = content + strfmt("\n<p dir=ltr align=left>YYYYYY: %1 </p> ", "");
content =  content + strfmt('\n<p dir=ltr align=left></p>');
content =  content + strfmt('\n<p dir=ltr align=left></p>');
// builder.setBody("Please take a look at the attachment having shipping date changed");
SysMailerFactory::getNonInteractiveMailer().sendNonInteractive(builder.getMessage());

Export to csv file in D365

fileUploadTemporaryStorageResult result;

AsciiStreamIo filecreate;

System.IO.StreamWriter StreamWriter;

Filename    localfilename , pathname;

System.IO.Stream stream;

TransDate           fromDate;

TransDate           toDate;

FilePath        pathfile;

FilenameSave path;

CommaStreamIo io;

Container Con;

FileIOPermission fileIOPermission;

InteropPermission interopPerm;

str bookingdetails;

;

super();

interopPerm = new InteropPermission(InteropKind::ClrInterop);

interopPerm.assert();

path = "Folder path" +"xxxx.csv";

fileIOPermission = new FileIOPermission(path, "r");

fileIOPermission.assert();

filecreate = AsciiStreamIo::constructForWrite();

con = conins(con,1,"SO Date");

con = conins(con,2,"Order Type");

con = conins(con,3,"Order Status");

con = conins(con,4,"SO Number");

con = conins(con,5,"Bill To");

bookingdetails = con2Str(con,",");

filecreate.write(bookingdetails);

filecreate.Dispose();

CodeAccessPermission::revertAssert();

this.Sendmail();
System.IO.File::Delete(path);

Export to Excel in D365

#AviFiles
SysOperationProgress progress1 = new SysOperationProgress();
int             row=1;
int             startrow;
int             col;
COM                 Crange;
COM                 CBorders;
COM                 CBorder;
;
DocuFileSaveResult saveResult = DocuFileSave::promptForSaveLocation("@ApplicationPlatform:OfficeDefaultWorkbookFileName", "xlsx", null, this.caption());
System.IO.Stream workbookStream = new System.IO.MemoryStream();  
System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
saveResult.parmOpenParameters('web=1');
saveResult.parmOpenInNewWindow(false);
using (var package = new OfficeOpenXml.ExcelPackage(memoryStream))
{
     var sheet = package.get_Workbook().get_Worksheets();
     var worksheet = sheet.Add("First sheet");
     var cells = worksheet.get_Cells();
     OfficeOpenXml.Style.ExcelStyle style = cells.get_Item(row,1).get_style();
     OfficeOpenXml.Style.ExcelFont font = style.Font;
     OfficeOpenXml.Style.ExcelColor color = font.Color;
 cell = Cells.get_item(row,2);cell.set_Value("Entry Date");
            cellStyle = Cells.get_item(row, 2).get_style();
            style = cells.style;font  = style.font;color = font.color;
            color.SetColor(System.Drawing.Color::FromArgb(190,0,0));
     font.Size = 20;
     row++;
     Col = 1;
     cell = Cells.get_item(row,col);cell.set_Value(date2str(salesline.dlvdate,213,2,4,2,4,2));//j:10 line 1
     col++;
     package.save();
}
memoryStream.Seek(0, System.IO.SeekOrigin::Begin);
DocuFileSave::processSaveResult(memoryStream, saveResult);

Delete a model in Dynamics 365

1.    Model belongs to its own package 

(For example: An extension package with no other models in the package):

a.      Stop the following services: The AOS web service and the Batch Management Service

b.     Delete the package folder C:\AOSService\PackagesLocalDirectory\<your model>

c.      Restart the services from step 1

d.     If Visual Studio is running, refresh your models (Visual Studio > Dynamics 365 > Model management > Refresh models)

e.      In Visual Studio, perform a full database synchronization (Visual Studio > Dynamics 365 > Synchronize database...)

2.    Model belongs to a package with multiple models 

(For example, <your model> overlays Application Suite):

a.      Stop the following services: The AOS web service and the Batch Management Service

b.     Delete the model folder C:\AOSService\PackagesLocalDirectory<PackageName>\<your model> (In this example PackageName=ApplicationSuite)

c.      Restart the services from step 1

d.     In Visual Studio, refresh your models (Visual Studio > Dynamics 365 > Model management > Refresh models)

e.      In Visual Studio, build the package that the deleted models belonged to (Visual Studio > Dynamics 365 > Build models...)

f.       In Visual Studio, perform a full database synchronization (Visual Studio > Dynamics 365 > Synchronize database...)

Disable non AD user in AX

    xAxaptaUserManager axUsrMgr;
    xAxaptaUserDetails axUsrDet;
    UserInfo userInfo;
    UserInfo userInfoUpdate;
    str userID;
    str domainName;
    str userSid;
    userAccountType accountType;  
    ;
    axUsrMgr = new xAxaptaUserManager();
    while select userInfo where userInfo.enable == true
    {
        userID = userInfo.networkAlias;
        domainName = userInfo.networkDomain;
        accountType = userInfo.accountType;
        try
        {
            axUsrDet = axUsrMgr.getSIDFromName(userID, domainName, accountType);
        }
        catch(Exception::Error)
        {
           ttsBegin;
            select forUpdate userInfoUpdate
                where userInfoUpdate.id == userInfo.id;  
            userInfoUpdate.enable = false;
            userInfoUpdate.doUpdate();
            ttsCommit;  
        }
    }

Error on DAX 365 VM Admin provisioning tool can't stop DynamicsAXBatch service

Admin User Provisioning Tool 

Error: can’t stop DynamicsAxBatch.

Solution 1:

restart IIS through cmd prompt

Or 

Solution 2:

->Go to the Services,

-> Find service with the name: Microsoft Dynamics 365 Unified Operations: Batch Management Service

-> Stop it.

-> Now try to register account with the admin provisioning tool

Kill services through CMD PROMPT

-> Click the Start menu
-> Click Run or in the search bar type services.msc
-> Press Enter
-> Look for the service and check the Properties and identify its service name.
-> open a command prompt. Type: sc queryex [servicename].
-> Press Enter
-> Identify the PID
-> Incommand prompt type: taskkill /f /pid [pid number]
-> Press Enter

Send mail in D365

            System.IO.Stream workbookStream = new System.IO.MemoryStream();
            SysMailerSMTP   mailer = new SysMailerSMTP();
            SysMailerMessageBuilder builder = new SysMailerMessageBuilder();
            SysEmailParameters parameters = SysEmailParameters::find();
            Notes content;
             ;
       
            if (parameters.SMTPRelayServerName)
            {
                mailer.SMTPRelayServer(parameters.SMTPRelayServerName,
                               parameters.SMTPPortNumber,
                               parameters.SMTPUserName,
                               SysEmailParameters::password(),
                               parameters.SMTPUseNTLM);
            }
            else
            {
                    warning("@ApplicationFoundation:EmailProviderSMTPServerNotFound");
            }
            content ="";
            content = content + strfmt("\n<p dir=ltr align=left>Hello, </p> ");
            content = content + strfmt("\n<p dir=ltr align=left>XXXXXXX : %1 </p> ","");
            content = content + strfmt("\n<p dir=ltr align=left>YYYYYY: %1 </p> ", "");
            content =  content + strfmt('\n<p dir=ltr align=left></p>');
            content =  content + strfmt('\n<p dir=ltr align=left></p>');
         
            builder.setFrom(SysEmailParameters::find().SMTPUserName);
            builder.addTo("test@test.com");
            //builder.addAttachment(workbookStream,path);
            builder.setSubject(strfmt("AAAA" , ""));
            builder.setBody(content);
            SysMailerFactory::getNonInteractiveMailer().sendNonInteractive(builder.getMessage());

Creating work order through code

SalesLine                       salesLineLocal;
    InventMovement                  inventMovement;
    WMSOrder                        wmsOrder;
    WMSOrderCreate                  orderCreate;
    WMSOrderTrans                   wmsOrderTrans;
    SalesTable                      salesTableLocal;
    WMSShipment                     wmsShipment;
    WMSPickingRoute                 wmsPickingRoute;
    WMSPickingRouteLink          wmsPickingRouteLink;
 
    salesTableLocal = SalesTable::find('SO-101328');
    wmsShipment.clear();
    wmsPickingRoute.clear();
    wmsShipment.initTypeOrderPick();
    wmsShipment.insert();
    wmsPickingRoute.initTypeOrderPick(wmsShipment, wmsExpeditionStatus::Activated,wmsPickRequestTable::construct(salesTableLocal), '', true);
    wmsPickingRoute.ActivationDateTime = DateTimeUtil::utcNow();
    wmsPickingRoute.insert();
    wmsPickingRouteLink.initFromSalesTable(salesTableLocal);
    wmsPickingRouteLink.initFromWMSPickingRoute(wmsPickingRoute);
    wmsPickingRouteLink.insert();

    // Creating records for each salesline

    while select salesLineLocal where salesLineLocal.SalesId == salesTableLocal.SalesId
    {
        // Inventory Movement object is required to create new           SalesPickingList lines
        inventMovement = InventMovement::construct(salesLineLocal);
        orderCreate = WMSOrderCreate::newMovement(inventMovement, 3);
        orderCreate.parmMustBeWMSOrderControlled(true);
        orderCreate.parmQty(3);
        orderCreate.parmRecalculateMaxQtyForValidation(false);
        orderCreate.parmMaxCWQty(3);
        orderCreate.parmMaxQty(3);
        orderCreate.run();
        wmsOrder = orderCreate.parmWMSOrder();
        wmsOrder.updateShipment(wmsShipment, 3, wmsPickingRoute.PickingRouteID, false);
        // Updating status to activated
        while select forupdate wmsOrderTrans
            where wmsOrderTrans.inventTransId ==  salesLineLocal.inventTransId
               && wmsOrderTrans.expeditionStatus == WMSExpeditionStatus::Registered
        {
            ttsBegin;
            wmsOrderTrans.expeditionStatus = WMSExpeditionStatus::Activated;
            wmsOrderTrans.update();
            ttsCommit;

        }

    }

Movement journal picking list post with qty spliting for updating serial number

    Inventtrans                         inventTrans,inventTransCopy,inventTransLocal,inventTransUpdate;
    InventTransOrigin                   inventTransOrigin;
    inventjournaltrans                  inventjournaltrans;
    EcoResProductDimensionGroupProduct  erpdgp;
    EcoResProductDimensionGroup         erpdg;
    int                                 rowCount,i;
    TmpInventTransWMS                   tmpInventTransWMS;
    InventMovement                      InventMovement;
    InventTransOrigin                   InventTransOriginLoc;
    inventTransWMS_Pick                 inventTransWMS_Pick;
    Query                               inventTransQuery;
    QueryBuildDataSource                QueryBuildDataSource;
    InventTable                         inventtable;

    System.String                       netString = "Net string.";
    System.Exception                    netExcepn;

    while select inventjournaltrans where inventjournaltrans.JournalId == "00434"
    {
        erpdgp=EcoResProductDimensionGroupProduct::findByProduct(Inventtable::find(inventjournaltrans.ItemID).Product);
     
        if ( erpdg.Name == "SN" )
        {

            inventTransOrigin =     InventTransOrigin::findByInventTransId(inventjournaltrans.InventTransId, false);
            inventTrans = InventTrans::findByInventTransOrigin(inventTransOrigin.RecId, false);
            rowCount = real2int(abs(inventTrans.Qty));
            for (i = 1; i < rowCount; i++)
            {
                inventTrans = InventTrans::findByInventTransOrigin(inventTransOrigin.RecId, false);
                inventTrans.updateSplit(-1);
            }
        }
        else
            continue;

    }
    inventjournaltrans.clear();
    while select inventjournaltrans where inventjournaltrans.JournalId == "00434"
    {
        select inventTransOriginloc where inventTransOriginloc.InventTransId == inventjournaltrans.InventTransId;
        // start loop on <inventTrans> to get each item line
        while select inventTransUpdate where inventTransUpdate.InventTransOrigin == inventTransOriginloc.RecId
        {
            inventTransQuery                = new Query();
            QueryBuildDataSource            = inventTransQuery.addDataSource(tableNum(InventTrans));
            InventTransOrigin               = InventTransorigin::findByInventTransId(inventTransOriginloc.InventTransId);
            QueryBuildDataSource.addRange(fieldNum(InventTrans,RecId)).value(int642str(inventTransUpdate.recid));
            delete_from tmpInventTransWMS;
            tmpInventTransWMS.clear();
            inventTransWMS_Pick             = InventTransWMS_Pick::newStandard(tmpInventTransWMS,inventTransQuery);
            tmpInventTransWMS.initFromInventTrans(inventTransUpdate);
            tmpInventTransWMS.initFromInventTransOrigin(InventTransOriginloc);
            tmpInventTransWMS.InventQty     = 1;//inventTransUpdate.Qty;
            //tmpInventTransWMS.InventDimId   = _InventDimId;
            inventTransWMS_Pick.writeTmpInventTransWMS(tmpInventTransWMS);
            inventTransWMS_Pick.updateInvent();
        }
    }

Register serial numbers for the items with sales order packing slip posting

    InventTrackingRegisterTrans InventTrackingRegisterTrans;

    InventTrackingRegisterTransform formcontroller;

    SalesParmTable  salesParmtable;

    SalesParmLine   salesParmLine;

    boolean                         isCorrection;

    SalesTable  SalesTable;

    SalesFormLetter_Packingslip salesFormLetter;

    SalesFormLetter salesLetter = SalesFormLetter::construct(DocumentStatus::PackingSlip);

    select salesParmtable where salesParmtable.SalesId == "SO-00131";

    while select salesParmLine where salesParmLine.ParmId == salesParmtable.ParmId

    {

       

        isCorrection = (salesParmLine.salesLine().QtyOrdered * salesParmLine.DeliverNow < 0);

        if (!isCorrection)

        {

            formcontroller = InventTrackingRegisterTransForm::newForPackingSlip(salesParmLine);

        }

        formController.insertSerialNumber("xxxx");

           

      

    }

    SalesTable  = SalesTable::find("SO-00131");

    

    salesFormLetter = SalesFormLetter_Packingslip::newPackingSlip();

                    salesFormLetter.transDate(systemDateGet());

                    salesFormLetter.update(salesTable,

                                            systemdateget(),

                                            SalesUpdate::All,

                                            AccountOrder::None,

                                            NoYes::No,

                                            NoYes::No);

Get tax amount from journal through x++ AX 2012

static void Nirm_CorrectedTaxAmount(Args _args)//ADDED BY NIRMAL
{
    LedgerJournalTrans _ledgerJournalTrans;
    LedgerJournalEngine LedgerJournalEngine;

    LedgerJournalEngine = new LedgerJournalEngine();

    select _ledgerJournalTrans where _ledgerJournalTrans.JournalNum == "JB/0004662";

    info(strFmt("%1",LedgerJournalEngine.getShowTax(_ledgerJournalTrans).calcTax()));
    info(strFmt("%1",ledgerJournalEngine.correctedTaxAmount(_ledgerJournalTrans)));
}

            if(ledgerJournalTable.Posted)

            {

                VATAmount = abs(Tax::taxAmountCorrectedPerLine(_ledgerJournalTrans.Voucher,

                                                              _ledgerJournalTrans.TransDate,

                                                              _ledgerJournalTrans.RecId));

            }

            else

            {

                VATAmount =  abs(ledgerJournalEngine.correctedTaxAmount(_ledgerJournalTrans));

            }

Reversing Number sequence Ax 2012

public void revSequenceByOne(ItemGroupId _groupId)

{
          NumberSequenceTable     numberSeqTableRev,numberSeqLastRec;
          InventItemGroup         invItemGroup;
          str                     autonumber;
    
          ttsBegin;
          invItemGroup = InventItemGroup::find(_groupId);
    
          if (invItemGroup && invItemGroup.NumberSequenceCode)
          {
              autonumber = invItemGroup.NumberSequenceCode;
              numberSeqTableRev      = NumberSequenceTable::findByNaturalKey(autonumber);
    
              select forUpdate firstOnly numberSeqLastRec
                  where numberSeqLastRec.RecId == numberSeqTableRev.RecId;
              if (numberSeqLastRec.RecId && numberSeqLastRec.NextRec != 1)
              {
                 numberSeqLastRec.NextRec -= 1;
                 numberSeqLastRec.update();
              }
          }
          ttsCommit;
}