Ponto-de-Entrada: Q050DEL - Exclusão de Documento
| Versões: | Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de Entrada executado na exclusão de um Documento.
Eventos:
Este ponto de entrada permite ou impede a exclusão de um documento conforme o seu retorno.
Programa Fonte:
QDOA050.PRW
Sintaxe:
Q050DEL - Exclusão de Documento ( [ nOpca ] ) --> Lógico.
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
| nOpca | Numérico | Parâmetro disponível para saber qual opção foi utilizada (Confirmar ou Cancelar). Quando o conteúdo do parâmetro for igual a 1, significa que foi utilizado o botão OK (Confirmar), caso o conteúdo do parâmetro for igual a 2, significa que foi utilizado o botão "Cancelar" |
Retorno:
(lógico)
- Se verdadeiro (.T.), permite a exclusão; Se Falso (.F.), abandona a rotina.
#INCLUDE "TOTVS.CH"
User Function Q050DEL()
Local nOpcao := PARAMIXB[1] //Parâmetro disponível para saber qual opção foi utilizada (Confirmar ou Cancelar).
//Quando o conteúdo do parâmetro for igual a 1, significa que foi utilizado o botão OK (Confirmar),
//caso o conteúdo do parâmetro for igual a 2, significa que foi utilizado o botão "Cancelar".
Local lReturn := .T.
//Regra customizada
If nOpcao == 1 //1 - Confirmou a exclusão do Documento
lReturn := .F. //O documento não será excluído.
EndIf
Return lReturn |