Árvore de páginas

Versões comparadas

Chave

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

...

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 cOperacao as Character
Local aDados    as Array

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

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

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)

...