[Libreoffice-bugs] [Bug 142208] New: Bucle infinito inesperado dentro de IF...THEN...END IF al ejecutar el procedimiento mediante cualquier Suceso

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=142208

            Bug ID: 142208
           Summary: Bucle infinito inesperado dentro de IF...THEN...END IF
                    al ejecutar el procedimiento mediante cualquier Suceso
           Product: LibreOffice
           Version: 7.1.2.2 release
          Hardware: x86-64 (AMD64)
                OS: Windows (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: Base
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: ramon6419 at gmail.com

Description:
If CDbl(dvFinFecha) < CDbl(Now()) then  
                msgbox "La fecha no puede ser mayor que hoy"            
                ofForm.Controls("FinFecha").Value = "" --------- Elimina el
valor introducido 
                                                                 en el control,
erróneamente por el usuario, seguidamente
                                                                 provoca un
bucle infinito y no sigue corriendo el código

                Exit Sub --------------------------------------- Debería salir
del procedimiento IF...THEN, pero no 
                                                                 responde Exit
Sub.

           ElseIf dvFinFecha <= svMimFechaLicenciaConductor then
                msgbox "La fecha no puede ser menor que fecha alta conductor"

                'ofForm.Controls("FinFecha").Value = "" --------Elimina el
valor introducido en el control, erroneamente 
                                                                por el usuario,
seguidamente
                                                                provoca un
bucle infinito y no sigue corriendo elcodigo.

                Exit Sub -------------------------------------- Debería salir
del procedimiento IF...THEN, pero no 
                                                                responde el
Exit Sub.
End if
Exit Sub
End Sub

Steps to Reproduce:
1.Crear un bucle If...then según detallo anteriormente.
2.
3.

Actual Results:
Para reproducir el problema ejecutar la instrucción o bucle IF...THEN que
detallo anteriormente en el cuadro "Descripción"

Expected Results:
Se origina un bucle infinito.


Reproducible: Always


User Profile Reset: Yes


OpenGL enabled: Yes

Additional Info:
Exit Sub impera sobre cualquier acción, instrucción o comando, Exit Sub tenia
que detener la ejecución del codigo.

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20210511/5a57d1e0/attachment.htm>