Histórico da Página

...

• getCustomFields
  • Utilizado para buscar os campos que serão acrescentados no formulário e seus respectivos valores.

  • Parâmetros:

    define input        parameter pathParams as JsonArray no-undo. /* Array contendo parâmetros de entrada */ define output       parameter table for ttCustomField. /*Definido no item Tabelas Temporárias Utilizadas (hgp\bosau\bosau-custom-field.i)*/ define output       parameter table for ttCustomValue. /*Definido no item Tabelas Temporárias Utilizadas (hgp\bosau\bosau-custom-field.i)*/ define input-output parameter table for rowErrors. /*Definida através da include (rtp\rtrowerror.i)*/

  • Exemplo:

    
    

    procedure getCustomFields:       define input        parameter pathParams as JsonArray no-undo.     define output       parameter table for ttCustomField.     define output       parameter table for ttCustomValue.     define input-output parameter table for rowErrors.            define variable cd-modalidade-aux        as int          no-undo.    define variable nr-proposta-aux          as int          no-undo.    define variable cd-usuario-aux           as int          no-undo.      assign         cd-modalidade-aux = int(pathParams:getCharacter(3))         nr-proposta-aux   = int(pathParams:getCharacter(4))         cd-usuario-aux    = int(pathParams:getCharacter(5))         no-error.       find first usuario where usuario.cd-modalidade = cd-modalidade-aux and         usuario.nr-proposta = nr-proposta-aux and         usuario.cd-usuario-aux = cd-usuario-aux no-lock no-error.             create ttCustomField.     assign         ttCustomField.ds-type = "boolean"         ttCustomField.ds-boolean-false = "Campo específico"         ttCustomField.ds-boolean-true  = "Campo específico"         ttCustomField.lg-disabled = true         ttCustomField.ds-property = "u_log_1".       create ttCustomValue.     assign ttCustomValue.ds-property = "u_log_1"         ttCustomValue.lg-value = usuario.u-log-1. end.

...