Анализ неправильно считает

[sealabs]

анализ берет себестоимость в долларе, а сумму дохода и прибыль в гривне, в результате получаем рентабельность 6666%

[dmitry]

Пришлите пожалуйста файл базы данных на pr-4@ukr.net, разберусь и напишу, как исправить.

[sealabs]

запустил пересчет в доллар, там анализ показал вполне адекватные цифры. Вернул назад в гривну. Результат стал еще хуже. Появилось еще больше позиций с еще более космическим процентом. Отправка базы невозможна по причине несогласия владельца базы.

[dmitry]

Наверное в приходных накладных стоит валюта $, но курс в каждом документе =1.
Проверьте выборочно несколько приходных накладных, перейдя в них на вкладку "Настройка".

Безымянный.png (14.98 КБ) Просмотров: 1887

Возможно на одном из компьютеров в сети (где заполняют поступление товара) осталась старая версия программы, в которой не было курса валюты в каждом документе.
Можно изменять там курс самостоятельно, но это долго. Чтобы я мог найти решение, нужна какая-то информация.
- Скопируйте текст ниже.
- Нажмите в программе Ctrl+F10,
- вставьте текст, нажмите "ОК".

Predpr.Globalfunction.ShowData("SELECT DocumentRows.CurrencyID, Price, BuhPrice, PriceReport, Rate FROM Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID WHERE (((Documents.TypeID)=1) AND ((DocumentRows.AccountType)=0))")

Появится таблица. Нажмите "В Excel", сохраните и пришлите мне на pr-4@ukr.net файл Excel.

[sealabs]

Файл отправил. Да действительно, есть позиции у которых на приходах стоит курс 1. Исправил все, запустил пересчет в доллар, затем назад в гривну и эти позиции стали считаться правильно. Но есть позиции в которых все приходные накладные изначально с нормальным курсом, но все равно в величину себестоимости в гривне подставляет долларовое значение.

[dmitry]

- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить текст, нажать "ОК".

db.execute("UPDATE DocumentRows SET DocumentRows.PriceReport = DocumentRows.BuhPrice WHERE AccountType=0 AND CurrencyID=2 AND Rate=1 AND Price<>0 And Price Is Not Null")
db.execute("UPDATE DocumentRows SET DocumentRows.Rate = DocumentRows.BuhPrice/DocumentRows.Price WHERE AccountType=0 AND CurrencyID=2 AND Rate=1 AND Price<>0 And Price Is Not Null")

[sealabs]

Помогло частично. Рентабельность та что составляла десятки тысяч ушла и стала нормальной. Но часть товаров осталась все равно с расчетом себестоимости доллара по курсу 1, хотя проверил весь период и в приходных документах везде курс нормальный.

[dmitry]

Все-таки нужна реальная база данных, я бы сразу разобрался.

[sealabs]

Как я уже говорил, скрипт приведенный выше удачно вылечил некие дикие проценты, но не справился с умеренными глюками в 6-8 тысяч. При ,извините, анализе анализа. Били обнаружены товары которые не просто считались по курсу 1, но даже такие, которые в одном приходе почему то считались по разному. в этом случае просто поменял курс на другой (я выбрал просто ближайший из списка) и уже это полностью исправило проблему, затем просто вернул курс на место. То есть проблема решена, если что непонятно и кого то возникла подобная проблема, распишу подробнее.

[poohliy]

У меня такая же проблема, но с актами где используются работы и материалы. В тех актах где закупка расходников в долларе, Анализ не умножает доллар на курс и прибыль расчитывается неверно. Такая же ситуация наблюдалась и с накладными при смене валюты учета по умолчанию(меняем валюту учета несколько раз в месяц для сверок с поставщиками). Но данную проблему решаю с помощью модуля "Перепровести все документы" за период. После его запуска суммы прибыли в анализе продаж показывает правильные. Но с актами это не срабатывает. Проверьте пожалуйста

[dmitry]

В тех актах где закупка расходников в долларе, Анализ не умножает доллар на курс

- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить текст, нажать "ОК".

db.execute("alter VIEW Series AS SELECT DocumentRows.DocID, DocumentRows.SeriesID, Documents.DocDate, DocumentRows.PersonID, DocumentRows.Price, DocumentRows.PriceMin, DocumentRows.CurrencyID, DocumentRows.BuhPrice, DocumentRows.PriceReport, DocumentRows.DbID, DocumentRows.BuhPriceMin, DocumentRows.Rate FROM Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID WHERE (((DocumentRows.DbID)<>0) AND ((Documents.TypeID) In (1,13,18)) AND ((DocumentRows.AccountType)=0) AND ((DocumentRows.TransNum)=1))")

После этого попробуйте перепровести один из таких актов и сохранить.

[poohliy]

После этого попробуйте перепровести один из таких актов и сохранить.

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

[dmitry]

После этого, если перепровести акты вручную, считает нормально. Попробовал модулем "Перепровести_все". Но этот вариант не работает

В модуле "Перепровести все" предусмотрены только расходные накладные и производство, акты с расходом материалов не затрагивает.

И еще по поводу неправильного подсчета в Анализе при регулярной смене валюты учета по умолчанию. Как-то можно поправить чтоб не нужно было запускать тотальное перепроведение документов?

После исправления, которое вы уже выполнили, при смене валюты уже будет считать правильно. А чтобы устранить случаи, которые возникли до этого:
- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить текст, нажать "ОК".

If Predpr.DataMain.ReportCurrID = 1 Then
DB.Execute("UPDATE DocumentRows SET DocumentRows.Rate = DocumentRows.PriceReport/DocumentRows.Price WHERE AccountType=0 AND TransNum>1 AND CurrencyID<>1 AND Rate=1 AND Price>0")
Else
DB.Execute("UPDATE DocumentRows SET DocumentRows.Rate = DocumentRows.Price/DocumentRows.PriceReport WHERE AccountType=0 AND TransNum>1 AND CurrencyID=1 AND Rate=1 AND Price>0")
End If