Histórico da Página
...
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 CentroTipo de Custo 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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas