Crystal Report - no me deja poner funciones

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder