M632ADDFLD - Adiciona campos personalizados no cabeçalho

dos programas "MATA632 - Operações

" e "PCPA124 - Processos Produtivos"

Procedimento para Utilização

Descrição

Este ponto de entrada é utilizado para adicionar campos personalizados no cabeçalho do programa MATA632 - Operações.

Importante

(Apenas para Microsiga Protheus, versões anteriores à versão 12)

Antes de executar o compatibilizador informe o nome do compatibilizador é imprescindível:

• Realizar o backup da base de dados do produto que será executado o compatibilizador (diretório PROTHEUS_DATA\DATA, se versão 10, ou \PROTHEUS11_DATA\DATA, se versão 11) e dos dicionários de dados SXs (diretório PROTHEUS_DATA_SYSTEM, se versão 10, ou \PROTHEUS11_DATA\SYSTEM, se versão  11).
• Os diretórios acima mencionados correspondem à instalação padrão do Protheus, portanto, devem ser alterados conforme o produto instalado na empresa.
• Essa rotina deve ser executada em modo exclusivo, ou seja, nenhum usuário deve estar utilizando o sistema.
• Se os dicionários de dados possuírem índices personalizados (criados pelo usuário), antes de executar o compatibilizador, certifique-se de que estão identificados pelo nickname. Caso o compatibilizador necessite criar índices, irá adicioná-los a partir da ordem original instalada pelo Protheus, o que poderá sobrescrever índices personalizados, caso não estejam identificados pelo nickname.
• O compatibilizador deve ser executado com a Integridade Referencial desativada*.

1. Em Microsiga Protheus TOTVS Smart Client (se versão 10), digite o nome do compatibilizador no campo Programa Inicial. Descreva se o compatibilizador deve ter uma data específica ou superior para que a atualização nos dicionários seja efetuada corretamente. Importante: Para a correta atualização do dicionário de dados, certifique-se que a data do compatibilizador seja igual ou superior a ___/___/____.
2. Clique em OK para continuar.
3. Após a confirmação é exibida uma tela para a seleção da empresa em que o dicionário de dados será modificado ou é apresentada a janela para seleção do compatibilizador. Selecione o programa xxxx().
4. Ao confirmar é exibida uma mensagem de advertência sobre o backup e a necessidade de sua execução em modo exclusivo.
   1. Clique em Processar para iniciar o processamento. O primeiro passo da execução é a preparação dos arquivos.
      É apresentada uma mensagem explicativa na tela.
   2. Em seguida, é exibida a janela Atualização concluída com o histórico (log) de todas as atualizações processadas. Nesse log de atualização são apresentados somente os campos atualizados pelo programa. O compatibilizador cria os campos que ainda não existem no dicionário de dados.
   3. Clique em Gravar para salvar o histórico (log) apresentado.
   4. Clique em OK para encerrar o processamento.

Descreva se há algum procedimento necessário após a aplicação do compatibilizador.

Procedimento para Implantação

O sistema é atualizado logo após a aplicação do pacote de atualizações (Patch) deste chamado.

1. Aplique o patch do chamado e execute uma vez a rotina Informe o nome da rotina.
2. No módulo informe o nome do módulo acesse informe o caminho e verifique que o parâmetro informe o nome do parâmetro é criado conforme especificações abaixo:

Atualizações do Compatibilizador

(Apenas para Microsiga Protheus, versões anteriores à versão 12)

1. Criação ou Alteração de Perguntas no arquivo SX1 – Cadastro de Perguntes:

2.    Criação ou Alteração de tabela no arquivo SX2– Tabelas:

3.  Criação ou Alteração de Tabelas Genéricas no arquivo SX5 – Tabelas Genéricas:

4.  Criação ou Alteração (mantenha somente a instrução correspondente) de Campos no arquivo SX3 – Campos:

• Tabela BGD - Prod x Cob x Proc x Co-Part:

Importante:

O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.

5.  Criação ou Alteração de Consulta Padrão no arquivo SXB – Consulta Padrão:

• Pesquisa B05PLS:

