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 wrote: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
Mi correo es joseluisysturiz arroba yahoo.com, saludos, gracias...Willi Quintana wrote:Claro amigo,,,,
Salu2
Code: Select all
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:
