RE: report form...for...

22/10/2004 - 02:20 por Alexander Ariel Kwaszka | Informe spam
Es practicamente impposible que te suceda lo que decis.
Por las dudas no tenes alguna variable en el informe que te filtre???
Copia el siguiente coddigo en un formulario y estudialo, te daras cuenta
utilizo lo mismo para pantallas como impresora.
*********************************************************
PUBLIC P1,P2,P3,P4
P1=""
P2=0
P3=""
P4=.F.
P1=ALLTRIM(MEDICO.AYN)
P2=ALLTRIM(MEDICO.MATRICULA)
P3=ALLTRIM(MEDICO.ESPECIALID)
P4=MEDICO.EXISTENTE
if ThisForm.Container2.Optiongroup1.Option1.value=0
IF THISFORM.CONtainer2.OPtiongroup2.Option1.Value=1
REPORT FORM INFORMES/pacientesatendidos;
FOR ((COMPROVANTE.ATENDIDO<>.T.) AND (comprovante.fechaÚTE()))AND
comprovante.cod_medico=ThisForm.txtCod_medico.value ;
TO PRINTER NOCONSOLE
ELSE
REPORT FORM INFORMES/pacientesatendidos;
FOR (comprovante.fecha=ThisForm.txtFechactual.Value AND
comprovante.cod_medico=ThisForm.txtCod_medico.value) AND
COMPROVANTE.ATENDIDO<>.T. ;&&prev&&&((COMPROVANTE.ATENDIDO<>.T.) AND
((comprovante.fecha=thisform.container2.text1.Value)and(comprovante.fecha=thisform.container2.text2.Value)))AND
comprovante.cod_medico=ThisForm.txtCod_medico.value prev
TO PRINTER NOCONSOLE
ENDIF
** =MESSAGEBOX('Versión Demostracion no imprimira por impresora EXEPTO
HISTORIA CLINICA',"Solaris")
else
IF THISFORM.CONtainer2.OPtiongroup2.Option1.Value=1
TR=ThisForm.txtCod_medico.value
SET DELETED on
thisform.visible = .f.
REPORT FORM INFORMES/pacientesatendidos;
FOR ((COMPROVANTE.ATENDIDO<>.T.) AND (comprovante.fechaÚTE()))AND
comprovante.cod_medico=ThisForm.txtCod_medico.value prev
thisform.visible = .t.
ELSE
TR=ThisForm.txtCod_medico.value
SET DELETED on
thisform.visible = .f.
REPORT FORM INFORMES/pacientesatendidos;
FOR (comprovante.fecha=ThisForm.txtFechactual.Value AND
comprovante.cod_medico=ThisForm.txtCod_medico.value) AND
COMPROVANTE.ATENDIDO<>.T. prev&&&((COMPROVANTE.ATENDIDO<>.T.) AND
((comprovante.fecha=thisform.container2.text1.Value)and(comprovante.fecha=thisform.container2.text2.Value)))AND
comprovante.cod_medico=ThisForm.txtCod_medico.value prev
thisform.visible = .t.
SELECT comprovante
ENDIF
ENDIF
thisform.combo1.Refresh
thisform.Refresh

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Preguntas similare

Leer las respuestas

#1 Jorge Luis Vejerano
22/10/2004 - 15:53 | Informe spam
Pues si...En efecto es la misma situación. Sólo que mi condición es
mucho más sencilla, lo único que quiero es que el campo "no_reclamo" se
a igual a un valor.

El informe sólo muestra una página. Pero cuando le das en el ícono de
imprimir salen todos los registros de mi tabla. Muy raro.

Alexander Ariel Kwaszka wrote:

Es practicamente impposible que te suceda lo que decis.
Por las dudas no tenes alguna variable en el informe que te filtre???
Copia el siguiente coddigo en un formulario y estudialo, te daras cuenta
utilizo lo mismo para pantallas como impresora.
*********************************************************
PUBLIC P1,P2,P3,P4
P1=""
P2=0
P3=""
P4=.F.
P1=ALLTRIM(MEDICO.AYN)
P2=ALLTRIM(MEDICO.MATRICULA)
P3=ALLTRIM(MEDICO.ESPECIALID)
P4=MEDICO.EXISTENTE
if ThisForm.Container2.Optiongroup1.Option1.value=0
IF THISFORM.CONtainer2.OPtiongroup2.Option1.Value=1
REPORT FORM INFORMES/pacientesatendidos;
FOR ((COMPROVANTE.ATENDIDO<>.T.) AND (comprovante.fechaÚTE()))AND
comprovante.cod_medico=ThisForm.txtCod_medico.value ;
TO PRINTER NOCONSOLE
ELSE
REPORT FORM INFORMES/pacientesatendidos;
FOR (comprovante.fecha=ThisForm.txtFechactual.Value AND
comprovante.cod_medico=ThisForm.txtCod_medico.value) AND
COMPROVANTE.ATENDIDO<>.T. ;&&prev&&&((COMPROVANTE.ATENDIDO<>.T.) AND
((comprovante.fecha=thisform.container2.text1.Value)and(comprovante.fecha=thisform.container2.text2.Value)))AND
comprovante.cod_medico=ThisForm.txtCod_medico.value prev
TO PRINTER NOCONSOLE
ENDIF
** =MESSAGEBOX('Versión Demostracion no imprimira por impresora EXEPTO
HISTORIA CLINICA',"Solaris")
else
IF THISFORM.CONtainer2.OPtiongroup2.Option1.Value=1
TR=ThisForm.txtCod_medico.value
SET DELETED on
thisform.visible = .f.
REPORT FORM INFORMES/pacientesatendidos;
FOR ((COMPROVANTE.ATENDIDO<>.T.) AND (comprovante.fechaÚTE()))AND
comprovante.cod_medico=ThisForm.txtCod_medico.value prev
thisform.visible = .t.
ELSE
TR=ThisForm.txtCod_medico.value
SET DELETED on
thisform.visible = .f.
REPORT FORM INFORMES/pacientesatendidos;
FOR (comprovante.fecha=ThisForm.txtFechactual.Value AND
comprovante.cod_medico=ThisForm.txtCod_medico.value) AND
COMPROVANTE.ATENDIDO<>.T. prev&&&((COMPROVANTE.ATENDIDO<>.T.) AND
((comprovante.fecha=thisform.container2.text1.Value)and(comprovante.fecha=thisform.container2.text2.Value)))AND
comprovante.cod_medico=ThisForm.txtCod_medico.value prev
thisform.visible = .t.
SELECT comprovante
ENDIF
ENDIF
thisform.combo1.Refresh
thisform.Refresh


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida