Hola

Ayer creo que te pregunte una cosa, pues bueno más o menos esta más claro, a ver ahora si sabes esto
Tengo una fórmula en cristal reports que me averigua el código de barras, y me gustaría pasarla a visual basic.
Para una vez echo el calculo poder editar en el campo vacío de access.
----------------------------------
NumberVar X1 := ToNumber(Mid ({@CodigoCompleto},12 ,1 )) ;
NumberVar X2 := ToNumber(Mid ({@CodigoCompleto},11 ,1 )) ;
NumberVar X3 := ToNumber(Mid ({@CodigoCompleto},10 ,1 )) ;
NumberVar X4 := ToNumber(Mid ({@CodigoCompleto},9 ,1 )) ;
NumberVar X5 := ToNumber(Mid ({@CodigoCompleto},8 ,1 )) ;
NumberVar X6 := ToNumber(Mid ({@CodigoCompleto},7 ,1 )) ;
NumberVar X7 := ToNumber(Mid ({@CodigoCompleto},6 ,1 )) ;
NumberVar X8 := ToNumber(Mid ({@CodigoCompleto},5 ,1 )) ;
NumberVar X9 := ToNumber(Mid ({@CodigoCompleto},4 ,1 )) ;
NumberVar X10 := ToNumber(Mid ({@CodigoCompleto},3 ,1 )) ;
NumberVar X11 := ToNumber(Mid ({@CodigoCompleto},2 ,1 )) ;
NumberVar X12 := ToNumber(Mid ({@CodigoCompleto},1 ,1 )) ;
NumberVar Calculo1 ;
NumberVar Calculo2 ;
NumberVar SumaParcial;
NumberVar Superior;
NumberVar Resto;
NumberVar DigitoControl;
StringVar strDigitoControl;
Calculo1 := (X2*1)+(X4*1)+(X6*1)+(X8*1)+(X10*1)+(X12*1);
Calculo2 := (X1*3)+(X3*3)+(X5*3)+(X7*3)+(X9*3)+(X11*3);
SumaParcial := Calculo1+Calculo2;
Resto := Remainder (SumaParcial,10 );
Resto := 10-Resto;
Superior := SumaParcial + Resto;
If Resto = 10 Then DigitoControl := 0 else DigitoControl := Superior - SumaParcial;
strDigitoControl := ToText(DigitoControl,'#');
strDigitoControl;
------------------------------
Codigocompleto es una constante que su numero es 843603615 ( esto más el resultado de esa operación me da un numero ejemplo 843603615xxxx a esto te lengo que concatenar un campo de mi base de datos que tienes 3 dígitos ejemplo 510, para que el numero se quedara así:
843603615xxxx510
1

1 Respuesta

27.500 pts. 5 años de programacion
.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas