27. Februar 2009 11:28
27. Februar 2009 11:56
If not FirstLineRead then
begin
FirstLine:=true;
CurrDataport.Skip;
end;
27. Februar 2009 12:05
27. Februar 2009 12:31
27. Februar 2009 12:52
If not FirstLineRead then
begin
FirstLineRead:=true;
CurrDataport.Skip;
end;
27. Februar 2009 13:00
27. Februar 2009 13:18
winkelsbr hat geschrieben:ich habe den Code jetzt in den Trigger "OnBeforeImportRecord()" geschrieben.
Er bringt mir aber gleich eine Fehlermeldung, da das erste Feld in der Tabelle vom Typ Integer ist, jedoch die csv-Datei eine Feld vom Typ Text enthält.
27. Februar 2009 13:40
27. Februar 2009 14:00
27. Februar 2009 14:29
Sebastian Pfliegel hat geschrieben:Hau AutoUpdate und AutoSave als Property raus.
Sebastian Pfliegel hat geschrieben:Zum Beispiel darf das Primärfeld nur Integer sein (überprüf das mit EVALUATE)
IF EVALUATE(Tabelle."Lfd-Nr",'Laufende Nummer') THEN
CurrDataport.SKIP;
27. Februar 2009 14:30
winkelsbr hat geschrieben:Gibt es die möglichkeit, dass beim Import die erste Zeile ignoriert wird?
27. Februar 2009 15:02
9. September 2009 13:18
OBJECT Dataport 50032 Stockkeeping Unit SS Quantity
{
OBJECT-PROPERTIES
{
Date=09.09.09;
Time=12:15:03;
Modified=Yes;
Version List=PA008;
}
PROPERTIES
{
CaptionML=[DEU=Lagerhaltungsdaten SB/Meldebestand;
ENU=Stockkeeping Unit SS Quantity];
FieldStartDelimiter=<None>;
FieldEndDelimiter=<None>;
FieldSeparator=[;];
RecordSeparator=<NewLine>;
DataItemSeparator=<NewLine>;
OnPreDataport=BEGIN
IF CurrDataport.IMPORT THEN BEGIN
LineCount:=1;
REPEAT
CurrFile.READ(Character);
IF Character=10 THEN
LineCount:=LineCount-1;
UNTIL LineCount=0;
END;
END;
}
DATAITEMS
{
{ PROPERTIES
{
DataItemTable=Table2000000026;
DataItemTableView=SORTING(Number)
WHERE(Number=CONST(1));
}
FIELDS
{
{ ; ;'' ;Format=Artikelnr. }
{ ; ;'' ;Format=Loagerortcode }
{ ; ;'' ;Format=Sicherheitsbestand }
{ ; ;'' ;Format=Bestellzyklus }
{ ; ;'' ;Format=Beschaffungszeit }
}
}
{ PROPERTIES
{
DataItemTable=Table5700;
DataItemVarName=Lagerhaltungsdaten;
ReqFilterFields=Location Code;
}
FIELDS
{
{ ; ;"Item No." }
{ ; ;"Location Code" }
{ ; ;"Safety Stock Quantity" }
{ ; ;"Reorder Cycle" }
{ ; ;"Lead Time Calculation" }
}
}
}
REQUESTFORM
{
PROPERTIES
{
Width=9020;
Height=3410;
}
CONTROLS
{
}
}
CODE
{
VAR
GM@1140000 : Codeunit 11501;
Character@1140002 : Char;
LineCount@1140001 : Integer;
9. September 2009 13:27
IF CurrDataport.IMPORT THEN BEGIN
LineCount:=1;
REPEAT
CurrFile.READ(Character);
IF Character=10 THEN
LineCount:=LineCount-1;
UNTIL LineCount=0;
END;
9. September 2009 13:31