------------------------SDT2 ÿÿÿÿValidateCode--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText------------------------------------!%()HeadingText----------------------------------- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿValidateCode--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ÿÿÿÿ6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ÿÿÿÿ()[8(!B ; FPAR IN CardNbr Integer, IN CodeStr CodeType; Returns Boolean;)]})]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------Xÿÿÿÿ()[8(! Procedure ValidateCode)]}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.ÿÿÿÿ()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ÿÿÿÿ!%()HeaderText------------------------------------!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1------------------------------------------------- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!%&()LinkEndpoints----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------ÿÿÿÿ()[(! lü! 22!(d)[h(! lü)[k(! 6)[n(! 6d! )]][ q(! 6ÿ)][9+(! 6Xd! )[8(!& DCL DBpo s IndexType, DB DBArrayType;)]][94(! 6Ld! )[8(!I NEWTYPE DBArrayType Array(IndexType,PostType) ENDNEWTYPE DBArrayType;)]][&t(! 6ú&! Èd)[8(! )][’(!^Š ^¼!"^¼^Š)[6w(! 6ú¼! Èd)[8(! DBpos:= 0)][((!^ ^R!"^R^ )[6%(! 62R! X,)[8(!È DB(1)!CardElement:=1, DB(1)!CodeElement:=(. 1 .), DB(2)!CardElement:=2, DB(2)!CodeElement:=(. 2 .), DB(3)!CardElement:=3, DB(3)!CodeElement:=(. 3 .), DB(4)!CardElement:=4, DB(4)!CodeElement:=(. 4 .))][1(!^~^°!"^ °^~)[(! 6^°!Z)][3.(! 6ú°! Èd)[8(! Search)]]]]]]]][3ì(! 6°&! Èd)[8(! Search)][ (!м!" ¼Š)[ï(! 6°¼! Èd)[8(! DBpos <= 9)][ (! R!"R )[ ò(! 6°R! Èd)[8(!! DB(DBpos)!CardElement = CardNbr)][(!°„è„è!"è°„)[8(! 6! True)][ õ(! 6„! Èd)[8(!! DB(DBpos)!CodeElement = CodeStr)][(!„LîLî°!"î°„L)[8(! 6e! True)]['ø(! 6а! Èd)[8(! True)]]][(!è~è°!"è°è~)[8(! 6—! False)]['û(! 6„°! Èd)[8(! False)]]]]][(!¶!"¶)[8(! 6-è! False)][ þ(! 6°! Èd)[8(! DBpos <9)][(!~°!"°~)[8(! 6-~! True)][6(! 6°°! Èd)[8(! DBpos:= DBpos+1)][(!F!"F)[(! 6F!Z)][3(! 6°F! Èd)[8(! Search)]]]]]["(!xLL°!"°xL)[8(! 6'e! False)]['(! 6ª°! Èd)[8(! False)]]]]]]]]]]]]}-----------------------------------------------------------------------------------------------------------------------------------------------qÿÿÿÿ(!44!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------Pÿÿÿÿ