01. DADOS GERAIS

Produto:

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]}

RetornoaHoras


#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.



04. DEMAIS INFORMAÇÕES

Não há



05. ASSUNTOS RELACIONADOS





<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>