jfaguiar Posted April 28, 2021 Report Share Posted April 28, 2021 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 Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted May 30, 2021 Author Report Share Posted May 30, 2021 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.