{"id":649,"date":"2015-06-01T16:53:21","date_gmt":"2015-06-01T14:53:21","guid":{"rendered":"http:\/\/blog.systemconnect.dk\/?p=649"},"modified":"2015-05-19T11:19:58","modified_gmt":"2015-05-19T09:19:58","slug":"123456789-er-ikke-et-cvr-nr-dit-vroevlehovede","status":"publish","type":"post","link":"https:\/\/scblog.lynge.org\/?p=649","title":{"rendered":"12345678 er ikke et dansk CVR-nr. dit vr\u00f8vlehoved"},"content":{"rendered":"

“N\u00e6sten” alle ved at der er modulus kontrol p\u00e5 Giro\/FIK-betaleridentifikation og CPR-numre. Men vidste du at der ogs\u00e5 er p\u00e5 danske CVR-numre?<\/p>\n

 <\/p>\n

F\u00f8lgende er en stump Dynamics NAV kode der validerer om et dansk CVR-nummer er lovligt. Det er sakset ud af en Codeunit-teksteksport, s\u00e5 er du famili\u00e6r med udvikling i Dynamics NAV burde det v\u00e6re simpelt at implementere i din egen kode:<\/p>\n

 <\/p>\n\n\n\n
\n
PROCEDURE DanishVATNoValid@1000000012(VATNo@1000000000 : Text[20]) : Boolean;\r\nVAR\r\n  Sum@1000000001 : Integer;\r\n  Counter@1000000002 : Integer;\r\n  Digit@1000000003 : Integer;\r\nBEGIN\r\n  VATNo := StrKeep(VATNo,'0123456789');\r\n  IF STRLEN(VATNo) > 8 THEN\r\n    EXIT(FALSE);\r\n  WHILE STRLEN(VATNo) < 8 DO\r\n    VATNo := '0' + VATNo;\r\n  FOR Counter := 1 TO 8 DO BEGIN\r\n    EVALUATE(Digit, COPYSTR(VATNo,Counter,1) );\/\/ Weights are 2,7,6,5,4,3,2,1\r\n    IF Counter = 1 THEN\r\n      Sum += Digit * 2\r\n    ELSE\r\n      Sum += Digit * (9-Counter);\r\n  END;\r\n  EXIT( Sum MOD 11 = 0 );\r\nEND;<\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
 <\/p>\n
Den tilsvarende stump Klassisk Dynamics C5 kode (implementeret som funktion) er her:<\/p>\n\n\n\n
\n
FUNCTION ENUM NoYes ValidateDKVatNo (STR 25 &VatNumber)\r\n  SET &VatNumber = StrKeep(&VatNumber,'0123456789')\r\n  WHILE StrLen(&VatNumber) < 8\r\n    SET &VatNumber = '0'+&VatNumber\r\n  END\r\nRETURN StrLen(&VatNumber) == 8 AND\r\n       (Str2Int(SubStr(&VatNumber,1,1)) * 2 +\r\n        Str2Int(SubStr(&VatNumber,2,1)) * 7 +\r\n        Str2Int(SubStr(&VatNumber,3,1)) * 6 +\r\n        Str2Int(SubStr(&VatNumber,4,1)) * 5 +\r\n        Str2Int(SubStr(&VatNumber,5,1)) * 4 +\r\n        Str2Int(SubStr(&VatNumber,6,1)) * 3 +\r\n        Str2Int(SubStr(&VatNumber,7,1)) * 2 +\r\n        Str2Int(SubStr(&VatNumber,8,1)) * 1\u00a0 ) MOD 11 == 0<\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
 <\/p>\n
Bem\u00e6rk at der ogs\u00e5 findes validering af danske bankkonti, men at algoritmerne er forskellige fra bank til bank. Bankerne udveksler godt nok en liste over hvordan de g\u00f8r – men den er desv\u00e6rre ikke offentlig tilg\u00e6ngelig.<\/p>\n
 <\/p>\n
Bem\u00e6rk ogs\u00e5 at EU har et system til validering af s\u00e5vel danske som europ\u00e6iske CVR-numre. Det hedder VIES og kan kaldes direkte med webservice.
\nVIES\u00a0checker ikke om noget checkciffer stemmer – men sl\u00e5r rent faktisk CVR-nummeret op og fort\u00e6ller hvem der “ejer” det.<\/p>\n
 <\/p>\n
SystemConnect har et lille modul\u00a0til\u00a0Microsoft XAL,\u00a0Klassisk Dynamics C5 og Dynamics NAV, der kan validere kunder op mod VIES webservice. Kontakt evt. SystemConnect<\/a> for at h\u00f8re n\u00e6rmere.<\/p>\n
 <\/p>\n
Du kan l\u00e6se\u00a0mere om VIES p\u00e5 adressen: http:\/\/ec.europa.eu\/taxation_customs\/vies\/?locale=da<\/a><\/p>\n
 <\/p>\n","protected":false},"excerpt":{"rendered":"
“N\u00e6sten” alle ved at der er modulus kontrol p\u00e5 Giro\/FIK-betaleridentifikation og CPR-numre. Men vidste du at der ogs\u00e5 er p\u00e5 danske CVR-numre?   F\u00f8lgende er en stump Dynamics NAV kode der validerer om et dansk CVR-nummer er lovligt. Det er … L\u00e6s resten →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[32,37,6,4,35,36],"tags":[15,43,13,11,54,52,26,23,53,14,42,44,31,24],"class_list":["post-649","post","type-post","status-publish","format-standard","hentry","category-dynamics-nav","category-klassisk-c5","category-klassisk-c5-support","category-klassisk-c5-teknik","category-nav-support","category-nav-teknik","tag-business-solutions","tag-c5","tag-damgaard-data","tag-dynamics","tag-dynamics-c5","tag-dynamics-nav","tag-gratis","tag-hint","tag-klassisk-c5","tag-microsoft","tag-nav","tag-navigator","tag-navision","tag-xal"],"_links":{"self":[{"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=\/wp\/v2\/posts\/649","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=649"}],"version-history":[{"count":12,"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=\/wp\/v2\/posts\/649\/revisions"}],"predecessor-version":[{"id":753,"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=\/wp\/v2\/posts\/649\/revisions\/753"}],"wp:attachment":[{"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=649"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=649"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/scblog.lynge.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=649"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}