Tipo: Processamento
Compacta um valor numérico em uma string binária COMP-3. Esta função é utilizada para compactar a movimentação de Clientes e Fornecedores. A descompactação é feita pela função complementar DeComp3.
Sintaxe
Comp3(aArray)
Parâmetros
aArray – Array contendo os 25 campos compactados (o Saldo Inicial, os 12 Débitos e 12 Créditos)
Retorna
ExpC1 – Nome do Campo aglutinador da compactação.
Exemplos
aSaldos:=DeComp3(A1_MOVIMEN)
nSaldo:=aSaldos[1]
For j := 2 To 24 STEP 2
nSaldo := nSaldo – aSaldos [ j ] + aSaldos [ j + 1 ]
Next j
aSaldos[1]:=nSaldo
AFILL(aSaldos,0,2,24)
Reclock(“SA1”)
REPLACE A1_MOVIMEN With Comp3(aSaldos)
Ver também
Função DeComp3
Estude para provas de certificações em TI com os simulados Bynem