| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | BackOffice |
| Módulo: | Gestão de Contratos |
| Função: | CNTXFUN CNTA100- Funções de Contratos |
| Ticket: | 8156004 |
| Issue: | DMANMAT02-2569526240 |
O sistema não realizava a mudança de situação de um contrato através da função CN100Situac via ExecAutorotina 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:
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
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", "FALHOU!"cMsgErro))
EndIf
Return |
| HTML |
|---|
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after {
background: #FF9900; !important
}
.menu-item.active-tab {
border-bottom: none !important;
}
</style>
|
