que tal amigo otra consulta tengo aqui mi sp para insertar en sql
create PROCEDURE uSp_personal_insert
@codper varCHAR(10) output,@apeper varCHAR(30),@apemat varchar(30),@nomper varchar(40),
@codidocu varchar (5),@numdocu varchar(15),@codsex varchar(1),@fechanac datetime,
@codiestciv varchar(4),@codigradoest varchar(4),@codireli varchar(4),
@codidioma varchar(4),@idiomase varchar(30),@codipais varchar(5),@codidep varchar(5),
@codiprovi varchar(7),@codipostal varchar(30),@dirper char(40),@codicargo varchar(5),
@tele varchar(15),@exten varchar(10),@celular varchar(15),@email varchar(30),
@licencia varchar(20),@codicuenta varchar(5),@codibanco varchar(5),@codimoneda varchar(4),
@numcuenta varchar(25),@fechaingreso datetime,@comentarios varchar(50),@codiestado varchar(5)
AS
declare @Cod_Personals char(10)
declare @cod char(11)
declare @max int
select @cod=max(SUBSTRING(Cod_Personal,5,10) + 1) from Personal
select @max=max(len(SUBSTRING(Cod_Personal,5,10) + 1)) from Personal
select @Cod_Personals=max(left(Cod_Personal,len(Cod_Personal)- @max)) + @cod from Personal
INSERT INTO personal VALUES(@Cod_Personals,@apeper,@apemat,@nomper,@codidocu,@numdocu,@codsex,@fechanac,@codiestciv,@codigradoest,@codireli,@codidioma,@idiomase,@codipais,@codidep,@codiprovi,@codipostal,
@dirper,@codicargo,@tele,@exten,@celular,@email,@licencia,@codicuenta,@codibanco,@codimoneda,@numcuenta,@fechaingreso,
@comentarios,@codiestado)
select @CodPer=Cod_Personal from Personal where Cod_Personal=@Cod_Personals
go
declare @cod char(10)
exec uSp_personal_insert @Cod output ,'ccffff','martinez','miguel','doc01','40303678','1','02-02-1979','EC01','GI04','Re02','Id03','Ingles','Pa008','De014','Pro0008','Lima1','calle las camelias 185','CAR03','5346248','1245','9999999999','
[email protected]','142578452','Cu003','Ba003','Mo06','458745874587','02-02-2010','su licencia de conducir es a2','est01'
mi pregunta es como represento ese output de codper en mi capa de la logica para insertar
asi tengo mi clase
Public Sub Insert(ByVal item As Personal)
Try
Dim param() As String = {item.CodPer, item.CodDocu, item.CodSex, item.CodCargo, item.CodEstado, item.CodEstCivil, item.CodGrado,
item.CodReligion, item.CodIdioma, item.CodPais, item.CodDepart, item.CodProv,
item.codtipocuenta, item.codbanco, item.codmoneda, item.numcuenta, item.NomPer, item.ApePPer, item.ApeMPer, item.NumDocu, item.FecNacPer, item.IdiomaSec,
item.DirPer, item.CodPostalPer, item.TelPer, item.extension, item.Tel2Per, item.EmailPer, item.licenciaconducir,
item.FecNacIngresoPer, item.Comentario}
Me.ExecuteNomQuery("usp_Personal_Insert", param)
Catch ex As Exception
Throw ex
End Try
End Sub
me faltan algunos campos, eso no es el problema sino como te digo,¿como hago aqui con el output ya que el codigo se autogenera en mi sp ?
¿¡¡y en mi capa de reglas tambien cambia en algo???
Public Shared Sub Insert(ByVal item As Personal)
Try
obj.Insert(item)
Catch ex As Exception
Throw ex
End Try
End Sub
gracias