powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Отчет, помогите сделать - HELP!!!
6 сообщений из 6, страница 1 из 1
Отчет, помогите сделать - HELP!!!
    #33765482
escap3r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть база данных на Accesse 97, в ней есть запрос, результатом которого полчается следующее:
Reg_Num date_deliv sum_all n_factura n_account
6554 25-апр-06 13 355.00р. 23 2
6555 25-апр-06 13 398.00р. 24 4
6556 26-апр-06 6 155.00р. 25 6
6557 26-апр-06 235.00р. 0 7
Надо напечатать счет-фактуру, причем чтобы отбор шел по полю Reg_Num
...
Рейтинг: 0 / 0
Отчет, помогите сделать - HELP!!!
    #33765487
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это вопрос Fox-прошникам или Access-ам ?
...
Рейтинг: 0 / 0
Отчет, помогите сделать - HELP!!!
    #33765600
escap3r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Отчет надо сделать из Fox-а
...
Рейтинг: 0 / 0
Отчет, помогите сделать - HELP!!!
    #33765628
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Из VFP законнектиться к БД Access-а.
2. Произвети запрос из VFP с аналогичным запросом как в Access-е. И получить курсор.
3. Отконнектиться от БД Access-а.
4. На основании курсора (плюс наверное доп. информация для составления счет-фактуры) составить REPORT.
...
Рейтинг: 0 / 0
Отчет, помогите сделать - HELP!!!
    #33765685
escap3r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а поподробее процесс можно описать.. или скинте ссылку с примером..
...
Рейтинг: 0 / 0
Отчет, помогите сделать - HELP!!!
    #33766152
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
m.mdb_file = "<Имя файла.MDB>"  && Если он не в текущем каталоге, то с полным путем
lc_DSN = "Driver={Microsoft Access Driver (*.mdb)};Dbq="+m.mdb_file+";Uid=Admin;Pwd=;"
gncn_mdb = SQLSTRINGCONNECT(m.lc_DSN)
IF gncn_mdb >  0 
  * "SELECT * FROM ..." - надо взять из запроса в базе *.MDB
  m.str_sql = "SELECT * FROM ..."
  m.n_sqlexec = SQLEXEC(gncn_mdb, m.str_sql, "QmySelect")
  IF m.n_sqlexec <=  0 
    = MESSAGEBOX("SELECT ... что-то неотработал. Что маловероятно. Но причину надо искать!",;
                  64 ,"Внимание!")
    = SQLDISCONNECT(gncn_mdb)
    CANCEL
  ENDIF
  * Получили в рабочей области QmySelect
  * На основании его строишь REPORT и выдаешь отчет
  ...
  = SQLDISCONNECT(gncn_mdb)
ELSE	&& gncn_mdb <  0 
  = MESSAGEBOX("Нет CONNECT c файлом: "+m.mdb_file, 64 ,"Внимание!!!")
ENDIF
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Отчет, помогите сделать - HELP!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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