Requirement

Need to update/carry/flow Custom Fields In CustTrans/VendTrans From LedgerJournalTrans during the posting of journal.

Sample Code

[ExtensionOf(classStr(CustVendVoucher))]

final class AcxCustVendVoucher_Extension

{

public void post(

LedgerVoucher _ledgerPostingJournal,

CustVendTrans _custVendTrans,

NoYes _approval,

UnknownNoYes _euroTriangulation,

boolean _withHoldTaxType,

boolean _useSubLedger)

{

LedgerJournalTrans  ledgerJournalTransLocal;

VendTrans   vendTransUpdate;

Common  commonLocal = common;




next post(_ledgerPostingJournal, _custVendTrans, _approval, _euroTriangulation, _withHoldTaxType, _useSubLedger);

if (commonLocal.TableId == tableNum(LedgerJournalTrans))

{

ledgerJournalTransLocal = commonLocal;

if (_custVendTrans.tableid == tableNum(vendTrans))

{

ttsbegin;

//*******NOT Recommended*********

//either update in vendTrans or custtrans

select firstonly1 vendTransUpdate

where vendTransUpdate.RecId == _custVendTrans.RecId;

vendTransUpdate.selectForUpdate(true);

vendTransUpdate.DocumentNum = ledgerJournalTransLocal.accountName();

vendTransUpdate.doUpdate();

ttscommit;

//*******Recommended*********

//or insert record with reference of VendTrans.RecId into a seperate table like AcxVendTrans

}

}

}




}

Requirement

Need to update/carry/flow custom fields in BankAccountTrans  from LedgerJournalTrans during the posting of journal

Sample Code

class AcxBankAccountTrans_Events

{

/// <summary>

///

/// </summary>

/// <param name=”args”></param>

[PreHandlerFor(tableStr(BankAccountTrans), tableMethodStr(BankAccountTrans, insert))]

public static void BankAccountTrans_Pre_insert(XppPrePostArgs args)

{

BankAccountTrans    bankAccountTrans = Args.getThis();

LedgerJournalTrans  ledgerJournalTransOriginal;

;

if (bankAccountTrans.SourceRecId && bankAccountTrans.SourceTableId && bankAccountTrans.SourceTableId == tableNum(LedgerJournalTrans))

{

select firstonly1 ledgerJournalTransOriginal

where ledgerJournalTransOriginal.RecId == bankAccountTrans.SourceRecId;

bankAccountTrans.AcxPurchId = ledgerJournalTransOriginal.AcxPurchId;

bankAccountTrans.AcxBankChequeNum = ledgerJournalTransOriginal.PaymReference;

}

}

Requirement

Need to update custom fields in SalesTable during the creation of Inter-company purchase orders.

Steps

1. Create a extension class of base class -InterCompanySyncPurchTableType.
2. Add a new ExtensionMethod “setSalesTableData()”.

Sample Code

[ExtensionOf(classStr(InterCompanySyncPurchTableType))]

final class AcxInterCompanySyncPurchTableType_Extension

{

protected void setSalesTableData()

{

SalesTable  salesTable;

PurchTable purchTableTemp = PurchTable;

AxSalesTable    axSalesTableTemp = axSalesTable;

next setSalesTableData();

salesTable = axSalesTable.salesTable();

axSalesTableTemp.salesTable(salesTable);

salesTable.CustomerRef = purchTableTemp.Orderaccount;

axSalesTableTemp.salesTable(salesTable);

axSalesTable = axSalesTableTemp;

}

}

Requirement

The requirement is writing a FTP file from Microsoft Dynamics 365 for Finance and Operations environment to a remote FTP.

Prerequisites

1. Valid FTP Url
2. Valid FTP username
3. Valid FTP password
4. FTP Url should be accessible from environment.

Sample Code

static void main(Args args)
{
TextStreamIo textStreamIO = TextStreamIo::constructForWrite();
System.Text.Encoding getUTF8;
System.IO.StreamReader streamReader;
System.Byte[] bytes;
System.Object request,response,credential;
System.Net.FtpWebRequest ftpRequest;
System.IO.Stream requestStream;
System.Net.FtpWebResponse ftpResponse;
Str1260 ftpFileName = "ftp://223.31.75.117" + @"/" + "filename.txt";
System.IO.StreamReader reader;
System.Char[] chars;
container con;
System.IO.Stream stream;
;

textStreamIO.writeExp(['Started']);
textStreamIO.writeExp(['This Is Test', ' For Barcode']);
textStreamIO.writeExp(['End']);

stream = textStreamIO.getStream();
stream.Position = 0;
reader = new System.IO.StreamReader(stream);
getUTF8 = System.Text.Encoding::get_UTF8();
bytes = getUTF8.GetBytes(reader.ReadToEnd());
request = System.Net.WebRequest::Create(new System.Uri(ftpFileName));
ftpRequest = request;
credential = new System.Net.NetworkCredential("username", "password");
ftpRequest.set_Credentials(credential);
ftpRequest.set_ContentLength(bytes.get_Length());
ftpRequest.set_Method("STOR");
ftpRequest.set_Proxy(null);
requestStream = ftpRequest.GetRequestStream();
requestStream.Write(bytes,0,bytes.get_Length());
requestStream.Close();
response = ftpRequest.GetResponse();
ftpResponse = response;
info('Processed.');
}