>>With Thisform >> .nOperator = NOTETM.OPERATOR >> .cRoute = NOTETM.ROUTE >> .dStartDate = NOTETM.START_DATE >> .dEndDate = NOTETM.END_DATE >> .pgfMainPageFrame.Page2.Refresh() >> .lContracts = .F. && Posit >>* For Now> lcFilter = "OPERATOR = " + ALLTRIM( STR( .nOperator)) + " and " + ; >>* For Now> "END_DATE >= CTOD('" + DTOC( .dStartDate) + "')" + ; >>* For Now> " or EMPTY( END_DATE)" >> lnOperator = .nOperator >> ldDate = .dStartDate >> lcFilter = "OPERATOR = " + ALLTRIM( STR( lnOperator)) + " and " + ; >> "END_DATE >= ('" + DTOC( ldDate) + "') or EMPTY( END_DATE)" >> Select RTEFAM >> Set Filter To &lcFilter >> ... >>>
[EndDate>= {^]+Transform(Dtos(ldDate), "@R 9999-99-99" )+ [}]