Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

TEST #28

Open
wants to merge 5 commits into
base: main
Choose a base branch
from
Open

TEST #28

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
2a97f19
Update README.md
vtrsc May 29, 2023
c4f31b6
Create EXEMPLOS SQL
vtrsc Sep 19, 2023
4b3d380
Update README.md
vtrsc Sep 22, 2023
1e8015b
Create Recursivo.sql
vtrsc Sep 22, 2023
32e6e6d
Update README.md
vtrsc Sep 22, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
197 changes: 197 additions & 0 deletions EXEMPLOS SQL
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,197 @@
Exemplos de SQL
SQL Recursivo de CRs

1

/*Exemplo 1*/

2



3

SELECT CONCAT(LPAD(' ',LEVEL*3-3),VW.CODUNIDADM || '.' || VW.NOMEUNIDADM) AS DESCRICAO

4

,DECODE(TIPOGRUPO,'S','SECRETARIA','D','DEPARTAMENTO','G','GERENCIA','E','ENCARREGATURA',TIPOGRUPO) AS TIPOGRUPO

5

,CODGRUPO AS CR_PAI

6

,CODUNIDADM AS CR

7

,LEVEL

8

FROM (SELECT *

9

FROM CR M

10

WHERE TO_NUMBER(M.CODUNIDADM) NOT IN (40413,40823)) VW

11

CONNECT BY PRIOR TO_NUMBER(VW.CODUNIDADM) = TO_NUMBER(VW.CODGRUPO)

12

START WITH TO_NUMBER(VW.CODGRUPO) >= 0;

13



14



15

/*Exemplo 2 - Com os Responsaveis*/

16



17

SELECT COD_CR_PAI AS CR_PAI

18

,COD_CR AS CR

19

,CONCAT(LPAD('.',LEVEL*5-5,'.'),VW.COD_CR || '.' || VW.DSC_CR) AS DESCRICAO

20

,DSC_CR_ABREVIACAO AS ABREVIACAO

21

,DSC_CR_SIGLA AS SIGLA

22

,DECODE(IND_TIPO,'S','SECRETARIA','D','DEPARTAMENTO','G','GERENCIA','E','ENCARREGATURA','P','PREFETURA MUNICIPAL',IND_TIPO)

23

AS TIPO

24

,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 0)

25

AS PREFEITO

26

,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 1)

27

AS SECRETARIO

28

,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 2)

29

AS DIRETOR

30

,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 3)

31

AS ASSISTENTE

32

,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 4)

33

AS GERENTE

34

FROM (SELECT M.COD_CR

35

,M.COD_CR_PAI AS COD_CR_PAI

36

,M.DSC_CR

37

,M.DSC_CR_ABREVIACAO

38

,M.DSC_CR_SIGLA

39

,M.IND_TIPO

40

,M.COD_RESPONSAVEL_1

41

,M.COD_RESPONSAVEL_2

42

FROM BDM_CR M

43

WHERE M.COD_CR NOT IN (40413,40823)

44

AND M.DTA_EXCLUSAO IS NULL) VW

45

CONNECT BY PRIOR VW.COD_CR = TO_NUMBER(VW.COD_CR_PAI)

46

START WITH TO_NUMBER(VW.COD_CR_PAI) >= 0

47

AND TO_NUMBER(VW.COD_CR) = 10000;

48




Resultados
5 changes: 4 additions & 1 deletion README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1,4 @@
# pizza-query




48 changes: 48 additions & 0 deletions dia02/Recursivo.sql
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,48 @@
/*Exemplo 1*/

SELECT CONCAT(LPAD(' ',LEVEL*3-3),VW.CODUNIDADM || '.' || VW.NOMEUNIDADM) AS DESCRICAO
,DECODE(TIPOGRUPO,'S','SECRETARIA','D','DEPARTAMENTO','G','GERENCIA','E','ENCARREGATURA',TIPOGRUPO) AS TIPOGRUPO
,CODGRUPO AS CR_PAI
,CODUNIDADM AS CR
,LEVEL
FROM (SELECT *
FROM CR M
WHERE TO_NUMBER(M.CODUNIDADM) NOT IN (40413,40823)) VW
CONNECT BY PRIOR TO_NUMBER(VW.CODUNIDADM) = TO_NUMBER(VW.CODGRUPO)
START WITH TO_NUMBER(VW.CODGRUPO) >= 0;


/*Exemplo 2 - Com os Responsaveis*/

SELECT COD_CR_PAI AS CR_PAI
,COD_CR AS CR
,CONCAT(LPAD('.',LEVEL*5-5,'.'),VW.COD_CR || '.' || VW.DSC_CR) AS DESCRICAO
,DSC_CR_ABREVIACAO AS ABREVIACAO
,DSC_CR_SIGLA AS SIGLA
,DECODE(IND_TIPO,'S','SECRETARIA','D','DEPARTAMENTO','G','GERENCIA','E','ENCARREGATURA','P','PREFETURA MUNICIPAL',IND_TIPO)
AS TIPO
,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 0)
AS PREFEITO
,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 1)
AS SECRETARIO
,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 2)
AS DIRETOR
,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 3)
AS ASSISTENTE
,(SELECT RTRIM(XMLAGG(XMLELEMENT(E,C.DSC_NOME_SERVIDOR || chr(10))).EXTRACT('//text()'), chr(10)) FROM BDM_CR_RESPONSAVEIS C WHERE COD_LOTACAO = COD_CR AND NIVEL = 4)
AS GERENTE
FROM (SELECT M.COD_CR
,M.COD_CR_PAI AS COD_CR_PAI
,M.DSC_CR
,M.DSC_CR_ABREVIACAO
,M.DSC_CR_SIGLA
,M.IND_TIPO
,M.COD_RESPONSAVEL_1
,M.COD_RESPONSAVEL_2
FROM BDM_CR M
WHERE M.COD_CR NOT IN (40413,40823)
AND M.DTA_EXCLUSAO IS NULL) VW
CONNECT BY PRIOR VW.COD_CR = TO_NUMBER(VW.COD_CR_PAI)
START WITH TO_NUMBER(VW.COD_CR_PAI) >= 0
AND TO_NUMBER(VW.COD_CR) = 10000;