Perguntas Linha Digitável

Galera, bom dia !

Alguém aí tem a parte da linha digitavel do fonte pra boleto do BB?

Caso alguém tenha e possa compartilhar, fico muito grato.

Obrigado!

Victor nao sei se entendi bem .. mais ta ai parte da linha digitavel do font BB

User Function LD001() //BRASIL


Local cDvCodBar := SubStr(SE1->E1_C_CODBA,05,01)// Digito verificador do codigo de barras
Local cPosBar1 := SubStr(SE1->E1_C_CODBA,20,05)// Posicao 20 a 24 do codigo de barras
Local cPosBar2 := SubStr(SE1->E1_C_CODBA,25,10)// Posicao 25 a 34 do codigo de barras
Local cPosBar3 := SubStr(SE1->E1_C_CODBA,35,10)// Posicao 35 a 44 do codigo de barras
Local aLinha := {"","","","",""} // Array que armazenara os dados da linha digitavel

//1o. Grupo - TAM 10:
aLinha[1] := "001" // Codigo do banco. - TAM 03
aLinha[1] += "9" // Codigo da Moeda (Real = 9, Outras=0) - TAM 01
aLinha[1] += cPosBar1 // Posicao 20 a 24 do codigo de barras - TAM 05
aLinha[1] += AllTrim(Str(U_Modulo10(aLinha[1]))) // Digito de controle no modulo 10 - TAM 01

//2o. Grupo - TAM 11:
aLinha[2] := cPosBar2 // Posicao 25 a 34 do codigo de barras - TAM 10
aLinha[2] += AllTrim(Str(U_Modulo10(aLinha[2]))) // Digito de controle no modulo 10 - TAM 01

//3o. Grupo - TAM 11:
aLinha[3] := cPosBar3 // Posicao 35 a 44 do codigo de barras - TAM 10
aLinha[3] += AllTrim(Str(U_Modulo10(aLinha[3]))) // Digito de controle no modulo 10 - TAM 01

//4o. Grupo - TAM 01:
aLinha[4] += cDvCodBar //Digito verificador do codigo de barras, ou seja, a 5a posicao do codigo de barras

//5o. Grupo - TAM 14:
aLinha[5] += AllTrim(Str(1000 + (aValores[1] - CToD("03/07/2000")))) // FATOR DE VENCIMENTO - TAM 04
aLinha[5] += StrZero(aValores[2]*100,10) // VALOR DO TITULO - TAM 10

Return(Transform(aLinha[1],"@R 99999.99999")+" "+Transform(aLinha[2],"@R 99999.999999")+" "+Transform(aLinha[3],"@R 99999.999999")+" "+aLinha[4]+" "+aLinha[5])

Obs. o campo criado E1_C_CODBA ja esta com os dados do código de barras e a linha pega esses dados e reagrupa ..

É isso sim, mas ta totalmente diferente do fonte que tenho aqui

Você poderia fornecer esse fonte completo?

Obrigado.

desculpe a demora na resposta hj ainda mando pra vc o download.