09.08.2019 19:15
декларант
 
Цитата:
AndreyZh Причина проблемы: кассовый комп сдвинул своё время на час и чек ЕГАИС был с неправильным временем продажи.
Может быть сдвижка на час была из-за того, что в РФ в 2014 г перешли на постоянное "зимнее время" и компьютер начинает показывать время с ошибкой на час в течение полгода в случае если включена синхронизация времени с сервером синхронизации времени. Микрософт выпускал специальное обновление для windows Vista и выше для России, при установке которого происходит правильная синхронизация часов компьютера. Также в РФ несколько раз меняли часовые пояса в Сибири и на Урале (последний раз вроде для региона Камчатки в 2016г). это также было учтено в соответствующих обновлениях windows. Для Win XP обновлений не выпускалось.
09.08.2019 19:47
AndreyZh
 
Декларант, добрый вечер! Давненько не обменивались письмами, а лишь читаю Ваши полезные рекомендации на форумах... и очень жаль, что их мало на Olegon

Когда ко мне обращаются за помощью, то пытаюсь помочь в решении конкретной проблемы, а не найти "виноватых", если сие не является задачей... так и здесь - пошел по обычному пути, иногда описываемому на форуме ФСРАР... и надеюсь, что проблема будет и организационно разрешена.

Что по "времени" ПК? Причин может быть туева хуча, например двигают дату для создания документов с требуемыми атрибутами, домашний 3G свисток иногда определяется для другого часового пояса, когда "кончается" батарейка на материнки, так же могут "плавать" данные параметры и т.д.

В тоже время "требовать", что продавщицы это тщательно контролировали мне кажется нереально?
26.02.2020 09:26
AndreyZh
 
Технологическая пауза... размещу утилитку - авось кому сгодится? В принципе на ней отлаживал алгоритмы для системы "УС Лэнд".

Задача/проблема: Предположим Вы ведете учет в ценах, включая НДС, а контрагент в ценах без НДС. Тогда при отпуске ему товаров и/или согласования спецификации могут возникнуть рассогласования данных по документообороту при дотошном (построчном) сверке документов и встречаются ситуации, когда бухгалтера придираются к этому

Например! У Вас цена с НДС 43.00р. Тогда с математическим округлением в УПД будет:

Цена без НДС: 35.83 хотя фактически: 35.8333333...
Количество: 1000
Сумма с НДС: 43000.00
Сумма без НДС, как сверяет ФНС: 35833.33
Подгоняя НДС: 7166.67

У контрагента будет. Пусть он у себя проставит цену без НДС = 35.83
Количество: 1000
Сумма с НДС 35.83*1.2*1000: 42996.00
Сумма без НДС - рассчитывается: 35830.00
Рассчитывая НДС: 7166.00

Как видно из примера:

1. Не стыкуются цены/суммы документов;
2. Рассогласование данных бухучета, контролируемые ФНС.

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

Утилитка помогает Вам подобрать "правильную" цену, где вводите примерную согласованную цену (с НДС или без НДС) и ставку НДС в процентах. Программа предлагает "ближайшие" подходящие цены, встаёте на неё, нажимаете Ctrl+C (копировать) и затем вставляете в "свою программу", например Ctrl+V. Нажав Enter в последнем поле перейдёте на новый цикл подбора цены... и так до нажатия кнопки Esc. Уменьшить число нажатий можно введя цену, затем нажать PgDown.




Алгоритмы примитивные и можно использовать данный код для своей программы:
Код:
    
