Форум

Адаптировал плагин для вызова из реестра кассовых документов.
Путь доступа и имя файл остались прежними.

Написал более или менее универсальный плагин для формирования авансовых счетов-фактур по документам банка.
Взять можно на ftp: в папке exchange\behemoth\bank
Называется u2060.ace. Описание внутри.

Цитата
Константин Кузнецов пишет: могу послать проводки для наглядности.

Будьте так добры.
И скажите ещё, какая версия и какой сервиспак у Вас установлены?

Добрый день.

Возможно, что в типовой операции "Основная зарплата" у Вас указана аналитика по табельному номеру для счёта 70.

Спасибо, я в курсе. :-)
Выражение я Вам написл. Работает оно для автонумерации счетов-фактур в учёте продаж. Memdat надо открывать из каталога tovar.

К тому же, в реестре счетов-фактур покупок нет автонумерации.

У них общий memdat. В этом можно убедиться, изучив его содержимое.

Цитата
Светлана Эпштейн пишет: Или как?

Лучше так:

Код
field->tek_nomer:=PADL(SH_FACT->(NWDOC("TEK_NOMER","","NOM_DOC","TAG_NUM","TOV_MEM",.T.)),15)

Здесь "tov_mem" - это алиас, под которым открыт "tovar\memdat"

Добрый день.

Цитата
Светлана Эпштейн пишет: а где можно посмотреть все возможные параметры функции INCStep()?

Возможностей у неё немного. Она формирует уникальный числовой ID. Речь идёт про БЭСТ-4.
Вызывается с параметром являющимся литеральным идентификатором счётчика. Счётчики лежат в ini\ini_cash.dbf Для каждого NNOPER свой счётчик. Для счетов фактур - 'OPERSHFACT', для строк счетов-фактур - "OPERSHSTR", и т.д. Можно по названию догадаться.
Если Вы создаёте новый счётчик, то третьим параметром можете передать его первоначальное значение (по умолчанию, 1).

Цитата
Светлана Эпштейн пишет: когда лучше использовать IncStep? Когда Next()? Когда StepPlus()?

Incstep() используйте для NNOPER в документах, StepPlus() - для NNOPER в проводках.
next() - возвращает следующее значение своего аргумента. Для числа и даты - это n++, для символьных значений результат её работы Вы можете наблюдать при вводе нового документа (например, номер документа).

Цитата
вапфывапмё dgsdfb пишет: В формах вин-печати из документов движения разных армов нет данных контрагента (наименование, адрес итп) для только что (недавно) введенных новых контрагентов (и соотвественно аналитик).

Расскажите, пожалуйста, как у Вас организована аналитика. Обязательно ли использование справочника партнёров, используется ли дополнительная аналитика. Где и как вводятся данные новых партнёров.

Ошибка "Переменная не существует" выдаётся потому, что в вызове "Selection:PasteSpecial (-4122, -4142, .F., .F.)" Harbour видит переменную selection, которой не существует. Так можно делать в VBA, а в Harbour требуется иметь ссылку на каждый объект.

У меня работает такой кусок кода. Без Activate почему-то не вставлялось. Возможно это связано с использованием rows.

Код
oRange:=oWorkSheet:Rows(nCopyLine), ;         oRange:activate(), ;         oRange:Copy(), ;         oRange:=oWorkSheet:Rows(nLine), ;         oRange:activate(), ;         oWorkSheet:Paste(), ;

Хотя, что-то там не так всё просто с копированием-вставкой.
Если получится, то , если нет, будем разбираться.

Добрый день.

Цитата
gabov пишет: Ругается на ошибку в этой строке - "Переменная не существует": Selection:PasteSpecial (Paste:=-4122, Operation:=-4142,_ SkipBlanks:=.F., Transpose:=.F.)

Это нотация VBA. Вам надо написать проще:
Selection:PasteSpecial (-4122, -4142, .F., .F.)

Добрый день.

"Обнаружено повреждение" указывает на то, что Вы производите импорт из файла неверного формата. Посмотрите файлы dbf, которые формирует клиент-банк. Иногда он путает структуру и формирует данные безналичных документов в сруктуре наличных. Посмотрите размер файла-импорта. Иногда клиент-банк не может выгрузить файл и файл получается нулевой длины.
Если это всё в порядке, то вышлите мне на e-mail файлы импорта, я посмотрю.

Цитата
Евгений Гридин пишет: В mlabel в реквизите cena и cena0 у некоторых материалов, по которым есть остатки, стоит 0.

Может быть у Вас учёт партионный по учётным ценам?

А так, ну ноль и ноль. Бывает и такое. :-)

Цитата
Евгений Гридин пишет: Видимо начало периода - это начало учета в программе в 2005 году.

Ну да. На начало расчётного периода в модуле. Никакие иные промежуточные цифры в базе не хранятся.

В koltek, как можно догадаться, хранятся текущие остатки (полученные на основании начального остатка и документов движения).
Вы спрашивали про остатки на начало периода. Эти остатки хранятся в kol0

mkart.dbf, поле kol0

Поцелуйте их от меня.

Цитата
Андрей Зиганьшин пишет: Описание структуры БД: mdoc->pro соответствует Внутреннему номеру группы проводок.

Там строка короткая. Много информации не входит. :-)

Цитата
Андрей Зиганьшин пишет: sh_fact->oper_kred := Null -> это решение проблемы? (ну и строки накладноу)

Да, если Вы хотите отвязать документы от счетов-фактур.

mdoc->pro соответствует sh_fact->oper_kred
mdocm->oper_fact соответствует sh_op->nnoper

Добрый день.

Расскажите, для начала, приходные это у Вас документы или расходные.

Поищите по связи mdocm->oper_fact с sh_op->nnoper.

Цитата
nordk пишет: Виктор а Вы пробовали FileEval('namefl.hrb',[параметры]) ?

Константин, перестаньте морочить человеку голову. Нет у функции fileeval проверки на hrb-код. Только на пользовательскую функцию из bdll (начинается с '@'). Вы можете лично убедиться в этом, если посмотрите код в модуле pll\plugins.prg в строках 151-212.

Запуск fileeval производите так:

Код
fileeval('namefl2.prg',{'1','1','1'})

В теле заглушки надо написать так:

Код
hfileeval('namefl1.hrb',{aPars[1],aPars[2],aPars[3]})

И никаких return nil, если Вы хотите, чтобы значение, возвращаемое hrb, вернулось обратно по цепочке.

Если количество параметров у вас переменное, то в prg можно воспользоваться конструкциями вида:

Код
Private param1, param2, param3 if left(type('apars[1]'),1)<>'U'   param1:=apars[1] endif if left(type('apars[2]'),1)<>'U'   param2:=apars[2] endif if left(type('apars[3]'),1)<>'U'   param3:=apars[3] endif hfileeval('namefl1.hrb',{param1,param2,param3})