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))
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.)//Muda a situação do contrato para vigente
ConOut(IIF((CN9->CN9_SITUAC == "05"), "EXECUTADO COM SUCESSO", "FALHOU!"))
EndIf
Return |
05. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas