Árvore de páginas

Versões comparadas

Chave

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

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 cliente. O ponto de entrada é executado antes da chamada do execauto, durante o processo de geraçã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 de informações específicas.

03. PARÂMETROS

PosiçãoNomeDescrição
1cCarteira

Indica a operação que esta sendo executada:

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

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

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

04. RETORNO

NomeDescrição
aDados

Array na mesma estrutura recebida como parâmetro e novos campos/conteúdo, caso houver.

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagejava
themeMidnight
firstline1
titleP.E. FiTitGsp
linenumberstrue
#include "Protheus.ch"

User Function FiTitGsp()

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

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

If cCarteira=='P' // 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

If cCarteira=='R' // Inclusão de título carteira Receber
	Aadd(aDados, {'E1_HIST' , 'GESPLAN' , Nil} ) 
EndIF

RestArea(aArea)
FwFreeArray(aArea)

Return(aDados)


05. CONTEÚDO RELACIONADO

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