SQLEXEC(lnHandle, "SELECT TAlias1.PIF_NAME, TAlias2.PIF_ID FROM CLIENTS AS TAlias1 INNER JOIN PAYMENTS AS TAlias2 ON TAlias1.PIF_ID = TAlias2.PIF_ID", "CPAY")>
TEXT TO lcSQL NOSHOW PRETEXT 15 SELECT TAlias1.PIF_NAME, TAlias2.PIF_ID FROM CLIENTS AS TAlias1 INNER JOIN PAYMENTS AS TAlias2 ON TAlias1.PIF_ID = TAlias2.PIF_ID ENDTEXT IF SQLEXEC(lnHandle, lcSQL , "CPAY") < 0 AERROR(laError) MessageBox(laError[1,2]) ENDIF