insert into reg.Tablas (cIdTabla,cDescripcion,cAbrev,cValor) values
('0100','TIPOS DE DOCUMENTO DE INDENTIFICACION','TipoDoc',''),
('0101','DNI','DNI',''),
('0102','PARTIDA DE NACIMIENTO','P. NAC',''),
('0103','PASAPORTE','PASS','')
go
insert into reg.Tablas (cIdTabla,cDescripcion,cAbrev,cValor) values
('0200','ESTADOS CIVILES','EstCiv',''),
('0201','SOLTERO(A)','SOLT',''),
('0202','CASADO(A)','CAS',''),
('0203','VIUDO(A)','VIU',''),
('0204','DIVORCIADO(A)','DIVOR','')
go
insert into reg.Parametros(cIdParametro,cParametro,cValor) values
('IdCliente','Identificador de Clientes','0000000')
go
insert into reg.Agencia(cIdAgencia,cAgencia,cDireccion,dFechaReg) values
('001','OFICINA PRINCIPAL','Plaza de Armas',GETDATE())
go
insert into reg.Tablas (cIdTabla,cDescripcion,cAbrev,cValor) values
('0100','TIPOS DE DOCUMENTO DE INDENTIFICACION','TipoDoc',''),
('0101','DNI','DNI',''),
('0102','PARTIDA DE NACIMIENTO','P. NAC',''),
('0103','PASAPORTE','PASS','')
go
insert into reg.Tablas (cIdTabla,cDescripcion,cAbrev,cValor) values
('0200','ESTADOS CIVILES','EstCiv',''),
('0201','SOLTERO(A)','SOLT',''),
('0202','CASADO(A)','CAS',''),
('0203','VIUDO(A)','VIU',''),
('0204','DIVORCIADO(A)','DIVOR','')
go
insert into reg.Parametros(cIdParametro,cParametro,cValor) values
('IdCliente','Identificador de Clientes','0000000')
go
insert into reg.Agencia(cIdAgencia,cAgencia,cDireccion,dFechaReg) values
('001','OFICINA PRINCIPAL','Plaza de Armas',GETDATE())
go
create procedure reg.SpReg_ListarTabla (@cIdTabla char(4))
as
begin
set nocount on
select cIdTabla, cDescripcion from reg.Tablas where cIdTabla like concat(left(@cIdTabla,2),'%') and cIdTabla <> @cIdTabla
end
go
create procedure reg.SpReg_DevSecuenciaParametro (@cIdParametro varchar(15), @iTam int)
as
begin
set nocount on
select 'Valor' = right(concat('0000000000',cast(cValor as int) + 1), @iTam) from reg.Parametros where cIdParametro = @cIdParametro
end
go
create procedure reg.SpReg_GuardarSecuenciaParametro (@cIdParametro varchar(15), @cValor varchar(10))
as
begin
update reg.Parametros set cValor=@cValor where cIdParametro = @cIdParametro
end
go
create procedure reg.SpReg_RegistrarCliente
(
@cIdCliente char(7)
,@cIdTipoDocu char(4)
,@cNroDocu varchar(12)
,@cApePat varchar(45)
,@cApeMat varchar(45)
,@cNombres varchar(50)
,@dFechaNac date
,@cSexo char(1)
,@cIdEstCivil char(4)
,@cDireccion varchar(80)
,@cTelefono varchar(15)
,@cIdAgencia char(3)
,@cIdUser char(6)
)
as
begin
insert into reg.Cliente
(cIdCliente
,cIdTipoDocu
,cNroDocu
,cApePat
,cApeMat
,cNombres
,dFechaNac
,cSexo
,cIdEstCivil
,cDireccion
,cTelefono
,dFechaIngreso
,dFechaReg
,cHoraReg
,cIdAgencia
,cIdUser)
values
(@cIdCliente
,@cIdTipoDocu
,@cNroDocu
,@cApePat
,@cApeMat
,@cNombres
,@dFechaNac
,@cSexo
,@cIdEstCivil
,@cDireccion
,@cTelefono
,getdate()
,getdate()
,CONVERT(varchar(8),getdate(),108)
,@cIdAgencia
,@cIdUser)
end
go