OBS/Stammdaten/Artikel: Import Externe-Artikeltexte
Zur Navigation springen
Zur Suche springen
- A - Aktionspreis
- A - In Preislisten enthalten
- A1 - Artikel "nicht mehr lieferbar"
- A2 - Änderungen durch Artikelpflege
- B Lohnstunden-Lohnarten für Artikel
- C - Verkauf über Material
- C1 - Hitliste Kunden(Material)
- Cashback Verwaltung
- D1 - Verkauf über Rechnungen
- F - Einkauf von Lieferanten
- F1 - Filialen-Bestellungen
- F2 - Artikel aus Filiale übernehmen
- G - Einkauf-LS von Lieferanten
- H1 - EAN-Verwaltung
- H2 - Bildverwaltung
- H3 - Shoppflege
- ISBN-Verwaltung
- H5 - Etiketten Druck Definition:
- Sollzahlen
- J1 - Personenbezoegene Preise
- J2 - Personenbezogene Einmal-/Bonus-Artikel
- J3 Preislisten Verwaltung
- K - Bestandsbindende Aufträge
- L - Aktuelle Bestellungen
- M - Datanorm-Nummer löschen
- M - Obst-Verwaltung
- N1 - Staffelpreise
- O1 - Stückliste
- O2 - Preis-Varianten
- O3 - Vergleichbare Artikel
- P - Seriennummern
- Q - Artikel-Zugang
- R - Verpackungen
- R1 - Artikel Stammdaten/Lieferantendaten Kontrollen
- S - Eigenschaften
- T - Ersatzteil-/Verbrauchsmaterial-Liste
- U - Ersatzteil-/Verbrauchsmaterial ist enthalten in
- V1 - Bild öffnen
- V2 - QR Code anzeigen
- V4 VCS Datei Versionierung
- X1 - Artikel verschmelzen/Artikelnummer ändern
- Y - Bestandsveränderungshistorie
- Y1 - Durchschnitts-EK-Historie
- Andere Filialen anzeigen
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.
//----------------------------------------------------
//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;