ФОРУМ "Предприниматель 4"

Скажите, пожалуйста, есть в программе функция "архивация базы данных", по сути архивация оставляет партнеров, названия товаров, и остатки по складу, все накладные удаляются. Вопрос вот в чем: у нас есть база партнеров и программа лояльности, т.е. при покупке на такую-то сумму партнер получает такую-то скидку. После архивации все суммы теряются. Как можно оставить суммы накопленные партнером оставить в новой базе после архивации? Возможно эту цифру заносить в базе данных в отдельное поле и там сохранять при изменении суммы?

Roman писал(а): Возможно эту цифру заносить в базе данных в отдельное поле и там сохранять при изменении суммы?

Я думал об этом, но этот путь очень ненадежен - при любом редактировании данных нужно пересматривать зафиксированную сумму. А все ситуации не предусмотришь. Например, ошибочно оформили продажу на покупателя А, потом исправили на покупателя Б и еще добавили пару позиций - нужно у первого покупателя вычесть старую сумму, второму добавить новую сумму. Никогда не было бы уверенности, что накопленная сумма верна.
Идеального решения пока нет, можно перед архивацией у каждого покупателя внести накопленную сумму в графу "Примечание".

Я думал об этом, но этот путь очень ненадежен - при любом редактировании данных нужно пересматривать зафиксированную сумму. А все ситуации не предусмотришь. Например, ошибочно оформили продажу на покупателя А, потом исправили на покупателя Б и еще добавили пару позиций - нужно у первого покупателя вычесть старую сумму, второму добавить новую сумму. Никогда не было бы уверенности, что накопленная сумма верна.
Идеального решения пока нет, можно перед архивацией у каждого покупателя внести накопленную сумму в графу "Примечание".

думал так и поступить, но покупателей в районе 10 тысяч...
а что если сделать кнопку - присвоить накопленную сумму в графу примечание? т.е. по необходимости, я перед архивацией базы жму один раз кнопку, программа все цифры заносит в графу примечание и будет нам счастье, если нужно повторно архивировать, то при нажатии кнопки значение в графе примечание не заменяется, а, допустим, через запятую добавляется, как такой вариант?

Пожалуйста!
Скопировать текст ниже,
В программе - клавиши Ctrl+F10,
Вставить текст, нажать "ОК".

Dim Rperson As Predpr.TableSQL, R As Predpr.TableSQL, SQLtxt As String, StrM As String, StrVal As String
Rperson = DB.OpenRecordset("SELECT ID, Memo FROM Persons WHERE ID>0 AND TypeID=1", , True, "Persons")
SQLtxt = "SELECT DocumentRows.PersonID, Sum(DocumentRows.Quantity*DocumentRows.PriceReport) AS SumDb "
SQLtxt = SQLtxt & "FROM Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID "
SQLtxt = SQLtxt & "WHERE Documents.State=True and DocumentRows.AccountType=0 and Documents.TypeID In (2,9) and DocumentRows.TransNum=1 "
SQLtxt = SQLtxt & "GROUP BY DocumentRows.PersonID"
R = DB.OpenRecordset(SQLtxt)
Do While Not Rperson.EOF
R.FindFirst("PersonID=" & Rperson("ID"))
If R.NoMatch = False Then
If R("SumDb") > 0 Then
StrM = Predpr.GlobalFunction.Nz(Rperson("Memo"), "")
StrVal = CDec(R("SumDb")).ToString("N")
StrVal = "(" & StrVal & " грн)"
Rperson.Edit()
If StrM = "" Then
Rperson("Memo") = StrVal
Else
Rperson("Memo") = StrM & " " & StrVal
End If
Rperson.Update()
End If
End If
Rperson.MoveNext()
Loop
Rperson.Close()
R.Close()

Спасибо за ответ!
но при выполнении выдало ошибку, как быть?

Значит вы используете SQL-версию.
Немного изменил текст в предыдущем ответе, скопируйте его заново.

