Data type:

float, XML-Attribut, unique

Supported:

optional

Compatibility:

Kalorio

Data type:

string, XML-Element, sequence

Supported:

mandatory

Compatibility:

all

Data type:

string, XML-Element, sequence

Supported:

mandatory

Compatibility:

all

Data type:

string, XML-Element, sequence

Supported:

optional

Compatibility:

Ambrosia, Kalorio

Data type:

string, XML-Element, sequence

Supported:

optional

Compatibility:

Ambrosia

Data type:

complex type, XML-Element, sequence

Supported:

optional

Compatibility:

Kalorio

Data type:

string, XML-Attribut from content

Supported:

optional

Compatibility:

Ambrosia, Kalorio

Data type:

string, XML-Attribut von content

Supported:

optional

Compatibility:

Ambrosia, Kalorio

Data type:

complex type, XML-Element, sequence

Supported:

optional

Compatibility:

Ambrosia, Kalorio

Data type:

string, XML-Attribut, unique

Supported:

optional

Compatibility:

Ambrosia, Kalorio

Data type:

mime64, XML-Element, sequence

Supported:

optional

Compatibility:

Kalorio

Data type:

string, XML-Attribut, unique

Supported:

mandatory

Compatibility:

Kalorio

Data type:

string, XML-Element, sequence

Supported:

optional

Compatibility:

Kalorio

Data type:

string, XML-Attribut

Supported:

mandatory

Compatibility:

Kalorio

Data type:

string, XML-Attribut

Supported:

mandatory

Compatibility:

Data type:

string, XML-Attribut

Supported:

mandatory

Compatibility:

Kalorio

Data type:

complex type, XML-Element, sequence

Supported:

mandatory

Compatibility:

all

Data type:

complex type, XML-Attribut

Supported:

mandatory

Compatibility:

all

Data type:

complex type, XML-Element, sequence

Supported:

mandatory

Compatibility:

all

Data type:

float, XML-Attribut, unique

Supported:

mandatory

Compatibility:

all

Data type:

string, XML-Attribut, unique

Supported:

mandatory

Compatibility:

all

Data type:

string, XML-Attribut, unique

Supported:

mandatory

Compatibility:

all

Data type:

string, XML-Element from head, sequence

Supported:

mandatory

Compatibility:

all

Data type:

string, XML-Attribut, unique

Supported:

Support is optional, however you have to pass data through.

Compatibility:

Ambrosia, Kalorio

Data type:

non negative integer, XML-Attribut, unique

Supported:

Support is optional, however you have to pass data through.

Kompatibiltät:

Ambrosia, Kalorio

Data type:

bool ("true" oder "false"), XML-Attribut, unique

Supported:

optional

Compatibility:

Kalorio

Data type:

string, XML-Attribut, unique

Supported:

Support is optional, however you have to pass data through.

Compatibility:

Kalorio

Data type:

string, XML-Attribut, unique

Supported:

optional

Compatibility:

Data type:

string, XML-Attribut, unique

Supported:

optional

Data type:

string, XML-Element, unique, choice

Supported:

mandatory

Compatibility:

all

Data type:

string, XML-Element, unique

Supported:

mandatory

Compatibility:

all

Data type:

string, XML-Element, unique

Supported:

mandatory

Compatibility:

all

Data type:

complex type, XML-Element, sequence

Supported:

optional

Compatibility:

Data type:

string, XML-Attribut, unique

Supported:

optional

Compatibility:

Kalorio

Data type:

string, XML-Element, sequence

Supported:

optional

Compatibility:

Ambrosia, Kalorio

Data type:

complex type, XML-Element, sequence

Supported:

optional

Compatibility:

Ambrosia

Data type:

string, XML-Attribut, unique

Supported:

optional

Compatibility:

Ambrosia

Data type:

string, XML-Element, sequence

Supported:

optional

Compatibility:

Ambrosia

Data type:

string, XML-Attribut

Supported:

mandatory

Compatibility:

Ambrosia

Data type:

string, XML-Attribut

Supported:

mandatory

Compatibility:

Ambrosia

