Dynamics NAV Data Import/Export from/to Excel

So you would need 4 forms, 2 tables & 1 codeunit is that correct?

Very nice contribution.. =D>

I was looking for this exact excel exporter, but gorgot the client I'
m working with refuses to upgrade from 2.X version. Any chance of anything like this working in a 2.X version since recrodref and fieldref didn't exist?

Thanks

Steve wrote:

Very nice contribution.. =D>

I was looking for this exact excel exporter, but gorgot the client I'
m working with refuses to upgrade from 2.X version. Any chance of anything like this working in a 2.X version since recrodref and fieldref didn't exist?

Thanks

There is a work around, but it's evil.
You go through the Field table and generate a codeunit to emulate the required recref and fieldref features.
The codeunit will be huge but it can work.

The old Commerce Portal synchronization code is written just like this. (6200..6299)

(Oh and unlike recrefs this can work with BLOBs)

Hi,
I have a problem importing default dimension.
How can specify the field Dimension Code?

Thanks

Good afternoon,
thank you very much for this excellent useful tool.
If I could make a note, some glitches surfaced during my tests. When the "Add entries" import option is selected, only one record is imported - the one which matches the number of row filled in the "First DataRow" field. And when importing to a void table, there is a duplicates message even if only a sole record is imported and it is necessary to place a checkmark in the "AllowDuplicates" field.
Regards Pavel Franc

If you want to export calculated FlowFields too, you have to Add a Code in the export Codeunit 50888 in the Function AddColumnValue.

Here is the Code from this Function.
The Variable OptionVar i from Type Option and got these Values: Normal,FlowFilter,FlowField

IF ColumnHeader THEN BEGIN
  XlSheet.Range(ColumnNo + FORMAT(RowNo)).Font.Bold := TRUE;
  XlSheet.Range(ColumnNo + FORMAT(RowNo)).Font.Italic := TRUE;
END;
XlSheet.Range(ColumnNo + FORMAT(RowNo)).NumberFormat := 0;

IF NOT ColumnHeader THEN BEGIN
  // ++ START NEW CODE
  EVALUATE(OptionVar,FORMAT(FieldReference.CLASS));
  IF OptionVar = OptionVar::FlowField THEN
    FieldReference.CALCFIELD();
  // -- END NEW CODE

  CASE UPPERCASE(FORMAT(FieldReference.TYPE)) OF
    'CODE','TEXT':
      BEGIN
        Chr := 39;
        TextValue := FORMAT(Chr);
        XlSheet.Range(ColumnNo + FORMAT(RowNo)).Value := TextValue + ColumnValue;
      END;
    'BOOLEAN':
      BEGIN
        IF NOT ColumnHeader THEN BEGIN
          EVALUATE(BooleanConvertion,ColumnValue);
          IF BooleanConvertion THEN
            XlSheet.Range(ColumnNo + FORMAT(RowNo)).Value := '1'
          ELSE
            XlSheet.Range(ColumnNo + FORMAT(RowNo)).Value := '0'
        END;
      END;
    ELSE
      XlSheet.Range(ColumnNo + FORMAT(RowNo)).Value := ColumnValue;
  END
END ELSE
  XlSheet.Range(ColumnNo + FORMAT(RowNo)).Value := ColumnValue;

Greetings from Austria