SoloCodigo

****Este codigo cuando manda llamar al reporte no hace todas las restriciones ***
*** ustedes cren que sea***

PUBLIC Filtro, cPeriodo

Filtro = ''
cPeriodo = ''
STORE .F. to FilFef, FilFeD,FilFeP
select gyma_a01
SET ORDER TO NOCXP

STORE SPACE(1) TO FiltroF, FiltroD, FiltroP

IF !EMPTY(Thisform.Text2.Value) .and. !EMPTY(Thisform.Text3.Value)
   FiltroF = "BETWEEN(gyma_a01.nocar, allt(Thisform.Text2.Value), allt(Thisform.Text3.Value))"
   FilFeF = .T.
ENDIF

IF !EMPTY(Thisform.Text4.Value) .and. !EMPTY(Thisform.Text8.Value)
   FiltroD = "BETWEEN(gyma_a01.fecha, Thisform.Text4.Value, Thisform.Text8.Value)"
   FilFeD = .T.
   cPeriodo = "Del: " + DTOC(Thisform.Text4.Value) + " al: " + DTOC(Thisform.Text8.Value)
ENDIF


IF !EMPTY(Thisform.Text1.Value) .and. !EMPTY(Thisform.Text5.Value)
   FiltroP = "BETWEEN(gyma_a01.Nocxp, allt(Thisform.Text1.Value),allt(Thisform.Text5.Value))"
   FilFeP= .T.
ENDIF

IF FilFeF
   Filtro = ALLTRIM(FILTROF)
ENDIF

IF FilFeD AND !EMPTY(Filtro)
    Filtro = Filtro + " .and. " + ALLTRIM(FILTROD)
ELSE
   Filtro = ALLTRIM(FiltroD)
ENDIF

IF FilFeP AND !EMPTY(Filtro)      
   Filtro = Filtro  + " .and. " + ALLTRIM(FILTROP)
ELSE
   Filtro = ALLTRIM(FiltroD)
Endif            
      
SET FILTER TO &FILTRO   

GO top

do case
   case thisform.optiongroup1.value=1
      report form f:\gimnasio\informes\gyminfabo preview
   case thisform.optiongroup1.value=2
      report form f:\gimnasio\informes\gyminfabo to print prompt noconsole
   case thisform.optiongroup1.value=3   
      delete file c:\Abonos.xls
      copy to c:\Abonos.xls TYPE XL5
      =Messagebox('Archivo c:\Abonos.xls Creado',48,'Información')      
endcase
thisformset.limpia()