Histórico da Página
...
Portuguese | ||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: PMA100EX - Finalizar exclusão de orçamento
Descrição: O ponto de entrada PMA100EX é utilizado ao final da exclusão do orçamento. Programa Fonte PMSA100.PRW Sintaxe PMA100EX - Finalizar exclusão de orçamento ( ) --> SEM RETORNO lRet Retorno lRet (lógico) --> .T. - Exibe a tela de exclusão do orçamento / .F. - Não exibe
User function PMA100EX() Local lRet := .T. If AF1->AF1_FASE == "01" .And. Empty(AF1->AF1_VALID) If MsgYesNo("A data de validade está vazio. Deseja gravar com a data atual antes de excluir?","Data de Validade Vazio") If !MsgYesNo("Deseja validar a exclusão?","Confirmação de Exclusão") EndIf RestArea(aAreaAF1) | ||||||||||||||||||||||||
Informações | ||||||||||||||||||||||||
| title | Ponto-de-Entrada: PMA100EX - Finalizar exclusão de orçamento Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 Idiomas: Espanhol , Inglês Descrição: O ponto de entrada PMA100EX é utilizado ao final da exclusão do orçamento. Programa Fonte PMSA100.PRW Sintaxe PMA100EX - Finalizar exclusão de orçamento ( ) --> SEM RETORNO Retorno lRet (lógico) .T. - Exibe a tela de exclusão .F. - Não exibe Exemplos User function PMA100EX() Local lRet := .T. Local aAreaAF1 :=
| vazio
| antes de excluir
| Vazio
| validar a exclusão?","Confirmação de Exclusão") lRet := .F. EndIf EndIf EndIf RestArea(aAreaAF1) Return lRetDescrição: O ponto de entrada PMA100EX é utilizado ao final da exclusão do orçamento. Programa Fonte PMSA100.PRW Sintaxe PMA100EX - Finalizar exclusão de orçamento ( ) --> SEM RETORNO Retorno Exemplos User function PMA100EX() Local lRet := .T. If AF1->AF1_FASE == "01" .And. Empty(AF1->AF1_VALID) If MsgYesNo("A data de validade está vazio. Deseja gravar com a data atual antes de excluir?","Data de Validade Vazio")
|