Histórico da Página
01. DADOS GERAIS
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 |
02. SITUAÇÃO/REQUISITO
O sistema não realizava a mudança de situação de um contrato através da função CN100Situac via ExecAutorotina automática.
03. SOLUÇÃO
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.
04. DEMAIS INFORMAÇÕES
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 |
05. ASSUNTOS RELACIONADOS
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> |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas