Perguntas Lote e data no xml e danfe

Bom dia meus amigos, na empresa trabalhamos com lote e data de validade impresso na danfe porem esta saindo quando existe mais de 1 lote ele copia somente o do primeiro por exemplo lote 1 2 3 ele sai impresso somente o lote do primeiro para todos os itens uso o ponto de entrada da totvs, fico muito agradecido quem puder me ajudar.


USER FUNCTION PE01NFESEFAZ()
Local aParam := PARAMIXB
Local aArea := GetArea()

If SFT->FT_TIPOMOV == "S" // Se For Nota Fiscal de Saida Entao Efetua Tratamento dos Itens
cMensCli := aParam[cMENSCLI] // Mensagem da Nota Fiscal
aProd := aParam[aPROD] // Itens da Nota Fiscal
aInfoItem := aParam[aINFOITEM] // Informaçao dos Itens do Pedido de Venda
// aAdd(aInfoItem,{(cAliasSD2)->D2_PEDIDO,(cAliasSD2)->D2_ITEMPV,(cAliasSD2)->D2_TES,(cAliasSD2)->D2_ITEM})
aDupl := aParam[aDUPL]


// Tratamento de Nome do Vendedor na Mensagem da Nota e Mensagem Fixa para Notas de Faturamento Referente Politica de Devolução

SC5->(dbSetOrder(1),dbSeek(xFilial("SC5")+Padr(aInfoItem[1,PEDIDO],TamSX3("C5_NUM")[1])))
nRecSC6 := SC6->(Recno())
For nI := 1 To Len(aProd)
If SC6->(dbSetOrder(1),dbSeek(xFilial("SC6")+aInfoItem[nI,PEDIDO]+aInfoItem[nI,ITEMPV]+aProd[nI,PRODUTO]))
cDescr := AllTrim(aProd[nI,DESCR])
If SC9->(dbSetOrder(1),dbSeek(xFilial("SC9")+aInfoItem[nI,PEDIDO]+aInfoItem[nI,ITEMPV]+aProd[nI,PRODUTO]))
aProd[nI,DESCR] := AllTrim(cDescr) +;
Iif(!Empty(SC9->C9_LOTECTL),' - Lote: ' + SC9->C9_LOTECTL,'') +;
Iif(!Empty(SC9->C9_DTVALID),' - Valid: ' + DtoC(SC9->C9_DTVALID),'')


Endif

Endif
Next
SC6->(dbGoTo(nRecSC6))
SC9->(dbGoTo(nRecSC9))

aParam[aPROD] := aProd
aParam[cMENSCLI] := cMensCli
Endif
RestArea(aArea)
Return aParam