01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Identificamos que alguns de nossos clientes expressam a necessidade de implementar um cálculo automático para o total de horas relacionadas a um serviço de item extra ao elaborar um orçamento de serviço.

03. SOLUÇÃO

É viável implementar gatilhos que executem uma função customizada com essa finalidade.

04. DEMAIS INFORMAÇÕES

Abaixo temos um exemplo de gatilho e função que realiza o cálculo da hora total de um serviço, de acordo com o range de datas e horários diários definidos para o posto:

Parâmetros da Função:

dDataIni - Data inicial do range - TFF_DTINI

dDataFim - Data Final do range - TFF_DTFIM

cHoraIni - Hora inicial do range - TFF_HORAIN

cHoraFim - Hora final do range - TFF_HORAFI

Exemplo de gatilho ao preencher a hora final TFF_HORAFI:

#INCLUDE "TOTVS.CH"
#INCLUDE "FWMVCDEF.CH"          
          
User Function gatHoraTot(dDataIni, dDataFim, cHoraIni, cHoraFim)
Local cQtdHoras := "00:00"
Local nHoraIni  := 0
Local nHoraFim  := 0

If !Empty(dDataIni) .And. !Empty(dDataFim) .And.;
    !Empty(cHoraIni) .And. !Empty(cHoraFim)

	//Transforma hora em formato "00:00" para segundos:
    nHoraIni := TimeToSecs(cHoraIni)
    nHoraFim := TimeToSecs(cHoraFim)

	//Calcula a quantidade de horas totais de acordo com o range de datas e horários:
    If nHoraIni > nHoraFim
        cQtdHoras := SecsToTime((dDataFim-dDataIni)*(nHoraIni-nHoraFim))
    Else
        cQtdHoras := SecsToTime((dDataFim-dDataIni)*(nHoraFim-nHoraIni))
    EndIf

	//Tratamento para desconsiderar os segundos e manter picture "00:00"
    cQtdHoras := SubStr(cQtdHoras,1,len(cQtdHoras)-3)
EndIf

Return cQtdHoras

Importante: Por padrão o campo TFF_QTDHRS tem o seu tamanho 5 com picture 99:99, sendo assim caso a função retorne um horário maior (como por exemplo "120:00") um erro de gatilho acontecerá. Por essa razão é importante que o tamanho e a picture do campo sejam ajustados de acordo com a usabilidade.

05. ASSUNTOS RELACIONADOS

• Não há