01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|
Segmento: | Serviços |
---|
Módulo: | Gestão de Serviços |
---|
Função: | TECXFUNB.PRW |
---|
Ticket: | Não há. |
---|
Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-6505 |
---|
02. SITUAÇÃO/REQUISITO
Criação do ponto de entrada para manipulação em conflitos de integração RH, afastamento, demissão ou ferias.
03. SOLUÇÃO
Ponto de Entrada
Descrição: | Microsiga Protheus® |
---|
Localização: | Serviços |
---|
Programa Fonte: | TECXFUNB.PRW |
---|
Função: | TecConfAlo |
---|
Parâmetros | Nome | Tipo | Descrição |
---|
aPEConfa | Array | Array para informações sobre o atendente, segue estrutura por posição. 01 - Matricula 02 - Nome do Atendente 03 - Código do Atendente 04 - Numero do Contrato 05 - Inicio das Ausências 06 - Fim das Ausências 07 - Inicio da Agenda 08 - Fim da Agenda 09 - Motivo da Ausência 10 - Data da demissão Lembrete: A posição 10 vira preenchida, e Em caso de demissão, as posições 05 e 06 estão vazias quando o motivo da ausência for: Transferência e Demissão. Caso contrario a posição 10 estará vazia ou seja: ""5 e 6 do array não são preenchidas e a posição 10 recebe a data da demissão. | aAgenda | Array | Array contendo as agenda geradas, o array contem N linhas com cinco posições: 01 - Data Inicio 02 - Data Fim 03 - Hora Inicio 04 - Hora Fim 05 - Codigo da ABB 06 - ABB_CHEGOU 07 - Local 08 - IDCFAL 09 - RECNOC |
|
---|
Retorno: |
|
---|
Bloco de código |
---|
language | text |
---|
linenumbers | true |
---|
|
#INCLUDE 'protheus.ch'
#INCLUDE 'parmtype.ch'
#INCLUDE "FWMVCDEF.CH"
User Function ATPECONFA()
Local aConfa := PARAMIXB[1][1]
Local aAgenda := PARAMIXB[2]
Local cMsg := ""
cMsg := "O atendente: " + aConfa[2] + CRLF
cMsg += "Matricula: " + aConfa[1] + CRLF
cMsg += "Codigo do atendente: " + aConfa[3] + CRLF
cMsg += "Numero do contrato: " + aConfa[4] + CRLF
cMsg += "Esta preste a realizar um(a): " + aConfa[9] + CRLF
cMsg += "Periodo de agenda: " + DToC(aConfa[7]) + " até " + DToC(aConfa[8]) + CRLF
If EMPTY(aConfa[10])
cMsg += "Com Afastamento para a data: " + DToC(aConfa[5]) + " até " + DToC(aConfa[6]) + " Gerando conflito na(s) agenda(s)" + CRLF
Else
cMsg += "Com demissao para a data: " + DToC(aConfa[10]) + " gerando confilto na agenda."
EndIf
AtShowLog(cMsg,"Atendente",/*lVScroll*/,/*lHScroll*/,/*lWrdWrap*/,.F.)
Return |
04. DEMAIS INFORMAÇÕES
Não há.
05. ASSUNTOS RELACIONADOS
...