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