AT19DLLo - Carregamento do Grid de Agendas Projetadas por Local

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Serviços
Módulo:	Gestão de Serviços
Função:	TECA190D - Mesa Operacional
Ticket:	Não há.
Requisito/Story/Issue (informe o requisito relacionado) :	DSERSGS-7944

02. SITUAÇÃO/REQUISITO

Necessidade de inclusão de nova(s) coluna(s) no Grid de Agendas Projetadas por Local.

03. SOLUÇÃO

Implementação do Ponto de Entrada AT19DLLo que é executado após o carregamento das colunas padrões na linha do Grid de Agendas Projetadas por Local.

Este ponto de entrada recebe os seguinte parâmetros:

Parâmetro	Descrição
oModel	Modelo da rotina TECA190D.
oGridLoc	Grid de Agendas Projetadas por Local. Importante: Este grid está posicionado na linha corrente que acabou de ser inserida.
cCodTec	Código do Atendente ao qual se refere a agenda.
aColunas	Array contendo as colunas do Grid (capturado pelo aHeader) na seguinte estrutura: aColunas[n, 01] - Nome do campo do Grid aColunas[n, 02] - Valor do Campo do Grid
lRefresh	Indica se o Grid terá ação de refresh após todos os seus dados carregados.

Este ponto de Entrada não tem retorno.

Exemplo de Utilização:

#Include "Protheus.ch"

User Function AT19DLLo()

Local oModel := NIL
Local oGrid := NIL
Local cCodTec := ""
Local aColunas := {}
Local dDataIni := Ctod("")
Local dDataFim := Ctod("")
Local nC := 0
Local cCodTFF := ""
Local lRefresh := .f.

If Len(PARAMIXB) >= 5
oModel := PARAMIXB[1]
oGridLoc := PARAMIXB[2]
cCodTec := PARAMIXB[3]
aColunas := aClone(PARAMIXB[4])
lRefresh := PARAMIXB[5]

//Captura a Data Inicial e Final
dDataIni := oModel:GetModel('PRJMASTER'):GetValue("PRJ_DTINI")
dDataFim := oModel:GetModel('PRJMASTER'):GetValue("PRJ_DTFIM")

//Captura o codigo do Posto no Modelo
cCodTFF := oModel:GetModel('TFLMASTER'):GetValue("TFL_TFFCOD")

//Lê todos os campos do Grid Corrente, mesmos os vazios
ConOut("Atendente[" + cCodteC + "] - Período [" + DtoC(dDataIni) + "~" + DtoC(dDataFim) + " Posto:" + cCodTFF)
For nC := 1 to Len(aColunas)
ConOut("Campo: " + aColunas[nC, 01] + " - Valor: "+ cValToChar(aColunas[nC, 02] ) )

Next nC
oGridLoc:LoadValue("LOC_TESTE", "Teste"+StrZero(oGridLoc:GetLine(),5)) //Campo personalizado definido no p.e. AT19DCPO

EndIf

Return

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS