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

a740GrdM_Adiciona grid ao modelo de dados MVC

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

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 

Eventos:

ModelDef()->oModel

Programa Fonte:

TECA740.PRW; TECA740F

Função:

ModelDef()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 Nulo

Nulo

Ponto de entrada não tem retorno.

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

oModel:getModel('TEV_ADICIO'):SetNoUpdateLine(.T.)

Return

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:

Não

Exemplo:

a740GrdM_Adiciona grid ao modelo de dados MVC

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

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>>Locação>>Movimentações->Retorno de locação

Eventos:

TEC800RL()->Nil

Programa Fonte:

TECA800.PRW

Função:

At800RetLib()

Retorno:

Exemplo:

#Include 'Protheus.ch'

User Function TEC800RL()

MsgAlert("Executou o ponto de entrada TEC800RL")

Return http://tdn.totvs.com/display/public/mp/MPFormModel