Árvore de páginas

Versões comparadas

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

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

Características do Requisito

Versão:

Linha de Produto:

Microsiga Protheus 

Segmento:

Serviços 

Módulo:

Faturamento 

Rotina:

Rotina

Nome Técnico

OMSM010OMSA010 
Tabela de Preço 

País(es):

Todos 

Banco(s) de Dados:

Todos 

Sistema(s) Operacional(is):

Todos 
 11.80 e 12

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")Local nPosCodPro

For nLin := Ascan1 To Len(oGridTab:aHeader,{|x| AllTrim(x[2]) == "DA1_CODPRO"})ADATAMODEL) 

     oGridTab:GoLine(nLin)

     If !oGridTab:IsDeleted() For nLin := 1 To Len(oGridTab:aCols)  
     If !oGridTab:aCols[nLin,Len(oGridTab:aCols[nLin])] .And. AllTrim(oGridTab:aCols[nLin,nPosCodPro]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