| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | BackOffice |
| Módulo: | Gestão de Contratos |
| Função: | CNTA100- Funções de Contratos |
| Ticket: | 8156004 |
| Issue: | DMANMAT02-26240 |
O sistema não realizava a mudança de situação de um contrato através da função CN100Situac via rotina automática.
O sistema foi corrigido para realizar a mudança da situação conforme esperado após a chamada da função CN100Situac.
A declaração da variável private aRetAuto foi descontinuado, a rotina agora utiliza o valor passado no quarto parâmetro da função.
Exemplo:
User Function CN300AUTO()
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GCT"
ConOut("INICIO TESTE")
CN300SITU()
ConOut("FIM TESTE")
RESET ENVIRONMENT
Return nRet
Static Function CN300SITU()
Local cFilCont := xFilial("CN9")
Local cContra := '<NUMERO DO CONTRATO>'
Local cRevisa := Space(Len(CN9->CN9_REVISA))
Local cMsgErro := ''
CN9->(DBSetOrder(1))
If CN9->( DbSeek( cFilCont + cContra + cRevisa ))//Deve se posicionar no contrato que terá sua situação alterada
CN100Situac('CN9',CN9->(Recno()),4, "05",.T.,@cMsgErro)//Muda a situação do contrato para vigente
ConOut(IIF((CN9->CN9_SITUAC == "05"), "EXECUTADO COM SUCESSO", cMsgErro))
EndIf
Return