Correções BB e Santander

[madalozzo]

Fiz alterações para cobrança Santander... estou com ela em processo de homologação já... Sem Registro 100% funcionando. Aguardando homologação da cobrança com registro agora.

Estou anexando os aquivos.

 

Foi incluso o campo "Forma de Cadastramento".

 

 

 

ACBrBoleto.pas

ACBrBancoSantander.pas

[Juliana Tamizou]

Bom dia Madalozzo

 

No caso do santander não existem carteiras especificas para cobrança com e sem registro? Se não, pode ser utilizada a propriedade já existente no componente chamada Modalidade.

 

 

Att.

[madalozzo]

Quando é sem registro posso manda a forma de cadastramento '1' conforme estava no codigo do componente... mais como eu tenho clientes com e sem registro, precisei criar essa opção para definir dentro do cadastro da carteira.

...
    case ACBrTitulo.FormaCadastramento of
      fcRegistrada  : sFormaCadastramento:= '1'; {Forma de Cadastramento Registrada}
      fcSemRegistro : sFormaCadastramento:= '2'; {Forma de Cadastramento Sem Registro}
    end;
...


-> Estava dessa forma 
    {SEGMENTO P}
    Result := '033'                                            + // 001 - 003 / Código do Banco na compensação
              '0001'                                           + // 004 - 007 / Numero do lote remessa
              '3'                                              + // 008 - 008 / Tipo de registro
              IntToStrZero(ISequencia ,5)                      + // 009 - 013 / Número seqüencial do registro no lote
              'P'                                              + // 014 - 014 / Cód. Segmento do registro detalhe
              Space(1)                                         + // 015 - 015 / Reservado (uso Banco)
              sCodMovimento                                    + // 016 - 017 / Código de movimento remessa
              Copy(sAgencia, 1, 4)                             + // 018 – 021 / Agência do Cedente
              Copy(sAgencia, 5, 1)                             + // 022 – 022 / Dígito da Agência do Cedente
              Copy(sCCorrente, 1, 9)                           + // 023 - 031 / da conta corrente
              Copy(sCCorrente, 10, 1)                          + // 032 – 032 / Dígito verificador da conta
              Copy(sCCorrente, 1, 9)                           + // 033 - 041 / Conta cobrança
              Copy(sCCorrente, 10, 1)                          + // 042 - 042 / Dígito da conta cobrança
              Space(2)                                         + // 043 - 044 / Reservado (uso Banco)
              NossoNumero + sDigitoNossoNumero                 + // 045 – 057 / Identificação do título no Banco (Nosso Número
              sTipoCobranca                                    + // 058 - 058 / Tipo de cobrança
              '1'                                              + // 059 - 059 / Forma de Cadastramento = 1 Registrada / 2 Sem Registro
              sTipoDocto                                       + // 060 - 060 / Tipo de documento
              Space(1)                                         + // 061 - 061 / Reservado (uso Banco)
              Space(1)                                         + // 062 - 062 / Reservado (uso Banco)
              PadL(Copy(SeuNumero, 1, 15), 15)                 + // 063 - 077 / Nº do documento
              FormatDateTime('ddmmyyyy',Vencimento)            + // 078 - 085 / Data de vencimento do título
              IntToStrZero(round(ValorDocumento * 100), 15)    + // 086 - 100 / Valor nominal do título
              PadR('0', 4, '0')                                + // 101 - 104 / Agência encarregada da cobrança
              '0'                                              + // 105 - 105 / Dígito da Agência encarregada da cobrança
              Space(1)                                         + // 106 - 106 / Reservado (uso Banco)
              sEspecie                                         + // 107 – 108 / Espécie do título
              ifThen(Aceite = atSim,  'S', 'N')                + // 109 - 109 / Identif. de título Aceito/Não Aceito
              FormatDateTime('ddmmyyyy',DataDocumento)         + // 110 - 117 / Data da emissão do título
              STipoJuros                                       + // 118 - 118 / Código do juros de mora
              sDataMoraJuros                                   + // 119 - 126 / Data do juros de mora
              IntToStrZero(round(ValorMoraJuros * 100), 15)    + // 127 - 141 / Valor da mora/dia ou Taxa mensal
              sTipoDesconto                                    + // 142 - 142 / Código do desconto 1
              sDataDesconto                                    + // 143 - 150 / Data de desconto 1
              IntToStrZero(round(ValorDesconto * 100), 15)     + // 151 - 165 / Valor ou Percentual do desconto concedido
              IntToStrZero(round(ValorIOF * 100), 15)          + // 166 - 180 / Valor do IOF a ser recolhido
              IntToStrZero(round(ValorAbatimento * 100), 15)   + // 181 - 195 / Valor do abatimento
              padL(NossoNumero, 25)                            + // 196 - 220 / Identificação do título na empresa
              Instrucao1                                       + // 221 - 221 / Código para protesto
              sDiasProtesto                                    + // 222 - 223 / Número de dias para protesto
              Instrucao2                                       + // 224 - 224 / Código para Baixa/Devolução
              '0'                                              + // 225 - 225 / Reservado (uso Banco)
              '00'                                             + // 226 - 227 / Número de dias para Baixa/Devolução
              '00'                                             + // 228 - 229 / Código da moeda
              Space(11)                                        ; // 230 – 240 / Reservado (uso Banco)
    {SEGMENTO P - FIM}
<-