* --------------------------------------------------------------------------------------------------
*   Универсальная процедура циклической подгонки цены с возможностью копипаста результата
PROC pgClcPrice()
    LOCA cOldCol:=SetColor(), GetList:={}
    LOCA nInp:=100, nNds:=20, nDir:=2, nMin:=0, nMax:=0
    LOCA nI:=0, nS:=0, nJ:=0, nT:=0
    
    //  Открываю головную форму с инструкцией для циклического в ней ввода и расчета цен
    fswOpen(0,0,11,59,cColor,3)
    
    @ 1,1   SAY "Пожалуйста введите значения и принципы расчетов цен от НДС"    COLO cHelpc
    @ 2,1   SAY "См. направление. Цена включая НДС или без НДС ............"
    @ 3,1   SAY "Процент ставки НДС на расчетный товар               ......"
    @ 4,1   SAY "Направление: 2-Вы ввели цену включая НДС. Программа подбе-"
    @ 5,1   SAY "рёт цены, что бы без НДС они были ровные, иначе Вы вводите"
    @ 6,1   SAY "цену без НДС, а программа будет подбирать цены с НДС     ."
    @ 7,1   SAY "----------------------------------------------------------"
    @ 8,1   SAY "Подходящая большая ............, меньшая цена ............"
    @ 9,1   SAY "Получаемые цены:                                          "    
    @10,1   SAY "Esc- выход, Ctrl+C - копировать в буфер, Enter- продолжить"    COLO cHelpc
    
    WHIL TRUE
        @ 2,47  GET nInp  PICT "999999999.99"     VALI lValid({||nInp > 0},"Запрещена отрицательная цена!")
        @ 3,53  GET nNds  PICT "999.99"           VALI lValid({||nNds >= 0},"Запрещена отрицательное значение!")
        @ 6,58  GET nDir  PICT "9"
        READ
        IF LastKey() == K_ESC THEN EXIT
        
        //  Подбор подходящих цен перебирая по копейке в зависимости от направления
        IF nDir == 2    //  Подбираем, что бы была ровной цена без НДС
            FOR nJ := 1 TO 2
                nT  := nInp
                WHIL TRUE
                    nS  := nT / (1 + nNds/100)
                    IF Abs(nS*100 - zInt(nS*100)) <= 0.000001 THEN EXIT
                    nT  += IF(nJ=1,(-1),(+1))*0.01
                END
                IF nJ = 1
                    nMin    := nS*(1 + nNds/100)
                ELSE
                    nMax    := nS*(1 + nNds/100)
                ENDI
            NEXT nJ
        ELSE            //  Подбираем ровные цены с НДС
            FOR nJ := 1 TO 2
                nT  := nInp
                WHIL TRUE
                    nS  := nT * (1 + nNds/100)
                    IF Abs(nS*100 - zInt(nS*100)) <= 0.000001 THEN EXIT
                    nT  += IF(nJ=1,(-1),(+1))*0.01
                END
                IF nJ = 1
                    nMin    := nS/(1 + nNds/100)
                ELSE
                    nMax    := nS/(1 + nNds/100)
                ENDI
            NEXT nJ
        ENDI

        GetList     := {}
        @ 9,20  SAY Str(IF(nDir <> 2, nMax*(1+nNds/100), nMax/(1+nNds/100)),12,2)
        @ 9,47  SAY Str(IF(nDir <> 2, nMin*(1+nNds/100), nMin/(1+nNds/100)),12,2)

        @ 8,20  GET nMax    PICT "999999999.99"
        @ 8,47  GET nMin    PICT "999999999.99"
        READ
        IF LastKey() == K_ESC THEN EXIT
    END

    fDeact( cOldCol )
    RETU


При желании может взять приложенную утилиту и скопировав её куда угодно, например на рабочий стол использовать для "пользы дела"

Правка: AndreyZh, 10.08.2020 11:32
26.02.2020 09:46
FinSoft
 
Привет, Андрей. У нас цена может храниться с 4 знаками после запятой. Если покупателю надо без НДС (всякие бюджетники, например), то создается специальная категория цен с признаком без НДС. По ней вводятся договоренные цены без НДС, а для нас отгрузочные пересчитываются с 4 знаками после запятой. Аналогично можно в возвратах поставщикам. Большинство работают в полных ценах, это не так часто бывает надо.
26.02.2020 09:56
AndreyZh
 
