Versão atual:

Varrer grid ao confirmar formulário em MVC

Olá Pessoal, tudo bem ?

Eu preciso varrer um grid, no momento de ok do formulário.

segue o exemplo do meu fonte.

Include 'Protheus.ch'

INCLUDE "FWMBROWSE.CH"

INCLUDE "FWMVCDEF.CH"

User Function TECF005() Local aArea := ZC6->(GetArea()) Private oBrowse

// Instanciamento da Classe de Browse oBrowse := FWMBrowse():New()

// Definição da tabela do Browse oBrowse:SetAlias('ZC6')

// Titulo da Browse oBrowse:SetDescription('Cadastros Reforço e Redução')

// Opcionalmente pode ser desligado a exibição dos detalhes oBrowse:DisableDetails()

// isso pode não apresentar o menu //oBrowse:SetMenuDef( 'FSFATC01' )

oBrowse:Activate()

RestArea(aArea)

Return

Static Function MenuDef()

Local aRotina := {}

ADD OPTION aRotina Title 'Visualizar' Action 'VIEWDEF.TECF005' OPERATION 2 ACCESS 0 ADD OPTION aRotina Title 'Incluir' Action 'VIEWDEF.TECF005' OPERATION 3 ACCESS 0 ADD OPTION aRotina Title 'Alterar' Action 'VIEWDEF.TECF005' OPERATION 4 ACCESS 0 ADD OPTION aRotina Title 'Excluir' Action 'VIEWDEF.TECF005' OPERATION 5 ACCESS 0 ADD OPTION aRotina Title 'Imprimir' Action 'VIEWDEF.TECF005' OPERATION 8 ACCESS 0 ADD OPTION aRotina Title 'Copiar' Action 'VIEWDEF.TECF005' OPERATION 9 ACCESS 0

Return aRotina

Static Function ModelDef()

// Cria o objeto do Modelo de Dados Local oModel

// Cria a estrutura a ser usada no Modelo de Dados Local oStruZC6 := FWFormStruct( 1, 'ZC6' , /bAvalCampo/,/lViewUsado/ )

//bPosModel:={ | oModel | fPosModelo(oModel) } oModel := MPFormModel():New('F005TEC', ,)

// Adiciona a descri��o do Modelo de Dados oModel:SetDescription('Clientes')

// Adiciona ao modelo um componente de formul�rio oModel:AddFields( 'ZC6MASTER', /cOwner/, oStruZC6)

//Define a chave primaria utilizada pelo modelo oModel:SetPrimaryKey({'ZC6_FILIAL', 'ZC6_NUM'})

// Adiciona a descri��o do Componente do Modelo de Dados oModel:GetModel( 'ZC6MASTER' ):SetDescription( 'XCoca' )

// Retorna o Modelo de dados Return oModel

Static Function ViewDef()

// Interface de visualiza��o constru�da Local oView

// Cria um objeto de Modelo de dados baseado no ModelDef() do fonte informado Local oModel := ModelDef()

// Cria a estrutura a ser usada na View Local oStruZC6 := FWFormStruct( 2, 'ZC6' )

// Cria o objeto de View oView := FWFormView():New()

// Define qual o Modelo de dados ser� utilizado na View oView:SetModel( oModel )

// Adiciona no nosso View um controle do tipo formul�rio // (antiga Enchoice) oView:AddField( 'VIEW_ZC6', oStruZC6, 'ZC6MASTER' )

// Criar um "box" horizontal para receber algum elemento da view oView:CreateHorizontalBox( 'TELA' , 100 )

// Relaciona o identificador (ID) da View com o "box" para exibi��o oView:SetOwnerView( 'VIEW_ZC6','TELA' ) oView:EnableTitleView('VIEW_ZC6','Clientes' )//oView:SetViewProperty('VIEW_SA1','SETCOLUMNSEPARATOR', {10})

//For�a o fechamento da janela na confirma��o oView:SetCloseOnOk({||.T.})

// Retorna o objeto de View criado Return oView

Versão (1):

Ver a versão formatada

Varrer grid ao confirmar formulário em MVC

Comentário

new question