Versões comparadas

Chave

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

...

Bloco de código
languagevb
themeMidnight
firstline1
titleFA050INC
linenumberstrue
#include 'totvs.ch'

/*/{Protheus.doc} FA040INC()

    ALa finalidad del punto de entrada FA040INC es permitir validaciones de usuario
    en la inclusión del Cuentas por Cobrar (FINA040), ubicado en el TodoOK de la rutina.

    @return lRet - lógico, .T. valida la inclusión y continua el proceso,
        en caso contrario .F. e interrumpe el proceso.
/*/

User Function FA040INC()
Local lRet := .T.

     // Validaciones de usuario
If M->E1_CLIENTE ='000001' .And. M->E1_LOJA='01' .And. M->E1_VALOR > 5000
        // Mensaje de Help para aclarar el motivo de interrumpir la inclusión
        Help( ,, 'ALERTA',, "Valor no liberado para este cliente", 1, 0 )
        lRet := .F.


        // Modificando lMsErroAuto como .T. (verdadero), debido a los casos de integraciones o ExecAuto
        lMsErroAuto := .T.
EndIf 

Return lRet
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;
}
</style>