Histórico da Página
Wiki Markup |
---|
||Descrição|| O ponto de entrada será acionado após uma nova inclusão e confirmação das validações na tela de agenda clínica.
||Observações|| Ao confirmar um novo agendamento, o sistema fará todas as validações necessárias e em caso positivo retornará .T. (true) possibilitando novas customizações de regras de negócios. Caso o retorno for .F. (false), o sistema não permitirá a confirmação do agendamento, condicionando a possibilidade de confirmar o agendamento se a nova regra customizada for atendida (.T.).
||Exemplos||
User Function HSM54OK()
Local _nOpc := PARAMIXB[1]
Local _nAgenda := Ascan(aOBJETOS[1,2]:aCols,{|x|AllTrim(x[1])=="BR_LARANJA"})
Local _nEncaixe:= Ascan(aOBJETOS[2,2]:aCols,{|x|AllTrim(x[1])=="BR_LARANJA"})
Local dDtAge
Local nDias
Local lRet := .T.
If _nOpc == 2 .Or. _nOpc == 4 /* Opção AGENDAR ou TRANSFERIR */
If _nAgenda > 0
dDtAge := aOBJETOS[1,2]:aCols[nAgenda][2]
ElseIf _nEncaixe > 0
dDtAge := aOBJETOS[1,2]:aCols[nAgenda][2]
EndIf
nDias := ( dDtAge- Date() )
If nDias >= GetNewPar("ES_PERAGE",7)
lRet := MsgYesNo('CONFIRMA - Agendamento marcado para um período igual ou superior a '+;
cValToChar(GetNewPar("ES_PERAGE",7))+" dias","ATENÇÃO")
EndIf
EndIf
Return (lRet)
||Preview||
||Veja também|| Está visível pelo ponto de entrada a variável aOBJETOS que possui em memória todas as informações da tela de agendamento.
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates||
||Parâmetros|| Local _nOpc := PARAMIXB[1] // 2- Agendar; 3-Cancelar; 4-Transferir; 5-Alterar
||Retorno|| lRet
||Eventos de chamada do Ponto de Entrada||
||Variáveis||
||Programa Fonte|| HSPAHM54.PRW |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas