...
| Portuguese |
|---|
| Pagetitle |
|---|
| PMA100EX - Finalizar exclusão de orçamento |
|---|
| PMA100EX - Finalizar exclusão de orçamento |
|---|
|
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. SintaxePMA100EX - Finalizar exclusão de orçamento ( ) --> SEM RETORNO RetornolRet (lógico) .T. - Exibe a tela de exclusão .F. - Não exibeExemplos User function PMA100EX() Local lRet := .T.
Local aAreaAF1 := AF1->(GetArea()) 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")
RecLock("SF1", .F.)
AF1->AF1_VALID := dDatabase
SF1->(MsUnlock()) If !MsgYesNo("Deseja validar a exclusão?","Confirmação de Exclusão")
lRet := .F.
EndIf
EndIf EndIf RestArea(aAreaAF1)
Return lRet |
| 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 := AF1->(GetArea()) 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") RecLock("SF1", .F.) AF1->AF1_VALID := dDatabase SF1->(MsUnlock()) If !MsgYesNo("Deseja validar a exclusão?","Confirmação de Exclusão") lRet := .F. EndIf EndIf EndIf RestArea(aAreaAF1) Return lRet |
|---|
|
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 := AF1->(GetArea())
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")
RecLock("SF1", .F.)
AF1->AF1_VALID := dDatabase
SF1->(MsUnlock())
If !MsgYesNo("Deseja validar a exclusão?","Confirmação de Exclusão")
lRet := .F.
EndIf
EndIf
EndIf
RestArea(aAreaAF1)
Return lRet
|