Data type:

string, XML-Attribut

Supported:

mandatory

Compatibility:

Ambrosia

Data type:

complex type, XML-Element, sequence

Supported:

optional

Compatibility:

Ambrosia

Data type:

string, XML-Attribut, unique

Supported:

optional

Compatibility:

Ambrosia

Data type:

string, XML-Attribut, unique

Supported:

optional

Compatibility:

Data type:

string, XML-Attribut, unique

Supported:

optional

Compatibility:

Data type:

string, XML-Attribut, unique

Supported:

optional

Compatibility:

Ambrosia

Data type:

string, XML-Element, sequence

Supported:

optional

Compatibility:

Ambrosia

Ä (0xC384)

ä (0xC3A4)

À (0xC380)

à (0xC3A0)

Á (0xC381)

á (0xC3A1)

 (0xC382)

â (0xC3A2)

à (0xC383)

ã (0xC3A3)

È (0xC388)

è (0xC3A8)

É (0xC389)

é (0xC3A9)

Ê (0xC38A)

ê (0xC3AA)

Ë (0xC38B)

ë (0xC3AB)

Ì (0xC38C)

ì (0xC3AC)

Í (0xC38D)

í (0xC3AD)

Î (0xC38E)

î (0xC3AE)

Ï (0xC38F)

ï (0xC3AF)

Ö (0xC396)

ö (0xC3B6)

Ò (0xC392)

ò (0xC3B2)

Ó (0xC393)

ó (0xC3B3)

Ô (0xC394)

ô (0xC3B4)

Õ (0xC395)

õ (0xC3B5)

Ü (0xC39C)

ü (0xC3BC)

Ù (0xC399)

ù (0xC3B9)

Ú (0xC39A)

ú (0xC3BA)

Û (0xC39B)

û (0xC3BB)

ß (0xC39F)

Æ (0xC386)

æ (0xC3A6)

Ç (0xC387)

ç (0xC3A7)

Ñ (0xC391)

ñ (0xC3B1)

° (0xC2B0)

© (0xC2A9)

¼ (0xC2BC)

½ (0xC2BD)

¾ (0xC2BE)

ø (0xC3B8)

3

2

1

0

Bit

1

0

9

8

7

6

5

4

3

2

1

0

9

8

7

6

5

4

3

2

1

0

9

8

7

6

5

4

3

2

1

0

-

year - 1980
(11 bits)

month
(4 bits)

days
(5 bits)

hours
(5 bits)

minutes
(6 bits)

12:09, 16-09-2006

0

0

0

0

0

0

0

1

1

0

1

0

1

0

0

1

1

0

0

0

0

0

1

1

0

0

0

0

1

0

0

1

= 27886345

3

2

1

0

Bit

1

0

9

8

7

6

5

4

3

2

1

0

9

8

7

6

5

4

3

2

1

0

9

8

7

6

5

4

3

2

1

0

creator ID
(12 bits)

serial ID
(20 bits)

creator id 70, serial 783150

0

0

0

0

0

1

0

0

0

1

1

0

1

0

1

1

1

1

1

1

0

0

1

1

0

0

1

0

1

1

1

0

= 74183470

W

B

R

U

H

I

N

ordinal value

87

66

82

85

72

73

78

position

1

2

3

4

5

6

7

87

132

246

340

360

438

546

= 2149

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

END

Attribute VB_Name = "ClFingerprint"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

Option Explicit

Private Type TBinFingerprint ' binary type (db storage only)

FP1 As Long

FP2 As Long

End Type

Private Type TFingerprint ' decoded type (analyseable version)

Datum As Date

CreatorID As Long

Counter As Long

End Type

Dim IsInitialised As Boolean

Dim fp As TFingerprint, fpbin As TBinFingerprint

Dim UserNameString As String

Sub UpdateFingerprint(Optional ByVal Userid As String = "", Optional ByVal Datum As Date = 0)

DoInitialize

If Datum = 0 Then Datum = Now

fp.Datum = Datum

If Len(Userid) > 0 Then fp.CreatorID = GetFingerprintAktCreator(Userid)

