Вопросы по 1С:Отель

			If NOT CashRegister.DoNotPrintKioskServices AND pServices <> Undefined And pServices.Count() > 0 Then
				For Each vSrvRow In pServices Do
					vPaymentSection = Undefined;
					vFR.Department = 0;
					vFR.Name = "";
					If ValueIsFilled(vSrvRow.Service) Then
						vFR.Name = GetString(vSrvRow.Service.GetObject().pmGetServiceDescription(SessionParameters.CurrentLanguage));
						If ValueIsFilled(vSrvRow.PaymentSection) Then
							vPaymentSection = vSrvRow.PaymentSection;
							vFR.Department = vPaymentSection.Code;
						EndIf;
					EndIf;
					vFR.Quantity = vSrvRow.Quantity;
					vFR.Price = vSrvRow.Price;
					// Add tax
					If CashRegister.CashRegisterDriver = Enums.CashRegisterDrivers.AtolCommonCashRegisterDriver8 And 
					   Not CashRegister.PrintVATSumInCheques Then
						If ValueIsFilled(vPaymentSection) Then
							vFR.Tax = GetTaxGroup(vPaymentSection);
						Else
							vFR.Tax = GetTaxGroup(pObj);
						EndIf;
					EndIf;
					vFR.Registration();
					If vFR.ResultCode <> 0 Then
						CancelCheque(vFR, NStr("en='CashRegister.PrintCheque'; de='CashRegister.PrintCheque'; ru='ККМ.ПечатьЧека'"), rMessage);
						Return False;
					EndIf;
				EndDo;
			Else
				// Print number and sections
				If pObj.PaymentSections.Count() > 0 Then
					If Not CashRegister.PrintFolioHeader Then
						vFR.Caption = "#" + TrimAll(pObj.Number);
						vFR.PrintString();
						If vFR.ResultCode <> 0 Then
							CancelCheque(vFR, NStr("en='CashRegister.PrintCheque'; de='CashRegister.PrintCheque'; ru='ККМ.ПечатьЧека'"), rMessage);
							Return False;
						EndIf;
					EndIf;
					If CashRegister.PrintPaymentSectionNamesInCheques Then
						For Each vPSRow In pObj.PaymentSections Do
							If vPSRow.Sum = 0 Then
								Continue;
							EndIf;
							vSectionAmount = vPSRow.Sum;
							vSectionVATAmount = vPSRow.VATSum;
							If TypeOf(pObj) = Type("DocumentObject.Return") Then
								vSectionAmount = -vSectionAmount;
								vSectionVATAmount = -vSectionVATAmount;
							EndIf;
							
							vFR.Department = 0;
							vFR.Name = NStr("en='0 - Section 0'; de='0 - Sektion 0'; ru='0 - Секция 0'");
							If ValueIsFilled(vPSRow.PaymentSection) Then
								vFR.Department = vPSRow.PaymentSection.Code;
								vFR.Name = GetString(vPSRow.PaymentSection.Description);
							EndIf;
							vFR.Quantity = 1;
							// Add tax
							If CashRegister.CashRegisterDriver = Enums.CashRegisterDrivers.AtolCommonCashRegisterDriver8 And 
							   Not CashRegister.PrintVATSumInCheques Then
								If ValueIsFilled(vPSRow.PaymentSection) Then
									vFR.Tax = GetTaxGroup(vPSRow.PaymentSection);
								Else
									vFR.Tax = GetTaxGroup(pObj);
								EndIf;
							EndIf;
							If vSectionAmount >= 0 Then
								vFR.Price = vSectionAmount;
								vFR.Registration();
							Else
								vFR.Price = -vSectionAmount;
								vFR.Return();
							EndIf;
							If vFR.ResultCode <> 0 Then
								CancelCheque(vFR, NStr("en='CashRegister.PrintCheque'; de='CashRegister.PrintCheque'; ru='ККМ.ПечатьЧека'"), rMessage);
								Return False;
							EndIf;	
						EndDo;