21. Januar 2010 13:37
EZeile.RESET;
EZeile.SETRANGE(EZeile."Document Type", EZeile."Document Type"::Order);
EZeile.SETRANGE(EZeile."Document No.", NeueNummer);
IF EZeile.FIND('+') THEN
eLineNo:=EZeile."Line No."+10000
ELSE
eLineNo:=10000;
EZeile.INIT;
EZeile."Document Type" := EZeile."Document Type"::Order;
EZeile."Document No." := NeueNummer;
EZeile."Line No." := eLineNo;
EZeile.VALIDATE(EZeile.Type , EZeile.Type::Item);
EZeile.VALIDATE(EZeile."No.", FORMAT(ArtNr));
EZeile.VALIDATE(EZeile.Quantity , "Sales Line".Quantity);
EZeile.INSERT;
21. Januar 2010 13:47
21. Januar 2010 14:02
5. Februar 2010 11:08