Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão 99

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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 dos dados.

Localização:Informe o Submenu em que estará localizada a rotina

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

Eventos:Informe o Título da rotina

FT050TOK( oModel ) --> lRet

Programa Fonte:

Informe o Fonte da rotina

FATA050.PRX

Parâmetros:

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

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet 

 Lógico

 

 

 

 

 

 

 

 

 

 

 

Exemplo:

#Include

.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:

Bloco de código
languagec#
linenumberstrue
#Include 'Protheus.ch'
     
 
User Function
CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab
 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