A740GrdM_Adiciona grid ao modelo de dados MVC
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Gestão de Serviços | ||||
Rotina: |
|
O ponto de entrada é indicado para adicionar grid's ao modelo de dados das rotinas TECA740 e TECA740F (Orçamento de serviço)
Ponto de Entrada
Descrição: | A740GrdM - Adiciona grid ao modelo de dados MVC. | ||||||||
Localização: | Atualizações>>Oportunidades>>Proposta Comercial->Orçamento de serviços | ||||||||
Eventos: | ModelDef()->oModel | ||||||||
Programa Fonte: | TECA740.PRW; TECA740F | ||||||||
Função: | ModelDef() | ||||||||
Retorno: |
|
Exemplo 1:
User function a740GrdM()
Local oModel := PARAMIXB[1] //Modelo de dados
Local aModels := PARAMIXB[2] //Array com todos submodelos do objeto {id, descrição}
Local oStrTEV := FWFormStruct(1,'TEV')
oModel:addGrid('TEV_ADICIO','TFI_LE',oStrTEV)
oModel:SetRelation('TEV_ADICIO', { { 'TEV_FILIAL', 'xFilial("TEV")' }, { 'TEV_CODLOC', 'TFI_COD' } }, TEV->(IndexKey(1)) )
oModel:GetModel( 'TEV_ADICIO' ):SetUniqueLine( { 'TEV_MODCOB' } )
oModel:getModel('TEV_ADICIO'):SetDescription('TESTE PE') // 'Cobrança da Locação'
oModel:getModel('TEV_ADICIO'):SetNoUpdateLine(.T.)
Return
Exemplo 2 - Com adição de aba:
User function a740GrdM()
Local oModel := PARAMIXB[1] //Modelo de dados
Local aModels := PARAMIXB[2] //Array com todos submodelos do objeto {id, descrição}
Local oStrZPP := FWFormStruct(1,'ZPP')
oModel:addGrid('ZPP_TESTE','TFF_RH',oStrZPP)
oModel:SetRelation('ZPP_TESTE', { { 'ZPP_FILIAL', 'xFilial("ZPP")' }, { 'ZPP_CODTFF', 'TFF_COD' } }, ZPP->(IndexKey(1)) )
oModel:getModel('ZPP_TESTE'):SetDescription('Descricao Teste')
Return
Obs.: Pra preenchimento 'manual' do grid aconselhamos usar o bloco de load do addGrid.
Ex:
oModel:addGrid( 'XXXDETAIL', 'YYYMASTER', oStrXXX,,,,,{|oGrid|funcaoload(oGrid)})
Mais informações em:
http://tdn.totvs.com/display/public/mp/MPFormModel