Árvore de páginas

Descrição

Este ponto de entrada está localizado na rotina Atend. Modelo 2 (VEIXA018). É executado antes das mudanças de status do Atendimento. Desarma a transação.

Observações

Exemplos

User Function VX001AFA()
Local lInterrompe := .f.
Local cNumAte := ParamIxb[01] // Parâmetro 1 - Nro do Atendimento
Local cStaAte := ParamIxb[02] // Parâmetro 2 - Status do Atendimento
MsgInfo("Ponto de Entrada VX001AFA executado com sucesso!","Atenção")
Return(lInterrompe)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

VV9->VV9_NUMATE - Nro do Atendimento (caracter 10 posições)
VV9->VV9_STATUS - Status do Atendimento (caracter 1 posição).

Retorno

lInterrompe - Retorno lógico, se interrompe (.t.) o avanço de fase do Atendimento.

Eventos de chamada do Ponto de Entrada

If cFaseAtu $ "A1POLF"
If !VXI001VLVEI(aVVAs)
Return .f.
EndIf
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Chama Ponto de Entrada ( Customização antes de cada fase do Atendimento )³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ExistBlock("VX001AFA")
lInterrompe := ExecBlock("VX001AFA",.f.,.f.,{VV9->VV9_NUMATE,VV9->VV9_STATUS})
If lInterrompe
Return .f.
EndIf
EndIf
EndIf

Variáveis

Programa Fonte

VEIXI001.PRW

  • Sem rótulos