Ponto de Entrada – OM320LOK

Exemplo do Ponto de Entrada OM320LOK.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"

/*---------------------------------------------------------------------------------------------*
 | P.E.:  Om320LOk                                                                             |
 | Desc:  P.E. executado ao validar a linha no Retorno do Carregamento                         |
 | Link:  http://tdn.totvs.com/display/public/mp/OM320LOK+-+Valida+Retorno+de+Cargas++--+16479 |
 *---------------------------------------------------------------------------------------------*/

User Function Om320LOk()
	Local aArea	:= GetArea()
	Local lRet		:= PARAMIXB[1]
	
	//Se a linha atual não estiver deletada
	If !GDDeleted(n)
		lRet := MsgYesNo("Deseja Continuar?", "Atenção")
	EndIf
	
	RestArea(aArea)
Return lRet

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

Pesquisa no TDN

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.