Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Отчет, помогите сделать - HELP!!! / 6 сообщений из 6, страница 1 из 1
01.06.2006, 12:09
    #33765482
escap3r
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет, помогите сделать - HELP!!!
Есть база данных на 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
01.06.2006, 12:11
    #33765487
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет, помогите сделать - HELP!!!
Это вопрос Fox-прошникам или Access-ам ?
...
Рейтинг: 0 / 0
01.06.2006, 12:30
    #33765600
escap3r
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет, помогите сделать - HELP!!!
Отчет надо сделать из Fox-а
...
Рейтинг: 0 / 0
01.06.2006, 12:36
    #33765628
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет, помогите сделать - HELP!!!
1. Из VFP законнектиться к БД Access-а.
2. Произвети запрос из VFP с аналогичным запросом как в Access-е. И получить курсор.
3. Отконнектиться от БД Access-а.
4. На основании курсора (плюс наверное доп. информация для составления счет-фактуры) составить REPORT.
...
Рейтинг: 0 / 0
01.06.2006, 12:48
    #33765685
escap3r
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет, помогите сделать - HELP!!!
а поподробее процесс можно описать.. или скинте ссылку с примером..
...
Рейтинг: 0 / 0
01.06.2006, 14:43
    #33766152
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отчет, помогите сделать - HELP!!!
Примерно так:
Код: 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
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Отчет, помогите сделать - HELP!!! / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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