Convert2Bin

End Sub

Property Let FP1(ByVal FP1 As Long)

IsInitialised = True

fpbin.FP1 = FP1

Convert2Data

End Property

Property Let FP2(ByVal FP2 As Long)

IsInitialised = True

fpbin.FP2 = FP2

Convert2Data

End Property

Property Get FP1() As Long

DoInitialize

FP1 = fpbin.FP1

End Property

Property Get FP2() As Long

DoInitialize

FP2 = fpbin.FP2

End Property

Property Let CreatorID(ByVal ID As Long)

IsInitialised = True

fp.CreatorID = ID

Convert2Bin

End Property

Property Get CreatorID() As Long

DoInitialize

CreatorID = fp.CreatorID

End Property

Property Let Datum(ByVal d As Date)

IsInitialised = True

fp.Datum = d

Convert2Bin

End Property

Property Get Datum() As Date

DoInitialize

Datum = fp.Datum

End Property

Property Let Serial(ByVal Serial As Long)

IsInitialised = True

fp.Counter = Serial

Convert2Bin

End Property

Property Get Serial() As Long

DoInitialize

Serial = fp.Counter

End Property

Sub Update()

If Not IsInitialised Or fp.CreatorID = 0 Or fp.Counter = 0 Then

IsInitialised = False

DoInitialize

End If

IsInitialised = True

fp.Datum = Now

Convert2Bin

End Sub

Sub Convert2Data()

Dim Y As Long, d As Long, m As Long, H As Long, mi As Long

With fpbin

Y = 1980 + ((.FP1 And &HFFF00000) / (2 ^ 20))

m = ((.FP1 And &HF0000) / (2 ^ 16))

d = ((CLng(.FP1) And &HF800&) / (2 ^ 11))

H = ((.FP1 / (2 ^ 6)) And &H1F)

mi = (.FP1 And &H3F)

fp.Datum = DateSerial(Y, m, d) + TimeSerial(H, mi, 0)

fp.CreatorID = (Abs(.FP2) \ (2& ^ 20)) And &H7FF

If .FP2 < 0 Then fp.CreatorID = fp.CreatorID + 2048

fp.Counter = (Abs(.FP2) And &HFFFFF)

'Debug.Print "FP de:"; FP.Datum, FP.CreatorID, FP.Counter, "("; .FP1; .fp2; ")"

End With

If fpbin.FP1 = 0 And fpbin.FP2 = 0 Then IsInitialised = False

End Sub

Sub Convert2Bin()

Dim Y As Long

With fp

Y = Year(.Datum) - 1980

fpbin.FP1 = (Y * (2& ^ 20)) + _

(Month(.Datum) * (2 ^ 16)) + _

(Day(.Datum) * (2 ^ 11)) + _

(Hour(.Datum) * (2 ^ 6)) + _

Minute(.Datum)

fpbin.FP2 = ((.CreatorID And &H7FF) * (2& ^ 20)) + _

(.Counter And &HFFFFF)

If .CreatorID > 2047 Then fpbin.FP2 = -fpbin.FP2

' Debug.Print "FP en:"; FP.Datum, FP.CreatorID, FP.Counter, "("; FPBin.FP1; FPBin.fp2; ")"

End With

End Sub

Function CompareFingerprint(ByVal FPBIN1 As Long, ByVal FPBIN2 As Long) As Long

' Ergebnis:

' 0 = Identisch

'-1 = FP1 älter wie FP2

'+1 = FP2 jünger wie FP2

'-2 = unterschiedliche Objekte, aber Objekt 1 ist älter wie Objekt 2

'+2 = unterschiedliche Objekte, aber Objekt 1 ist jünger wie Objekt 2

Dim ObjectID As Long

Dim FPB2 As TBinFingerprint

Dim a As String, i As Long

FPB2.FP1 = FPBIN1

FPB2.FP2 = FPBIN2

' Gleichheit schneller auf binärer Ebene klären ...

If fpbin.FP1 = FPB2.FP1 And fpbin.FP2 = FPB2.FP2 Then

CompareFingerprint = 0

