Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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) |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas