Linha Microsiga Protheus

Árvore de páginas

OM010TOK - Ponto de Entrada para validação da Tabela de Preço

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Faturamento

Rotina:

Rotina

Nome Técnico

OMSA010 
Tabela de Preço

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 OM010TOK é permitir que seja feita a validação da Tabela de Preço antes de efetuar a gravação dos dados.

Localização:

Atualizações/Cenários de Venda/Tabela de Preço

Eventos:

OM010TOK( oModel ) --> lRet

Programa Fonte:

OMSA010.PRX

Parâmetros:

PARAMIXB[1] - Objeto --> Modelo de dados da Tabela de Preço

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

 Lógico

 .T. - Faz a gravação da tabela / .F. - Não permite a gravação da tabela

 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 http://tdn.totvs.com/display/framework/MPFormModel

 

Exemplo:

#Include 'Protheus.ch'

User Function OM010TOK()

Local nLin := 0
Local lRet := .T.
Local oModel := PARAMIXB[1]
Local oGridTab := oModel:GetModel("DA1DETAIL")

For nLin := 1 To Len(oGridTab:ADATAMODEL) 

     oGridTab:GoLine(nLin)

     If !oGridTab:IsDeleted() .And. AllTrim(oGridTab:GetValue("DA1_CODPRO")) == "01"
          Help(" ",1,"TESTE",,"O Produto: 01 não pode ser utlizado nesta tabela de preço.", 3, 0)   
          lRet := .F.  
     EndIf
Next nLin

Return lRet