powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проверка факта записи
11 сообщений из 11, страница 1 из 1
Проверка факта записи
    #35229112
stoopper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Туплю...

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

Да нет, в 99% все нормально. Алгоритм очень простой - несколько строк, так что с селектами все в порядке.
...
Рейтинг: 0 / 0
Проверка факта записи
    #35229192
gotko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
если нет сообщения об ошибке - значит append делается - вопрос куда?
я так понимаю за аппендом идут replace на поля
может использовать insert into ?
или код - в студию ...
...
Рейтинг: 0 / 0
Проверка факта записи
    #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
Проверка факта записи
    #35229351
gotko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
такое впечатление, что k в единицу у тебя не встает и блок с аппенд вообще не выполняется
попробуй вести лог в другой таблице, куда пиши срабатывания при к=1 и потом анализируй...
...
Рейтинг: 0 / 0
Проверка факта записи
    #35229371
stoopper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ок, попробую.
...
Рейтинг: 0 / 0
Проверка факта записи
    #35229493
gotko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
еще насчет сканера - по опыту - если в сканере не стоит контроль целостности то он может выдать короткую строку вместо полного штрих-кода
в первом условии у тебя, где присваиваешь к =1 это может пройти, а во втором блоке
может -нет
используй в сравнеии вместо = знак == это помогает при таких случаях...
завист от установки set exact on/off
...
Рейтинг: 0 / 0
Проверка факта записи
    #35229538
stoopper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!
...
Рейтинг: 0 / 0
Проверка факта записи
    #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
Проверка факта записи
    #35230322
stoopper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробую, спасибо!
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проверка факта записи
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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