24. Mai 2011 15:32
Sell-to Customer No.=FIELD(No.)
--Sales Line - OnPreDataItem() --
CustName := Customer.Name;
ExcelBuffer.DELETEALL;
EnterCell(1, 1, FIELDCAPTION("Document No."), '', TRUE, FALSE, FALSE);
EnterCell(1, 2, FIELDCAPTION("Shipment Date"), '', TRUE, FALSE, FALSE);
EnterCell(1, 3, FIELDCAPTION("Location Code"), '', TRUE, FALSE, FALSE);
EnterCell(1, 4, FIELDCAPTION("Sell-to Customer No."), '', TRUE, FALSE, FALSE);
EnterCell(1, 5, FIELDCAPTION("Outstanding Quantity"), '', TRUE, FALSE, FALSE);
RowNo := 1;
--Sales Line - OnAfterGetRecord() --
RowNo += 1;
EnterCell(RowNo, 1, "Document No.", '', FALSE, FALSE, FALSE);
EnterCell(RowNo, 2, FORMAT ("Shipment Date"), '', FALSE, FALSE, FALSE);
EnterCell(RowNo, 3, "Location Code", '', FALSE, FALSE, FALSE);
EnterCell(RowNo, 4, CustName, '', FALSE, FALSE, FALSE);
EnterCell(RowNo, 5, FORMAT ("Outstanding Quantity"), '', FALSE, FALSE, FALSE);
--Sales Line - OnPostDataItem()--
RowNo += 1;
ExcelBuffer.CreateBook;
ExcelBuffer.CreateSheet(TABLECAPTION, TABLECAPTION, COMPANYNAME, USERID);
ExcelBuffer.GiveUserControl();
24. Mai 2011 15:53
24. Mai 2011 16:11
--Sales Line - OnPreDataItem() --
CustName := Customer.Name;
ExcelBuffer.DELETEALL;
EnterCell(1, 1, FIELDCAPTION("Document No."), '', TRUE, FALSE, FALSE);
EnterCell(1, 2, FIELDCAPTION("Shipment Date"), '', TRUE, FALSE, FALSE);
EnterCell(1, 3, FIELDCAPTION("Location Code"), '', TRUE, FALSE, FALSE);
EnterCell(1, 4, FIELDCAPTION("Sell-to Customer No."), '', TRUE, FALSE, FALSE);
EnterCell(1, 5, FIELDCAPTION("Outstanding Quantity"), '', TRUE, FALSE, FALSE);
RowNo := 1;
EnterCell(1, 1, FIELDCAPTION("Sales Line"."Document No."), '', TRUE, FALSE, FALSE);
24. Mai 2011 16:18
24. Mai 2011 16:37