Comandos en FOXPRO

*ABRIR DE MANERA EXCLUSIVA UNA TABLA

SET EXCLUSIVE ON

*OTRA FORMA DE ABRIR DE MANERA EXCLUSIVA UNA TABLA

USE D:\TABLA.DBF EXCLUSIVE

*ABRIR DE MANERA NO EXCLUSIVA UNA TABLA

SET EXCLUSIVE OFF

CALCULAR EL IVA

(CANTIDAD*PRECIO)*IVA/100+( CANTIDAD*PRECIO)

*MARCA PARA BORRAR LOS CAMPOS SELECCIONADOS

DELETE ALL

*CERRAR FILTROS

CLOSE ALL

*USAR Y BUSCAR UNA RUTA

USE ?

*MOSTRAR

BROWSE

 

*EJECUTAR CURSOR

DO D:\PRG\CURSORCONSUL.PRG

*BUSCAR Y EJECUTAR CURSOR

DO ?

*MODIFICAR CURSOR

MODIFY COMMAND  D:\PRG\CURSORCONSUL.PRG

*COPIAR UN ARCHIVO EN MI COMPUTADORA EN .DBF

COPY TO "D:\01.DBF"

*COPIAR UN ARCHIVO EN MI COMPUTADORA EN FORMATO EXCEL

COPY TO D:\\VIDAL\72" TYPE XL5

*CONTAR, AGRUPAR Y ORDENAR

SET ENGINEBEHAVIOR 80

SELECT SEXO,EDAD,COUNT(EDAD)  FROM HIJOS_72 GROUP BY SEXO,EDAD ORDER BY EDAD

*SUMAR CAMPOS

SUM(CANTIDAD)

*CALCULAR LA EDAD

YEAR(DATE())- YEAR(HI.FECHANAC) AS EDAD

*CONTAR REGISTROS

COUNT TO X

*RANGO DE HORAS 24

VAL( SUBS(HORA24,1,2))<=15

*ORDENAR FECHA

SET DATE DMY

*OTRA FORMA DE ORDENAR FECHAS

SET CENTURY ON

SET DATE BRITISH

*MOSTRAR SOLO LOS REGISTROS MARCADOS PARA BORRAR

SET DELETE OFF

*NO MOSTRAR LOS REGISTROS MARCADOS PARA BORRAR

SET DELETE ON

*REMMPLAZAR UN CAMPO (LIMPIAR CAMPOS)

REPLACE ALL CAMPO WITH “ ”

*ELIMINAR TODOS LOS REGISTROS DE LA TABLA (LA TABLA DEBE ESTAR ABIERTA DE MANERA EXCLUSIVA)

ZAP

*FECHA

? DATE()

*HORA

? TIME()

*COPIAR LA ESTRUCTURA DE UNA TABLA

COPY STRUCTURE TO D:\TABLA WITH PRODUCTION

*ORDENAR

SET ORDEN TO

*SUMAR,RESTAR,MULTIPLICAR,DIVIDIR Y SACAR EL PORCENTAJE A UNA CAJA DE TEXTO

**SUMAR

THISFORM.TEX3.VALUE=STR(VAL(THISFORM.TEX1.VALUE)+ VAL(THISFORM.TEX1.VALUE))

**RESTAR

THISFORM.TEX3.VALUE=STR(VAL(THISFORM.TEX1.VALUE)-VAL(THISFORM.TEX1.VALUE))

**MULTIPLICAR

THISFORM.TEX3.VALUE=STR(VAL(THISFORM.TEX1.VALUE) * VAL(THISFORM.TEX1.VALUE))

**DIVIDIR

THISFORM.TEX3.VALUE=STR(VAL(THISFORM.TEX1.VALUE)/ VAL(THISFORM.TEX1.VALUE))

**PORCENTAJE

THISFORM.TEX3.VALUE= STR(VAL(THISFORM.TEX1.VALUE * 0.12)

*CERRAR

CLOSE

*SALIR

QUIT

*FILTROS

**POR FECHA

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO FECHA>=CTOD ("01/12/2013")

**POR RANGO DE FECHAS

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO FECHA>=CTOD ("01/12/2013") AND FECHA<=CTOD ("31/12/2013")

**POR CAMPOS DIFERENTES  (FILTRA LOS CAMPOS DIFERENTES A ‘VIDAL’)

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO CAMPO <> “VIDAL”

**POR CAMPOS QUE ESTAN VACIOS

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO EMPTY (CAMPO)

**POR CAMPOS QUE ESTAN LLENOS

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO !EMPTY (CAMPO)

**POR CAMPOS NUMERICOS

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO CAMPO=17083

**POR CAMPOS ALFANUMERICOS

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO CAMPO='FA'

**POR BUSQUEDA ESPECIFICA

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO CAMPO=”123” AND CAMPO2=”129”

**POR RANGO DE NUMERO DE LINEAS

SET EXCLUSIVE OFF

USE D:\TABLA.DBF

SET FILTER TO RECNO ()>11 AND RECNO ()<=16