Skip to content

Instantly share code, notes, and snippets.

Avatar
🎯
Focusing

Anderson da Silva AndyDaSilva52

🎯
Focusing
View GitHub Profile
@AndyDaSilva52
AndyDaSilva52 / [MGCLI]_[TRIGGER]_[T_CLI_FIN_MOVIMENTO].sql
Last active Aug 4, 2020
#MegaERP - Financeiro - Trigger para não deixar duplicar movimento vinculado no Contas à Receber
View [MGCLI]_[TRIGGER]_[T_CLI_FIN_MOVIMENTO].sql
create or replace trigger MGCLI.T_CLI_FIN_MOVIMENTO
for insert or update on MGFIN.FIN_MOVIMENTO
compound trigger
vOwner sys.all_objects.owner%type := 'MGCLI';
vObjeto sys.all_objects.object_name%type := 'T_CLI_FIN_MOVIMENTO';
type typ_cli_rc_movimentos is record(
ORG_TAB_IN_CODIGO mgfin.fin_movimento.org_tab_in_codigo%type,
ORG_PAD_IN_CODIGO mgfin.fin_movimento.org_pad_in_codigo%type,
@AndyDaSilva52
AndyDaSilva52 / [MGCLI]_[PROCEDURE]_[P_EST_RECEBNFE_AGUARDANDO].sql
Created Jan 16, 2020
#MegaERP - Materiais - Gerenciamento NFe - Atualizar dados dos registros nao baixados no Gerenciador de NFe com informacoes da Chave para identificar
View [MGCLI]_[PROCEDURE]_[P_EST_RECEBNFE_AGUARDANDO].sql
create or replace PROCEDURE P_EST_RECEBNFE_AGUARDANDO AS
vAGN_IN_CODIGO MGADM.EST_RECEBIMENTONFE.AGN_IN_CODIGO%TYPE;
vHOST_NAME VARCHAR(250);
BEGIN
/**
AGS - 14/05/2017 -
Atualizar dados dos registros não baixados no Gerenciador de NFe com informações da Chave para identificar:
Nota Fiscal / Série / Modelo
Agente (CNPJ / UF)
*/
@AndyDaSilva52
AndyDaSilva52 / [MGCLI]_[TRIGGER]_[T_CLI_EST_ITENSPEDPROGR].sql
Created Dec 18, 2019
#MegaERP - Materiais - Pedido de Compra - Trigger para impedir baixar Programação de Entrega no PRESENTE/FUTURO enquanto existe Programação em Aberto no PASSADO
View [MGCLI]_[TRIGGER]_[T_CLI_EST_ITENSPEDPROGR].sql
CREATE OR REPLACE TRIGGER "MGCLI"."T_CLI_EST_ITENSPEDPROGR"
FOR INSERT OR UPDATE ON MGADM.EST_ITENSPEDPROGRAMADOS
COMPOUND TRIGGER
vOrigem MGCLI.MAIL_LOG_GENERICO.BI_ST_ORIGEM%TYPE := 'MGCLI.T_CLI_EST_ITENSPEDPROGR';
TYPE TYP_CLI_RC_ITNPDCPROG IS RECORD (
ORG_TAB_IN_CODIGO MGADM.EST_ITENSPEDPROGRAMADOS.ORG_TAB_IN_CODIGO%TYPE,
ORG_PAD_IN_CODIGO MGADM.EST_ITENSPEDPROGRAMADOS.ORG_PAD_IN_CODIGO%TYPE,
ORG_IN_CODIGO MGADM.EST_ITENSPEDPROGRAMADOS.ORG_IN_CODIGO%TYPE,
@AndyDaSilva52
AndyDaSilva52 / [MGCUSTOM]_[TRIGGER]_[T_CUS_FIN_BLOQ_MOVTO].sql
Last active Aug 4, 2020
#MegaERP - Trigger para não permitir inserir movimento financeiro em Conta Financeira quando Data do Movimento menor que Maior Data de Movimento Conciliado #Mega #MegaERP
View [MGCUSTOM]_[TRIGGER]_[T_CUS_FIN_BLOQ_MOVTO].sql
create or replace trigger T_CUS_FIN_BLOQ_MOVTO
for insert or update on MGFIN.FIN_MOVIMENTO
compound trigger
TYPE TYP_CUS_RC_FINMOV IS RECORD(
ORG_TAB_IN_CODIGO MGFIN.FIN_MOVIMENTO.ORG_TAB_IN_CODIGO%TYPE,
ORG_PAD_IN_CODIGO MGFIN.FIN_MOVIMENTO.ORG_PAD_IN_CODIGO%TYPE,
ORG_IN_CODIGO MGFIN.FIN_MOVIMENTO.ORG_IN_CODIGO%TYPE,
ORG_TAU_ST_CODIGO MGFIN.FIN_MOVIMENTO.ORG_TAU_ST_CODIGO%TYPE,
agn_tab_in_codigo MGFIN.FIN_MOVIMENTO.agn_tab_in_codigo%TYPE,
@AndyDaSilva52
AndyDaSilva52 / [MGCLI]_[TRIGGER]_[T_CLI_GLO_AGENTES_ID].sql
Last active Aug 4, 2020
#MegaERP - Trigger para validações no Cadastro de Agentes (AGN_IN_CODIGO) por Tipo (AGN_TAU_ST_CODIGO) #Mega
View [MGCLI]_[TRIGGER]_[T_CLI_GLO_AGENTES_ID].sql
CREATE OR REPLACE TRIGGER "MGCLI"."T_CLI_GLO_AGENTES_ID"
BEFORE UPDATE ON MGGLO.GLO_AGENTES_ID
REFERENCING OLD AS OLD NEW AS NEW
FOR EACH ROW
BEGIN
FOR cMOV IN (
SELECT MOV_DT_EMISSAO, MOV_ST_TABELA FROM (
SELECT FRE_DT_EMISSAO MOV_DT_EMISSAO, 'Financeiro - Contas a Receber' MOV_ST_TABELA FROM mgfin.fin_faturareceber WHERE agn_in_codigo = :NEW.AGN_IN_CODIGO and agn_tau_st_codigo = :new.agn_tau_st_codigo AND fre_dt_emissao < :NEW.AGN_DT_INICIOMOV AND fre_dt_emissao = (SELECT MIN(fre_dt_emissao) from mgfin.fin_faturareceber where agn_in_codigo = :NEW.agn_in_codigo and agn_tau_st_codigo = :NEW.agn_tau_st_codigo) and rownum <= 1
@AndyDaSilva52
AndyDaSilva52 / [MGCLI]_[PACKAGE]_[CLI_PCK_API_RECEITAWS].sql
Last active Aug 4, 2020
Package que permite realizar consultas pela API ReceitaWS (https://www.receitaws.com.br/api)
View [MGCLI]_[PACKAGE]_[CLI_PCK_API_RECEITAWS].sql
CREATE OR REPLACE PACKAGE "MGCLI"."CLI_PCK_API_RECEITAWS" AS
-- https://www.receitaws.com.br/v1/cnpj/[cnpj]
FUNCTION F_CNPJ(pCNPJ MGGLO.GLO_AGENTES.AGN_ST_CGC%TYPE) RETURN CLOB;
-- https://www.receitaws.com.br/v1/cnpj/[cnpj]
PROCEDURE P_CNPJ(pCNPJ MGGLO.GLO_AGENTES.AGN_ST_CGC%TYPE);
END CLI_PCK_API_RECEITAWS;
@AndyDaSilva52
AndyDaSilva52 / MGCLI.CLI_VW_EST_MOVSUM_RESERVA.sql
Last active Aug 4, 2020
#MegaERP - View que mostra a Origem da Reserva de Estoque #Mega
View MGCLI.CLI_VW_EST_MOVSUM_RESERVA.sql
CREATE OR REPLACE FORCE VIEW "MGCLI"."CLI_VW_EST_MOVSUM_RESERVA" ("RN", "FIL_IN_CODIGO", "PRO_IN_CODIGO", "MVS_IN_RESERVA", "MVS_RE_QUANTIDADE", "RSV_CH_ORIGEM", "RSV_CH_ORIGEMDESC", "RSV_ST_DOCUMENTO", "RSV_DT_DOCUMENTO", "RSV_DT_MOVIMENTO", "RSV_ST_SITUACAO") AS
SELECT
"RN",
"FIL_IN_CODIGO",
"PRO_IN_CODIGO",
"MVS_IN_RESERVA",
"MVS_RE_QUANTIDADE",
"RSV_CH_ORIGEM",
CASE rsv_ch_origem
@AndyDaSilva52
AndyDaSilva52 / MGCLI.T_CLI_EST_RECEB_NFE_CANCELADA.sql
Last active Aug 4, 2020
#MegaERP - Trigger para não permitir lançar Nota Fiscal que está Cancelada no Gerenciamento de NFe #Mega
View MGCLI.T_CLI_EST_RECEB_NFE_CANCELADA.sql
CREATE OR REPLACE TRIGGER MGCLI.T_CLI_EST_RECEB_NFE_CANCELADA
BEFORE INSERT OR UPDATE ON MGADM.EST_RECEBIMENTO
REFERENCING OLD AS OLD NEW AS NEW
FOR EACH ROW
WHEN (NEW.RCB_ST_CHAVEACESSO IS NOT NULL AND SUBSTR(NEW.RCB_ST_CHAVEACESSO,21,2) IN ('55'))
DECLARE
vCANCELADO CHAR(1) := 'N';
BEGIN
BEGIN
SELECT 'S'
@AndyDaSilva52
AndyDaSilva52 / MGCLI.T_CLI_GLO_AGENDAINTMULTI.sql
Created Jul 30, 2019
#Mega Agendas de Integração - TRIGGER definir sempre um usuário fixo que é utilizado na integração dos movimentos - Modelo que permite múltiplas agendas rodando ao mesmo tempo em diferentes servidores#MegaERP
View MGCLI.T_CLI_GLO_AGENDAINTMULTI.sql
create or replace TRIGGER MGCLI.T_CLI_GLO_AGENDAINTMULTI
BEFORE INSERT OR UPDATE ON MGGLO.GLO_AGENDAINTMULTI
REFERENCING OLD AS OLD NEW AS NEW
FOR EACH ROW
BEGIN
:NEW.AIM_IN_USUARIOINTEGRA := 1;
END;
@AndyDaSilva52
AndyDaSilva52 / MGTRF.TRF_SERIEDOCFIS_Incluir_em_Lote.sql
Last active Jul 26, 2019
#Mega #Tributos - Série/Subsérie - Gera INSERT pra incluir todas as numerações entre 1 e 999 para o cadastro de série do Tributos #MegaERP
View MGTRF.TRF_SERIEDOCFIS_Incluir_em_Lote.sql
SELECT
SEQ.RESULT SER_ST_CODIGO, 'INSERT INTO MGTRF.TRF_SERIEDOCFIS(ser_st_codigo, ser_st_descricao,ser_st_seriesintegra) '
|| 'SELECT '''||
SEQ.RESULT
||''' SER_ST_CODIGO, ''Série '|| LPAD(SEQ.RESULT,3,'0') || ''' SER_ST_DESCRICAO, '''|| SEQ.RESULT ||''' SER_ST_SERIESINTEGRA '
|| 'FROM DUAL WHERE '''|| SEQ.RESULT ||''' NOT IN (SELECT T.SER_ST_CODIGO FROM MGTRF.TRF_SERIEDOCFIS T); COMMIT;'
"INS"
FROM MGTRF.TRF_SERIEDOCFIS A
RIGHT JOIN (
select result from
You can’t perform that action at this time.