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.prx | ||||||||||||||||||||||||
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 Centro de Custo
{"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 |
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 | MNTA280 - Exemplo Processo Automático (Anexo) |
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. |
Retorno | Nil |
Programa Fonte | MNTA280.PRX |
...