Спасибо!!! получилось!
скажите, если еще раз выполнить команду, то при изменении сумм покупок они перезапишутся в примечании?

получится так (1 000,00 грн) (1 050,00 грн) т.е будет добавлена следующая запись выполнения команды, сумма покупок изменилась на 50 грн.

Тоже собралось много данных. Сообщите подробнее принцип действия "архивация базы данных". Что конкретно и с какими документами проходит?

Сервис/Обслуживание/Архивация_данных.
Все до 1 января будет перенесено в отдельный файл, который можно открыть в любое время. В рабочей базе появятся входящие остатки на 1 января.

Отличная тема!
Нет ли такого волшебного кода, чтобы сделать:
1. Есть база клиентов в Excele

2. Я эту базу импортирую в Предприниматель - имя, телефон, ДР
3. Об этом пункте речь. Продать всем этим клиентам каждому по отдельности "товар", который для каждого будет стоить столько, сколько в Excele накопленная сумма. Затем создать приходы денег в кассу. И все эти накладные пусть будут зафиксированы 16февраля2015 для всех.
Объект учета "Товар" в нужном количестве у меня есть, я заранее на приход поставлю его 5 штук, хотя клиентов 3-е.

Как результат, 16 февраля 2015 года у нас появится 3 расходных накладных, 3 приходных в кассу. А в свойствах клиентов Пети, Сени и Васи появятся накопленные суммы.

Разуемеется, что у меня большая база клиентов. Я создал новую базу, клиентов перенес, а вот суммы их прежних накоплений - это брешь для продавцов. Хотят - посчитают, хотят - не посчитают. Хочу жестко эти суммы в программе провести.
Задача тяжелая, но многим спасет расстройство мозга:)
Спасибо!

Можно немного упростить.
В фиктивной накладной не заполнять товар, важна только сумма.



Чтобы она не влияла ни на долг покупателя, ни на прибыль, перейти в документе в раздел "Реальный учет" и снять все отметки.
Тогда и документ об оплате создавать не нужно.

Спасибо.
Но накладные делать вручную нужно. С тремя клиентами проблем нет, это не сложно.
Но мне нужно несколько тысяч провести:)
Я очень успешно пользуюсь программой в рознице.
Поэтому я и задал вопрос, возможно ли написать такой код, чтобы через ctrl+F10 произошло автоматическое создание 6000тыс накладных с суммой, которая будет подтягиваться с Excel?

UPD: Повторюсь в базе эти клиенты уже есть с днями рождениями, адресами, телефонами, примечаниями. Они же (клиенты) перед созданием новой базы были экспортированы в Excel с суммами своих накоплений.
В новую базу я их вернул (клиентов), их дни рождений, телефоны, примечания. Осталось создать 6000тыс фиктивных накладных (дата пусть у всех будет одна) с суммой для каждого, которая будет тянуться с Excel.

Спасибо!

Можно. Но создавать для этого специальную процедуру импорта из Excel (с кнопками, полями для указания строк/столбцов и т.д.) - это несоразмерный труд. Поэтому: если в свойствах клиентов у вас не используется графа ИНН или Примечание, пусть суммы попадут в нее, а программа получит их из базы данных.

Если это подходит, можете снова вернуться к импорту из Excel, ничего лишнего не указывать - только название и ИНН или Примечание (на самом деле будет сумма). Программа найдет каждого по названию и проставит суммы.
И поскольку этот частный случай наверное не интересен всем участникам форума, а уточнять детали еще придется, напишите на predpr4@email.com.ua какую графу вы решили использовать, как называется группа контрагентов, в которой находятся покупатели (чтобы не обрабатывать поставщиков и прочих).
А еще лучше - пришлите по почте базу данных, чтобы я сначала проверил, насколько корректно это будет работать.

Спасибо, Дмитрий. Сейчас сделаю импорт в графу ИНН. И отправлю базу Вам на почту.