423031_MXMDSSED_MXMDSSED

Esta es una vista previa del archivo. Inicie sesión para ver el archivo original

PROMPT ======================================================================
	PROMPT == DEMANDA......: 423031
	PROMPT == SISTEMA......: Sistema de Gestao de Editora
	PROMPT == RESPONSAVEL..: FRANCESCO DA SILVA
	PROMPT == DATA.........: 20/09/2022
	PROMPT == BASE.........: MXMDSSED
	PROMPT == OWNER DESTINO: MXMDSSED
	PROMPT ======================================================================
	
	SET DEFINE OFF;
	
	alter table SDEOBRAS_OBR add OBR_DTCWR DATE
	/
	
	COMMENT ON COLUMN SDEOBRAS_OBR.OBR_DTCWR IS 'Data de exportação do CWR'
	/
	
	create or replace PROCEDURE PRC_INSSDEOBRAS_OBR(
	 POBR_IDOBRA IN OUT NUMBER
		POBR_CDOBRA IN OUT NUMBER
		POBR_DSOBRA IN CHAR
		POBR_RFTPVERSAO IN NUMBER
		POBR_RFTPOBRACOMPOSTA IN NUMBER
		POBR_RFIDIOMAOBRA IN NUMBER
		POBR_RFCATEGORIACWR IN NUMBER
		POBR_TPESTILOMUSICAL IN CHAR DEFAULT NULL
		POBR_VBGRAVADA IN CHAR
		POBR_VBINSTRUMENTAL IN CHAR
		POBR_VBINATIVA IN CHAR
		POBR_VBNASOCIEDADE IN CHAR
		POBR_VBINTERNACIONAL IN CHAR
		POBR_VBDOMINIOPUB IN CHAR
		POBR_VBADMINISTRADA IN CHAR
		POBR_DTREGISTRO IN DATE
		POBR_DSOBSERVACAO IN CHAR DEFAULT NULL
		POBR_VBRETBLOQUEADA IN CHAR
		POBR_VBRETDUPLICIDADE IN CHAR
		POBR_VBRETNAUTORIZADO IN CHAR
		POBR_USINATIVACAO IN CHAR DEFAULT NULL
		POBR_DTINATIVACAO IN DATE DEFAULT NULL
		POBR_DTADSOCIEDADE IN DATE DEFAULT NULL
		POBR_DSLETRA IN LONG DEFAULT NULL
		POBR_CDISWC IN CHAR DEFAULT NULL
		POBR_DTCWR IN DATE DEFAULT NULL
	)
	AS
	BEGIN
	 IF (POBR_IDOBRA IS NULL)
	 OR (POBR_IDOBRA = 0)
	 THEN
	 SELECT SEQ1_SDEOBRAS_OBR.NEXTVAL INTO POBR_IDOBRA FROM DUAL;
	 END IF;
	 IF (POBR_CDOBRA IS NULL)
	 OR(POBR_CDOBRA = 0)
	 THEN
	 SELECT NVL(MAX(OBR_CDOBRA)	1) + 1 INTO POBR_CDOBRA FROM SDEOBRAS_OBR;
	 END IF;
	 INSERT INTO SDEOBRAS_OBR(
	 OBR_IDOBRA
	 	OBR_CDOBRA
	 	OBR_DSOBRA
	 	OBR_RFTPVERSAO
	 	OBR_RFTPOBRACOMPOSTA
	 	OBR_RFIDIOMAOBRA
	 	OBR_RFCATEGORIACWR
	 	OBR_TPESTILOMUSICAL
	 	OBR_VBGRAVADA
	 	OBR_VBINSTRUMENTAL
	 	OBR_VBINATIVA
	 	OBR_VBNASOCIEDADE
	 	OBR_VBINTERNACIONAL
	 	OBR_VBDOMINIOPUB
	 	OBR_VBADMINISTRADA
	 	OBR_DTREGISTRO
	 	OBR_DSOBSERVACAO
	 	OBR_VBRETBLOQUEADA
	 	OBR_VBRETDUPLICIDADE
	 	OBR_VBRETNAUTORIZADO
	 	OBR_USINCLUSAO
	 	OBR_DTINCLUSAO
	 	OBR_USINATIVACAO
	 	OBR_DTINATIVACAO
	 	OBR_DTADSOCIEDADE
	 	OBR_DSLETRA
	 	OBR_CDISWC
	 	OBR_DTCWR
	) VALUES (
	 POBR_IDOBRA
	 	POBR_CDOBRA
	 	POBR_DSOBRA
	 	POBR_RFTPVERSAO
	 	POBR_RFTPOBRACOMPOSTA
	 	POBR_RFIDIOMAOBRA
	 	POBR_RFCATEGORIACWR
	 	POBR_TPESTILOMUSICAL
	 	POBR_VBGRAVADA
	 	POBR_VBINSTRUMENTAL
	 	POBR_VBINATIVA
	 	POBR_VBNASOCIEDADE
	 	POBR_VBINTERNACIONAL
	 	POBR_VBDOMINIOPUB
	 	POBR_VBADMINISTRADA
	 	POBR_DTREGISTRO
	 	POBR_DSOBSERVACAO
	 	POBR_VBRETBLOQUEADA
	 	POBR_VBRETDUPLICIDADE
	 	POBR_VBRETNAUTORIZADO
	 	GET_USER_MXM
	 	SYSDATE
	 	POBR_USINATIVACAO
	 	POBR_DTINATIVACAO
	 	POBR_DTADSOCIEDADE
	 	POBR_DSLETRA
	 	POBR_CDISWC
	 	POBR_DTCWR
	);
	END;
	/
	
	create or replace PROCEDURE PRC_ALTSDEOBRAS_OBR(
	 POBR_IDOBRA IN NUMBER
		POBR_CDOBRA IN NUMBER
		POBR_DSOBRA IN CHAR
		POBR_RFTPVERSAO IN NUMBER
		POBR_RFTPOBRACOMPOSTA IN NUMBER
		POBR_RFIDIOMAOBRA IN NUMBER
		POBR_RFCATEGORIACWR IN NUMBER
		POBR_TPESTILOMUSICAL IN CHAR DEFAULT NULL
		POBR_VBGRAVADA IN CHAR
		POBR_VBINSTRUMENTAL IN CHAR
		POBR_VBINATIVA IN CHAR
		POBR_VBNASOCIEDADE IN CHAR
		POBR_VBINTERNACIONAL IN CHAR
		POBR_VBDOMINIOPUB IN CHAR
		POBR_VBADMINISTRADA IN CHAR
		POBR_DTREGISTRO IN DATE
		POBR_DSOBSERVACAO IN CHAR DEFAULT NULL
		POBR_VBRETBLOQUEADA IN CHAR
		POBR_VBRETDUPLICIDADE IN CHAR
		POBR_VBRETNAUTORIZADO IN CHAR
		POBR_USINATIVACAO IN CHAR DEFAULT NULL
		POBR_DTINATIVACAO IN DATE DEFAULT NULL
		POBR_DTADSOCIEDADE IN DATE DEFAULT NULL
		POBR_DSLETRA IN LONG DEFAULT NULL
		POBR_CDISWC IN CHAR DEFAULT NULL
		POBR_DTCWR IN DATE DEFAULT NULL
	)
	AS
	BEGIN
	 UPDATE SDEOBRAS_OBR
	 SET OBR_IDOBRA = POBR_IDOBRA
	 	OBR_CDOBRA = POBR_CDOBRA
	 	OBR_DSOBRA = POBR_DSOBRA
	 	OBR_RFTPVERSAO = POBR_RFTPVERSAO
	 	OBR_RFTPOBRACOMPOSTA = POBR_RFTPOBRACOMPOSTA
	 	OBR_RFIDIOMAOBRA = POBR_RFIDIOMAOBRA
	 	OBR_RFCATEGORIACWR = POBR_RFCATEGORIACWR
	 	OBR_TPESTILOMUSICAL = POBR_TPESTILOMUSICAL
	 	OBR_VBGRAVADA = POBR_VBGRAVADA
	 	OBR_VBINSTRUMENTAL = POBR_VBINSTRUMENTAL
	 	OBR_VBINATIVA = POBR_VBINATIVA
	 	OBR_VBNASOCIEDADE = POBR_VBNASOCIEDADE
	 	OBR_VBINTERNACIONAL = POBR_VBINTERNACIONAL
	 	OBR_VBDOMINIOPUB = POBR_VBDOMINIOPUB
	 	OBR_VBADMINISTRADA = POBR_VBADMINISTRADA
	 	OBR_DTREGISTRO = POBR_DTREGISTRO
	 	OBR_DSOBSERVACAO = POBR_DSOBSERVACAO
	 	OBR_VBRETBLOQUEADA = POBR_VBRETBLOQUEADA
	 	OBR_VBRETDUPLICIDADE = POBR_VBRETDUPLICIDADE
	 	OBR_VBRETNAUTORIZADO = POBR_VBRETNAUTORIZADO
	 	OBR_USALTERACAO = GET_USER_MXM
	 	OBR_DTALTERACAO = SYSDATE
	 	OBR_USINATIVACAO = POBR_USINATIVACAO
	 	OBR_DTINATIVACAO = POBR_DTINATIVACAO
	 	OBR_DTADSOCIEDADE = POBR_DTADSOCIEDADE
	 	OBR_DSLETRA = POBR_DSLETRA
	 	OBR_CDISWC = POBR_CDISWC
	 	OBR_DTCWR = POBR_DTCWR
	 WHERE OBR_IDOBRA = POBR_IDOBRA;
	END;
	/
	
	COMMIT;
	
	PROMPT ======================================================================
	PROMPT == FIM 423031
	PROMPT ======================================================================