Advance NDC Data

[emrouz]

Я ищу некоторую информацию о файлах, в этой папке:
C: \ Program Files \ NCR APTRA \ Предварительный НДЦ \ Data
Можно ли дать мне информацию. специально этот файл: CuSTOM.DAT

[kentaur]

custom.dat = выполнено скачать с принимающей [Screen / FIT / ГОСУДАРСТВЕННЫЙ]
pmdata = обналичить счетчики (вместе с NVRAM), а также проводит руководитель конфигурации
emvdata.dat = EMV скачивать файлы (с NVRAM также)


см. AANDC Руководство разработчика


custom.dat = holds download from host [Screen/FIT/STATE]
pmdata = cash out counters (together with NVRAM), also holds Supervisor configuration
emvdata.dat = emv download files (with NVRAM also)


see AANDC developer guide

CUSTOM.DAT.JPG

[emrouz]

спасибо.
Как я могу открыть и прочитать счетчиков хранятся в pmdata?

[kentaur]

что это не так просто .. но у меня есть инструмент для этого
он сохраняет счетчики из pmdata в D: \ Jurnal.
он должен быть запущен только в банкоматах, он открывает сессию с диспенсером.
PS: VBE в зашифрованном виде.

[mss230479]

Пожалуйста, помогите мне читать счетчиков из файла PMDATA

Mss230479

[kentaur]

voila:

Код: Выделить всё

'Store values
idNotesDisp = 5012 
idNotesInCass = 5010
idNotesRej = 5016
idNotesTotal = 5026
 
dim myCDI
Set myCDI=CreateObject("COMCDI.COMCDIData")
dim Cntr
dim CntrBup
dim idx
dim CassInfo
dim Count
dim Total
 
'retrieve values previously saved
'Code here assumes a flat text file counts.txt in the same directory as the script with each line containing '15 characters: each block of 5 being a count padded to 5 digits with 0s
'Counters in order DISPENSED, CASSETTE, REJECTED
'Assumes basic use of cassette types 1 through 4 and single dispenser
' lines are cassette types 1 through 4 respectively and must exist
'e.g.
'000000000000000 - no counts for type 1
'005570034500098 - type 2 557 notes dispensed, 345 notes remaining in cassette(s), 98 notes purged
'006000030000100- type 2 600 notes dispensed, 300 notes remaining in cassette(s), 100 notes purged
'000000000000000 - no counts for type 2
 
'this code could be changed to retrieve values in any appropriate manner.
 
 
for idx=0 to 3

MsgBox("Type "&idx+1 &" dispensed notes is :"&Right("00000"&myCDI.ComIntegerArray(idNotesDisp, idx),5)&Chr(10)&"Type "&idx+1 &" remaining notes is :"&Right("00000"&myCDI.ComIntegerArray(idNotesInCass, idx),5)&Chr(10)&"Type "&idx+1 &" rejected notes is :" &Right("00000"&myCDI.ComIntegerArray(idNotesRej, idx),5)&Chr(10)&"Type "&idx+1 &" total notes is :" &Right("00000"&myCDI.ComIntegerArray(idNotesTotal, idx),5))

next

'Tidy UP
Set myCDI = Nothing
Set objfile = Nothing
Set fso = Nothing

[freeware]

WOW. This was just what i was looking for.
Does anyone know or have any documentation about COMCDI.COMCDIData more variables?
What i mean is, can we extract the modules status errors? Or, can we have a new variable, like Machine number? something like
"dim atmluno" ?
Regards.

[freeware]

Ok, found it myself:

Код: Выделить всё

'Store Values
Luno = 4007
MachineNo = 4008

'Get the values into the file
objTextFile.WriteLine("Luno: " & myCDI.ComString(Luno) & " | MachineNo: " & myCDI.ComInteger(MachineNo) & "")

Hope this helps someone.
Also, if anyone has more Store Values, please add them here.