01. DADOS GERAIS
| Produto: |
TOTVS Prestadores de Serviços Terceirização |
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | Prestadores de Serviço Terceirização |
|---|
| Função: | TECA580G |
|---|
| Ticket: | Não há |
|---|
| Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-10628 |
|---|
02. SITUAÇÃO/REQUISITO
Necessidade de um P.E no TECA580G para alteração dos horários na geração das agendas para horários flexíveis com manutenções planejadas.
03. SOLUÇÃO
Ponto de Entrada
| Descrição: | Microsiga Protheus® |
|---|
| Localização: | Serviços |
|---|
| Programa Fonte: | TECA580G.PRW |
|---|
| Função: | At580GHE |
|---|
| Parâmetros | Nome | Tipo | Descrição |
|---|
| PARAMIXB[1] | Array | [01] = RECNO())
[02] = ABB->ABB_CODIGO
[03] = ABB->ABB_CODTEC
[04] = ABB->ABB_HRINI
[05] = ABB->ABB_HRFIM
[06] = ABB->ABB_TIPOMV
[07] = ABB->ABB_DTINI
[08] = ABB->ABB_DTFIM
[09] = Sequência
[10] = TDV_DTREF
| | PARAMIXB[2] | Array | aMnt[x]
[x][01] = TXH_CODTFF
[x][02] = TXH_HORAFI
[x][03] = TXH_HORAIN
[x][04] = TXH_MANUT
[x][05] = TDX_SEQTUR
[x][06] = TGW_DIASEM
[x][07] = TGW_HORINI
[x][08] = TGW_HORFIM
[x][09] = TXH_MTFIL
[x][10] = TXH_FERIAD
[x][11] = TXH_CODPAI
[x][12] = TXH_CODIGO | PARAMIXB[3] | Array | aRet{aAgd,aMnt[x]} |
|
|---|
| Retorno | aHoras |
|---|
#INCLUDE 'PROTHEUS.CH' User Function At580GHE()
Local aAgd := PARAMIXB[1]
Local aMnt := PARAMIXB[2]
Local aRet := PARAMIXB[3]
Local nAux := 0
Local nHrIni := 13.03
Local nHrFim := 17.33
nAux := ASCAN(aMnt, {|a| a[6] == aAgd[9] .AND.;
TecNumToHr(nHrIni) == aAgd[4] .AND.;
TecNumToHr(nHrFim) == aAgd[5] .AND.;
cValToChar(DOW(aAgd[10])) == a[7] })
If nAux > 0
aMnt[nAux][8] := nHrIni
aMnt[nAux][9] := nHrFim
aMnt[nAux][3] := "18:33"
aMnt[nAux][4] := "13:03"
AADD(aRet, {aAgd, aMnt[nAux]})
Endif
Return aRet
|
|---|
Obs: O retorno sempre deverá ser um array com duas posições, uma posição com o array de agenda e a outra posição com o array de manutenção.
Não há
05. ASSUNTOS RELACIONADOS
