PONTO DE ENTRADA ROTINAS DE MULTAS E INCONSISTÊNCIAS

Características do Requisito

Descrição

Realizado conversão das rotinas MNTA765 - Multas e MNTA845 - Inconsistências  para o modelo padrão de desenvolvimento MVC, por este motivo a chamada e utilização de pontos de entrada devem ser alterados para o novo modelo. 

Procedimento para Utilização

• Descreva os procedimentos, passo a passo (caso de uso), que serão realizados pelos usuários para que a melhoria seja visualizada identificando as seguintes informações:
• Localização da rotina no menu;
• Localização dos novos campos e/ou perguntas e respectivas pastas de cadastro que são visualizadas pelo usuário;
• Caso seja necessário ter algum cadastro feito previamente, faça uma observação.

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.

1.  Entrar no modulo de Manutenção de Ativos e Gestão de Frotas(SIGAMNT).
2. Em Atualizações > Gestão de Riscos > Multas > Multas.
3. Em Atualizações > Gestão de Riscos > Multas > Inconsistências. 

Ponto de Entrada

Ponto de Entrada

#Include 'Protheus.ch'

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"


User Function MNTA125()

Local aParam     := PARAMIXB
Local xRet       := .T.
Local oObj       := ''
Local cIdPonto   := ''
Local cIdModel   := ''
Local nOperacao  := 0

If aParam <> NIL

    oObj       := aParam[1] //Modelo de dados.
    cIdPonto   := aParam[2] //Identificador do ponto de chamada.
    cIdModel   := aParam[3] //Idificador do Modelo de dados.

    If cIdPonto == 'MODELPOS' //Chamada após a Confirmação da rotina.

        nOperacao := oObj:GetOperation() //Busca a opção selecionada (3=Inclusão, 4= Alteração ou 5=Exclusão)

        If nOperacao == 3 //OPÇÃO DE INCLUSÃO.
            If !Empty(oObj:GetValue('MNTA125_ST8','T8_CODOCOR')) //Verifica se o campo foi preenchido.
                xRet := .T.
            EndIf
        ElseIf == 4 //OPÇÃO DE ALTERARÇÃO.
            If !Empty(oObj:GetValue('MNTA125_ST8','T8_CODOCOR')) //Verifica se o campo foi preenchido.
                xRet := .T.
            EndIf
        Else //OPÇÃO DE EXCLUSÃO.
            If !Empty(oObj:GetValue('MNTA125_ST8','T8_CODOCOR')) //Verifica se o campo foi preenchido.
                xRet := .T.
            EndIf
        EndIf
    EndIf
EndIf

Return xRet