21. Oktober 2008 08:57
IF GETFILTER("Filtro per Data") <> '' THEN BEGIN
Calendario.SETFILTER("Period Start",GETFILTER("Filtro per Data"));
IF NOT GestioneFormPeriodo.FindDate('+',Calendario,TipoPeriodo) THEN
GestioneFormPeriodo.FindDate('+',Calendario,TipoPeriodo::Giorno);
Calendario.SETRANGE("Period Start");
END;
GestioneFormPeriodo.FindDate(TestoRicerca,Calendario,TipoPeriodo);
SETRANGE("Filtro per Data",Calendario."Period Start",Calendario."Period End");
IF GETRANGEMIN("Filtro per Data") = GETRANGEMAX("Filtro per Data") THEN
SETRANGE("Filtro per Data",GETRANGEMIN("Filtro per Data"));
IF GETFILTER("Filtro per Data") = '' THEN
SETRANGE("Filtro per Data",01011900D,31129998D)
ELSE
SETRANGE("Filtro per Data",GETRANGEMIN("Filtro per Data"),GETRANGEMAX("Filtro per Data"));
21. Oktober 2008 18:36