Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Bruno Consoline Osmak Ribeiro

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Bruno Consoline Osmak Ribeiro

Gravado em

Chave

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

...

Nome

Tipo

Descrição

cAliasSU5Caractere

cAliasSU5 - Alias SU5 (Cadastro de Contato) - Tipo: Caracter

nRegSU5Numérico

nRegSU5 - Número do Registro RECNO - Tipo: Numérico

05. RETORNO

Lógico (lRet) → .T. = Efetua a exclusão / .F. = Não Efetua a exclusão

06. EXEMPLO

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

User Function TMK150DELTMKDELU5(cAliasSU5,nRegSU5)

	Local aParam   := PARAMIXB
	Local cAtend   := ""
	Local cCliente := ""
	Local cLoja    := ""lRet		:= .F.

	If Len(aParam) > 0

		cAtend	 :=  aParam[1] //Código do Atendimento - Tipo: Caracter
		cCliente :=  aParam[2] //Código do Cliente - Tipo: Caracter
		cLoja    :=  aParam[3] //Loja do Cliente - Tipo: Caracter

	Endif

	If  cCliente == "FAT001"
		Alert("Atendimento" + cAtend  + "do Cliente " + cCliente + "Loja " + cLoja)
	EndIf


Return

cAliasSU5 == 'SU5' .And. SU5->U5_CODCONT == 'TMK006'
		lRet := .T.
    	Alert("Ponto de Entrada TMKDELU5, o contato será excluido") 
	EndIf

Return lRet