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;