AT930EXC - Gravação do PV Excedente

1
2
3
4
5
6
7
8
9
10
11
12

User Function AT930EXC()
Local aCabec := PARAMIXB[1] //Recebe o primeiro parâmetro "Cabeçalho"
Local aItens := PARAMIXB[2] //Recebe o segundo parâmetro "Itens"
Local nX
 
AADD(aCabec, {"C5_USER", RetCodUsr(), Nil})
 
For nX := 1 To Len(aItens)
    AADD(aItens[nX], {"C6_ESPECI", Posicione('SB1',1,xFilial('SB1')+aItens[nX][2][2],'B1_ESPECIE'), Nil})
Next nX
 
Return {aCabec, aItens}