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