AF251GrImp PE Adquisición por transferencia ATFA251 - Manejo de los impuestos por prorratear

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

User Function AF251GrImp()

    Local cArrRot := Paramixb[1] //Utilizar para validaciones diversas necesarias con los tipos de impuestos presentes en el bien
    Local aTeste := {}
    //Es importante resaltar que el array enviado a la rutina debe ser 
    //un array con X posiciones y cada una de esta debe tener 6 subposiciones con los tipos de valor definidos de acuerdo con el siguiente ejemplo
    
    ///Ejemplo describiendo las posiciones del array para verificación y entendimiento
    // ArrayExemplificado[Tamaño X del array con base en cuántos impuestos se prorratearán]:
    // ArrayExemplificado[1][1]:  =  "ICMS" - Carácter
    // ArrayExemplificado[1][2]:  =  "2" - Carácter
    // ArrayExemplificado[1][3]:  =  0 - Numérico
    // ArrayExemplificado[1][4]:  = .F. - Lógico
    // ArrayExemplificado[1][5]:  =  0 - Numérico
    // ArrayExemplificado[1][6]:  =  0 - Numérico

    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 si todos los tipos de datos están correctos y si ya
			// no existe la misma línea devuelta en el 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