The first Bool() identifies matching brackets. The second version has problems.
Code: Select all
Bool(""=taRcvd(#KA_EMAIL) And Not SQLSeek(KHSite("pid")\ValueS+Left(lcCard,10),"KHCard","PID",KHCard()) And Not SQLSeek(KHSite("pid")\ValueS+Left(lcCard,9),"KHCard","PID",KHCard()) And Not SQLSeek(KHSite("pid")\ValueS+Left(lcCard,6),"KHCard","PID",KHCard()) And Not SQLSeek(KHSite("pid")\ValueS+LSet(taRcvd(#KA_ISO),6,"?"),"KHCard","PID",KHCard()) And Not SQLSeek(KHSite("pid")\ValueS+Left(lcCard,3)+"000","KHCard","PID",KHCard()) And Not SQLSeek(Left(lcCard,10),"KHCard","CardNo",KHCard()) And Not SQLSeek(Left(lcCard,9),"KHCard","CardNo",KHCard()) And Not SQLSeek(Left(lcCard,6),"KHCard","CardNo",KHCard()) And Not SQLSeek(LSet(taRcvd(#KA_ISO),6,"?"),"KHCard","CardNo",KHCard())) ; Card ISO must exist in IPN Database (Kardall can have 9 Or 10 digits i.e. 6 digit ISO plus 3 Or 4 digit account#)
Bool(""=taRcvd(#KA_EMAIL) And Not SQLSeek(KHSite("pid")\ValueS+Left(lcCard,10),"KHCard","PID",KHCard()) And Not SQLSeek(KHSite("pid")\ValueS+Left(lcCard,9),"KHCard","PID",KHCard()) And
Not SQLSeek(KHSite("pid")\ValueS+Left(lcCard,6),"KHCard","PID",KHCard()) And Not SQLSeek(KHSite("pid")\ValueS+LSet(taRcvd(#KA_ISO),6,"?"),"KHCard","PID",KHCard()) And
Not SQLSeek(KHSite("pid")\ValueS+Left(lcCard,3)+"000","KHCard","PID",KHCard()) And Not SQLSeek(Left(lcCard,10),"KHCard","CardNo",KHCard()) And Not SQLSeek(Left(lcCard,9),"KHCard","CardNo",KHCard()) And
Not SQLSeek(Left(lcCard,6),"KHCard","CardNo",KHCard()) And Not SQLSeek(LSet(taRcvd(#KA_ISO),6,"?"),"KHCard","CardNo",KHCard())) ; Card ISO must exist in IPN Database (Kardall can have 9 Or 10 digits i.e. 6 digit ISO plus 3 Or 4 digit account#)