-> Ficou assim
    {SEGMENTO P}
    Result := '033'                                            + // 001 - 003 / Código do Banco na compensação
              '0001'                                           + // 004 - 007 / Numero do lote remessa
              '3'                                              + // 008 - 008 / Tipo de registro
              IntToStrZero(ISequencia ,5)                      + // 009 - 013 / Número seqüencial do registro no lote
              'P'                                              + // 014 - 014 / Cód. Segmento do registro detalhe
              Space(1)                                         + // 015 - 015 / Reservado (uso Banco)
              sCodMovimento                                    + // 016 - 017 / Código de movimento remessa
              Copy(sAgencia, 1, 4)                             + // 018 – 021 / Agência do Cedente
              Copy(sAgencia, 5, 1)                             + // 022 – 022 / Dígito da Agência do Cedente
              Copy(sCCorrente, 1, 9)                           + // 023 - 031 / da conta corrente
              Copy(sCCorrente, 10, 1)                          + // 032 – 032 / Dígito verificador da conta
              Copy(sCCorrente, 1, 9)                           + // 033 - 041 / Conta cobrança
              Copy(sCCorrente, 10, 1)                          + // 042 - 042 / Dígito da conta cobrança
              Space(2)                                         + // 043 - 044 / Reservado (uso Banco)
              NossoNumero + sDigitoNossoNumero                 + // 045 – 057 / Identificação do título no Banco (Nosso Número
              sTipoCobranca                                    + // 058 - 058 / Tipo de cobrança
              sFormaCadastramento                              + // 059 - 059 / Forma de Cadastramento = 1 Registrada / 2 Sem Registro
              sTipoDocto                                       + // 060 - 060 / Tipo de documento
              Space(1)                                         + // 061 - 061 / Reservado (uso Banco)
              Space(1)                                         + // 062 - 062 / Reservado (uso Banco)
              PadL(Copy(SeuNumero, 1, 15), 15)                 + // 063 - 077 / Nº do documento
              FormatDateTime('ddmmyyyy',Vencimento)            + // 078 - 085 / Data de vencimento do título
              IntToStrZero(round(ValorDocumento * 100), 15)    + // 086 - 100 / Valor nominal do título
              PadR('0', 4, '0')                                + // 101 - 104 / Agência encarregada da cobrança
              '0'                                              + // 105 - 105 / Dígito da Agência encarregada da cobrança
              Space(1)                                         + // 106 - 106 / Reservado (uso Banco)
              sEspecie                                         + // 107 – 108 / Espécie do título
              ifThen(Aceite = atSim,  'S', 'N')                + // 109 - 109 / Identif. de título Aceito/Não Aceito
              FormatDateTime('ddmmyyyy',DataDocumento)         + // 110 - 117 / Data da emissão do título
              STipoJuros                                       + // 118 - 118 / Código do juros de mora
              sDataMoraJuros                                   + // 119 - 126 / Data do juros de mora
              IntToStrZero(round(ValorMoraJuros * 100), 15)    + // 127 - 141 / Valor da mora/dia ou Taxa mensal
              sTipoDesconto                                    + // 142 - 142 / Código do desconto 1
              sDataDesconto                                    + // 143 - 150 / Data de desconto 1
              IntToStrZero(round(ValorDesconto * 100), 15)     + // 151 - 165 / Valor ou Percentual do desconto concedido
              IntToStrZero(round(ValorIOF * 100), 15)          + // 166 - 180 / Valor do IOF a ser recolhido
              IntToStrZero(round(ValorAbatimento * 100), 15)   + // 181 - 195 / Valor do abatimento
              padL(NossoNumero, 25)                            + // 196 - 220 / Identificação do título na empresa
              Instrucao1                                       + // 221 - 221 / Código para protesto
              sDiasProtesto                                    + // 222 - 223 / Número de dias para protesto
              Instrucao2                                       + // 224 - 224 / Código para Baixa/Devolução
              '0'                                              + // 225 - 225 / Reservado (uso Banco)
              '00'                                             + // 226 - 227 / Número de dias para Baixa/Devolução
              '00'                                             + // 228 - 229 / Código da moeda
              Space(11)                                        ; // 230 – 240 / Reservado (uso Banco)
    {SEGMENTO P - FIM}
<-

[Juliana Tamizou]

Bom dia.

 

Minha pergunta foi se existem carteiras que são exclusivas para cobranças com registro e outras para sem registro, ou caso não exista você poderia utilizar o campo Modalidade para informar o tipo de cobrança.

 

Att.

[madalozzo]

Bom dia...

 

Pelo que eu estava conversando com o pessoal do banco, posso ter cobrança registrada com forma de cadastramento sem registro como posso ter com registro, por esse motivo optei por criar um campo separado. Posso ter interpretado errado, mais consegui homologar tanto com registro quanto sem registro, estou analisando o retorno agora.

 

Obrigado pela atenção.

[madalozzo]

Bom dia... tive que fazer algumas alterações no retorno do Santander... Alguém esta usando o mesmo no layout 240 ???

[madalozzo]

Boa tarde Juliana... sabe me dizer se ja tem na impressão do boleto Santander o comprovante de entrega ?

 

Obrigado 

[Juliana Tamizou]

Boa noite.

 

O comprovante de entrega está implementado para qualquer banco.

 

Att.

[madalozzo]

Boa tarde Juliana...

 

Consegue subir as alterações que passei... está funcionando corretamente a cobrança mais toda vez que atualizo o acbr preciso voltar os meus fontes.

 

Se possível, agradeço.

 

Att:

[Juliana Tamizou]

Boa noite.

 

Nos fontes atuais existe a propriedade TipoCarteira no cedente, qual a necessidade desta propriedade estar no titulo?

 

Att.

 

Att.