Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проверка факта записи / 11 сообщений из 11, страница 1 из 1
02.04.2008, 10:50
    #35229112
stoopper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
Туплю...

Как проверить факт добавления записи по APPEND BLANK?
Странная ситуация иногда - считывется штрих-код, проверяется по справочнику - все в порядке, но запись в другую базу редко, но не проходит. Надо контролировать.
...
Рейтинг: 0 / 0
02.04.2008, 11:04
    #35229164
gotko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
может у тебя append в другую базу делается?
select (куда надо) перед append есть ?
...
Рейтинг: 0 / 0
02.04.2008, 11:08
    #35229177
stoopper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
gotkoможет у тебя append в другую базу делается?
select (куда надо) перед append есть ?

Да нет, в 99% все нормально. Алгоритм очень простой - несколько строк, так что с селектами все в порядке.
...
Рейтинг: 0 / 0
02.04.2008, 11:15
    #35229192
gotko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
если нет сообщения об ошибке - значит append делается - вопрос куда?
я так понимаю за аппендом идут replace на поля
может использовать insert into ?
или код - в студию ...
...
Рейтинг: 0 / 0
02.04.2008, 11:30
    #35229235
stoopper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
SELECT 3
pp="codes.dbf"
USE &pp
qw=UPPER(RTRIM(thisform.text2.Value))
LOCATE FOR UPPER(code)=qw
codd=code
k=0
if found()=.t.
k=1
endif
use



IF k=1

SELECT 3
pp="baza.dbf"
USE &pp
GO top

p=0
LOCATE FOR dat=DATE()
DO WHILE EOF()=.f.
if code=codd .and. DAT=DATE()
p=p+1
ENDIF
SKIP
ENDDO
&& ------------------------ вот это иногда не срабатывает! Очень редко, но бывает!
APPEND BLANK
replace devicetime WITH DATETIME()
replace code WITH codd
replace kol with p
use

endif
...
Рейтинг: 0 / 0
02.04.2008, 12:01
    #35229351
gotko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
такое впечатление, что k в единицу у тебя не встает и блок с аппенд вообще не выполняется
попробуй вести лог в другой таблице, куда пиши срабатывания при к=1 и потом анализируй...
...
Рейтинг: 0 / 0
02.04.2008, 12:10
    #35229371
stoopper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
Ок, попробую.
...
Рейтинг: 0 / 0
02.04.2008, 12:29
    #35229493
gotko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
еще насчет сканера - по опыту - если в сканере не стоит контроль целостности то он может выдать короткую строку вместо полного штрих-кода
в первом условии у тебя, где присваиваешь к =1 это может пройти, а во втором блоке
может -нет
используй в сравнеии вместо = знак == это помогает при таких случаях...
завист от установки set exact on/off
...
Рейтинг: 0 / 0
02.04.2008, 12:38
    #35229538
stoopper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
Спасибо!
...
Рейтинг: 0 / 0
02.04.2008, 15:45
    #35230274
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
USE ("codes.dbf") in 0 alias codes
qw=UPPER(RTRIM(thisform.text2.Value))
LOCATE FOR UPPER(code)==qw in codes
if found()=.t.
USE ("baza.dbf") in 0 alias baza
count to p for code==codd .and. DAT=DATE() in baza
APPEND BLANK in baza
repl devicetime WITH DATETIME(),code WITH codd, kol with p in baza
use in baza
endif
use in codes
...
Рейтинг: 0 / 0
02.04.2008, 15:56
    #35230322
stoopper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка факта записи
Попробую, спасибо!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проверка факта записи / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]