Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão 109

changes.mady.by.user William Pianheri Batista Silva

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

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