no me deja poner funciones
Publicado por Berth (1 intervención) el 21/01/2009 00:19:57
HOLA SALUDOS, SOY UN POCO NUEVA EN ESTO CE CRYSTAL Y QUISIERA QUE ME AYUDARAN NECESITO HACER UNA FUNCION ES UN CODIGO EL CUAL ME GENERA UN NUMERO PARA UN CODIGO DE BARRAS, ESTE ES EL CODIGO:
Function calculacodigo (CUENTA As String, IMPORTE As Double) As String
Dim codigo As String, impstr As String, impceros As String
Dim prod(30) As Long, suma As Long
Dim i As Integer, j As Integer
impstr = ""
impceros = ""
codigo = ""
suma = 0
codigo = "001" & Mid(CUENTA, 1, 2) & Mid(CUENTA, 4, 4) & Mid(CUENTA, 9, 2) & Mid(CUENTA, 12, 2) & Mid(CUENTA, 15, 1)
'codigo = Mid(CUENTA, 1, 2) & Mid(CUENTA, 4, 4) & Mid(CUENTA, 9, 2) & Mid(CUENTA, 12, 2) & Mid(CUENTA, 15, 1)
impstr = CStr(IMPORTE * 100)
For i = 1 To 12 - Len(impstr)
impceros = impceros & "0"
Next i
codigo = codigo & impceros & impstr
j = 1
k = 1
For i = 1 To Len(codigo)
prod(i) = CLng(Mid(codigo, i, 1)) * k
k = k + (j * 2)
If j > 2 Then
j = 1
k = 1
Else
j = j + 1
End If
suma = suma + prod(i)
Next i
digito = suma Mod 9 + 1
calcula_codigo = codigo & digito
End Function
ESTA HECHO EN VISUAL BASIC Y PUES CUANDO TRATO DE HECERLO EN CRYSTAL ME DIE QUE EL RESTO DE LA FORMULA NO PERTENECE A TAL, QUISE HACER UN FUNCION SIMPLE Y TAMPOCO , NO SE SI FALTE ALGO, O UNA LIBRERIA O ALGO ASI, ME SERIA DE SUPER AYUDA!!!!! PORFAVOOOOR
GRACIASSSSS
Function calculacodigo (CUENTA As String, IMPORTE As Double) As String
Dim codigo As String, impstr As String, impceros As String
Dim prod(30) As Long, suma As Long
Dim i As Integer, j As Integer
impstr = ""
impceros = ""
codigo = ""
suma = 0
codigo = "001" & Mid(CUENTA, 1, 2) & Mid(CUENTA, 4, 4) & Mid(CUENTA, 9, 2) & Mid(CUENTA, 12, 2) & Mid(CUENTA, 15, 1)
'codigo = Mid(CUENTA, 1, 2) & Mid(CUENTA, 4, 4) & Mid(CUENTA, 9, 2) & Mid(CUENTA, 12, 2) & Mid(CUENTA, 15, 1)
impstr = CStr(IMPORTE * 100)
For i = 1 To 12 - Len(impstr)
impceros = impceros & "0"
Next i
codigo = codigo & impceros & impstr
j = 1
k = 1
For i = 1 To Len(codigo)
prod(i) = CLng(Mid(codigo, i, 1)) * k
k = k + (j * 2)
If j > 2 Then
j = 1
k = 1
Else
j = j + 1
End If
suma = suma + prod(i)
Next i
digito = suma Mod 9 + 1
calcula_codigo = codigo & digito
End Function
ESTA HECHO EN VISUAL BASIC Y PUES CUANDO TRATO DE HECERLO EN CRYSTAL ME DIE QUE EL RESTO DE LA FORMULA NO PERTENECE A TAL, QUISE HACER UN FUNCION SIMPLE Y TAMPOCO , NO SE SI FALTE ALGO, O UNA LIBRERIA O ALGO ASI, ME SERIA DE SUPER AYUDA!!!!! PORFAVOOOOR
GRACIASSSSS
Valora esta pregunta
0