Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: VX001DFA - Fases do Atendimento
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
 Ponto de Entrada localizado na rotina Fases do Atendimento (VEIXI001), executado após as  fase do atendimento, questionando se o usuário deseja interromper ou avançar as fases do atendimento.
Eventos
 User Function VX001DFA()
Local lInterrompe := .f.
Local cNumAte := ParamIxb[01]  // Parametro 1 - Nro do Atendimento
Local cStaAte := ParamIxb[02]  // Parametro 2 - Status do Atendimento
If cStaAte == "O" // Atendimento Pre-Aprovado
MsgInfo("Ponto de Entrada VX001DFA executado com sucesso!","Atenção")
EndIf
Return(lInterrompe)ar o gerente Jose.","Atenção")
       lInterrompe := .t.
   EndIf
EndIf
Return(lInterrompe)
Programa Fonte 
VEIXI001.PRW
Sintaxe

VX001DFA - Fases do Atendimento ( [ VV9->VV9_NUMATE ], [ VV9->VV9_STATUS ] ) --> lInterrompe

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
VV9->VV9_NUMATE Caracter Numero do Atendimento (caracter 10 posicoes)
VV9->VV9_STATUS Array of Record Status do Atendimento (caracter 1 posicao)
Retorno
    lInterrompe (logico)
  • se é para interromper o avanço das fases do atendimento.
Observações
 If ExistBlock("VX001DFA")
      lInterrompe := ExecBlock("VX001DFA",.f.,.f.,{VV9->VV9_NUMATE,VV9->VV9_STATUS})
EndIf
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não