Histórico da Página
Como desenvolver a "User Function" para execução automática na rotina de Solicitação de Serviço.
Produto: | Manutenção de Ativos e Gestão de Frotas (SIGAMNT). | ||||||||||||||||||||||||
Versões: | Todas | ||||||||||||||||||||||||
Ocorrência: | Desenvolvimento de função para execução automática(ExecAuto) de inclusão de registros na rotina de Solicitação de Serviço. | ||||||||||||||||||||||||
Ambiente: | Todos | ||||||||||||||||||||||||
Passo a passo: | Para o desenvolvimento da rotina de execução automática a fim de realizar a inclusão de dados na rotina de Solicitação de Serviço (MNTA280), favor utilizar o exemplo abaixo. | ||||||||||||||||||||||||
Função: | MNTA280 | ||||||||||||||||||||||||
Parâmetros: |
|
Nota | ||
---|---|---|
| ||
|
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#Include 'Totvs.ch'
//-------------------------------------------------------------------
/*/{Protheus.doc} MNT280EXEC
ExecAuto MNTA280
/*/
//-------------------------------------------------------------------
User Function MNT280EXEC()
//------------------------------------------
// Processo de Inclusão
//------------------------------------------
Local aSolic := {}
Private lMSHelpAuto := .t. // Não apresenta erro em tela
Private lMSErroAuto := .f. // Caso a variável torne-se .T. após MsExecAuto, apresenta erro em tela
aSolic := { {"TQB_CODBEM", "BEM MNT 010" ,Nil},; // Código do Bem a ser relacionado na Solicitação de Serviço
{"TQB_CCUSTO", "MNT000003" ,Nil},; // Código do Centro de Custo
{"TQB_CDSERV", "MNT004" ,Nil},; // Código do Tipo de Serviço
{"TQB_RAMAL" , "0001" ,Nil},; // Ramal do funcionário que abriu a Solicitação de Serviço
{"TQB_DESCSS", "Serviço no bem.",Nil},; // Descrição da Solicitação
{"TQB_TPSERV", "2" ,Nil}; // Tipo Solicitação 1 - Incidente / 2 - Melhoria
}
MSExecAuto( {|x,z,y,w| MNTA280(x,z,y,w)}, , , aSolic, 3 )
If lMsErroAuto
If !IsBlind() //Apresentará mensagem com o MostraErro se não utilizar RPCSetEnv.
MostraErro()
Else //Não apresentará mensagem, pois utiliza a função RPCSetEnv.
cError := MostraErro(GetSrvProfString("Startpath", ""), "MNTA280EXEC_"+DTOS(DATE())+"_"+;
Left(Time(),2)+SubStr(Time(),4,2)+".LOG") // Armazena mensagem de erro na raiz (StartPath).
ConOut( cError)
EndIf
Endif
Return | ||||||||
Wiki Markup | ||||||||
||Descrição|| Processamento automático de solicitação de serviço.
||Observações|| A rotina efetua apenas o processo de inclusão automática.
||Exemplos|
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Parâmetros|| xRotAuto - Array com os campos, e seus valores correspondentes, referente ao processo a ser efetuado.
nOpcAuto - Opção a ser executada (Default: 3 - Inclusão)
||Retorno|| Nil
||Programa Fonte|| MNTA280.PRX |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas