Как отписались из Датакрата, оказываться в файле выгрузки касса передпет 1 лишнее поле, которое отсутствует в документации к штриху. Исправлять отказываются. Значит ис списка поддерживаемых С-маркетом касс вычеркиваем Штрих Мини-POS на Windows CE
А для тех, кто уже приобрел себе С-маркет я написал такой вот скрипт:
set wshshell = CreateObject("WScript.Shell")
set FSO=CreateObject("Scripting.FileSystemObject")
path = WshShell.CurrentDirectory+"\"
DocINN=path + "cash001.rep" ' Путь к фалу из кассы (можно указать сетевой DocINN="\\192.168.1.23\obmen\")
NewFN=path + "cash.rep" ' Для ускорения работу копируем файл и переименовываем его
if (fso.FileExists(DocINN)) Then
if (fso.FileExists(NewFN)) Then
FSO.DeleteFile NewFN
End if
FSO.CopyFile DocINN, NewFN
End If
Set FileIn = FSO.OpenTextFile(Path+"cash.rep", 1)
FileOUT=Path+"CASH\cash001.rep" ' Путь к файлу FileOUT указываем в настройках С-маркета.
if FSO.FileExists (FileOUT) then FSO.deleteFile FileOUT
FSO.CreateTextFile(FileOUT)
Set FOUT = FSO.OpenTextFile(FileOUT, 8)
one=FileIn.ReadLine
two=FileIn.ReadLine
thre=FileIn.ReadLine
FOUT.writeline one
FOUT.writeline two
FOUT.writeline thre ' Первые три строки не интересны
Do Until FileIn.AtEndOfStream
Str=FileIn.ReadLine
strArr=Split(str,";",-1,1) ' Разделяем сроку на массив
ResultString=StrArr(0)+";"+StrArr(1)+";"+StrArr(2)+";"+StrArr(3)+";"+StrArr(4)+";"+StrArr(5)+";"+StrArr(6)+";"+StrArr(7)+";"+StrArr(8)+";"+StrArr(9)+";"+StrArr(10)+";"+StrArr(11) ' Собираем заного в нужном порядке
FOUT.writeline ResultString
loop
Сохраняем скрипт в файл с расширением vbs и запускаем каждый раз перед тем как закрыть кассы.