Não sei se estou com o pensamento correto mas tenho uma tabela personalizada a qual eu coloquei em Folders no MVC. Ainda não fiz, mas a minha ideia é separar os campos entre as Folders. Mas o que está pegando mesmo é que: ao entrar na View com a operação 4(alterar), só consigo sair da tela com o botão Confirmar, o botão fechar não funciona e nem se eu precisar a tela é fechada sem salvar.
Alguém sabe o porquê desse comportamento?
Trecho ModelDef oModel := MPFormModel():New("VLDCAD",,,,{||.F.}) oModel:AddFields("FORMCOM",,oStCom) oModel:AddFields("FORMFIN","FORMCOM",oStFin) oModel:AddFields("FORMCON","FORMCOM",oStCon) oModel:SetPrimaryKey({'ZC_FILIAL','ZC_COD'}) oModel:SetDescription("Cadastro")
Trecho Viewdef Local oModel := FWLoadModel("AVALCAD") Local oStCom := FWFormStruct(2, "SZC") Local oStFin := FWFormStruct(2, "SZC") Local oStCon := FWFormStruct(2, "SZC") Local oView := Nil
oView := FWFormView():New() oView:SetModel(oModel)
oView:AddField( "VIEW_COM", oStCom, "FORMCOM" ) oView:AddField( "VIEW_FIN", oStFin, "FORMFIN" ) oView:AddField( "VIEW_CON", oStCon, "FORMCON" )
oView:CreateFolder('MAIN_FOLDER') oView:AddSheet( 'MAIN_FOLDER', 'ABA_COMERCIAL' , 'Comercial' ) oView:AddSheet( 'MAIN_FOLDER', 'ABA_FINANCEIRO', 'Financeiro' ) oView:AddSheet( 'MAIN_FOLDER', 'ABA_CONTABIL' , 'Contábil' )
oView:CreateHorizontalBox( 'BOX_COMERCIAL' ,100,,, 'MAIN_FOLDER', 'ABA_COMERCIAL' ) oView:CreateHorizontalBox( 'BOX_FINANCEIRO',100,,, 'MAIN_FOLDER', 'ABA_FINANCEIRO' ) oView:CreateHorizontalBox( 'BOX_CONTABIL' ,100,,, 'MAIN_FOLDER', 'ABA_CONTABIL' )