aRetImp := ExecBlock( 'AF251RIMP', .F., .F., aClone(aAF251Imp) )
If ValType( aRetImp ) == 'A'
For nA := 1 To Len( aRetImp )
// VerificaCheck sewhether todosall osdata tipostypes deare dadoscorrect estao corretos e se jaand whether
// the naosame existeline areturned mesmain linhaarray retornadaaAF251Imp nodoes arraynot aAF251Impexist
If Len( aRetImp[nA] ) == 6 .and.;
ValType(aRetImp[nA,1]) == 'C' .and.;
ValType(aRetImp[nA,2]) == 'C' .and.;
ValType(aRetImp[nA,3]) == 'N' .and.;
ValType(aRetImp[nA,4]) == 'L' .and.;
ValType(aRetImp[nA,5]) == 'N' .and.;
ValType(aRetImp[nA,6]) == 'N' .and.;
!('ICMS' $ Upper(aRetImp[nA,1]) )
nPosImp := aScan( aAF251Imp, {|Imp| Imp[1] == aRetImp[nA,1] .and. Imp[2] == aRetImp[nA,2] .and.;
Imp[3] == aRetImp[nA,3] .and. Imp[4] == aRetImp[nA,4] } )
If nPosImp == 0
Aadd( aAF251Imp, aClone( aRetImp[nA] ) )
Else
aAF251Imp[nPosImp][5] += aRetImp[nA][5]
aAF251Imp[nPosImp][6] += aRetImp[nA][6]
EndIF
EndIf
Next nA
EndIf |