Linha Datasul

Árvore de páginas


01. DADOS GERAIS


Produto:TOTVS Saúde Planos
Linha de Produto:Linha Datasul
Segmento:Saúde
Módulo:HVP
Função:Documentos Identificação Beneficiários - RPW (hmc.benefIdentificationDocIssues)
País:Brasil
Ticket:18396071



02. SITUAÇÃO/REQUISITO

O programa Emissão Documentos Identificação Beneficiários - RPW (hmc.benefIdentificationDocIssues) não possibilita adicionar opções customizadas para a 'Ordenação secundária'.

03. SOLUÇÃO

Implementado métodos para inclusão de opções de ordenação customizadas em tela. E alterado temp-table "cpc\cpc-mc0510l.i" do ponto de CPC "SELCAMPESP", adicionado campo "in-classif-sec" afim de possibilitar o resgate da informação de classificação secundária para a "cpc\cpc-mc0510l.p".

03. PROCEDIMENTO PARA IMPLANTAÇÃO

Criar um script progress e adicionar no propath do ambiente que for necessário realizar a customização. O script deve estar compilado no propath em hgp/custom/hmc.benefIdentificationDocIssues/secondarySortOptionAdditional.r

Como modelo pode ser utilizado o script abaixo. O arquivo deve ser salvo no encode padrão CP-850.

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.