Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLS315VS - Controle de Alteração de Status
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLS315VS - Controle de Alteração de Status
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de Entrada PLS315VS na função ValidStatu, após a verificação de status do paciente.

Objetivo: Permite o controle da mudança de status de um paciente agendado na funcionalidade de recepção.
Programa Fonte 
PLSA315.PRW
Sintaxe

PLS315VS - Controle de Alteração de Status ( < ParamIxb[1]> , < ParamIxb[2]> , < ParamIxb[3]> , < ParamIxb[4]> ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Numérico Recno do registro da tabela BBD (agendas). X
ParamIxb[2] Array of Record Array aStatus contendo os status possíveis. X
ParamIxb[3] Numérico Opção escolhida a partir do array aStatus (para qual status esta sendo alterado). X
ParamIxb[4] Numérico Opção escolhida antiga escolhida dentro do array aStatus (qual status estava antes da alteração). X
Retorno
    lRet(logico)
  • Lógico sendo verdadeira (true) caso seja possível continuar ou falso (false) caso não seja possível continuar.
Exemplos 
User Function PLS315VS()LOCAL nRecBBD := Paramixb[1]LOCAL aStatus := paramixb[2]LOCAL nTipo   := paramixb[3]LOCAL nPos    := paramixb[4]LOCAL lRet      := .T.// Para garantir o posicionamentoBBD->( dbGoto(nRecBBD) )DbSelectArea("BEA")BEA->( DbSetorder(13) )If !BEA->( MsSeek(xFilial("BEA")+BBD->BBD_NUMATE) ) .or. Empty(BBD->BBD_NUMATE)     MsgInfo("El cambio de Status del agenda solo sera permitido después del generacion del encaminamento.Tome la acción de encaminar para espués cambiar el Status!")         lRet := .F.EndifIf lRet .And. aStatus[nTipo,4] < aStatus[nPos,4]   MsgInfo("No es posible estornar." )   lRet := .F.Endif If BBD->BBD_STATUS == "6" .And. BEA->BEA_CODRDA == GetNewPar("MV_PLSRDAG","999999")   MsgInfo("No es posible cambiar el status con el rda generica.")   lRet := .F.Endif Return lRet