Forum Post: Customize Payment Entry

I am trying to customize payment entry such that when refnbr is entered the custid will populate automatically. this is my code Private Sub crefnbr_Chk(ChkStrg As String, retval As Integer) Dim bARD, SqlStr$ Dim bCust As String * 15 SqlStr = " select CustId from ARDoc ARD where Docbal <> 0 and Refnbr = @Ref1 " Call sql(c1, SqlStr) Call SqlSubst(c1, "Ref1", ChkStrg) Call SqlExec(c1) serr1 = SFetch1(c1, bARD, LenB(bARD)) If serr1 = 0 Then bCust = bARD.CustId Else: bCust = "" End If Call setprop("ccustId", "Text", bCust) End Sub My problem is sfetch1 generates error - expression precbuff and viewlen > 0 Help appreciated RayD