24. November 2017 10:39
24. November 2017 13:50
24. November 2017 14:44
OnDeleteRecord() : Boolean
Item.SETRANGE(Quality,"No.");
IF NOT Item.ISEMPTY THEN
ERROR(txtCanNotDelete);
24. November 2017 16:24
Item.SETRANGE(Quality,Rec."No.");
IF NOT Item.ISEMPTY THEN BEGIN
IF Item.COUNT > 1 THEN BEGIN
ERROR(C_DeleteErr);
END ELSE IF ItemLoc.COUNT = 1 THEN BEGIN
IF Rec."No." <> Rec.Quality THEN BEGIN
ERROR(Text1);
END;
END;
END;
24. November 2017 16:59
Item.SETRANGE(Quality,"No.");
Item.setFILTER("No.",'<>'%1',"No."); // den aktuellen willst du nicht
if not Item.isempty then // da ist ein anderer als der aktuelle
ERROR('Artikel wird benutzt');
24. November 2017 21:01
fiddi hat geschrieben:Hallo,
schau dir das mal an:
- Code:
Item.SETRANGE(Quality,"No.");
Item.setFILTER("No.",'<>'%1',"No."); // den aktuellen willst du nicht
if not Item.isempty then // da ist ein anderer als der aktuelle
ERROR('Artikel wird benutzt');
Gruß Fiddi
24. November 2017 21:12