Parche para programa

Necesito hacer un programa parche en dataflex que haga lo siguiente:
tengo una tabla "A" (numero_A,campo1,campo2,campo3) y la tabla "B"(numero_B,campo1,campo2,campo3)
, tengo que actualizar la tabla "A" con el numero_B, esto se puede por que los campos(1,2,3) son iguales en ambas tablas.
El algoritmo es fácil, pero como lo llevo a programación dataflex.

1 Respuesta

Respuesta
1
//
open TABLA_A
open TABLA_B
ClearScreen
Send actualiza_tabla_a
Abort
procedure actualiza_tabla_a
clear TABLA_A
find ge TABLA_A by index.1
While [ found ]
Send lee_tabla_b
find gt TABLA_A by index.1
Loop
end_procedure
procedure lee_tabla_B
clear TABLA_B
find ge TABLA_B by index.1
While [ found ]
if ((TABLA_A.campo1 eq TABLAS_B.campo1) and;
(TABLA_A.campo2 eq TABLAS_B.campo2) and;
(TABLA_A.campo3 eq TABLAS_B.campo3))BEGIN
ReRead TABLA_A
move TABLA_B.numero_b to TABLA_A.numero_a
SaveRecord TABLA_A
UnLock
END
find gt TABLA_B by index.1
Loop
end_procedure

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas