Perguntas Ponto Entrada MTA410I()

Pessoal, boa tarde!

Precisei setar algumas quantidades da minha tabela SC5. Tem esse ponto entrada ai que ajuda pra caramba.

User Function MTA410I()


LOCAL nPesoBrut := 0
Local nPesoLiq := 0
Local nVol1UM := 0
Local nVol2UM := 0
Local aAreaOld := GetArea()
Local cNumPed := SC5->C5_NUM
Local nPosPRD := aScan(aHeader,{|aAux|alltrim(aAux[2]) == "C6_PRODUTO"})
Local nPosQtV := aScan(aHeader,{|aAux|alltrim(aAux[2]) == "C6_QTDVEN"})
Local nPosSUN := aScan(aHeader,{|aAux|alltrim(aAux[2]) == "C6_QTDVEN"})


For nxI := 1 To Len(aCols)
If Inclui .Or. Altera
If !aCols[nxI,Len(aCols[1])]
dbSelectArea("SB1")
dbSetOrder(01)
dbSeek(xFilial("SB1")+aCols[nxI,nPosPRD])
nPesoLiq += aCols[nxI,nPosQtV] * SB1->B1_PESO
nPesoBrut += aCols[nxI,nPosQtV] * SB1->B1_PESBRU
nVol1UM += aCols[nxI,nPosSUN]
EndIf
EndIf
Next


dbSelectArea("SC5")
If RecLock("SC5",.F.)
Replace C5_VOLUME1 With nVol1UM
Replace C5_PESOL with nPesoLiq
Replace C5_PBRUTO with nPesoBrut
MsUnLock()
EndIf



RestArea(aAreaOld)

Return