Extraño error... Antonio, una mirada porfa..

[Willi Quintana]

Hola Antonio,,, me salio este error:

.....
Error description: Error BASE/1082 Error de argumento: -
Args:
[ 1] = U
[ 2] = N 198

Stack Calls
===========
Called from: .\source\classes\TCALENDA.PRG => TCALENDAR:LBUTTONUP( 613 )
Called from: .\source\classes\CONTROL.PRG => TCALENDAR:HANDLEEVENT( 1714 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 990 )
Called from: D:\PRGS\SVITEX_E\PRG\svite.prg => MAIN( 416 )
...
..

[Antonio Linares]

Willi,

Por favor muestra aqui el código que tienes en esta línea:

TCALENDAR:LBUTTONUP( 613 )

[Willi Quintana]

Hola Antonio... aquí va:

Code: Select all  Expand view  RUN

//----------------------------------------------------------------------------//

METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TCalendar

   local nPos

   if ::lDrag
      RETURN Super:LButtonUp( nRow, nCol, nFlags )
   endif

   if ::lCaptured

      ::lCaptured = .f.
      ReleaseCapture()
     
      ::lBtnUp := .T.

      IF ! ::lDblClick
         ::lDblClick = .T.
         ::oTimerDbl:Activate()
      ELSE
IF IsOverDay( ::hWnd, nRow, nCol ) .AND. Abs( ::nRowDbl - nRow  ) <= HEIGHTDBLCLICK .AND. Abs( ::nColDbl - nCol ) <= WIDTHDBLCLICK // línea 613
            MsgBeep()
            IF ::bLDblClick != NIL
               ::oTimerDbl:Deactivate()
               Eval( ::bLDblClick, nRow, nCol )
            ENDIF
         ENDIF      
         ::lDblClick = .F.
      ENDIF


   endif

   ::Change()

   Super:LButtonUp( nRow, nCol, nFlags )

RETURN NIL



 

[Antonio Linares]

Willi,

Localiza esta línea al principio de la Clase TCalendar y modificala asi:

DATA nRowDbl, nColDbl INIT 0

[Willi Quintana]

Gracias sr..