21446 - Espécie do banco em branco
Problema:
Solução: Solução 21446: Geralmente o Banco do Bradesco não envia o código da espécie com isso temos que fazer uma regra no layout para contornar a situação
Ao fazer o retorno da cobrança escritural ocorre o erro:
Entrada confirmada Banco 237 e Espécie não possuem um Tipo Interno ligado - E030ETC.
Quando ocorre / onde se aplica: F310RTB_FRES - Finanças / Gestão de Contas a Receber / Cobrança Escritural / Retorno
Solução: Solução 21446: Geralmente o Banco do Bradesco não envia o código da espécie com isso temos que fazer uma regra no layout para contornar a situação
buscando a espécie via cursor.
Abaixo segue um pequeno exemplo que pode ser adaptado no layout de importação(retorno).
* espécie */
Se (aEspBan = )
Inicio
Se (aOcrBan = 02)@Se a ocorrência é de confirmação de remessa não filtra o TitBan@
Inicio
Cur_E301TCR.SQL Select E030ETC.EspBan /
from E301TCR, /
E030ETC /
where E301TCR.CodEmp =:nCodEmp /
and E301TCR.CodFil =:nCodFil /
and E301TCR.CodPor =:aCodPor /
and E030ETC.CodBan =:aCodBan /
and E030ETC.CodTpt =E301TCR.CodTpt;
Cur_E301TCR.AbrirCursor();
Se (Cur_E301TCR.Achou)
aEspBan =Cur_E301TCR.EspBan;
Cur_E301TCR.FecharCursor();
Fim;
Senao @Senao filtra também o TitBan@
Inicio
Cur_E301TCR.SQL Select E030ETC.EspBan /
from E301TCR, /
E030ETC /
where E301TCR.CodEmp =:nCodEmp /
and E301TCR.CodFil =:nCodFil /
and E301TCR.TitBan =:aTitBan /
and E301TCR.CodPor =:aCodPor /
and E030ETC.CodBan =:aCodBan /
and E030ETC.CodTpt =E301TCR.CodTpt;
Cur_E301TCR.AbrirCursor();
Se (Cur_E301TCR.Achou)
aEspBan =Cur_E301TCR.EspBan;
Cur_E301TCR.FecharCursor();
Fim;
Fim;