Comandos para formulários

Versão 2.2 por FlowFast em 2025/01/27 09:53

Funções para manipular formulários

Função	Descrição
WFL_FORM_QTD_FNC(IN_SEQ_EXECUCAO, IN_FORM)	Retorna a quantidade de linhas presentes no formulário.
WFL_FORM_GET_IDX_FNC(IN_SEQ_EXECUCAO, IN_FORM)	Returna o índice da linha corrente do formulário, iniciando em 1.
WFL_FORM_SET_IDX_PRC(IN_SEQ_EXECUCAO, IN_FORM, IN_IDX)	Define o índice da linha corrente do formulário, iniciando em 1.
WFL_FORM_ADD_PRC(IN_SEQ_EXECUCAO, IN_FORM)	Adiciona uma linha no form e define o índice corrente já para a linha adicionada.
WFL_FORM_DEL_PRC(IN_SEQ_EXECUCAO, IN_FORM, IN_IDX)	Remover linha do form, onde índice inicial é 1.
WFL_FORM_GET_VLR_FNC(IN_SEQ_EXECUCAO, IN_FORM, IN_CAMPO)	Retorna o valor de um campo do tipo numérico da linha corrente.
WFL_FORM_GET_TXT_FNC(IN_SEQ_EXECUCAO, IN_FORM, IN_CAMPO)	Retorna o valor de um campo do tipo texto da linha corrente.
WFL_FORM_GET_DTA_FNC(IN_SEQ_EXECUCAO, IN_FORM, IN_CAMPO)	Retorna o valor de um campo do tipo data da linha corrente.
WFL_FORM_SET_VLR_PRC(IN_SEQ_EXECUCAO, IN_FORM, IN_CAMPO, IN_VALOR)	Define o valor de um campo do tipo numérico da linha corrente.
WFL_FORM_SET_TXT_PRC(IN_SEQ_EXECUCAO, IN_FORM, IN_CAMPO, IN_VALOR)	Define o valor de um campo do tipo texto da linha corrente.
WFL_FORM_SET_DTA_PRC(IN_SEQ_EXECUCAO, IN_FORM, IN_CAMPO, IN_VALOR)	Define o valor de um campo do tipo data da linha corrente.
WFL_FORM_GET_SUM_VLR_FNC(IN_SEQ_EXECUCAO, IN_FORM, IN_CAMPO)	Retorna o somatório de todas as linhas de um campo do tipo numérico.
WFL_FORM_SET_ALL_VLR_PRC(IN_SEQ_EXECUCAO, IN_FORM, IN_DES_CAMPO, IN_VALOR)	Define o valor de um campo do tipo numérico da linha corrente.
WFL_FORM_SET_ALL_TXT_PRC(IN_SEQ_EXECUCAO, IN_FORM, IN_DES_CAMPO, IN_VALOR)	Define o valor de um campo do tipo texto da linha corrente.
WFL_FORM_SET_ALL_DTA_PRC(IN_SEQ_EXECUCAO, IN_FORM, IN_DES_CAMPO, IN_VALOR)	Define o valor de um campo do tipo data da linha corrente.

Exemplos

Popular um formulário a partir de um select

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81

FOR c1 IN (SELECT a.SEQ_PROPOSTA,
  a.NUM_SEQ_ADESAO,
  a.COD_MAQUINA_ADESAO,
  a.TIP_REGISTRO,
  a.IND_REINGRESSO,
  a.IND_DECL_SAUDE,
  a.COD_OPERACAO,
  a.TIP_MOVIMENTO,
  a.TIP_LEI,
  a.DTA_INI_DEM_APOS ,
  a.DTA_FIM_DEM_APOS,
  p.cod_pessoa,
  p.des_pessoa,
  f.dta_nasc,
  xcp_monta_desc_fnc(po.cod_operacao, po.des_operacao) des_operacao
from pl_operacoes po,
     ps_fisicas f,
     ps_pessoas p,
     pl_adesoes ad,
     pls_proposta_adesao a
where po.cod_operacao = a.cod_operacao
and f.cod_pessoa = p.cod_pessoa
and p.cod_pessoa = ad.cod_pessoa
and ad.cod_maquina_adesao = a.cod_maquina_adesao
and ad.num_seq_adesao = a.num_seq_adesao
AND a.seq_proposta = {SEQ_PROPOSTA}
order by p.des_pessoa ) LOOP

    wfl_form_add_prc(in_seq_execucao => {SEQ_EXECUCAO}, in_form => 'FORM_ADESOES');
    wfl_form_set_vlr_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'COD_PESSOA'
                       ,in_valor        => c1.cod_pessoa);

    wfl_form_set_dta_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'DTA_NASC'
                       ,in_valor        => c1.dta_nasc);

    wfl_form_set_vlr_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'TIP_REGISTRO'
                       ,in_valor        => c1.TIP_REGISTRO);

    wfl_form_set_vlr_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'IND_REINGRESSO'
                       ,in_valor        => c1.IND_REINGRESSO);

    wfl_form_set_vlr_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'IND_DECL_SAUDE'
                       ,in_valor        => c1.IND_DECL_SAUDE);

    wfl_form_set_txt_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'DES_OPERACAO'
                       ,in_valor        => c1.DES_OPERACAO);

    wfl_form_set_vlr_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'TIP_MOVIMENTO'
                       ,in_valor        => c1.TIP_MOVIMENTO);

    wfl_form_set_vlr_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'TIP_LEI'
                       ,in_valor        => c1.TIP_LEI);

    wfl_form_set_dta_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'DTA_INI_DEM_APOS'
                       ,in_valor        => c1.DTA_INI_DEM_APOS);

    wfl_form_set_dta_prc(in_seq_execucao => {SEQ_EXECUCAO}
                       ,in_form         => 'FORM_ADESOES'
                       ,in_campo        => 'DTA_FIM_DEM_APOS'
                       ,in_valor        => c1.DTA_FIM_DEM_APOS);


END LOOP;