Linha Microsiga Protheus

Árvore de páginas

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 rotina 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:

Exemplo
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", cMsgErro))
	EndIf
	
Return


05. ASSUNTOS RELACIONADOS