Perguntas Ponto de Entrada SPDFIS001

Bom dia amigos!

Alguém utiliza o ponto de entrada SPDFIS001 para o Sped Fiscal???

Esse ponto de entrada trata tipos de produto criados pelo usuário, relacionando-os com os tipos descritos no registro 0200 do Sped fiscal. Ele adiciona os novos tipos no vetor aTipo.

Estou com o seguinte problema: Ele reconhece o grupo do produto e adiciona ao vetor, porém quando passa para o próximo registro o novo item do vetor simplesmente some!

Onde está o erro? Segue o código

User Function SPDFIS001

Local aTipo := ParamIXB[1]
Local aGrupo := Posicione("SB1",1,xFilial("SB1")+SUBSTR(TRB->TRB_CONT,9,,"SB1->B1_GRUPO")

Do Case
Case aGrupo $ ('0401,9003')
AADD(aTipo,{"SU","99"})
Case aGrupo $ ('0201')
AADD(aTipo,{"PR","06"})
Case aGrupo $ ('0301,0302,0303')
AADD(aTipo,{"PR","04"})
Case aGrupo $ ('0101,0102,0103,0104,0106,0107')
AADD(aTipo,{"PR","01"})
Case aGrupo $ ('0105,0304')
AADD(aTipo,{"PR","00"})
Otherwise
AADD(aTipo,{"SV","09"})
AADD(aTipo,{"IM","08"})
AADD(aTipo,{"EM","07"})
Endcase

Return(aTipo)