topic-26254

Posts: 66

Joined: Thu Jan 03, 2013 06:13 PM

Problemas con TDatePick
Posted: Mon May 06, 2013 08:39 PM

Amigos del Foro, tengo el siguiente problema, necesito hacer una query por un rango de fecha, e intento hacerlo con 2 DatePick, uno para el desde y el otro para el hasta, pero, cuando envío los parámetros a la función que genera la query, el Desde (DatePick1), no tiene valor. Por qué me ocurre esto?

Fivewin 12.04 + xHarbour 1.2.1 + BCC582

Nada como Fivewin, odio visual basic, visual studio y todas las porquerías visual.

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Problemas con TDatePick
Posted: Mon May 06, 2013 10:34 PM

Saludos Con Mysql lo hago asi y me funciona

Code (fw): Select all Collapse

   SET DATE FORMAT TO 'YYYY-MM-DD'


cQte3 := "SELECT A1.codcia,A1.tipdoc,A1.planta,A1.numorden,A1.codprod,A1.verprod,A1.codprov,A1.consec,A1.ordcom,"+;
         "A1.fecordc,A1.ord_ant,A1.mconsi,A1.destino AS destino_,A1.dir_dest AS dir_dest_,A1.valunit,A1.desc_por,"+;
         "A1.pesos,A1.codpag,A1.flete,A1.tflete,A1.cantidad,A1.bob,A1.bobant,A1.valtot,A1.tvaltot,A1.kiltot,"+;
         "A1.kilneto,A1.tkilneto,A1.tkiltot,A1.pesoteo,A1.tpesoteo,A1.dev_unid,A1.dev_kilo,A1.dev_teor,"+;
         "WHERE "+;
         "A1.planta BETWEEN '"+ALLTRIM(D_PLA)+"' AND '"+ALLTRIM(H_PLA)+"' AND "+;
          "A1.fec_soli BETWEEN '"+dtoc(D_FECHAX)+"' AND '"+dtoc(H_FECHAX)+"' AND "+;

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Leo

Posts: 66

Joined: Thu Jan 03, 2013 06:13 PM

Re: Problemas con TDatePick
Posted: Tue May 07, 2013 01:35 PM

Gracias por la pronta respuesta, el problema no está con mysql, el problema es que el datepick1 me retorna empty, aún asignandole fecha, en tanto del datepick2 contiene el valor de la fecha asignada. Es un problema con fivewin.

Code (fw): Select all Collapse

Function Filtra_Fecha(oBrw,oParent,oQry,Code)
Local oDlg,o4002,o4004,B1:=Space(10),B2:=Space(10),Fecha1:=Date(),Fecha2:=Date()

oDlg = TDialog():New(,,,,, "Filtra_Fechas",, .F.,, nRGB( 211, 218, 237 ), nRGB( 211, 218, 237 ),,, .F.,, oFont,,,, .T. )

o4002 := TDatePick():ReDefine( 4002, { | u | If( PCount()==0, Fecha1, Fecha1:= u ) }, oDlg,,,, oFont,,, .T.,, {|| (MsgAlert(Fecha1),B1:=DToS(Fecha1),.T.)},, )


o4004 := TDatePick():ReDefine( 4004, { | u | If( PCount()==0, Fecha2, Fecha2:= u ) }, oDlg,,,, oFont,,, .T.,, {|| (B2:=DToS(Fecha2), Filtrax(oBrw,oParent,oQry,B1,B2,Code), oBrw:Refresh(),oBrw:SetFocus(),.T.,oDlg:End())},, )

oDlg:Activate( oDlg:bLClicked, oDlg:bMoved, oDlg:bPainted, .T.,,,, oDlg:bRClicked,, )

Return Nil

Fivewin 12.04 + xHarbour 1.2.1 + BCC582

Nada como Fivewin, odio visual basic, visual studio y todas las porquerías visual.

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problemas con TDatePick
Posted: Tue May 07, 2013 10:46 PM

Please access the values of the variables in ON CHANGE ... not in VALID.

In your code:
Instead of " .T.,,{||" it should be ".T.,,,{||"

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion