Histórico da Página

Aviso

title	Aviso!

Produto ainda em fase de piloto.

01. VISÃO GERAL

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus ®
Módulo:	Financeiro
Função:	FINTITG - Inclusão de títulos Pagar/Receber via smartlink

02. DESCRIÇÃO

Ponto de Entrada FiTitGsp para permitir a inclusão de campos específicos e/ou conteúdos em campos do padrão, conforme regra do clientealteração do conteúdo do array que será passado para o execauto do FINA040/FINA050. O ponto de entrada é executado antes da chamada do execautoda execução da rotina automática, durante o processo de geração ou exclusão de títulos a Pagar/Receber da integração Gesplan, via smartlink.

O ponto de entrada deverá retornar um array na mesma estrutura do aDados que receberá como parâmetro, efetuando a adição edição de informações específicas, conforme regra de negócio do cliente.

03. PARÂMETROS

Posição

Nome

Descrição

1

cCarteira

Indica a operação rotina que esta está sendo executada:

"R" = Inclusão de título Título a receber - FINA040

"P" = Inclusão de título Título a pagar - FINA050

2

cOperacao

Indica a ação que está sendo executada para o título:

"I" = Inclusão

"E" = Exclusão

3

aDados

Array com a estrutura dos dados (campo e conteúdo) a serem passados ao execauto para o processamento da rotina automática.

04. RETORNO

Nome	Descrição
aDados	Array com a na mesma estrutura de recebida como parâmetro e novos campos/conteúdo, caso houvernovo conteúdo.

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código

language	java
theme	Midnight
firstline	1
title	P.E. FiTitGsp
linenumbers	true

#include "Protheus.ch"

User Function FiTitGsp()

Local nPos      as Numeric
Local aArea     as Array
Local cCarteira as Character
Local cOperacao as Character
Local aDados    as Array

aArea     := GetArea()
cCarteira := ParamIxb[1]
cOperacao := ParamIxb[2]
aDados    := ParamIxb[23]

If cCarteira=='P' .And. cOperacao=="I" // Inclusão de título carteira Pagar

    If (nPos:=aScan(aDados,  { |x| Alltrim(x[1]) == 'E2_NATUREZ'  })) > 0
        dbSelectArea('SED')
        dbSetOrder(1)
        If dbSeek(FWxFilial()+aDados[nPos,2])
            //-- Adiciona a conta contabil da Natureza no campo do título
            Aadd(aDados, {'E2_DEBITO' , ED_CONTA , Nil} )
        EndIF
    EndIF

EndIF    
EndIf

If cCarteira=='R' .And. cOperacao=="I" // Inclusão de título carteira Receber
     If (nPos:=aScan(aDados,  { |x| Alltrim(x[1]) == 'E1_HIST'  })) == 0   
		Aadd(aDados, {'E1_HIST' , 'GESPLAN' , Nil} ) 
	EndIf
EndIF

RestArea(aArea)
FwFreeArray(aArea)

Return(aDados)

05. CONTEÚDO RELACIONADO

Integração Gesplan - Manutenção de Títulos a Pagar/Receber

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão 18

Chave