Code: Select all
cb :={|| oDlg:End() }
Mifunción( a, b, cb )
if <condicion>
eval(cb)
endif
retur NIL
Rolando
Code: Select all
cb :={|| oDlg:End() }
Mifunción( a, b, cb )
if <condicion>
eval(cb)
endif
retur NIL
Code: Select all
cVar := "terMINA"
"SELECT * FROM cuenta WHERE UCASE(descripcio) like '%" + UPPER(cVar) + "%' ORDER BY codigo; "