Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: VXI01ACA - Desmarca a transação antes do cancelamento
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 executado antes de iniciar cancelamento ou volta do status do Atendimento. Desmarca a transação.Caso o status atual esteja "A"- Aberto, o próximo status será "C" - Cancelado.Se o status atual estiver "P"- Pendente Aprovação, "O"- Pré-Aprovado, "L"- Aprovado ou "R"-Reprovado o próximo status pode ser "A"- Aberto ou "C"- Cancelado.Se o status atual for "F"- Finalizado, o próximo status pode ser "L"- Aprovado ou "C"-Cancelado.
Eventos
 User Function VXI01ACA()
Local lContinua := .t.
Local cNumAte := ParamIxb[01]  // Parametro 1 - Nro do Atendimento
Local cPrxSta := ParamIxb[02]  // Parametro 2 - Proximo Status do Atendimento
If cPrxSta == "C" // Cancelar Atendimento
MsgInfo("Ponto de Entrada VXI01ACA executado com sucesso!","Atenção")
EndIf
Return(lContinua)   EndIf
EndIf
Return(lContinua)Return(lInterrompe)
Programa Fonte 
VEIXI001
Sintaxe

VXI01ACA - Desmarca a transação antes do cancelamento ( [ VV9->VV9_NUMATE ], [ cFasePrx ] ) --> lContinua

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
VV9->VV9_NUMATE Caracter Nro do Atendimento
cFasePrx Array of Record Próximo Status do Atendimento após o cancelamento/volta do Atendimento
Retorno
    lContinua(logico)
  • .f. não continua o cancelamento/volta do atendimento e desmarca a transação.
Observações
 If ExistBlock("VXI01ACA")
If !ExecBlock("VXI01ACA",.f.,.f.,{VV9->VV9_NUMATE,cFasePrx})
DisarmTransaction()
Return .f.
EndIf
EndIf
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não