MrBoleto banco Safra

[jfaguiar]

Boa tarde amigos.

Alguém teria a classe mrboleto com o método baixo atualizado? Na minha há uma inconsistência que o banco não aceita.

Muito obrigado. 

 

Method Banco_422() Class MR_Boleto

   ::Banco_Dv_____   := "7"
   ::Banco_Nome___   := "Safra"

   ::Banco_Agencia := PADL( ALLTRIM( Left( ::Banco_Agencia,  4 ) ),  4, '0' )
   ::Conta________ := PADL( ALLTRIM( Left( ::Conta________,  8 ) ),  8, '0' )
   ::Conta_DV_____ := PADL( ALLTRIM( Left( ::Conta_DV_____,  1 ) ),  1, '0' )

   ::Carteira_____ := PADL( ALLTRIM( Left( ::Carteira_____,  2 ) ),  2, '0' )
   ::Prefixo______ := PADL( ALLTRIM( Left( ::Prefixo______,  6 ) ),  6, '0' )

   ::Ag_Cod_Cedent := '0' + ::Banco_Agencia + '/' + ::Conta________ + '-' + ::Conta_DV_____

   ::NossoNumero__ := PADL( ALLTRIM( Left( ::NossoNumero__, 11 ) ), 11, '0' )
   ::NossoNumer_DV := ::DC_Mod11( ::Banco________, 7, .T. , ::NossoNumero__, .F. )

   IF ::Carteira_____ == '06'
      ::NossoNumero_z := ::Carteira_____ + '/' + ::NossoNumero__ + "-" + ::NossoNumer_DV
      ::Campo_Livre__:= '7' + ::Prefixo______ + ::NossoNumero__ + '4'
   ELSE
      ::NossoNumero_z := '0' + ::Banco_Agencia + '/' + ::NossoNumero__ + "-" + ::NossoNumer_DV
      ::Campo_Livre__ := '70' + ::Banco_Agencia + ::Conta________ + ::Conta_DV_____  + ::NossoNumero__ + ::NossoNumer_DV + '1'
   ENDIF

   Return NIL
 

 

[jfaguiar]

Olá Pessoal. Desculpem-me, esqueci de postar a correção. Segue abaixo:

Method Banco_422() Class MR_Boleto

   ::Banco_Dv_____   := "7"
   ::Banco_Nome___   := "Safra"

   ::Banco_Agencia := PADL( ALLTRIM( Left( ::Banco_Agencia,  4 ) ),  4, '0' )
   ::Conta________ := PADL( ALLTRIM( Left( ::Conta________,  8 ) ),  8, '0' )
   ::Conta_DV_____ := PADL( ALLTRIM( Left( ::Conta_DV_____,  1 ) ),  1, '0' )

   ::Carteira_____ := PADL( ALLTRIM( Left( ::Carteira_____,  2 ) ),  2, '0' )
   ::Prefixo______ := PADL( ALLTRIM( Left( ::Prefixo______,  6 ) ),  6, '0' )

   ::Ag_Cod_Cedent := '0' + ::Banco_Agencia + '/' + ::Conta________ + '-' + ::Conta_DV_____

 //::NossoNumero__ := PADL( ALLTRIM( Left( ::NossoNumero__, 11 ) ), 11, '0' )  comment em 28/04/2021
   ::NossoNumero__ := PADL( ALLTRIM( Left( ::NossoNumero__, 09 ) ), 09, '0' )

   ::NossoNumer_DV := ::DC_Mod11( ::Banco________, 7, .T. , ::NossoNumero__, .F. )

   IF ::Carteira_____ == '06'
      ::NossoNumero_z := ::Carteira_____ + '/' + ::NossoNumero__ + "-" + ::NossoNumer_DV
      ::Campo_Livre__:= '7' + ::Prefixo______ + ::NossoNumero__ + '4'
   ELSE
      /*
      Comment em 28/04/2021 conforme instruções do suporte técnico do Banco Safra
      ::NossoNumero_z := '0' + ::Banco_Agencia + '/' + ::NossoNumero__ + "-" + ::NossoNumer_DV
      ::Campo_Livre__ := '70' + ::Banco_Agencia + ::Conta________ + ::Conta_DV_____  + ::NossoNumero__ + ::NossoNumer_DV + '1'
      */

      // bab incluído em 28/04/2021 conforme instruções do suporte técnico do Banco Safra
      ::NossoNumero_z := ::NossoNumero__
    //  ::Campo_Livre__ := '70' + ::Banco_Agencia + ::Conta________ + ::Conta_DV_____  + ::NossoNumero__ + ::NossoNumer_DV + '1'
      ::Campo_Livre__ := '70' + ::Banco_Agencia + ::Conta________ + ::Conta_DV_____  + ::NossoNumero__ + '2' // + ::NossoNumer_DV
   ENDIF

   Return NIL