Histórico da Página

Programa Fonte
TMSA491.PRW    

User Function TM491CPO()  Local aTit   := {}

    If nOpcao == 1 //-- apresenta campos do usuario
        Return ', DT6_STATUS, DT6_LOTNFC' //-- Os campos sempre deverao ser iniciados com ',
    
    ElseIf nOpcao == 2 //-- Gravacao no documento de transporte
        nRecno    := ParamIxb[2]
        cAliasTRB := ParamIxb[3]
        cPrefix   := ParamIxb[4]
        cFatura   := ParamIxb[5]
        cTipo     := ParamIxb[6]
        //-- Grava dados no documento de transporte
        DbGoto(nRecno)
        Reclock('DT6',.F.)
        DT6->DT6_STATUS := '1'
        MsUnlock()
    
    ElseIf nOpcao == 3 //-- Gravacao de informacoes na fatura (SE1)
        cAliasTRB := ParamIxb[2]
        cPrefix   := ParamIxb[3]
        cFatura   := ParamIxb[4]
        cTipo     := ParamIxb[5]
        //-- Informacoes para gravacao da fatura
        //-- Exemplo
        Aadd( aTit, { 'E1_CPOUSR' , (cAliasTRB)->DT6_CPOUSR } )
        Aadd( aTit, { 'E1_PREFIXO', cPrefix } )
        Return aTit
    EndIf

Return Nil  

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