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

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

3 respostas

Não é a resposta que estava procurando? Procure outras perguntas com as tags mvc ou faça a sua própria pergunta.