22.01.2018 (М) Ф3: СТАНДАРТНАЯ СХЕМА ЗАПОЛНЕНИЯ БАЛАНСОВОЙ ФОРМЫ 3 ОТЧЁТ ОБ ИЗМЕНЕНИЯХ КАПИТАЛА

строки 3210,3310: Длюбой К80,81,83,82,84 строки 3220,3320: Д80,81,83,82,84 Клюбой

строка 3211: Д99 К84 строка 3212,3312: Дначинается на 0 К83,84 строка 3221: Д84 К99 строка 3222,3322: Д83 Кначинается на 0

gg3_2_inc_84_B:=GetGPRV(,'84',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1) //3210 gg3_2_inc_84_B_1:=GetGPRV('99','84',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1) //3211

gg3_2_inc_84_B_2:=GetGPRV('0','84',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1) //3212 // из формы 2 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

gg3_2_dec_84_B:=GetGPRV('84',,old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1) //3220

gg3_2_dec_84_B_1:=GetGPRV('84','99',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1) //3221

gg3_2_dec_84_B_2:=GetGPRV('84','0',old_jan_dt,jan_dt-1,DOCS1->DANAL1,'PREVGPRV',1) //3222

gg3_2_div_84_B:=0 //3227 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

gg3_2_inc_84_E:=GetGPRV(,'84',jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1) //3310 gg3_2_inc_84_E_1:=GetGPRV('99','84',jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1) //3311 gg3_2_inc_84_E_2:=GetGPRV('0','84',jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1) //3312

gg3_2_dec_84_E:=GetGPRV('84',,jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1) //3320 if FactoryId='OTR'

 gg3_2_dec_84_E_1:=GetGPRV('84-1',,jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1)       //3321
 gg3_2_dec_84_E_2:=GetGPRV('84-2',,jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1)       //3322

else

 gg3_2_dec_84_E_1:=GetGPRV('84','99',jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1)     //3321
 gg3_2_dec_84_E_2:=GetGPRV('84','0',jan_dt,endyear_dt,DOCS1->DANAL1,'GPRV',1)      //3322

endif

gg3_2_div_84_E:=0 //3327 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