Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Leonardo Magalhaes Barbosa

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Juan Dos Santos Felipe

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
titleExemplo
linenumberstrue
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>