Acao no botao confirmar em GRID MVC nao alteravel

Framework - Linha Protheus LIB
, ,
1

Pessoal, estou enfrentando um problema numa grid MVC com 1 cabeçalho e 2 grids da lado esquerdo uma tabela customizada e do lado direito a tabela SE1 para conciliação, todo o processo esta correto no menudef

ADD OPTION aRot TITLE 'Conciliação' ACTION 'VIEWDEF.PCIELPRE'OPERATION 4 ACCESS 0

eu chamo a rotina para abrir a grid e populo essas grids manualmente, a da esquerda dou 2 cliques faço uma query e monto a segunda tudo perfeito e bonito.

Mas tem um porem, não consigo tirar do enchoice do TOPO o botão confirmar, preciso deixar somente o botão fechar

mas o operatio ACTION 'VIEWDEF.PCIELPRE'OPERATION 4 ACCESS 0 não tem essa opção, como devemos proceder, existe algo? parecido com a tela das novas procedures que ao clicar em confirmar ele exibe uma mensagem e fecha a tela?

2

Acredito que essa não seja a melhor opção, mas no meu caso, resolvi utilizando a classe FWViewExec()


Static Function Visitante()
    Local oExecView := Nil
    Local cTitle    := "Entrada de Visitante"
    Local nOpc      := 4
    Local aBotoes   := Array(14)
    Local nI        := 0

    //Defino que somente o cancelar estará disponivel
    For nI := 1 To Len(aBotoes)
        If nI == 8
            aBotoes[nI] := {.T.,"Fechar"}
        Else
            aBotoes[nI] := {.F.,Nil}
        EndIf
    Next nI

    oExecView := FWViewExec():New()
    oExecView:setTitle(cTitle)
    oExecView:setButtons(aBotoes)
    oExecView:setSource("zPOR0030")
    oExecView:setOK({|| .T.})
    oExecView:setModal(.F.)               
    oExecView:setOperation(nOpc)
    //oExecView:SetSize(300/*Height*/,500/*Width*/)
    oExecView:openView(.F.)

Return
3

o Problema realmente foi solucionado, muito obrigado que Deus te abençoe hoje e sempre.