Histórico da Página
Ponto de entrada que realiza operações de Retorno de Desgaste de Produção (MNTA380)
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||||
Segmento: | Manufatura. | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas. | ||||||||
Rotina: |
| ||||||||
País(es): | Todos. | ||||||||
Banco(s) de Dados: | Todos. | ||||||||
Sistema(s) Operacional(is): | Todos. |
Ponto de Entrada
Descrição: | Ponto de Entrada que possibilita executar operações na rotina de Retorno de Desgaste de Produção. A rotina foi convertida para MVC e desde então os pontos de entrada devem ser executados conforme as operações da estrutura de MVC. | ||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Contador/Retorno Produção | ||||||||
Programa Fonte: | MNTA380.prx | ||||||||
Função: | MNTA380() | ||||||||
Retorno: |
|
Bloco de código | ||
---|---|---|
| ||
#Include 'Protheus.ch' User Function MNTA380() Local aParam := PARAMIXB Local xRet := .T. Local oObj := '' Local cIdPonto := '' Local cIdModel := '' Local lIsGrid := .F. Local nLinha := 0 Local nQtdLinhas := 0 Local cMsg := '' If aParam <> NIL oObj := aParam[1] cIdPonto := aParam[2] cIdModel := aParam[3] lIsGrid := ( Len( aParam ) > 3 ) If lIsGrid nQtdLinhas := oObj:GetQtdLine() nLinha := oObj:nLine EndIf If cIdPonto == 'MODELPOS' cMsg := 'Chamada na validação total do modelo (MODELPOS).' + CRLF cMsg += 'ID ' + cIdModel + CRLF If !( xRet := ApMsgYesNo( cMsg + 'Continua ?' ) ) Help( ,, 'Help',, 'O MODELPOS retornou .F.', 1, 0 ) EndIf ElseIf cIdPonto == 'MODELCOMMITTTS' ApMsgInfo('Chamada apos a gravação total do modelo e dentro da transação (MODELCOMMITTTS).' + CRLF + 'ID ' + cIdModel ) ElseIf cIdPonto == 'MODELCOMMITNTTS' ApMsgInfo('Chamada apos a gravação total do modelo e fora da transação (MODELCOMMITNTTS).' + CRLF + 'ID ' + cIdModel) ElseIf cIdPonto == 'FORMCOMMITTTSPOS' ApMsgInfo('Chamada apos a gravação da tabela do formulário (FORMCOMMITTTSPOS).' + CRLF + 'ID ' + cIdModel) ElseIf cIdPonto == 'MODELCANCEL' cMsg := 'Chamada no Botão Cancelar (MODELCANCEL).' + CRLF + 'Deseja Realmente Sair ?' If !( xRet := ApMsgYesNo( cMsg ) ) Help( ,, 'Help',, 'O MODELCANCEL retornou .F.', 1, 0 ) EndIf ElseIf cIdPonto == 'MODELVLDACTIVE' cMsg := 'Chamada na validação da ativação do Model.' + CRLF + ; 'Continua ?' If !( xRet := ApMsgYesNo( cMsg ) ) Help( ,, 'Help',, 'O MODELVLDACTIVE retornou .F.', 1, 0 ) EndIf ElseIf cIdPonto == 'BUTTONBAR' ApMsgInfo('Adicionando Botão na Barra de Botões (BUTTONBAR).' + CRLF + 'ID ' + cIdModel ) xRet := { {'Salvar', 'SALVAR', { || Alert( 'Salvou' ) }, 'Este botão Salva' } } EndIf EndIf Return xRet |