FiveTech Software tech support forums

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

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

... DbUseArea(.T.,,"Siniestr") Siniestr->(DbSetIndex("I1Sini")) DbSelectArea("Facturas") SET RELATION TO Facturas->NumControl INTO Siniestr Un saludo. Fernando

... LOCAL oDlg,oLb, oLbfg,oChild LOCAL oCbx, oGet local lPr := .f. LOCAL iLd := .f. cRefe:=Siniestr->NumControl CLOSE DATABASES SELE 1 USE Siniestr NEW SELE 2 USE Polizas NEW SELE 3 USE Contrari NEW SELE 4 USE Garant NEW SELE 5 USE CiaAseg NEW SELE ...

... 21 OF oDlg SELE 1 INDEX ON Siniestr->NumPoliza TO TEMPORAL2 FOR Siniestr->NumPoliza==cNumPoliza REDEFINE LISTBOX oLbfg FIELDS Siniestr->NumControl HEADERS "Refe" ID 24 OF oDlg */ REDEFINE BUTTON ID 25 OF oDlg ACTION (ILd:=.t., oDlg:Refresh()) REDEFINE BUTTON ID 26 OF oDlg ACTION oDlg:End() ...

... 21 OF oDlg SELE 1 INDEX ON Siniestr->NumPoliza TO TEMPORAL2 FOR Siniestr->NumPoliza==cNumPoliza REDEFINE LISTBOX oLbfg FIELDS Siniestr->NumControl HEADERS "Refe" ID 24 OF oDlg */ REDEFINE BUTTON ID 25 OF oDlg ACTION (ILd:=.t., oDlg:Refresh()) REDEFINE BUTTON ID 26 OF oDlg ACTION oDlg:End() ...