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