PlanetSquires Forums

Please login or register.

Login with username, password and session length
Advanced search  

Author Topic: Firefly missguiding for debug.  (Read 239 times)

Elias Montoya

  • Guest
Firefly missguiding for debug.
« on: September 14, 2006, 01:57:44 AM »

I spent a good while struggling with this because firefly is missguiding me,
if i make a mistake in a part of the code, firefly points to the wrong of the
code to "show" where the error resides. Here is some sample code:

Code: [Select]

'------------------------------------------------------------------------------------------------------------------------
Function FORM1_WM_CREATE ( _
                         hWndForm As Dword, _  ' handle of Form
                         ByVal UserData As Long _  'optional user defined Long value
                         ) As Long
Local Nombre As String                        
Local MyLong As Long
Local Flags As Long
Local Datos As String
Local Cod1 As String
Local Ingr As Double

MyLong = 1772661
Nombre = "Elias"

          If (((Flags) And &h002) = &h002) Then
          Datos = Datos & "Renta:       " & $CrLf & _          
"Fecha:       " & Mid$(Str$(MyLong), 7, 2) & " de " & Mid$(Str$(MyLong), 5, 2) & " del " & Mid$(Str$(MyLong), 1, 4) & $CrLf & _          
        "Articulo:    " & $Tab & Trim$(Nombre) & Trim$(Cod1) & $CrLf & _
        "Ingresos:    " & $Tab & Trim$(Format$(Ingr, "$ ###,.00#")) & $CrLf          
         
          ElseIf (((Flags) And &h004) = &h004) Then
Datos = Datos & $CrLf & _
        "Devolucion:  " & $CrLf & _        
        "Fecha:       " & Mid$(Str$(MyLong), 7, 2) & " de " & Mid$(Str$(MyLong), 5, 2) & " del " & Mid$(Str$(MyLong), 1, 4)          
        "Articulo:    " & $Tab & Trim$(Nombre) & Trim$(Cod1) & $CrLf & _
        "Ingresos:    " & $Tab & Trim$(Format$(Ingr, "$ ###,.00#")) & $CrLf          

End If        
                         

End Function


It shows the line:
Quote
"Articulo:    " & $Tab & Trim$(Nombre) & Trim$(Cod1) & $CrLf & _

As the faulty one, but its ok... The real error resides in the other line,
if i remove the faulty part, like this:

Code: [Select]
'------------------------------------------------------------------------------------------------------------------------
Function FORM1_WM_CREATE ( _
                         hWndForm As Dword, _  ' handle of Form
                         ByVal UserData As Long _  'optional user defined Long value
                         ) As Long
Local Nombre As String                        
Local MyLong As Long
Local Flags As Long
Local Datos As String
Local Cod1 As String
Local Ingr As Double

MyLong = 1772661
Nombre = "Elias"

          If (((Flags) And &h002) = &h002) Then
          Datos = Datos & "Renta:       " & $CrLf & _          
"Fecha:       " & Mid$(Str$(MyLong), 7, 2) & " de " & Mid$(Str$(MyLong), 5, 2) & " del " & Mid$(Str$(MyLong), 1, 4) & $CrLf & _          
        "Articulo:    " & $Tab & Trim$(Nombre) & Trim$(Cod1) & $CrLf & _
        "Ingresos:    " & $Tab & Trim$(Format$(Ingr, "$ ###,.00#")) & $CrLf          
         
          ElseIf (((Flags) And &h004) = &h004) Then


       
                     
                     
                     
                     
End If        
                         

End Function


 The problem dissapears without modifying the code that firefly points to.

 I am posting this because if not fixed, i might get this in the future and forget about this, resulting in more time used to spot the problem.

Thanx :)
Logged