Histórico da Página
01. DADOS GERAIS
| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Suprimentos |
| Módulo: | Gestão de Contratos |
| Função: | CNTA300 - Gestão de Contratos |
| Ticket: | 6993742 |
| Issue: | DMANMAT02-22110 |
02. SITUAÇÃO/REQUISITO
O cliente tentava utilizar a função CN300Aprov para aprovação da revisão de um contrato, mas a mesma não funcionava conforme esperado e não aprovava a revisão.
03. SOLUÇÃO
O sistema foi corrigido para funcionar conforme esperado, dessa forma ao chamar a função CN300Aprov a revisão do contrato é aprovada.
| Informações | ||
|---|---|---|
| ||
A função CN300Aprov retorna um valor numérico, um(1) para quando a aprovação ocorreu com sucesso e zero(0) para quando ocorrer alguma falha. Além disso, é pré-requisito que o sistema esteja posicionado no registro da revisão que se deseja aprovar. |
04. DEMAIS INFORMAÇÕES
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
User Function CN300AUTO()
Local cContra := 'TECOP12000016LU'
Local cRevisa := '001'
Local nRet := 0
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "GCT" TABLES "CN9T10"
ConOut("Inicio")
CN9->(DBSetOrder(1))
If CN9->( DbSeek( xFilial("CN9") + cContra + cRevisa ))//=== Preparação do contrato para revisão
nRet := CN300Aprov(.T.)//- Função retorna 0 em caso de falha e 1 em caso de sucesso.
lRet := (nRet == 1)
EndIf
ConOut(IIF(lRet,"Revisao aprovada.", "Aprovacao falhou."))
ConOut("FIM")
RESET ENVIRONMENT
Return lRet |
05. ASSUNTOS RELACIONADOS
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas