Histórico da Página
Ponto de entrada que realiza a validação de campos não vazios da tabela TQB no Fechamento da Solicitação de Serviço (MNTA290)
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 executado na rotina de Fechamento de Solicitação de Serviço (MNTA290) que realiza a validação de campos não vazios da tabela TQB | ||||||||
Programa Fonte: | MNTA290.prx | ||||||||
| Localização: | SIGAMNT: Atualizações/Controle de Oficina/Solicitação de Serviço/Fechamento | ||||||||
Função: | MNTA2908() | ||||||||
Retorno: |
|
| Bloco de código | ||
|---|---|---|
| ||
#Inlcude 'Protheus.ch'
User Function MNTA2908()
Local aRet := {}
Local aCampos := {}
Local cCampo := ""
Local cMsg := ""
Local cTipo := "" //"I" - Info; "S" - Stop; "YN" - YesNo (Optar em continuar ou nao)
Local lEndMsg := .F. //.T. - Mostra no final da mensagem os campos nao preenchidos; .F. - Nao mostra.
/* O array e' composto por 4 (quatro) posicoes:
aRet[1] = Campo;
aRet[2] = Mensagem;
aRet[3] = Tipo de Mensagem;
aRet[4] = Mostra ou nao os campos na mensagem;
ou por multiplas posicoes na primeira, sendo as demais constantes:
aRet[1][1] = Campo1;
aRet[1][2] = Campo2; ...; */
aCampos := { "TQB_CENTRA","TQB_CCUSTO" }
cCampo := ""
cMsg := "Um ou mais campos não foram preenchidos."
cTipo := "YN" //Em Tipo "YN" o texto "Deseja continuar?" e impresso em tela automaticamente
lEndMsg := .T.//Carrega o array
If Len(aCampos) > 0
aAdd(aRet, aCampos) //Adiciona diversos campos
Else
aAdd(aRet, cCampo) // Adiciona um campo
EndIf
aAdd(aRet, cMsg) //Adiciona a mensagem
aAdd(aRet, cTipo) //Adiciona o tipo da mensagem
aAdd(aRet, lEndMsg) //Adiciona se havera final de mensagem
Return aRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas