| 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 |
Necessidade de inclusão de nova(s) coluna(s) no Grid de Agendas Projetadas por Local.
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á.
Não há.
