forum.clarionlife.net

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

Из файла в 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