RE: report form...for...

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