AF251GrImp PE Aquisição por Transferência ATFA251 - Manipulação dos impostos a ratear

#include 'totvs.ch'
#include "rwmake.ch"     

User Function AF251GrImp()

    Local cArrRot := Paramixb[1] //Utilizar para validacoes diversas necessarias com os tipos de impostos ja presentes no bem
    Local aTeste := {}
    //Importante ressaltar que o array enviado para a rotina deve ser 
    //um array com X posições e cada uma delas deve conter 6 sub-posicoes com os tipos de valor definidos conforme exemplo abaixo
    
    ///Exemplo descrevendo as posições do array para conferencia e entendimento
    // ArrayExemplificado[Tamanho X do array com base em quantos impostos a ratear]:
    // ArrayExemplificado[1][1]:  =  "ICMS" - Caractere
    // ArrayExemplificado[1][2]:  =  "2" - Caractere
    // ArrayExemplificado[1][3]:  =  0 - Numerico
    // ArrayExemplificado[1][4]:  = .F. - Logico
    // ArrayExemplificado[1][5]:  =  0 - Numerico
    // ArrayExemplificado[1][6]:  =  0 - Numerico

    aTeste := Array(3,6)
    // aTeste := Array(6)

    aTeste[1][1] := "IPI"
    aTeste[1][2] := "2"
    aTeste[1][3] := 0
    aTeste[1][4] := .F.
    aTeste[1][5] := 100
    aTeste[1][6] := 100

    aTeste[2][1] := "CIAP"
    aTeste[2][2] := "2"
    aTeste[2][3] := 0
    aTeste[2][4] := .F.
    aTeste[2][5] := 100
    aTeste[2][6] := 100

Return aTeste   

If lAF251GrImp
	
	aAF251GrImp := ExecBlock( 'AF251GrImp', .F., .F., aClone(aAF251Imp) )
	If ValType( aAF251GrImp ) == "A"
		For nA := 1 To Len( aAF251GrImp )
			// Verifica se todos os tipos de dados estao corretos e se ja
			// nao existe a mesma linha retornada no array aAF251Imp
			If 	Len( aAF251GrImp[nA] ) == 6 .and.;
				ValType(aAF251GrImp[nA,1]) == 'C' .and.;
				ValType(aAF251GrImp[nA,2]) == 'C' .and.;
				ValType(aAF251GrImp[nA,3]) == 'N' .and.;
				ValType(aAF251GrImp[nA,4]) == 'L' .and.;
				ValType(aAF251GrImp[nA,5]) == 'N' .and.;
				ValType(aAF251GrImp[nA,6]) == 'N' .and.;
				!('ICMS' $ Upper(aAF251GrImp[nA,1]) )
				nPosImp :=  aScan( aAF251Imp, {|Imp| 	Imp[1] == aAF251GrImp[nA,1] .and. Imp[2] == aAF251GrImp[nA,2] .and.;
				Imp[3] == aAF251GrImp[nA,3] .and. Imp[4] == aAF251GrImp[nA,4] } )
				If nPosImp == 0
					Aadd( aAF251Imp, aClone( aAF251GrImp[nA] ) )
				Else
					aAF251Imp[nPosImp][5] := aAF251GrImp[nA][5]
					aAF251Imp[nPosImp][6] := aAF251GrImp[nA][6]
				EndIF
			EndIf
		Next nA
	EndIf
EndIf