Comparar registros de dos tablas iguales

Tengo dos tablas iguales clientes y dos tablas iguales de reparto en las primeras existen los  campos cedula ,codigo  y otros tantos menos relevantes y en las segundas existe el campo codigo, necesito unirlas 4 tablas en una sola de la siguiente manera
select clienterep1.codigo AS codigo1, clienterep1.papell as papell1, clienterep1.sapell as sapell1, clienterep1.nombre as nombre1, clienterep1.ndocumto as documento1, clienterep1.clase as clase1, clienterep1.direpar as dire1, clienterep1.zonarp as zona1,clienterep2.codigo AS codigo2,clienterep2.papell as papell2, clienterep2.sapell as sapell2, clienterep2.nombre as nombre2, clienterep2.ndocumto as documento2, clienterep2.clase as clase2, clienterep2.direpar as dire2, clienterep2.zonarp as zona2,reparto1.fecha as fecha1, reparto1.cantidad as cantidad1, reparto2.fecha as fecha2, reparto2.cantidad as cantidad2 from clienterep1, clienterep2,reparto1,reparto2 WHERE clienterep1.ndocumto = clienterep2.ndocumto and clienterep1.clase = clienterep2.clase and reparto1.fecha = thisform.text1.value and reparto2.fecha = thisform.text1.value and clienterep1.clase = thisform.COMBO1.value and reparto1.codigo = clienterep1.codigo and reparto2.codigo = clienterep2.codigo INTO CURSOR temp
esto me toma los resgistro que tengan cedula igual en las tablas clienterep peo que hago con los registros que solo se encuentran en una de las tablas???
Como hago para buscarlos registros que falten e incluirlos en esta nueva tabla

1 respuesta

Respuesta
1
Más líneas, menos código...
Intenta algo similar a:
Select clienterep1
Go Top
Do While !Eof()
   Select temp
   Seek codigo
   If Eof()
      Append Blank
      Replace temp.codigo With clienterep1.codigo
   EndIf
   Replace temp.papell1 With clienterep1.papell, temp.sapell1 With clienterep1.sapell, ;
      nombre1 With clienterep1.nombre, documento1 With clienterep1.ndocumto, ;
      clase1 With clienterep1.clase, dire1 With clienterep1.direpar, ;
      zona1 With clienterep1.zonarp
      Select clienterep1
   Skip
EndDo
Select clienterep2
Go Top
Do While !Eof()
   Select temp
   Seek codigo
   If Eof()
      Append Blank
      Replace temp.codigo With clienterep2.codigo
   EndIf
   Replace temp.papell2 With clienterep2.papell, temp.sapell2 With clienterep2.sapell, ;
      nombre2 With clienterep2.nombre, documento2 With clienterep2.ndocumto, ;
      clase2 With clienterep2.clase, dire2 With clienterep2.direpar, ;
      zona2 With clienterep2.zonarp
   Select clienterep2
   Skip
EndDo
Select reparto1
Go Top
Do While !Eof()
   Select temp
   Seek codigo
   If Eof()
      Append Blank
      Replace temp.codigo With reparto1.codigo
   EndIf
   Replace temp.fecha1 With reparto1.fecha, cantidad1 With reparto1.cantidad
   Select reparto1
   Skip
EndDo
Select reparto1
Go Top
Do While !Eof()
   Select temp
   Seek codigo
   If Eof()
      Append Blank
      Replace temp.codigo With reparto2.codigo
   EndIf
   Replace temp.fecha2 With reparto2.fecha, cantidad2 With reparto2.cantidad
   Select reparto1
   Skip
EndDo
Disculpa la demora... podrías por favor explicarme que haces allí en es efragmento de código
En la tabla temp se van guardando los datos de las tablas clienterep1, clienterep2, reparto1 y reparto2.
¿Al fnalizar este código le puedo dar un copy a una tabla para imprimir?
O puedes usar la tabla temp directamente

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Recorrer una tabla

Experto tengo una tabla donde tengo campos como numtarima, modelo, serie, fecha en la tabla se repiten los modelos pero con dif. Numero de tarima quiero hacer una función para reccorrer la tabla y que se acomulen el total de cada uno de los modelos....
1 respuesta

Comparación de dos tablas en VFP 6.0

Quisiera que me pudiera ayudar con algún ejemplo o como le puedo hacer para realizar comparaciones de todos los registros de una tabla A los registros que estén en esa comparar con la tabla B si un campo del registro no es igual al de la tabla B...
1 respuesta

Copiar registros de una tabla auxiliar a otra

Como estas. Tengo lo siguiente tengo un cursor que exactamente igual a una tabla maestra lo que hago con el cursor es traer los datos de esa tabla maestra para no trabajar directamente sobre la misma. Resulta que al cursor yo le voy agregando nuevos...
1 respuesta

Tabla dinámica

Como puedo realizar mediante código una tabla dinámica estilo excel es decir tengo una tabla que tiene los sig. Campos Canal Ficha Importe Ademas de otros datos Pero necesito generar una tabla estilo referencias cruzadas(tabla dinámica) Y no se como...
1 respuesta

Comparar dos cadenas

Tengo un form de validación que usa la tabla usuario y no puedo comparar el valor del campo usuario con el del text1. Aunque coincida el usuario no entra al if: do while !eof() if usuario = thisform.text1.value Messagebox("Entre al if") Endif Skip Enddo
1 respuesta

Validar si ya existe un registro

¿Cómo puedo validar si ya existe el registro o el dato que voy a insertar? La idea es que si ya existe que no inserte y que mande un mensaje y sino Existe que lo inserte. Es un campo principal para lo cual necesito este procedimiento (la cedula de...
1 respuesta

Cruce de bases de datos

Tengo que cruzar dos bases de datos con un campo en común para marcar los datos repetidos entre si. ¿Cómo lo hago?.
1 respuesta

Problemas con el botón guardar en visual foxpro 9.0

Tengo un problema con el botón guardar, tengo la siguiente codificación, 1ero en el Init del form SELECT agregarymodificar SET ORDER to CÓDIGO && CÓDIGO GO bott thisform.txtCodigo.value=agregarymodificar.código+1 thisform.refresh y luego en el click...
1 respuesta