01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:CNTA100 - Situações do Contrato
País:Brasil
Ponto de Entrada:

CN100SIT


02. DESCRIÇÃO

Descrição:

cria uma mensagem após alteração da situação do contrato.

Eventos:

É executado após a alteração da situação do contrato, quando é definido que o contrato passará de uma situação para outra. Sua execução ocorre após o processamento interno do sistema.

Programa Fonte:
CNTA100.PRW
Função:

CN100SitCh

Sintaxe:

CN100SIT - Situações do contrato ( < PARAMIXB[1]> , < PARAMIXB[2]>, <aDescrSitu> ) --> Nil

Parâmetros:
NomeTipoEscopoPode Alterardescrição
PARAMIXB[1]CaracterLocalNão
PARAMIXB[2]CaracterLocalNão
aDescrSitu arrayLocalSimRecupera a Descrição das Situações
cSituDescricao CaracterLocalNão
cNovaDescricaoCaracterLocalNão
Retorno:

Sem Retorno

/*O exemplo abaixo cria uma mensagem após alteração da situação do contrato*/
// Possíveis situações do contrato

User Function CN100SIT()
    Local cSituAtu := PARAMIXB[1]  // Situação atual do contrato
    Local cNovaSitu := PARAMIXB[2]  // Nova situação do contrato
    Local aDescrSitu := RetSx3Box(Posicione("SX3", 2, "CN9_SITUAC", "X3CBox()"),,, GetSx3Cache("CN9_SITUAC", "X3_TAMANHO"))  // Recuperando as descrições das situações
    Local cSituDescricao := ''
    Local cNovaDescricao := ''

    // Encontrar a descrição da situação atual (cSituAtu) no array aDescrSitu
    aScan(aDescrSitu, {|x| If(x[2] == cSituAtu, cSituDescricao := x[3], nil)})

    // Encontrar a descrição da nova situação (cNovaSitu) no array aDescrSitu
    aScan(aDescrSitu, {|x| If(x[2] == cNovaSitu, cNovaDescricao := x[3], nil)})

    // Se não encontrar as descrições, use as próprias variáveis cSituAtu e cNovaSitu
    If Empty(cSituDescricao)
        cSituDescricao := cSituAtu
    EndIf

    If Empty(cNovaDescricao)
        cNovaDescricao := cNovaSitu
    EndIf

    // Mensagem de situação trocada com destaque 
    cMensagem := I18N("Situação trocada de #1 para #2", {Upper(cSituDescricao), Upper(cNovaDescricao)})
    cTitulo := "Alteração de Situação"  // Título da caixa de mensagem

    // Exibe a mensagem na caixa de alerta personalizada
    FWAlertInfo(cMensagem, cTitulo)

Return



03. DEMAIS INFORMAÇÕES

Outras ações/ações relacionadas 

04. ASSUNTOS RELACIONADOS