Foxpro
Podrían facilitarme algunas rutinas de inserción, modificación, eliminación par foxpro o una página donde pueda encontrar manuales y código de ejemplo
1 Respuesta
Respuesta de ebeltranoroz
1
PROC INSERTA_FILA( cTabla )
nArea = SELECT()
SELE &cTabla
nReg = RECNO()
APPEND BLANK
SCATTER TO ___mMatriz___
GO BOTTOM
SKIP -1
DO WHILE !BOF() .AND. nReg <= RECNO()
nPosReg = RECNO()
Scatter to memvar
SKIP
Gather from memvar
SKIP -2
Enddo
GO nReg
GATHER FROM ___mMatriz___
SELECT( nArea )
RETURN
********
PROC ELIMINA_FILA( cTabla )
nArea = SELECT()
SELE &cTabla
nReg = Recno()
DO WHILE !EOF()
nPosReg = RECNO()
SKIP
Scatter to memvar
GO nPosReg
Gather from memvar
SKIP
Enddo
if nReg < reccount()
GO nReg
Endif
SELECT( nArea )
RETURN
nArea = SELECT()
SELE &cTabla
nReg = RECNO()
APPEND BLANK
SCATTER TO ___mMatriz___
GO BOTTOM
SKIP -1
DO WHILE !BOF() .AND. nReg <= RECNO()
nPosReg = RECNO()
Scatter to memvar
SKIP
Gather from memvar
SKIP -2
Enddo
GO nReg
GATHER FROM ___mMatriz___
SELECT( nArea )
RETURN
********
PROC ELIMINA_FILA( cTabla )
nArea = SELECT()
SELE &cTabla
nReg = Recno()
DO WHILE !EOF()
nPosReg = RECNO()
SKIP
Scatter to memvar
GO nPosReg
Gather from memvar
SKIP
Enddo
if nReg < reccount()
GO nReg
Endif
SELECT( nArea )
RETURN
