Histórico da Página

01. DADOS GERAIS

Produto:

Solucoes_totvs

Solucao	TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Serviços

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

Função:
Descrição:	Microsiga Protheus®
Localização:	Serviços
Programa Fonte:	TECA580G.PRW

At580HR

At580GHE

Parâmetros

Nome	Tipo	Descrição
PARAMIXB[1]	Array

Array para informações de alteração de horário.

01 - Código da TGY

PARAMIXB[1]: "000000001028897"

02 - Cód.Atendente

PARAMIXB[2]:"00001989"

03 - Data Inicial-

PARAMIXB[3]: 01/09/2020

04 - Data Fim

PARAMIXB[4]: 30/09/2020

05 - Data de Referência

PARAMIXB[5]: 30/09/2020

06 - Turno

PARAMIXB[6]: "001"

07 - Sequência

PARAMIXB[7]: "01"

aHorasArray

01 - Horario

01 - Hora Início

aHoras[1] : "07:00"

02- Hora Fim

aHoras[2] : "16:00"

[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

RetornoaHoras

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "PONCALEN.CH"

User Function AT580HR()
Local cCodTGY

:= PARAMIXB[1]

Local cCodAtend

Local aMnt := PARAMIXB[2]

Local cDtIni

Local aRet := PARAMIXB[3]

Local cDtFim    := PARAMIXB[4]
Local cTurno    := PARAMIXB[5]
Local cSeq      := PARAMIXB[6]
Local cEntra1   := "06:33"
Local cSaida1   := "12:00"
Local cEntra2   := "13:00"
Local cSaida2   := "17:33"
Local aHoras    := {}
Local nI        := 1
For nI := 1 To 2
    If nI == 1
        Aadd(aHoras, {cEntra1,;
                    cSaida1})
    ElseIf nI == 2
        Aadd(aHoras, {cEntra2,;
                    cSaida2})

    EndIf
Next nI
Return aHoras

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.

04. DEMAIS INFORMAÇÕES

Não há

05. ASSUNTOS RELACIONADOS

Não há

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave