Tempo aproximado para leitura: 00:01:30 min
Dúvida
O que indica a tabela Ponto de Entrada para permitir validações antes de Inclusões ou Alterações?
Ambiente
TOTVS Agro - TOTVS Agro - Comercialização (Linha Protheus) - Originação de Grãos (OG) - Versão 12
Solução
Características do Requisito:
|
Linha de Produto: |
Microsiga Protheus |
||||
|
Segmento: |
Agroindústria |
||||
|
Módulo: |
SIGAAGR |
||||
|
Rotina: |
|
||||
|
Ponto de Entrada: |
AGRA200CO |
||||
|
País(es): |
Todos |
Ponto de Entrada:
|
Descrição: |
O Ponto de Entrada "AGRA200CO" permite validações antes da gravação de uma inclusão ou alteração. |
|
Localização: |
Rotina de inclusão de previsões de aplicações. |
|
Eventos: |
O Ponto de Entrada é executado antes do Begin Transaction de cada ação (inclusão ou alteração). |
|
Programa Fonte: |
AGRA200 |
|
Função: |
AGRA200B |
Exemplo:
#Include 'Protheus.ch'
User Function AGRA200CO()
Local nOpcao := PARAMIXB //OPCOES 3=Inclusão, 4=Alteração, 5=Exclusão
Local lRetorno := .F.
If nOpcao == 3
ALERT("Ponto de Entrada INCLUIR - AGRA200CO")
//PARA A OPÇÃO 3=INCLUSAO ESTA RETORNANDO VERDADEIRO .T.
// ASSIM A INCLUSAO SERÁ FEITA
lRetorno := .T.
ElseIf nOpcao == 4
ALERT("Ponto de Entrada ALTERAR - AGRA200CO")
//PARA A OPÇÃO 4=ALTERACAO ESTA RETORNANDO FALSO .F.
//ASSIM A ALTERACAO NÃO SERÁ FEITA
lRetorno := .F.
EndIf
Return(lRetorno)
0 Comentários