Exemplo do Ponto de Entrada TK380DAT.
Exemplo do Ponto de Entrada:
//Bibliotecas #Include "Protheus.ch" /*--------------------------------------------------------------------------------------------------------------* | P.E.: TK380DAT | | Desc: Manipula data do atendimento (para atendimentos em datas futuras) | | Link: http://tdn.totvs.com/pages/releaseview.actionçpageId=6787827 | *--------------------------------------------------------------------------------------------------------------*/ User Function TK380DAT() Local aArea := GetArea() Local dDataMax := PARAMIXB[1] dDataMax := DaySum(dDataMax, 5) RestArea(aArea) Return dDataMax
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;