...
cCodLan
:=
Alltrim(aCodLan
[][])
//CJA_CODLAN
nBasCal
:=
aTribgen
[][]
//CJA_NFBASE
unmigrated-wiki-markup
nAlqCal
:=
aTribgen
[][]
//CJA_NFALIQ
unmigrated-wiki-markup
cTpLanc
:=
Iif(Alltrim(aCodLan
[][])
<>
"03","2","1")
//Treatment
made
for
the
correct
recording
of
*IPI
Entries.
*
cRegCalc
:=
aCodLan
[][]
//cRegCal
cCodVal
:=
Left(aCodLan
[][],3)
//CJA_VALOR
unmigrated-wiki-markup
cCodValOu
:=
Left(aCodLan
[][],3)
//CJA_VLOUTR
{*}
cOpBase
:=
aCodLan
[][]unmigrated-wiki-markup
cOpAliq
:=
aCodLan
[][]
*
cCFOP
:=
aNfItem
[][]unmigrated-wiki-markup
cDescod
:=
aCodLan
[][]
cLivro
:=
aNFItem
[][][]
cCodDes
:=
aCodLan
[][]
//CJA_TXTDSC
cCodObs
:=
aCodLan
[][]
//CJA_CODCPL
unmigrated-wiki-markup
cCodOLan
:=
aCodLan
[][]
//CJA_CODMSG
cGeracum
:=
aCodLan
[][]
//CJA_GERMSG
CCMPOrig :=
Pertence(1,2,3,4)
//conditional
treatment
according
to
the
contents
of
the
array
*aCodLan
[][]considering
the
dynamics
for
IPI
calculation.
After
the
above
treatment,
the
aGrava
array
has
this
configuration:
aAdd(aGrava, {;
...