Tcalex citas vista mes

[cmsoft]

Estimados:
Necesito mostrar en tcalex vista mes, cuando la cantidad de citas para el día superan las que pueden mostrarse, un indicador que muestre que para ese día hay más citas.
Por ejemplo si la vista alcanza a mostrar 1 cita y para el día hay 3 citas, que muestre un +2 por ejemplo.
Eso es posible?
Agradezco cualquier ejemplo

[hmpaquito]

Hola,

Esto mostrará un poligono cuando se sobrepase las citas que caben
Para hacerlo como pretendes, que muestre el numero de citas que no se muestran, habria que crear una DATA aCitasDia con las citas de todo el dia y al total citas restar las no :lVisible. Esa es una forma
Aunque yo he hecho el pintado en TCalInfo, lo ideal seria hacerlo en TMonthV.prg

Code: Select all  Expand view  RUN

METHOD PaintOnMonth(...............) CLASS TCalInfo
   .
   .
   .
   if ! ::lVisible

      DrawEsquina( ::aCoords, hDC, 0, 0, 3, CLR_HBLUE, ::oCalex, Self)

      return nil
   endif
   .
   .
   .
return nil

   STATIC FUNCTION DrawEsquina( aCoords, hDC, nLONG, nHIGHT, nPEN, nCOLOR, oCalex, oCalInfo )

   LOCAL hPen    
   LOCAL hOldPen


   Local nLeft:= aCoords[2]

   Local nBottom

   Local nLon:= 10

   Local nAlto:= nLon,;
         nAncho:= nLon


   Local nLeftIni, nBottomIni

Local hPen1, hBrus1, hOldBrush,;
         vSolid
Local nColorNuevo:= CLR_HBLUE

nBottom:= oCalInfo:aCoorCua[1]+ oCalex:oView:nDNameHeight
nBottom-= 2
nLeft+= 45

nLeftIni:= nLeft+ 1
nBottomIni:= nBottom- 3


vsolid:= {;
          {nLeftIni, nBottomIni        },;
          {nLeftIni, nBottomIni- nAlto },;
          {nLeftIni+ nAncho, nBottomIni} ;
         }


hPen1 := CreatePen( 0 , 1, nColorNuevo )
hBrush1  := CreateSolidBrush( nColorNuevo )

hOldBrush := SelectObject( hDC, hBrush1 )
hOldPen := SelectObject( hDC, hPen1 )
polypolygon( hDC, vsolid )


DeleteObject(hBrush1)
DeleteObject(hPen1)    


RETURN NIL





 

[cmsoft]

Hola hmpaquito:
Muchas gracias por la data.
Adaptandolo a mis necesidades me fue de suma utilidad
Agradecido!