Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagecpp
#Include 'Protheus.ch'
#Include 'Totvs.ch'

User Function TMKDELU5(cAliasSU5,nRegSU5)

	Local lRet		:= .TF.

	If cAliasSU5 == 'SU5' .And. SU5->CODCONT>U5_CODCONT == 'TMK063TMK006'
		lRet := .FT.
    	Alert("Ponto de Entrada TMKDELU5, o contato NÃO será excluido") 
	EndIf

Return lRet