FUNCTION cuenta()

    DEFINE
        kcuenta VARCHAR(20),
        kdescripcion CHAR(80),
        cuenta_no ui.ComboBox,
        cuentaForm,qcuentas STRING

    
        LET cuentaForm = "formonly.cuenta_no"
   

    LET cuenta_no = ui.combobox.forname(cuentaForm)

    LET qcuentas = "SELECT RTRIM(a.cuenta_no),
           ISNULL('(' + RTRIM(a.cuenta_no) + ')'+ RTRIM(b.nombre_bco) + ' ('+ 
		   RTrIM(b.cuenta_bank) + ')',a.descripcion) 
            FROM marmotech.dbo.cgtb00001 a,marmotech.dbo.cgtb00012 b
            WHERE  a.status_t IS NULL  AND a.cuenta_no=b.cuenta_no 
			ORDER BY a.cuenta_no
            "
            
    PREPARE bcuentas FROM qcuentas        
    DECLARE busca_cuenta CURSOR FOR bcuentas
        

    CALL cuenta_no.clear()
    FOREACH busca_cuenta INTO kcuenta, kdescripcion
        CALL cuenta_no.additem(kcuenta, kdescripcion)
    END FOREACH

END FUNCTION