{"id":74,"date":"2006-03-30T15:39:00","date_gmt":"2006-03-30T13:39:00","guid":{"rendered":"http:\/\/www.forksoft.de\/blog\/2006\/03\/30\/navision-universeller-dataport\/"},"modified":"2006-10-05T14:18:28","modified_gmt":"2006-10-05T12:18:28","slug":"navision-universeller-dataport","status":"publish","type":"post","link":"http:\/\/www.navision-blog.de\/blog\/2006\/03\/30\/navision-universeller-dataport\/","title":{"rendered":"Navision: Universeller Dataport"},"content":{"rendered":"

Aufgrund eines Artikels<\/a> vom “Nawischn-Blog” möchte ich hier mal einen Weg aufzeigen, wie man sich einen universellen Dataport für Microsoft Navision bauen kann, mit dem man ein ganzen Satz an Tabellen aus CSV-Tabellen einlesen kann. Interessant ist das vor allem wenn man eine Datenübernahme machen will und im ersten Schritt erstmal alle Daten in Zwischentabellen ins Navision ziehen will.<\/p>\n

Um den automatischen Import bewerkstelligen zu können müssen die Zieltabellen angelegt werden. Dafür braucht man jedoch Informationen über die Struktur der Daten – also welches Feld kommt mit welchem Datentyp an welcher Position in welcher Importdatei. Das ist zugleich auch der schwierigste Teil.<\/p>\n

Glücklicherweise kann man sowas auch teilweise automatisch machen – zum Beispiel für Exceltabellen oder dBase-Datenbanken: Mit einem PlugIn für den Total Commander kann man nämlich Excel-Dateien bzw. eine ganze dBase-Datenbank mit einer Schema.ini exportieren. Bei einzelnen Dateien kann man das natürlich auch schnell per Hand anlegen. <\/p>\n

Ab nun läuft alles automatisch. Als erstes müssen die Zieltabellen angelegt werden. Dazu habe ich eine Template-Tabelle angelegt die nur ein Feld für die laufende Datensatznummer enthält, die Zieltabellen werden dann aus dieser Tabelle kopiert: <\/p>\n

\n
PROCEDURE<\/span> CreateTable<\/span>@1000000007<\/span>(\n  p_NewObjectID<\/span>@1000000002<\/span> : <\/span>Integer<\/span>;\n  p_NewObjectName<\/span>@1000000003<\/span> : <\/span>Text<\/span>[<\/span>250<\/span>]<\/span>);\n<\/span>VAR<\/span>\n  l_Object<\/span>@1000000004<\/span> : Record <\/span>2000000001<\/span>;\n  l_NewObject<\/span>@1000000005<\/span> : Record <\/span>2000000001<\/span>;\n<\/span>BEGIN<\/span>\n  <\/span>\/\/<\/span> Copy Migration Template <\/span>Table<\/span>\n  l_Object.GET(l_Object.Type::<\/span>Table<\/span>,<\/span>''<\/span>,\n    <\/span>DATABASE<\/span>::"Migration Template");\n  l_Object.CALCFIELDS("BLOB Reference");\n\n  l_NewObject.INIT;\n  l_NewObject.COPY(l_Object);\n  l_NewObject.ID :<\/span>=<\/span> p_NewObjectID;\n  l_NewObject.Name :<\/span>=<\/span> p_NewObjectName;\n  l_NewObject.<\/span>INSERT<\/span>(TRUE);\n<\/span>END<\/span>;\n<\/span><\/div><\/pre>\n<\/div>\n
Der Umweg mit der Template-Tabelle kommt dadurch zustande, dass man beim Insert in die Objekt-Tabelle schon einen Primärschlüßel haben muss und den kann man nur anlegen wenn man ein Feld anlegt. Felder können jedoch nur in in existierende Tabellen eingefügt werden. Diesen Konflikt konnte ich bisher nur über den Objekt-Designer auflösen. Als nächstes müssen die Felder aus der Schema.ini in die Zieltabellen eingefügt werden: <\/p>\n<\/p>\n
\n
PROCEDURE<\/span> AddFieldToTable<\/span>@1000000009<\/span>(\n  p_TableNo<\/span>@1000000001<\/span> : <\/span>Integer<\/span>;\n  p_FieldID<\/span>@1000000003<\/span> : <\/span>Integer<\/span>;\n  p_FieldName<\/span>@1000000002<\/span> : <\/span>Text<\/span>[<\/span>250<\/span>]<\/span>;\n  p_Type<\/span>@1000000004<\/span> : <\/span>Text<\/span>[<\/span>30<\/span>]<\/span>;\n  p_Width<\/span>@1000000005<\/span> : <\/span>Integer<\/span>);\n<\/span>VAR<\/span>\n  l_Field<\/span>@1000000000<\/span> : Record <\/span>2000000041<\/span>;\n<\/span>BEGIN<\/span>\n  l_Field.INIT;\n  l_Field.TableNo :<\/span>=<\/span> p_TableNo;\n  l_Field."No." :<\/span>=<\/span> p_FieldID;\n  l_Field.FieldName:<\/span>=<\/span> p_FieldName;\n  <\/span>CASE<\/span> p_Type <\/span>OF<\/span>\n    <\/span>'<\/span>Text<\/span>'<\/span>:\n      <\/span>BEGIN<\/span>\n        l_Field.Type :<\/span>=<\/span> l_Field.Type::<\/span>Text<\/span>;\n        <\/span>IF<\/span> p_Width <\/span><<\/span> <\/span>250<\/span> <\/span>THEN<\/span>\n          l_Field.<\/span>Len<\/span> :<\/span>=<\/span> p_Width\n        <\/span>ELSE<\/span>\n          l_Field.<\/span>Len<\/span> :<\/span>=<\/span> <\/span>250<\/span>;\n      <\/span>END<\/span>;\n    <\/span>'<\/span>Date<\/span>'<\/span>: l_Field.Type :<\/span>=<\/span> l_Field.Type::Date;\n    <\/span>'<\/span>Double<\/span>'<\/span>: l_Field.Type :<\/span>=<\/span> l_Field.Type::<\/span>Decimal<\/span>;\n    <\/span>'<\/span>Long<\/span>'<\/span>: l_Field.Type :<\/span>=<\/span> l_Field.Type::<\/span>Integer<\/span>;\n    <\/span>'<\/span>Memo<\/span>'<\/span>:\n      <\/span>BEGIN<\/span>\n        l_Field.Type :<\/span>=<\/span> l_Field.Type::<\/span>Text<\/span>;\n        l_Field.<\/span>Len<\/span> :<\/span>=<\/span> <\/span>250<\/span>;\n      <\/span>END<\/span>;\n    <\/span>ELSE<\/span>\n      ERROR(Text003,p_Type);\n  <\/span>END<\/span>;\n  l_Field.Enabled :<\/span>=<\/span> TRUE;\n  l_Field.SQLDataType :<\/span>=<\/span> l_Field.SQLDataType::<\/span>Varchar<\/span>;\n  l_Field.<\/span>INSERT<\/span>(TRUE);\n<\/span>END<\/span>;<\/span><\/div><\/pre>\n<\/div>\n
Nachdem nun alle Zieltabellen fertig sind, kann man nun durch die einzelnen CSV-Dateien gehen und die Daten in die entsprechenden Felder transportieren. Dazu durchläuft man die CSV-Tabellen zeilenweise und holt sich zum Beispiel mit folgenden Funktionen die einzelnen Feldwerte (per Index) aus dem Zeilentext:<\/p>\n
\n
PROCEDURE<\/span> GetStringWithDelimiter<\/span>@1000000011<\/span>(\n  p_Text<\/span>@1000000000<\/span> : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>;\n  p_ID<\/span>@1000000001<\/span> : <\/span>Integer<\/span>;\n  p_Delimiter<\/span>@1000000002<\/span> : <\/span>Char<\/span>) \n  Result : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>;\n<\/span>VAR<\/span>\n  l_DelimiterCount<\/span>@1000000003<\/span> : <\/span>Integer<\/span>;\n  i<\/span>@1000000004<\/span> : <\/span>Integer<\/span>;\n  l_StringOpen<\/span>@1000000005<\/span> : Boolean;\n<\/span>BEGIN<\/span>\n  l_DelimiterCount :<\/span>=<\/span> <\/span>1<\/span>;\n\n  <\/span>FOR<\/span> i :<\/span>=<\/span> <\/span>1<\/span> <\/span>TO<\/span> STRLEN(p_Text) DO <\/span>BEGIN<\/span>\n    <\/span>IF<\/span> (p_Text<\/span>[<\/span>i<\/span>]<\/span> <\/span>=<\/span> <\/span>'<\/span>"<\/span>'<\/span>) <\/span>AND<\/span> (<\/span>NOT<\/span> l_StringOpen) <\/span>THEN<\/span>\n      l_StringOpen :<\/span>=<\/span> TRUE;\n    <\/span>IF<\/span> (p_Text<\/span>[<\/span>i<\/span>]<\/span> <\/span>=<\/span> <\/span>'<\/span>"<\/span>'<\/span>) <\/span>AND<\/span> \n      l_StringOpen <\/span>AND<\/span> ((STRLEN(p_Text) <\/span>=<\/span> i) <\/span>OR<\/span> \n      (p_Text<\/span>[<\/span>i+1<\/span>]<\/span> <\/span>=<\/span> p_Delimiter)) \n    <\/span>THEN<\/span>\n      l_StringOpen :<\/span>=<\/span> FALSE;\n\n    <\/span>IF<\/span> (p_Text<\/span>[<\/span>i<\/span>]<\/span> <\/span>=<\/span> p_Delimiter) <\/span>AND<\/span> <\/span>NOT<\/span> l_StringOpen \n    <\/span>THEN<\/span> <\/span>BEGIN<\/span>\n      l_DelimiterCount :<\/span>=<\/span> l_DelimiterCount <\/span>+<\/span> <\/span>1<\/span>;\n      <\/span>IF<\/span> l_DelimiterCount <\/span>><\/span> p_ID <\/span>THEN<\/span>\n        <\/span>EXIT<\/span>(Result);\n    <\/span>END<\/span> <\/span>ELSE<\/span>\n      <\/span>IF<\/span> (l_DelimiterCount <\/span>=<\/span> p_ID) <\/span>AND<\/span> (p_Text<\/span>[<\/span>i<\/span>]<\/span>  <\/span>'<\/span>"<\/span>'<\/span>)\n      <\/span>THEN<\/span>\n        Result :<\/span>=<\/span> Result <\/span>+<\/span> COPYSTR(p_Text,i,<\/span>1<\/span>);\n  <\/span>END<\/span>;\n<\/span>END<\/span>;\n\n<\/span>PROCEDURE<\/span> GetString<\/span>@1000000010<\/span>(\n  p_Text<\/span>@1000000000<\/span> : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>;\n  p_ID<\/span>@1000000001<\/span> : <\/span>Integer<\/span>;\n  p_Delimiter<\/span>@1000000002<\/span> : <\/span>Char<\/span>) \n  Result : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>;\n<\/span>VAR<\/span>\n  l_DelimiterCount<\/span>@1000000003<\/span> : <\/span>Integer<\/span>;\n  i<\/span>@1000000004<\/span> : <\/span>Integer<\/span>;\n  l_StringOpen<\/span>@1000000005<\/span> : Boolean;\n<\/span>BEGIN<\/span>\n  l_DelimiterCount :<\/span>=<\/span> <\/span>1<\/span>;\n\n  <\/span>FOR<\/span> i :<\/span>=<\/span> <\/span>1<\/span> <\/span>TO<\/span> STRLEN(p_Text) DO <\/span>BEGIN<\/span>\n    <\/span>IF<\/span> (p_Text<\/span>[<\/span>i<\/span>]<\/span> <\/span>=<\/span> p_Delimiter) <\/span>THEN<\/span> <\/span>BEGIN<\/span>\n      l_DelimiterCount :<\/span>=<\/span> l_DelimiterCount <\/span>+<\/span> <\/span>1<\/span>;\n      <\/span>IF<\/span> l_DelimiterCount <\/span>><\/span> p_ID <\/span>THEN<\/span>\n        <\/span>EXIT<\/span>(Result);\n    <\/span>END<\/span> <\/span>ELSE<\/span>\n      <\/span>IF<\/span> (l_DelimiterCount <\/span>=<\/span> p_ID) <\/span>AND<\/span> (p_Text<\/span>[<\/span>i<\/span>]<\/span>  <\/span>'<\/span>"<\/span>'<\/span>)\n      <\/span>THEN<\/span>\n        Result :<\/span>=<\/span> Result <\/span>+<\/span> COPYSTR(p_Text,i,<\/span>1<\/span>);\n  <\/span>END<\/span>;\n<\/span>END<\/span>;\n<\/span><\/div><\/pre>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
Aufgrund eines Artikels vom “Nawischn-Blog” möchte ich hier mal einen Weg aufzeigen, wie man sich einen universellen Dataport für Microsoft Navision bauen kann, mit dem man ein ganzen Satz an Tabellen aus CSV-Tabellen einlesen kann. Interessant ist das vor allem wenn man eine Datenübernahme machen will und im ersten Schritt erstmal alle Daten in Zwischentabellen […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[5],"tags":[],"_links":{"self":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts\/74"}],"collection":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/comments?post=74"}],"version-history":[{"count":0,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts\/74\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/media?parent=74"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/categories?post=74"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/tags?post=74"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}