Home

Linha Microsiga Protheus

Páginas filhas
  • 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
  • Sem rótulos