16. April 2014 07:31
16. April 2014 08:32
14. Mai 2014 11:51
Item - OnPreDataItem()
ExcelBuffer.DELETEALL;
EnterCell(1, 1, FIELDCAPTION(Item."No."), '');
EnterCell(1, 2, FIELDCAPTION(Item.Description), '');
EnterCell(1, 3, FIELDCAPTION(Item."Reorder Quantity"), '');
EnterCell(1, 4, 'BILD', '');
RowNo := 1;
Item - OnAfterGetRecord()
RowNo += 1;
EnterCell(RowNo, 1, Item."No.", '');
EnterCell(RowNo, 2, Item.Description, '');
EnterCell(RowNo, 3, FORMAT(Item."Reorder Quantity"), '');
EnterCell(RowNo, 4, , '');
Item - OnPostDataItem()
ExcelBuffer.CreateBook;
ExcelBuffer.CreateSheet(TABLECAPTION, TABLECAPTION, COMPANYNAME, USERID);
ExcelBuffer.GiveUserControl();
EnterCell(RowNo : Integer;ColumnNo : Integer;CellValue : Text[30];CellFormula : Text[30])
ExcelBuffer.INIT;
ExcelBuffer.VALIDATE("Row No.",RowNo);
ExcelBuffer.VALIDATE("Column No.",ColumnNo);
ExcelBuffer."Cell Value as Text" := CellValue;
ExcelBuffer.Formula := CellFormula;
ExcelBuffer.INSERT;
14. Mai 2014 14:04