At580GHE - Edição de horários no TECA580G

01. DADOS GERAIS

Produto:	TOTVS Prestadores de Serviços Terceirização
Linha de Produto:	Linha Protheus
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

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.

04. DEMAIS INFORMAÇÕES

Não há

05. ASSUNTOS RELACIONADOS

Não há

Árvore de páginas