Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão 9

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

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")
Local nPosCodPro := Ascan(oGridTab:aHeader,{|x| AllTrim(x[2]) == "DA1_CODPRO"})

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