edutraini Posted January 31, 2019 Report Share Posted January 31, 2019 Boa tarde, Pessoal Alguem ja fez a rotina de calculo do nro bancarioi desse Banco Estou tendo problema para gerar o codigo de barras Atenciosamente, Eduardo Mazur Quote Link to comment Share on other sites More sharing options...
marcioe Posted February 1, 2019 Report Share Posted February 1, 2019 Eu uso com ACBRmonitorPlus Quote Link to comment Share on other sites More sharing options...
Eroni Posted February 1, 2019 Report Share Posted February 1, 2019 Bom dia, Segue o que eu uso, procure por "756" no código. Abraço. oboleto.prg kapiaba and soaresja1 2 Quote Link to comment Share on other sites More sharing options...
edutraini Posted February 4, 2019 Author Report Share Posted February 4, 2019 Eroni muito obrigado deu certo Abraço Quote Link to comment Share on other sites More sharing options...
HASA Posted January 29, 2021 Report Share Posted January 29, 2021 Boa tarde Eroni, popderia disponibilizar novamente, quando baixo esse na msg vem vazio. :-( HASA Quote Link to comment Share on other sites More sharing options...
edutraini Posted February 1, 2021 Author Report Share Posted February 1, 2021 Method Banco_756() Class MR_Boleto ::Banco_Dv_____ := "0" ::Banco_Nome___ := "Siccob" IF EMPTY( ::Prefixo______ ) ::Prefixo______ := ::Conta________ ::Conta________ := '' ::Prefixo_DV___ := ::Conta_DV_____ ::Conta_DV_____ := '' ENDIF ::NossoNumer_DV := ::DC_ModEsp( ::Banco________, 9, .F., ::Banco_Agencia + STRZERO(VAL(::Prefixo______),9) + ::Prefixo_DV___ + PADL( ALLTRIM( Left( ::NossoNumero__, 07 ) ), 07, '0' ), .F. ) ::NossoNumero_z := ::NossoNumero__ + "-" + ::NossoNumer_DV ::Banco_Agencia := PADL( ALLTRIM( Left( ::Banco_Agencia, 4 ) ), 4, '0' ) ::Ag_Cod_Cedent := TRAN( ::Banco_Agencia + '/' + strzero(val(::Prefixo______),6) + '-' + ::Prefixo_DV___ , "@!") *--> ::cCarteira := ::Carteira_____ ::cNumAgencia := ::Banco_Agencia ::cTipoCob := "01" ::cCDPF := strzero(val(::Prefixo______ ),6) ::cDVCDPF := ::Prefixo_DV___ ::cNsNm := ::NossoNumero__ +::NossoNumer_DV ::Campo_Livre__ := ::cCarteira + ::cNumAgencia + StrZero( Val( ::cTipoCob ),2 ) + ::cCDPF + ::cDVCDPF + ::cNsNm + "001" // teste eroni Return NIL Quote Link to comment Share on other sites More sharing options...
HASA Posted February 2, 2021 Report Share Posted February 2, 2021 - Bom dia, pessoal minha dificuldade está sendo em incorporar a Constante para cálculo = 3197, na formula para achar o digito do nosso número, alguem tem essa parte apenas? :-( HASA Quote Link to comment Share on other sites More sharing options...
edutraini Posted February 2, 2021 Author Report Share Posted February 2, 2021 Method DC_ModEsp( c_Banco, mBSDG, mFGCB, mNMOG, lMult10 ) Class MR_Boleto LOCAL mVLDG LOCAL mSMMD LOCAL mCTDG LOCAL mSQMP LOCAL mRSDV LOCAL mDCMD := 0 IF c_Banco == "033" // Banespa mSMMD := 0 mSQMP := 3 FOR mCTDG := 1 TO Len( mNMOG ) mVLDG := Val( SubStr( mNMOG,Len(mNMOG ) - mCTDG + 1,1 ) ) * ( mSQMP ) mSMMD += mVLDG - ( Int( mVLDG / 10 ) * 10 ) mSQMP := IF( mSQMP == 3, 7, IF( mSQMP == 7,9,IF(mSQMP == 9,1,3 ) ) ) NEXT mRSDV := mSMMD - ( Int( mSMMD / 10 ) * 10 ) mDCMD := IF( mRSDV == 0, 0, 10 - mRSDV ) ENDIF * IF c_Banco == "756" // Sicoob mSMMD := 0 mSQMP := 3 FOR mCTDG := 1 TO LEN(mNMOG) mVLDG := VAL( SUBSTR( mNMOG , mCTDG, 1 ) ) * mSQMP mSMMD += mVLDG DO CASE CASE mSQMP == 3 ; mSQMP := 1 CASE mSQMP == 1 ; mSQMP := 9 CASE mSQMP == 9 ; mSQMP := 7 CASE mSQMP == 7 ; mSQMP := 3 ENDCASE NEXT mRSDV := Int( Mod( mSMMD, 11) ) IF mRSDV == 0 .OR. mRSDV == 1 mDCMD := 0 ELSE mDCMD := 11 - mRSDV ENDIF Endif RETURN Str( mDCMD, 1 ) Quote Link to comment Share on other sites More sharing options...
HASA Posted February 2, 2021 Report Share Posted February 2, 2021 Boa tarde Edu era isso mesmo obrigado. Sucesso. HASA Quote Link to comment Share on other sites More sharing options...
agp.ds Posted August 3, 2023 Report Share Posted August 3, 2023 Em 01/02/2019 at 10:27, Eroni disse: Bom dia, Segue o que eu uso, procure por "756" no código. Abraço. oboleto.prg Bom dia Eroni, poderia disponibilizar novamente quando baixo o arquivo vem vazio. Desde já obrigado. 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.