[ExtensionOf(classStr(InventUpd_Reservation))]
final class InventUpd_ReservationCls_SAN_Extension
{
void updateNow()
{
if(movement != null && movement.buffer())
{
curBuffer = movement.buffer();
switch(curBuffer.TableId)
{
case tableNum(SalesLine) :
salesLine = curBuffer;
salesTable = salesLine.salesTable();
break;
}
if(salesLine && salesTable)
{
if()// add requires if needed for reservsation skip
{
reservation = 0; //To stop reservation
}
}
next updateNow();
}
WMS Mobile app flow
=> Adding Detour fields for Process guided framework custom implementation
Before fix:
Adding code fix to get thos requires field.
/// <summary>
/// WHS APP FLOW Detour fields implementation SAN_WHSMobileAppFlowPOLMovementLPCreation
/// Run Create Default setup from Mobile device steps
/// </summary>
[WHSWorkExecuteMode(WHSWorkExecuteMode::SAN_MovementLP)]
class SAN_WHSMobileAppFlowPOLMovementLPCreation extends WHSMobileAppFlow
{
protected void initValues()
{
// add available fields
this.addAvailableField(extendedTypeNum(InventSerialId));
this.addAvailableField(extendedTypeNum(WHSLicensePlateId));
this.addAvailableField(extendedTypeNum(ItemId));
}
}
Post fix:
/// <summary>
/// To check if user can get access to the Parameter form
/// </summary>
class SAN_ParamFormsAccessCtrl
{
protected void new()
{
super();
}
static SAN_ParamFormsAccessCtrl construct()
{
return new SAN_ParamFormsAccessCtrl();
}
public boolean validateUserRoleAccess()
{
#characters
UserId userId = curUserId();
container tmpValues;
SecurityRole securityRole;
SecurityUserRole securityUserRole;
int idx;
boolean isValidated = false;
Str secRoleList;
//Created new custom parameter to have which roles alone should have EDIT access, apart from this any roles would have only READ access even System admin
secRoleList = SAN_IntegrationParameters::find().ParametersAccessSecurityRole;
if(secRoleList)
{
tmpValues = str2con(secRoleList, #semicolon);
for(idx=1; idx<=conLen(tmpValues); idx++)
{
securityRole.clear();
select firstonly securityRole
where securityRole.Name == conPeek(tmpValues, idx);
if(securityRole.RecId && !isValidated)
{
securityUserRole.clear();
select firstonly RecId from securityUserRole
where securityUserRole.User == userId
&& securityUserRole.SecurityRole == securityRole.RecId;
if (securityUserRole.RecId)
{
isValidated = true;
}
}
}
}
return isValidated;
}
public void disableFormDataSources(FormRun _callingForm)
{
FormBuildDataSource frmBuildDS;
int i;
for(i = 1; i<= _callingForm.form().dataSourceCount(); i++)
{
frmBuildDS = _callingForm.form().dataSource(i);
frmBuildDS.allowEdit(false);
}
}
public boolean checkRoleCtrlAccess(FormRun _callingForm)
{
boolean userHasAccess = this.validateUserRoleAccess();
if(!userHasAccess)
{
this.disableFormDataSources(_callingForm);
}
return userHasAccess;
}
}
[ExtensionOf(formStr(LedgerParameters))]
final class LedgerParametersFrm_SAN_Extension
{
public void init()
{
next init();
SAN_ParamFormsAccessCtrl paramFormsAccessCtrl;
paramFormsAccessCtrl = SAN_ParamFormsAccessCtrl::construct();
if(!paramFormsAccessCtrl.checkRoleCtrlAccess(this))
{
this.san_lockControls();
}
}
void san_lockControls()
{
FormBuildControl formBuildControl;
int i;
for (i=1;i<=this.form().design().controlCount(); i++)
{
formBuildControl = this.form().design().controlNum(i);
this.control(formBuildControl.id()).enabled(false);
}
}
}
Requirement:
1. Override custom dimension value on posting sales invoice
2. Ledger posting type as "Cost of goods, invoiced" & "Sales revenue"
3. Reason: Requirement is to default for certain orders type, these account has to be changed.
4. Why can't we acheive in Customer or item level dimension. [Reason: Currently it was managed in item level, but requirement is to for same item if order type met certain criteria on posting, this need to defaulted with this dimension value for ledger reporting]
Class 1:
/// <summary>
/// The <c>LedgerVoucherTransObject</c> class represents a single transaction in an individual voucher. COC
/// </summary>
/// <remarks>
/// The transaction is stored in a temporary instance of a <see cref="T:LedgerTrans" /> record buffer.
/// The temporary transaction is inserted into the database during posting and made a permanent record.
/// </remarks>
[ExtensionOf(ClassStr(LedgerVoucherTransObject))]
final class LedgerVoucherTransObjectCls_SAN_Extension
{
/// <summary>
/// Initializes a new instance of the <c>LedgerVoucherTransObject</c> class by using a transaction COC POL
/// currency amount and a ledger posting reference for defaulting.
/// </summary>
/// <param name="_defaultLedgerPostingReference">
/// The ledger posting reference to use for defaulting.
/// </param>
/// <param name="_postingType">
/// The posting type of the general journal entry.
/// </param>
/// <param name="_ledgerDimensionId">
/// The dimension attribute value combination of the general journal entry.
/// </param>
/// <param name="_transactionCurrencyCode">
/// The currency code of the general journal entry.
/// </param>
/// <param name="_transactionCurrencyAmount">
/// The amount in the transaction currency.
/// </param>
/// <param name="_exchangeRateHelper">
/// The accounting currency amount and secondary currency amount exchange rates.
/// </param>
/// <returns>
/// A new instance of the <c>LedgerVoucherTransObject</c> class.
/// </returns>
/// <remarks>
/// The default ledger posting reference is used to set the transaction type and exchange rate date.
/// </remarks>
public static LedgerVoucherTransObject newTransactionAmountDefault(
LedgerVoucherObject _defaultLedgerPostingReference,
LedgerPostingType _postingType,
LedgerDimensionAccount _ledgerDimensionId,
CurrencyCode _transactionCurrencyCode,
Money _transactionCurrencyAmount,
CurrencyExchangeHelper _exchangeRateHelper)
{
LedgerVoucherTransObject polpostingTrans;
LedgerDimensionAccount ledgerDimensionAccount, tempLedgerDimenionAcc;
ledgerDimensionAccount = _ledgerDimensionId;
if(ledgerDimensionAccount && (_postingType == LedgerPostingType::SalesConsump
|| _postingType == LedgerPostingType::SalesRevenue))
{
SAN_SalesInvoiceDimensionMockContext contextCur = SAN_SalesInvoiceDimensionMockContext::current();
if(contextCur != null)
{
if(contextCur.isParameterActive && contextCur.isValidToOverride && contextCur.polproductLineToOverride)
{
tempLedgerDimenionAcc = _ledgerDimensionId;
ledgerDimensionAccount = SalesInvoiceJournalPost::SAN_buildDefaultAndLedgerDimension(tempLedgerDimenionAcc,contextCur.polproductLineToOverride);
}
}
}
polpostingTrans = next newTransactionAmountDefault(_defaultLedgerPostingReference, _postingType, ledgerDimensionAccount, _transactionCurrencyCode, _transactionCurrencyAmount, _exchangeRateHelper);
return polpostingTrans;
}
}
Class 2:
/// <summary>
/// To hold the value of SAN_SalesInvoiceDimensionMockContext through out the runtime.
/// </summary>
class SAN_SalesInvoiceDimensionMockContext implements System.IDisposable
{
public boolean isParameterActive;
public boolean isValidToOverride;
public SalesTable polsalesTable;
public str polsmmSegmentId;
public str polproductLineToOverride;
static SAN_SalesInvoiceDimensionMockContext instance;
protected void new ()
{
if (instance)
{
throw Error('Nesting of SAN_SalesInvoiceDimensionMockContext is not supported');
}
instance = this;
}
/// <summary>
/// To Create the instance wherever the method is called during the run time.
/// </summary>
/// <returns>current new instance</returns>
Public static SAN_SalesInvoiceDimensionMockContext createInstance()
{
SAN_SalesInvoiceDimensionMockContext newInstance = new SAN_SalesInvoiceDimensionMockContext();
instance = newInstance;
return instance;
}
/// <summary>
/// Dispose the instance once the Aging snapshot batch is run.
/// </summary>
public void dispose()
{
instance = null;
}
/// <summary>
/// To get the instance wherever the method is called during the run time.
/// </summary>
/// <returns>Current instance</returns>
public static SAN_SalesInvoiceDimensionMockContext current()
{
return instance;
}
}
Class 3:
/// <summary>
/// Extension of class SalesInvoiceJournalPost
/// </summary>
[Extensionof (classstr(SalesInvoiceJournalPost))]
Public Final class SalesInvoiceJournalPostCls_SAN_Extension
{
/// <summary>
/// Posts to inventory.
/// </summary>
protected void postInventory()
{
using(SAN_SalesInvoiceDimensionMockContext contextSet = SAN_SalesInvoiceDimensionMockContext::createInstance())
{
if(SalesParameters::find().SAN_OverrideDimensionValue)
{
contextSet.isParameterActive = true;
SalesTable salesTable;
salesTable = salesLine.SalesTable();
if(salesTable && salesLine)
{
contextSet.polsalesTable = salesTable;
contextSet.isValidToOverride = true;
contextSet.polproductLineToOverride = '09';
}
}
next postInventory();
}
}
/// <summary>
/// Posts one journal line.
/// </summary>
protected void postLine()
{
using(SAN_SalesInvoiceDimensionMockContext contextSet = SAN_SalesInvoiceDimensionMockContext::createInstance())
{
if(SalesParameters::find().SAN_OverrideDimensionValue)
{
contextSet.isParameterActive = true;
SalesTable salesTable;
salesTable = salesParmLine.SalesLine().SalesTable();
if(salesTable && salesParmLine )
{
contextSet.polsalesTable = salesTable;
contextSet.isValidToOverride = true;
contextSet.polproductLineToOverride = '09';
}
}
next postLine();
}
}
/// <summary>
/// buildDefaultAndLedgerDimension for govt and non-govt segment
/// </summary>
/// <param name = "_ledger">LedgerDimensionAccount</param>
/// <param name = "_overridePL">overridePL</param>
/// <returns>ledgerDimensionAccount</returns>
Static ledgerDimensionAccount SAN_buildDefaultAndLedgerDimension(LedgerDimensionAccount _ledger, str _overridePL)
{
DimensionAttributeValueSetStorage dimensionAttributeValueSetStorage;
DimensionAttributeValue dimensionAttributeValue;
DimensionDefault dimensionDefault;
LedgerDimensionAccount ledgerDimensionAccount;
DimensionAttributeLevelValueAllView dimAttrValueallview;
dimensionAttributeValueSetStorage = new DimensionAttributeValueSetStorage();
RefRecId mainAccountRecId, LedgerDimensionAcc;
mainAccountRecId = LedgerDimensionFacade::getMainAccountRecIdFromLedgerDimension(_ledger);
LedgerDimensionAcc = LedgerDefaultAccountHelper::getDefaultAccountFromMainAccountRecId(mainAccountRecId);
while select dimAttrValueallview
where dimAttrValueallview.ValueCombinationRecId == _ledger
{
if(DimensionAttribute::find(dimAttrValueallview.DimensionAttribute).Name != "MainAccount")
{
if(DimensionAttribute::find(dimAttrValueallview.DimensionAttribute).Name == "ProductLine")
{
dimensionAttributeValue = DimensionAttributeValue::findByDimensionAttributeAndValue(
DimensionAttribute::find(dimAttrValueallview.DimensionAttribute),
_overridePL, false, true);
}
else
{
dimensionAttributeValue = DimensionAttributeValue::findByDimensionAttributeAndValue(
DimensionAttribute::find(dimAttrValueallview.DimensionAttribute),
dimAttrValueallview.DisplayValue, false, true);
}
dimensionAttributeValueSetStorage.addItem(dimensionAttributeValue);
dimensionDefault = dimensionAttributeValueSetStorage.save();
}
}
ledgerDimensionAccount = LedgerDimensionFacade::serviceCreateLedgerDimension(LedgerDimensionAcc,dimensionDefault);
return ledgerDimensionAccount;
}
}
Base class for extract
/// <summary>
/// Class for extract data
/// </summary>
class SAN_SalesReportDailyService
{
Filename filename;
int recordCnt;
/// <summary>
/// Import warranty claims
/// </summary>
/// <param name = "_contract">Contract of type <b>SAN_SalesReportDailyContract</b></param>
[SysEntryPointAttribute(false)]
public void processImport(SAN_SalesReportDailyContract _contract)
{
contract = _contract;
try
{
this.exportSalesInvoiceData();
if (recordCnt)
{
info(strFmt("@SANaris:FileExportInfo", filename));
}
}
catch
{
error("@SYP4861341");
}
}
public void exportSalesInvoiceData()
{
#DMF
SharedServiceUnitFileID fileId;
SAN_DataEntityExporter exporter = new SAN_DataEntityExporter();
DMFDefinitionGroupName definitionGroupName = SalesParameters::find().SAN_SalesDailyReportDefinitionGroup; //TODO create new parameter field to get DMF execution
DMFDefinitionGroupEntity dmfDefinitionGroupEntity = SAN_SalesReportDailyService::findDMFDefinitionGroupEntity(definitionGroupName);
if (dmfDefinitionGroupEntity)
{
this.updateQueryData(dmfDefinitionGroupEntity);
this.setFileName();
exporter.parmFilename(filename);
exporter.exportDataEntity(definitionGroupName, dmfDefinitionGroupEntity.Entity);
}
else
{
throw error(strFmt("@SANaris:DataEntityMapError", definitionGroupName));
}
}
public str setFileName()
{
#File
str priFix;
priFix = 'SalesReportSAN_';
filename = priFix +
date2str(systemDateGet(),123,DateDay::Digits2,DateSeparator::None,DateMonth::Digits2,DateSeparator::None,DateYear::Digits4) + #xlsx;
return filename;
}
private void updateQueryData(DmfDefinitionGroupEntity _dmfDefinitionGroupEntity)
{
container queryData = _dmfDefinitionGroupEntity.QueryData;
if (queryData == connull())
{
queryData = DMFUtil::getDefaultQueryForEntityV3(_dmfDefinitionGroupEntity.Entity, _dmfDefinitionGroupEntity.DefinitionGroup);
}
QueryRun queryRun = new QueryRun(queryData);
Query query = queryRun.query();
QueryBuildDataSource qbds = query.dataSourceTable(tableNum(SAN_SalesReportDailyEntity));
SysQuery::findOrCreateRange(qbds, fieldNum(SAN_SalesReportDailyEntity, InvoiceDate)).value(queryRange(fromDate, toDate));
if (warehouseId)
{
SysQuery::findOrCreateRange(qbds, fieldNum(SAN_SalesReportDailyEntity, Warehouse)).value(queryValue(warehouseId));
}
queryRun = new QueryRun(query);
queryData = queryRun.pack();
recordCnt = SysQuery::countTotal(queryRun);
if (recordCnt < 1)
{
throw error("@SYS4205");
}
ttsbegin;
_dmfDefinitionGroupEntity.reread();
_dmfDefinitionGroupEntity.selectForUpdate(true);
_dmfDefinitionGroupEntity.QueryData = queryData;
_dmfDefinitionGroupEntity.update();
ttscommit;
}
/// <summary>
/// Finds the <c>DMFDefinitionGroupEntity</c> record in the given definition group for the Line active view record entity.
/// </summary>
/// <param name = "_definitionGroupName">The name if the definition group</param>
/// <returns>the <c>DMFDefinitionGroupEntity</c> record if found, otherwise null</returns>
public static DMFDefinitionGroupEntity findDMFDefinitionGroupEntity(DMFDefinitionGroupName _definitionGroupName)
{
DMFDefinitionGroupEntity definitionGroupEntity;
DMFEntity dmfEntity;
str targetEntityName;
targetEntityName = 'SAN_SalesReport';
select firstonly RecId, Entity, DefinitionGroup from definitionGroupEntity
exists join dmfEntity
where definitionGroupEntity.DefinitionGroup == _definitionGroupName
&& dmfEntity.EntityName == definitionGroupEntity.Entity
&& dmfEntity.TargetEntity == targetEntityName;
return definitionGroupEntity;
}
}
Helper class:
/// <summary>
/// Data entity data export helper class.
/// </summary>
public class SAN_DataEntityExporter
{
Filename filename;
/// <summary>
/// set file name
/// </summary>
/// <param name = "_filename">file name to export data</param>
/// <returns>file name</returns>
public Filename parmFilename(Filename _filename = filename)
{
filename = _filename;
return filename;
}
/// <summary>
/// Export an entity to file
/// </summary>
/// <param name = "_definitionGroupName">Definition group to reuse</param>
/// <param name = "_entityName">Entity label</param>
public void exportDataEntity(DMFDefinitionGroupName _definitionGroupName, DMFEntityName _entityName)
{
#DMF
SharedServiceUnitFileID fileId;
try
{
DMFEntityExporter exporter = new DMFEntityExporter();
fileId = exporter.exportToFile(_entityName,
_definitionGroupName,
'',
BudgetPlanningConstants::Excel,
#FieldGroupName_AllFields,
conNull(),
curExt()
);
if (fileId != '')
{
this.sendFileToDestination(fileId);
}
else
{
// DMF execution failed and details were written to the execution log.
throw error("@CashManagement:DMFExportCallFailedToExecutionLog");
}
}
catch
{
error("@SYP4861341");
}
}
/// <summary>
/// Creates a stream, puts it into temp storage (like SendFileToTempStore), and redirects the user to that file to cause it to be downloaded by the user's browser.
/// </summary>
/// <param name = "_fileId">The file name of the stream.</param>
public client void sendFileToDestination(SharedServiceUnitFileID _fileId)
{
str downloadUrl = DMFDataPopulation::getAzureBlobReadUrl(str2Guid(_fileId));
System.IO.Stream stream = File::UseFileFromURL(downloadUrl);
File::SendFileToUser(stream, filename);
}
}
[SubscribesTo(classstr(SysMenuNavigationObjectFactory), staticdelegatestr(SysMenuNavigationObjectFactory, checkAddSubMenuDelegate))]
public static void menuItemVisibilityHandler(SysDictMenu _rootMenu, SysDictMenu _subMenu, SysBoxedBoolean _subMenuVisibility)
{
if (_subMenu.isMenuItem())
{
var metadataElement = _subMenu.GetMenuItemMetaElement();
if (metadataElement != null)
{
SAN_HelperCls::santst_setVisibilityMenuItems(metadataElement.Name, _subMenuVisibility);
}
}
}
public class SAN_HelperCls
{
private static void santst_setVisibilityMenuItems(str _menuItemName, SysBoxedBoolean _subMenuVisibility)
{
const str menuItemsPrefix = "SAN_TEST";
if (strScan(_menuItemName, menuItemsPrefix , 0, strLen(_menuItemName)))
{
_subMenuVisibility.value = SAN_HelperCls::isEnabled();
}
}
public static boolean isEnabled()
{
return isConfigurationkeyEnabled(configurationkeynum(Trade)) &&
FeatureStateProvider::isFeatureEnabled(SAN_DevFeature::instance());
}
}
Parameter control (Yes/No)
or
Feature class:
using System.ComponentModel.Composition;
using Microsoft.Dynamics.ApplicationPlatform.FeatureExposure;
/// <summary>
/// The <c>SAN_DevFeature</c> class defines the enable advanced order hold feature.
/// </summary>
[ExportAttribute(identifierstr(Microsoft.Dynamics.ApplicationPlatform.FeatureExposure.IFeatureMetadata))]
[Microsoft.Dynamics.BusinessPlatform.SharedTypes.InternalUseOnlyAttribute]
public final class SAN_DevFeature implements IFeatureMetadata, IFeatureLifecycle
{
private static SAN_DevFeature instance;
private void new()
{
}
[Hookable(false)]
public WebSiteURL learnMoreUrl()
{
return 'https://learn.microsoft.com/en-us/';
}
private static void TypeNew()
{
instance = new SAN_DevFeature();
}
/// <summary>
/// Obtains the singleton object instance.
/// </summary>
/// <returns>The <c>SAN_DevFeature</c> instance.</returns>
[Hookable(false)]
public static SAN_DevFeature instance()
{
return SAN_DevFeature::instance;
}
[Hookable(false)]
public FeatureLabelId label()
{
return literalStr("SAN DEV tool features");
}
[Hookable(false)]
public int module()
{
return FeatureModuleV0::SalesAndMarketing;
}
[Hookable(false)]
public FeatureLabelId summary()
{
return literalStr("SAN DEV tool features");
}
[Hookable(false)]
public boolean isEnabledByDefault()
{
return false;
}
[Hookable(false)]
public boolean canDisable()
{
return true;
}
[Hookable(false)]
public FeatureLifecycleStage FeatureStage()
{
return FeatureLifecycleStage::Released;
}
}
Table1 ppt;
select firstonly ppt
order ItemCode, ItemRelation, AccountCode, AccountRelation where
(ppt.ItemCode == TableGroupAll::Table && ppt.ItemRelation == _itemId &&
ppt.AccountCode == TableGroupAll::Table && ppt.AccountRelation == _accountNum) ||
(ppt.ItemCode == TableGroupAll::Table && ppt.ItemRelation == _itemId &&
ppt.AccountCode == TableGroupAll::GroupId && ppt.AccountRelation == _accountGroup) ||
(ppt.ItemCode == TableGroupAll::Table && ppt.ItemRelation == _itemId &&
ppt.AccountCode == TableGroupAll::All && ppt.AccountRelation == '') ||
(ppt.ItemCode == TableGroupAll::GroupId && ppt.ItemRelation == _ItemGroup &&
ppt.AccountCode == TableGroupAll::Table && ppt.AccountRelation == _accountNum) ||
(ppt.ItemCode == TableGroupAll::GroupId && ppt.ItemRelation == _ItemGroup &&
ppt.AccountCode == TableGroupAll::GroupId && ppt.AccountRelation == _accountGroup) ||
(ppt.ItemCode == TableGroupAll::GroupId && ppt.ItemRelation == _ItemGroup &&
ppt.AccountCode == TableGroupAll::All && ppt.AccountRelation == '') ||
(ppt.ItemCode == TableGroupAll::All && ppt.ItemRelation == '' &&
ppt.AccountCode == TableGroupAll::Table && ppt.AccountRelation == _accountNum) ||
(ppt.ItemCode == TableGroupAll::All && ppt.ItemRelation == '' &&
ppt.AccountCode == TableGroupAll::GroupId && ppt.AccountRelation == _accountGroup) ||
(ppt.ItemCode == TableGroupAll::All && ppt.ItemRelation == '' &&
ppt.AccountCode == TableGroupAll::All && ppt.AccountRelation == '');
// Return table buffer if found, otherwise return 0 as the default
if (ppt.RecId)
{
// return result
}
//Input
--container _xppCallStack = xSession::xppCallStack();
Public static str POL_formatXppCallStack(container _xppCallStack, int _skipFrames)
{
str result = '';
int startFrame = 1 + _skipFrames;
// Each stack frame is four elements [Method, Line Number, Model Publisher, Model]
for (int i = startFrame; i <= conLen(_xppCallStack); i += 4)
{
str methodName = conPeek(_xppCallStack, i);
str lineNum = conPeek(_xppCallStack, i + 1);
str publisher = conPeek(_xppCallStack, i + 2);
str model = conPeek(_xppCallStack, i + 3);
// Add a newline between stack frames
if (i > 1)
{
result += '\n at';
}
// Model identifer
if (publisher || model)
{
result += strFmt('[%1%2%3]', publisher, (publisher && model ? ':' : ''), model);
}
// Code
result += strFmt('%1%2', methodName, (lineNum && lineNum != '0' ? ':' + lineNum : ''));
}
return result;
}
Copy Markup charges while posting purchase invoice using X++
Class:
Important: Code logic is just for Reference.
New class => Duplicate of class MarkupCopy & Named as SAN_MarkupCopy
/// <summary>
/// Duplicate Copy class of MarkupCopy
/// Due to extension limited capabilities on internal and private implementation from STD OOB
Helper class: To call logic
/// <summary>
/// Helper class to centralized logic to copy charges from and to table buffer for purchase
/// </summary>
class SAN_GeneratePurchaseMarkupChargesHelper
{
public static void createPurchaseHeaderMarkupCharge(
Common _fromTable,
Common _toTable,
PurchTable _purchTable )
{
MarkupCopy markupCopy;
MarkupCopyFromPurchOrderParameters copyFromPurchOrderToSubTableParameters;
markupCopy = MarkupCopy::construct();
copyFromPurchOrderToSubTableParameters =
MarkupCopyFromPurchOrderParameters::createCopyFromPurchOrderParameters(
_fromTable,
_toTable,
'',
_purchTable.CurrencyCode,
SourceDocumentLineAccountingStatus::Draft,
_purchTable,
false);
markupCopy.copyFromPurchOrder(copyFromPurchOrderToSubTableParameters);
}
public static void createPurchaseLinesMarkupCharge(
PurchLine _purchLine,
VendInvoiceInfoLine _vendInvoiceInfoLine,
PurchTable _purchTable,
VendInvoiceInfoTable _vendInvoiceInfoTable)
{
ttsbegin;
SAN_MarkupCopy markupCopy;
markupCopy = SAN_MarkupCopy::construct();
MarkupCopyFromPurchOrderParameters copyFromPurchOrderToLineParameters;
copyFromPurchOrderToLineParameters =
MarkupCopyFromPurchOrderParameters::createCopyFromPurchOrderParameters(
_purchLine,
_vendInvoiceInfoLine,
'',
'',
SourceDocumentLineAccountingStatus::Draft,
null,
false);
SysDaBinaryExpression sysDaBinaryExpressionSource, sysDaBinaryExpressionDest;
sysDaBinaryExpressionDest = new SysDaEqualsExpression(
new SysDaFieldExpression(_vendInvoiceInfoLine, fieldStr(VendInvoiceInfoLine, ParmId)), new SysDaValueExpression(_vendInvoiceInfoTable.ParmId))
.and(new SysDaEqualsExpression(
new SysDaFieldExpression(_vendInvoiceInfoLine, fieldStr(VendInvoiceInfoLine, TableRefId)), new SysDaValueExpression(_vendInvoiceInfoTable.TableRefId)));
sysDaBinaryExpressionSource = new SysDaEqualsExpression(
new SysDaFieldExpression(_purchLine, fieldStr(PurchLine, RecId)), new SysDaFieldExpression(_vendInvoiceInfoLine, fieldStr(VendInvoiceInfoLine, PurchLineRecId)));
copyFromPurchOrderToLineParameters.parmBufferToWhereClause(sysDaBinaryExpressionDest);
copyFromPurchOrderToLineParameters.parmBufferFromWhereClause(sysDaBinaryExpressionSource);
copyFromPurchOrderToLineParameters.parmDocumentStatusToExclude(DocumentStatus::Invoice);
MarkupTransTmp markUpTransTmp = markupCopy.copyForAllDocumentLinesUsingTempMarkupTrans(copyFromPurchOrderToLineParameters);
SAN_GeneratePurchaseMarkupChargesHelper::copyMarkupFromPurchOrderOptimizedCleanup(_vendInvoiceInfoTable, markUpTransTmp);
ttscommit;
}
private static void copyMarkupFromPurchOrderOptimizedCleanup(VendInvoiceInfoTable _vendInvoiceInfoTable, MarkupTransTmp _markUpTransTmpCopy)
{
MarkupTrans markupTransOtherInvoices;
VendInvoiceInfoLine vendInvoiceInfoLine;
MarkupTransMapping markUpTransMapping;
// Find if there is a MarkupTrans that is not marked Keep and it is already connected to another invoice
// we will only call delete if there exists one
select firstonly RecId from _markUpTransTmpCopy
join vendInvoiceInfoLine
where vendInvoiceInfoLine.ParmId == _vendInvoiceInfoTable.ParmId
&& vendInvoiceInfoLine.TableRefId == _vendInvoiceInfoTable.TableRefId
&& _markUpTransTmpCopy.TransTableId == vendInvoiceInfoLine.TableId
&& _markUpTransTmpCopy.TransRecId == vendInvoiceInfoLine.RecId
&& _markUpTransTmpCopy.SourceDocumentLine == 0
&& !_markUpTransTmpCopy.Keep
join markupTransOtherInvoices
where markupTransOtherInvoices.OrigTableId == _markUpTransTmpCopy.OrigTableId
&& markupTransOtherInvoices.OrigRecId == _markUpTransTmpCopy.OrigRecId
&& markupTransOtherInvoices.TransTableId == _markUpTransTmpCopy.TransTableId
&& markupTransOtherInvoices.TransRecId != _markUpTransTmpCopy.TransRecId;
if (_markUpTransTmpCopy.RecId != 0)
{
vendInvoiceInfoLine.clear();
markupTransOtherInvoices.clear();
delete_from _markUpTransTmpCopy
exists join vendInvoiceInfoLine
where vendInvoiceInfoLine.ParmId == _vendInvoiceInfoTable.ParmId
&& vendInvoiceInfoLine.TableRefId == _vendInvoiceInfoTable.TableRefId
&& _markUpTransTmpCopy.TransTableId == vendInvoiceInfoLine.TableId
&& _markUpTransTmpCopy.TransRecId == vendInvoiceInfoLine.RecId
&& _markUpTransTmpCopy.SourceDocumentLine == 0
&& !_markUpTransTmpCopy.Keep
join markupTransOtherInvoices
where markupTransOtherInvoices.OrigTableId == _markUpTransTmpCopy.OrigTableId
&& markupTransOtherInvoices.OrigRecId == _markUpTransTmpCopy.OrigRecId
&& markupTransOtherInvoices.TransTableId == _markUpTransTmpCopy.TransTableId
&& markupTransOtherInvoices.TransRecId != _markUpTransTmpCopy.TransRecId;
//Perform cascading delete action for <c>MarkupTransMapping</c> table
markUpTransMapping.clear();
markUpTransMapping.skipDataMethods(true);
markUpTransMapping.skipDeleteActions(true);
markUpTransMapping.skipEvents(true);
delete_from markUpTransMapping
notexists join _markUpTransTmpCopy
where _markUpTransTmpCopy.TransRecId == markUpTransMapping.MarkupTransTransRecId &&
_markUpTransTmpCopy.TransTableId == markUpTransMapping.MarkupTransTransTableId &&
_markUpTransTmpCopy.LineNum == markUpTransMapping.MarkupTransLineNum;
}
// Create a SourceDocumentLine record for each new charge
RecId sourceDocumentHeader = _vendInvoiceInfoTable.SourceDocumentHeader;
int SourceRelationType = tableNum(MarkupTrans);
EnumName TypeEnumName = enumStr(SourceDocumentLine_VendorInvoice);
EnumValue TypeEnumValue = SourceDocumentLine_VendorInvoice::VendorInvoiceChargeLine;
SourceDocumentLineAccountingStatus AccountingStatus = SourceDocumentLineAccountingStatus::Draft;
AccountingDate ExchangeRateDate = _vendInvoiceInfoTable.updateDate();
vendInvoiceInfoLine.clear();
SourceDocumentLine sourceDocumentLine;
sourceDocumentLine.skipDataMethods(true);
sourceDocumentLine.skipEvents(true);
sourceDocumentLine.skipTempTableForInsertRecordSet(true);
insert_recordset sourceDocumentLine
(
ParentSourceDocumentLine,
SourceDocumentHeader,
AccountingStatus,
ExchangeRateDate,
SourceRelationType,
TypeEnumName,
TypeEnumValue,
SourceImplementationRecId
)
select
SourceDocumentLine,
sourceDocumentHeader,
AccountingStatus,
ExchangeRateDate,
SourceRelationType,
TypeEnumName,
TypeEnumValue
from vendInvoiceInfoLine
where vendInvoiceInfoLine.ParmId == _vendInvoiceInfoTable.ParmId
&& vendInvoiceInfoLine.TableRefId == _vendInvoiceInfoTable.TableRefId
join RecId from _markUpTransTmpCopy
where _markUpTransTmpCopy.TransTableId == vendInvoiceInfoLine.TableId
&& _markUpTransTmpCopy.TransRecId == vendInvoiceInfoLine.RecId
&& _markUpTransTmpCopy.SourceDocumentLine == 0;
sourceDocumentLine.skipTempTableForInsertRecordSet(false);
vendInvoiceInfoLine.clear();
sourceDocumentLine.clear();
update_recordset _markUpTransTmpCopy setting
SourceDocumentLine = sourceDocumentLine.RecId
where _markUpTransTmpCopy.SourceDocumentLine == 0
join vendInvoiceInfoLine
where vendInvoiceInfoLine.ParmId == _vendInvoiceInfoTable.ParmId
&& vendInvoiceInfoLine.TableRefId == _vendInvoiceInfoTable.TableRefId
&& vendInvoiceInfoLine.TableId == _markUpTransTmpCopy.TransTableId
&& vendInvoiceInfoLine.RecId == _markUpTransTmpCopy.TransRecId
join sourceDocumentLine
where sourceDocumentLine.SourceDocumentHeader == sourceDocumentHeader &&
sourceDocumentLine.ParentSourceDocumentLine == vendInvoiceInfoLine.SourceDocumentLine &&
sourceDocumentLine.SourceImplementationRecId == _markUpTransTmpCopy.RecId;
SAN_GeneratePurchaseMarkupChargesHelper::insertMarkupTransRecordFromMarkupTransTmp(_markUpTransTmpCopy);
//dispose buffers
vendInvoiceInfoLine.dispose();
_markUpTransTmpCopy.dispose();
markupTransOtherInvoices.dispose();
markUpTransMapping.dispose();
sourceDocumentLine.dispose();
}
private static void insertMarkupTransRecordFromMarkupTransTmp(MarkupTransTmp _markUpTransTmpCopy)
{
SysDaInsertObject insertObj = SAN_GeneratePurchaseMarkupChargesHelper::buildMarkupTransInsertObject();
SysDaQueryObject queryObj = SAN_GeneratePurchaseMarkupChargesHelper::buildMarkupTransTmpQueryObject(_markUpTransTmpCopy);
SAN_GeneratePurchaseMarkupChargesHelper::insertRecords(queryObj, insertObj);
}
private static SysDaInsertObject buildMarkupTransInsertObject()
{
//insert_recordset markupTransDestination (
// BankLCImportChargeAllocation_SA, CalculatedAmount, CalculatedAmountMST_W, CurrencyCode, etc.)
MarkupTrans markupTransDestination;
markupTransDestination.skipEvents(true);
markupTransDestination.skipDataMethods(true);
markupTransDestination.skipTempTableForInsertRecordSet(true);
SysDaInsertObject markupTransInsertObject = new SysDaInsertObject(markupTransDestination);
SAN_GeneratePurchaseMarkupChargesHelper::addMarkupTransFields(markupTransInsertObject.fields());
return markupTransInsertObject;
}
private static SysDaQueryObject buildMarkupTransTmpQueryObject(MarkupTransTmp _markupTransTmpSource)
{
//select BankLCImportChargeAllocation_SA, CalculatedAmount, CalculatedAmountMST_W, CurrencyCode, etc. from markupTransTmpSource
SysDaQueryObject markupTransTmpQueryObject = new SysDaQueryObject(_markupTransTmpSource);
SAN_GeneratePurchaseMarkupChargesHelper::addMarkupTransFields(markupTransTmpQueryObject.projection());
return markupTransTmpQueryObject;
}
private static void addMarkupTransFields(SysDaSelection _selectionObject)
{
_selectionObject
.add(fieldStr(MarkupTrans, BankLCImportChargeAllocation_SA))
.add(fieldStr(MarkupTrans, CalculatedAmount))
.add(fieldStr(MarkupTrans, CalculatedAmountMST_W))
.add(fieldStr(MarkupTrans, CurrencyCode))
.add(fieldStr(MarkupTrans, CustomsAssessableValue_IN))
.add(fieldStr(MarkupTrans, CustVendPosted_RU))
.add(fieldStr(MarkupTrans, ExchRate_RU))
.add(fieldStr(MarkupTrans, ExchRateSecond_RU))
.add(fieldStr(MarkupTrans, FromAmount))
.add(fieldStr(MarkupTrans, IsAutoCharge))
.add(fieldStr(MarkupTrans, IsTieredCharge))
.add(fieldStr(MarkupTrans, ItemPosted_RU))
.add(fieldStr(MarkupTrans, Keep))
.add(fieldStr(MarkupTrans, LineNum))
.add(fieldStr(MarkupTrans, MarkupAllocateAfter_IN))
.add(fieldStr(MarkupTrans, MarkupCategory))
.add(fieldStr(MarkupTrans, MarkupClassification_BR))
.add(fieldStr(MarkupTrans, MarkupCode))
.add(fieldStr(MarkupTrans, MCRBrokerContractFee))
.add(fieldStr(MarkupTrans, MCRCouponMarkup))
.add(fieldStr(MarkupTrans, MCRInstallmentEligible))
.add(fieldStr(MarkupTrans, MCRMarkupTransCreatedBy))
.add(fieldStr(MarkupTrans, MCRMiscChargeOverride))
.add(fieldStr(MarkupTrans, MCROriginalMiscChargeValue))
.add(fieldStr(MarkupTrans, MCRReasonCode))
.add(fieldStr(MarkupTrans, MCRRetailInfoCodeId))
.add(fieldStr(MarkupTrans, MCRSavedRecId))
.add(fieldStr(MarkupTrans, MCRSavedTableId))
.add(fieldStr(MarkupTrans, ModuleCategory))
.add(fieldStr(MarkupTrans, ModuleType))
.add(fieldStr(MarkupTrans, NotionalCharges_IN))
.add(fieldStr(MarkupTrans, NotionalPct_IN))
.add(fieldStr(MarkupTrans, TaxAmount))
.add(fieldStr(MarkupTrans, TaxAmountExcise_RU))
.add(fieldStr(MarkupTrans, TaxAmountExciseMST_RU))
.add(fieldStr(MarkupTrans, TaxAmountMst_W))
.add(fieldStr(MarkupTrans, TaxAmountVAT_RU))
.add(fieldStr(MarkupTrans, TaxAmountVATMST_RU))
.add(fieldStr(MarkupTrans, TaxAutoGenerated))
.add(fieldStr(MarkupTrans, TaxGroup))
.add(fieldStr(MarkupTrans, TaxItemGroup))
.add(fieldStr(MarkupTrans, TaxValueVAT_RU))
.add(fieldStr(MarkupTrans, TaxVATType_RU))
.add(fieldStr(MarkupTrans, TaxWriteCode))
.add(fieldStr(MarkupTrans, ToAmount))
.add(fieldStr(MarkupTrans, Txt))
.add(fieldStr(MarkupTrans, Value))
.add(fieldStr(MarkupTrans, VATDocumentType_RU))
.add(fieldStr(MarkupTrans, SATProductCode_MX))
.add(fieldStr(MarkupTrans, SATUnitCode_MX))
.add(fieldStr(MarkupTrans, WithholdingTypeCode_MX))
.add(fieldStr(MarkupTrans, MarkupAutoTableRecId))
.add(fieldStr(MarkupTrans, RetailShippingPromotionDiscount))
.add(fieldStr(MarkupTrans, IsAdvancedLineProrated))
.add(fieldStr(MarkupTrans, IsOverriddenProratedLine))
.add(fieldStr(MarkupTrans, MarkupAutoLineRecId))
.add(fieldStr(MarkupTrans, IsOverriddenLine))
.add(fieldStr(MarkupTrans, PreviousValue))
.add(fieldStr(MarkupTrans, OverrideSalesTax))
.add(fieldStr(MarkupTrans, TransTableId))
.add(fieldStr(MarkupTrans, TransRecId))
.add(fieldStr(MarkupTrans, OrigTableId))
.add(fieldStr(MarkupTrans, OrigRecId))
.add(fieldStr(MarkupTrans, SpecificUnitSymbol))
.add(fieldStr(MarkupTrans, SourceDocumentLine));
if (LedgerParameters::find().EnableWHTOnCharges == NoYes::Yes)
{
_selectionObject
.add(fieldStr(MarkupTrans, TaxWithholdGroup))
.add(fieldStr(MarkupTrans, TaxWithholdItemGroup));
}
}
private static void insertRecords(SysDaQueryObject _queryObject, SysDaInsertObject _insertObject)
{
_insertObject.query(_queryObject);
SysDaInsertStatement insertStatement = new SysDaInsertStatement();
insertStatement.executeQuery(_insertObject);
}
}