fileName = System.IO.Path::GetTempFileName(); // returns a filename in the temporary directory
fileName = CLRInterop::getAnytypeForObject(System.IO.Path::GetTempPath() )+ curuserid() + int642str(CLRInterop::getAnyTypeForObject(netTime.get_Ticks());
display showEmplName()
{
EmplTable emplTable;
EmplName name;
;
info(strfmt("%1", emplTable.recordLevelSecurity())); // this will return false, but actually it's true!
select firstonly Name from emplTable
where emplTable.EmplId == reportTable.emplId; // the record will use RLS (yeah, it's magic)
name = emplTable.Name;
return name;
}
display showEmplName()
{
EmplName name;
;
name = EmplTable::find(reportTable.EmplId); // the select inside the find method will use RLS even you haven't activate this
return name;
}
display showEmplName()
{
EmplTable emplTable;
EmplName name;
;
emplTable.recordLevelSecurity(false); // this will really free from RLS
select firstonly Name from emplTable
where emplTable.EmplId == reportTable.emplId;
name = emplTable.Name;
return name;
}
display showEmplName()
{
EmplTable emplTable;
EmplName name;
;
info(strfmt("%1", emplTable.recordLevelSecurity())); // this will return false, but actually it's true!
select firstonly Name from emplTable
where emplTable.EmplId == reportTable.emplId; // the record will use RLS (yeah, it's magic)
name = emplTable.Name;
return name;
}
display showEmplName()
{
EmplName name;
;
name = EmplTable::find(reportTable.EmplId); // the select inside the find method will use RLS even you haven't activate this
return name;
}
display showEmplName()
{
EmplTable emplTable;
EmplName name;
;
emplTable.recordLevelSecurity(false); // this will really free from RLS
select firstonly Name from emplTable
where emplTable.EmplId == reportTable.emplId;
name = emplTable.Name;
return name;
}
public void delete()
{
userGroupId groupID;
SysSRSTablePermissions permissionsTable;
AifEndpointUser aifEndpointUser;
SysSecurityFormTable sysSecurityFormTable;
;
groupID = userGroupInfo.Id;
ttsbegin;
delete_from aifEndpointUser
where aifEndpointUser.UserId == groupID
&& aifEndpointUser.AxaptaUserType == AifAxaptaUserType::UserGroup;
delete_from sysSecurityFormTable
where sysSecurityFormTable.UserGroupId == groupID;
super();
if (isConfigurationkeyEnabled(configurationKeyName2Id('ReportingServices')))
{
//Now that the group is deleted, we can synchronize all the secure views that
//include RLS criteria for this group. We need to keep the record for this
//group in SRSTablePermissions for now because they are used to determine which
//tables have permissions assigned to them for the specified group.
//Once all views have been synchronized, then we can delete those records.
if (SRSSecureViewManagerProxy::syncWithGroup(groupID) != 0)
{
// modificaton begin
if ((select * from SRSServers).RecId)
{
ttsabort;
return;
}
/*else
{
just fall trough, there is no need to abort, since there is no Reporting Services Servers located
}*/
// modification end
}
//Delete all records for the group from the SRSTablePermissions table.
delete_from permissionsTable where permissionsTable.GroupId == groupID;
}
ttscommit;
}
Nun können auch alte migrierte Benutzergruppen gelöscht werden.
public void delete()
{
userGroupId groupID;
SysSRSTablePermissions permissionsTable;
AifEndpointUser aifEndpointUser;
SysSecurityFormTable sysSecurityFormTable;
;
groupID = userGroupInfo.Id;
ttsbegin;
delete_from aifEndpointUser
where aifEndpointUser.UserId == groupID
&& aifEndpointUser.AxaptaUserType == AifAxaptaUserType::UserGroup;
delete_from sysSecurityFormTable
where sysSecurityFormTable.UserGroupId == groupID;
super();
if (isConfigurationkeyEnabled(configurationKeyName2Id('ReportingServices')))
{
//Now that the group is deleted, we can synchronize all the secure views that
//include RLS criteria for this group. We need to keep the record for this
//group in SRSTablePermissions for now because they are used to determine which
//tables have permissions assigned to them for the specified group.
//Once all views have been synchronized, then we can delete those records.
if (SRSSecureViewManagerProxy::syncWithGroup(groupID) != 0)
{
// modificaton begin
if ((select * from SRSServers).RecId)
{
ttsabort;
return;
}
/*else
{
just fall trough, there is no need to abort, since there is no Reporting Services Servers located
}*/
// modification end
}
//Delete all records for the group from the SRSTablePermissions table.
delete_from permissionsTable where permissionsTable.GroupId == groupID;
}
ttscommit;
}
Now your able to delete migrated user groups.
Dynamics Object Adapter Call failed.
Funktion 'GetLocaleInfoW' in DLL-Bibliothek 'KERNEL32' hat eine Ausnahmebedingung ausgelöst.
Microsoft.Dynamics.BusinessConnectorNet.XppException
at Microsoft.Dynamics.BusinessConnectorNet.AxaptaObject.Call(String methodName, Object[] paramList)
at Microsoft.Dynamics.Framework.BusinessConnector.Session.DynamicsObjectAdapter.Call(String methodName, Object param1)
static int firstWeekOfYear()
{
#WinAPI
return str2int(WinAPI::getLocaleInfo(#LOCALE_USER_DEFAULT, #LOCALE_FIRSTWEEKOFYEAR));
}
Modified:static int firstWeekOfYear()
{
/* #WinAPI
return str2int(WinAPI::getLocaleInfo(#LOCALE_USER_DEFAULT, #LOCALE_FIRSTWEEKOFYEAR));
*/
System.Globalization.DateTimeFormatInfo info = System.Globalization.DateTimeFormatInfo::get_CurrentInfo();
System.Globalization.CalendarWeekRule rule = info.get_CalendarWeekRule();
;
return(CLRInterop::getAnyTypeForObject(rule));
}
Dynamics Object Adapter Call failed.
Funktion 'GetLocaleInfoW' in DLL-Bibliothek 'KERNEL32' hat eine Ausnahmebedingung ausgelöst.
Microsoft.Dynamics.BusinessConnectorNet.XppException
at Microsoft.Dynamics.BusinessConnectorNet.AxaptaObject.Call(String methodName, Object[] paramList)
at Microsoft.Dynamics.Framework.BusinessConnector.Session.DynamicsObjectAdapter.Call(String methodName, Object param1)
static int firstWeekOfYear()
{
#WinAPI
return str2int(WinAPI::getLocaleInfo(#LOCALE_USER_DEFAULT, #LOCALE_FIRSTWEEKOFYEAR));
}
Modifiziert:static int firstWeekOfYear()
{
/* #WinAPI
return str2int(WinAPI::getLocaleInfo(#LOCALE_USER_DEFAULT, #LOCALE_FIRSTWEEKOFYEAR));
*/
System.Globalization.DateTimeFormatInfo info = System.Globalization.DateTimeFormatInfo::get_CurrentInfo();
System.Globalization.CalendarWeekRule rule = info.get_CalendarWeekRule();
;
return(CLRInterop::getAnyTypeForObject(rule));
}
CustTable custTableUpdate;
CustTable custTableRead;
;
ttsbegin;
update_recordset custTableUpdate setting Street = custTableRead.Street, Name = custTableRead.Dimension[2], NameAlias = "any Alias"
where custTableUpdate.AccountNum == "00000001"
join custTableRead
where custTableRead.AccountNum == "00000002";
info(strfmt("%1", custTableUpdate.RowCount()));
select firstonly custTableUpdate where custTableUpdate.AccountNum == "00000001";
info(custTableUpdate.Street); // works fine so far
info(custTableUpdate.Name); // you didn't get what you expect
info(custTableUpdate.NameAlias); // you didn't get what you expect
ttscommit;
update_recordset custTableUpdate setting Name = custTableRead.Name, NameAlias = "any Alias"
where custTableUpdate.AccountNum == "00000001"
join custTableRead
where custTableRead.AccountNum == "00000002";
update_recordset custTableUpdate setting Name = custTableUpdate.Dimension[2], Street = custTableRead.Street
where custTableUpdate.AccountNum == "00000001"
join custTableRead
where custTableRead.AccountNum == "00000002";
ttsbegin;
select firstonly Dimension from custTableRead
where custTableRead.AccountNum == "00000002"
join forupdate custTableUpdate
where custTableUpdate.AccountNum == "00000001";
custTableUpdate.Name = custTableRead.Dimension[2];
custTableUpdate.update();
ttscommit;
CustTable custTable;
CustTrans custTrans;
CustTransOpen custTransOpen;
;
while select CustGroup from custtable group by CustGroup // group by
join Voucher from custTrans // order by
where custTrans.AccountNum == custtable.AccountNum
join DueDate from custTransOpen group by DueDate // group by
where custTransOpen.RefRecId == custTrans.RecId
{
info(custTable.CustGroup); // works
info(custTrans.Voucher); // works not
info(Date2StrUsr(custTransOpen.DueDate)); // works
}
CustTable custTable;
CustTrans custTrans;
CustTransOpen custTransOpen;
;
while select CustGroup from custtable group by CustGroup // group by
join Voucher, RecId from custTrans group by Voucher, RecId // group by
where custTrans.AccountNum == custtable.AccountNum
join DueDate from custTransOpen group by DueDate // group by
where custTransOpen.RefRecId == custTrans.RecId
{
info(custTable.CustGroup); // works
info(custTrans.Voucher); // works now
info(Date2StrUsr(custTransOpen.DueDate)); works
}
int64 i64 = 1 << 32; // move the very right positive bit just 32 ranks to the leftThe result on that will be 0. The problem comes up with the return value from the operation 1 << 32, it's an 32 bit integer, even the result will be copied in a 64 bit integer (the bit shfiting operation is executed encapsulated before copy to variable i64). The base operand sets the type of result, in our code it's a constant number (1). And because 1 is a 32 bit integer, the results represents a 32 bit integer too. But why it ends with zero result? Its the reaction for the overflow when trying to access a bit area which is not available on a 32 bit integer (a 32 bit integer has just its 32 bits - not more, not less). Other programming languages reacts in the same situation with exceptions type overflow (f.ex. VB6) or moves the bits in circle (f.ex. C#), but AX quits that problem situation just with a type specified null value.
int64 base = 1; int64 result = base << 32; // move the very right positive bit just 32 ranks to the left
int64 i64 = 1 << 32; // move the very right positive bit just 32 ranks to the leftDas Resultat draus ist nämlich 0. Das Problem liegt darin, dass der Rückgabewert der Operation 1 << 32 ein Integer 32 Bit Länge ist, auch wenn das ganze sogleich einem Integer 64 Bit Länge zugewiesen wird (die Bitverschiebung wird gekapselt ausgeführt bevor die Zuweisung an die Variable i64 erfolgt). Aber warum ist das Resultat 0? Der Basisoperand der Bitverschiebung bestimmt den Rückgabewert, in unserem Beispiel also eine konstante eins (1). Und weil eine 1 ein Integer 32 Bit Länge darstellt, ist auch das Ergebnis ein simpler Integer 32 Bit Länge. Das Resultat von 0 resultiert aus der Reaktion auf den Überlauf beim Zugriff auf ein Bit-Bereich den es auf einem Integers 32 Bit Länge nicht gibt (ein Integer 32 Bit Länge hat halt eben nur 32 Bits). Andere Programmiersprachen reagieren hier mit einer Ausnahme vom Typ Überlauf (z.B. VB6) oder schieben die Bits im Kreis herum (z.B. C#), AX beendet die Problemsituation schlicht mit einem typenspezifischen Nullwert.
int64 base = 1; int64 result = base << 32; // move the very right positive bit just 32 ranks to the left
throw strfmt("Error in %1", funcname());
throw error(strfmt("Error in %1", funcname()));
throw "3";
throw "3.7";
try
{
throw 230;
}
catch (230)
{
info("This works fine.")
}
try
{
throw 256;
}
catch (256)
{
// this line will never reached
}
catch
{
info("That's the way it is!")
}
throw strfmt("Fehler in %1", funcname());
throw error(strfmt("Fehler in %1", funcname()));
throw "3";
throw "3.7";
try
{
throw 230;
}
catch (230)
{
info("This works fine.")
}
try
{
throw 256;
}
catch (256)
{
// this line will never reached
}
catch
{
info("That's the way it is!")
}
Cannot edit a record in Table (Tablename).
An update conflict occurred due to another user process deleting the record or changing one or more fields in the record.
Table table; ; table.KeyField = 'a'; table.insert(); table.AdditionalField = 'halli galli'; table.update();
Table table; ; ttsbegin; table.KeyField = 'a'; table.insert(); table.AdditionalField = 'halli galli'; table.update(); ttscommit;
Table table; ; table.KeyField = 'a'; table.insert(); // time consuming other code here ttsbegin; table.selectForUpdate(true); table.reread(); table.AdditionalField = 'halli galli'; table.update(); ttscommit;
Ein Datensatz in Debitoren (Tabellenname) kann nicht bearbeitet werden.
Aktualisierungskonflikt, weil ein anderer Benutzerprozess den Datensatz gelöscht oder mindestens ein Feld im Datensatz geändert hat.
Table table; ; table.KeyField = 'a'; table.insert(); table.AdditionalField = 'halli galli'; table.update();
Table table; ; ttsbegin; table.KeyField = 'a'; table.insert(); table.AdditionalField = 'halli galli'; table.update(); ttscommit;
Table table; ; table.KeyField = 'a'; table.insert(); // time consuming other code here ttsbegin; table.selectForUpdate(true); table.reread(); table.AdditionalField = 'halli galli'; table.update(); ttscommit;
static void cRLExtendException(System.Exception _exception)
{
System.Exception exception = _exception;
SysInfoLogStr infoLogStr;
;
if (exception)
{
infoLogStr = exception.get_Message();
if (exception.Equals(exception.GetBaseException()))
{
// the most inner exception has reached, now we can write the infolog message and throw the exception
error(infoLogStr);
throw Exception::CLRError;
}
else
{
// the current exception is not the most inner exception, so we just set a infolog prefix
setprefix(infoLogStr);
MyClass::cRLExtendException(exception.get_InnerException());
}
}
/* else
{
well, there was no CLR exception, so just left out
}
*/
}
System.String[] files;
;
try
{
files = System.IO.Directory::GetFiles('c:\\halliGalli');
}
catch
{
MyClass::cRLExtendException(CLRInterop::getLastException());
}
Now your infolog window will look like this:
static void cRLExtendException(System.Exception _exception)
{
System.Exception exception = _exception;
SysInfoLogStr infoLogStr;
;
if (exception)
{
infoLogStr = exception.get_Message();
if (exception.Equals(exception.GetBaseException()))
{
// the most inner exception has reached, now we can write the infolog message and throw the exception
error(infoLogStr);
throw Exception::CLRError;
}
else
{
// the current exception is not the most inner exception, so we just set a infolog prefix
setprefix(infoLogStr);
MyClass::cRLExtendException(exception.get_InnerException());
}
}
/* else
{
well, there was no CLR exception, so just left out
}
*/
}
System.String[] files;
;
try
{
files = System.IO.Directory::GetFiles('c:\\halliGalli');
}
catch
{
MyClass::cRLExtendException(CLRInterop::getLastException());
}
DialogRunbase ret;
;
ret = super(dialog, forceOnClient);
ret.addMenuItemButton(MenuItemType::Display,
menuItemDisplayStr(MyRunBaseSelectionForm));
FormRun formRunCaller; DialogRunBase dialogRunBase; MyRunBaseClass caller; ; formRunCaller = element.args().caller(); // returns the dialog's form
// returns a DialogRunBase object dialogRunBase = formRunCaller.args().caller();
// finally returns the RunBase object caller = dialogRunBase.runBaseBatch();
public void closeOk()
{
QueryRun qr = caller.queryRun();
;
qr.whatEverYouHaveToManipulate(...);
caller.parmThisAndThat(...);
super();
}
public void closeOk()
{
QueryRun qr = caller.queryRun();
;
qr.whatEverYouHaveToManipulate(...);
caller.parmThisAndThat(...);
caller.dialogUpdate(); // updates at least query range fields
super();
}
DialogRunbase ret;
;
ret = super(dialog, forceOnClient);
ret.addMenuItemButton(MenuItemType::Display, menuItemDisplayStr(MyRunBaseSelectionForm));
FormRun formRunCaller;
DialogRunBase dialogRunBase;
MyRunBaseClass caller;
;
formRunCaller = element.args().caller(); // returns the dialog's form
dialogRunBase = formRunCaller.args().caller(); // returns a DialogRunBase object
caller = dialogRunBase.runBaseBatch(); // finally returns the RunBase object
public void closeOk()
{
QueryRun qr = caller.queryRun();
;
qr.whatEverYouHaveToManipulate(...);
caller.parmThisAndThat(...);
super();
}public void closeOk()
{
QueryRun qr = caller.queryRun();
;
qr.whatEverYouHaveToManipulate(...);
caller.parmThisAndThat(...);
caller.dialogUpdate(); // updates at least query range fields
super();
}ttsbegin; select firstonly forupdate myTable where myTable.NotUniqueField == 'anyValue'; myTable.delete(); ttscommit;
delete_from firstonly myTable where myTable.NotUniqueField == 'anyValue';
delete_from firstonly myTable where myTable.UniqueField == 'keyValue'; // and update_recordset firstonly myTable setting AnyField = 'anyValue' where myTable.UniqueField == 'keyValue';
ttsbegin; select firstonly forupdate myTable where myTable.NotUniqueField == 'anyValue'; myTable.delete(); ttscommit;
delete_from firstonly myTable where myTable.NotUniqueField == 'anyValue';
delete_from firstonly myTable where myTable.UniqueField == 'keyValue'; // and update_recordset firstonly myTable setting AnyField = 'anyValue' where myTable.UniqueField == 'keyValue';
/// <summary>
/// Calculates a simple math task
/// </summary>
/// <param name="_expression">
/// A simple mathematic expression. +-/* operators and brackets can be used
/// </param>
/// <returns>
/// The calculated result. If the expression does not match the expected format,
zero is returned.
/// </returns>
/// <remarks>
/// Uses functionality from <c>FormRealControl</c>, therefore client execution
is required.
/// </remarks>
static client real calcExpression(str _expression)
{
SysFormRun formRun;
Args args = new Args();
FormBuildControl buildCtrl;
FormRealControl realCtrl;
;
args.name(formstr(Dialog));
formRun = classFactory.formRunClass(args);
buildCtrl = formRun.form().design().addControl(FormControlType::Real,
classstr(FormRealControl));
formRun.init();
realCtrl = formRun.design().control(buildCtrl.id());
realCtrl.pasteText(_expression);
return realCtrl.realValue();
}info(strfmt('%1', MyClass::calcExpression('5+(5*2)')));///And that's how we use it:; /// Calculates a simple math task /// ; /// ; /// A simple mathematic expression. /// +-/* operators and brackets can be used /// ////// The calculated result. If the expression /// does not match the expected format, /// zero is returned. /// ; ///; /// Uses functionality from /// ; static client real calcExpression(str _expression) { SysFormRun formRun; Args args = new Args(); FormBuildControl buildCtrl; FormRealControl realCtrl; ; args.name(formstr(Dialog)); formRun = classFactory.formRunClass(args); buildCtrl = formRun.form().design() .addControl(FormControlType::Real, classstr(FormRealControl)); formRun.init(); realCtrl = formRun.design() .control(buildCtrl.id()); realCtrl.pasteText(_expression); return realCtrl.realValue(); }FormRealControl , /// therefore client execution /// is required. ///
info(strfmt('%1',
MyClass::calcExpression('5+(5*2)')));
Posts
All Comments
