Perguntas Pontos de Entrada

#INCLUDE "TOTVS.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOPCONN.CH"

USER FUNCTION MATA110()

Local aParam   := PARAMIXB //Parâmetros passados pelo ponto de entrada.
Local xRet     := .T. //Retorno da função.
Local oObj     := '' //Objeto que receberá o modelo.
Local cIdPonto := '' //Identificador da chamada do ponto de entrada.
Local cIdModel := '' //Identificador do modelo utilizado.
Local cModel   := '' //Identifica o modelo utilizado e receberá o seu identificador.   

If aParam <> NIL //Identifica que foram enviado os parâmetros.
    
    oObj     := aParam[1] //Modelo ativado.
    cIdPonto := aParam[2] //Determina o ponto de chamada.
    cIdModel := aParam[3] //Identificador do modelo.
 
    If cIdPonto == 'MODELPOS' //Pós-Valid
         
        cModel := cIdModel+'_'+"SC1" //Concatena o identificado do modelo com o identificador da tabela.
         
        If oObj:GetModel(cModel):HasField('C1_NUMOS') //Verifica se campo existe no modelo.
             
            If Empty(oObj:GetValue(cModel,'C1_NUMOS')) //Verifica se o campo foi preenchido.
              
                 //Help('',1,"PE MT110TOK" ,,"Campo"+Space(1)+"C7_NUMOS"+Space(1)+;
                //"não foi preenchido e é obrigatório.",2,0,,,,,,{"Preencha o campo C7_NUMOS (NRO.OS)"}) //Mensagem help que será apresentada em tela.  
                
                Alert("Nro. da OS não Preenchido!!")
           
                xRet := .F. //Determina o retorno .F., barrando a gravação do modelo.
           
            EndIf
        EndIf
    EndIf
EndIf

Return xRet