ТЫС
rem ********* Установка отчетного периода**************************************
per = УП("П")
pers = substr(str(per,2,0),3,2)
if pers = "03" then goto 100
if pers = "06" then goto 100
if pers = "09" then goto 100
if pers = "12" then goto 100
per = УП("Т")
100  d = open("tdata")
     getfirst(d)
     dt = 'Тек.дата'.d
     mes = num(substr(dt,5,2))
     god = substr(dt,1,4)
     close(d)
    if mes >= 3 & mes < 6 then otch_per = "I квартал " + god + " г."
    if mes >= 6 & mes < 9 then otch_per = "II квартал " + god + " г."
    if mes >= 9 & mes < 12 then otch_per = "III квартал " + god + " г."
    if mes = 12 | mes = 1 | mes = 2 then otch_per = "IV квартал " + god + " г."
    goto 200
rem ***************************************************************************
rem ПУНКТ 1  Оборот с нач.года
rem  200 П1 = ОБНГ("51";"60")+ОБНГ("51";"76")+ОБНГ("50";"60"+ОБНГ("50";"76")  
200 П1 = ДОНГ("19")
rem ПУНКТ 1а
    П11 = ДОНГ("19","1")+ДОНГ("19","2")+ДОНГ("19","3")
    П12 = ДОНГ("19","4")
    П13 = ДОНГ("19","5")
    П1а = П11+П12+П13 
rem ПУНКТ 3 реализованные ценности
    П3 = КОНГ("68","2")  rem Субсчет 68 сч. по НДС 
rem П31 = КОНГ("68", ) или const       по ставке 20%
rem П32 = КОНГ("68", ) или const       по ставке 16.67%
rem П33 = КОНГ("68", ) или const       по ставке 10%
rem П34 = КОНГ("68", ) или const       по ставке 9.09%
rem П35 = КОНГ("68", ) или const       по средней расчетной ставке
rem ПУНКТ 4 НДС по авансам и предоплатам
    П4 = ОБНГ("64";"68","2")
rem ПУНКТ 5 НДС по авансам и предоплатам реализованным
    П5 = ОБНГ("68","2";"64")
rem ПУНКТ 7 НДС уплаченный в бюджет
rem    П7 = ОБНГ("68","2";"51")
       П7 = 0
rem ПЕРЕЙТИ В ПРОШЛЫЙ КВАРТАЛ
    per = УП("П")
    per = УП("П")
    per = УП("П")
 if per = 0 then goto 300
rem ПУНКТ 1  Оборот с нач.года
rem ПР1 = ОБНГ("51";"60")+ОБНГ("51";"76")+ОБНГ("50";"60")+ОБНГ("50";"76")  
    ПР1 = ДОНГ("19")
rem ПУНКТ 1а
    ПР11 = ДОНГ("19","1")+ДОНГ("19","2")+ДОНГ("19","3")
    ПР12 = ДОНГ("19","4")
    ПР13 = ДОНГ("19","5")
    ПР1а = П11+П12+П13 
rem ПУНКТ 3 реализованные ценности
    ПР3 = КОНГ("68","2")  rem Субсчет 68 сч. по НДС 
rem ПР31 = КОНГ("68", ) или const      по ставке 20%
rem ПР32 = КОНГ("68", ) или const      по ставке 16.67%
rem ПР33 = КОНГ("68", ) или const      по ставке 10%
rem ПР34 = КОНГ("68", ) или const      по ставке 9.09%
rem ПР35 = КОНГ("68", ) или const      по средней расчетной ставке
rem ПУНКТ 4 НДС по авансам и предоплатам
    ПР4 = ОБНГ("64";"68","2")
rem ПУНКТ 5 НДС по авансам и предоплатам реализованным
    ПР5 = ОБНГ("68","2";"64")
rem ПУНКТ 7 НДС уплаченный в бюджет
rem    ПР7 = ОБНГ("68","2";"51")
       ПР7 = 0
    goto 400
300 ПР1 = 0
    ПР11 = 0
    ПР12 = 0
    ПР13 = 0
    ПР1а = 0
    ПР3 = 0
    ПР31 = 0
    ПР32 = 0
    ПР33 = 0
    ПР34 = 0
    ПР35 = 0
    ПР4 = 0
    ПР5 = 0
    ПР7 = 0 
400 per = УП("Т")
    Н1 = П1 - ПР1     rem НДС п. 1
    Н11 = П11 - ПР11  rem НДС п.1а 1)
    Н12 = П12 - ПР12  rem НДС п.1а 2)
    Н13 = П13 - ПР13  rem НДС п.1а 3)
    Н1а = П1а - ПР1а  rem Итого 1а
    Н2 = КЧ("Н3")     rem НДС п.2
    Н3 =  П3 - ПР3     rem НДС п. 3
