Hola mundo

Solo disponible en BuenasTareas
  • Páginas : 2 (435 palabras )
  • Descarga(s) : 0
  • Publicado : 4 de diciembre de 2011
Leer documento completo
Vista previa del texto
------------------------ INSERTAR CARGOS DE TECFLEX A GLOBAL ------------------------------

declare @CCOD_EMP as char (4)
DECLARE @COD_CARGO AS CHAR(8)
DECLARE @CDSC_CARGO AS CHAR(80)
DECLARE@ESTADO AS BIT
-- declaramos un cursor
declare CURSOR1 cursor for
select cod_CARGO,DSC_CARGO from ASISTENCIA.dbo.Cargo

open CURSOR1
-- Avanzamos un registro
fetch nextfrom CURSOR1
into @cod_CARGO,@CDSC_CARGO
while @@fetch_status = 0
begin
SET @CCOD_EMP = 'E001'
SET @ESTADO = 1

IF EXISTS(SELECT CCOD_CARGO FROM dbo.I20_CARGO_TL WHERE CCOD_CARGO =@COD_CARGO )
PRINT 'EL CARGO YA ESTA REGISTRADO'

ELSE

INSERT INTO E001.dbo.I20_CARGO_TL(CCOD_EMP,
CCOD_CARGO,
CDSC_CARGO,
CUSR_CRT,
CUSR_UPD,
CWS_CRT,
CWS_UPD,FFCH_CRT,
FFCH_UPD,
BESTADO,
CDSC_ENGLISH)
VALUES(@CCOD_EMP,
@cod_CARGO,
@CDSC_CARGO,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
@ESTADO,
NULL)

--Avanzamos otro registro
fetch next from CURSOR1
into @COD_CARGO, @CDSC_CARGO
end
-- cerramos el cursor
close CURSOR1
deallocate CURSOR1--------------------------------- MODIFICAR CARGOS ------------------------------

create trigger A_CARGO
on asistencia.dbo.Cargo
for update as
if update(dsc_cargo)
begin
update e001.dbo.I20_CARGO_TL
setcdsc_cargo = inserted.DSC_CARGO
from e001.dbo.I20_CARGO_TL, deleted, inserted
where deleted.DSC_CARGO = e001.dbo.I20_CARGO_TL.CDSC_CARGO

end------------------------------- PROCEDIMIENTO PARA INSERTAR --------------------------

alter procedure insertar_cargo
as
begin

declare @CCOD_EMP as char (4)
DECLARE @COD_CARGO AS CHAR(8)
DECLARE @CDSC_CARGO ASCHAR(80)
DECLARE @ESTADO AS BIT
-- declaramos un cursor
declare CURSOR1 cursor for
select cod_CARGO,DSC_CARGO from ASISTENCIA.dbo.Cargo

open CURSOR1
-- Avanzamos un registro...
tracking img