OBS/Stammdaten/Artikel: Import Externe-Artikeltexte: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(Importing text file)
(Importing text file)
Zeile 5: Zeile 5:
<font face="Arial"><font size="3"><br /> Mit dieser Funktion können Shop-Texte im XLS Format importiert werden.<br /><br /> Der Lieferant wird herangezogen wenn die Artikelnummer eine Bestellnummer in der Excel-Liste ist.<br /></font></font><font face="Arial"><font size="2"><br /></font></font><font face="Courier New"><font size="1">function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;<br /></font></font><font face="Arial"><font size="2"><br /></font></font><font face="Arial"><font size="3">ArtikelEAN, ArtikelTyp, ArtikelLand sind Optionsfunktionen.<br /><br /> Wenn ArtikelLand nicht vorhanden dann Land aus Maske<br /> Wenn ArtikelTyp nicht vorhanden dann Typ aus Maske<br /><br /> Wenn der Lieferant angegeben ist und die Artikelnummer nicht vorhanden ist und keine Bestellnummer beim Artikel hinterlegt ist,<br /> dann versuchen die Artikelnummer über die Artikel-EAN zu ermitteln falls eine gültige EAN ur Verfügung steht.<br /><br /> Makro Standard setzt das Makro auf das vordefinierten OBS Standard-Makro zurück.<br /></font></font><font face="Arial"><font size="2"><br /></font></font><font face="Arial"><font size="2">[[Image:pict001.jpg]]</font></font><font face="Arial"><font size="2"><br /></font></font><font face="Arial"><font size="2"><br /></font></font><font face="Courier New"><font size="2">//----------------------------------------------------<br /> //Beispiel für Textimport<br /> //----------------------------------------------------<br /><br /> function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := LeftStr(GetCell(oXLS,nRow,0),6);<br /> end;<br /><br /> //----------------------------------------------------<br /><br /> function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := '9101';<br /> end;<br /><br /> //----------------------------------------------------<br /><br /> function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := GetCell(oXLS,nRow,2);<br /> end; <br /><br /> //----------------------------------------------------<br /><br /> function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := 'D';<br /> end; <br /><br /> //----------------------------------------------------<br /><br /> function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := GetCell(oXLS,nRow,3);<br /> end;<br /><br /> //----------------------------------------------------<br /><br /> function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := GetCell(oXLS,nRow,1);<br /> end;<br /><br /> //----------------------------------------------------<br /></font></font><font face="Arial"><font size="2"><br /></font></font>[[Category:hilfe]]
<font face="Arial"><font size="3"><br /> Mit dieser Funktion können Shop-Texte im XLS Format importiert werden.<br /><br /> Der Lieferant wird herangezogen wenn die Artikelnummer eine Bestellnummer in der Excel-Liste ist.<br /></font></font><font face="Arial"><font size="2"><br /></font></font><font face="Courier New"><font size="1">function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;<br /> function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;<br /></font></font><font face="Arial"><font size="2"><br /></font></font><font face="Arial"><font size="3">ArtikelEAN, ArtikelTyp, ArtikelLand sind Optionsfunktionen.<br /><br /> Wenn ArtikelLand nicht vorhanden dann Land aus Maske<br /> Wenn ArtikelTyp nicht vorhanden dann Typ aus Maske<br /><br /> Wenn der Lieferant angegeben ist und die Artikelnummer nicht vorhanden ist und keine Bestellnummer beim Artikel hinterlegt ist,<br /> dann versuchen die Artikelnummer über die Artikel-EAN zu ermitteln falls eine gültige EAN ur Verfügung steht.<br /><br /> Makro Standard setzt das Makro auf das vordefinierten OBS Standard-Makro zurück.<br /></font></font><font face="Arial"><font size="2"><br /></font></font><font face="Arial"><font size="2">[[Image:pict001.jpg]]</font></font><font face="Arial"><font size="2"><br /></font></font><font face="Arial"><font size="2"><br /></font></font><font face="Courier New"><font size="2">//----------------------------------------------------<br /> //Beispiel für Textimport<br /> //----------------------------------------------------<br /><br /> function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := LeftStr(GetCell(oXLS,nRow,0),6);<br /> end;<br /><br /> //----------------------------------------------------<br /><br /> function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := '9101';<br /> end;<br /><br /> //----------------------------------------------------<br /><br /> function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := GetCell(oXLS,nRow,2);<br /> end; <br /><br /> //----------------------------------------------------<br /><br /> function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := 'D';<br /> end; <br /><br /> //----------------------------------------------------<br /><br /> function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := GetCell(oXLS,nRow,3);<br /> end;<br /><br /> //----------------------------------------------------<br /><br /> function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;<br /> begin<br /> Result := GetCell(oXLS,nRow,1);<br /> end;<br /><br /> //----------------------------------------------------<br /></font></font><font face="Arial"><font size="2"><br /></font></font>[[Category:hilfe]]
----
----
[[Spezial:Beiträge/Auto import|Auto import]] 16:18, 5. Jul. 2011 (CEST)
[[Spezial:Beiträge/Auto import|Auto import]] 16:20, 5. Jul. 2011 (CEST)

Version vom 5. Juli 2011, 15:20 Uhr

Shop-Texte Importieren


Mit dieser Funktion können Shop-Texte im XLS Format importiert werden.

Der Lieferant wird herangezogen wenn die Artikelnummer eine Bestellnummer in der Excel-Liste ist.

function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;
function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;
function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;
function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;
function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;
function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;

ArtikelEAN, ArtikelTyp, ArtikelLand sind Optionsfunktionen.

Wenn ArtikelLand nicht vorhanden dann Land aus Maske
Wenn ArtikelTyp nicht vorhanden dann Typ aus Maske

Wenn der Lieferant angegeben ist und die Artikelnummer nicht vorhanden ist und keine Bestellnummer beim Artikel hinterlegt ist,
dann versuchen die Artikelnummer über die Artikel-EAN zu ermitteln falls eine gültige EAN ur Verfügung steht.

Makro Standard setzt das Makro auf das vordefinierten OBS Standard-Makro zurück.

Datei:Pict001.jpg

//----------------------------------------------------
//Beispiel für Textimport
//----------------------------------------------------

function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;
begin
Result := LeftStr(GetCell(oXLS,nRow,0),6);
end;

//----------------------------------------------------

function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;
begin
Result := '9101';
end;

//----------------------------------------------------

function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;
begin
Result := GetCell(oXLS,nRow,2);
end;

//----------------------------------------------------

function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;
begin
Result := 'D';
end;

//----------------------------------------------------

function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;
begin
Result := GetCell(oXLS,nRow,3);
end;

//----------------------------------------------------

function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;
begin
Result := GetCell(oXLS,nRow,1);
end;

//----------------------------------------------------


Auto import 16:20, 5. Jul. 2011 (CEST)