Histórico da Página
Novo padrão para chamadas dos pontos de entrada MNTA7652 e MNTA7661
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas. | ||||||||
Rotina: |
| ||||||||
Cadastros Iniciais: | MNTA084 - Veículos. | ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Tabelas Utilizadas: | ST9 - Bens | ||||||||
Sistema(s) Operacional(is): | Windows e Linux | ||||||||
Ponto de Entrada: | MNTA7652 - Validação na confirmação da Multa. MNTA7661 - Possibilita alteração de campos apos inclusão de uma notificação. | Pacote: | Informe o [linkdopacote] |
Descrição
Realizado conversão
da rotina paradas 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.
MNTA7652 e MNTA7661 precisam ser alteradas para continuarem sendo executados corretamente.
Verifique no exemplo abaixo e realize as atualizações.
Procedimento para Utilização
- Entrar no modulo de Manutenção de Ativos e Gestão de Frotas(SIGAMNT).
- Em Atualizações > Gestão de Riscos > Multas > Multas.
- Em Atualizações > Gestão de Riscos > Multas > Inconsistências.
Ponto de Entrada
Descrição: | Ponto de entrada no padrão MVC. |
Localização: | Em Atualizações > Gestão de Riscos > Multas > Multas. Em Atualizações > Gestão de Riscos > Multas > Inconsistências. |
Eventos: | Multas (MNTA765). Inconsistências (MNTA845). |
Programa Fonte: | MNTA765.prx MNTA845.prx |
Função: | MNTA765() MNTA845() |
Ponto de Entrada
Descrição: | Informe o Menu em que estará localizada a rotina | ||||||||
Localização: | Informe o Submenu em que estará localizada a rotina | ||||||||
Eventos: | Informe o Título da rotina | ||||||||
Programa Fonte: | Informe o Fonte da rotina | ||||||||
Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” | ||||||||
Retorno: |
|
Bloco de código |
---|
|
|
#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 MNTA765()
Local aArea := GetArea()
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.
// Substituição do ponto de entrada MNTA7652.
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.
dbSelectArea("TRX")
dbSetOrder(1)
If !Empty( dbSeek( xFilial("TRX") + oObj:GetValue('MULTAS','TRX_MULTA') ) )
If AllTrim(oObj:GetValue('MULTAS','TRX_TPMULTA')) $ "TRANSITO/PRODUTO PERIGOSO"
MsgInfo("Já existe uma multa cadastrada com esse número! ", "Atenção")
xRet := .F.
EndIf
EndIf
EndIf
// Substituição do ponto de entrada MNTA7661
ElseIf cIdPonto == 'MODELCOMMITNTTS' // Chamado após a gravação da tabela.
If IsInCallStack("MNTA766")
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.
dbSelectArea("TRX")
RecLock("TRX", .F.)
TRX->TRX_CIDINF := "JOINVILLE"
TRX->( MsUnlock() )
EndIf
EndIf
EndIf
EndIf
RestArea(aArea)
Return xRet |