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.
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

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta

¿Cómo ajustar con VBA un rango de impresión a partir de un rango dinámico?

Recurro a su amplia experiencia para resolver un inconveniente: He creado una plantilla para hacer una consulta de ordenes de pedido por medio del RFC del cliente, la plantilla esta dividida en tres rangos: Primer rango B1:I22 se ubican los datos...
1 respuesta

How do you perform Change Data Capture when replicating Salesforce data?

A challenge that comes with using these cloud-based CRMs is in integrating them with the internal data systems and reporting modules that rely upon getting up to date data from the CRM.
5 respuestas

Macro eliminar filas con valor

Tengo esta macro que me elimina las filas cuando el valor es #N/D, pero me ha dejado de funcionar cuando el valor es #CALC! Me podéis echar una mano. Muchas gracias. Sub Borrar_Filas() Dim ultifila As Integer 'guardo la última fila utilizada en la...
2 respuestas

¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?

Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente...
1 respuesta

Conversión de números a letras en LPP

Necesito desarrollar un algoritmo con la función MIENTRAS que permita la entrada de un numero de un dígito y escriba su valor en letras, el algoritmo se debe repetir hasta que se ingrese una letra. Ejemplo: si el usuario digita el número 4, el...
3 respuestas

Macro para copiar valor de texbox a hoja2

Necesito un poco de ayuda con una macro estoy aprendiendo mi duda es la siguiente tengo una hoja llamada Principal utilizo un botón de comando para llamar a userform1 el cual tiene varios texbox numerados 1,2,3,4,5,6,7,8,9,10,11 aquí utilizo solo...
1 respuesta

Poner contraseña en visual basic thisworkbook

Tengo una función en ThisWorkbook que elimina el libro al llegar a una fecha de caducidad, ahora requiero colocar una contraseña para protección, la cual, al colocar una contraseña errónea, ejecute el borrado de la hoja
2 respuestas

Macro exportar excel a sentencia SQL

Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Te adjunto lo que necesitaría en una imagen. (En este caso son dos filas pero podrían ser más). Se que traspasa lo que es una duda, pero es que los conocimientos en...
2 respuestas