static void BankAccountUploadExcel(Args _args)
{
#AviFiles
FilenameOpen filename;
dialogField dialogFilename,DialogJournalType;
int jounaltype;
Dialog dialog= new Dialog("Excel Upoad");
Container excelCont[];
RecId offsetledger;
RecId recidh;
HcmWorkerBankAccount HcmWorkerBankAccount;
int rowIdx;
Counter linesImported;
int lastRow,dimcount;
boolean ok = true;
str c1,c2,c3,c4,c5,c6,c7,c8,c9,c10;
str input;
container accEntryPattern;
BudgetType budgetType;
SysExcelApplication application;
SysExcelWorkBooks workBooks;
SysExcelWorkSheets workSheets;
SysExcelWorkSheet workSheet;
SysExcelCells cells;
SysOperationProgress progress;
struct struct= new Struct();
HcmPersonIdentificationNumber HcmPersonIdentificationNumber;
BankAccountType BankAccountType;
#define.CurrentVersion(1)
#localmacro.CurrentList
filename
#endmacro
#Excel
#define.Star('*')
#define.Space(' ')
// convert into str from excel cell value
str COMVariant2Str(COMVariant _cv, int _decimals = 0, int _characters = 0, int _separator1 = 0, int _separator2 = 0)
{
switch (_cv.variantType())
{
case (COMVariantType::VT_BSTR):
return _cv.bStr();
case (COMVariantType::VT_R4):
return num2str(_cv.float(),_characters,_decimals,_separator1,_separator2);
case (COMVariantType::VT_R8):
return num2str(_cv.double(),_characters,_decimals,_separator1,_separator2);
case (COMVariantType::VT_DECIMAL):
return num2str(_cv.decimal(),_characters,_decimals,_separator1,_separator2);
case (COMVariantType::VT_DATE):
return date2str(_cv.date(),213,2,1,2,1,4);
case (COMVariantType::VT_EMPTY):
return "";
default:
throw error(strfmt("@SYS26908", _cv.variantType()));
}
return "";
}
// Find last row from excel
int findLastRow(SysExcelWorkSheet _workSheet)
{
SysExcelRange range;
;
range = _workSheet.cells().range(#ExcelTotalRange);
try
{
// Finds the row where the first contents is found.
range = range.find(#Star, null, #xlFormulas, #xlWhole, #xlByRows, #xlPrevious);
}
catch (Exception::Error)
{
error("@SYS59926");
return 0;
}
if (range)
{
return range.row();
}
else
{
return 0;
}
}
;
dialogFilename = dialog.addField(extendedtypestr(FilenameOpen));
// DialogJournalType = dialog.addField(enumstr(God_JournalToUpload),"Journal Type");
dialog.filenameLookupFilter(["@SYS28576",#XLS,#Xlsx]);
dialog.filenameLookupTitle("Upload from Excel");
dialogFilename.value(filename);
if(!dialog.run())
return;
filename = dialogFilename.value();
// ttsbegin;
application = SysExcelApplication::construct();
workBooks = application.workbooks();
workBooks.open(filename,0,true);
workSheets = workBooks.item(1).worksheets();
// this.importExcel("Sheet1");
input = "Sheet1";
workSheet = workSheets.itemFromNum(1);//.itemFromName(input);
cells = workSheet.cells();
lastRow = findLastRow(workSheet);
rowIdx = 2;
progress = new SysOperationProgress();
progress.setCaption("Excel Importing");
progress.setTotal(lastRow);
progress.setAnimation(#AviTransfer);
setprefix("Excel Import");
ttsBegin;
while (rowIdx <= lastRow)
{
setPrefix(strfmt("Excel Row: %1", rowIdx));
c1 = COMVariant2Str(cells.item(rowIdx,1).value());
c2 = COMVariant2Str(cells.item(rowIdx,2).value());
c3 = COMVariant2Str(cells.item(rowIdx,3).value());
c4 = COMVariant2Str(cells.item(rowIdx,4).value());
c5 = COMVariant2Str(cells.item(rowIdx,5).value());
c6 = COMVariant2Str(cells.item(rowIdx,6).value());
c7 = COMVariant2Str(cells.item(rowIdx,7).value());
c8 = COMVariant2Str(cells.item(rowIdx,8).value());
linesImported++;
recidh = HcmWorker::findByPersonnelNumber(c1).recid;
if (!HcmWorkerBankAccount::findByWorkerAccount(recidh, c3))//).ReconPeek(con, 6)).RecId)
{
HcmWorkerBankAccount.initValue();
HcmWorkerBankAccount.AccountId = c4;//conPeek(con, 25);
HcmWorkerBankAccount.BankGroupId = c2;//conPeek(con, 26c);
HcmWorkerBankAccount.initFromBankGroup(BankGroup::find(c2));//conPeek(con, 26)));
HcmWorkerBankAccount.AccountNum = c3;//conPeek(con, 28);
HcmWorkerBankAccount.Worker = recidh;
HcmWorkerBankAccount.GOD_IBANNumber = c5; //GITL::377076:28082019 field added in table and assigned in job
HcmWorkerBankAccount.BankAccountType = str2enum(BankAccountType,c6);
HcmWorkerBankAccount.GOD_IsSalaryAcc = NoYes::Yes;
HcmWorkerBankAccount.insert();
}
rowIdx++;
}
ttsCommit;
info("done");
}
No comments:
Post a Comment