Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Francisco do Carmo de Oliveira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fabio Casagrande Lima

Gravado em

Chave

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

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:Financeiro
Função:

FINA410


02. DESCRIÇÃO

Este ponto de entrada permite filtrar registros para o recalculo . FINA410 - Refaz Dados Clientes / Fornecedoresde saldos de clientes/fornecedores (rotina FINA410).

O Ponto de entrada FIN410FT é chamado dentro do loop dedos laços de repetição das entidades abaixo:

  • Clientes (SA1);
  • Fornecedores (SA2);
  • Títulos a receber (SE1);
  • Títulos a pagar (SE2).

Se o retorno do ponto de entrada for .F. passa para o próximo registro e não executa o recálculo.

02. PARÂMETROS

NomeTipoDescrição
ParamIxb[1]Caracter

Informação enviada referente ao MV_PAR01;

1 = Ambos;
2 = Cliente;
3 = Fornecedor.

ParamIxb[2]Caracter

Informação referente a qual tabela esta sendo processada.

1 = Clientes (SA1)
2 = Forncedor Fornecedores (SA2);
3 = Contas a Receber (SE1);
4 = Contas a Pagar (SE2).


03. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

.T. Informa que o sistema deve recalcular a entidade posicionada.

.F. Informa que o sistema NÃO deve recalcular a entidade posicionada.

04. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleF370BORD
linenumberstrue
#INCLUDE "TOTVS.CH"
 
User Function FIN410FT()       
	
	Local cMVPAR01  As Character
    Local cEntidade As Character
    Local lRet      As Logical

    cMVPAR01  := ParamIxb[1]
    cEntidade := ParamIxb[2]
    lRet      := .T.       

	//Exemplo de customização  
     
    If cEntidade == '1' // Clientes (SA1)
        //Tratamento especificado na customização
        lRet := .F.
    EndIf

    If cEntidade == '2' // FornecedorFornecedores (SA2)
        //Tratamento especificado na customização
        lRet := .F.
    EndIf

    If cEntidade == '3' // Contas a Receber (SE1)
        //Tratamento especificado na customização
        lRet := .F.
    EndIf

    If cEntidade == '4' // Contas a Pagar (SE2)
        //Tratamento especificado na customização
        lRet := .F.
    EndIf
  
Return lRet

06. ASSUNTOS RELACIONADOS

...