Linha Microsiga Protheus

Árvore de páginas

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

A função CN300Aprov não aprova a revisão do contrato.

03. SOLUÇÃO

Função CN300Aprov corrigida para aprovar as revisões de contratos corretamente.

Detalhes

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

Exemplo
#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