Boa tarde,
Unit PagFor.Banrisul.GravarTxtRemessa.pas, procedure GeraRegistro1, linha 130, alterada a instrução "case of" para contemplar também a forma de lançamento flLiquidacaoTitulosProprioBanco.
Conforme o manual, no segmento J deve-se usar o valor '040' no campo Versão.
case FpFormaLancamento of
flCreditoContaCorrente, flChequePagamento, flDocTed, flOPDisposicao,
flPagamentoAutenticacao, flTEDMesmaTitularidade, flTEDOutraTitularidade:
Versao := '045';
flLiquidacaoTitulosProprioBanco, //adcionada essa condição.
flLiquidacaoTitulosOutrosBancos:
Versao := '040';
flPagamentoContas, flTributoDARFNormal, flTributoGPS, flTributoDARFSimples, flTributoIPTU,
flTributoDARJ, flTributoGARESPICMS, flTributoGARESPDR, flTributoGARESPITCMD,
flTributoIPVA, flTributoLicenciamento, flTributoDPVAT, flTributoGNRe:
Versao := '012';
else
Versao := '000';
end;
Em anexo.
Cordialmente,
PagFor.Sicoob.GravarTxtRemessa.pas