LOCAL palabra_buscame as String
palabra_buscame = ALLTRIM(This.Value)
IF !EMPTY(palabra_buscame)
*// procede con la busqueda
Thisformset.conecta()
Thisform.grilla1.RecordSource = ""
*// tipo de busqueda
DO CASE
CASE thisform.cmb1.ListIndex = 1 && comience
cadenaSql = "Select *" + ;
"from arti " + ;
"Where descrip like '&palabra_buscame%'"
CASE thisform.cmb1.ListIndex = 2 && termine
cadenaSql = "Select *" + ;
"from arti " + ;
"Where descrip like '%&palabra_buscame'"
CASE thisform.cmb1.ListIndex = 3 && lleve
cadenaSql = "Select *" + ;
"from arti " + ;
"Where descrip like '%&palabra_buscame%'"
ENDCASE
*// ejecuta la consulta en mysql
SQLEXEC(Con, cadenaSql ,"r")
*// actualiza los nulos
UPDATE r SET r.p_publico = 0 WHERE ISNULL(r.p_publico ) = .T.
UPDATE r SET r.descu = 0 WHERE ISNULL(r.descu ) = .T.
UPDATE r SET r.iva = 0 WHERE ISNULL(r.iva ) = .T.
UPDATE r SET r.existencia = 0 WHERE ISNULL(r.existencia) = .T.
*// se desconecta de mysql
Thisformset.desconecta()
*// llena la grilla con la informacion
SELECT descrip, laborato, p_publico, descu, iva, tip_desc,;
ROUND(((1 +(iva / 100)) * (1 - (descu/100)) * p_publico),2) as neto, ;
existencia, ubicacion, cod_barra ;
FROM r INTO CURSOR Resultado_Consulta READWRITE ;
ORDER BY descrip
Thisform.grilla1.RecordSource = "Resultado_Consulta"
Thisform.grilla1.Refresh()
*// pone el numero de encontrados
SELECT r
Thisform.Txtencontrados.Value = RECCOUNT()
ENDIF