Perguntas Rateios no MATA120

Mais
7 anos 5 meses atrás #31191 por marcio.si
Rateios no MATA120 foi criado por marcio.si
Boa tarde.

Estou utilizando uma rotina automática MsExecAuto(MATA120), para incluir os pedidos de compra e preciso gravar os rateios de centro de custo desses pedidos.
Conforme o TDN e preciso informar uma array com os dados do rateio e informar essa array como parametro no MATA120, porém já fiz isso de várias formas e os rateios não são gravado.

Alguém saberia informar como devo fazer para gravar essas informações de rateio?

//Rateio
aadd(aCCusto,{"CH_FILIAL","",Nil})
aadd(aCCusto,{"CH_PEDIDO",cPed,Nil})
aadd(aCCusto,{"CH_FORNECE",cForn,Nil})
aadd(aCCusto,{"CH_LOJA","01",Nil})
aadd(aCCusto,{"CH_ITEMPD","0001",Nil}) //000+str(nC)
aadd(aCCusto,{"CH_ITEM","01",Nil}) //0+str(nC)
aadd(aCCusto,{"CH_PERC","100",Nil}) //
aadd(aCCusto,{"CH_CC","64025",Nil}) //
aadd(aCCusto,{"CH_CONTA","",Nil}) //
aadd(aCCusto,{"CH_ITEMCTA","",Nil}) //
aadd(aCCusto,{"CH_CLVL","",Nil}) //
aadd(aCCusto,{"CH_CUSTO1","",Nil}) //
aadd(aCCusto,{"CH_CUSTO2","",Nil}) //
aadd(aCCusto,{"CH_CUSTO3","",Nil}) //
aadd(aCCusto,{"CH_CUSTO4","",Nil}) //
aadd(aCCusto,{"CH_CUSTO5","",Nil}) //
aadd(aRateio,aCCusto)

MSExecAuto({|x,y,z,w| MATA120(x,y,z,w)},1,aCabec,aItens,3,.F.,aRateio)

Obrigado.

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 3 meses atrás #32408 por guilbenk
Respondido por guilbenk no tópico Rateios no MATA120
Cara tu conseguiu resolver esse problema??? Eu estou tentando com essa estrutura mas não esta gerando, só que tenho dúvida se não é problema de ambiente desatualizado...Vê se te ajuda... Ah, eu uso o aRateio para enviar no execauto do MATA120

aAuxRat := Array(2)
aAuxRat[1] := cItemC7
aAuxRat[2] := {}
aLinhaRat := {}
nNumRateio++

aAdd( aLinhaRat, {"CH_ITEM" ,cValToChar(nNumRateio),Nil})
aAdd( aLinhaRat, {"CH_PERC" ,Val(cPerc),Nil})
aAdd( aLinhaRat, {"CH_CC" ,cCCusto,Nil})
aAdd( aLinhaRat, {"CH_CONTA" ,cContaContab,Nil} )
aAdd( aLinhaRat, {"CH_ITEMCTA" ,cItemContab} ) //CONTA_CONTABIL //CT1
aAdd( aLinhaRat, {"CH_CLVL" ,"Teste",NIl} ) //Agrupamento SDCV//CTH
aAdd(aAuxRat[2], aLinhaRat )

if (nPos := aScan( aRateio, {|x| alltrim(x[1]) == alltrim(cItemC7)} ) ) == 0
aAdd(aRateio, aAuxRat)
//aadd(aLinha,{"C7_RATEIO" , "1" ,Nil})
else
aAdd(aRateio[nPos][2],aLinhaRat)
endif

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.092 segundos
Joomla templates by a4joomla