I have the issue with Currform.Field.Enabled property based on condition.
And my code (On Item Type OnValidate & OnAfterGetCurrRecord) is
CASE “Item Type” OF
"Item Type"::“Filter Plate”:
BEGIN
//IF “Item Type” = “Item Type”::“Filter Plate” THEN BEGIN
CurrForm.“Instrument Type”.ENABLED(FALSE);
CurrForm.Range.ENABLED(FALSE);
CurrForm.Body.ENABLED(FALSE);
CurrForm.“Process Connection”.ENABLED(FALSE);
CurrForm.Model.ENABLED(FALSE);
CurrForm.BoreDia.ENABLED(FALSE);
CurrForm.RodDia.ENABLED(FALSE);
CurrForm.“Stoke length”.ENABLED(FALSE);
CurrForm.Kwatts.ENABLED(FALSE);
CurrForm.“BOM Door Cylinder”.ENABLED(FALSE);
CurrForm.“Plate Shifter”.ENABLED(FALSE);
CurrForm.“Main Cylinder”.ENABLED(FALSE);
CurrForm.“Side Cylinder”.ENABLED(FALSE);
CurrForm.“Valves Type”.ENABLED(FALSE);
CurrForm.“Valves Category”.ENABLED(FALSE);
CurrForm.PLC.ENABLED(FALSE);
CurrForm.“OP Panel”.ENABLED(FALSE);
CurrForm.MCC.ENABLED(FALSE);
CurrForm.LCS.ENABLED(FALSE);
CurrForm.RLC.ENABLED(FALSE);
CurrForm.Gladding.ENABLED(FALSE);
CurrForm.MoC.ENABLED(FALSE);
END;
"Item Type"::“Filter Cloth”:
BEGIN
CurrForm.“Instrument Type”.ENABLED(FALSE);
CurrForm.Range.ENABLED(FALSE);
CurrForm.Body.ENABLED(FALSE);
CurrForm.“Process Connection”.ENABLED(FALSE);
CurrForm.BoreDia.ENABLED(FALSE);
CurrForm.RodDia.ENABLED(FALSE);
CurrForm.“Stoke length”.ENABLED(FALSE);
CurrForm.Kwatts.ENABLED(FALSE);
CurrForm.“BOM Door Cylinder”.ENABLED(FALSE);
CurrForm.“Plate Shifter”.ENABLED(FALSE);
CurrForm.“Main Cylinder”.ENABLED(FALSE);
CurrForm.“Side Cylinder”.ENABLED(FALSE);
CurrForm.“Valves Type”.ENABLED(FALSE);
CurrForm.“Valves Category”.ENABLED(FALSE);
CurrForm.PLC.ENABLED(FALSE);
CurrForm.“OP Panel”.ENABLED(FALSE);
CurrForm.MCC.ENABLED(FALSE);
CurrForm.LCS.ENABLED(FALSE);
CurrForm.RLC.ENABLED(FALSE);
CurrForm.Gladding.ENABLED(FALSE);
CurrForm.MoC.ENABLED(FALSE);
END;
"Item Type"::Cylinder:
BEGIN
CurrForm.“Instrument Type”.ENABLED(FALSE);
CurrForm.Range.ENABLED(FALSE);
CurrForm.Body.ENABLED(FALSE);
CurrForm.“Process Connection”.ENABLED(FALSE);
CurrForm.Kwatts.ENABLED(FALSE);
CurrForm.“BOM Door Cylinder”.ENABLED(FALSE);
CurrForm.“Plate Shifter”.ENABLED(FALSE);
CurrForm.“Main Cylinder”.ENABLED(FALSE);
CurrForm.“Side Cylinder”.ENABLED(FALSE);
CurrForm.“Valves Type”.ENABLED(FALSE);
CurrForm.“Valves Category”.ENABLED(FALSE);
CurrForm.PLC.ENABLED(FALSE);
CurrForm.“OP Panel”.ENABLED(FALSE);
CurrForm.MCC.ENABLED(FALSE);
CurrForm.LCS.ENABLED(FALSE);
CurrForm.RLC.ENABLED(FALSE);
CurrForm.Gladding.ENABLED(FALSE);
CurrForm.MoC.ENABLED(FALSE);
CurrForm.Type.ENABLED(FALSE);
CurrForm.Tickness.ENABLED(FALSE);
CurrForm.“Discharge Type”.ENABLED(FALSE);
CurrForm.Varient.ENABLED(FALSE);
END;
"Item Type"::“Power Pack”:
BEGIN
CurrForm.“Instrument Type”.ENABLED(FALSE);
CurrForm.Range.ENABLED(FALSE);
CurrForm.Body.ENABLED(FALSE);
CurrForm.“Process Connection”.ENABLED(FALSE);
CurrForm.“Valves Type”.ENABLED(FALSE);
CurrForm.“Valves Category”.ENABLED(FALSE);
CurrForm.PLC.ENABLED(FALSE);
CurrForm.“OP Panel”.ENABLED(FALSE);
CurrForm.MCC.ENABLED(FALSE);
CurrForm.LCS.ENABLED(FALSE);
CurrForm.RLC.ENABLED(FALSE);
CurrForm.Gladding.ENABLED(FALSE);
CurrForm.MoC.ENABLED(FALSE);
CurrForm.Type.ENABLED(FALSE);
CurrForm.Tickness.ENABLED(FALSE);
CurrForm.“Discharge Type”.ENABLED(FALSE);
CurrForm.Varient.ENABLED(FALSE);
CurrForm.BoreDia.ENABLED(FALSE);
CurrForm.RodDia.ENABLED(FALSE);
CurrForm.“Stoke length”.ENABLED(FALSE);
CurrForm.Model.ENABLED(FALSE);
CurrForm.Size.ENABLED(FALSE);
END;
"Item Type"::Valves:
BEGIN
CurrForm.“Instrument Type”.ENABLED(FALSE);
CurrForm.Range.ENABLED(FALSE);
CurrForm.Body.ENABLED(FALSE);
CurrForm.“Process Connection”.ENABLED(FALSE);
CurrForm.PLC.ENABLED(FALSE);
CurrForm.“OP Panel”.ENABLED(FALSE);
CurrForm.MCC.ENABLED(FALSE);
CurrForm.LCS.ENABLED(FALSE);
CurrForm.RLC.ENABLED(FALSE);
CurrForm.Gladding.ENABLED(FALSE);
CurrForm.MoC.ENABLED(FALSE);
CurrForm.Type.ENABLED(FALSE);
CurrForm.Tickness.ENABLED(FALSE);
CurrForm.“Discharge Type”.ENABLED(FALSE);
CurrForm.Varient.ENABLED(FALSE);
CurrForm.BoreDia.ENABLED(FALSE);
CurrForm.RodDia.ENABLED(FALSE);
CurrForm.“Stoke length”.ENABLED(FALSE);
CurrForm.Model.ENABLED(FALSE);
CurrForm.“BOM Door Cylinder”.ENABLED(FALSE);
CurrForm.“Plate Shifter”.ENABLED(FALSE);
CurrForm.“Main Cylinder”.ENABLED(FALSE);
CurrForm.“Side Cylinder”.ENABLED(FALSE);
CurrForm.Kwatts.ENABLED(FALSE);
CurrForm.Pressure.ENABLED(FALSE);
END;
"Item Type"::“PLC Panel”:
BEGIN
CurrForm.“Instrument Type”.ENABLED(FALSE);
CurrForm.Range.ENABLED(FALSE);
CurrForm.Body.ENABLED(FALSE);
CurrForm.“Process Connection”.ENABLED(FALSE);
CurrForm.Gladding.ENABLED(FALSE);
CurrForm.MoC.ENABLED(FALSE);
CurrForm.Type.ENABLED(FALSE);
CurrForm.Tickness.ENABLED(FALSE);
CurrForm.“Discharge Type”.ENABLED(FALSE);
CurrForm.Varient.ENABLED(FALSE);
CurrForm.BoreDia.ENABLED(FALSE);
CurrForm.RodDia.ENABLED(FALSE);
CurrForm.“Stoke length”.ENABLED(FALSE);
CurrForm.Model.ENABLED(FALSE);
CurrForm.“BOM Door Cylinder”.ENABLED(FALSE);
CurrForm.“Plate Shifter”.ENABLED(FALSE);
CurrForm.“Main Cylinder”.ENABLED(FALSE);
CurrForm.“Side Cylinder”.ENABLED(FALSE);
CurrForm.“Valves Type”.ENABLED(FALSE);
CurrForm.“Valves Category”.ENABLED(FALSE);
CurrForm.Size.ENABLED(FALSE);
CurrForm.Kwatts.ENABLED(FALSE);
END;
"Item Type"::Frame:
BEGIN
CurrForm.“Instrument Type”.ENABLED(FALSE);
CurrForm.Range.ENABLED(FALSE);
CurrForm.Body.ENABLED(FALSE);
CurrForm.“Process Connection”.ENABLED(FALSE);
CurrForm.Type.ENABLED(FALSE);
CurrForm.Tickness.ENABLED(FALSE);
CurrForm.Varient.ENABLED(FALSE);
CurrForm.BoreDia.ENABLED(FALSE);
CurrForm.RodDia.ENABLED(FALSE);
CurrForm.“Stoke length”.ENABLED(FALSE);
CurrForm.Model.ENABLED(FALSE);
CurrForm.“BOM Door Cylinder”.ENABLED(FALSE);
CurrForm.“Plate Shifter”.ENABLED(FALSE);
CurrForm.“Main Cylinder”.ENABLED(FALSE);
CurrForm.“Side Cylinder”.ENABLED(FALSE);
CurrForm.“Valves Type”.ENABLED(FALSE);
CurrForm.“Valves Category”.ENABLED(FALSE);
CurrForm.Size.ENABLED(FALSE);
CurrForm.PLC.ENABLED(FALSE);
CurrForm.“OP Panel”.ENABLED(FALSE);
CurrForm.MCC.ENABLED(FALSE);
CurrForm.LCS.ENABLED(FALSE);
CurrForm.RLC.ENABLED(FALSE);
CurrForm.Make.ENABLED(FALSE);
CurrForm.Pressure.ENABLED(FALSE);
CurrForm.Kwatts.ENABLED(FALSE)
END;
"Item Type"::Instruments:
BEGIN
CurrForm.Type.ENABLED(FALSE);
CurrForm.Tickness.ENABLED(FALSE);
CurrForm.“Discharge Type”.ENABLED(FALSE);
CurrForm.Varient.ENABLED(FALSE);
CurrForm.BoreDia.ENABLED(FALSE);
CurrForm.RodDia.ENABLED(FALSE);
CurrForm.“Stoke length”.ENABLED(FALSE);
CurrForm.Model.ENABLED(FALSE);
CurrForm.“BOM Door Cylinder”.ENABLED(FALSE);
CurrForm.“Plate Shifter”.ENABLED(FALSE);
CurrForm.“Main Cylinder”.ENABLED(FALSE);
CurrForm.“Side Cylinder”.ENABLED(FALSE);
CurrForm.“Valves Type”.ENABLED(FALSE);
CurrForm.“Valves Category”.ENABLED(FALSE);
CurrForm.Size.ENABLED(FALSE);
CurrForm.PLC.ENABLED(FALSE);
CurrForm.“OP Panel”.ENABLED(FALSE);
CurrForm.MCC.ENABLED(FALSE);
CurrForm.LCS.ENABLED(FALSE);
CurrForm.RLC.ENABLED(FALSE);
CurrForm.Gladding.ENABLED(FALSE);
CurrForm.MoC.ENABLED(FALSE);
CurrForm.Kwatts.ENABLED(FALSE);
CurrForm.Pressure.ENABLED(FALSE);
END;
END;
Its not working properly when i do enter item type or when i click on next rec view. Enabled Fields varies according to the item type
Each time I choose the rec from list to card, only when i run it again it works fine.
Is it possible to make work on all cases?
Thanks in Advance,
SS