FinSoft, в приведенном примере "ситуёвины" хранение с 4 знаками и количеством 100.000 "не поможет"! Коль скоро пишу... Почему сделана эта функция, встроенная в "УС Land" и вызываемая кнопкой Ctrl+N там?

В процессе опытной эксплуатации автоматизированной системы EDI: https://olegon.ru/showthread.php?t=33631 примерно 10% всех УПД браковались автоматическими системами ТС из-за нестыковок цен/сумм (НДС)/без НДС... Более того в 40% случаев не помогала переделка УПД средствами платформы провайдера... Сейчас сделано там - все цены/суммы рассчитываются и отражаются с точностью 2-9 знаков, что задаётся в настройке... Однако предложенный вариант более универсальный, но пользоваться им "не принуждаю"...
10.08.2020 11:39
AndreyZh
 
Цитата:
AndreyZh Задача/проблема: Предположим Вы ведете учет в ценах, включая НДС, а контрагент в ценах без НДС. Тогда при отпуске ему товаров и/или согласования спецификации могут возникнуть рассогласования данных по документообороту при дотошном (построчном) сверке документов и встречаются ситуации, когда бухгалтера придираются к этому

Например! У Вас цена с НДС 43.00р. Тогда с математическим округлением в УПД будет:
Цена без НДС: 35.83 хотя фактически: 35.8333333...
Количество: 1000
Сумма с НДС: 43000.00
Сумма без НДС, как сверяет ФНС: 35833.33
Подгоняя НДС: 7166.67
У контрагента будет. Пусть он у себя проставит цену без НДС = 35.83
Количество: 1000
Сумма с НДС 35.83*1.2*1000: 42996.00
Сумма без НДС - рассчитывается: 35830.00
Рассчитывая НДС: 7166.00

Как видно из примера:
1. Не стыкуются цены/суммы документов;
2. Рассогласование данных бухучета, контролируемые ФНС.
Какой выход? При работе с клиентами использовать цены, которые при расчетах не будут давать ошибок округления... на что без проблем идут даже влиятельные торговые сети.

Утилитка помогает Вам подобрать "правильную" цену, где вводите примерную согласованную цену (с НДС или без НДС) и ставку НДС в процентах. Программа предлагает "ближайшие" подходящие цены, встаёте на неё, нажимаете Ctrl+C (копировать) и затем вставляете в "свою программу", например Ctrl+V. Нажав Enter в последнем поле перейдёте на новый цикл подбора цены... и так до нажатия кнопки Esc. Уменьшить число нажатий можно введя цену, затем нажать PgDown.
Хотя на Olegon утилитка не была востребована, но в реале, во всех фирмах, использующих "УС Лэнд", а особенно для систем EDI: https://olegon.ru/showpost.php?p=353940&postcount=5 данная возможность, встроенная в "УС Лэнд" явилась мегаактуальной … Однако в версии 2005 исправлен (обойден) "математический" косяк системы разработки, когда плохо могли подбираться цены при 10% НДС.

На очередной вопрос в письме... и учитывая, что ей могут воспользоваться - исправил проблемки и в этой отдельной програмке, выкладываю исправленный её вариант
Вложения
Тип файла: 7z cpr.7z (432.4 Кб, 1 просмотров)
27.08.2020 08:25
AndreyZh
 
Случайно наткнулся на когда-то популярную и известную бесплатную программу "Бизнес Пак". Когда-то её мои клиенты пользовали для печати не созданных на тот момент мной первичных документов, но с 2010 года её функционал по первичке системой "УС Лэнд" был перекрыт и о программе "забылось".

Однако взглянув на её нынешний бесплатный функционал думаю, что она вполне годна для "комплексной" автоматизации микропредприятия на стадии выживания, например она может отправлять чеки в on-line кассу. Посмотреть подробнее и скачать её можно по ссылке: , а "взглянуть" на возможности можно на скрине:





P.S. Поверхностно просмотрев лицензию и описание - подозреваю, что часть её возможностей уже включается только за плату?

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.