Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Extraño error... Antonio, una mirada porfa..
Posted: Sun Nov 30, 2014 12:23 AM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Extraño error... Antonio, una mirada porfa..
Posted: Sun Nov 30, 2014 12:55 AM

Willi,

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

TCALENDAR:LBUTTONUP( 613 )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Extraño error... Antonio, una mirada porfa..
Posted: Sun Nov 30, 2014 02:14 AM

Hola Antonio... aquí va:

Code (fw): Select all Collapse

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

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 // <strong>línea 613</strong>
            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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Extraño error... Antonio, una mirada porfa..
Posted: Sun Nov 30, 2014 07:10 AM

Willi,

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

DATA nRowDbl, nColDbl INIT 0

regards, saludos

Antonio Linares
www.fivetechsoft.com

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Extraño error... Antonio, una mirada porfa..
Posted: Sun Nov 30, 2014 07:36 PM

Gracias sr..

FiveTech Support Forums

Stack Calls

Continue the discussion