![sin imagen de perfil sin imagen de perfil](/img/anonymouse.png)
reportes utilizando 2 tablas
Publicado por Jhean Carlos (128 intervenciones) el 28/12/2007 20:45:34
quetal!!!!
tengo problemas al querer mostrar un reporte que tengo con dos tablas pero no me resulta.
En la primera tabla solo se tiene que buscar un codigo que no se repite
En la Segunta tabla tengo varios codigos que se repiten.
********************************************ç
el problema es cuando filtro las dos tablas, el que tiene solo un codigo se me repite varias veces, y la segunda tabla sefiltrar los datos correctamente.
********************************************
alguien me puede corregir si mi codigo esta mal?? aqui les muestro un poco de lo que tengo, o quizas tengo que modificar el reporte??.
Porfis haber quien me puede ayudar!!
*************************************************************************
SELECT polizas
SET EXACT ON
LOCATE FOR ALLTRIM(polizas.poliza)=thisform.texto1.Value
IF FOUND()then
MESSAGEBOX("Se encontro datos de la Póliza")
Set filter TO upper(polizas.poliza) = upper(ALLTRIM(Thisform.texto1.value))
******************************************
SELECT anexos
Set filter TO upper(anexos.poli_mad) = UPPER(ALLTRIM(Thisform.texto1.value))
REPORT FORM c:seguros eportinf_anexos2.frx preview
Set filter to
CLOSE DATABASES
ELSE
MESSAGEBOX("No existe esa Póliza")
ENDIF
tengo problemas al querer mostrar un reporte que tengo con dos tablas pero no me resulta.
En la primera tabla solo se tiene que buscar un codigo que no se repite
En la Segunta tabla tengo varios codigos que se repiten.
********************************************ç
el problema es cuando filtro las dos tablas, el que tiene solo un codigo se me repite varias veces, y la segunda tabla sefiltrar los datos correctamente.
********************************************
alguien me puede corregir si mi codigo esta mal?? aqui les muestro un poco de lo que tengo, o quizas tengo que modificar el reporte??.
Porfis haber quien me puede ayudar!!
*************************************************************************
SELECT polizas
SET EXACT ON
LOCATE FOR ALLTRIM(polizas.poliza)=thisform.texto1.Value
IF FOUND()then
MESSAGEBOX("Se encontro datos de la Póliza")
Set filter TO upper(polizas.poliza) = upper(ALLTRIM(Thisform.texto1.value))
******************************************
SELECT anexos
Set filter TO upper(anexos.poli_mad) = UPPER(ALLTRIM(Thisform.texto1.value))
REPORT FORM c:seguros eportinf_anexos2.frx preview
Set filter to
CLOSE DATABASES
ELSE
MESSAGEBOX("No existe esa Póliza")
ENDIF
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0