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

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Zeile 1: Zeile 1:
{{Stammdaten}}<font size="2" color="#000000" face="Arial"> </font>
{{Artikel F10}}<font size="2" color="#000000" face="Arial"> </font>


<div><center><font size="6">Shop-Texte Importieren</font></center></div><br />Mit dieser Funktion können Shop-Texte im XLS Format importiert werden.<br />Der Lieferant wird herangezogen wenn die Artikelnummer eine Bestellnummer in der Excel-Liste ist.<div><br /></div><div><font size="1" face="courier new">function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;<div><br /></div>ArtikelEAN, ArtikelTyp, ArtikelLand sind Optionsfunktionen.<br />Wenn ArtikelLand nicht vorhanden dann Land aus MaskeWenn ArtikelTyp  nicht vorhanden dann Typ aus Maske<br />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.<br />Makro Standard setzt das Makro auf das vordefinierten OBS Standard-Makro zurück.<div><br /></div><div>[[Image:FRMTEXTEIMPORT_1.jpg]]</div><div><br /></div><div><font face="courier new">//----------------------------------------------------<div><font face="courier new">//Beispiel für Textimport<div><font face="courier new">//----------------------------------------------------<div><font face="courier new"><br /><div><font face="courier new">function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := LeftStr(GetCell(oXLS,nRow,0),6);<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"><br /><div><font face="courier new">function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := '9101';<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"><br /><div><font face="courier new">function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := GetCell(oXLS,nRow,2);<div><font face="courier new">end; <div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"> <div><font face="courier new">function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := 'D';<div><font face="courier new">end; <div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"> <div><font face="courier new">function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := GetCell(oXLS,nRow,3);<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"><br /><div><font face="courier new">function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := GetCell(oXLS,nRow,1);<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><br /></div>[[Category:html]]
<div><center><font size="6">Shop-Texte Importieren</font></center></div><br />Mit dieser Funktion können Shop-Texte im XLS Format importiert werden.<br />Der Lieferant wird herangezogen wenn die Artikelnummer eine Bestellnummer in der Excel-Liste ist.<div><br /></div><div><font size="1" face="courier new">function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;<div><font size="1" face="courier new">function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;<div><br /></div>ArtikelEAN, ArtikelTyp, ArtikelLand sind Optionsfunktionen.<br />Wenn ArtikelLand nicht vorhanden dann Land aus MaskeWenn ArtikelTyp  nicht vorhanden dann Typ aus Maske<br />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.<br />Makro Standard setzt das Makro auf das vordefinierten OBS Standard-Makro zurück.<div><br /></div><div>[[Image:FRMTEXTEIMPORT_1.jpg]]</div><div><br /></div><div><font face="courier new">//----------------------------------------------------<div><font face="courier new">//Beispiel für Textimport<div><font face="courier new">//----------------------------------------------------<div><font face="courier new"><br /><div><font face="courier new">function ArtikelNummer(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := LeftStr(GetCell(oXLS,nRow,0),6);<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"><br /><div><font face="courier new">function ArtikelTyp(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := '9101';<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"><br /><div><font face="courier new">function ArtikelName(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := GetCell(oXLS,nRow,2);<div><font face="courier new">end; <div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"> <div><font face="courier new">function ArtikelLand(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := 'D';<div><font face="courier new">end; <div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"> <div><font face="courier new">function ArtikelText(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := GetCell(oXLS,nRow,3);<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><font face="courier new"><br /><div><font face="courier new">function ArtikelEAN(oXLS:TObject;nRow:Intgeger) : String;<div><font face="courier new">begin<div><font face="courier new">    Result := GetCell(oXLS,nRow,1);<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">//----------------------------------------------------<div><br /></div>[[Category:html]]
----
----
[[Benutzer:Auto import|Auto import]] 15:21, 25. Aug. 2011 (CEST)
[[Benutzer:Auto import|Auto import]] 15:21, 25. Aug. 2011 (CEST)

Version vom 7. August 2015, 07:21 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 MaskeWenn 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.


//----------------------------------------------------
//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 15:21, 25. Aug. 2011 (CEST)