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.