Perguntas Rateios no MATA120
- marcio.si
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 21
- Obrigados Recebidos: 0
8 anos 2 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.
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.
- guilbenk
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
7 anos 3 semanas 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
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.099 segundos