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

[vinizioWOW]

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

[Alexandre de Paula]

Boa tarde

Criada a TK-7126 para avaliação.

Obrigado pela contribuição.

[Italo Giurizzato Junior]

Bom dia @vinizioWOW,

Já esta no SVN.