Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CN100SIT - Situações do contrato
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO : Function CN100Situac() - Responsável pelo controle de situações do contrato.

EM QUE PONTO : É 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.
Eventos


 

Programa Fonte 
CNTA100.PRW
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB[1] Caracter Contém informações sobre a situação atual do contrato. X
PARAMIXB[2] Caracter Contém informações sobre a nova situação do contrato. X
Retorno
    Nil(nulo)
  • Nil
Observações


 

Exemplos 
/*O exemplo abaixo cria uma mensagem após alteração da situação do contrato que passará de “Em elaboração” para “Vigente”:*/ // Possíveis situações do contrato#DEFINE DEF_SCANC '01' //Cancelado#DEFINE DEF_SELAB '02' //Em Elaboração#DEFINE DEF_SEMIT '03' //Emitido#DEFINE DEF_SAPRO '04' //Em Aprovação#DEFINE DEF_SVIGE '05' //Vigente#DEFINE DEF_SPARA '06' //Paralisado#DEFINE DEF_SSPAR '07' //Sol Fina.#DEFINE DEF_SFINA '08' //Finalizado#DEFINE DEF_SREVS '09' //Revisão  #DEFINE DEF_SREVD '10'//RevisadoUser Function CN100SIT()Local cAtu := PARAMIXB[1]Local cDst := PARAMIXB[2]// Situação atual do contrato.If cAtu == DEF_SELAB    msgAlert ('Situacao alterada de 'Em Elaboracao'')EndIf// Nova situação do contrato;If cDst == DEF_SVIGE    MsgAlert ('Situacao alterada para 'Vigente'')EndIfReturn