DT PE MNTA2908 - Validação de campos não vazios da tabela TQB no Fechamento da Solicitação de Serviço

#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