23. März 2021 09:23
IF Rec.Artikelform <> '' THEN
  recVARseitlicheAusfuehrung.SETRANGE(Artikelform, Rec.Artikelform);
IF Rec.Thickness > 0 THEN
  recVARseitlicheAusfuehrung.SETFILTER(Staerke, '<=%1', Rec.Thickness);
IF Rec.LaengeSeitlicheAusfuehrung_MAX > 0 THEN
  recVARseitlicheAusfuehrung.SETFILTER(Laenge_seitl_Ausfuehrung_max, '<=%1', Rec.LaengeSeitlicheAusfuehrung_MAX);
IF (Rec.SS_Spannflaeche_L <> '') AND (Rec.SS_Spannflaeche_R <> '') AND (Rec.SS_Spannflaeche_L = Rec.SS_Spannflaeche_R) THEN
  recVARseitlicheAusfuehrung.SETFILTER(Spannflaeche, Rec.SS_Spannflaeche_L);
IF PAGE.RUNMODAL(50069, recVARseitlicheAusfuehrung) = ACTION::LookupOK THEN BEGIN
  VALIDATE("seitliche Ausführung" , FORMAT(recVARseitlicheAusfuehrung."seitl. Ausfuehrung"));
END;23. März 2021 20:02
24. März 2021 10:48
24. März 2021 14:43
24. März 2021 15:09
IF recVARseitlicheAusfuehrung.FIND('-') THEN
  recTMPseitlicheAusfuehrung.INIT;
  REPEAT
    recTMPseitlicheAusfuehrung.SETRANGE("seitl. Ausfuehrung", recVARseitlicheAusfuehrung."seitl. Ausfuehrung");
    IF NOT recTMPseitlicheAusfuehrung.FINDFIRST THEN BEGIN
       recTMPseitlicheAusfuehrung := recVARseitlicheAusfuehrung;
       recTMPseitlicheAusfuehrung.INSERT;
    END;
    recTMPseitlicheAusfuehrung.RESET;     
  UNTIL recVARseitlicheAusfuehrung.NEXT = 0;
IF PAGE.RUNMODAL(50075, recTMPseitlicheAusfuehrung) = ACTION::LookupOK THEN BEGIN
  VALIDATE("seitliche Ausführung" , FORMAT(recTMPseitlicheAusfuehrung."seitl. Ausfuehrung"));
END;