Ορθότητα λογαριασμού ΔΕΗ

[chrisofos]

Καλησπέρα σε όλους!


Θα ήθελα αν έχει κάποιος λύσει τον κώδικα για τον έλεγχο του λογαριασμού της ΔΕΗ.


Στον Ήφαιστο έχει τον παρακάτω κώδικα σε js και ήθελα αν είναι εύκολο να γίνει σε Αccess - φαντάζομαι είναι - αλλά...


ο κώδικας του Ήφαιστου:


Παίρνουμε τα πρώτα 11 ψηφία.
Διαιρούμε με το 11, με ακέραια διαίρεση, και κρατάμε το υπόλοιπο (διαίρεση modulo 11)
Εαν το υπόλοιπο είναι <10, τότε αυτό είναι το ψηφίο ελέγχου.
Εαν το υπόλοιπο είναι 10, τότε το ψηφίο ελέγχου είναι η μονάδα (1)

Παρατίθεται ο κώδικας σε Javascript, για διευκόλυνση σας :

function check_deh_id(deh_id)

{

if (deh_id.length!=12) return false;

var i=parseInt(deh_id.slice(0,11), 10) % 11;

if (i==10) i=1;

return deh_id.slice(11,12)==i ? true : false;
ΕΥΧΑΡΙΣΤΩ ΓΙΑ ΤΗΝ ΦΙΛΟΞΕΝΙΑ
ΧΡΗΣΤΟΣ ΣΟΦΙΑΔΗΣ

[kapetang]

Καλημέρα

Χρήστο, στην επισυναπτόμενη ΒΔ υπάρχουν δύο προσεγγίσεις υλοποίησης του αλγόριθμου ελέγχου της εγκυρότητας του κωδικού πληρωμής των λογαριασμών της ΔΕΗ.

1. Η πρώτη γίνεται με VBA και συγκεκριμένα με τη συνάρτηση:

Public Function chcNumDEH(x As Variant) As Variant
    '================================================================
    'Ελέγχει την εγκυρότητα του κωδικού πληρωμής των λογαριασμών ΔΕΗ
    '================================================================
    Dim j As Long
    If IsNull(x) Then
        chcNumDEH = Null
        Exit Function
    End If
    If Len(x) <> 12 Or Not IsNumeric(x) Then
        chcNumDEH = False
        Exit Function
    End If
    j = Left(x, 11) - Int(Left(x, 11) / 11) * 11
    If j = 10 Then j = 1
    chcNumDEH = j = Right(x, 1)
End Function

2. Η δεύτερη γίνεται με την ακόλουθη έκφραση της access:

Right([numDEH];1)=IIf(IIf(Len([numDEH])=12 And IsNumeric([numDEH]);
Left([numDEH];11)-Int(Left([numDEH],11)/11)*11;15)=10;1;
IIf(Len([numDEH])=12 And IsNumeric([numDEH]);
Left([numDEH];11)-Int(Left([numDEH];11)/11)*11;15))

Στην έκφραση ο κωδικός αποθηκεύεται στο πεδίο «numDEH»

Στο ερώτημα «qryTest» υπάρχουν και οι δύο λύσεις.

Φιλικά/Γιώργος

[chrisofos]

Σε ευχαριστώ για την βοήθεια στο Εxcel το είχα κάνει αλλά θέλω να βάλω τον κώδικα μέσα σε υπάρχουσα βάση που χρησιμοποιώ για τον Ήφαιστο.

Πάντως όπως και να χει ευχαριστώ.

Ευχαριστώ και πάλι.

Σοφιάδης Χρήστος

Στέλνω και το αρχείο στο Excel

[Tasos]

Αγαπητέ Χρήστο, σε παρακαλώ μην γράφεις με κεφαλαία στα μηνύματα σου (ήδη σου έχω διορθώσει 2 μηνύματα).

Φιλικά

Τάσος

[chrisofos]

Συγγνώμη καποτε θα μάθω και η πλακα είναι οταν εστελνα το μήυνυμα ειπα ας συμορφωθώ για να μην φαω κιτρινη κάρτα. Κανονικα ειμαι για κοκκινη αλλα ο αγωνας ειναι φιλικός
φιλικα
Σοφιαδης Χρήστος