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