Ponto de Entrada – SX5NOTA

Exemplo do Ponto de Entrada SX5NOTA.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*---------------------------------------------------------------------*
 | P.E.:  SX5Nota                                                      |
 | Desc:  Função para inibir a tela da série, quando a chave estiver   |
 |        contida em um parâmetro (MV_X_SERNF)                         |
 | Link:  http://tdn.totvs.com/pages/releaseview.action?pageId=6784448 |
 *---------------------------------------------------------------------*/

User Function SX5Nota()
	Local aArea		:= GetArea()
	Local lRet		:= .F.
	Local cSeries	:= SuperGetMV("MV_X_SERNF", .F., "001;")
	Local cChave	:= SX5->X5_CHAVE
	
	If Alltrim(cChave) $ cSeries
		lRet := .T.
	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.