>* .Validate_Field_Specs() >WITH ThisForm > * Clear out this form-level memory variable. > .cAllSpecNotes="" > IF !EOF("Specs") > .lblSpecsMsg.Visible = .T. > .lblSpecsMsg.Caption="Spec Found!" > * DIAMETER Validation. > .Validate_Diameter() > IF !EMPTY(.cDiaSpecNotes) > .cAllSpecNotes=.cDiaSpecNotes > ENDIF > * BREAK Validation. > .Validate_Break() > IF !EMPTY(.cBreakSpecNotes) > .cAllSpecNotes=.cAllSpecNotes + ; > CHR(13) + CHR(10) + .cBreakSpecNotes > ENDIF > * OUT OF ROUND Validation. > .Validate_OutOfRound() > IF !EMPTY(.cOutOfRoundSpecNotes) > .cAllSpecNotes=.cAllSpecNotes + ; > CHR(13) + CHR(10) + .cOutOfRoundSpecNotes > ENDIF > * CAST Validation. > .Validate_Cast() > IF !EMPTY(.cCastSpecNotes) > .cAllSpecNotes=.cAllSpecNotes + ; > CHR(13) + CHR(10) + .cCastSpecNotes > ENDIF > * TENSILE Validation. > .Validate_Tensile() > IF !EMPTY(.cTensileSpecNotes) > .cAllSpecNotes=.cAllSpecNotes + ; > CHR(13) + CHR(10) + .cTensileSpecNotes > ENDIF > * TORSION Validation. > .Validate_Torsion() > IF !EMPTY(.cTorsionSpecNotes) > .cAllSpecNotes=.cAllSpecNotes + ; > CHR(13) + CHR(10) + .cTorsionSpecNotes > ENDIF > IF LEN(ALLTRIM(.cAllSpecNotes)) > 0 > MESSAGEBOX(.cAllSpecNotes, 0+64, "Out of Spec Notes") > ENDIF > ELSE > .lblSpecsMsg.Caption="Spec NOT Found!" > .lblDiaOutOfSpec.Visible =.F. > .lblBreakOutOfSpec.Visible =.F. > .lblRoundOutOfSpec.Visible =.F. > .lblCastOutOfSpec.Visible =.F. > .lblTensileOutOfSpec.Visible=.F. > .lblHelixOutOfSpec.Visible =.F. > .lblTorsionOutOfSpec.Visible=.F. > .lblBendOutOfSpec.Visible =.F. > .lblWrapOutOfSpec.Visible =.F. > ENDIF >ENDWITH >>