[External] WriteCellValue(ExcelBuffer : Record "Excel Buffer Advanced") WITH ExcelBuffer DO BEGIN GetCellDecorator(ExcelBuffer, Decorator); CellTextValue := "Cell Value as Text"; OnWriteCellValueOnBeforeSetCellValue(Rec,CellTextValue); CASE "Cell Type" OF "Cell Type"::Number: XlWrkShtWriter.SetCellValueNumber("Row No.",xlColID,CellTextValue,NumberFormat,Decorator); "Cell Type"::Text: XlWrkShtWriter.SetCellValueText("Row No.",xlColID,CellTextValue,Decorator); "Cell Type"::Date: XlWrkShtWriter.SetCellValueDate("Row No.",xlColID,CellTextValue,NumberFormat,Decorator); "Cell Type"::Time: XlWrkShtWriter.SetCellValueTime("Row No.",xlColID,CellTextValue,NumberFormat,Decorator); ELSE ERROR(Text039) END;
[External] WriteCellValue(ExcelBuffer : Record "Excel Buffer Advanced") WITH ExcelBuffer DO BEGIN GetCellDecorator(ExcelBuffer, Decorator); CellTextValue := "Cell Value as Text"; OnWriteCellValueOnBeforeSetCellValue(Rec,CellTextValue); // extra part to update value without changing decorator IF UpdateValueOnly THEN XlWrkShtWriter.UpdateCellValueText("Row No.",xlColID,CellTextValue) ELSE // end of extra part CASE "Cell Type" OF "Cell Type"::Number: XlWrkShtWriter.SetCellValueNumber("Row No.",xlColID,CellTextValue,NumberFormat,Decorator); "Cell Type"::Text: XlWrkShtWriter.SetCellValueText("Row No.",xlColID,CellTextValue,Decorator); "Cell Type"::Date: XlWrkShtWriter.SetCellValueDate("Row No.",xlColID,CellTextValue,NumberFormat,Decorator); "Cell Type"::Time: XlWrkShtWriter.SetCellValueTime("Row No.",xlColID,CellTextValue,NumberFormat,Decorator); ELSE ERROR(Text039) END;