error.log no tGet

[gibaf]

ola a todos

 

alguem sabe me dizer como solucionar esse error.log na classe tGet ?

 

Application
===========
   Path and name: C:\SIG\Sistemas\CompuRMT.exe (32 bits)
   Size: 5,513,728 bytes
   Time from start: 0 hours 13 mins 19 secs 
   Error occurred at: 07/05/19, 17:15:38
   Error description: Error BASE/1082  Erro nos parƒmetros: -
   Args:
     [   1] = U   NIL
     [   2] = N            1

Stack Calls
===========
   Called from: \Sistemas\SIG_WIN\Projeto\CompuXHB\tget.prg => GET:DELETE(2163)
   Called from: C:\Sistemas\Contrib\TVGET.PRG => TVGET:KEYDOWN(749)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: source\classes\control.prg => TVGET:HANDLEEVENT(1483)
   Called from: source\classes\window.prg => _FWH(3391)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: source\classes\dialog.prg => TDIALOG:ACTIVATE(273)

 

 

a linha 2163 da tGet eh a em negrito/vermelho:

METHOD _Delete( lDisplay ) CLASS Get

   LOCAL nMaxLen := ::nMaxLen, n, xBuff

   DEFAULT lDisplay TO .t.

   ::Clear := .f.
   ::lEdit := .t.

   if ::lPicComplex
      // Calculating diferent nMaxLen for ::lPicComplex
      for n := ::Pos to nMaxLen
         if !::IsEditable( n )
           exit
         endif
      next
      nMaxLen := n - 1
   endif

   if ::type == "N" .and. SubStr( ::buffer, ::Pos, 1 ) IN "(-"
      ::minus := .f.
   endif

   /* 2006/OCT/06 - E.F. Added new @K+ functionality to empty
    *               get buffer if first key pressed is DEL key.
    */
   if ( "K+" IN ::cPicFunc .and. ::Pos == ::FirstEditable() ) .or.;
      ::lNumToLeft .and. !IsDigit( SubStr(::buffer, ::Pos, 1 ) )
      ::DeleteAll()
   else
      /* 2007/FEB/24 - E.F. - Adjust ::Pos value under @L picture */

      if ::lNumToLeft

         if ::lDecPos
            if ::Pos < ::DecPos
               ::Pos++
            endif
            if ::Pos-1 < ::DecPos
               ::lDecPos := .f.
            endif
         elseif ::lNeverDeleted .or. ( IsDigit( Right(::buffer,1)) .and. ::Pos+1 == ::nMaxLen )
            ::Pos++
         endif

      endif
      xBuff := ::buffer
      ::buffer := PadR( SubStr( ::buffer, 1, ::Pos - 1) + ;
                  SubStr( ::buffer, ::Pos + 1, nMaxLen - ::Pos ) + " " +;
                  SubStr( ::buffer, nMaxLen + 1 ), ::nMaxLen )

      if ::lPassword .and. ( ! (xBuff == ::buffer) .or. ::nPasswordLen >= ::Pos )
         ::nPasswordLen := Max(0,::nPasswordLen-1)
      endif   
   endif

   if ::type == "D" .OR. ::type == "T"
      ::BadDate := IsBadDate( ::buffer, ::cPicFunc )
   else
      ::BadDate := .f.
   endif

   ::Changed := .T.

   if ::lNeverDeleted
      ::lNeverDeleted := .F.
   endif

   if lDisplay
      ::Display()
   endif

return Self
 

 

 

desde ja fico agradecido: MUITO OBRIGADO !!!

[kapiaba]

METHOD _Delete( lDisplay ) ??

 

Não tenho isso em minha TGET.PRG vi algo parecido, mas na FGET.PRG de qual versão do five é isso?

[kapiaba]

Não sei do que se trata essa GET.PRG

 

 

[gibaf]

vexxx..

 

laskei-me ??

 

hehe

[gibaf]

 

ola a todos

 

alguem sabe me dizer como solucionar esse error.log na classe tGet ?

 

