Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada é executado ao excluir uma linha da GetDados de requisição de peças ou da GetDados de apontamentos dos serviços.

Parâmetros:

nAba - indica qual é a GetDados que chamou o ponto de entrada.

1 = GetDados dos serviços.

2 = GetDados dos apontamentos.

Eventos:

If ExistBlock("OM030DEL")

lRet := ExecBlock("OM030DEL",.f.,.f.,{nAba})

If !lRet

Return (.f.)

Endif

Endif

Programa Fonte:

OFIOM030.PRW  

Retorno:

Retorna lRetorno, indica se pode continuar com a exclusão da linha da GetDados.

 

Exemplo:

User Function OM030DEL()

 

Local lRetorno := .f.

 

Local nAba := ParamIxb[01]

 

If MsgYesNo("Ponto de Entrada ao deletar uma linha da GetDados." + CHR(13) + CHR(10) + ;

"Deseja prosseguir ?")

lRetorno := .t.

EndIf

 

Return lRetorno