[marcoszorrilla]

Otro ejemplo para hacer un bloqueo:

                WHILE !PRIXGEN->(EOF())
                nValor:=(++nCon)*100/nUltimo
                        IF nValor < 2
                        nValor:=2
                        END
                GAUGE(nValor)

                        
                        WHILE !PRIXGEN->(RLOCK())
                        END

                PRIXGEN->NUEVOPREC:=0
                PRIXGEN->MRGFUTURO:=0
                        PRIXGEN->(DbUnLock())
                PRIXGEN->(DbSkip())
                END

Un Saludo.