FiveTech Support Forums

       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: