Boa tarde pessoal, preciso fechar uma tela em MVC feita com FWExecView, criei um botão customizado na view (AddUserButton) que ao finalizar a tarefa precisa fechar a tela também. Procurei em outros tópicos semelhantes aqui do fórum mesmo porém sem sucesso.
Se tiver alguma outra possibilidade de fechar a tela sem clicar no botão cancelar, também ajuda.
Fonte abaixo:
User function NFLAMTEL()
...
local aEnableButtons:= {{ .F., Nil }, { .F., Nil }, ;
{ .F., Nil }, { .F., Nil }, ;
{ .F., Nil }, { .F., Nil }, ;
{ .T., Nil }, { .T., Nil }, ;
{ .F., Nil }, { .F., Nil }, ;
{ .F., Nil }, { .F., Nil }, ;
{ .F., Nil }, { .F., Nil }} //"Confirmar"###"Fechar"
nRet := FWExecView(OemToAnsi(cTitle), "NFLAMTEL", nOpcRf, /*oDlg*/, { || .T. },/* bOk*/,20/*nPercReducao*/, aEnableButtons, bCancel, /*cOperatId*/, /*cToolBar*/, /*oModel*/ )
return
View:
static function viewDef()
...
if lCanEdit .AND. !Empty(oTItemNF:getERPProd())
oView:AddUserButton("Limpar Amarração","MAGIC_BMP",{|oView| LimpAmr(oView) }, "Limpa amarração produto",/*nShortCut*/,/*aOptions*/,.T.)
endIf
oView:SetCloseOnOK({ || .T. })
Função:
// Limpa a Amarração do Produto do item posicionado.
static function LimpAmr(oView)
//Local oModel := FWModelActive()
oTItemNF:setERPProd('')
oTItemNF:setERPProdDescr('')
oView:SetCloseOnOK( { || .T. } )
oView:oOwner:End()
return