Perguntas Função MaLibDoFat()

Bom dia!

Na inclusão de pedido de venda estou utilizando a função A460Estorna() para estornar os pedidos fazendo com que não haja liberação e depois com as regras de negócio da empresa estou utilizando a função MaLibDoFat() para liberar ou bloquear os pedidos. porém esta gerando error.log no momento que eu chamo a função MaLibDoFat:

24/09/2015 08:00:10
type mismatch on compare on A440GERAC9(FATXFUN.PRX) 23/06/2015 14:15:26 line : 3104

Segue trecho do código:

dbSelectArea("SC9")
DBSetOrder(1)
IF DbSeek(xFilial("SC9")+TRB->PEDIDO)
While SC9->(!EOF()) .AND. SC9->C9_PEDIDO = TRB->PEDIDO
If TR2->BLCRED != ''
A460Estorna(.T.)
EndIf
SC9->(dbSkip())
TR2->(dbSkip())
End
EndIf

DbSelectArea("TR2")
DbSeek(TRB->PEDIDO)
dbSelectArea("SC6")
dBsEToRDER(1)
If Dbseek(xFilial("SC6")+TRB->PEDIDO)
While SC6->(!EOF()) .AND. SC6->C6_NUM == TRB->PEDIDO
If TR2->BLCRED != '' //se não for liberado bloqueia direto no crédito
RecLock("SC6")
MaLibDoFat(SC6->(RecNo()),SC6->C6_QTDVEN,.F.,.F.,.F.,.T.)
SC6->(MsUnLock())
SC6->(MaLiberOk({SC5->C5_NUM},.T.))
EndIf
TR2->(dbSkip())
dbSelectArea("SC6")
dbSkip()
EndDo
EndIf

Na tabela temporária TR2 eu já acertei o campo BLCRED.
Verifiquei que erro só ocorre com clientes com data de limite de crédito vencido.

Se alguem puder me ajudar com esse erro.

Agradeço desde já!