Skip to main content
2 de 2
se añadieron 516 caracteres en el cuerpo
J. Castro
  • 2.5k
  • 8
  • 21
  • 32
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