Versão atual:

Folders MVC - Permitir sair sem gravar

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' )

Versão (1):

Ver a versão formatada

Folders MVC - Permitir sair sem gravar

  • criado 25 de Oct de 2021

Comentário

new question