... ASort( AClone( a ) ), { | n, nPos | If( nVal < n, nResult := AScan( a, n ) - 1,), n > nVal } ) en mi caso "n" voy a usarlo asi: cToD(a:cargo["fecha"]) Mi consulta: para que el codigo no quede tan largo como: AScan( ASort( AClone( a ) ), { | ...
... and in the VALID clause, I can link a function which checks if the date is correct or not. Afterwards, I change the string back to a date by using CTOD(). It is quite easy and it gives you the possibilities to add more controls to the valid clause. Example: if a date you want has to be between ...
... that has two datetime fields HDATE and LDATE and I have a button where when I click the button I can set a filter between the two dates Ldate := ctod("01/01/2023") Hdate := ctod("01/31/2023") oRs:Filter := "" oRsFilter := oRs:Fields("Ldate"):Value >= ...
hi Silvio, yes the btnbmp must be disabled, only when there is a valid data the btnbmp must be enable, on init the ddatacambio is ctod('') i do not "see" CODE which "enable" or "disable" BTNBMP as i say "Refresh" does only "paint" Control ...
... or EVAL() ACTION of BTNBMP yes the btnbmp must be disabled, only when there is a valid data the btnbmp must be enable, on init the ddatacambio is ctod('')
... le sirve: Function Main() Local nMesI:=4 Local nAnoI:=2021 Local nMesF:=6 Local nAnoF:=2023 Local aPeriodo:={} Local cFecha1,cFecha2 cFecha1 := CTOD("01/"+strzero( nMesI, 2) + "/" + str( nAnoI ) ) cFecha2 := CTOD("01/"+strzero( nMesF, 2) + "/" + str( nAnoF ...
... the months against the list number Nages, your function MonthsInRange (d1, d2) returns me all the Months for a sample : aMesi1 := MonthsInRange( ctod(17/05/2021"), ctod("20/09/2021") return me May,June,July,August, September But I wish only the mounth from they are of pricelist ...
Mr. Silvio Please see these lines of code: local dDataIniziale:= ctod("04/07/2021")local dDataFinale:= ctod("08/07/2021") SET DATE ITALIAN By default, the date format is American ( MM/DD/YY ) not ( DD/MM/YY ...
... I must filter the Reserva.dbf local cTipoElemento:="01" local nElemento:= 5 local dDataIniziale:= ctod("04/07/2021") local dDataFinale:= ctod("08/07/2021") and I made this command oReservations:Exec( < || SET FILTER TO AllTrim( ...