Versão atual:

Grid sobrepondo os campos em MVC

Olá pessoal, boa tarde. Sou novo no fórum e preciso de ajuda.

O grid está sobrepondo os campos criados através do MVC. Alguém poderia me ajudar por favor?

OBS: Estou utilizando somente uma única tabela, na qual o mesmo deveria montar alguns campos através dos campos e outros campos através do Grid.

Obrigado.

User Function FATTHSK()

    Local aArea   := GetArea()
    Local oBrowse

    //Instânciando FWMBrowse - Somente com dicionário de dados
    oBrowse := FWMBrowse():New()

    //Setando a tabela de cadastro de Autor/Interprete
    oBrowse:SetAlias("Z35")

    //Setando a descrição da rotina
    oBrowse:SetDescription("Campanha de Vendas")

    //Ativa a Browse
    oBrowse:Activate()

    RestArea(aArea)

RETURN NIL


Static Function ModelDef()

    Local oModel         := Nil
    Local oStPai         := FWFormStruct(1, 'Z35') //1 PORQUE É MODELDEF
    Local oStZ35         := FWFormStruct(1, 'Z35', { |x| ALLTRIM(x) $ 'Z35_CV, Z35_LOJA' })

    oModel := MPFormModel():New('FATTHSKM')
    oModel:AddFields('Z35MASTER',/*cOwner*/,oStPai)
    oModel:AddGrid('Z35DETAIL','Z35MASTER',oStZ35,/*bLinePre*/, /*bLinePost*/,/*bPre - Grid Inteiro*/,/*bPos - Grid Inteiro*/,/*bLoad - Carga do modelo manualmente*/)

    oModel:SetPrimaryKey({})

    oModel:SetDescription("Campanha de Vendas")

    oModel:GetModel('Z35MASTER'):SetDescription('Modelo Campanha de Vendas')

    oModel:GetModel('Z35DETAIL'):SetDescription('Campanha de Vendas')

RETURN oModel


Static Function ViewDef()
    Local oView         := Nil
    Local oModel        := FWLoadModel('FATTHSK')
    Local oStPai        := FWFormStruct(2, 'Z35') //2 PORQUE É VIEW
    Local oStZ35        := FWFormStruct(2, 'Z35', { |x| ALLTRIM(x) $ 'Z35_CV, Z35_LOJA' })

    //Criando a View
    oView := FWFormView():New()
    oView:SetModel(oModel)

    //Adicionando os campos do cabeçalho e o grid dos filhos
    oView:AddField('VIEW_Z35',oStPai,'Z35MASTER')
    oView:AddGrid('VIEW_Z35',oStZ35,'Z35DETAIL')

    //Setando o dimensionamento de tamanho
    oView:CreateHorizontalBox('CABEC',70)
    oView:CreateHorizontalBox('GRID',30)

    //oStPai:RemoveField('Z25_GRUPRO')
    //oStPai:RemoveField('Z25_PRODUT')

    //Amarrando a view com as box
    oView:SetOwnerView('VIEW_Z35','CABEC')
    oView:SetOwnerView('VIEW_Z35','GRID')

    //Habilitando título
    oView:EnableTitleView('VIEW_Z35','Campos')
    oView:EnableTitleView('VIEW_Z35','Grupo')

Return oView

Versões (2):

Ver a versão formatada

Grid sobrepondo os campos em MVC

Comentário

new question