13. August 2024 15:13
// X 100 - AS - Start
// Anlegen von zwei Variablen noSamplesColour und noDisposed
// Setzen der Variablen auf Null
NoSamplesColour := 0;
NoDisposed := 0;
// Anzahl der Muster ermitteln
      SampleVendorColour.RESET;
      SampleVendorColour.SETFILTER("Sample No.", Rec."Sample No.");
      SampleVendorColour.SETFILTER("Vendor No.", Rec."Vendor No.");
      NoSamplesColour := SampleVendorColour.COUNT;
      MESSAGE('Anzahl der Datensätze: %1', NoSamplesColour);
// Anzahl der Entsorgten Muster ermitteln
      SampleVendorColour.RESET;
      SampleVendorColour.SETFILTER("Sample No.", Rec."Sample No.");
      SampleVendorColour.SETFILTER("Vendor No.", Rec."Vendor No.");
      SampleVendorColour.SETFILTER(Disposed, '%1', TRUE);
      NoDisposed := SampleVendorColour.count;
      MESSAGE('Anzahl der entsorgten Muster Datensätze: %1', NoDisposed);
// Prüfen ob Sätze existieren wenn ja schauen ob keine gesperrt sind. 
IF NoDisposed = 0 THEN BEGIN
  MESSAGE('NULL');
  SampleVendor.RESET;
  SampleVendor.GET("Sample No.","Vendor No.");
  SampleVendor.DisposedVendor := 0;
  SampleVendor.MODIFY;
END;
// Prüfen ob Anzahl ungleich, dann Teilweise gesperrt
IF NoDisposed <> NoSamplesColour THEN BEGIN
  MESSAGE('Einige');
  SampleVendor.RESET; 
  SampleVendor.GET("Sample No.","Vendor No.");
  SampleVendor.DisposedVendor := 1;
  SampleVendor.MODIFY;
END;
// Prüfen ob alle gesperrt
IF NoDisposed = NoSamplesColour THEN BEGIN
  MESSAGE('ALLE');
  SampleVendor.RESET;
  SampleVendor.GET("Sample No.","Vendor No.");
  SampleVendor.DisposedVendor := 2;
  SampleVendor.MODIFY;
END;
CurrPage.UPDATE;
//WX100 - End
13. August 2024 15:40
13. August 2024 15:51
13. August 2024 16:02
 
  
 13. August 2024 16:09


 
 13. August 2024 16:35
 
  