Application Number In Register Page

This space is made available to users of Open Patent Services (OPS) web-service and now also to users of EPO’s bulk data subscription products such as 14. EPO worldwide bibliographic database (DOCDB), 14.11 EPO worldwide legal status database (INPADOC), 14.12 EP full text data, 14.1 EP bibliographic data (EBD)and more.

Users can ask each other questions, exchange experiences and solutions, post ideas. The moderator will use this space to announce changes or other relevant information.
Post Reply

Baturay
Posts: 2
Joined: Fri Apr 26, 2019 2:39 pm

Application Number In Register Page

Post by Baturay » Mon May 13, 2019 10:37 am

Hello,

i have one question about patent register. I try to get application's register with python.

Everything is working great. But i have one question about Application number. At the response, i get the application number without (".digit").

At register page for example ; "15150367.9"
Response : "15150367"

How can i reach the full number like register?

Best Regards,

Mehmet Baturay


EPO / OPS Support
Posts: 1298
Joined: Thu Feb 22, 2007 5:32 pm

Re: Application Number In Register Page

Post by EPO / OPS Support » Tue May 14, 2019 6:08 am

Hi,

Unfortunately, we don't include the check digit into OPS. We only offer serial number, up to the digit.

Regards,
Vesna for OPS support


ksb
Posts: 20
Joined: Thu Aug 13, 2009 8:26 am

Re: Application Number In Register Page

Post by ksb » Mon Sep 30, 2019 12:13 pm

Hi,
why do you not calculate the checkdigit yourself from the 8 digits of the application number?
A simple routine in VB.NET looks like this:

Code: Select all

Public Function CheckDigit(ByVal strAn As String) As String
        Dim ret As Integer = 0
        If strAn.Length <> 8 Then
            Throw New Exception("Wrong input: " & strAn)
        End If
        Dim an(8) As Integer
        For i = 1 To 8
            an(i) = Val(Mid(strAn, i, 1))
            If i Mod 2 = 0 Then an(i) = an(i) * 2
        Next
        Dim crosssum As Integer = 0
        For i = 1 To 8
            If an(i) >= 10 Then
                an(i) = an(i) - 10
                crosssum += 1
                crosssum += an(i)
            Else
                crosssum += an(i)
            End If
        Next
        ret = 10 - crosssum Mod 10
        If ret = 10 Then ret = 0
        Return Format(ret, "0")
    End Function
    


Post Reply