Árvore de páginas

Versões comparadas

Chave

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

...

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 Forncedores (SA2);
3 = Contas a Receber (SE1);
4 = Contas a Pagar (SE2).

...

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

...