Histórico da Página
...
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
ParamIXB[1]cAliasSU5 | Caractere | [ 1 ] - cAliasSU5 - Alias SU5 (Cadastro de Contato) - Tipo: Caracter |
ParamIXB[2]nRegSU5 | Numérico | [ 2 ] - 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 | ||
---|---|---|
| ||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas