[Gambas-user] [Gambas Bug Tracker] Bug #1252: 'Next' is not well aligned (code format)

[bugtracker at gambaswiki.org]

http://gambaswiki.org/bugtracker/edit?object=BUG.1252&from=L21haW4-

Víctor PEREZ reported a new bug.

Summary
-------

'Next' is not well aligned (code format)

Type             : Bug
Priority         : Low
Gambas version   : 3.10
Product          : Unknown


Description
-----------

Public Sub MostrarVersiculo4Partes(texto As String)
  
  Dim corte As String[]
  Dim PrimerCaracter As String
  Dim Libro, Tabla, Capitulo, Versiculo, NombreVersiculo2 As String
  Dim FullVers As VFull
  Dim contador As Integer = 1
  Dim FullVersX As VFull
  Dim titulo As String
  Dim TextoFinal As String
  Dim VisorX As New FVisorMisRef 
  
  If InStr(texto, ",") Then
    
    corte = Split(texto, " ")
    
    tabla = subBiblia.AbreviaturaToTabla(FMain.BuscarRefDeLibro(FMain.LBoxReferencias.Index))
    
    For Each versiculo In corte
      If contador = 1 Then
        capitulo = Replace$(versiculo, ".", "")
        Inc contador
        Continue
      Endif
      
      versiculo = Replace$(versiculo, ",", "")
      
      FullVersX = New VFull
      FullVersX = subR1.ObtenerFullVersiculo(tabla, capitulo, versiculo)
      
      If FullVersX.Titulo = "" Then
        titulo = ""
      Else
        titulo = subFto.Negrita(FMain.AntesTiT & FullVersX.Titulo & FMain.DespuesTiT) & "<br>"
      Endif
      TextoFinal &= subFto.VerdeNegrita("(" & subBiblia.TablaToNombreLibro(tabla) & " " & capitulo & ":" & versiculo & ") ") &
        titulo & subFto.Cursiva(FullVersX.Texto) & "<br>"
      Next ' <<<------------------------------------- FIXME
    
    VisorX.EsteTexto(TextoFinal)
    
  Else
    
    PrimerCaracter = Left(texto, 1)
    
    corte = Split(texto, " ")
    
    Tabla = subBiblia.AbreviaturaToTabla(corte[0] & " " & corte[1])
    Libro = subBiblia.AbreviaturaToLibro(corte[0] & " " & corte[1])
    
    Capitulo = Replace$(corte[2], ".", "")
    
    corte[2] = Replace$(corte[2], ".", "")
    corte[3] = Replace$(corte[3], ".", "")
    
    NombreVersiculo2 = Libro & " " & capitulo & ":" & corte[3]
    
    If InStr(corte[3], "-") = 0 Then
      FullVers = subR1.ObtenerFullVersiculo(tabla, corte[2], corte[3])
      FVisorMisRef.EsteVersiculo(FullVers, "Referencias", "Referencias")
    Else
      FVisorMisRef.EstosVersiculos(subR2.ListaDeRango(NombreVersiculo2), "Referencias", "Referencias")
    Endif
    
  Endif
  
End


System information
------------------

Gambas=3.9.2
OperatingSystem=Linux
Kernel=3.19.0-32-generic
Architecture=x86
Distribution=Linux Mint 17.3 Rosa
Desktop=MATE
Theme=Gtk
Language=es_UY.UTF-8
Memory=1950M

[Libraries]
Cairo=libcairo.so.2.11301.0
Curl=libcurl.so.4.3.0
DBus=libdbus-1.so.3.7.6
GStreamer=libgstreamer-0.10.so.0.30.0
GStreamer=libgstreamer-1.0.so.0.204.0
GTK+2=libgtk-x11-2.0.so.0.2400.23
GTK+3=libgtk-3.so.0.1000.8
OpenGL=libGL.so.1.2.0
Poppler=libpoppler.so.44.0.0
QT4=libQtCore.so.4.8.6
QT5=libQt5Core.so.5.2.1
SDL=libSDL-1.2.so.0.11.4
SQLite=libsqlite3.so.0.8.6