Apreciados amigos del foro feliz ano 2006
Estoy efecutando agunos procedimiento en firebird 1.6 y quisiera tener un miniejemplo de los siguientes procesos
1. Seleccionar un registro y verificar si existe en la base de datos algo parecido a esto
Código SQL
[-]
SELECT SALDO FROM EXISTENCIAS WHERE CODIGO = :CODIGO;
IF SQLCODE = 100 then
EXCEPT MENSAJE'CODIGO SIN EXISTENCIAS';
2. ACTUALIZANDO LA BASE DE DATOS
Código SQL
[-]
UPDATE EXISTENCIAS SET SALDO = SALDO + :CANTIDAD WHERE CODIGO = :CODIGO
IF SQLCODE <> 0 THEN
EXCEPT MENSAJE'CODIGO SIN SALDO';
Como ustedes pueden observar la idea en chequear los codigos sqlcod para contralar la aplciacion. Los ejemplos que yo veo en el manul nunca usan codigos para este tipo de errores, Podrain ayudarme.
Gracias