Marca Posted October 7, 2020 Report Share Posted October 7, 2020 Bom dia pessoal Alguém teria o boleto homologado para o Sicoob recentemente utilizando o Harbour Boleto que pudesse compartilhar ? Quote Link to comment Share on other sites More sharing options...
edutraini Posted October 7, 2020 Report Share Posted October 7, 2020 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...
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.