Version 12.0.8

Author: papyrussolution

Src/Include/Pp.h

@@ -3371,12 +3371,11 @@ class ObjVersioningCore : public ObjVerTbl {
 //
 #define OTF_NOZERO           0x0002 // Тег с нулевым значение удаляется //
 #define OTF_NMBRULE          0x0004 // Для тега с числовым значением определено правило
-#define OTF_WARNZERO         0x0008 // Нулевое или отрицательное значение тега является поводом для предупреждения //
-	// оператора (в документах, персональных операциях и т.д.)
-#define OTF_INHERITABLE      0x0010 // Наследуемый tag. Интерпретация флага зависит от типа объектов,
-	// к которому относится tag.
+#define OTF_WARNZERO         0x0008 // Нулевое или отрицательное значение тега является поводом для предупреждения оператора (в документах, персональных операциях и т.д.)
+#define OTF_INHERITABLE      0x0010 // Наследуемый tag. Интерпретация флага зависит от типа объектов, к которому относится tag.
 #define OTF_NOTICEINCASHPANE 0x0020 // Извещение в кассовой панели
 #define OTF_HIERENUM         0x0040 // Иерерхическое перечисление
+#define OTF_PASSIVE          0x0080 // @v12.0.8 Пассивный тег (не отображается в списках)
 
 struct PPObjectTag2 {   // @persistent @store(Reference2Tbl+)
 	PPObjectTag2();
@@ -17035,7 +17034,6 @@ struct ObjTagFilt {
 
 class PPObjTag : public PPObjReference {
 public:
-	// @v10.7.8 (unused) static int     EditEnumListDialog(PPTagEnumList *);
 	static int     CheckForTagFilt(PPID objType, PPID objID, const TagFilt * pFilt);
 	//
 	// Descr: Вспомогательная функция для извлечения тега объекта {objType; objID}
@@ -24394,7 +24392,7 @@ class PPGoodsStruc : public PPExtStrContainer { // @v12.0.6 унаследова
 	//
 	// Descr: Перечисляет элементы структуры с вычислением количества, необходимого
 	//   для комплектации srcQtty единиц составного товара. Требуемое количество
-	//   возвращается по указателю pQtty. Для получения первого элемента по уазателю pPos
+	//   возвращается по указателю pQtty. Для получения первого элемента по указателю pPos
 	//   следует передать значение 0.
 	//   Функция, после каждого успешного вызова, увеличивает значение *pPos на единицу.
 	// Returns:
@@ -24962,6 +24960,7 @@ struct QuotKindFilt {
 	// ограничение (если есть) - максимальное количество хранимых значений.
 #define QUOTKF_NODIS          0x0100L // Если применяется этот вид котировки, то скидки по картам не действуют.
 #define QUOTKF_USEROUNDING    0x0200L // @v10.9.10 Применять округление значений котировок в соответствии с полями PPQuotKind2::RoundingPrec,  PPQuotKind2::RoundingDir
+#define QUOTKF_PASSIVE        0x0400L // @v12.0.8 Пассивный вид котировки (не отображается в списках)
 
 struct PPQuotKind2 { // @flat @persistent @store(Reference2Tbl+)
 	PPQuotKind2();
@@ -53727,15 +53726,16 @@ class PPListDialog : public TDialog {
 	// Descr: Флаги конструктора
 	//
 	enum {
-		fOnDblClkOk    = 0x0001, // При двойном щелчке, если выбран элемент списка завершать работу диалога как по cmOK
+		fOnDblClkOk            = 0x0001, // При двойном щелчке, если выбран элемент списка завершать работу диалога как по cmOK
 		fOmitSearchByFirstChar = 0x0002, // Не выводить окно поиска в ответ на нажатие символьной клавиши
-		fOwnerDraw     = 0x0004, // @v10.3.0 Если установлен, то конструктор вызывает SetOwnerDrawState()
-		fMultiselect   = 0x0008  // @v11.4.3 Допускается множественный выбор в списке
+		fOwnerDraw             = 0x0004, // Если установлен, то конструктор вызывает SetOwnerDrawState()
+		fMultiselect           = 0x0008  // @v11.4.3 Допускается множественный выбор в списке
 	};
 	PPListDialog(uint rezID, uint aCtlList, long flags = 0);
 	int    addStringToList(long id, const char * pText);
 	int    getSelection(long * pID);
-	void   updateList(long, int byPos = 1);
+	void   updateList(long pos);
+	void   updateListById(long id);
 protected:
 	DECL_HANDLE_EVENT;
 	virtual int  setupList();
@@ -55011,7 +55011,15 @@ class CheckPaneDialog : public TDialog, public CPosProcessor {
 	//    0 - ошибка
 	//
 	int    ChZnMarkAutoSelect(PPID goodsID, double qtty, SString & rChZnBuf);
+
+	struct EgaisMarkAutoSelectEntry {
+		PPID   GoodsID;
+		double Qtty;
+		SString Mark;
+	};
+
 	int    EgaisMarkAutoSelect(PPID goodsID, double qtty, SString & rMarkBuf); // @v12.0.7
+	int    Helper_EgaisMarkAutoSelect(PPID goodsID, double qtty, TSCollection <EgaisMarkAutoSelectEntry> & rResult);
 
 	ExtGoodsSelDialog * P_EGSDlg;
 	long   AutoInputTolerance; // Мин среднее время (ms) между вводом символом, ниже которого считается, что данные были введены автоматическим средством ввода (напр. сканером штрихкодов)

Src/Include/SLIB.H

@@ -961,6 +961,19 @@
 #define SLERR_VSLOC_ENUMINSTCALL_FAULT         784 //"ERROR: EnumInstances call failed (0x%08lx)"
 #define SLERR_VSLOC_NEXTINSTCALL_FAULT         785 //"ERROR: While enumerating instances, Next call failed (0x%08lx)"
 
+#define SLERR_RECMGR_INVROWID_POBW             801 // Invalid RowId: битовая ширина смещения на странице выходит за допустимые пределы
+#define SLERR_RECMGR_INVROWID_PDBWFIT          802 // Invalid RowId: битовая ширина смещения на странице не вписывается в размер страницы
+#define SLERR_RECMGR_INVROWID_PAGESEQLO        803 // Invalid RowId: номер страницы ниже допустимой величины
+#define SLERR_RECMGR_INVROWID_PAGESEQUP        804 // Invalid RowId: номер страницы выше допустимой величины
+#define SLERR_RECMGR_INVROWID_OFFSUP           805 // Invalid RowId: смещение выше допустимой величины
+#define SLERR_RECMGR_INVROWID_OFFSOUTOFPG      806 // Invalid RowId: смещение превышает размер странцы
+#define SLERR_RECMGR_INVPAGE_SIGNATURE         806 // Invalid page: signature
+#define SLERR_RECMGR_INVPAGE_ZEROSIZE          807 // Invalid page: size is zero
+#define SLERR_RECMGR_INVPAGE_FIXEDCHUNK        808 // Invalid page: нарушение в определении фиксированного размера записей
+#define SLERR_RECMGR_RECPFX_PAYLOADSIZE        809 // Invalid recprefix: недопустимый размер полезной нагрузки блока
+#define SLERR_RECMGR_RECPFX_SIGNATURE          810 // Invalid recprefix: недопустимая сигнатура в начале блока
+#define SLERR_RECMGR_RECPFX_FLAGS              811 // Invalid recprefix: недопустимые флаги заголовка блока
+
 #define SLERR_ERRNO_OFFSET                    2000 // Смещение с которого начинаются коды ошибок, соответствующие posix-мнемоникам (errno)
 #define SLERR_ERRNO_LAST                      2999 // Максимальное значение для posix errno (если я правильно понял, то errno не имеет официального максимуму потому использую свой собственный).
 

Src/Include/ued-id.h

@@ -1,9 +1,9 @@
-// UED-ID-TEMP.H
+// UED-ID.H
 // version: 34
 // sha256: 5e9cbeca2b7ff057db997ea47b5400d7c63f2e77ac1a15b6a66c2e3d93221a0b
 //
-#ifndef __UED_ID_TEMP_H
-#define __UED_ID_TEMP_H
+#ifndef __UED_ID_H
+#define __UED_ID_H
 
 #define UED_META_META                                0x100000001ULL
 #define UED_META_PREDEFVALUE                         0x100000002ULL
@@ -3692,4 +3692,4 @@
 #define UED_META_INTEGER                             0x197000000ULL
 #define UED_META_DECIMAL                             0x198000000ULL
 
-#endif // __UED_ID_TEMP_H
+#endif // __UED_ID_H

Src/PPEquip/Bht.cpp

@@ -3270,11 +3270,11 @@ int PPObjBHT::PrepareConfigData(const PPBhtTerminalPacket * pPack, StyloBhtIICon
 		for(uint i = 0; i < p_op_list->getCount(); i++) {
 			const SBIIOpInfo & op_info = pPack->P_SBIICfg->P_OpList->at(i);
 			long op_id = op_info.ToHostOpID;
-			PPOprKind op_data;
-			if(op_id && GetOpData(op_id, &op_data) > 0) {
+			PPOprKind op_rec;
+			if(op_id && GetOpData(op_id, &op_rec) > 0) {
 				Sdr_SBIIOpRestr sdr_op;
 				sdr_op.OpID     = op_info.OpID;
-				sdr_op.AccSheet = op_data.AccSheetID;
+				sdr_op.AccSheet = op_rec.AccSheetID;
 				sdr_op.ToBhtOp  = op_info.ToBhtOpID;
 				sdr_op.BhtOkCA  = op_info.BhtOkCancelActions;
 				sdr_op.BhtCfmA  = op_info.BhtCfmActions;

Src/PPLib/Billdlg.cpp

@@ -622,7 +622,7 @@ class BillDialog : public PPListDialog {
 	int    editPaymOrder(int forceUpdateRcvr);
 	int    EditFreight();
 	int    calcAmounts(double * _amt);
-	void   SetupInfoText(); // @v10.9.9 CTL_BILL_ST_SCARD
+	void   SetupInfoText(); // CTL_BILL_ST_SCARD
 	void   setupDebtText();
 	void   setupByCntragnt();
 	void   ReplyCntragntSelection(int force);
@@ -644,25 +644,14 @@ class BillDialog : public PPListDialog {
 	void   SetupAgreementButton();
 	int    EditAgreement();
 	void   SetupPaymDateCtrls();
-	void   SetupMarks()
-	{
-		bool show_autorcpt_mark = false;
-		bool show_whitelabel_mark = false;
-		if(P_Pack) {
-			if(P_Pack->Rec.Flags & BILLF_WHITELABEL)
-				show_whitelabel_mark = true;
-			if(P_Pack->Rec.Flags2 & BILLF2_FORCEDRECEIPT)
-				show_autorcpt_mark = true;
-		}
-		showCtrl(CTL_BILL_IND_AUTORCPT, show_autorcpt_mark);
-		showCtrl(CTL_BILL_IND_WL, show_whitelabel_mark);
-	}
+	void   SetupMarks();
+
 	enum {
-		fPctDis    = 0x0001, // Признак того, что скидка указана в процентах
+		fPctDis            = 0x0001, // Признак того, что скидка указана в процентах
 		fExtMainCurAmount  = 0x0002, // Признак наличия в диалоге полей валюты и валютного курса (CTL_BILL_CUR, CTLSEL_BILL_CUR, CTL_BILL_CRATE, CTL_BILL_BASEAMT)
-		fEditMode  = 0x0004,
+		fEditMode          = 0x0004,
 		fHasAmtIDList      = 0x0008,
-		fModified  = 0x0010,
+		fModified          = 0x0010,
 		fSetupObj2ByCliAgt = 0x0020,
 		fCheckAgreement    = 0x0040, // Включается если в таблице статей установлено использование соглашений
 		fCheckCreditLim    = 0x0080, // Вид операции, возможно, требует проверки кредитного лимита
@@ -756,8 +745,7 @@ int EditGoodsBill(PPBillPacket * pPack, long egbFlags)
 	uint   prn_form = 0;
 	BillDialog * dlg = 0;
 	uint   dlg_id = 0;
-	// @v10.2.3 THROW(r_rt.CheckOpID(pPack->Rec.OpID, PPR_READ));
-	THROW(p_bobj->CheckRightsWithOp(pPack->Rec.OpID, PPR_READ)); // @v10.2.3
+	THROW(p_bobj->CheckRightsWithOp(pPack->Rec.OpID, PPR_READ));
 	if(CheckOpFlags(pPack->Rec.OpID, OPKF_CURTRANSIT)) {
 		THROW(r = EditCurTransitBill(pPack));
 	}
@@ -769,8 +757,7 @@ int EditGoodsBill(PPBillPacket * pPack, long egbFlags)
 		if(egbFlags & PPObjBill::efEdit && egbFlags & PPObjBill::efForceModify/*options == 2*/)
 			dlg->Flags |= BillDialog::fModified;
 		if(egbFlags & PPObjBill::efEdit/*options >= 1*/) {
-			// @v10.2.3 if(!p_bobj->CheckRights(PPR_MOD) || !r_rt.CheckBillDate(pPack->Rec.Dt) || !r_rt.CheckOpID(pPack->Rec.OpID, PPR_MOD)) {
-			if(!p_bobj->CheckRights(PPR_MOD) || !r_rt.CheckBillDate(pPack->Rec) || !p_bobj->CheckRightsWithOp(pPack->Rec.OpID, PPR_MOD)) { // @v10.2.3
+			if(!p_bobj->CheckRights(PPR_MOD) || !r_rt.CheckBillDate(pPack->Rec) || !p_bobj->CheckRightsWithOp(pPack->Rec.OpID, PPR_MOD)) {
 				dlg->enableCommand(cmOK, 0);
 				//options = 3;
 				egbFlags |= PPObjBill::efNoUpdNotif;
@@ -2286,7 +2273,7 @@ void BillDialog::ReplyCntragntSelection(int force)
 	PaymTerm = -1;             // Срок оплаты по документу (в днях), взятый из соглашения //
 	PayDateBase = 0;
 	SString add_msg;
-	PPID   client_id = force ? P_Pack->Rec.Object : getCtrlLong(CTLSEL_BILL_OBJECT);
+	const  PPID   client_id = force ? P_Pack->Rec.Object : getCtrlLong(CTLSEL_BILL_OBJECT);
 	const  int    to_force_update = BIN((force && client_id) || client_id != P_Pack->Rec.Object);
 	if(P_Pack->SampleBillID)
 		P_BObj->SetupQuot(P_Pack, client_id);
@@ -2399,19 +2386,44 @@ void BillDialog::ReplyCntragntSelection(int force)
 				ExecViewAndDestroy(dlg);
 			}
 		}
-		if(client_id && P_Pack->OpTypeID == PPOPT_GOODSRECEIPT && P_Pack->AccSheetID == GetSupplAccSheet() && P_Pack->GetTCount()) {
-			int is_there_force_suppl = 0;
-			uint i;
-			for(i = 0; !is_there_force_suppl && i < P_Pack->GetTCount(); i++) {
-				PPTransferItem & r_ti = P_Pack->TI(i);
-				if(r_ti.Flags & PPTFR_FORCESUPPL)
-					is_there_force_suppl = 1;
-			}
-			if(is_there_force_suppl && CONFIRM(PPCFM_REPLCTIFORCESUPPL)) {
-				for(i = 0; i < P_Pack->GetTCount(); i++) {
-					PPTransferItem & r_ti = P_Pack->TI(i);
-					if(r_ti.Flags & PPTFR_FORCESUPPL)
-						r_ti.Flags &= ~PPTFR_FORCESUPPL;
+		if(client_id) {
+			const uint tcount = P_Pack->GetTCount();
+			if(tcount) {
+				if(P_Pack->AccSheetID == GetSupplAccSheet()) {
+					if(P_Pack->OpTypeID == PPOPT_GOODSRECEIPT) {
+						bool is_there_force_suppl = false;
+						{
+							for(uint i = 0; !is_there_force_suppl && i < tcount; i++) {
+								PPTransferItem & r_ti = P_Pack->TI(i);
+								if(r_ti.Flags & PPTFR_FORCESUPPL)
+									is_there_force_suppl = true;
+							}
+						}
+						if(is_there_force_suppl && CONFIRM(PPCFM_REPLCTIFORCESUPPL)) {
+							for(uint i = 0; i < tcount; i++) {
+								PPTransferItem & r_ti = P_Pack->TI(i);
+								if(r_ti.Flags & PPTFR_FORCESUPPL)
+									r_ti.Flags &= ~PPTFR_FORCESUPPL;
+							}
+						}
+					}
+					else if(P_Pack->OpTypeID == PPOPT_DRAFTRECEIPT) { // @v12.0.8
+						//
+						// В случае, если мы устанавливаем поставщика в драфт-приходе и в какой-то строке цена поступления не определена,
+						// то применяем в этом случае контрактную цену поставщика (если такая есть)
+						//
+						for(uint i = 0; i < tcount; i++) {
+							PPTransferItem & r_ti = P_Pack->TI(i);
+							if(r_ti.Cost == 0.0) {
+								QuotIdent qi(P_Pack->Rec.LocID, 0, P_Pack->Rec.CurID, client_id);
+								PPSupplDeal sd;
+								GObj.GetSupplDeal(r_ti.GoodsID, qi, &sd, 1);
+								if(!sd.IsDisabled && sd.Cost > 0) {
+									r_ti.Cost = sd.Cost;
+								}
+							}
+						}
+					}
 				}
 			}
 		}
@@ -2542,6 +2554,20 @@ void BillDialog::SetupPaymDateCtrls()
 	}
 }
 
+void BillDialog::SetupMarks()
+{
+	bool show_autorcpt_mark = false;
+	bool show_whitelabel_mark = false;
+	if(P_Pack) {
+		if(P_Pack->Rec.Flags & BILLF_WHITELABEL)
+			show_whitelabel_mark = true;
+		if(P_Pack->Rec.Flags2 & BILLF2_FORCEDRECEIPT)
+			show_autorcpt_mark = true;
+	}
+	showCtrl(CTL_BILL_IND_AUTORCPT, show_autorcpt_mark);
+	showCtrl(CTL_BILL_IND_WL, show_whitelabel_mark);
+}
+
 void BillDialog::SetupInfoText()
 {
 	SString info_buf;