Perguntas Informaçao errada na Planilha Financeira

usuo o fonte abaixo para pegar a aliquota de uma operaçao do pedido de venda porem o sistema esta me retornando uma aliquota errada nesse meu fonte e na planilha financeira do pedido de venda na nota o sistema gera a aliquota correta.

User Function analiq(cCliAl,cLojaal,cTPclial,cProdutoal,cTesal)

MaFisIni(cClial,; // 1-Codigo Cliente/Fornecedor
cLojaal,; // 2-Loja do Cliente/Fornecedor
"C",; // 3-C:Cliente , F:Fornecedor
"N",; // 4-Tipo da NF
cTpclial,; // 5-Tipo do Cliente/Fornecedor
MaFisRelImp("MTR700",{"SC5","SC6"}),;// 6-Relacao de Impostos que suportados no arquivo
,; // 7-Tipo de complemento
,; // 8-Permite Incluir Impostos no Rodape .T./.F.
"SB1",; // 9-Alias do Cadastro de Produtos - ("SBI" P/ Front Loja)
"MTR700") // 10-Nome da rotina que esta utilizando a funcao

MaFisAdd(cProdutoal,; // 1-Codigo do Produto ( Obrigatorio )
cTesal,; // 2-Codigo do TES ( Opcional )
1,; // 3-Quantidade ( Obrigatorio )
1,; // 4-Preco Unitario ( Obrigatorio )
0,; // 5-Valor do Desconto ( Opcional )
,; // 6-Numero da NF Original ( Devolucao/Benef )
,; // 7-Serie da NF Original ( Devolucao/Benef )
,; // 8-RecNo da NF Original no arq SD1/SD2
0,; // 9-Valor do Frete do Item ( Opcional )
0,; // 10-Valor da Despesa do item ( Opcional )
0,; // 11-Valor do Seguro do item ( Opcional )
0,; // 12-Valor do Frete Autonomo ( Opcional )
1,;// 13-Valor da Mercadoria ( Obrigatorio )
0,; // 14-Valor da Embalagem ( Opiconal )
0,; // 15-RecNo do SB1
0) // 16-RecNo do SF4

nALIQICM := MaFisRet(1,"IT_ALIQICM")

mafisend()

Return(nAliqicm)

nada feito.
Coloquei o recno e mesmo assim o valor vem errado.
Na propria planilha consultando o PV ele traz o valor errado.

resolvido.. Meu B1_GRPTRIB ESTAVA COM TAMANHO 3 E O NA SF7 ESTAVA COM TAMANHO 6.( alterei para ficar com tamanho 6)
A totvs nem retornou.
Obrigado aos que deram um apoio.

Eu executo esse bloco a primeira vez e o sistema me traz tudo zero, quando executo a segunda vez, me traz tudo certinho, pode me ajudar nesse caso.


// Inicio da pesquisa para calculo do ICMS //KENAZ-2013.01.16

dbSelectArea("SCK")
dbSetOrder(01)
dbSeek(xFilial("SCK")+SCK->CK_NUM)


While !Eof() .and. SCJ->CJ_NUM == SCK->CK_NUM
// Calculo dos Impostos
MaFisIni(SCJ->CJ_CLIENTE,SCJ->CJ_LOJA,"C","N",,;
MaFisRelImp("MTR700",{"SCJ","SCK"}),,,"SB1","MTR700")
MaFisAdd(SCK->CK_PRODUTO, SCK->CK_TES, SCK->CK_QTDVEN, SCK->CK_PRCVEN, SCK->CK_VALDESC, "", "", 0, 0, 0, 0, 0, (SCK->CK_QTDVEN*SCK->CK_PRCVEN), 0, 0, 0)
_nAliqIcm := MaFisRet(1,"IT_ALIQICM")
_nValIcm := MaFisRet(1,"IT_VALICM" )
_nBaseIcm := MaFisRet(1,"IT_BASEICM")
MaFisEnd()
DBSKIP()
ENDDO



// Final da pesquisa para calculo do ICMS //KENAZ-2013.01.16