ACBrPagFor SICOOB GeraRegistro1 propriedade flLiquidacaoTitulosProprioBanco não contemplada na instrução "case of"

vinizioWOW · 27 Maio

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