Код: Выделить всё
Из файла в MySQL создали очередь
QueOstatWares QUEUE,PRE(QUE) !
Nid LONG !
N_ID_Items SHORT !порядковый номер реализатора
NWARES SHORT !инд номер товара
Ostatok LONG !остаток по релизатору
END !
====Аналог вышеуказаного файла в TPS только без поля пользов. который берется с № компьютера при подключении к базе ====
WARES FILE,DRIVER('TOPSPEED'),NAME('wares.TPS')
WAR:NWARESKEY KEY(+WAR:NWARES),NOCASE,OPT,PRIMARY
RECORD RECORD
WAR:NWARES SHORT
WAR:OSTAT LONG
END
END
Вот вырисовалось
Код: Выделить всё
SET(WAR:NWARESKEY)
LOOP
NEXT(WARES)
IF ERRORCODE() THEN BREAK END
QUE:NWARES = WAR:NWARES
GET(QueOstatWares,QUE:NWARES)
IF ERRORCODE()
SQLOstatkiAll:N_ID_Items = SETUP:N_OutItems ! № компа
SQLOstatkiAll:NWARES = WAR:NWARES
SQLOstatkiAll:Ostatok = WAR:EditOstat
IF MAVInsert(SQLOstatkiAll) ! insert
MAVSHOWERROR
!RETURN
END
ELSE
SQLOstatkiAll:Nid = QUE:Nid
SQLOstatkiAll:N_ID_Items = SETUP:N_OutItems ! № компа
SQLOstatkiAll:NWARES = WAR:NWARES
SQLOstatkiAll:Ostatok = WAR:EditOstat
IF MAVUpdate(SQLOstatkiAll) ! change
MAVSHOWERROR
!RETURN
END
END
END
Принцип работы, пользователь при подключении к серверу (не постоянное соединение), происходит сравнение записей остатков находящихся на компьютере с остатком на сервере и изменение при необходимости.
Буду рад любой критике, так как дилетант в данном вопросе.
MySQL Clarion 6.3 9058 ABC