21. November 2016 08:59
xPZN := '';
xlang:='';
xzahl:='';
xEinheit:='';
xtxEinstufung:='';
AdrID:=0;
xFirmename:='';
xtxmwst:='';
xApu:='';
xApoEk:='';
xApoVk:='';
xDatum:=0D;
Integer - OnAfterImportRecord()
ApoPH.INIT;
ApoPH.PZN := xPZN;
ApoPH.Langname := xlang;
ApoPH.Zahl := xzahl;
ApoPH.Einheit := xEinheit;
ApoPH.txEinstufung := xtxEinstufung;
IF STRPOS(AdrIDText,'AdrID')<>0 THEN CurrDataport.SKIP
ELSE EVALUATE(AdrID,AdrIDText);
ApoPH.AdrID_Anbieter := AdrID;
ApoPH.Firmenname := xFirmename;
ApoPH.txMwSt := xtxmwst;
//ApoPH.GDatumPreise:= xDatum;
EVALUATE(ApoPH.ApU,EntSpace(xApu));
EVALUATE(ApoPH.Apo_Ek,EntSpace(xApoEk));
EVALUATE(ApoPH.Apo_Vk,EntSpace(xApoVk));
ApoPH.INSERT;
Integer - OnPostDataItem()
EntSpace(Text : Code[40]) test : Text[100]
EXIT(COPYSTR(Text,1,STRPOS(Text,' ')-1));
21. November 2016 09:21
21. November 2016 09:23
21. November 2016 10:50
21. November 2016 11:00
PascalRoman hat geschrieben:Kann sein das der Seperator 2mal hintereinander vorkommt und er deshalb stolpert
Kommt denn der Inhalt laut Fehlermeldung so oft vor, dass du danach ebenfalls nicht suchen kannst?Somit ist es mir leider mit dem Texteditor nicht möglich dadurch die Zeile zu finden.
21. November 2016 12:19
PascalRoman hat geschrieben:Leider finde ich diese Stelle nicht als "Field Separator" ist ";" eingegeben.