Urgente: APLICACION CLIENTE/SERVIDOR:
Hola amigos, tengo un procedimiento almacenado en SQLSERVER, EL PROCEDIMIENTO GENERA UN CÓDIGO(ej. T 20030609-1, código formado por la primera letra del tipo de socio, ano, mes y día de inscripción, y un contador que se incrementa cada vez que se registre un nuevo socio), ESTE ES:
CREATE Procedure sp_GeneraCodigo
@Codigo Char(15) OUTPUT
AS
DECLARE @CodTipo VARCHAR(50),@Conta VARCHAR(4),@CodAño DATETIME
Select @CodTipo=tipo from Socio
Select @CodAño=GETDATE()
Select @Conta=COUNT(*) from Socio
SET @Conta=CAST(CAST(@Conta AS INTEGER)+1 AS VARCHAR(4))
SET @Codigo=SUBSTRING(@CodTipo,1,1)+STR(YEAR(@CodAño),5)+STR(MONTH(@CodAño),2)+STR(DAY(@CodAño),2)+'-'+@Conta
GO
Problema:HAGO LA APLICACIÓN PARA REGISTRAR UN NUEVO SOCIO EL CUAL TIENE UN CÓDIGO QUE SE GENERA MEDIANTE EL PROCEDIMIENTO MENCIONADO, MI PROBLEMA ES COMO LLAMO, COMO RECUPERO ESTE CÓDIGO GENERADO Y COMO LO EJECUTO ESTE PROCEDIMIENTO DESDE POWER BUILDER PARA PODER REGISTRAR UN NUEVO SOCIO, LOS CAMPOS DE LA TABLA SOCIO SON:id_socio, nombre, dirección, teléfono, dni, tipo, id_titular.
De antemano le doy gracias por su respuesta.
CREATE Procedure sp_GeneraCodigo
@Codigo Char(15) OUTPUT
AS
DECLARE @CodTipo VARCHAR(50),@Conta VARCHAR(4),@CodAño DATETIME
Select @CodTipo=tipo from Socio
Select @CodAño=GETDATE()
Select @Conta=COUNT(*) from Socio
SET @Conta=CAST(CAST(@Conta AS INTEGER)+1 AS VARCHAR(4))
SET @Codigo=SUBSTRING(@CodTipo,1,1)+STR(YEAR(@CodAño),5)+STR(MONTH(@CodAño),2)+STR(DAY(@CodAño),2)+'-'+@Conta
GO
Problema:HAGO LA APLICACIÓN PARA REGISTRAR UN NUEVO SOCIO EL CUAL TIENE UN CÓDIGO QUE SE GENERA MEDIANTE EL PROCEDIMIENTO MENCIONADO, MI PROBLEMA ES COMO LLAMO, COMO RECUPERO ESTE CÓDIGO GENERADO Y COMO LO EJECUTO ESTE PROCEDIMIENTO DESDE POWER BUILDER PARA PODER REGISTRAR UN NUEVO SOCIO, LOS CAMPOS DE LA TABLA SOCIO SON:id_socio, nombre, dirección, teléfono, dni, tipo, id_titular.
De antemano le doy gracias por su respuesta.
1 respuesta
Respuesta de gonperpe
1
string xcod
DECLARE gen PROCEDURE FOR sp_GeneraCodigo @xcodigo = :xcod out;
execute gen;
if sqlca.sqlcode = -1 then
messagebox("Mensage","Error al generar el numero de socio")
close gen;
end if
fetch gen into:xcod;
close gen;
messagebox("[email protected]",xcod)
//si no funaciona mandame una mail ok
DECLARE gen PROCEDURE FOR sp_GeneraCodigo @xcodigo = :xcod out;
execute gen;
if sqlca.sqlcode = -1 then
messagebox("Mensage","Error al generar el numero de socio")
close gen;
end if
fetch gen into:xcod;
close gen;
messagebox("[email protected]",xcod)
//si no funaciona mandame una mail ok
Gonsoft, Mil gracias por tu respuesta, es excelente, disculpa por no haberte contestado, es que estaba muy ocupado. Hasta otra oportunidad experto; Te deseo mucha suerte.
