MySQL Nativa - At. Sr. Rao

[Marcelo Roggeri]

Hola buenos dias foro, tengo este query y necesito en modo ejecucion cambiar el where,

Code: Select all  Expand view  RUN

TEXT INTO cSql
               SELECT
                   vi.cpte_fecha,
                   vi.cpte_nombre,
                   vi.cpte_letra,
                   vi.cpte_ptovta,
                   vi.cpte_numero,
                   pro.descripcion,
                   vi.cantidad,
                   cli.nombre_fiscal,
                   ven.nombre AS nombreVendedor,
                   CASE
                       WHEN vi.cpte_nombre = 'FACTURA' OR vi.cpte_nombre = 'Movimiento' THEN importe_item_neto
                       WHEN vi.cpte_nombre = 'NOTA DE CREDITO' OR vi.cpte_nombre = 'Crédito' THEN -importe_item_neto
                       ELSE 0
                   END AS neto,
               ven.id_vendedor,
               ven.nombre
               FROM
                   ventas_item vi
               LEFT JOIN productos  pro ON pro.id_producto=vi.id_articulo
               LEFT JOIN clientes   cli ON cli.id_cliente = vi.id_cliente
               LEFT JOIN vendedores ven ON ven.id_vendedor = vi.id_vendedor
               WHERE vi.cpte_fecha BETWEEN ? AND ?
               ORDER BY
                   vi.cpte_fecha;
          ENDTEXT

          ::oQryDia:Requery({ ::dFecDes, ::dFecHas })

En Dolphin existe un metodo setWhere pero en la nativa haciendolo asi, no se como modificar el where dentro del TEXT INTO

[CARLOS ATUNCAR]

Saludos a mi me funciona asi

Code: Select all  Expand view  RUN

cState := "NY"
nMinAge := 41
nMaxAge := 50
oRs := oCn:RowSet( "select * from `customer` where `state` = ? and 'age' between ? and ?", { cState, nMinAge, nMaxAge } )
 
cState  := "WA"
nMinAge := 51
nMaxAge := 60
oRs:Requery( { cState, nMinAge, nMaxAge } )

[Marcelo Roggeri]

Hola Carlos si yo tambien lo uso asi, pero al habilitar varios filtros que pueden variar de acuerdo a lo que necesite el usuario filtrar lo que esta a la derecha del WHERE varia y es eso lo que debo cambiar es por eso que directamente mostre el REQUERY().
Bueno espero haberme explicado
Gracias

[leandro]

Creo que es lo que necesitas, pero solo funciona con variables private

Code: Select all  Expand view  RUN

Function creamosTigger(oCn)
Local cQry

PRIVATE cTblFct :=  "facturas"
PRIVATE cTblBsc :=  "pesos"

TEXT INTO cQry
    CREATE TRIGGER borracaptura AFTER DELETE ON &cTblFct
        FOR EACH ROW
        BEGIN
          UPDATE &cTblBsc SET estado_pedido=1 WHERE documento=OLD.docume AND consecutivo=OLD.consec;
    END;
ENDTEXT
TRY
  oCn:Execute(cQry)
CATCH oError
  FW_ShowAdoError(oCn)
END
Return nil
 

Con esto puedes cambiar el contenido de las variables dentro del TEXT INTO

[Marcelo Roggeri]

Perfecto eso seria, no sabia que era con variables privadas, gracias Leandro después pruebo y aviso.
Saludos

[nageswaragunupudi]

Instead of SetWhere we can do like this:

Code: Select all  Expand view  RUN

function ChangeWhere()

   local oCn, cSql, oRs

   oCn   := MsgRun( "Connecting", "MYSQL", ;
            { || maria_Connect( "209.250.245.152,fwh,fwhuser,FiveTech@2022", .t. ) } )

   oCn:lShowErrors := .t.

   cSql  := "SELECT FIRST,STATE,AGE FROM customer ?"
   oRs   := oCn:RowSet( cSql, { "WHERE STATE = 'NY'" } )
   XBROWSER oRs
   oRs:Requery( { "WHERE AGE > 60" } )
   XBROWSER oRs
   oRs:Close()

  oCn:Close()

return nil

 

[CARLOS ATUNCAR]

Instead of SetWhere we can do like this:

Code: Select all  Expand view  RUN

function ChangeWhere()

   local oCn, cSql, oRs

   oCn   := MsgRun( "Connecting", "MYSQL", ;
            { || maria_Connect( "209.250.245.152,fwh,fwhuser,FiveTech@2022", .t. ) } )

   oCn:lShowErrors := .t.

   cSql  := "SELECT FIRST,STATE,AGE FROM customer ?"
   oRs   := oCn:RowSet( cSql, { "WHERE STATE = 'NY'" } )
   XBROWSER oRs
   oRs:Requery( { "WHERE AGE > 60" } )
   XBROWSER oRs
   oRs:Close()

  oCn:Close()

return nil

 

esta solución de que version esta disponible ?

[nageswaragunupudi]

It was there for very long time.
What is your version?
Did you try on your version?