Manual De Fox Pro Inicial

1.- Funciones de búsqueda y remplazo.
NOTA IMPORTANTE: Este manual de autoaprendizaje fue probado en Tablas de FOXPRO 9.0 aplicado para tablas del programa AdminPAQ.
Replace ColumnaB with ColumnaA | Remplaza el dato seleccionado de ColumnaA en la ColumnaB |
Replace ColumnaB with ColumnaA for recno()>1 | Remplaza todos los datos de la ColumnaA, con los de la ColumnaB en la misma tabla. |Replace Crfc with “XAXX010101000” for recno()>1 | Remplaza toda la columna Crfc con el texto XAXX010101000 |
REPLACE Crazonso01 with STRTRAN(Crazonso01, "¥", "Ñ") for recno()>1 | Busca en todas las cadenas de la columna Crazonso01 el carácter ¥ y lo remplaza por Ñ. |
SELECT * FROM mgw10008.dbf WHERE mgw10008.ciddocum01 ; IN (“50”) | Busca TA003 en la columna ccodigop01 de la tablamgw10005 |
UPDATE MGW10008 SET CFECHAEX01 = (SELECT CFECHA FROM MGW10008 WHERE CIDDOCUM01 = 5) | Copia en toda la columna CFechaEx01 el valor que se encuentra en la columna Cfecha en el renglón que corresponde a Ciddocum01 igual a 5. |
REPLACE Ctextoex02 with Alltrim(Ctextoex02) for recno()>1 | Quita los espacios en blanco del principio y fin de los datos en toda la columna Ctextoex02 |Replace Cimporte04 with Val(Ctextoex03) for recno()>1 | Copia lo que existe en la columna Ctextoex03 en la columna Cimporte04 convierto el texto en numero. |
| |

2.- Ciclos. Aplicaciones y Ejemplos
Local i as integer 

For i=1 to 10
(ACCION)
Endfor 

2.-
Do While x > 1
(ACCION)
EndDo

Do Case 
Case X = 1 
(ACCION1)
Case X = 2 
(ACCION2)Otherwise 
(OTRA ACCION)
EndCase

Sentencia CASE

DO CASE
CASE lExpression1
[Commands]
CASE lExpression2
[Commands]]
...
CASE lExpressionN
[Commands]]
OTHERWISE
[Commands]]
ENDCASE

PROGRAMA 1. Este cambia las datos de CPESO a Ctextoex03 y Cnumeroc01 a Ctextoex03 dejando limpias las anteriores

Replace Ctextoex03 with ALLtrim(Peso) forrecno()>1
Replace Ctextoex02 with Alltrim(CNUMEROC01) for recno()>1
UPDATE MGW10008 SET CPeso = (SELECT Cnumeroc01 FROM MGW10008 WHERE CIDDOCUM01 = 1)
UPDATE MGW10008 SET Cnumeroc01 = (SELECT CPeso FROM MGW10008 WHERE CIDDOCUM01 = 1)
UPDATE MGW10008 SET Cimporte02 = (SELECT Cimporte03 FROM MGW10008 WHERE CIDDOCUM01 = 1)
UPDATE MGW10008 SET Cimporte03 = (SELECT Cimporte02 FROM MGW10008WHERE CIDDOCUM01 = 1)
UPDATE MGW10008 SET Cmensaje01 = (SELECT Cmensaje01 FROM MGW10008 WHERE CIDDOCUM01 = 1)

Replace Cmensaje01 with Ctextoex03 for recno()>1
Replace Ctextoex03 with Ctextoex02 for recno()>1
Replace Ctextoex02 with Cmensaje01 for recno()>1

PROGRAMA 2. Este programa limpia los abonos calculados por el programa ControlFact.exe para que los vuelva a calcular.

SCANIF Ciddocum02 = 1
REPLACE Creferen01 WITH “”
IF Ciddocum02 = 2
REPLACE Creferen01 WITH “”
IF Ciddocum02 = 3
REPLACE Creferen01 WITH “”
IF Ciddocum02 = 4
REPLACE Creferen01 WITH “”
ENDSCAN

2.- Programas
Ejemplo 1.
CLOSE TABLE ALL
USE mgw10008
REPLACE Crazonso01 with STRTRAN(Crazonso01, "¥", "Ñ") for recno()>1
SCAN
IF Cidclien01 = 9644
REPLACECidclien01 WITH 9641
ENDIF
IF Cidclien01 = 9641
REPLACE Cidclien01 WITH 9641
ENDIF
IF Cidclien01 = 9597
REPLACE Cidclien01 WITH 9641
ENDIF
IF Cidclien01 = 9632
REPLACE Cidclien01 WITH 9641
ENDIF
IF Cidclien01 = 9589
REPLACE Cidclien01 WITH 9641
ENDIF
ENDSCAN
Ejemplo 2.
CLOSE TABLE ALL
USE mgw10008
REPLACE Crazonso01 with STRTRAN(Crazonso01, "¥", "Ñ") forrecno()>1
SCAN
IF Cidclien01 = 9644
REPLACE Cidclien01 WITH 9647
REPLACE CTEXTOEX03 WITH Crazonso01
ENDIF
IF Cidclien01 = 9641
REPLACE Cidclien01 WITH 9647
REPLACE CTEXTOEX03 WITH Crazonso01
ENDIF
IF Cidclien01 = 9597
REPLACE Cidclien01 WITH 9647
REPLACE CTEXTOEX03 WITH Crazonso01
ENDIF
IF Cidclien01 = 9632
REPLACE Cidclien01 WITH 9647
REPLACE CTEXTOEX03 WITH...