Perguntas Ponto de Entrada FA470CTA

Ola Galera !
Estou com um problema no rotina de conciliação automática, na verdade não é um problema da rotina em si mas foram cadastrados vários bancos com o digito da conta dentro do campo da conta com um - . Exemplo : Campo conta = 1234-6 campo DV = ‘ ‘. Logo na hora da conciliação quando compara com o extrato ele não acha a conta. Notei que quado pego o arquivo extrato de retorno e coloco o digito no espaço em branco(na posição 71), quando quando comparado com os lançamentos ele encontra a conta normalmente. Mas não tem como alterar os cadastros de bancos antigos pois implica em vários lançamentos e em outras tabelas analisando o Font padrão achei o P.E. FA470CTA que compara esses campos do extrato. Só não sei a função que poderia usar para quando o a conta aparecer 123456 9 substituir para 123456-9. Segue em anexo um exemplo do estrato e um exemplo do P.E.

Se tiver ma outra solução...
Abraço,
Manoel Carlos júnior

Galera consegui esse P.E. ele comprar as tabela protheus com o arquivo do banco a posição aRetorno[3] se refere a conta usamos a função StrTran(aRetorno[3]," ","-") para quando tiver espaço em branco no arquivo de extrato ele gravar no Protheus com um "-".
Segue abaixo o Código, Grato !



#Include "PROTHEUS.CH"

/*

---

Programa:Ponto de Entrara responsável para incluir um "-"
onde ouver espaco em branco na posição do array referente
conta.
Autor Manoel Carlos Júnior
Data 04/04/2017

---

*/

USER FUNCTION FA470CTA()
Local aArea := GetArea()
Local aRetorno := ParamIXB
Local cBco := aRetorno[1]
Local cAge := aRetorno[2]
Local cCnt := aRetorno[3]

aRetorno[3] := StrTran(aRetorno[3]," ","-")


RETURN aRetorno