Else

ObjectID = 1

If fpbin.FP2 <> FPB2.FP2 Then

ObjectID = 2 ' es liegen verschiedene Objekte vor !

End If

i = Sgn(fpbin.FP1 - FPB2.FP1) * ObjectID

If fpbin.FP1 = 0 And FPB2.FP2 <> 0 Then i = 1 * ObjectID

If FPB2.FP1 = 0 And fpbin.FP1 <> 0 Then i = -1 * ObjectID

CompareFingerprint = i

End If

End Function

Property Get FingerprintInfoTextCRLF() As String

FingerprintInfoTextCRLF = GetFingerprintInfoText(True)

End Property

Property Get FingerprintInfoText() As String

FingerprintInfoText = GetFingerprintInfoText(False)

End Property

Private Function GetFingerprintInfoText(ByVal IncludeCRLF As Boolean) As String

Dim a As String, crlf As String

crlf = Switch(IncludeCRLF, vbCrLf, True, " ")

If fp.CreatorID = 0 And fp.Counter = 0 Then

a = ResolveResString(609)

Else

a = Switch(IncludeCRLF, ResolveResString(610) & crlf & ResolveResString(611), True, ResolveResString(612)) & _

fp.Datum & ResolveResString(613) & Format$(fp.Counter, "000,000") & ")." & crlf & _

ResolveResString(614)

If fp.CreatorID <> GetFingerprintAktCreator Then a = a & ResolveResString(615)

a = a & ResolveResString(616)

End If

GetFingerprintInfoText = a

End Function

Private Sub Class_Initialize()

IsInitialised = False

End Sub

Private Sub DoInitialize()

If Not IsInitialised Then

IsInitialised = True

With fp

.Datum = Now

If EditLastFPCounter = 0 Then

Randomize CLng(CDbl(Now - CLng(Now)) * 10000&)

EditLastFPCounter = Rnd * &HFFFFF

End If

EditLastFPCounter = ((EditLastFPCounter + 1) And &HFFFFF)

.Counter = EditLastFPCounter

.CreatorID = GetFingerprintAktCreator And &H7FF

End With

Convert2Bin

End If

End Sub

Sub Initialize()

IsInitialised = False

DoInitialize

End Sub

Function GetWinuserid() As String

Dim i As Long

If Len(UserNameString) = 0 Then

UserNameString = Space$(64)

If GetUserName(UserNameString, 63) Then

i = InStr(UserNameString, Chr$(0))

If i > 0 Then UserNameString = Left$(UserNameString, i - 1)

End If

UserNameString = UCase$(UserNameString)

End If

GetWinuserid = UserNameString

End Function

Public Function GetFingerprintAktCreator(Optional ByVal UserIDX As String = "", Optional ByVal OldModeUser As Boolean = False) As Long

Static LastUI As Long

Dim Userid As String

Dim i As Long, tempui As Long

If Len(UserIDX) Then

UserIDX = UCase$(UserIDX)

tempui = 0

For i = 1 To Len(UserIDX)

tempui = tempui + (Asc(Mid$(UserIDX, i, 1)) * i)

Next i

If Not OldModeUser Then tempui = tempui And &HFFF

ElseIf LastUI = 0 Then

Userid = GetWinuserid()

LastUI = 0

For i = 1 To Len(Userid)

LastUI = LastUI + (Asc(Mid$(Userid, i, 1)) * i)

Next i

If Not OldModeUser Then LastUI = LastUI And &HFFF

tempui = LastUI

Else

tempui = LastUI

End If

GetFingerprintAktCreator = tempui

End Function

Property Get Winuserid() As String

Winuserid = GetWinuserid()

End Property

Function InfotextAndSource(ByVal Source As Long, ByVal IDate As Date) As String

Dim a As String

Dim Erg As String

Erg = ""

If fpbin.FP2 = 0 Then

'

Else

Erg = Me.FingerprintInfoText()

End If

a = ""

If Source = 0 Then

a = ResolveResString(710)

ElseIf Source = 1 Then

a = ResolveResString(711)

Else

Select Case Source

