Linha Microsiga Protheus

Árvore de páginas

FT050TOK - Validação das Metas de Venda

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Faturamento

Rotina:

Rotina

Nome Técnico

FATA050

Metas de Venda

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

 

 
 
 
 
 
 

Ponto de Entrada

Descrição:

A finalidade do ponto de entrada FT050TOK é permitir que seja feita a validação dos dados das Metas de Venda, antes de efetuar as gravações.

Localização:

Atualizações/Cenários de Venda/Metas de Venda

Eventos:

FT050TOK( oModel ) --> lRet

Programa Fonte:

FATA050.PRX

Parâmetros:

PARAMIXB[1] - Objeto --> Modelo de dados das Metas de Venda

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

 Lógico

 .T. - Permite a gravação / .F. - Não permite a gravação

 Sim

 Observação:Se o ponto de entrada retornar falso, não será possível realizar a gravação e um erro será atribuído ao model, sendo necessário indicar a natureza do erro através da função Help, conforme o exemplo abaixo.
Para maiores detalhes, veja o parâmetro bPost  da classe MPFormModel

 

Exemplo:

#Include 'Protheus.ch'     
 
User Function FT050TOK()     
Local nLin := 0 
Local lRet := .T. 
Local oModSCT := PARAMIXB[1] 
Local oGridSCT := oModSCT:GetModel('SCTGRID') 
Local nPosVend := Ascan(oGridSCT:aHeader,{|x| AllTrim(x[2]) == "CT_VEND"})

For nLin := 1 To Len(oGridSCT:aCols)  
	If !oGridSCT:aCols[nLin,Len(oGridSCT:aCols[nLin])] .And. AllTrim(oGridSCT:aCols[nLin,nPosVend]) == "000002"  
		Help(" ",1,"TESTE",,"O vendedor 000002 não pode ser utilizado.", 3, 0)  
		lRet := .F. 
	EndIf 
Next nLin
     
Return lRet