Power Builder - Ayuda con este problema

string ls_dato

select en_contabilidad into :ls_dato from tabla where id:_registro =10 ;

if ls_dato = "S" then

   mensaje "No puedes editar porque esta siendo usado en contabilidad"

   return

end if

Do While True

    If luo_TR.ExecuteSQL( "UPDATE TABLA SET CAMPO=CAMPO WHERE CAMPO=VALOR", not THIS.E_Commit ) Then

        lb_Return = True

        Exit

    End If

    Choose Case ll_TSecondRelay

        Case 0	// Intentando un bloqueo inmediato

            Exit

        Case IS > 0

            ls_cadena = 'Intentando un bloqueo durante'

            w_Frame.dw_StatusBar2.SetText(	ls_cadena + ' ' + String( ll_TSecondRelay ) + ' seg.' + THIS.E_LF + &

                                        'Faltan ' + String( SecondsAfter( DB.time(), lt_TimeEnd ) ) + ' seg.' + THIS.E_LF + &

                                        'RLock: ' + ls_Select )	// Message

            w_Frame.dw_StatusBar2.Show()

            If DB.time() > lt_TimeEnd Then	Exit

        Case IS < 0

            ls_cadena = 'Reintentando un bloqueo hasta conseguirlo.'

            w_Frame.dw_StatusBar2.SetText( ls_cadena )	// Message

            w_Frame.dw_StatusBar2.Show()

    End Choose

    Yield()

Loop

CREATE DATABASE PROYECTO

GO

USE PROYECTO

GO

CREATE TABLE TB_CATEGORIA

(

	IDCATEGORIA CHAR(5) PRIMARY KEY,

	NOMBRE VARCHAR(50)

)

GO

INSERT INTO TB_CATEGORIA VALUES (1,'LIMPIEZA')

GO

INSERT INTO TB_CATEGORIA VALUES (2,'COMPUTADORAS')

GO

CREATE PROC SP_REGCATEGORIA

	@IDCATEGORIA CHAR(5),

	@NOMBRE VARCHAR(50)

AS

BEGIN

INSERT INTO TB_CATEGORIA VALUES (@IDCATEGORIA,@NOMBRE)

END

GO

CREATE PROC SP_EDICATEGORIA

	@IDCATEGORIA CHAR(5),

	@NOMBRE VARCHAR(50)

AS

BEGIN

UPDATE TB_CATEGORIA SET IDCATEGORIA=@IDCATEGORIA, NOMBRE=@NOMBRE

END

GO

CREATE TABLE TB_PRODUCTO

(

	IDPRODUCTO CHAR(5) PRIMARY KEY,

	NOMBRE VARCHAR(50),

	IDCATEGORIA CHAR(5) FOREIGN KEY REFERENCES TB_CATEGORIA(IDCATEGORIA),

	STOCK NUMERIC(9,0)

)

GO

INSERT INTO TB_PRODUCTO VALUES (1,'MOUSE',2,50)

GO

CREATE TABLE TB_LOGIN

(

	USUARIO VARCHAR(20),

	PASSWORD VARCHAR(20),

	ESTADO CHAR(1)

)

GO

INSERT INTO TB_LOGIN VALUES ('SNAYDER',1234,0)

GO

CREATE PROC SP_LOGIN

	@USUARIO VARCHAR(20),

	@PASSWORD VARCHAR(20),

	@ESTADO CHAR(1)

AS

SELECT * FROM TB_LOGIN WHERE USUARIO='SNAYDER' AND PASSWORD=1234 AND ESTADO=0

GO