Форум

Язык харбор - родной язык для БЭСТа. (скрипт Клиппера)
ы программирования - на форуме по программированию обсуждаем.
Пошагово задача работает примерно так:
открывается чек
по строкам документа пробегает задача и формирует строку чека.
Потом в конце чек закрывает.

Есть еще кусочек проверки на то, что касса присутствует.
Это TRY CATCH комбинация

Не думаю что это связано с клиппером в данном случае.
Если интересно кусок кода могу у себя на форуме положить а вы в нем
посмотрите почему...

Коллеги !Сегодня начну выкладывать 3 часть. Интерфейс ввода.
Причем отделяю его от корректировки.
Поскольку сам путаюсь, буду выкладывать частями, просьба дождаться
сообщения об окончании материала (не торопиться с дискуссией тем,
у кого не получается: все разберем обязательно).

Пожалуйста.
Версия FREE бесплатно
Версия Lite 1000
Версия Full 7500
Переход c DOS на FULL 4250
Флеш-карта в стоимость не входит.
Оформим как вам будет удобно.

А можно все с начала по порядку и детально ?

У нас в гостях Дмитрий Шлыков. Он сказал что средствами фаст-репорта это реализуется через group header. Консультирование по данному у перекладываю на него на форум по программированию отчетов.

У нас сейчас проходит обучение фаст-репорту Дмитрием Шлыковым.
Он готов рассказать как это можно сделать в понедельник на его форуме.
Тему из программирования я переложу туда.

Цитата
Денис пишет: Цитата nordk пишет: о возможностях фаст-репорта никто не спорит они в нем имеются давно. Точнее эти возможности в ФастРепорте появлись в 2004 или 2005 году.

В 2004

Цитата
nordk пишет: Этот вариант неоднократно поднимался но реализован не был. А вы про какой вариант пишете?

Я про молчаливую печать писал

Функция DelPart Вам она недоступна

Вот ее код

STATIC FUNCTION DelPart()
//----------------------------------------------------------------------------//
LOCAL lRet:=.T.
LOCAL aBase := {{"PROVER","PROVER"}}
LOCAL aProver := {}, nPoz, cSeek, cKomment
dbOpenBases(aBase)
If PARTNER->STATUS = " "
BEGIN SEQUENCE

DBEVAL({|| If((nPoz := ASCAN(aProver,{|x| x[1] = UPPER(ALLTRIM(PROVER->PATH_DBF)+ALLTRIM(PROVER->NAME_DBF)) })) = 0,(AADD(aProver,{UPPER(ALLTRIM(PROVER->PATH_DBF)+ALLTRIM(PROVER->NAME_DBF)),{},PROVER->KOMMEN}),nPoz := LEN(aProver)),NIL),AADD(aProver[nPoz,2],PROVER->POL) })
AEVAL(aProver,;
{|x|;
If(;
NetUse("NEW",LoadPath()+x[1]),;
(;
ORDSETFOCUS(0),;
cSeek := "",;
AEVAL(x[2],{|cName| cSeek += ".OR.NEW->"+cName+"='"+PARTNER->CODE+"'" }),;
If(TYPE(RIGHT(cSeek,LEN(cSeek)-4)) = "L",;
(;
__dbLocate(&("{||"+RIGHT(cSeek,LEN(cSeek)-4)+"}")),;
If(FOUND(),(NEW->(dbCloseArea()),cKomment := x[3],BREAK(1)),NIL);
),;
NIL;
),;
NEW->(dbCloseArea());
),;
NIL;
);
})
RECOVER
lRet:=SayError({"Данный код используется в "+ALLTRIM(cKomment)})
END SEQUENCE
EndIf
dbCloseBases(aBase)
RETURN lRet

Денис о возможностях фаст-репорта никто не спорит они в нем имеются давно. о том, что к БЭСТ-4 он прикручен со стороны и насколько это реализуемо при таком варианте эксплуатации.
В Б-5 фаст-репорт интегрирован и там думаю это реализуемо, а вот над БЭСТ-4 пока не могу сказать.

Авторизацию входа настраивать пробовали ?

С другой стороны можно всегда сосчитать сколько документов отмечено и печатать пачками по 100 страниц - что сильно врядли на практике думаю.

Дело в том. Что Светлана хочет иметь печать без открытия на экране документов. В противном случае разумеется придется заранее прогнозировать число страниц.
Например сделать 100 страниц и формировать источник так, что если надо всего страниц пять то все остальные visible:=.F.
Но тогда если отметите 101 документ - извиняйте.

В случае когда бы можно было печатать не отражая на экране внешний вид документа - то тогда пакетную печать можно было бы легко сделать.
Этот вариант неоднократно поднимался но реализован не был.

Светлана пакетная печать через функцию не предусмотрена.

С позволения авторов для чистоты темы я бы почистил сообщения а обнаруженную ошибку исправлю.
Планирую продолжать урок на предмет формы ввода в таблицу.
Неплохо бы теперь определить какие могут быть статусы у доверенностей.
Черновик.Зарегистрирована.Архив - годится ? или какие другие мысли ?

Делали такое со Штрих-ФР, с Меркурием не делали .
2 вида налогооблажения - это две разные ставки НДС ?

Делайте это только данные об остатках передавайте из БЭСТа в таблицы инет-магазина - в БЭСТе кнопицу делайте. И чтение заказов тоже в БЭСТе делайте.

Марина по поводу урока к БЭСТ-4 подумаю, возможно в рамках работы с MySQL в БЭСТ-5 рассмотрим работу и в БЭСТ-4.
Мне за всеми темами сразу не угнаться :)

БЭСТ тут ни при чем. Это изначально возможности харбора и его способность работать с MySQL через порт

Вообще непонятная программа.

Я так понимаю у всех все получилось можно идти дальше

Павел харбор прекрасно умеет писать из БЭСТа прямо в MySQL.
Главное обмен инициировать не в программе интернет-магазина а в БЭСТе.

Если у Вас не отражаются данные таблицы значит Вам надо пройти внимательно пошагово этот урок.
Также в нем пропущено заполнение
DataSource в объекте xbGrid .
Убедитесь что заполнено, как предложено выше

Это уже давно реализовано :)
У меня. И не только загрузчик.
Скорее при случае можно будет такую выгрузку к моему плагину прицепить, чем писать. Об остальном всегда договоримся :)

to zaz_q
С отпуска вернулся в течении недели с переносом проводок помогу.