Ejemplos SQL

Reportes con un filtro , apellidos TOLEDO

1.a

select tpersona.apellido, tpersona.nombres From tpersona Where tpersona.apellido like ‘TOLEDO’

2.a El filtro está como constante

Function rsqlpers

LOCAL cSql

cSql := “select tpersona.apellido, tpersona.nombres From tpersona Where tpersona.apellido like ‘TOLEDO'”

RepSQL( cSql , ‘Personas con apellido TOLEDO’ )

Return Nil

2.b Pidiendo el apellido a filtrar

Function rsqlpers

LOCAL cSql , cAliasSql , cTipo := space(30)

if PidoDato( @cTipo , ‘Apellido a filtrar’ , ‘Ingrese Apellido’ , ” )

       cSql := “select tpersona.apellido, tpersona.nombres From tpersona Where tpersona.apellido like ” + “‘” + Alltrim( cTipo ) + “‘”

      RepSQL( cSql , ‘Personas con apellido ‘ + cTipo )

endif

Return Nil

3.a  Llamo a la entidad PERSONA con un filtro constante

Function rsqlpers

LOCAL cSql , cAliasSql

cSql :=”select tpersona.idc_con from tpersona Where tpersona.apellido like ‘TOLEDO'”

cAliasSql := EjecutoSQL( cSql )

BrwPersona( , , cAliasSql , , ‘Personas con Apellido Toledo’ )

Return Nil

3.b Llamo a la entidad PERSONA Pidiendo el apellido a filtrar

Function rsqlpers

LOCAL cSql , cAliasSql , cTipo := space(30)

if PidoDato( @cTipo ,’Apellido a filtrar’ , ‘Ingrese Apellido’ , ” )

   cSql := “select idc_con from tpersona Where apellido like ” + “‘” + Alltrim( cTipo ) + “‘”

   cAliasSql := EjecutoSQL( cSql )

   BrwPersona( , , cAliasSql , , ‘Personas con Apellido ‘ + Alltrim( cTipo ) )

endif

Return Nil