Сторонние программы, полезные пользователям системы

█ 09.08.2019 19:15

Цитата:

AndreyZh ➤ Причина проблемы: кассовый комп сдвинул своё время на час и чек ЕГАИС был с неправильным временем продажи.

Может быть сдвижка на час была из-за того, что в РФ в 2014 г перешли на постоянное "зимнее время" и компьютер начинает показывать время с ошибкой на час в течение полгода в случае если включена синхронизация времени с сервером синхронизации времени. Микрософт выпускал специальное обновление для windows Vista и выше для России, при установке которого происходит правильная синхронизация часов компьютера. Также в РФ несколько раз меняли часовые пояса в Сибири и на Урале (последний раз вроде для региона Камчатки в 2016г). это также было учтено в соответствующих обновлениях windows. Для Win XP обновлений не выпускалось.

█ 09.08.2019 19:47

Декларант, добрый вечер! Давненько не обменивались письмами, а лишь читаю Ваши полезные рекомендации на форумах... и очень жаль, что их мало на Olegon

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

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

В тоже время "требовать", что продавщицы это тщательно контролировали мне кажется нереально?

█ 26.02.2020 09:26

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

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

Например! У Вас цена с НДС 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

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

█ 26.02.2020 09:46

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

█ 26.02.2020 09:56

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

Например! У Вас цена с НДС 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% НДС.

На очередной вопрос в письме... и учитывая, что ей могут воспользоваться - исправил проблемки и в этой отдельной програмке, выкладываю исправленный её вариант

█ 27.08.2020 08:25

Случайно наткнулся на когда-то популярную и известную бесплатную программу "Бизнес Пак". Когда-то её мои клиенты пользовали для печати не созданных на тот момент мной первичных документов, но с 2010 года её функционал по первичке системой "УС Лэнд" был перекрыт и о программе "забылось".

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

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

█ 04.01.2021 14:42

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

Исходная задача для её создания: в УПД по сигаретам передаются коды акцизных марок. В принципе они есть на пачках, но зачастую нечитаемые или их нужно внести в учетную систему каким-то образом. В то же время QR коды печатаемые программами «УС Лэнд» прекрасно читаются любыми 2d сканерами, а так же смартфонами.

Так же программа оказалась полезной при проведении ревизий или проверок по алкоголю, т.к. необходимые списки всегда можно вывести в текстовый файл, а затем распечатанные QR коды дополнительно наклеить на бутылки и считывать их при необходимости. Оказалось, что «новые марки» скачиваются быстрее и корректнее из их представления в виде QR кода программы. Так же для «однозначного» соответствия и обозначения проведения проверки в режимах поиска мы использовали коды РФУ-2 и алкокоды, перекодированные в QR, в том числе для обмена информацией с поставщиками.

Установка. Создайте любой каталог на любом диске или флэшке и распакуйте туда архив.

Использование. Можно создать ярлыки вызовов самой программы с параметрами или создать командный файл, пример его есть в архиве и его вызывать напрямую или через ярлык вызова. Пример техники создания ярлыков есть в сообщении: https://olegon.ru/showthread.php?t=26029

Для иллюстрации использовался текстовый файл в кодировке 1251:

Код:

AkcMark:
18N00001CGTXH610PYG1NKL3041103200037517189644924216201101672317111489809809809809809KLJK09809234850923859023850923485099812374983279487985793847589357
22N00001CJ5XTGOMING3SWY51113004000473A4S5BRCU1XAFT3S2H8NU0WCEGX5ET2W
22N00001CJ5XTGOMING3SWY51113004000473A4S5BRCU1XAFT3S2H8NU0WCEGX5ET2W
22N00001CJ5XTGOMING3SWY51113004000474137H8EBNWT6OLH01HNRU2SJT6DQX3Y2
101100000005660118001ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNOPQRSTU

Cigarete:
000000462080191AuY05ir3E9uU66
010460026600398021tR5632o8005012350(93)wY2G
04606203086627iu,*7qbAC68PJgu
04606203086627xDfHs?tAC68ph46
04606203086627V?r6=LCAC68lgsz

Ean13:
2000027000005
2000067000003
2000028000004
2000070000007
2000030000009
4003301036026
4003301036002
7804310548657
7804310551923

Poem:
The funny little groundhog
Digs a home in the fall.
And hides there all winter
Rolled up in a ball.
On February 2nd
He comes out of there
To look at the sky,
And to sniff the air.

Adress:
https://olegon.ru/forumdisplay.php?f=72
zhsoft @ mail . ru 

RFU:
TEST-FB-000000028994664
TEST-FB-000000038102216
TEST-FB-000000019303039
TEST-FB-000000036836061

IdEgais:
001822000000139403
001822000000137281

Варианты вызова программы:

pqr – вызов с параметрами по умолчанию. При таком способе вызова программа ищет в своем каталоге «первый» файл с расширение TXT и печатает все строки из него в виде QR кодов размера 15 мм. После их распечатки заменяет расширение у файла на ACT, т.е при следующем вызове возьмет «следующий» файл:

pqr имя_файла_с_любым_расширением_и_указанием_папки_нахождения – вызов для печати списков каталогов вашей учетной системы, например: pqr x:\1c\list\qr.qqq. При этом используется размер по умолчанию 15 мм.

pqr имя_файла_с_любым_расширением_и_указанием_папки_нахождения размер – вызов с полной настройкой, т.е. можно задать пользовательский размер картинки QR кода от 5 до 200 миллиметров, например, как в примере pqr d:\prg\qr.act 20

pqr размер - При таком способе вызова программа ищет в своем каталоге «первый» файл с расширение TXT и печатает все строки из него в виде QR кодов в указанном размере от 5 до 200 миллиметров. После их распечатки заменяет расширение у файла на ACT, т.е при следующем вызове возьмет «следующий» файл.

Примеры распечаток в различных размерах:

Если QR кодов много и они не помещаются на одном листе, то программа продолжает их печатать на следующих листах. Изначально программа просчитывает число QR кодов исходя из требуемого размера картинки кода на стандартной странице А4 (210х297) и печатает пачками на отдельных страницах.

При не нахождении файла со списком для печати даётся указанное ниже сообщение, а при «кривом» задании размера даётся сообщение и размер «проставляется» по умолчанию – 15 мм.

Программа «платная по совести», т.к. она изначально создавалась «за деньги» для заказчика и неприлично её будет размещать в бесплатном статусе. Стоимость 500 рублей. Приложенный к сообщению архив запароленный. Как получить пароль от архива: https://olegon.ru/showthread.php?t=35053 – вы пишете мне письмо, я отправляю Вам пароль с реквизитами для оплаты, а дальше «на Вашей совести» платить или нет.

P.S. 06.02.2021 Удалил приложенную программу в силу отсутствия потребностей в ней виртуального мира, но описание оставил - авось кому-то когда-то спонадобиться… и тогда мне данное решение нужно будет искать в своих архивах, вспоминая алгоритмы и принципы пользования ей, т.е. "прайс" на мои работы будет уже реальным