Fórum

Estatística Forum

  • Total Users: 16.21k
  • Latest Member: walter martins de oliveira
  • Total Posts: 27.9k
  • Total Topics: 8512
  • Total Sections: 16
  • Total Categories: 62
  • Today Open: 0
  • Yesterday Open: 0
  • Today Answer: 0
  • Yesterday Answer: 0

Pesquisa Forum

Keyword

Pesquisar Videos

Open Panel
Bem-Vindo, Visitante
Nome de usuário: Senha: Lembrar-me

TÓPICO: Rateios no MATA120

Rateios no MATA120 29 Nov 2017 21:43 #32408

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
O administrador desabilitou o acesso público de escrita.

Rateios no MATA120 29 Set 2016 17:38 #31191

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.
O administrador desabilitou o acesso público de escrita.
Tempo para a criação da página:1.290 segundos

Últimas Forum

More Topics »

Facebook

Twitter

Facebook