Dias para o calculo do subsidio de refeição

Boa tarde,
Gostaria de saber de que forma consigo apanhar o valor dos dias para o subsidio de refeição que é colocado na emissão do recibo automaticamente(o cliente mudo o valor a mão e pode não corresponder com os dias uteis do mês), precisava depois utilizar para fazer contas num valor por defeito no PR

Faça login para poder traduzir

Framework

PHC

Recursos Humanos

Marked as spam

Criado há 1 mês e 1 semana alionapaduraru

alionapaduraru

Aliona Paduraru Most Valuable Professional

1 answers

Private answer

Olá,

Para saber como é feito o calculo, colocamos aqui um pequeno código que pode usar dentro da aplicação
(por exemplo testar com CTRL+F10 - Xbase)

m.PA_Dias=CalculoDiasUteisMesAno(6,2026)

WAIT WINDOW m.PA_Dias TIMEOUT 5

m.PA_Dias=CalculoDiasUteisMesAno(7,2026)

WAIT WINDOW m.PA_Dias TIMEOUT 5

FUNCTION CalculoDiasUteisMesAno(pMesData,pAnoData)

m.MesData = pMesData

m.AnoData=pAnoData

m.TotDiasUteis = 0

m.DataIni = ctod("01."+strzero(m.MesData ,2,0)+"."+strzero(m.AnoData,4,0))

m.DataFim = ctod(strzero(lastday(m.DataIni),2,0)+"." +strzero(m.MesData ,2,0)+"."+strzero(m.AnoData,4,0))

m.PosDiasMes = day(m.DataFim)-1

for n=0 to m.PosDiasMes

if dow(m.DataIni +n)<>1 and dow(m.DataIni +n)<>7 and not e_feriado(m.DataIni +n)

m.TotDiasUteis = m.TotDiasUteis + 1

endif

RETURN m.TotDiasUteis

Faça login para poder traduzir

Marked as spam

Criado há 1 mês e 6 dias pauloalexandrealves

pauloalexandrealves

Paulo Alexandre ALVES Loyal Contributor

Comments

Muito obrigada pela informação. Existe alguma forma de conseguir buscar esta informação, por no meu caso o cliente pode alterar e não fica o valor do calculo. Eu precisava de buscar o que o cliente coloco no campo e depois fazer calculos no valor por defeito que já tenho desenvolvido.

1 mês e 3 dias

alionapaduraru

« Back to Previous Page