Planning,,, Un retoque o algo hago mal...

[Willi Quintana]

Estimado Daniel, Primero te doy las gracias por tu gran trabajo con FiveWin, no quiero abusar de tu confianza, estoy usando la clase Planning, va a100,,
e observado un detalle, en la imagen ajunta, se aprecia que hay una reserva que termina el dia 27 de diciembre, se ve correctamente cuando el checkin va al comienzo dentro del rango de las fechas del PLannig, pero si el rango empieza al "medio" de una reserva, no aparece la mención,,, en el ejemplo la reserva termina el 27 en el 1er cuadro y en 2l 2do no se ve en el dia 27, debería verse una mitad..

[nnicanor]

Hola,

Podrías por favor compartir el código también conmigo ?

Slds,

[Francisco Horta]

Que tal willi,

Se ve estupendo tu trabajo, pudieras compartir esa parte de tu codigo y la clase tplan con la version que usas?

Mil gracias

Saludos

[Daniel Garcia-Gil]

Willi

He estado fuera de circulacion en el foro por un tiempo prolongado por motivo de grandes trabajos que tengo actualmente, para facilitarme el trabajo de asistencia, pordrias prepararme un ejemplo que se muestre el problema y me lo envias, gracias

[Willi Quintana]

Hola Daniel, gracias por responder.... mira el tema es simple...
En el cuadro 1 hago una reserva del 27 de noviembre 2015 al 31 de diciembre 2015, cambio el rango de fechas y la reserva no aparece en el cuadro 2 (falta el día del checkout)
EN el cuadro 3 hago una reserva del 31 de diciembre 2015 al 31 de enero del 2016, cambio el rango de fechas y la reserva no aparece en cuadro 4 (falta el día del checkin)
Salu2
WIlli

[joseluisysturiz]

Hola Daniel, gracias por responder.... mira el tema es simple...
En el cuadro 1 hago una reserva del 27 de noviembre 2015 al 31 de diciembre 2015, cambio el rango de fechas y la reserva no aparece en el cuadro 2 (falta el día del checkout)
EN el cuadro 3 hago una reserva del 31 de diciembre 2015 al 31 de enero del 2016, cambio el rango de fechas y la reserva no aparece en cuadro 4 (falta el día del checkin)
Salu2
WIlli

Saludos Quintana, podrias compartir algo de codigo para iniciarme en esta clase.? estoy diseñando un sistema de SPA y creo esta clase podria servirme o la TCalex, saludos, gracias...

[Willi Quintana]

Claro amigo,,,,
Salu2

[joseluisysturiz]

Claro amigo,,,,
Salu2

Mi correo es joseluisysturiz arroba yahoo.com, saludos, gracias...

[Daniel Garcia-Gil]

Willi

No veo problemas en la clase... revisa donde cargas la data que se va a mostrar en el planning y verifica que estes tomando los ragos de fecha correctos...
por ejemplo

if DToS( RESERVA->CHECK_OUT ) >= DToS( ::oPlann:dStart ) .AND. DToS( RESERVA->CHECK_IN ) <= DToS( ::oPlann:dEnd )

a ver si eso te resuelve el problema y que no te genere uno nuevo

[Willi Quintana]

HOla Daniel,
Gracias por tu respuesta,,,
Efectivamente, estaba tomando mal el rango de las fechas, lo hacia asi :
if DToS( RESERVA->CHECK_OUT ) > DToS( ::oPlann:dStart ) .AND. DToS( RESERVA->CHECK_IN ) < DToS( ::oPlann:dEnd )
con tu respuesta ya esta funcionado correctamente...

Un consulta mas... no puedo colocar un LISTBOX encima del plannig,,,

Code: Select all  Expand view

       DEFINE PLANNING oPlann OF oWndP;
          HEADER "Habitaciones / Fechas";
          COLOR HEADER ( If( Dow( dDate ) == 1 .OR.  Dow( dDate ) == 7, CLR_RED, oPlann:nClrText )  );  
          COLOR CELL ColorData( oData ) ;
          START DAY MesIni(dCheckIn) ;
          END DAY MesFinal(dCheckIn) ;
          ON RIGHT SELECT ( oPlann := BuildPop(oMySQL, nRow, nCol, oPlann, dCheckIn, dCheckOut), EVAL( eCarga ) ) ;
          ON CAPTURE ( oPlann := MoveReservation( oMySQL, oData, nRowId, oPlann ), EVAL(eCarga) ) ;
          ON RESIZE DATA ( oPlann := ResizeReservation( oMySQL, oData, nRowId, oPlann ), EVAL(eCarga) ) //NOHALFDAY
          oWndP:oClient := oPlann

          oPlann:nTopMargin := 220             // margen superior

      @ 25, 0 LISTBOX oLbx ;
                      FIELDS  aHabit[oLbx:nAt, 2], ;
                              aHabit[oLbx:nAt, 3], ;
                              aHabit[oLbx:nAt, 4], ;
                              STR(aHabit[oLbx:nAt, 5],4,0) ;
                      HEADERS "A", "B", "C", "D",  "E", "F",  "G"  ;
                      SIZE 400,100 ;
                      SIZES 10,10,10,10 PIXEL ;
                      OF oPlann

                      oLbx:SetArray(aHabit)
         oPlann:oClient := oLbx                <--------- con o sin esta línea no funciona,,, me de error:

 

El error:
Error description: Error BASE/1004 Class: 'NIL' has no exported method: NAT
Args:
[ 1] = U

[Baxajaun]

Buenas tardes Willi,

si publicas el código aquí, estará disponible para todos los compañeros.

Muchas gracias.

Saludos

[Willi Quintana]

Amigos,,,
Aquí esta todo el tema.. Solo hice unas modificaciones en los datos que se generan en las DBFs,,,,
https://bitbucket.org/fivetech/fivewin-contributions/downloads/plann.zip