Versão atual:

Modal com FWViewExec

Senhores, estou tentado criar uma modal com FWViewExec baseado no exemplo do TDN (https://tdn.totvs.com/pages/viewpage.action?pageId=272697628), mas estou com o error log abaixo, o que pode ser?

Cannot find method FWFORMFIELDSMODEL:CANINSERTLINE on FWFORMVIEW:CANINSERTLINE(FWFORMVIEW.PRW)

O erro é na linha:

oExecView:openView(.F.)

segue código completo

Static Function ESTA39NF(oViewPai)
    Local oStruZA3    := FWFormStruct(2,'ZA3')
    Local oView         := Nil
    Local oExecView := FWViewExec():New()
    Local oModel        := oViewPai:GetModel()
    Local lRet             := .T.


    oStruZA3:RemoveField( 'ZA3_NUM' )
    oStruZA3:RemoveField( 'ZA3_VERSAO' )
    oStruZA3:RemoveField( 'ZA3_PEDIDO' )
    oStruZA3:RemoveField( 'ZA3_DATA' )
    oStruZA3:RemoveField( 'ZA3_HORA' )
    oStruZA3:RemoveField( 'ZA3_DTATUA' )
    oStruZA3:RemoveField( 'ZA3_HRATUA' )
    oStruZA3:RemoveField( 'ZA3_SITUA' )
    oStruZA3:RemoveField( 'ZA3_OBS' )


    oView := FWFormView():New(oViewPai)
    oView:SetModel(oModel)
    oView:SetOperation(oViewPai:GetOperation())

    oView:AddGrid('FORM_ZA3' , oStruZA3,'ZA3MASTER')
    oView:CreateHorizontalBox( 'BOXFORM_ZA3', 100)
    oView:SetOwnerView('FORM_ZA3','BOXFORM_ZA3')

    //oView:AddIncrementField('FORM_ZA3' , 'ZL4_ITRAT' )
    oView:EnableTitleView('FORM_ZA3' , 'Nota Fiscal' )

//Proteção para execução com View ativa.
    If oModel != Nil .And. oModel:isActive()
        oExecView:setModel(oModel)
        oExecView:setView(oView)
        oExecView:setTitle('Nota Fiscal')
        oExecView:setOperation(oViewPai:GetOperation())
        oExecView:setReduction(50)
        oExecView:SetCloseOnOk({|| .T.})
        oExecView:openView(.F.)

        If oExecView:getButtonPress() == VIEW_BUTTON_OK
            lRet := .T.
        Endif
    EndIf
*/

Return lRet
Static Function ViewDef()
    // INSTANCIA A VIEW
    Local oView := FwFormView():New()

    // INSTANCIA AS SUBVIEWS
    Local oStruZA3 := FwFormStruct(2, "ZA3",,)
    Local oStruZA4 := FwFormStruct(2, "ZA4",,)

// RECEBE O MODELO DE DADOS
    Local oModel := FwLoadModel("GAESTA39")


// INDICA O MODELO DA VIEW
    oView:SetModel(oModel)

// CRIA ESTRUTURA VISUAL DE CAMPOS
    oView:AddField("VIEW_ZA3", oStruZA3, "ZA3MASTER")
    oView:AddGrid("VIEW_ZA4", oStruZA4, "ZA4DETAIL")



// CRIA BOXES HORIZONTAIS
    oView:CreateHorizontalBox("SUPERIOR", 40)
    oView:CreateHorizontalBox("INFERIOR", 60)

// RELACIONA OS BOXES COM AS ESTRUTURAS VISUAIS
    oView:SetOwnerView("VIEW_ZA3", "SUPERIOR")
    oView:SetOwnerView("VIEW_ZA4", "INFERIOR")


// DEFINE OS TÍTULOS DAS SUBVIEWS
    oView:EnableTitleView("VIEW_ZA4","Itens")

    //Adiciona opção no Outras Ações, dentro do Registro
    oView:AddUserButton("Nota Fiscal","FILTRO",{|oView| ESTA39NF(oView)})//"Condição Filtro"

Return (oView)

Versões (2):

Ver a versão formatada

Modal com FWViewExec

Comentário

new question