ich habe neue Importprofil zum Ablegen von Produkten in entsprechende XTC-Kategorie erstellt.
Die Daten habe ich in die Tabelle ATTR_WERTE übertragen, aber die Zuweisungen in Kontor.Net bei Produktenansicht > Tab "Webshop" > Shop-Kategorien werden nicht angezeigt.
Können Sie bitte mir sagen was fehlt noch?
Danke
P.S
Importprofil:
Code: Alles auswählen
<config dsc="Dieses Profil ermöglicht den Import von Artikelstammdaten aus einer Reihe verschiedener Text-Formate nach Kontor.NET.

Bitte gehen Sie folgendermaßen vor:
a) Konfigurieren Sie den Aufbau der Ihnen vorliegenden CSV-Datei
b) Klicken Sie auf Vorschau, um sich eine Vorschau des Importergebnisses anzeigen zu lassen. 
">
<updateclauses>
<updateclause table="ATTR_WERTE" value="ATTR_WERTE.Srcvalue = @srcvalue" />
</updateclauses>
<datafields>
<datafield param="@attrid" fieldname="Attrid" tablename="ATTR_WERTE" dsc="" source="" maxlen="-1" type="integer" mustuse="0" defaultvalue="100000" />
<datafield param="@src" fieldname="Src" tablename="ATTR_WERTE" dsc="" source="" maxlen="50" type="string" mustuse="0" defaultvalue="ARTIK.id" />
<datafield param="@srcvalue" fieldname="Srcvalue" tablename="ATTR_WERTE" dsc="" source="products_model" maxlen="50" type="string" mustuse="0" defaultvalue="" />
<datafield param="@dst" fieldname="Dst" tablename="ATTR_WERTE" dsc="" source="" maxlen="50" type="string" mustuse="0" defaultvalue="OSA_KATWERTE.Katid" />
<datafield param="@dstvalue" fieldname="Dstvalue" tablename="ATTR_WERTE" dsc="" source="categories_id" maxlen="50" type="string" mustuse="0" defaultvalue="" />
</datafields>
<source dsc="Dieses Profil ermöglicht den Import von Artikelstammdaten aus einer Reihe verschiedener Text-Formate nach Kontor.NET.

Bitte gehen Sie folgendermaßen vor:
a) Konfigurieren Sie den Aufbau der Ihnen vorliegenden CSV-Datei
b) Klicken Sie auf Vorschau, um sich eine Vorschau des Importergebnisses anzeigen zu lassen. 
">
<option name="quote" value=""" />
<option name="hasheaders" value="1" />
<option name="escape" value=""" />
<option name="delimiter" value=";" />
<option name="autodetect" value="0" />
<option name="filename" value="C:\WORK\development\projects\bachflohkrebse.de\documents\KontorNET\CSV_XTC\export_categories_kontor.csv" />
<option name="sourcetype" value="csv" />
</source>
<extended startsql="" recordsql="" endsql="" userscript="Imports System
Imports CG.Applications.Kontor_Dataimport
Imports System.Data


Public Class Scriptcode

 
#Region "autogenerated, do not modify" 
Public WithEvents KON As CG.Applications.Kontor_Dataimport.ScriptHelper
Public WithEvents KONAPP As CG.Framework.Tools.KONApplication
#End Region

' Benutzerdefinierte Datenquelle für CSV-Import erstellen
Function CreateDatasource() As datatable
 Return Nothing
End Function


' Datenfelder manipulieren
Function RecalcDatafields() As Boolean 
 For Each d As Datafield In KON.Profile.Datafields.Values
 Next
 Return True
End Function 



Dim cmd As sqlclient.Sqlcommand
' Einen Datensatz einfügen/updaten
Function UpdateDatarow() As Object
Dim retval As Object = Nothing
Try
 cmd = New Sqlclient.Sqlcommand("",KONAPP.DataConnection)
 KONAPP.DataConnection.Open
 
 ' Artikelstammdaten importieren
 Dim anr As String = kon.profile.getformattedValue("@artnr")
 
 cmd.CommandText = KON.Profile.GetCombinedSql("ATTR_WERTE")
 KON.Profile.FillParameters("ATTR_WERTE", cmd)
 cmd.ExecuteNonQuery()
 KON.Log.RegisterRecord(True, "Stammdaten für Artikel Nr. '" & anr & "' importiert!")
 
 ' Lagerbestand importieren
 'Dim bestand As Double = DbHelper.CvNull(kon.profile.getformattedValue("@lbestand"), -1)

 'If Not bestand = -1 Then
 ' KON.Profile.SetFormattedValue("@lartnr", anr) 
 ' cmd.CommandText = KON.Profile.GetCombinedSql("ARTIK_LAGER")
 ' KON.Profile.FillParameters("ARTIK_LAGER", cmd)
 
 ' cmd.ExecuteNonQuery()
 ' KON.Log.RegisterRecord(True, "Lagerbestand [" & bestand & "] für Artikel Nr. '" & anr & "' importiert!")
 'End If
 
 Return True
Catch ex As Exception
 KON.Log.RegisterRecord(False, ex.Message()) 
 If MsgBox("Fehler aufgetreten: " & ex.message & ". Fortsetzen?", MsgboxStyle.Question Or Msgboxstyle.Yesno, "Achtung") = Msgboxresult.Yes Then 
 retval = True
 End If
Finally
 KONAPP.DataConnection.Close() 
End Try
Return retval
End Function



End Class" />
</config>