IF !EMPTY(tmpLiquid.rec_servic) lcStr = UPPER(ALLTRIM(tmpLiquid.rec_servic)) IF LIKE("RETEST 1 YEAR", lcStr) REPLACE ss WITH "A" ELSE IF !LIKE("*DEHYDRATE*", lcStr) ; ******* OR LIKE("*TC*",lcStr) IF LIKE("RETEST", lcStr) ; OR LIKE("*TC*", lcStr) ; OR LIKE("*RETEST IFT*", lcStr) ; OR LIKE("*RETEST DIELECT*", lcStr) ; OR LIKE("*RETEST NN*", lcStr) ; OR LIKE("*THERMAL CLEAN*", lcStr) REPLACE ss WITH "U" ELSE IF ThisForm.RecError("Standard Screen", lcStr, upsino) REPLACE ss WITH "??" ELSE RETURN .F. ENDIF ENDIF ELSE IF LIKE("RT/DEHYDRATE", lcStr) OR LIKE("DEHYDRATE", lcStr) ******** REPLACE ss WITH "A" ELSE IF ThisForm.RecError("Standard Screen",lcStr,upsino) REPLACE ss WITH "??" ELSE RETURN .F. ENDIF ENDIF ENDIF ENDIF ENDIF