Version 10.1.9

Author: papyrussolution

Src/Doc/VERSION.TXT

@@ -15365,4 +15365,6 @@ Ver 1.2 Date 13/09/96
 	!- {��� �������� ����} � ������ �������� �������� "������".
 	!- {����� ��������} ��� ��������� ��� ��������� ��������� ����������.
 	-FIX: {�������� ������ �����} ������ ��� ��������/������� ��������.
+02/09/2018 v10.1.9
+	!- {����� ��������} � ��������� �������� ���������� ��������� ����������� ������������ ��� � ������������ �����.
 

Src/Include/Pp.h

@@ -5130,24 +5130,26 @@ struct AccTurnParam {
 //
 //
 //
-#define CCFLG2_QUOT2               0x00000001L // @v7.1.11 БД использует 2-е поколение котировок
-#define CCFLG2_USESDONPURCHOP      0x00000002L // @v7.2.2  Проекция флага AGTF_USESDONPURCHOP в общем соглашении с поставщиками
-#define CCFLG2_INDEXEADDR          0x00000004L // @v7.3.2  Индексировать телефоны из персоналий и адресов
+#define CCFLG2_QUOT2               0x00000001L // БД использует 2-е поколение котировок
+#define CCFLG2_USESDONPURCHOP      0x00000002L // Проекция флага AGTF_USESDONPURCHOP в общем соглашении с поставщиками
+#define CCFLG2_INDEXEADDR          0x00000004L // Индексировать телефоны из персоналий и адресов
 	// Если этот флаг включен, то в таблицу EAddr записываются все телефоны из создаваемых и изменяемых
 	// персоналий и адресов для ускоренного извлечения объектов, связанных с телефоном.
-#define CCFLG2_SYNCLOT             0x00000008L // @v7.6.1 Синхронизировать лоты
-#define CCFLG2_ADJCPANCCLINETRANS  0x00000010L // @v7.9.6 При преобразовании строки чека из кассовой панели в запись
+#define CCFLG2_SYNCLOT             0x00000008L // Синхронизировать лоты
+#define CCFLG2_ADJCPANCCLINETRANS  0x00000010L // При преобразовании строки чека из кассовой панели в запись
 	// CCheckLine корректировать разницу за счет скидки. Функция CCheckItem::GetRec().
 	// Необходимость в установке пареметра может возникнуть при работе с товарами, которые продаются большими
 	// количествами и по ценам, имеющим более двух знаков после точки.
 	// Возможно, правило такой корректировки должно быть применено во всех случаях, однако, во
 	// избежании проблем с работающими инсталляциями, страхуемся вводом данного параметра.
-#define CCFLG2_USECCHECKEXTPAYM    0x00000020L // @v8.0.0 Использовать расширение оплат по чекам
-#define CCFLG2_DONTUSE3TIERGMTX    0x00000040L // @v8.1.9 Не использовать извлечение товарной матрицы с сервера при 3-tier режиме работы
-#define CCFLG2_USEOMTPAYMAMT       0x00000080L // @v8.5.8 Использовать включенную сумму оплаты по документам
+#define CCFLG2_USECCHECKEXTPAYM    0x00000020L // Использовать расширение оплат по чекам
+#define CCFLG2_DONTUSE3TIERGMTX    0x00000040L // Не использовать извлечение товарной матрицы с сервера при 3-tier режиме работы
+#define CCFLG2_USEOMTPAYMAMT       0x00000080L // Использовать включенную сумму оплаты по документам
 #define CCFLG2_USESARTREDB         0x00000100L // @v9.7.11 Использовать базу данных Sartre (экпериментальная опция)
 #define CCFLG2_USELOTXCODE         0x00000200L // @v9.8.11 Использовать дополнительные коды привязанные к строкам документов (ЕГАИС)
 #define CCFLG2_USELCR2             0x00000400L // @v10.1.5 Использовать 2-ю версию индексации остатков по лотам
+#define CCFLG2_USEVETIS            0x00000800L // @v10.1.9 @transient Использовать функционал ВЕТИС (Меркурий). Определяется динамически
+	// по установленным в конфигурации глобального обмена параметрам доступа к ВЕТИС.
 //
 // Общие параметры конфигурации
 //
@@ -39482,6 +39484,8 @@ class PPViewCCheck : public PPView {
 	int    SLAPI GetReportId() const;
 	int    SLAPI Recover();
 
+	static int DynFuncPosText; // @v10.1.9
+
 	CCheckCore  * P_CC;
 	PPObjCSession CsObj;
 	PPObjGoods  GdsObj;
@@ -44547,7 +44551,12 @@ class VetisEntityCore {
 	int    SLAPI SearchPerson(PPID id, VetisPersonTbl::Rec * pRec);
 	int    SLAPI SearchDocument(PPID id, VetisDocumentTbl::Rec * pRec);
 	int    SLAPI MatchPersonInDocument(PPID docEntityID, int side /*0 - from, 1 - to*/, PPID personID, PPID dlvrLocID, int use_ta);
-	int    SLAPI MatchDocument(PPID docEntityID, PPID billID, int rowN, int use_ta);
+	//
+	// Descr: Сопоставляет ветеринарный документ docEntityID с документом billID и (если !0) со строкой документа
+	//   {billID; rowN}.
+	//   Если параметр fromBill != 0, то считает, что лот {billID; rowN} уже сопоставлен и не модифицирует документ.
+	//
+	int    SLAPI MatchDocument(PPID docEntityID, PPID billID, int rowN, int fromBill, int use_ta);
 
 	VetisEntityTbl ET;
 	VetisProductTbl PiT;
@@ -44567,7 +44576,7 @@ class VetisDocumentFilt : public PPBaseFilt {
 	SLAPI  VetisDocumentFilt();
 	int    FASTCALL GetStatusList(PPIDArray & rList) const;
 
-	uint8  ReserveStart[224]; // @anchor
+	uint8  ReserveStart[208]; // @anchor
 	enum {
 		fkGeneral          = 0,
 		fkInterchangeParam = 1
@@ -44580,6 +44589,8 @@ class VetisDocumentFilt : public PPBaseFilt {
 	enum {
 		fAsSelector      = 0x0001
 	};
+	S_GUID SelLotUuid; // Если установлен флаг fAsSelector, то после закрытия окна таблицы в этом поле будет выбранный идентификатор
+		// При открытии окна текущая позиция будет установлена на записи с этим идентификатором.
 	long   FromPersonID;
 	long   FromLocID;
 	long   ToPersonID;
@@ -44592,7 +44603,7 @@ class VetisDocumentFilt : public PPBaseFilt {
 	DateRange Period;
 	DateRange WayBillPeriod;
 	long    VDStatusFlags;
-	long    Sel;              // Если установлен флаг fAsSelector, то после закрытия окна таблицы в этом поле будет выбранный идентификатор 
+	long    Sel;              // Если установлен флаг fAsSelector, то после закрытия окна таблицы в этом поле будет выбранный идентификатор
 	uint8   ReserveEnd[28];   // @anchor
 };
 
@@ -44624,6 +44635,8 @@ class PPViewVetisDocument : public PPView {
 	int    SLAPI InitIteration();
 	int    SLAPI NextIteration(VetisDocumentViewItem * pItem);
 	int    SLAPI CellStyleFunc_(const void * pData, long col, int paintAction, BrowserWindow::CellStyle * pCellStyle, PPViewBrowser * pBrw);
+
+	VetisEntityCore EC; // public поскольку внешние модули могут захотеть иметь доступ к этому (дорогому) ресурсу
 private:
 	static int DynFuncEntityTextFld;
 	static int DynFuncBMembTextFld;
@@ -44649,7 +44662,6 @@ class PPViewVetisDocument : public PPView {
 	int    SLAPI MatchObject(VetisDocumentTbl::Rec & rRec, int objToMatch);
 
 	VetisDocumentFilt Filt;
-	VetisEntityCore EC;
 	PPID   FromEntityID;
 	PPID   FromEnterpriseID;
 	PPID   ToEntityID;

Src/Include/Private/VERDATA.INC

@@ -1,14 +1,14 @@
 //
 // 	..\INCLUDE\PRIVATE\VERDATA.INC
-// 	2018-08-29T18:37:28
+// 	2018-09-02T18:17:56
 // 	Automaticaly generated file
 // 	Don't modify!
 //
 0x24, 0x00, 0x00, 0x00, 0x33, 0x30, 0x79, 0x61, 0x52, 0x42, 0x44, 0x33, 0x44, 0x4f, 0x57, 0x45, 0x68, 0x31, 0x52, 0x66, 0x56, 0x32, 0x70, 0x74, 0x74, 0x7a, 0x51, 0x4a, 0x50, 0x59, 0x7a, 0x44, 
-0x4a, 0x00, 0x27, 0x67, 0x00, 0x01, 0x00, 0x00, 0x21, 0xb3, 0x60, 0x0c, 0xca, 0x1c, 0x55, 0xdb, 0xbc, 0xd4, 0xcb, 0x05, 0x36, 0xd2, 0x8e, 0x04, 0xc3, 0xb0, 0x21, 0xb7, 0x7a, 0xf5, 0x23, 0x66, 
-0x0c, 0x10, 0xe8, 0x3c, 0x9b, 0xf3, 0xf0, 0x91, 0x83, 0x0a, 0x7e, 0xfe, 0x59, 0x3c, 0xbc, 0x45, 0xe8, 0x87, 0x08, 0x75, 0xee, 0xea, 0xc2, 0xc0, 0x33, 0x04, 0x25, 0xb8, 0x5b, 0x5f, 0x7c, 0xf8, 
-0x7d, 0xc0, 0xc4, 0xcf, 0x38, 0x7d, 0xc6, 0x5c, 0x2d, 0x7a, 0xb3, 0xd3, 0xa1, 0xad, 0xb9, 0x9e, 0x4e, 0xdd, 0x35, 0x6b, 0xcb, 0xda, 0x80, 0x50, 0x29, 0x22, 0x17, 0x87, 0x1b, 0xbc, 0xae, 0xb6, 
-0xe6, 0x8e, 0x4d, 0xb2, 0xa0, 0x9f, 0xef, 0x14, 0x2a, 0x82, 0x34, 0xa5, 0xc4, 0xe3, 0x97, 0x31, 0xd4, 0xe2, 0xde, 0xb9, 0x1d, 0x6c, 0xe6, 0x99, 0x4f, 0x54, 0x28, 0x57, 0x04, 0x59, 0xba, 0x5f, 
-0xd0, 0x01, 0xfc, 0x0c, 0x97, 0x49, 0x89, 0xef, 0x81, 0x50, 0x1a, 0xe9, 0x38, 0xd3, 0x1f, 0x70, 0x2c, 0x9f, 0x2d, 0x75, 0xb3, 0xe4, 0x65, 0x1b, 0x91, 0x77, 0xc5, 0x70, 0x61, 0x73, 0x16, 0x1c, 
-0x0e, 0x26, 0x11, 0x52, 0xad, 0x69, 0xd8, 0xac, 0xb3, 0xda, 0x2e, 0xd2, 0x67, 0xa0, 0x14, 0x3e, 0xb6, 0xe7, 0x83, 0x60, 0x0e, 0xd0, 0x47, 0x11, 0x2a, 0x2c, 0xc2, 0x55, 0x43, 0xa0, 0x59, 0x8a, 
-0xf4, 0x47, 0x3c, 0xef, 0xef, 0x8f, 0x19, 0x8f, 0x26, 0xc3, 0xad, 0xb7, 0x28, 0x98, 0xbe, 0x2f, 0x81, 0x98, 0x17, 0x08, 0xa9, 0x95, 0x83, 0xed, 0x8a, 0x14, 0x2b, 0x33, 0x53, 0xe5, 0x38, 0x7a
+0x4a, 0x00, 0xaf, 0x9d, 0x00, 0x01, 0x00, 0x00, 0x21, 0xb3, 0x60, 0x0c, 0xca, 0x1c, 0x55, 0xdb, 0xbc, 0xd4, 0xcb, 0x05, 0x37, 0xd2, 0x8e, 0x04, 0x28, 0xd4, 0x57, 0x28, 0x0b, 0x73, 0x34, 0xfa, 
+0xf0, 0x98, 0xdc, 0xa5, 0x51, 0xde, 0xf3, 0xa4, 0x4a, 0xa8, 0xc0, 0x6f, 0x8e, 0x5d, 0xff, 0x60, 0xdc, 0x20, 0xe0, 0x5c, 0xfd, 0x10, 0x60, 0x0c, 0xce, 0xaf, 0x17, 0x51, 0x18, 0xba, 0x0b, 0xa5, 
+0xf9, 0xa3, 0x00, 0x68, 0x0f, 0xc0, 0x54, 0xf6, 0x5a, 0x87, 0x37, 0x18, 0x39, 0x2c, 0x0f, 0x5a, 0xd0, 0x5c, 0x21, 0x08, 0x20, 0x88, 0x4f, 0x50, 0xb7, 0xd8, 0xc2, 0xb6, 0xc9, 0xcb, 0xe5, 0x79, 
+0xd0, 0x2d, 0x6a, 0xb7, 0x41, 0x6d, 0x46, 0x97, 0x31, 0x3c, 0xc3, 0x63, 0xcf, 0xb7, 0x09, 0xd5, 0x92, 0xca, 0x13, 0x53, 0xc3, 0x67, 0x70, 0xac, 0x0c, 0x7c, 0x75, 0xb9, 0xa0, 0xda, 0x67, 0x6a, 
+0x16, 0xbf, 0x5c, 0x5a, 0x7d, 0xe6, 0xe1, 0xb1, 0x79, 0xe3, 0xc7, 0x06, 0xad, 0x45, 0xac, 0xde, 0x5d, 0xfe, 0x8a, 0x30, 0x0c, 0x4f, 0xcb, 0xe2, 0x5c, 0x67, 0xad, 0xa0, 0x01, 0x65, 0x8d, 0x2f, 
+0xa4, 0xe3, 0xc9, 0x73, 0xef, 0xd1, 0xd5, 0xb9, 0x89, 0xc3, 0xfb, 0x62, 0x25, 0x2a, 0x5c, 0xc7, 0xda, 0x33, 0xaa, 0xb3, 0x96, 0x54, 0x2c, 0x95, 0xd6, 0x89, 0xbf, 0x30, 0xd0, 0xba, 0x1f, 0xe2, 
+0x87, 0x6c, 0xe0, 0x02, 0xf8, 0x0c, 0x5c, 0xd3, 0xa3, 0x42, 0x82, 0x07, 0x85, 0xe4, 0xc7, 0x9e, 0xd0, 0x6a, 0xb4, 0x67, 0x7f, 0x5a, 0x4a, 0x60, 0x24, 0xc6, 0x6b, 0xd7, 0xee, 0xd3, 0xc1, 0xad

Src/PPEquip/EquipDll/BnkSberbank.cpp

@@ -243,16 +243,11 @@ typedef int (__cdecl * TestPinpadProc)();
 
 class PPDrvSberTrmnl : public PPBaseDriver {
 public:
-	PPDrvSberTrmnl()
+	PPDrvSberTrmnl() : LogNum(0), P_Lib(0), CardAuth(0), CloseDay(0), TestPinpad(0)
 	{
-		LogNum = 0;
-		P_Lib = 0;
-		CardAuth = 0;
-		CloseDay = 0;
-		TestPinpad = 0;
-		//GlobalFree = 0;
 		SString file_name;
 		getExecPath(file_name);
+		(SlipLogFileName = file_name).SetLastSlash().Cat("SberTrmnl_Slip.log"); // @v10.1.9
 		DRVS.SetLogFileName(file_name.SetLastSlash().Cat("SberTrmnl.log"));
 	}
 	~PPDrvSberTrmnl() 
@@ -270,11 +265,11 @@ class PPDrvSberTrmnl : public PPBaseDriver {
 private:
 	long   LogNum;
 	SString SlipFileName;
+	SString SlipLogFileName;
 	SDynLibrary * P_Lib;
 	CardAuthProc   CardAuth;
     CloseDayProc   CloseDay;
 	TestPinpadProc TestPinpad;
-	//GlobalFreeProc GlobalFree;
 };
 
 static PPDrvSession::TextTableEntry _ErrMsgTab[] = {
@@ -485,7 +480,7 @@ PPDRV_INSTANCE_ERRTAB(SberTrmnl, 1, 0, PPDrvSberTrmnl, _ErrMsgTab);
 int PPDrvSberTrmnl::Init(const char * pLibPath)
 {
 	int    ok = 1;
-	SlipFileName = 0;
+	SlipFileName.Z();
 	if(P_Lib) {
 		CardAuth = 0;
 		CloseDay = 0;
@@ -587,6 +582,14 @@ int PPDrvSberTrmnl::Pay(double amount, SString & rSlip)
 	THROWERR((result = CardAuth(0, &auth_answr)) == SBRBNK_ERR_OK, SBRBNK_ERR_PAY); // Будем надеяться, что код ошибки и так вернет
 	if(!isempty(auth_answr.P_Check)) {
 		rSlip = auth_answr.P_Check;
+		// @v10.1.9 {
+		{
+			SString temp_buf;
+			temp_buf.Cat(getcurdatetime_(), DATF_DMY|DATF_CENTURY, TIMF_HMS);
+			SLS.LogMessage(SlipLogFileName, temp_buf, 8192);
+			SLS.LogMessage(SlipLogFileName, rSlip, 8192);
+		}
+		// } @v10.1.9 
 		::GlobalFree(auth_answr.P_Check);
 		auth_answr.P_Check = 0;
 	}
@@ -620,6 +623,14 @@ int PPDrvSberTrmnl::Refund(double amount, SString & rSlip)
 	THROWERR((result = CardAuth(0, &auth_answr)) == SBRBNK_ERR_OK, SBRBNK_ERR_REFUND); // Будем надеяться, что код ошибки и так вернет
 	if(!isempty(auth_answr.P_Check)) {
 		rSlip = auth_answr.P_Check;
+		// @v10.1.9 {
+		{
+			SString temp_buf;
+			temp_buf.Cat(getcurdatetime_(), DATF_DMY|DATF_CENTURY, TIMF_HMS);
+			SLS.LogMessage(SlipLogFileName, temp_buf, 8192);
+			SLS.LogMessage(SlipLogFileName, rSlip, 8192);
+		}
+		// } @v10.1.9 
 		::GlobalFree(auth_answr.P_Check);
 		auth_answr.P_Check = 0;
 	}

Src/PPEquip/EquipDll/Pirit/Pirit.cpp

@@ -232,7 +232,7 @@ class PiritEquip {
 	public:
 		OpLogBlock(const char * pLogFileName, const char * pOp, const char * pExtMsg) : StartClk(clock()), Op(pOp), ExtMsg(pExtMsg)
 		{
-			LogFileName = 0/*pLogFileName*/; // @v9.7.1 pLogFileName-->0
+			//LogFileName = 0/*pLogFileName*/; // @v9.7.1 pLogFileName-->0
 			LogFileName = pLogFileName;
 			if(LogFileName.NotEmpty() && Op.NotEmpty()) {
 				SString line_buf;

Src/PPLib/Trfridlg.cpp

@@ -848,22 +848,44 @@ IMPL_HANDLE_EVENT(TrfrItemDialog)
 					}
 					break;
 				case cmVetisMatch: // @v10.1.8
-					if(checkdate(P_Pack->Rec.Dt)) {
+					if(Item.Flags & PPTFR_RECEIPT && CConfig.Flags2 & CCFLG2_USEVETIS && checkdate(P_Pack->Rec.Dt)) {
 						const PPID suppl_person_id = ObjectToPerson(P_Pack->Rec.Object, 0);
 						if(suppl_person_id) {
-							/* @construction
+							SString temp_buf;
 							VetisDocumentFilt vetis_filt;
 							vetis_filt.VDStatusFlags = (1<<vetisdocstCONFIRMED) | (1<<vetisdocstUTILIZED);
 							vetis_filt.Period.Set(plusdate(P_Pack->Rec.Dt, -3), P_Pack->Rec.Dt);
 							vetis_filt.FromPersonID = suppl_person_id;
 							vetis_filt.Flags |= (VetisDocumentFilt::fAsSelector);
+							if(P_Pack->LTagL.GetNumber(PPTAG_LOT_VETIS_UUID, ItemNo, temp_buf) > 0) {
+								vetis_filt.SelLotUuid.FromStr(temp_buf);
+							}
 							PPViewVetisDocument vetis_view;
 							if(vetis_view.Init_(&vetis_filt)) {
+								//temp_buf.Z().Cat(P_Pack->R)
+								PPObjBill::MakeCodeString(&P_Pack->Rec, 0, temp_buf);
+								SString item_info_buf;
+								GetGoodsName(Item.GoodsID, item_info_buf);
+								double phupu = 0.0;
+								if(GObj.GetPhUPerU(Item.GoodsID, 0, &phupu) > 0 && phupu > 0.0) {
+									item_info_buf.Space().Cat(fabs(Item.Quantity_) * phupu, MKSFMTD(0, 3, 0));
+								}
+								temp_buf.CatDiv('-', 1).Cat(item_info_buf);
+								vetis_view.SetOuterTitle(temp_buf);
+								//
 								if(vetis_view.Browse(0) > 0) {
-									PPID vetis_doc_id = ((VetisDocumentFilt *)vetis_view.GetBaseFilt())->Sel;
+									VetisDocumentFilt * p_result_filt = (VetisDocumentFilt *)vetis_view.GetBaseFilt();
+									PPID vetis_doc_id = p_result_filt->Sel;
+									if(!!p_result_filt->SelLotUuid && vetis_doc_id) {
+										p_result_filt->SelLotUuid.ToStr(S_GUID::fmtIDL, temp_buf);
+										P_Pack->LTagL.AddNumber(PPTAG_LOT_VETIS_UUID, ItemNo, temp_buf);
+										if(P_Pack->Rec.ID && Item.RByBill > 0 && Item.LotID) {
+											if(!vetis_view.EC.MatchDocument(vetis_doc_id, P_Pack->Rec.ID, Item.RByBill, 1/*fromBill*/, 1)) 
+												PPError();
+										}
+									}
 								}
 							}
-							*/
 						}
 					}
 					break;