Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Jose Moises Vera Concha

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Monica Virginia Barrantes de Villanueva

Gravado em

Chave

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


01. DATOS GENERALES

Línea de producto:

Microsiga Protheus®

Segmento:

Backoffice

Módulo:

Financiero

Función:

FINA040 - Cuentas por cobrar

Observaciones:

En casos donde el punto de entrada se llama a través del ExecAuto y vuelve como .F. (Falso), la variable lMsErroAuto se debe modificar en el punto de entrada como .T. (Verdadero).

Ya que en caso contrario causará impacto en integraciones y llamadas del ExecAuto donde el proceso se interrumpió por la respuesta .F. (falso) del punto de entrada y constando lMsErroAuto también como .F. (falso, es decir, sin errores).


02. DESCRIPCIÓN

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

03. PARÁMETROS

No existe

04. EVOLUCIÓN

NomeNombre

Tipo

DescriçãoDescripción

lRet

Lógico

.T. valida la inclusión y continua el proceso, en caso contrario .F. e interrumpe el proceso.

05. EJEMPLO DE UTILIZACIÓN

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>