'2=MM Text-Import, 3=MM Base-Import, 4=MasterCook, 5=..., 6=CookML

Case 2: a = ResolveResString(712)

Case 3: a = ResolveResString(713)

Case 4: a = ResolveResString(714)

Case 5: a = ResolveResString(715)

Case 6: a = ResolveResString(730)

End Select

a = ResolveResString(716) & IDate & ResolveResString(717) & a & ResolveResString(718)

End If

If Len(a) Then Erg = Erg & vbCrLf & a

InfotextAndSource = Erg

End Function

import wx

import datetime

import math

import random

def GenerateRID():

# first part, the date

rdate = datetime.datetime.now()

print 'input date: %s' % rdate

datebin = int(((rdate.year - 1980) * math.pow(2, 20)) + \

(rdate.month * math.pow(2, 16)) + \

(rdate.day * math.pow(2, 11)) + \

(rdate.hour * math.pow(2, 6)) + \

rdate.minute)

# second part, creator id and serial id

uid = wx.GetUserId()

## uid = 'letstrywithareallylongone' # test for a longer id

uid = 'wbruhin'

print 'input user id: %s' %uid

# creator id calculation

uidBin = int(0)

for x in range(len(uid)):

cval = ord(uid[x].upper()) * (x+1)

## print 'char calc: %s, ord: %s, value: %s' % (uid[x].upper(), ord(uid[x].upper()), cval)

uidBin += cval

print 'creator id before cut off: %s' % uidBin

uidBin = uidBin & 0xff

print 'creator id: %s' % uidBin

# serial id

serial = random.randint(0, 999999)

print 'serial id: %s' % serial

part2 = int(((uidBin & 0x7ff) * math.pow(2, 20)) + (serial & 0xfffff))

if uidBin > 2047:

part2 = - part2

return '%s, %s' % (datebin, part2)

def DecodeRID(rid):

p1, p2 = rid.split(',')

datebin = int(p1)

part2 = int(p2)

# decode the date part

y = int(1980 + ((datebin & 0xfff00000) / math.pow(2, 20)))

m = int(((datebin & 0xf0000) / math.pow(2, 16)))

d = int(((datebin & 0xf800) / math.pow(2, 11)))

h = int((datebin / math.pow(2, 6))) & 0x1f

min = int(datebin) & 0x3f

rdate = datetime.datetime(y, m, d, h, min)

# decode part 2

if part2 < 0:

uid = int((part2) / math.pow(2, 20)) & 0x7ff

uid += 2048

serial = int(-part2) & 0xfffff

else:

uid = int((part2) / math.pow(2, 20)) & 0x7ff

serial = int(part2) & 0xfffff

return (rdate, uid, serial)

# get a rid

rid = GenerateRID()

print 'generated rid: %s' % rid

print '--------------'

# decode the rid

rdate, uid, serial = DecodeRID(rid)

print 'decoded date: %s' % rdate

print 'decoded uid: %s' % uid

print 'decoded serial: %s' % serial

fl fluid ounce

~ 30 ml

x per serving 

pro Portion

c cup 

= 250 ml

sm small 

klein

pt pint 

1/2 Liter

md medium 

mittel

qt quart 

1 Liter

lg large

gross

ga gallon 

4 Liter

cn can 

Dose

oz ounce 

~ 30 g

pk package 

Packung

lb pound 

~ 450 g

pn pinch 

Prise, Msp.

ml milliliter 

ccm

cb cubic cm 

ccm

dr drop 

Tropfen

ds dash

Schuss, Spur

cl centiliter 

10 ccm

ct carton 

Karton

dc deciliter 

100 ccm = 0,1 Liter

bn bunch

Bund 

l liter 

Liter

sl slice

Scheibe

mg milligram 

Milligramm

ea each 

pro Portion

cg centigram 

1/100 Gramm

t teaspoon

Teeloeffel 

dg decigram 

1/10 Gramm

ts teaspoon

Teeloeffel 

g gram 

Gramm

T tablespoon

Essloeffel 

tb tablespoon

Essloeffel 

kg kilogram 

Kilogramm