rem    Н31 = П31 - ПР31 
rem    Н32 = П32 - ПР32 
rem    Н33 = П33 - ПР33 
rem    Н34 = П34 - ПР34 
rem    Н35 = П35 - ПР35 
    Н4 = П4 - ПР4     rem НДС п. 4
    Н5 = П5 - ПР5     rem НДС п. 5
    Н7 = КЧ("Н2")     rem НДС п. 7
    a = Н3 + Н4 - (Н1а + Н2 + Н5)
    Н61 = 0
    Н62 = 0
    if a < 0 then Н62 = a*(-1)
    if a >= 0 then  Н61 = a
    b = Н61 - Н7
    Н8 = 0
    Н9 = 0
    if b < 0 then Н9 = b*(-1)
    if b >= 0 then Н8 = b
# В Государственную
# налоговую инспекцию по
#[КС("К10")                       ]
#[КС("К3")                        ]
# (полное наименование предприятия)            Штамп или отметка 
#Фамилия ответственного лица                   налогового органа
#исполнителя [КС("К2")             ]           
#Телефон [КС("К4")        ]                    Получено ".....".........199...г.
#
#                                  Р А С Ч Е Т
#                           ( налоговая декларация )
#                      по налогу на добавленную стоимость
#
print "                           за " + otch_per 
#                          (м-ц,квартал,год)
#--------------------------------------------------------------------------------
#             ПОКАЗАТЕЛИ               |  ОБОРОТ  |СТАВКА НДС В %|   СУММА НДС
#--------------------------------------------------------------------------------
#_________________1____________________|____2_____|_____3________|_______4_______
# 1. Сумма НДС по приобретенным (опри- |          |              |
#    ходованным) ценностям , отобража- |          |              |
#    емая по дебету счета 19 "НДС по   |          |              |
#    приобретенным ценностям" , - всего|[Н1*6    ]|    16.67     | [Н1     ]               
#    __________________________________|__________|______________|_______________
# 1а.Сумма НДС по оприходованным опла- |          |              |
#    ченным ценностям, подлежащая спи- |          |              |
#    санию с кредита счета 19 в дебет  |          |              |
#    счета 68 "Расчеты с бюджетом" ,   |          |              |                
#    субсчет "Расчеты по НДС" - итого  |[Н1а*6   ]|    16.67     |[Н1а     ]          
#    из них :                          |          |              |
#    1) по приобретенным материальным  |          |              |
#    ресурсам , МБП , работам (услугам)|          |              |                
#    производственного характера       |[Н11*6   ]|    16.67     |[Н11     ]
#    2) по нематериальным активам ,при-|          |              |
#    нятым на учет с 01.01.93, в т.ч.  |          |              |                
#    подлежащие вычету (зачету) в разме|          |              |                
#    ре невозмещенной части при их реа-|          |              |                
#    лизации                           |[Н12*6   ]|    16.67     |[Н12     ]      
#    3) НДС по основным средствам ,вве-|          |              |                
#    денным в эксплуатацию с 01.01.93 ,|          |              |                
#    в т.ч. подлежащие вычету (зачету) |          |              |                
#    в размере невозмещенной части при |          |              |                
#    их реализации                     |[Н13*6   ]|    16.67     |[Н13     ]      
#    4)                                |          |              |                
#    __________________________________|__________|______________|_______________
# 2. НДС, уплаченный таможенным органам|          |              |
#    предприятиями и организациями,фор-|          |              |                 
#    мирующими цены на импортные товары|          |              |[Н2       ]
#    __________________________________|__________|______________|_______________
# 3. Стоимость реализуемых товаров (ра-|          |              |
#    бот, услуг), облагаемых НДС ,вклю-|          |              |
#    чая материальные ценности , отпу- |          |              |
#    щенные на непроизводственные нужды|          |              |
#    которые оплачиваются за счет соот-|          |              |
#    ветствующих источников финансирова|          |              |
#    ния ( кроме межхозяйсвенных и дру-|          |              |
#    гих сельскохозяйственных предприя-|          |              |
#    тий и организаций ), а также мате-|          |              |
#    риальные ценности, реализуемые на |          |              |
#    сторону, - всего                  |[Н3*6    ]|              |[Н3      ]
#    в том числе :                     |          |              |
#                                      |          |     20       |
#                                      |          |     16.67    |
#                                      |          |     10       |
#                                      |          |     9.09     |
#                                      |          |по ср.расч.ст.|
#______________________________________|__________|______________|_______________
#
#
#--------------------------------------------------------------------------------
#_________________1____________________|____2_____|_____3________|_______4_______
# 4. Сумма НДС, подлежащая внесению в  |          |              |                 
#    бюджет , по авансам и предоплатам,|          |              |
#    поступившим в отчетном периоде    |          |              | [Н4      ]               
#    __________________________________|__________|______________|_______________
# 5. Исключается сумма НДС, исчисленная|          |              |
#    с авансов и предоплат, засчитыва- |          |              |
#    емая при реализации товаров (работ|          |              |
#    , услуг) в отчетном периоде в соо-|          |              |                 
#    тветствии с п.50 настоящей инстр. |          |              | [Н5      ]                
#    __________________________________|__________|______________|_______________
# 6. Сумма НДС за отчетный период      |          |              |
#    подлежащая :                      |          |              |
#    1) уплате в бюджет(с.3+с.4)-(с.1а+|          |              |
#    +с.2+с5)                          |          |              | [Н61     ]
#    2) зачету или возмещению из бюджет|          |              |
#    (стр.1а+стр.2+стр.5)-(стр.3+стр.4)|          |              | [Н62     ]
#    __________________________________|__________|______________|_______________
# 7. Суммы НДС , внесенные в бюджет в  |          |              |
#    отчетном периоде в счет предстоя- |          |              |
#    щих платежей , - всего            |          |              | [Н7      ]
#    __________________________________|__________|______________|_______________
#    в том числе :                     |          |              |
#    __________________________________|__________|______________|_______________
# 7а. по декадным (авансовым платежам в|          |              |
#     размере 1/2 от суммы НДС по пос- |          |              |
#     леднему месячному расчету для    |          |              |
#     предприятий Минсвязи России) пла-|          |              |
#     тежам                            |          |              |
#    __________________________________|__________|______________|_______________
# 8. Сумма доплаты по настоящему расче-|          |              |
#    ту (стр.6.1 - стр.7)              |          |              | [Н8      ]
#    __________________________________|__________|______________|_______________
# 9. Подлежит зачету (возмещению)      |          |              |
#    (стр.7 - стр.6.1) или             |          |              |
#    (стр.7 + стр.6.2)                 |          |              | [Н9      ]
#    __________________________________|__________|______________|_______________
#10. Стоимость реализованных товаров   |          |              |
#    (работ, услуг), не облагаемых НДС |          |              |
#                              - всего |          |              | [КЧ("Н4")]
#    __________________________________|__________|______________|_______________
#     
print "'____'_____________ " +god+" г."
#        (дата высылки расчета)
#    
#       Руководитель                                      /подпись/
#    
#       Главный бухгалтер                                 /подпись/
#    
#          Отметки и замечания инспектора (экономиста)
#    
#    В результате предварительной проверки внесены следующие исправления
#
#  ........................................................................
#  
print "'____'_____________ " +god+" г."
#   (дата предварительной проверки)
#
#     Инспектор (экономист) ........................./подпись/
#
#                Справка экономиста по учету
#
#    По настоящему расчету в лицевом счете плательщика начислено:
#
#  ........................................................................
#
print "'____'_____________ " +god+" г."
#
#   (дата проверки)          Инспектор по учету               /подпись/
#
end
