Versão atual:

Fechar tela em MVC botão customizado

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

Versão (1):

Ver a versão formatada

Fechar tela em MVC botão customizado

Comentário

new question