Última modificação por FlowFast em 2025/01/30 14:28
Mostrar últimos autores
1 (((
2 {{html clean="false"}}
3 <iframe width="730" height="410" src="https://www.youtube.com/embed/IJ3_ddYQexE?si=T_ABy7o9JUflVNvU" title="YouTube video player" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe>
4 {{/html}}
5 )))
6
7 === Comando utilizado no retorno da navegação ===
8
9 ==== POSTGRES ====
10
11 (((
12 {{code language="SQL" layout="LINENUMBERS"}}
13 DECLARE
14 r record;
15 BEGIN
16 FOR r IN (SELECT l.seq_linha
17 ,lag(l.seq_linha, 1, 0) over(ORDER BY l.seq_linha) seq_ant
18 ,upper(l.cod_coluna) cod_coluna
19 ,l.vlr_coluna
20 ,l.des_coluna
21 ,l.dta_coluna
22 FROM xcp_exec_dados l
23 WHERE l.seq_execucao = {XCP_SEQ_EXECUCAO_OBJ}
24 ORDER BY l.seq_linha)
25 LOOP
26 IF r.seq_linha > r.seq_ant THEN
27 execute WFL_FORM_ADD_PRC({XCP_SEQ_EXECUCAO} , 'FORM_ITENS');
28 END IF;
29
30 IF r.cod_coluna = 'COD_ITEM' THEN
31 execute WFL_FORM_SET_VLR_PRC({XCP_SEQ_EXECUCAO} , 'FORM_ITENS', 'COD_ITEM', r.vlr_coluna);
32 ELSIF r.cod_coluna = 'QTD_ITEM' THEN
33 execute WFL_FORM_SET_VLR_PRC({XCP_SEQ_EXECUCAO} , 'FORM_ITENS', 'QTD_NOTA', r.vlr_coluna);
34 ELSIF r.cod_coluna = 'VLR_ITEM' THEN
35 execute WFL_FORM_SET_VLR_PRC({XCP_SEQ_EXECUCAO} , 'FORM_ITENS', 'VLR_UNI', r.vlr_coluna);
36 END IF;
37
38 END LOOP;
39 END;
40 {{/code}}
41 )))
42
43 ==== ORACLE ====
44
45 (((
46 {{code language="SQL" layout="LINENUMBERS"}}
47 DECLARE
48
49 BEGIN
50 FOR r IN (SELECT l.seq_linha
51 ,lag(l.seq_linha, 1, 0) over(ORDER BY l.seq_linha) seq_ant
52 ,upper(l.cod_coluna) cod_coluna
53 ,l.vlr_coluna
54 ,l.des_coluna
55 ,l.dta_coluna
56 FROM xcp_exec_dados l
57 WHERE l.seq_execucao = {XCP_SEQ_EXECUCAO_OBJ}
58 ORDER BY l.seq_linha)
59 LOOP
60 IF r.seq_linha > r.seq_ant THEN
61 WFL_FORM_ADD_PRC({XCP_SEQ_EXECUCAO} , 'FORM_ITENS');
62 END IF;
63
64 IF r.cod_coluna = 'COD_ITEM' THEN
65 WFL_FORM_SET_VLR_PRC({XCP_SEQ_EXECUCAO} , 'FORM_ITENS', 'COD_ITEM', r.vlr_coluna);
66 ELSIF r.cod_coluna = 'QTD_ITEM' THEN
67 WFL_FORM_SET_VLR_PRC({XCP_SEQ_EXECUCAO} , 'FORM_ITENS', 'QTD_NOTA', r.vlr_coluna);
68 ELSIF r.cod_coluna = 'VLR_ITEM' THEN
69 WFL_FORM_SET_VLR_PRC({XCP_SEQ_EXECUCAO} , 'FORM_ITENS', 'VLR_UNI', r.vlr_coluna);
70 END IF;
71
72 END LOOP;
73 END;
74 {{/code}}
75 )))