source: nastroje/navision_csv/UMainForm.pas

unit UMainForm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    function CheckVAT(VAT: string): Boolean;
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
var
  Source, Dest: TStringList;
  I: Integer;
  P: Integer;
  DestLine: TStringList;
  Line: TStringList;
  VAT: string;
begin
  try
    Source := TStringList.Create;
    Dest := TStringList.Create;
    Line := TStringList.Create;
    DestLine := TStringList.Create;

    Source.LoadFromFile('..\dodav.csv');

    DestLine.Add('name');
    DestLine.Add('address/street');
    DestLine.Add('address/street2');
    DestLine.Add('address/city');
    DestLine.Add('vatin');
    //DestLine.Add('vat');
    DestLine.Add('address/zip');
    //DestLine.Add('address/country_id');
    DestLine.Add('address/phone');
    DestLine.Add('address/fax');
    DestLine.Add('address/name');
    Dest.Add(DestLine.CommaText);

    for I := 1 to Source.Count - 1 do begin
      DestLine.Clear;
      Line.CommaText := Source[I];

      //VAT := Trim(Line[8]);
      //if not CheckVAT(VAT) then VAT := '';

      DestLine.Add('' + Line[3] + '');
      DestLine.Add('' + Line[4] + '');
      DestLine.Add('' + Line[5] + '');
      DestLine.Add('' + Line[6] + '');
      DestLine.Add('' + Line[7] + '');
      //DestLine.Add('' + VAT + '');
      DestLine.Add('' + Line[14] + '');
      //DestLine.Add('' + Line[15] + '');
      DestLine.Add('' + Line[16] + '');
      DestLine.Add('' + Line[17] + '');
      DestLine.Add('' + Line[19] + '');

      Dest.Add(DestLine.CommaText);
    end;
    Dest.SaveToFile('..\import.csv');
  finally
    Source.Free;
    Dest.Free;
    Line.Free;
  end;
end;

function TForm1.CheckVAT(VAT: string): Boolean;
var
  VATNum: string;
  Checksum: Integer;
  VATChecksum: Integer;
  P: Integer;
begin
  VATNum := '';
  Checksum := 0;

  P := 1;
  while (P < Length(VAT)) and not ((VAT[P] >= '0') and (VAT[P] <= '9')) do Inc(P);
  if (P < Length(VAT)) then VATNum := Copy(VAT, P, 255);
  Memo1.Lines.Add(VAT + ': ' + IntToStr(P) + ': ' + VATNum);
  VATChecksum := StrToInt(Copy(VATNum, Length(VATNum) - 1, 2));
  VATNum := Copy(VATNum, 1, Length(VATNum) - 2);
  if VATNum <> '' then begin
    for P := 1 to Length(VATNum) do begin
      if P > 7 then begin
        Result := False;
        Break;
      end;
      Checksum := Checksum + StrToInt(VATNum[P]) * (9 - P);
    end;
    while Checksum >= 0 do Checksum := Checksum - 97;
    Result := Abs(CheckSum) = VATChecksum;
  end else Result := False;
end;

end.