|
|
Строка 1: |
Строка 1: |
| <font size=4> | | <font size=4> |
| | | |
− | строки 3210,3310: Длюбой К80,81,83,82,84<br/>
| + | Раздел 1 |
− | строки 3220,3320: Д80,81,83,82,84 Клюбой<br/>
| + | |
| | | |
− | Если положительный ответ на вопрос "Чистую прибыль/убыток брать из формы 2?" | + | строки 3210,3310: Длюбой К80,81,83,82,84 |
− | строка 3211,3311: Д99 К84<br/>
| + | строки 3220,3320: Д80,81,83,82,84 Клюбой |
− | строка 3221,3321: Д84 К99<br/> | + | |
| | | |
− | строка 3212,3312: Дначинается на 0 К83,84<br/> | + | Если положительный ответ на вопрос "Чистую прибыль/убыток брать из формы 2?" |
− | строка 3222,3322: Д83,84 Кначинается на 0<br/> | + | строки 3211,3311: значение строки 2400 формы 2 |
| + | строки 3221,3321: не заполняются |
| + | иначе |
| + | строки 3211,3311: Д99 К84 |
| + | строки 3221,3321: Д84 К99 |
| | | |
| + | строка 3212,3312: Дначинается на 0 К83,84 |
| + | строка 3222,3322: Д83,84 Кначинается на 0 |
| | | |
− | // из формы 2
| + | строки 3227,3327: Д84 К75 |
− | if gg3_99_from_gf2
| + | |
− | pp:=selectSQL('select '+SQLField('C190')+' C190, '+SQLField('L190')+' L190 from DOCS'+Ret_f_ext()+; | + | |
− | " where KINDDOC='GF2' and LVLNUM='1' and NUMDOC='"+space(10)+"'", OpDataPath)
| + | |
− | c843311:=round((pp)->C190/prcsn,0) //для 3311
| + | |
− | if !Empty((pp)->L190); gg3_2_inc_84_B_1:=round((pp)->L190/prcsn,0); endif //для 3211
| + | |
− | CloseTable(pp)
| + | |
− | endif
| + | |
| | | |
| + | Раздел 2 |
| | | |
− | gg3_2_div_84_B:=0 //3227
| + | строка 3400: свёрнутое сальдо всех счетов, которые начинаются на 8 |
− | for ii:=1 to len(div_acnts)
| + | |
− | gg3_2_div_84_B:=gg3_2_div_84_B+GetGPRV('84',div_acnts[ii],old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1) | + | |
− | next
| + | |
| | | |
| + | строка 3401: сальдо 84 |
| | | |
− | gg3_2_div_84_E:=0 //3327
| + | Раздел 3 |
− | for ii:=1 to len(div_acnts)
| + | |
− | gg3_2_div_84_E:=gg3_2_div_84_E+GetGPRV('84',div_acnts[ii],jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1)
| + | |
− | next
| + | |
− | | + | |
− | //Разделы 2,3
| + | |
− | if FactoryId!='VLK'
| + | |
− | gg3_3_all_before_P:=GetGSLD({'8',,,.t.},old_jan_dt-1,,DOCS1->DANAL1,'PRPRGSLD') //декабрь позапрошлого
| + | |
− | gg3_3_all_before_B:=GetGSLD({'8',,,.t.},jan_dt-1,,DOCS1->DANAL1,'PREVGSLD') //декабрь прошлого
| + | |
− | gg3_3_all_after_P:=GetGSLD({'8',,.t.,.t.},old_jan_dt,,DOCS1->DANAL1,'PREVGSLD') //январь прошлого
| + | |
− | gg3_3_all_after_B:=GetGSLD({'8',,.t.,.t.},jan_dt,,DOCS1->DANAL1,'GSLD') //январь отчётного
| + | |
− | | + | |
− | gg3_3_all_accpol_I:=0 //18.03.2014 GetGPRV('99','8',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1)-GetGPRV('8','99',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1)
| + | |
− | gg3_3_all_accpol_O:=0
| + | |
− | gg3_3_all_err_I:=0
| + | |
− | gg3_3_all_err_O:=0
| + | |
− | | + | |
− | gg3_3_income_before_P:=GetGSLD({'84',,,.t.},old_jan_dt-1,,DOCS1->DANAL1,'PRPRGSLD') //декабрь позапрошлого
| + | |
− | gg3_3_income_before_B:=GetGSLD({'84',,,.t.},jan_dt-1,,DOCS1->DANAL1,'PREVGSLD') //декабрь прошлого
| + | |
− | gg3_3_income_after_P:=GetGSLD({'84',,.t.,.t.},old_jan_dt,,DOCS1->DANAL1,'PREVGSLD') //январь прошлого
| + | |
− | gg3_3_income_after_B:=GetGSLD({'84',,.t.,.t.},jan_dt,,DOCS1->DANAL1,'GSLD') //январь отчётного
| + | |
− | | + | |
− | gg3_3_income_accpol_I:=GetGPRV('99','84',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1)-GetGPRV('84','99',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1)
| + | |
− | gg3_3_income_accpol_O:=0
| + | |
− | gg3_3_income_err_I:=0
| + | |
− | gg3_3_income_err_O:=0
| + | |
− | | + | |
− | gg3_3_item1_before_P:=GetGSLD({'8?',,,.t.},old_jan_dt-1,,DOCS1->DANAL1,'PRPRGSLD') //декабрь позапрошлого
| + | |
− | gg3_3_item1_before_B:=GetGSLD({'8?',,,.t.},jan_dt-1,,DOCS1->DANAL1,'PREVGSLD') //декабрь прошлого
| + | |
− | gg3_3_item1_after_P:=GetGSLD({'8?',,.t.,.t.},old_jan_dt,,DOCS1->DANAL1,'PREVGSLD') //январь прошлого
| + | |
− | gg3_3_item1_after_B:=GetGSLD({'8?',,.t.,.t.},jan_dt,,DOCS1->DANAL1,'GSLD') //январь отчётного
| + | |
− | | + | |
− | gg3_3_item1_accpol_I:=GetGPRV('99','8?',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1)-GetGPRV('8?','99',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1)
| + | |
− | gg3_3_item1_accpol_O:=0
| + | |
− | gg3_3_item1_err_I:=0
| + | |
− | gg3_3_item1_err_O:=0
| + | |
− | | + | |
− | gg3_3_item2_before_P:=GetGSLD({'8?',,,.t.},old_jan_dt-1,,DOCS1->DANAL1,'PRPRGSLD') //декабрь позапрошлого
| + | |
− | gg3_3_item2_before_B:=GetGSLD({'8?',,,.t.},jan_dt-1,,DOCS1->DANAL1,'PREVGSLD') //декабрь прошлого
| + | |
− | gg3_3_item2_after_P:=GetGSLD({'8?',,.t.,.t.},old_jan_dt,,DOCS1->DANAL1,'PREVGSLD') //январь прошлого
| + | |
− | gg3_3_item2_after_B:=GetGSLD({'8?',,.t.,.t.},jan_dt,,DOCS1->DANAL1,'GSLD') //январь отчётного
| + | |
− | | + | |
− | gg3_3_item2_accpol_I:=GetGPRV('99','8?',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1)-GetGPRV('8?','99',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1)
| + | |
− | gg3_3_item2_accpol_O:=0
| + | |
− | gg3_3_item2_err_I:=0
| + | |
− | gg3_3_item2_err_O:=0
| + | |
− | endif
| + | |
| | | |
| + | собирается по данным формы 1 - должна быть уже сформирована |
| </font> | | </font> |