Chamada de Pontos de Entrada

Linha de Produto:

Microsiga Protheus

Segmento:

Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina	Nome Técnico
AGRA840	Lotes de Sementes

País(es):

Todos

Versões/Release:

12.1.27

Descrição

O ponto genérico tem a função de oferecer oportunidade de tratamento às rotinas chamadas pelo menu do AGRA840.

Para tratamentos específicos, deve-se condicionar no ponto de entrada qual rotina será tratada.

Descrição:	O ponto genérico tem a função de oferecer oportunidade de tratamento às rotinas chamadas pelo menu do AGRA840.
Localização:	O ponto genérico tem a função de oferecer oportunidade de tratamento às rotinas chamadas pelo menu do AGRA840.
Retorno:	Logico , Obrigatório. Valida se a rotina chamada será executada.
Programa Fonte:	AGRA840
Função:	Exemplo: #include "PROTHEUS.CH" User Function AGR840P6() Local lRet := .T. Local nOp := paramixb[1] //Validação do Cliente Do Case Case nOp == 2 //"Visualizar" Alert("Chamada antes função Visualizar") Case nOp == 4 //"Alterar" Alert("Chamada antes função Alterar") Case nOp == 5 //"Excluir" Alert("Chamada antes função Excluir") Case nOp == 7 //"Desmontagem" Alert("Chamada antes função Desmontagem") Case nOp == 8 //"Descarte" Alert("Chamada antes função Descarte") Case nOp == 9 //"Conhecimento" Alert("Chamada antes função Conhecimento") Case nOp == 10 //"TSI" Alert("Chamada antes função Geração TSI") Case nOp == 11 //"Produzir +" Alert("Chamada antes função Produzir +") Case nOp == 12 //"Histórico" Alert("Chamada antes função Histórico") Case nOp == 13 //Aprovar Alert("Chamada antes função Aprovar") Case nOp == 14 //Rejeitar Alert("Chamada antes função Rejeitar") EndCase EndCase Return lRet