Histórico da Página

using Progress.Json.ObjectModel.JsonArray.

{rtp/rtrowerror.i}
{hgp/bosau/bosau-custom-field.i}


procedure getCustomFields:
 
    define input        parameter pathParams as JsonArray no-undo.
    define output       parameter table for ttCustomField.
    define output       parameter table for ttCustomValue.
    define output       parameter table for ttCustomFieldOption.
    define output       parameter table for ttCustomFieldColumn.
    define input-output parameter table for rowErrors.

    empty temp-table ttCustomField.
    empty temp-table ttCustomValue.
    empty temp-table ttCustomFieldOption.
    
    create ttCustomField.
    assign ttCustomField.id-option = 1.
     
    create ttCustomFieldOption.
    assign 
        ttCustomFieldOption.id-option = ttCustomField.id-option
        ttCustomFieldOption.ds-label  = "06 - Item de ordenação customizada"
        ttCustomFieldOption.ds-value  = 6.
 
end.