Linha Microsiga Protheus

Árvore de páginas

FT321LOK - Ponto de Entrada - Validação da linha da grid de Atividades da workarea

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços

Módulo:

Faturamento

Ponto de Entrada

Descrição:

O ponto de entrada FT321LOK é utilizado para validar a linha da grid da rotina de Atividades da Workarea.

Localização:

CRM-Adm Vendas\Área de Trabalho

Eventos:

FT321LOK( [ oModel ] ) --> lRet

Programa Fonte:

TMKA321C.PRW

Parâmetros:

PARAMIXB[1] - Objeto --> Modelo de dados das Atividades

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

.T. -> Não bloqueia e .F. -> Bloqueia

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function FT321LOK()

Local lRet := .T.
Local oModel := PARAMIXB[1]
Local oGridEnt := oModel:GetModel("MODEL_ENT_GRID") //Grid das Contas do Vendedor
Local oGridAtiv := oModel:GetModel("MODEL_ATIV_GRID") //Grid das Atividades
Local cTipo := oGridAtiv:getValue("MODEL_ATIV_GRID","TIPO_ATIV") //1-Agendamento / 2-Tarefa

If oGridEnt:GetValue("MODEL_ENT_GRID","ADL_ENTIDA") == "SA1" .And. cTipo == "1"
     If Empty(oGridAtiv:getValue("MODEL_ATIV_GRID","AD7_CONTAT"))
          Help(,,"Atividades",,"O campo de contato esta em branco",1,0)
          lRet := .F.
     EndIf
EndIf

Return lRet