27. Oktober 2009 15:02
[b]Item - OnPreDataItem()[/b]
[b]Item - OnAfterGetRecord()[/b]
artikel2:=Item;
nnr := COPYSTR(Item."No.",1,9);
IF Item.TestInvNichtBerücksichtigen = FALSE THEN BEGIN
artikel2.SETFILTER("No.",nnr);
IF artikel2.FIND('-') THEN REPEAT
artikel2.TestInvNichtBerücksichtigen := FALSE;
UNTIL artikel2.NEXT = 0;
artikel2.MODIFY;
END;
27. Oktober 2009 15:46
27. Oktober 2009 15:47
28. Oktober 2009 08:37
artikel2:=Item;
nnr := COPYSTR(Item."No.",1,9);
IF Item.TestInvNichtBerücksichtigen = FALSE THEN BEGIN
artikel2.SETFILTER("No.",nnr);
IF artikel2.FIND('-') THEN REPEAT
artikel2.TestInvNichtBerücksichtigen := FALSE;
artikel2.MODIFY;
MESSAGE('Artikel wurde geändert = '+ '%1',artikel2."No." );
UNTIL artikel2.NEXT = 0;
END;
28. Oktober 2009 10:04
artikel2:=Item;
nnr := COPYSTR(Item."No.",1,9)+'*';
28. Oktober 2009 10:37
28. Oktober 2009 10:42