...
Linha Línea de Produtoproducto: | Microsiga Protheus® |
---|---|
Segmento: | Backoffice |
Módulo: | Financeiro Financiero |
Função Función: | FINA040 - Contas a Receber |
Observaciones Observações: | Em casos onde o Ponto de Entrada é chamado via ExecAuto e retornando En casos donde el punto de entrada se llama a través del ExecAuto y vuelve como .F. (falsoFalso), a variável lMsErroAuto deve ser alterada no Ponto de Entrada para la variable lMsErroAuto se debe modificar en el punto de entrada como .T. (verdadeiroVerdadero). Pois Ya que en caso contrário contrario causará impacto em integrações e chamadas de ExecAuto onde o processo foi interrompido pelo retorno en integraciones y llamadas del ExecAuto donde el proceso se interrumpió por la respuesta .F. (falso) do Ponto de Entrada e del punto de entrada y constando lMsErroAuto também también como .F. (falso, ou seja, sem erroses decir, sin errores). |
...
La finalidad del punto
...
A finalidade do ponto de entrada FA040INCé FA040INC es permitir validações de usuário na inclusão do Contas a Receber validaciones de usuario en la inclusión del Cuentas por Cobrar (FINA040), localizado no TudoOK da rotinaubicado en el TudoOK de la rutina.
...
Não háNo existe
...
Nome | Tipo | Descrição |
lRet | Lógico | .T. valida a inclusão e continua o processo, caso contrário la inclusión y continua el proceso, en caso contrario .F. e interrompe o processointerrumpe el proceso. |
...
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include 'totvs.ch' /*/{Protheus.doc} FA040INC() AALa finalidadefinalidad dodel pontopunto de entrada FA040INC FA040INCées permitir validaçõesvalidaciones de usuáriousuario en nala inclusãoinclusión dodel ContasCuentas apor ReceberCobrar (FINA040), localizado no TudoOK da rotinaubicado en el TodoOK de la rutina. @return lRet - lógico, .T. valida ala inclusãoinclusión ey continua oel processoproceso, en caso contráriocontrario .F. e interrompeinterrumpe oel processoproceso. /*/ User Function FA040INC() Local lRet := .T. // ValidaçõesValidaciones de usuáriousuario If M->E1_CLIENTE ='000001' .And. M->E1_LOJA='01' .And. M->E1_VALOR > 5000 // MensagemMensaje de Help para esclareceraclarar oel motivo de interromperinterrumpir ala inclusãoinclusión Help( ,, 'ALERTA',, "Valor nãono liberado para este cliente", 1, 0 ) lRet := .F. // AlterandoModificando lMsErroAuto paracomo .T. (verdadeiroverdadero), debido devidoa aoslos casos de integraçõesintegraciones ouo ExecAuto lMsErroAuto := .T. EndIf Return lRet |
...