Changeset 11 for import/navision_csv/UMainForm.pas

Timestamp:

Jul 13, 2011, 2:20:53 PM (13 years ago)

Author:

chronos

Message:

 

File:

• import/navision_csv/UMainForm.pas (modified) (6 diffs)

import/navision_csv/UMainForm.pas

@@ -18 +18 @@
     { private declarations }
   public
-    { public declarations }
+    function CheckVAT(VAT: string): Boolean;
   end; 
 
@@ -34 +34 @@
   Source, Dest: TStringList;
   I: Integer;
+  P: Integer;
   DestLine: TStringList;
   Line: TStringList;
+  VAT: string;
 begin
   try
@@ -50 +52 @@
     DestLine.Add('address/city');
     DestLine.Add('vatin');
-    DestLine.Add('vat');
+    //DestLine.Add('vat');
     DestLine.Add('address/zip');
-    DestLine.Add('address/country_id');
+    //DestLine.Add('address/country_id');
     DestLine.Add('address/phone');
     DestLine.Add('address/fax');
@@ -58 +60 @@
     Dest.Add(DestLine.CommaText);
 
-    for I := 0 to Source.Count - 1 do begin
+    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] + '');
@@ -66 +72 @@
       DestLine.Add('' + Line[6] + '');
       DestLine.Add('' + Line[7] + '');
-      DestLine.Add('' + Line[8] + '');
+      //DestLine.Add('' + VAT + '');
       DestLine.Add('' + Line[14] + '');
-      DestLine.Add('' + Line[15] + '');
+      //DestLine.Add('' + Line[15] + '');
       DestLine.Add('' + Line[16] + '');
       DestLine.Add('' + Line[17] + '');
@@ -83 +89 @@
 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.