1. Stop the AOS web services (Go to IIS and look for "AOS services" and stop it)
2. Stop Microsoft Dynamics 365 Unified Operations: Batch Management Service [type services.msc into run and search for it]
3. Now go to C:\AOSService\PackagesLocalDirectory
4. Delete your model
5. Now start the AOS web services and Batch Management services
6. Now refresh models
7. Synchronize the database
Create a new job
static void TTC_AY_SysXppAssembly(Args _args)
{
SysXppAssembly SysXppAssembly;
delete_from SysXppAssembly;
}
Now Run it.
Now run a Full CIL
Tada! Error resolved
In this example We will be importing name and id from a csv file in a table.
class TTC_AY_ImportFile
{
public static void main(Args _args)
{
AsciiStreamIo file;
FileUploadTemporaryStorageResult fileUpload;
TTC_WorkerTable workerTable;
Counter counter = 0;
str Name;
#OCCRetryCount
try
{
fileUpload = File::GetFileFromUser() as FileUploadTemporaryStorageResult;
file = AsciiStreamIo::constructForRead(fileUpload.openResult());
if (file)
{
if (file.status())
{
throw error("Unknown problem while importing file");
}
file.inFieldDelimiter(';'); //separator
file.inRecordDelimiter('\r\n');
}
//Read a CSV File
container rec;
ttsbegin;
while (!file.status())
{
counter++;
rec = file.read();
if (conLen(rec))
{
Name = conPeek(rec, 2);
workerTable = TTC_WorkerTable::find(Name);
if(!workerTable.RecId)
{
workerTable.clear();
workerTable.Id = conPeek(rec, 1);
workerTable.Name = Name;
workerTable.insert();
}
}
}
ttscommit;
info("Operation complete.");
}
catch (Exception::Deadlock)
{
retry;
}
catch (Exception::UpdateConflict)
{
if (appl.ttsLevel() == 0)
{
if (xSession::currentRetryCount() >= #RetryNum)
{
throw Exception::UpdateConflictNotRecovered;
}
else
{
retry;
}
}
else
{
throw Exception::UpdateConflict;
}
}
}
}
In this example We will be showing name and personnel number of worker at Worker creation and automatically deleting the worker
[ExtensionOf(tableStr(HcmWorker))]
final class TTC_HcmWorker_Extension
{
public void insert()
{
next insert();
Info(strFmt("%1",this.PersonnelNumber));
Info(strFmt("%1",this.name()));
this.delete();
}
}
static void JobExportWorker(Args _args)
{
HcmWorker hcmWorker;
CommaTextIo file;
container line;
#define.filename(@'C:\Worker.csv')
#File
file = new CommaTextIo(#filename, #io_write);
if (!file || file.status() != IO_Status::Ok)
{
throw error("File cannot be opened.");
}
file.outRecordDelimiter('\r\n');
file.outFieldDelimiter('\t');
while select hcmWorker
{
line = [hcmWorker.personnelnumber,hcmWorker.Name()];
file.writeExp(line);
}
info(strFmt("File %1 created.", #filename));
}
static void ImportfromCSV(Args _args)
{
TTC_AppOfPF appOfPF;
Dialog dialog = new Dialog();
DialogField dialogField;
AsciiIo importFile;
str filePath,fileNameOnly;
filetype type;
container record;
str Delimiter = ",";
int totalRecords;
dialogField=dialog.addField(extendedTypeStr(FilenameOpen),"Select File","Select file to import");
dialog.caption("Import Worker's File");
dialog.filenameLookupFilter(['csv','*.csv']);
if(!dialog.run())
return;
[filePath, fileNameOnly, type] = fileNameSplit(dialogField.value());
importFile = new AsciiIo(dialogField.value(), 'R');
if((!importFile) || (importFile.status() != IO_Status::Ok))
{
warning("Error in opening import file");
throw(Exception::Error);
}
importFile.inFieldDelimiter(Delimiter);
if((!importFile) || (importFile.status() != IO_Status::Ok))
{
warning("Error in opening log file");
throw(Exception::Error);
}
try
{
ttsbegin;
record = importFile.read();
while(importFile.status() == IO_Status::Ok)
{
record = importFile.read();
if(!record)
break;
totalRecords = totalRecords + 1;
appOfPF.clear();
appOfPF.Worker = conPeek(record,1);
appOfPF.PersonnelNumber = conPeek(record,2);
appOfPF.PFAccountNum = conPeek(record,3);
appOfPF.insert();
}
ttscommit;
}
catch(Exception::Error)
{
Throw(Exception::Error);
}
info(strFmt("Total read records = %1",totalRecords));
}
Common : The system table Common is the base for all tables. The table contains no data, and the table can be compared with a temporary application table. Common is used like the base type anytype. You can set any table equal to the table Common. This is useful if you need to transfer a table as a parameter and not knowing the exact table before execution time
static void DataDic_Common(Args _args)
{
Common common;
CustTable custTable;
;
common = custTable;
if (common.tableId == tablenum(custTable))
{
while select common
{
info(common.(fieldnum(custTable, name)));
}
}
}
The example above is initializing Common with CustTable. A check is made to assure that Common is now equal to CustTable. All records from CustTable are looped, and the customer name is printed in the InfoLog. Notice, the system function fieldnum() is used to get the field name printed. If you do not know the fieldname at runtime, you can enter the field id in parentheses instead.
