Histórico da Página

#include "Protheus.ch"

User Function NatSevLoadFiTitGsp()

Local _nPosNatnPos  := 0
Local _nPosVlr  :=as 0Numeric
Local _nPosPercaArea := 0
Local _nPosRat  :=as 0Array
Local _MyaColscCarteira as := {}Character
Local _aColsRot := PARAMIXB[1] 
Local _aHeadRot := PARAMIXB[2] 

_MyaColsaDados    as Array

aArea     :=aClone GetArea(_aColsRot)
_nPosNat   cCarteira :=Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EV_NATUREZ") } )
_nPosVlr ParamIxb[1]
aDados    :=Ascan(_aHeadRot, {|e| AllTrim(e ParamIxb[2])

If == AllTrim("EV_VALOR") } )
_nPosPerc   :=Ascan(_aHeadRot, {|e| AllTrim(e[2]) == AllTrim("EV_PERC") } )
_nPosRat    :=Ascan(_aHeadRot, {|e| AllTrim(e[2cCarteira=='P'//Pagar

    If (nPos:=aScan(aDados,  { |x| Alltrim(x[1]) == AllTrim("EV_RATEICC")'E2_NATUREZ'  } )

If FwIsInCallStack("FINA050")//-- Contas> a Pagar0
     
   dbSelectArea('SED')
  //-- Cria um item com 50% dodbSetOrder(1)
 valor do título
    _MyaCols[1,_nPosNat] := PadR('000001',Len(SEV->EV_NATUREZ))
    _MyaCols[1,_nPosVlr] := M->E2_VALOR / 2 If dbSeek(FWxFilial()+aDados[nPos,2])
    _MyaCols[1,_nPosPerc]:= 50
    _MyaCols[1,_nPosRat] := "1" //Rateio CC=Sim

    //-- Cria um segundo item para distribuir os 50% restante
    Aadd(_MyaCols,Array(Len(_aHeadRot)+1))
    _MyaCols[Len(_MyaCols),_nPosNat] := PadR('000003',Len(SEV->EV_NATUREZ))
    _MyaCols[Len(_MyaCols),_nPosVlr] := M->E2_VALOR /2
    _MyaCols[Len(_MyaCols),_nPosPerc]:= 50
    _MyaCols[Len(_MyaCols),_nPosRat] := "1"
    _MyaCols[Len(_MyaCols),(Len(_aHeadRot)+1)] := .F.
    
EndIf

Return(_MyaCols-- Adiciona a conta contabil da Natureza no campo do título
            Aadd(aDados, {'E2_DEBITO' , ED_CONTA , Nil} )
        EndIF
    EndIF

EndIF    

RestArea(aArea)
FwFreeArray(aArea)

Return(aDados)