6.  Criação ou Alteração de Índices no arquivo SIX – Índices:

7.  Criação ou Alteração de Parâmetros no arquivo SX6 – Parâmetros:

8.  Criação ou Alteração (mantenha somente a instrução correspondente) de Gatilhos no arquivo SX7 – Gatilhos:

• Tabela BD5 – Contas Médicas:

Procedimento para Configuração

(Estes procedimentos devem ser feitos quando for necessário configurar parâmetros e/ou  rotinas no menu).

CONFIGURAÇÃO DE PARÂMETROS

1. No Configurador (SIGACFG), acesse Ambientes/Cadastros/Parâmetros (CFGX017). Crie/configure (mantenha somente a instrução correspondente) o(s) parâmetro(s) a seguir:
   (É necessário criar uma tabela para cada parâmetro descrito no item Parâmetro(s), da tabela Características do Requisito)

CONFIGURAÇÃO DE MENUS

2.  No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do informe o nome do módulo, conforme instruções a seguir:

Exemplo:

       1.            No Plano de Saúde (SIGAPLS), acesse Atualizações / Produto Saúde / Produto Saúde (PLSA800).

O sistema apresenta a janela de produtos cadastrados.

       2.            Posicione o cursor em um produto e clique em Alterar.

       3.            Na pasta Cobertura/Carências selecione a subpasta Tipo de Prestador.

       4.            Dê duplo clique no campo TP Prestador (BCW_TIPPRE).

O sistema apresenta a janela Tipo de Prestador – Coparticipação – Alterar.

       5.            Informe os dados conforme orientação do help de campo e observe o preenchimento do novo campo:

                      Som. p/Compra (BCW_SOMCOM): selecione Sim para indicar se a coparticipação cadastrada será válida somente para efeito de compra de procedimentos ou Não, caso contrário.

       6.            Confira os dados e confirme.

Vídeo

• Vídeo hospedado no youtube e inserido no template por meio da macro Widget Connector.

** Canal do youtube e software de vídeoem definição.

Ponto de Entrada

Exemplo:

#Include 'Protheus.ch'

User Function M632ADDFLD()
Local cAddFields := "G2_ATIVO|G2_OBSERVA"

/*
   cAddFields contém uma string, com os campos customizados que serão adicionados no cabeçalho
   do programa MATA632. Os campos devem ser concatenados utilizando o separador '|', e o nome dos campos
   deve estar sem espaços em branco.
*/
Return cAddFields

Para a correta gravação dos campos personalizados no banco de dados, é necessário também codificar um ponto de entrada para atribuir os valores dos campos personalizados para todas as operações cadastradas na tabela SG2. Pode ser utilizado o ponto de entrada padrão do MVC para fazer esta atribuição. Documentação sobre o ponto de entrada padrão do MVC: Ponto de Entrada Padrão do MVC

Exemplo deste ponto de entrada:

#Include 'Protheus.ch'

User Function MATA632()
Local aParam := PARAMIXB
Local xRet := .T.
Local oModel := Nil
Local nI := 0

If aParam <> NIL
   If aParam[2] == "MODELPOS" .And. aParam[3] == "MATA632" //Validação do modelo do MATA632.
      oModel := aParam[1] //Recupera o Modelo do programa.
      If oModel:GetOperation() != 5 //Operação de exclusão não é necessário atualizar os valores.
         For nI := 1 To oModel:GetModel("MATA632_SG2"):GetQtdLine() //Percorre as linhas da grid da SG2.
            oModel:GetModel("MATA632_SG2"):GoLine(nI) //Posiciona na linha.

            //Atribui o valor dos campos personalizados, que foram adicionados no cabeçalho do programa.
            oModel:GetModel("MATA632_SG2"):SetValue("G2_ATIVO",oModel:GetValue("MATA632_CAB","G2_ATIVO"))
            oModel:GetModel("MATA632_SG2"):SetValue("G2_OBSERVA",oModel:GetValue("MATA632_CAB","G2_OBSERVA"))
         Next nI
      EndIf
   EndIf
EndIf

Return xRet