01. DADOS GERAIS
| Produto: | TOTVS Saúde Planos
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Saude |
| Módulo: | PRODUTO SAÚDE |
| Função: | CLASSIFICAÇÃO DE PRODUTO |
| Ticket: | 17281634 |
| Issue: | DSAUBE-21841 |
02. SITUAÇÃO/REQUISITO
Ao acessar o menu Beneficiário > Dados cadastrais do Beneficiário > Relativos ao plano, o sistema apresentava o seguinte error log: Campo BA1_CODPLA não encontrado on FWFORMMODELSTRUCT:STEPROPERTY.
03. SOLUÇÃO
Ajustada toda a estrutura MVC do modelo de dados (PLSA260FD9BA1) referente ao menu Relativos ao Plano do Beneficiário, com isso o sistema não irá mas apresentar error log.
04. DEMAIS INFORMAÇÕES
Atualização do Dicionário de Dados
Alteração no arquivo SX3 (Campos):
| Tabela | Campo | Validação | When |
|---|---|---|---|
| BA1 | BA1_CODPLA | empty(PFldGetBA1("BA1_CODPLA")) .or. (existCpo("BI3",PFldGetBA1({"BA1_CODINT","BA1_CODPLA"})) .and. PlGfChkPlan("BA1")) | |
| BA1 | BA1_VERSAO | empty(PFldGetBA1("BA1_VERSAO")).or.(existCpo("BIL",PFldGetBA1({"BA1_CODINT","BA1_CODPLA","BA1_VERSAO"})).and.PlGfPlaAct("BA1")) | |
| BA1 | BA1_MESREA | PlGfWhMsReaj() | |
| BA1 | BA1_EQUIPE | PlGfExiEqp(PFldGetBA1("BA1_EQUIPE"),PFldGetBA1("BA1_CODVEN"),PFldGetBA1("BA1_CODVE2")) | |
| BA1 | BA1_CODVEN | empty(PFldGetBA1("BA1_CODVEN")) .or. PlGfVldSA3(PFldGetBA1("BA1_CODVEN"),PFldGetBA1("BA1_EQUIPE"),PFldGetBA1("BA1_DATINC")) | |
| BA1 | BA1_CODVE2 | empty(PFldGetBA1("BA1_CODVE2")) .or. PlGfVldSA3(PFldGetBA1("BA1_CODVE2"),PFldGetBA1("BA1_EQUIPE"),PFldGetBA1("BA1_DATINC")) | |
| BA1 | BA1_CODSB1 | empty(PFldGetBA1("BA1_CODSB1")) .or. existcpo("SB1",PFldGetBA1("BA1_CODSB1")) |
Inclusão no arquivo SX7 (Gatilhos):
| Campo | Sequência | Cnt. Domínio | Tipo | Regra | Posiciona | Alias | Ordem | Chave | Condição |
|---|---|---|---|---|---|---|---|---|---|
| BA1_CODPLA | 001 | BA1_VERSAO | 1 - Primario | BI3->BI3_VERSAO | 1 - Sim | BI3 | 1 | xFilial("BI3")+PFldGetBA1({"BA1_CODINT","BA1_CODPLA"}) | |
| BA1_CODPLA | 002 | BA1_DESPLA | 1 - Primario | BI3->BI3_DESCRI | 2 - Não | 0 | |||
| BA1_EQUIPE | 001 | BA1_NOMEQ | 1 - Primario | BXL->BXL_DESEQU | 1 - Sim | BXL | 1 | xFilial("BXL")+PFldGetBA1("BA1_EQUIPE") | |
| BA1_CODVEN | 001 | BA1_NOMVEN | 1 - Primario | SA3->A3_NOME | 1 - Sim | SA3 | 1 | xFilial("SA3")+PFldGetBA1("BA1_CODVEN") | |
| BA1_CODVE2 | 001 | BA1_NOMVE2 | 1 - Primario | SA3->A3_NOME | 1 - Sim | SA3 | 1 | xFilial("SA3")+PFldGetBA1("BA1_CODVE2") |
Alteração no arquivo SXB (Consulta padrão):
| Consulta | Filtro |
|---|---|
| B2IPLS | BI3->BI3_CODINT == PFldGetBA3("BA3_CODINT") .and. BI3->BI3_VERSAO == "001" .and. BI3->BI3_TIPPLA == "2" |
| BXAPLS | PFldGetBA1("BA1_MATVID") == BXC->BXC_MATVID |
| BJ6PLS | BIL->BIL_CODIGO == PFldGetBA3("BA3_CODINT")+PFldGetBA1("BA1_CODPLA") .and. PLS260JURI(substr(BIL->BIL_CODIGO,5,4),BIL->BIL_VERSAO,.T.) |
A alteração de dicionário referente a essa implementação estará disponível no próximo pacote de Expedição Contínua do módulo SIGAPLS.
Importante!
05. ASSUNTOS RELACIONADOS
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas