A740GrdM_Adiciona grid ao modelo de dados MVC

Características do Requisito

Microsiga Protheus

Serviços

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

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