Hola

Te comente ayer una cosa, más o menos he solucionado algo, ahora necesito 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

Respuesta
1
Primero los := no existen en visual basic, solo =, los tipos de variables a usar, pueden ser int o double.
Utiliza el mid$ para extraer los segmentos de datos.
El punto y coma tampoco va...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas