Histórico da Página

...

RetCodAp Function - Creating a query with JSON to read table CJ9 - Entry Adjustment Rule File Header, and CJA - Entry, Value, and Messages Code to write on Array aRegCal.
BusCodLan function - Receives JSON from the RETCODAP function - oJCodRef , which updates the aGrava array that, in Legacy, has 17 positions, and, upon receiving the information from the tax configuration tool, becomes 25 positions, below are the positions changed in the AGrava Array:
1. Wiki Markup
  
  cCodLan
  
  :=
  
  Alltrim(aCodLan
  [
  nI
  ][
  2
  ]
  )
  
  //CJA_CODLAN
  Wiki Markup
2. nBasCal
  
  :=
  
  aTribgen
  [
  nX
  ][
  TG_IT_BASE
  ]
  
  //CJA_NFBASE
  unmigrated-wiki-markup
3. nAlqCal
  
  :=
  
  aTribgen
  [
  nX
  ][
  TG_IT_ALIQUOTA
  ]
  
  //CJA_NFALIQ
  unmigrated-wiki-markup
4. cTpLanc
  
  :=
  
  Iif(Alltrim(aCodLan
  [
  nI
  ][
  7
  ]
  )
  
  <>
  
  "03","2","1")
  
  //Treatment
  
  made
  
  for
  
  the
  
  correct
  
  recording
  
  of
  *
  IPI
  
  Entries.
  *
5. Wiki Markup
  
  cRegCalc
  
  :=
  
  aCodLan
  [
  nI
  ][
  1
  ]
  
  //cRegCal
  Wiki Markup
6. cCodVal
  
  :=
  
  Left(aCodLan
  [
  nI
  ][
  5
  ]
  ,3)
  
  //CJA_VALOR
  unmigrated-wiki-markup
7. cCodValOu
  
  :=
  
  Left(aCodLan
  [
  nI
  ][
  6
  ]
  ,3)
  
  //CJA_VLOUTR
8. NValor := 0 //Conditional treatment according to the value received in the variable cCodVal
9. NValorOut := 0 //conditional treatment according to the value received in the variable cCodValOuunmigrated-wiki-markup
10. *
  
  {*}
  cOpBase
  
  :=
  
  aCodLan
  [
  nI
  ][
  3
  ]unmigrated-wiki-markup
11. cOpAliq
  
  :=
  
  aCodLan
  [
  nI
  ][
  4
  ]
12. Wiki Markup*
  
  *
  cCFOP
  
  :=
  
  aNfItem
  [
  nZ
  ][
  IT_CF
  ]
  
  unmigrated-wiki-markup
13. cDescod
  
  :=
  
  aCodLan
  [
  nI
  ][
  12
  ]
14. Wiki Markup
  
  cLivro
  
  :=
  
  aNFItem
  [
  nZ
  ][
  IT_TS
  ][
  TS_NRLIVRO
  ]
15. Wiki Markup
  
  cCodDes
  
  :=
  
  aCodLan
  [
  nI
  ][
  11
  ]
  
  //CJA_TXTDSC
  Wiki Markup
16. cCodObs
  
  :=
  
  aCodLan
  [
  nI
  ][
  10
  ]
  
  //CJA_CODCPL
  unmigrated-wiki-markup
17. cCodOLan
  
  :=
  
  aCodLan
  [
  nI
  ][
  09
  ]
  
  //CJA_CODMSG
  Wiki Markup
18. cGeracum
  
  :=
  
  aCodLan
  [
  nI
  ][
  12
  ]
  
  //CJA_GERMSG
19. cIFCOMP := "CONFIG"
20. Wiki Markup
  
  CCMPOrig :=
  
  Pertence(1,2,3,4)
  
  //conditional
  
  treatment
  
  according
  
  to
  
  the
  
  contents
  
  of
  
  the
  
  array
  
  *aCodLan
  [
  nl
  ][
  7
  ]
  considering
  
  the
  
  dynamics
  
  for
  
  IPI
  
  calculation.
  
  After
  
  the
  
  above
  
  treatment,
  
  the
  
  aGrava
  
  array
  
  has
  
  this
  
  configuration:
  aAdd(aGrava, {;

...

Páginas filhas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave