Histórico da Página
...
Bloco de código | ||
---|---|---|
| ||
#Include 'Protheus.ch' #Include 'Totvs.ch' User Function TMK150DELTMKDELU5(cAliasSU5,nRegSU5) Local aParam := PARAMIXB Local cAtend := "" Local cCliente lRet := "" Local cLoja := "" .T. 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->CODCONT == 'TMK063' lRet := .F. Alert("Ponto de Entrada TMKDELU5, o contato NÃO será excluido") EndIf Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas