void clicked()
{
SysExcelApplication application;
COMVariantType type;
//COMVariant value;
InventDim _inventdim;
SysExcelCells cells;
int row=1;
//...Table's Object Created
do
{
row++;
InventJournalTrans.TransDate =str2DateDMY(Ahmad_BankAccountDuplication.ExcelCellContent(row,1) );
InventJournalTrans.ItemId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,2) );
inventdim.configId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,3) );
inventdim.InventSizeId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,4) );
inventdim.InventColorId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,5) );
inventdim.InventLocationId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,6) );
inventdim.InventSiteId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,7) );
inventdim.inventBatchId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,8) );
inventdim.wMSLocationId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,9) );
inventdim.inventSerialId =(Ahmad_BankAccountDuplication.ExcelCellContent(row,10) );
InventJournalTrans.MZNPurchUnit =(Ahmad_BankAccountDuplication.ExcelCellContent(row,11) );
InventJournalTrans.Qty =any2real(Ahmad_BankAccountDuplication.ExcelCellContent(row,12) );
//InventJournalTrans.LedgerDimension=str2int(Ahmad_BankAccountDuplication.ExcelCellContent(2,13) );
_inventDim=inventDim::findOrCreate(inventDim);
InventJournalTrans.InventDimId = _inventDim.inventDimId;
////...Info
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,1) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,2) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,3) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,4) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,5) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,6) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,7) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,8) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,9) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,10) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,11) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,12) );
info ("Cell Content is "+Ahmad_BankAccountDuplication.ExcelCellContent(2,13) );
type=cells.item(row+1, 1).value().variantType();
}
while (type != COMVariantType::VT_EMPTY);
application.quit();
//info(strFmt("show row/column values: row %1, col %2", row, col));
}
