Dear All,
Vendor > Transaction > Then select voucher > Then clicked on "Original Document"
It's showing :
Original document : Journal
Identification no : BP/...
Amount: 1008
Module : Ledger
In report i need to print Identification nothose voucher having Original document = Journal.
Code :
static void VendorPaymentDetails(Args _args)
{
SysExcelApplication xlsApplication;
SysExcelWorkBooks xlsWorkBookCollection;
SysExcelWorkBook xlsWorkBook;
SysExcelWorkSheets xlsWorkSheetCollection;
SysExcelWorkSheet xlsWorkSheet;
SysExcelRange xlsRange;
VendTrans vendTrans;
VendSettlement vendSettlement;
str contact;
int recordscount;
int row = 1;
str fileName;
Dialog dialog;
DialogField dialogFromDate;
DialogField dialogToDate;
Transdate fromDate;
Transdate toDate;
Voucher voucher;
VendAccount vendAccount;
name vendName;
transdate postingDate;
real amount;
Voucher offsetVoucher;
str id;
Query query;
QueryRun queryRun;
QueryBuildDatasource qbdsVendTrans;
QueryBuildRange qbr;
OriginalDocuments originalDocuments;
;
Dialog = new dialog();
dialog.caption('Vendor Payment Details');
dialogFromDate = dialog.addField(typeid(Transdate), "From date");
dialogToDate = dialog.addField(typeid(Transdate), "To date");
fromDate = dialogFromDate.value();
toDate = dialogToDate.value();
if(dialog.run())
{
//return true;
}
//Filename
fileName = "Desktop\TableExcel";//@"C:\Users\shivakumar.p\Desktop\TableExcel";
//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);
query = new Query();// Add SalesTable main datasource
qbdsVendTrans = query.addDataSource(tableNum(VendTrans));
qbr = qbdsVendTrans.addRange(fieldnum(VendTrans,Transdate));
qbr.value(sysQuery::range(fromDate,toDate));
qbr = qbdsVendTrans.addRange(fieldnum(VendTrans, TransType));
qbr.value(enum2str(LedgerTransType::Payment));
queryRun = new QueryRun(query);
while (queryRun.next())
{
vendTrans = queryRun.get(TableNum(VendTrans));
vendName = vendTable::find(vendTRans.AccountNum).Name;
//Excel columns captions
xlsWorkSheet.cells().item(row,1).value(vendTrans.AccountNum);
xlsWorkSheet.cells().item(row,2).value(vendName);
xlsWorkSheet.cells().item(row,3).value(vendTrans.Voucher);
xlsWorkSheet.cells().item(row,4).value(vendTrans.TransDate);
xlsWorkSheet.cells().item(row,5).value(vendTrans.AmountCur);
// Identification no
// to do
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);
}
Can you please let me know how to get identification no.
Please give me more shed on this.
Thanks!
Arpan Sen