Rutina vfp a java

[Ruben Antunes]

Buenos tardes a todo el grupo. Necesito pasar una función de vfp9 a java. Me pueden guiar como podría hacerlo.

 

Ruben

[Víctor Hugo Espínola Domínguez]

*
*-- Casi viernes ;-)
*

? STRTRAN("función de vfp9", "vfp9", "java")

Saludos,

Víctor.

Lambaré - Paraguay.

El 2 de junio de 2016, 19:20, Ruben Antunes<rubena...@gmail.com> escribió:

Buenos tardes a todo el grupo. Necesito pasar una función de vfp9 a java. Me pueden guiar como podría hacerlo.

 

Ruben

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

[sol antunes]

Victor Hugo: no entiendo bien. Esa linea te convierte toda una rutina de vfp a java?

[Víctor Hugo Espínola Domínguez]

Es un chiste, pero ya en serio, si pones el código en VFP que quieres trasladar será más fácil que alguien te ayude.

Saludos,

Víctor.

Lambaré - Paraguay.

[Ruben Antunes]

Esta es la rutina de VFP para convertir a Java, a quien me pueda agrudar lo agradecería.

 

Saludos

Ruben Antunes

 

FUNCTION PagoFacil

LPARAMETER cCODBAR

nJ = 0

*cIMPARES = "1357935793579357935793579357935793579357935"

 

_LongCodBar=LEN(cCODBAR)

_LongCodBar=INT(_LongCodBar/4)+1

cPrimerDigito="13579"

cSegundoDigito="3579"

cSumaSDigito=''

FOR nI = 1 TO _LongCodBar

                    cSumaSDigito=cSumaSDigito+cSegundoDigito

ENDFOR

cIMPARES=cPrimerDigito+cSumaSDigito

 

FOR nI = 1 TO LEN(cCODBAR)

            nJ = nJ + VAL(SUBSTR(cCODBAR, nI, 1)) * VAL(SUBSTR(cIMPARES, nI, 1))

ENDFOR                               

 

nJ = INT(nJ / 2)

 

RETURN TRANSFORM( nJ - INT(nJ /10) * 10)

[Víctor Hugo Espínola Domínguez]

No tengo forma de probar, así que puede tener errores de sintaxis, pero la idea es:

public String pagoFacil(String codBar) {
String digVerif = "";

final String PRIMER_DIGITO = "13579";
final String SEGUNDO_DIGITO = "3579";

String sumaDigito = "";
String impares = "";

Int nJ = 0;
Int longCodBar = codBar.length();
longCodBar = longCodBar / 4 + 1;

for (int i = 0; i < longCodBar - 1; i++) {
  sumaDigito = sumaDigito + SEGUNDO_DIGITO;
}
impares = PRIMER_DIGITO + sumaDigito;

for (int i = 0; i < (codBar.length() - 1); i++) {
  nJ = nJ + Integer.parseInt(codBar.substring(i, i + 1))
          * Integer.parseInt(impares.substring(i, i + 1));
}

nJ = nJ / 2;

nJ = nJ % 10;

digVerif = Integer.toString(nJ)

return digVerif;
}

Saludos,

Víctor.

Lambaré - Paraguay.