Problema con Set Relation

[fergonm]

Tengo dos tablas relacionadas mediante SET RELATION

USE Polizas NEW
SET INDEX TO I1Poliza
USE Facturas NEW
Set index to I2Factur
USE Siniestr NEW
INDEX ON Siniestr->NumControl TO I1Sini DESCENDING
SET INDEX TO I1Sini
GO TOP
SET RELATION TO NumPoliza INTO Polizas, NumControl INTO Facturas

y realizo un LISTBOX así

@ 1, 1 LISTBOX oLbx FIELDS aHBitmaps[ MAX(1,Recal(Siniestr->FechaNoti ))],;
Siniestr->NumControl,;
Siniestr->NumSini,;
Siniestr->NumPoliza,;
Siniestr->FechaSini,;
Polizas->Nombre,;
Polizas->Domicilio,;
Facturas->NumFactura;
HEADERS "E","Referencia", "Nº Siniestro" , "Nº Póliza" ,"Fecha Siniestro","Asegurado","Domicilio","Factura";
FIELDSIZES 16,65, 100, 100,100,240,180,65 ;
SIZE 450, 137 OF oDlg


Desedaría saber si es posible que la lista sólo me presente los datos si Facturas->NumFactura no existe, es decir no está facturado el siniestro. La tabla Facturas es una de las "hijas".

Un saludo. Fernando

[jicorral]

O he entendido mal o:

Code: Select all  Expand view

(Siniestr)->(DBSetFilter( {|| Empty(NumControl) }, "Empty(NumControl)" ) )
@ 1, 1 LISTBOX oLbx FIELDS aHBitmaps[ MAX(1,Recal(Siniestr->Fec........


[fergonm]

Buenas tardes José Luis.

No funciona. Se trata de filtrar la relación de las tres tablas de manera que sólo presente los datos de los siniestro activos, es decir, no facturados. Por lo tanto debería ser por !Empty(Facturas->NumFactura). No se hacerlo.

Un saludo y gracias.

[Pedro]

Fernando
Has probado a crear el indice con la clausula FOR (numFactu = 0, o numFacti = Space(lo que sea) )?
Sólo quedaría de esa tabla los registros sin factura y al ser tabla "hija" presentaría los registros que tu quieres.
Lo contrario es sacar todos los datos que hay en la tabla relacionada segun el estado de la relación, en tu caso, en la tabla facturas serán todos aquellos registros de numcontrol de la tabla siniestro, pero si con la condicion FOR del índice le quitas los que estan facturados esos no aparecen.

Espero te sirva
Un saludo
Pedro

[fergonm]

Muchas gracias.

Funcionó perfectamente. Mira que era simple y no encontraba la solución. ¿Será la edad?, ¿Será el Frío?.

Quien sabe.
Saludos desde Zaragoza. Fernando

[fergonm]

Buenos días .

Ahora Estoy Intentando Que La Aplicación Funciones en la red . Las tablas estan relacionadas MEDIANTE SET RELATION sí y presentación en las Naciones Unidas BUSCAR .

¿ Debo Bloquear Las Tablas "antes" de presentar El BUSCAR ? ¿ Caso de USAR la Cláusula EDITABLES sí Deben Bloquear Las Tablas ?

Muchas gracias DESDE Zaragoza. FERNANDO