Application
===========
   Path and name: C:\SIG\Sistemas\CompuRMT.exe (32 bits)
   Size: 5,513,728 bytes
   Time from start: 0 hours 13 mins 19 secs 
   Error occurred at: 07/05/19, 17:15:38
   Error description: Error BASE/1082  Erro nos parƒmetros: -
   Args:
     [   1] = U   NIL
     [   2] = N            1

Stack Calls
===========
   Called from: \Sistemas\SIG_WIN\Projeto\CompuXHB\tget.prg => GET:DELETE(2163)
   Called from: C:\Sistemas\Contrib\TVGET.PRG => TVGET:KEYDOWN(749)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: source\classes\control.prg => TVGET:HANDLEEVENT(1483)
   Called from: source\classes\window.prg => _FWH(3391)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: source\classes\dialog.prg => TDIALOG:ACTIVATE(273)

 

 

a linha 2163 da tGet eh a em negrito/vermelho:

METHOD _Delete( lDisplay ) CLASS Get

   LOCAL nMaxLen := ::nMaxLen, n, xBuff

   DEFAULT lDisplay TO .t.

   ::Clear := .f.
   ::lEdit := .t.

   if ::lPicComplex
      // Calculating diferent nMaxLen for ::lPicComplex
      for n := ::Pos to nMaxLen
         if !::IsEditable( n )
           exit
         endif
      next
      nMaxLen := n - 1
   endif

   if ::type == "N" .and. SubStr( ::buffer, ::Pos, 1 ) IN "(-"
      ::minus := .f.
   endif

   /* 2006/OCT/06 - E.F. Added new @K+ functionality to empty
    *               get buffer if first key pressed is DEL key.
    */
   if ( "K+" IN ::cPicFunc .and. ::Pos == ::FirstEditable() ) .or.;
      ::lNumToLeft .and. !IsDigit( SubStr(::buffer, ::Pos, 1 ) )
      ::DeleteAll()
   else
      /* 2007/FEB/24 - E.F. - Adjust ::Pos value under @L picture */

      if ::lNumToLeft

         if ::lDecPos
            if ::Pos < ::DecPos
               ::Pos++
            endif
            if ::Pos-1 < ::DecPos
               ::lDecPos := .f.
            endif
         elseif ::lNeverDeleted .or. ( IsDigit( Right(::buffer,1)) .and. ::Pos+1 == ::nMaxLen )
            ::Pos++
         endif

      endif
      xBuff := ::buffer
      ::buffer := PadR( SubStr( ::buffer, 1, ::Pos - 1) + ;
                  SubStr( ::buffer, ::Pos + 1, nMaxLen - ::Pos ) + " " +;
                  SubStr( ::buffer, nMaxLen + 1 ), ::nMaxLen )

      if ::lPassword .and. ( ! (xBuff == ::buffer) .or. ::nPasswordLen >= ::Pos )
         ::nPasswordLen := Max(0,::nPasswordLen-1)
      endif   
   endif

   if ::type == "D" .OR. ::type == "T"
      ::BadDate := IsBadDate( ::buffer, ::cPicFunc )
   else
      ::BadDate := .f.
   endif

   ::Changed := .T.

   if ::lNeverDeleted
      ::lNeverDeleted := .F.
   endif

   if lDisplay
      ::Display()
   endif

return Self
 

 

 

desde ja fico agradecido: MUITO OBRIGADO !!!

seguindo a execucao do programa, q o error.log mostra, a classe tVGet, na linha 749

 

error.log:

Called from: C:\Sistemas\Contrib\TVGET.PRG => TVGET:KEYDOWN(749)

 

linha 749 do tVGet:

If nKey == VK_DELETE ; ::oGet:Delete()

 

mas a execucao vai la pro tGet....

 

estranho....

 

e agora ?

[kapiaba]

TVGET.PRG , não é a classe do Vagner Wirts tio? 

[gibaf]

 

TVGET.PRG , não é a classe do Vagner Wirts tio? 

bah.. sei nao....

[kapiaba]

Poste a classe TVGET.PRG rapaz. Como que você usa algo e nem sabe de quem ou para que serve?? kkkkk

[gibaf]

 

Poste a classe TVGET.PRG rapaz. Como que você usa algo e nem sabe de quem ou para que serve?? kkkkk

kkkk