Rotina Automática com rateio multi-naturezas no Contas a Pagar

Na rotina automática com rateio multi-naturezas no Contas a Pagar (FINA050) é possível incluir e excluir títulos.

Caso o título tenha o valor principal alterado, o rateio automaticamente é atualizado com base nas porcentagens de distribuição já definidas na inclusão.

Para isto é necessário habilitar o parâmetro MV_MULNATP utilizando o conteúdo .T.

Neste exemplo é utilizada uma natureza e dois centros de custos para cada natureza:

#Include 'Protheus.ch'

#INCLUDE "TBICONN.CH"

USER FUNCTION 050MULT()

LOCAL aCab := {} // array que recebera o titulo a receber

LOCAL aAuxEv :={} // array auxiliar do rateio multinaturezas

LOCAL aRatEvEz:={} //array do rateio multinaturezas

LOCAL aAuxEz :={} // Array auxiliar de multiplos centros de custo

LOCAL aRatEz:={} //Array do rateio de centro de custo em multiplas naturezas

PREPARE ENVIRONMENT EMPRESA '01' FILIAL '0101001'

PRIVATE lMsErroAuto := .F.

aadd( aCab ,{"E2_PREFIXO" , 'AUT', Nil })            

aadd( aCab ,{"E2_NUM" ,GetSXeNum("SE2","E2_NUM"), Nil })

aadd( aCab ,{"E2_PARCELA" , '1', Nil })

aadd( aCab ,{"E2_TIPO" , 'NF ', Nil })

aadd( aCab ,{"E2_NATUREZ" , '001', Nil })

aadd( aCab ,{"E2_FORNECE" , '001   ', Nil })

aadd( aCab ,{"E2_LOJA" , '01', Nil })

aadd( aCab ,{"E2_EMISSAO" , dDataBase, Nil })

aadd( aCab ,{"E2_VENCTO" , dDataBase, Nil })

aadd( aCab ,{"E2_VALOR" , 100, Nil })

aadd( aCab ,{"E2_MULTNAT" , '1', Nil })//rateio multinaturezs = sim

       //Adicionando o vetor da natureza

       aadd( aAuxEv ,{"EV_NATUREZ" , padr('001',tamsx3("EV_NATUREZ")[1]), Nil })//natureza a ser rateada

       aadd( aAuxEv ,{"EV_VALOR" , 100, Nil })//valor do rateio na natureza

       aadd( aAuxEv ,{"EV_PERC" , "100", Nil })//percentual do rateio na natureza

       aadd( aAuxEv ,{"EV_RATEICC" , "1", Nil })//indicando que há rateio por centro de custo

       //Adicionando multiplos centros de custo

       //primeiro centro de custo

             aAuxEz:={}

             aadd( aAuxEz ,{"EZ_CCUSTO" , '001', Nil })//centro de custo da natureza

             aadd( aAuxEz ,{"EZ_VALOR" , 15, Nil })//valor do rateio neste centro de custo

             aadd(aRatEz,aAuxEz)

       //segundo centro de custo 

             aAuxEz:={}

             aadd( aAuxEz ,{"EZ_CCUSTO" , '002', Nil })//centro de custo na natureza

             aadd( aAuxEz ,{"EZ_VALOR" , 85, Nil })//valor do rateio neste centro de custo

             aadd(aRatEz,aAuxEz)

       aadd(aAuxEv,{"AUTRATEICC" , aRatEz, Nil })//recebendo dentro do array da natureza os multiplos centros de custo

       aAdd(aRatEvEz,aAuxEv)//adicionando a natureza ao rateio de multiplas naturezas

aAdd(aCab,{"AUTRATEEV",ARatEvEz,Nil})//adicionando ao vetor aCab o vetor do rateio

MsExecAuto( { |x,y,z| FINA050(x,y,z)} , aCab, ,3)//inclusao

If lMsErroAuto

    MostraErro()

Else

    Alert("Título incluído com sucesso!")

Endif

RESET ENVIRONMENT

Return