Calculo digito verificador para sistema Rapipago

[Roberto tactac]

A quien me pueda ayudar del Foro. Necesito la rutina del c�lculo digito
verificador de PAGOFACIL , si alguien la puede tener agradecer�a me la
puedan ofrecer.

Gracias!
Saludos!

[Walter R. Ojeda Valiente]

¿Y de dónde es PAGOFACIL? ¿De Tanganika o de Bangla Desh?

Saludos.

Walter.

> Date: Mon, 6 Aug 2012 18:38:48 -0300
> From: rlean...@gmail.com
> To: publice...@googlegroups.com
> Subject: [vfp] Calculo digito verificador para sistema Rapipago
>
> A quien me pueda ayudar del Foro. Necesito la rutina del cálculo digito
> verificador de PAGOFACIL , si alguien la puede tener agradecería me la
> puedan ofrecer.
>
> Gracias!
> Saludos!
>
> --
>
>
>

[Roberto tactac]

El 06/08/2012 06:40 p.m., Walter R. Ojeda Valiente escribió:

¿Y de dónde es PAGOFACIL? ¿De Tanganika o de Bangla Desh?

Saludos.

Walter.

jajajaja perdon es rapipago de Argentina

> Date: Mon, 6 Aug 2012 18:38:48 -0300
> From: rlean...@gmail.com
> To: publice...@googlegroups.com
> Subject: [vfp] Calculo digito verificador para sistema Rapipago
>
> A quien me pueda ayudar del Foro. Necesito la rutina del cálculo digito
> verificador de PAGOFACIL , si alguien la puede tener agradecería me la
> puedan ofrecer.
>
> Gracias!
> Saludos!
>
> --
>
>
>

--
 
 
 

[Walter R. Ojeda Valiente]

No conozco Rapipago de Argentina pero si su dígito verificador tiene un solo dígito entonces es muy probable que utilice el método del módulo 11. Te paso una función que lo calcula y verifica si te funciona.


FUNCTION DigitoVerificador
LParameters tcNumero
Local lnDV, lnI, lnX, lnSuma
 
  tcNumero = AllTrim(tcNumero)
 
  lnSuma = 0
 
  lnI = Len(tcNumero)
  do while lnI >= 1
    lnX = Val(SubStr(tcNumero, lnI, 1))
    lnSuma = lnSuma + lnX * (Len(tcNumero) - lnI + 2)
    lnI = lnI - 1
  enddo
 
  lnDV = Int((lnSuma - 1) / 11) * 11 + 11 - lnSuma
  lnDV = iif(lnDV == 10, 0, lnDV)
 
Return(Transform(lnDV))
*
*

Ejemplo de uso de esta función:

? DigitoVerificador("12345678")


Saludos.

Walter.

---

Date: Mon, 6 Aug 2012 18:56:18 -0300
From: rlean...@gmail.com
To: publice...@googlegroups.com
Subject: Re: [vfp] Calculo digito verificador para sistema Rapipago

--
 
 
 

[Ricardo Peña]

Si te referís al dígito verificador del código de barras
Rapipago usa Interleaved 2 of 5.  La rutina está en Portalfox

Ricardo Luis Peña
Analista de Sistemas
BA - Argentina
011-15-4440-7378
 

> Date: Mon, 6 Aug 2012 18:38:48 -0300
> From: rlean...@gmail.com
> To: publice...@googlegroups.com
> Subject: [vfp] Calculo digito verificador para sistema Rapipago
>

> A quien me pueda ayudar del Foro. Necesito la rutina del cálculo digito
> verificador de PAGOFACIL , si alguien la puede tener agradecería me la
> puedan ofrecer.
>
> Gracias!
> Saludos!
>
> --
>
>
>

[Roberto tactac]

--
 
 
 

Gracias!!! la voy a buscar y comento los resultados...

[Arnaldo Toledano]

Walter.
Vos seguí nomas "ofendiendo" a los Argentinos.
Ya te mandamos a Moria Casan y mira como les fue.
En cualquier momento te mandamos a Mirta Legrand y agarrate CATALINA.


Arnaldo Toledano
P/D: Moria Casan dice que la paso JOYA en Paraguay....

El 06/08/2012 06:40 p.m., Walter R. Ojeda Valiente escribió:

--
 
 
 

--
Arnaldo Toledano Tesys Informática Córdoba Argentina

[Walter R. Ojeda Valiente]

Ja, ja, ja, ja, ja, ja, ja, ja.

El tema es que tanto Moria como su ayudante, como su representante, como el joyero supuestamente estafado ... son todos argentinos.

Así que ya te podés imaginar la cantidad de chistes que se hicieron sobre eso.

:-)

Saludos.

Walter.

---

Date: Tue, 7 Aug 2012 08:44:49 -0300
From: arnaldo....@gmail.com
To: publice...@googlegroups.com
Subject: Re: [vfp] Calculo digito verificador para sistema Rapipago

--
 
 
 

[Roberto tactac]

--
 
 
 

Gracias!

[Luis Maria Guayan]

Mira, esta función sirve para los servicios de RapiPago y/o Pago Fácil de Argentina.

Lo que no tengo muy en claro es cual o cuando se genera 1 ó 2 dígitos de verificación, esto se pasa en el segundo parámetro:

? GenerarDigitoVerificador("30540360002000800080581122160008058112234", 1) && 1 dígito de verificación

FUNCTION GenerarDigitoVerificador(tcCadena, tn)
  *---
  * Parámetros
  *   tcCadena = Cadena a generar el/los dígito/s de verificación
  *   tn = Cantidad de dígito/s de verificación (1 ó 2)
  * Retorno:
  *   Caracter: La cadena mas el/los dígito/s de verificación
  *---

  IF EMPTY(tn) OR NOT INLIST(tn, 1, 2)
    tn = 1
  ENDIF

  tcCadena = ALLTRIM(tcCadena)
 
  LOCAL lnLen, lnI, lnSuma, lcSeq
  lnLen = LEN(tcCadena)
  lcSeq = "1" + REPLICATE("3579", CEILING(lnLen/4))
  lnSuma = 0
  FOR lnI = 1 TO lnLen
    lnSuma = lnSuma + VAL(SUBSTR(tcCadena, lnI, 1)) * VAL(SUBSTR(lcSeq, lnI, 1))
  ENDFOR
  lcRet = tcCadena + TRANSFORM(MOD(INT(lnSuma / 2), 10))
  IF tn = 2
    tcCadena = ALLTRIM(lcRet)
    lnLen = LEN(tcCadena)
    lcSeq = "1" + REPLICATE("3579", CEILING(lnLen/4))
    lnSuma = 0
    FOR lnI = 1 TO lnLen
      lnSuma = lnSuma + VAL(SUBSTR(tcCadena, lnI, 1)) * VAL(SUBSTR(lcSeq, lnI, 1))
    ENDFOR
    lcRet = tcCadena + TRANSFORM(MOD(INT(lnSuma / 2), 10))
  ENDIF
  RETURN lcRet
ENDFUNC

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

El 06/08/2012 18:38, Roberto tactac escribió:

A quien me pueda ayudar del Foro. Necesito la rutina del cálculo digito verificador de PAGOFACIL , si alguien la puede tener agradecería me la puedan ofrecer.

Gracias!
Saludos!