Mensaje enviado por "Antonio Ortiz" <banosol@telepolis.com> el 9/04/2003

Rogelio:
Te comento.
El número de talón o pagaré se compone de una serie y una cadena numérica que va de o a 9999999, seguido de un dígito de control y un número compuesto de 4 dígitos que vá encerrado en un cuadro, seguido de un ddígito de control.
Pues bien. El dígito de control del número encerrado en el cuadro se calcula por el resto de la división de este número entre 7.
Este número puede ser de 0 a 6 (Por ejemplo el 8200 sería 3).
El dígito de control del número del talón o pagaré se calcula con la función que te envio más abajo y para que lo que necesita es el número del pagaré y el número del tipo de talón o pagaré (el que va encerrado en el cuadro.)
Espero te sirva.
Salu2.


Public Function DigitoControl(Numero As Long, Tipo As Integer) As Byte
    Const Digito = "01234560123456"
    Const Tip = "1473625"
     Dim RestoNumero As Byte
    Dim RestoTipo As Byte
    RestoTipo = Tipo Mod 7
    RestoNumero = Numero Mod 7
    DigitoControl = Mid(Digito, RestoNumero + CByte(Mid(Tip, RestoTipo + 1, 1)), 1)
End Function


----- Original Message -----
From: "Rogelio Moreno" <rogeliomoreno@jazzfree.com>
To: <visualbasic-esp@yahoogroups.com>
Sent: Friday, April 04, 2003 2:10 AM
Subject: (VB-ESP) Listado de pagarés.


> Hola.
>
> He confeccionado un listado de pagares en una aplicación. El papel lleva al
> final, es decir, en el pie el pagaré troquelado.
> En ese pagare tengo que poner la numeración que el banco me de para pagar al
> proveedor.
> El tema está en que según el banco, dependiendo del número de pagaré se
> genera un dígito mediante un algoritmo que desconocen al estilo del
> algoritmo del dni.
> ¿Alguien sabe si este algoritmo es estandar o depende de la entidad?
>
> Gracias.