Export To Excel With 2 Data Items

Business Central/NAV Developers Forum
1

Hi

Here Is Issue and This is Code…

Item Vendor - OnPreDataItem()

IF ExportToExcel THEN BEGIN

i:=1;

EnterCell(i,1,‘Item Vendor Catalog’,TRUE,FALSE,’’);

i+=1;

EnterCell(i,1,‘Vendor No.’,TRUE,FALSE,’’);

EnterCell(i,2,‘Item No.’,TRUE,FALSE,’’);

EnterCell(i,3,‘Variant Code’,TRUE,FALSE,’’);

//XlWrkSht.Range(‘C+ Format(i)’).HorizontalAlignment := -4108;

EnterCell(i,4,‘Lead Time Calculation’,TRUE,FALSE,’’);

EnterCell(i,5,‘Vendor Item No.’,TRUE,FALSE,’’);

//XlWrkSht.Range(‘E+ Format(i)’).HorizontalAlignment := -4108;

EnterCell(i,6,‘Default’,TRUE,FALSE,’’);

END;

Item Vendor - OnAfterGetRecord()

IF ExportToExcel THEN BEGIN

EnterCell(i,1,“Item Vendor”.“Vendor No.”,FALSE,FALSE,’’);

EnterCell(i,2,“Item Vendor”.“Item No.”,FALSE,FALSE,’’);

EnterCell(i,3,“Item Vendor”.“Variant Code”,FALSE,FALSE,’’);

//XlWrkSht.Range(‘C’+ FORMAT(i)).HorizontalAlignment := -4131;

EnterCell(i,4,FORMAT(“Item Vendor”.“Lead Time Calculation”),FALSE,FALSE,’’);

// XlWrkSht.Range(‘E’+ FORMAT(i)).NumberFormat := ‘@’;

EnterCell(i,5,“Item Vendor”.“Vendor Item No.”,FALSE,FALSE,’’);

// XlWrkSht.Range(‘E’+ FORMAT(i)).HorizontalAlignment := -4131;

//XlWrkSht.Range(‘E’+ FORMAT(i)).WrapText := FALSE;

EnterCell(i,6,FORMAT(“Item Vendor”.Default),FALSE,FALSE,’’);

i:= i+1;

END;

Item Vendor - OnPostDataItem()

Integer - OnPreDataItem()

SETRANGE(Number,1,ExcelBuffer.COUNT);

Integer - OnAfterGetRecord()

IF Number =1 THEN

ExcelBuffer.FINDFIRST

ELSE

ExcelBuffer.NEXT;

IF ExportToExcel THEN

XlWrkSht.Range(ExcelBuffer.xlColID+ExcelBuffer.xlRowID).Value := ExcelBuffer.“Cell Value as Text”;

Integer - OnPostDataItem()

// Start Excel

IF ExportToExcel THEN BEGIN

ExcelBuffer.CreateBookAndOpenExcel(‘Item Vendor’,’’,’ ',USERID);

//ExcelBuffer.CreateSheet(‘Payment Captured Detail’,’’,’ ',USERID);

ExcelBuffer.AutoFit(‘A:F’);

ExcelBuffer.GiveUserControl;

END;

// Stop Excel

EnterCell(RowNo : Integer;ColumnNo : Integer;CellValue : Text[250];Bold : Boolean;UnderLine : Boolean;NumberFormat : Text[30])

ExcelBuffer.INIT;

ExcelBuffer.VALIDATE(“Row No.”,RowNo);

ExcelBuffer.VALIDATE(“Column No.”,ColumnNo);

ExcelBuffer.“Cell Value as Text” := CellValue;

ExcelBuffer.Formula := ‘’;

ExcelBuffer.Bold := Bold;

ExcelBuffer.Underline := UnderLine;

ExcelBuffer.NumberFormat := NumberFormat;

ExcelBuffer.INSERT;

When i run Above Code i Got This Error…

Microsoft Dynamics NAV

The Excel Buffer already exists. Identification fields and values: Row No.=‘3’,Column No.=‘1’

OK

any Suggestions…

Thanks In Advance,

Akil

2

Hi

i Done This Error