FiveTech Software tech support forums

Code: Select all | Expand

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 })

Code: Select all | Expand

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 } )

Code: Select all | Expand

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
 

Code: Select all | Expand

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