>=========================================================================== >mdate1 = STRTRAN(DTOC(ThisForm.Cem_date_ctrl1.Text_Date.value),"/","-") >mdate2 = STRTRAN(DTOC(ThisForm.Cem_date_ctrl2.Text_Date.value),"/","-") > >USE Heat_Support!uansuporttop10 IN 0 ALIAS UANSuportTop25 >SELECT UANSuportTop25 >REQUERY("UANSuportTop25") >GO top >REPLACE ALL STARTDATE WITH mDATE1 >REPLACE ALL ENDDATE WITH MDATE2 >GO TOP > >COPY TO UANSupportTop10 NEXT 10 >GO top >I =1 >DO WHILE NOT EOF() >SCATTER memvar >USE Heat_support!UANSupportCallType IN 0 ALIAS UANSuportCallType >SELECT UANSuportCallType >NewName = "UANSupportCallType"+alltrim(STR(I)) >COPY TO (NEWNAME) >I = I + 1 >use >SELECT UANSuportTop10 >SKIP >IF i = 11 >EXIT >ENDIF > >ENDDO > >mdate1 = THISFORM.Cem_date_ctrl1.Text_Date.VALUE >mdate2 = THISFORM.Cem_date_ctrl2.Text_Date.VALUE > >SET DATE TO AMERICAN >USE heat_support!gregorio ALIAS callog_support_report >SELECT callog_support_report >REPORT FORM (mreport_name) PREVIEW >SET DATE TO YMD > >USE >CLOSE DATABASES ALL > >OPEN DATABASE heat_support > >============================================================