static void CustomerContOnAddress(Args _args)
{
CustTable custTable;
DirPartyTable dirPartyTable;
LogisticsLocation parentLocation, childLocation;
DirPartyLocation dirPartyLocation;
LogisticsElectronicAddress electronicAddress;
LogisticsPostalAddress postalAddress;
SysExcelApplication xlsApplication;
SysExcelWorkBooks xlsWorkBookCollection;
SysExcelWorkBook xlsWorkBook;
SysExcelWorkSheets xlsWorkSheetCollection;
SysExcelWorkSheet xlsWorkSheet;
SysExcelRange xlsRange;
CustTable custTable;
int row = 1;
str fileName;
;
fileName = "C:\\Test.xlsx";
//Initialize Excel instance
xlsApplication = SysExcelApplication::construct();
//Open Excel document
//xlsApplication.visible(true);
//Create Excel WorkBook and WorkSheet
xlsWorkBookCollection = xlsApplication.workbooks(); xlsWorkBook = xlsWorkBookCollection.add(); xlsWorkSheetCollection = xlsWorkBook.worksheets(); xlsWorkSheet = xlsWorkSheetCollection.itemFromNum(1);
//Excel columns captions xlsWorkSheet.cells().item(row,1).value("Account Num"); xlsWorkSheet.cells().item(row,2).value("Contact");
row++;
while select custTable
where custTable.AccountNum == "XYZ" //Specify customer account
join dirPartyLocation
where dirPartyLocation.Party == custTable.Party
join parentLocation
where dirPartyLocation.Location == parentLocation.RecId
join postalAddress
where postalAddress.Location == parentLocation.RecId
join childLocation
where childLocation.ParentLocation == parentLocation.RecId
join electronicAddress
where electronicAddress.Location == childLocation.RecId
//&& electronicAddress.Type == LogisticsElectronicAddressMethodType::Phone //Type Phone
{
/*info(strFmt("Customer: %1, PostalAddress: %2, RoleType: %3, contact description: %4", custTable.AccountNum, parentLocation.Description, electronicAddress.Type, electronicAddress.Description));*/
xlsWorkSheet.cells().item(row,1).value(custTable.AccountNum); xlsWorkSheet.cells().item(row,2).value(electronicAddress.Locator); row++;
}
//Check whether the document already exists if(WinApi::fileExists(fileName))
WinApi::deleteFile(fileName);
//Save Excel document
xlsWorkbook.saveAs(fileName);
//Open Excel document
xlsApplication.visible(true);
//Close Excel
//xlsApplication.quit();
//xlsApplication.finalize();
info(strfmt("Total no of rows imported %1", row));
}
}
