Ïåðåì ÎïèñàíèåÐåçóëüòàòà;

//******************************************************************************
Ôóíêöèÿ Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò)
Âîçâðàò Îáúåêò.ResultCodeDescription;
ÊîíåöÔóíêöèè // Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà()

//********************************************************************************
Ôóíêöèÿ Ïîäêëþ÷èòüñÿÊÔÐ(Îáúåêò, Ïàðîëü)
Ðåç = 0;

Îáúåêò.Password=Ïàðîëü;
Îáúåêò.Connect();

Îòâåò = Îáúåêò.ResultCode;
Åñëè Îòâåò=0 Òîãäà
Ðåç=1;
针֌
ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
ÊîíåöÅñëè;

Âîçâðàò Ðåç;
ÊîíåöÔóíêöèè

//********************************************************************************
Ôóíêöèÿ Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü, ÇàïîìèíàòüÎøèáêó = 1)
Ðåç = 0;

// ïåêëþ÷èì ÔÐ â íåðàáî÷èé ðåæèì
Îáúåêò.Password=Ïàðîëü;
Îáúåêò.Disconnect();

Îòâåò = Îáúåêò.ResultCode;
Åñëè Îòâåò=0 Òîãäà
Ðåç=1;
Èíà÷åÅñëè ÇàïîìèíàòüÎøèáêó = 1 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
ÊîíåöÅñëè;

Âîçâðàò Ðåç;
ÊîíåöÔóíêöèè

//********************************************************************************
Ôóíêöèÿ Ïîäêëþ÷èòü(Êîìïîíåíòà, ÏðîãÈä, Îáúåêò, Ïàðîëü)
Ðåç = 0;

Åñëè ÇàãðóçèòüÂíåøíþþÊîìïîíåíòó(Êîìïîíåíòà) = 0 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = "íå óäàëîñü çàãðóçèòü âíåøíþþ êîìïîíåíòó """ + Êîìïîíåíòà + """";
针֌
Ïîïûòêà
Îáúåêò = ÑîçäàòüÎáúåêò("AddIn." + ÏðîãÈä); // Ñîçäàíèå îáúåêòà âíåøíåé êîìïîíåíòû
Èñêëþ÷åíèå
ÊîíåöÏîïûòêè;

Åñëè ÏóñòîåÇíà÷åíèå(Îáúåêò) = 1 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = "íå óäàëîñü ñîçäàòü îáúåêò âíåøíåé êîìïîíåíòû ñ ïðîãðàììûì èäåíòèôèêàòðîì AddIn." + ÏðîãÈä;
针֌
Ðåç = 1;
ÊîíåöÅñëè;
ÊîíåöÅñëè;

Âîçâðàò Ðåç;
ÊîíåöÔóíêöèè

//********************************************************************************
Ôóíêöèÿ Îòêëþ÷èòü(Îáúåêò, Ïàðîëü)
Ðåç = 0;

Åñëè ÏóñòîåÇíà÷åíèå(Îáúåêò) = 1 Òîãäà
Ðåç = 1; // íåò îáúåêòà, íè÷åãî íå íóæíî îòêëþ÷àòü
针֌
Ðåç = Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü);
ÊîíåöÅñëè;

Âîçâðàò Ðåç;
ÊîíåöÔóíêöèè

//********************************************************************************
Ïðîöåäóðà Îòðåçàòü×åê(Îáúåêò, Ïàðîëü)
Îøèáêà=80; //Èäåò ïå÷àòü ïðåäûäóùåé êîìàíäû

Ïîêà Îøèáêà=80 Öèêë
Ïîïûòêà
Îáúåêò.Password = Ïàðîëü;
Îáúåêò.CutType = 1;
Îáúåêò.CutCheck();

Îøèáêà=Îáúåêò.ResultCode;
Èñêëþ÷åíèå
Îøèáêà=-1;
ÊîíåöÏîïûòêè;
ÊîíåöÖèêëà;

ÊîíåöÏðîöåäóðû

//********************************************************************************
Ïðîöåäóðà Àííóëèðîâàíèå×åêà(Îáúåêò, Ïàðîëü)
Ïîïûòêà
Îáúåêò.Password=Ïàðîëü;
Îáúåêò.CancelCheck();
Èñêëþ÷åíèå
ÊîíåöÏîïûòêè;
ÊîíåöÏðîöåäóðû

//********************************************************************************
Ôóíêöèÿ Ïå÷àòàòü×åê(Îáúåêò, Ïàðîëü, ÑïèñîêÒîâàðîâ, Ïîëó÷åíî, Ñêèäêà, ÏðèçíÂîçâðàòà, ÍîìåðÑåêöèè, Íîìåð×åêà)

Åñëè ÏóñòîåÇíà÷åíèå(Îáúåêò) = 1 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = "óñòðîéñòâî íå ïîäêëþ÷åíî";
Âîçâðàò 0;
Èíà÷åÅñëè Ïîäêëþ÷èòüñÿÊÔÐ(Îáúåêò, Ïàðîëü) = 0 Òîãäà
Âîçâðàò 0;
ÊîíåöÅñëè;

// ðåãèñòðàöèÿ òîâàðîâ

// Îòêðûâàåì ÷åê ïðîäàæè
Åñëè ÏðèçíÂîçâðàòà = 0 Òîãäà
Îáúåêò.CheckType = 0; // 0-ïðîäàæà, 2- âîçâðàò ïðîäàæè;
针֌
Îáúåêò.CheckType = 2; // 0-ïðîäàæà, 2- âîçâðàò ïðîäàæè;
ÊîíåöÅñëè;


ÑïèñîêÒîâàðîâ.ÂûáðàòüÑòðîêè();

Ïîêà ÑïèñîêÒîâàðîâ.Ïîëó÷èòüÑòðîêó() = 1 Öèêë
nalog = ÑïèñîêÒîâàðîâ.nalog;
Ïîêóïàòåëü = ÑïèñîêÒîâàðîâ.Ïîêóïàòåëü;
ÈÍÍ_ïîêóïàòåëÿ = ÑïèñîêÒîâàðîâ.ÈÍÍ_ïîêóïàòåëÿ;
ïðåðâàòü;
ÊîíåöÖèêëà;

íàëîã=0;
Åñëè nalog = 1 Òîãäà
ÑòàâêàÍÄÑ=18;
íàëîã = 1;
针֌
ÑòàâêàÍÄÑ=0;
íàëîã =8;
ÊîíåöÅñëè;


//ïå÷àòü íàëîãà
//Îáúåêò.TableNumber=18;
//Îáúåêò.RowNumber =1;
//Îáúåêò.FieldNumber =5;
//Îáúåêò.ValueofFieldInteger=íàëîã;
//Îáúåêò.GetFieldStruct();
//Îáúåêò.WriteTable();

// ***************************************** ÎÑÍ
//Åñëè nalog = 1 Òîãäà
// Îáúåêò.TaxType =1;
//针֌
// Îáúåêò.TaxType =8;
//ÊîíåöÅñëè;
//
// Åñëè Îáúåêò.ResultCode <> 0 Òîãäà
// ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
// Àííóëèðîâàíèå×åêà(Îáúåêò, Ïàðîëü);
// Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü, 0);
// Âîçâðàò 0;
// ÊîíåöÅñëè;

// ************************************ îòêðûòü ÷åê
Îáúåêò.OpenCheck();


// ***************************************** òåãè
Åñëè ÈÍÍ_ïîêóïàòåëÿ<>"" òîãäà

Åñëè ÑòðÄëèíà(ÈÍÍ_ïîêóïàòåëÿ) =10 òîãäà

ÈÍÍ_ïîêóïàòåëÿ = Ñòðîêà(ÈÍÍ_ïîêóïàòåëÿ + " ");

ÊîíåöÅñëè;
//ïå÷àòü Îðãàíèçàöèè
Îáúåêò.Password = 30;
Îáúåêò.TagNumber = 1227; //TagNumber
Îáúåêò.TagType = 7; //TagType
Îáúåêò.TagValueStr = Ïîêóïàòåëü; //TagValueStr
Îáúåêò.FNSendTag();// îòïðàâêà òåãà

//ïå÷àòü ÈÍÍ
Îáúåêò.Password = 30;
Îáúåêò.ÍîìåðÒåãà = 1228; //TagNumber
Îáúåêò.TagType = 7; //TagType
Îáúåêò.TagValueStr = ÈÍÍ_ïîêóïàòåëÿ; //TagValueStr
Îáúåêò.FNSendTag();// îòïðàâêà òåãà
ÊîíåöÅñëè;

Åñëè Îáúåêò.ResultCode <> 0 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
Àííóëèðîâàíèå×åêà(Îáúåêò, Ïàðîëü);
Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü, 0);
Âîçâðàò 0;
ÊîíåöÅñëè;


// Îáúåêò.TaxType =4; // êîä íàëîãîîáëàæåíèÿ // Ïðèìåíÿåìàÿ ñèñòåìà íàëîãîîáëàæåíèÿ â ÷åêå:ÎÑÍ - 1;ÓÑÍ äîõîä - 2;ÓÑÍ äîõîä-ðàñõîä - 4;ÅÍÂÄ - 8;ÅÑÍ - 16;ÏÑÍ - 32;

// çàïèñàòü ñâåäåíèÿ î Åìåëå
//Îáúåêò.CustomerEmail = "";
//Îáúåêò.FNSendCustomerEmail();

//Äëÿ í=1 ïî 6000 öèêë
// ñîîáùèòü();
//ÊîíåöÖèêëà;

ÐåçÐåãèñòðàöèÿ = 1;
ÑïèñîêÒîâàðîâ.ÂûáðàòüÑòðîêè();

ñóì=0;

// ***************************************** ðåãèñòðàöèÿ ïîçèöèé



// Îáúåêò.FNOperation();

//Åñëè ÏðèçíÂîçâðàòà = 0 Òîãäà
// Îáúåêò.CheckType = 1; // 1-ïðîäàæà, 2- âîçâðàò ïðîäàæè;
//针֌
// Îáúåêò.CheckType = 2; // 1-ïðîäàæà, 2- âîçâðàò ïðîäàæè;
//ÊîíåöÅñëè;
//
//Îáúåêò.Quantity = Êîëè÷åñòâî;
//Îáúåêò.Price = ÖåíàÑîÑêèäêîé;
//Îáúåêò.Summ1Enable = 0;
//Îáúåêò.Summ1 = ÖåíàÑîÑêèäêîé;
// Åñëè nalog = 1 Òîãäà
// Îáúåêò.Tax1 = 1;
// 针֌
// Îáúåêò.Tax1 = 4;
//ÊîíåöÅñëè;
//
//Îáúåêò.PaymentTypeSign = ;
//Îáúåêò.PaymentItemSign = ;
//Îáúåêò.StringForPrinting = ÑòðîêàÄëÿÏå÷àòè;


// ***************************************** ðåãèñòðàöèÿ ïîçèöèé

Ïîêà ÑïèñîêÒîâàðîâ.Ïîëó÷èòüÑòðîêó() = 1 Öèêë

Êîëè÷åñòâî = ÑïèñîêÒîâàðîâ.Êîëè÷åñòâî;

Åñëè Ñêèäêà<>"" òîãäà
ÖåíàÑîÑêèäêîé = ÑïèñîêÒîâàðîâ.Ñóììà;
Êîëè÷åñòâî =1;
ÑòðîêàÄëÿÏå÷àòè = Ñòðîêà(ÑîêðËÏ(ÑïèñîêÒîâàðîâ.ÒîâÍàèì + " êîë: " + Êîëè÷åñòâî + "øò. öåíà " +ÑïèñîêÒîâàðîâ.Öåíà));
针֌
ÖåíàÑîÑêèäêîé = ÑïèñîêÒîâàðîâ.Öåíà;
Êîëè÷åñòâî = ÑïèñîêÒîâàðîâ.Êîëè÷åñòâî;
ÑòðîêàÄëÿÏå÷àòè = ÑîêðËÏ(ÑïèñîêÒîâàðîâ.ÒîâÍàèì);
ÊîíåöÅñëè;

Îáúåêò.Password = Ïàðîëü;
Îáúåêò.StringForPrinting = "";
Îáúåêò.Price = ÖåíàÑîÑêèäêîé;
Îáúåêò.Quantity = Êîëè÷åñòâî;
Îáúåêò.Department = ÍîìåðÑåêöèè;

ÄëèíàÑòðîêè = 0;

Åñëè nalog = 1 Òîãäà
Îáúåêò.Tax1 = 1;
针֌
Îáúåêò.Tax1 = 4;
ÊîíåöÅñëè;
Îáúåêò.Tax2 = 0;
Îáúåêò.Tax3 = 0;
Îáúåêò.Tax4 = 0;


Åñëè ÏðèçíÂîçâðàòà = 0 Òîãäà
Îáúåêò.Sale();
针֌
Îáúåêò.ReturnSale();
ÊîíåöÅñëè;


Åñëè ÏóñòîåÇíà÷åíèå(ÄëèíàÑòðîêè) = 1 Òîãäà
Îáúåêò.StringForPrinting = ÑòðîêàÄëÿÏå÷àòè;
Îáúåêò.PrintString();
针֌
Ïîêà ÑòðÄëèíà(ÑòðîêàÄëÿÏå÷àòè)>0 Öèêë
Îáúåêò.StringForPrinting = Ëåâ(ÑòðîêàÄëÿÏå÷àòè,ÄëèíàÑòðîêè);
Îáúåêò.PrintString();
ÑòðîêàÄëÿÏå÷àòè = ÑîêðËÏ(Ñðåä(ÑòðîêàÄëÿÏå÷àòè,ÄëèíàÑòðîêè+1));
ÊîíåöÖèêëà;
ÊîíåöÅñëè;

Åñëè Îáúåêò.ResultCode <> 0 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
Àííóëèðîâàíèå×åêà(Îáúåêò, Ïàðîëü);
Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü, 0);
Âîçâðàò 0;
ÊîíåöÅñëè;

//ñóììà = ÖåíàÑîÑêèäêîé * Êîëè÷åñòâî;
//ñóì = ñóì + ñóììà;

ÊîíåöÖèêëà;

Îáúåêò.Password = Ïàðîëü;
Îáúåêò.Summ1 = Ïîëó÷åíî;
Îáúåêò.Summ2 = 0;
Îáúåêò.Summ3 = 0;
Îáúåêò.Summ4 = 0;
Îáúåêò.Summ5 = 0;
Îáúåêò.Summ6 = 0;
Îáúåêò.Summ7 = 0;
Îáúåêò.Summ8 = 0;
Îáúåêò.Summ9 = 0;
Îáúåêò.Summ10 = 0;
Îáúåêò.Summ11 = 0;
Îáúåêò.Summ12 = 0;
Îáúåêò.Summ13 = 0;
Îáúåêò.Summ14 = 0;
Îáúåêò.Summ15 = 0;
Îáúåêò.Summ16 = 0;
Îáúåêò.StringForPrinting=" ";


// Îáúåêò.DiscountOnCheck=Ñêèäêà;
// Îáúåêò.CloseCheck();

Åñëè nalog = 1 Òîãäà
Îáúåêò.TaxType =1;
针֌
Îáúåêò.TaxType =8;
ÊîíåöÅñëè;

ñîîáùèòü("íîðì");

Äëÿ í=1 ïî 6000 öèêë
//ñîîáùèòü();
ÊîíåöÖèêëà;



Îáúåêò.FNCloseCheckEx();

Åñëè Îáúåêò.ResultCode <> 0 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
Àííóëèðîâàíèå×åêà(Îáúåêò, Ïàðîëü);
Îòðåçàòü×åê(Îáúåêò, Ïàðîëü);
Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü, 0);
Âîçâðàò 0;
ÊîíåöÅñëè;

Îáúåêò.Password = Ïàðîëü;
Îáúåêò.GetECRStatus();

Åñëè Îáúåêò.ResultCode <> 0 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü, 0);
Âîçâðàò 0;
ÊîíåöÅñëè;

Íîìåð×åêà = Îáúåêò.OpenDocumentNumber+?(Îáúåêò.ECRAdvancedMode=5,1,0);

Îòðåçàòü×åê(Îáúåêò, Ïàðîëü);

Âîçâðàò Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü);

ÊîíåöÔóíêöèè

//********************************************************************************
Ôóíêöèÿ ÇàêðûòüÑìåíó(Îáúåêò, Ïàðîëü, ÍîìåðËåíòû)
Ðåç = 0;

Åñëè ÏóñòîåÇíà÷åíèå(Îáúåêò) = 1 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = "óñòðîéñòâî íå ïîäêëþ÷åíî";
Èíà÷åÅñëè Ïîäêëþ÷èòüñÿÊÔÐ(Îáúåêò, Ïàðîëü) = 1 Òîãäà
// ïåðåêëþ÷åíèå â ðåæèì ñíÿòèÿ îò÷åòà (íóæåí ïàðîëü àäìèíèñòðàòîðà)
Îáúåêò.Password = Ïàðîëü;
Îáúåêò.PrintReportWithCleaning();

Åñëè Îáúåêò.ResultCode <> 0 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü, 0);
Âîçâðàò 0;
ÊîíåöÅñëè;

Îáúåêò.Password = Ïàðîëü;
Îáúåêò.GetECRStatus();

Åñëè Îáúåêò.ResultCode <> 0 Òîãäà
ÎïèñàíèåÐåçóëüòàòà = Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò);
Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü, 0);
Âîçâðàò 0;
ÊîíåöÅñëè;

ÍîìåðËåíòû = Îáúåêò.SessionNumber+?(Îáúåêò.ECRAdvancedMode=5,1,0);

Îòðåçàòü×åê(Îáúåêò, Ïàðîëü);

Ðåç = Îòêëþ÷èòüñÿÎòÔÐ(Îáúåêò, Ïàðîëü);
ÊîíåöÅñëè;

Âîçâðàò Ðåç;
ÊîíåöÔóíêöèè

//********************************************************************************
Ôóíêöèÿ ÏðîâåðêàÏàðîëÿ (Ïàðîëü)
Åñëè ÏóñòàÿÑòðîêà(Ïàðîëü) = 1 Òîãäà
Îòâåò = "íåïðàâèëüíî óêàçàí ïàðîëü ïîëüçîâàòåëÿ";
Âîçâðàò Îòâåò;
针֌
Ïîïûòêà
Ïàðîëü×èñëîì = ×èñëî(Ïàðîëü);
Èñêëþ÷åíèå
Îòâåò = "íåïðàâèëüíî óêàçàí ïàðîëü ïîëüçîâàòåëÿ";
Âîçâðàò Îòâåò;
ÊîíåöÏîïûòêè;
ÊîíåöÅñëè;

Âîçâðàò "";
ÊîíåöÔóíêöèè

//********************************************************************************
Ïðîöåäóðà ÏðèÎòêðûòèè()
Ïåðåì Îáúåêò, Íîìåð×åêà, ÍîìåðËåíòû, Ïàðàì;

ÑòàòóñÂîçâðàòà(0);
Ôîðìà.Ïàðàìåòð.Âûãðóçèòü(Ïàðàì);
Ôîðìà.Ïàðàìåòð.ÓäàëèòüÂñå();

Åñëè Ïàðàì.ÐàçìåðÑïèñêà() = 0 Òîãäà
Ðåç = 0;
ÎïèñàíèåÐåçóëüòàòà = "â îáðàáîòêó íå ïåðåäàíû ïàðàìåòðû";
针֌

Ïðîöåññ = ÍÐåã(Ïàðàì.Ïîëó÷èòü("Ïðîöåññ"));

Åñëè Ïðîöåññ = "ïîäêëþ÷èòü" Òîãäà

Êîìïîíåíòà = Ïàðàì.Ïîëó÷èòü("Êîìïîíåíòà");
ÏðîãÈä = Ïàðàì.Ïîëó÷èòü("ÏðîãÈä");
Ïàðîëü = Ïàðàì.Ïîëó÷èòü("ÏàðîëüÏîëüçîâàòåëÿ");

ÎïèñàíèåÐåçóëüòàòà = ÏðîâåðêàÏàðîëÿ (Ïàðîëü);
Åñëè ÎïèñàíèåÐåçóëüòàòà <> "" Òîãäà
Ðåç = 0;
针֌
Ðåç = Ïîäêëþ÷èòü(Êîìïîíåíòà, ÏðîãÈä, Îáúåêò, Ïàðîëü);
Ôîðìà.Ïàðàìåòð.Óñòàíîâèòü("Îáúåêò", Îáúåêò);
ÊîíåöÅñëè;

Èíà÷åÅñëè Ïðîöåññ = "îòêëþ÷èòü" Òîãäà

Ðåç = Îòêëþ÷èòü(Îáúåêò, Ïàðîëü);

Èíà÷åÅñëè Ïðîöåññ = "ïå÷àòàòü_÷åê" Òîãäà
Îáúåêò = Ïàðàì.Ïîëó÷èòü("Îáúåêò");
Ïàðîëü = Ïàðàì.Ïîëó÷èòü("ÏàðîëüÏîëüçîâàòåëÿ");
ÑïèñîêÒîâàðîâ = Ïàðàì.Ïîëó÷èòü("ÑïèñîêÒîâàðîâ");
Ïîëó÷åíî = Ïàðàì.Ïîëó÷èòü("Ïîëó÷åíî");
×åêÍàÂîçâðàò = Ïàðàì.Ïîëó÷èòü("Âîçâðàò");
ÍîìåðÑåêöèè = Ïàðàì.Ïîëó÷èòü("ÍîìåðÑåêöèè");
Ñêèäêà = Ïàðàì.Ïîëó÷èòü("Ñêèäêà");

ÎïèñàíèåÐåçóëüòàòà = ÏðîâåðêàÏàðîëÿ (Ïàðîëü);
Åñëè ÎïèñàíèåÐåçóëüòàòà <> "" Òîãäà
Ðåç = 0;
针֌
Ðåç = Ïå÷àòàòü×åê(Îáúåêò, Ïàðîëü, ÑïèñîêÒîâàðîâ, Ïîëó÷åíî, Ñêèäêà, ×åêÍàÂîçâðàò, ÍîìåðÑåêöèè, Íîìåð×åêà);
Ôîðìà.Ïàðàìåòð.Óñòàíîâèòü("Íîìåð×åêà", Íîìåð×åêà);
ÊîíåöÅñëè;


Èíà÷åÅñëè Ïðîöåññ = "çàêðûòü_ñìåíó" Òîãäà
Îáúåêò = Ïàðàì.Ïîëó÷èòü("Îáúåêò");
Ïàðîëü = Ïàðàì.Ïîëó÷èòü("ÏàðîëüÀäìèíèñòðàòîðà");

Åñëè ×èñëî(Ïàðîëü)=0 Òîãäà
Ðåç = 0;
ÎïèñàíèåÐåçóëüòàòà = "íåïðàâèëüíî óêàçàí ïàðîëü àäìèíèñòðàòîðà";
针֌
Ðåç = ÇàêðûòüÑìåíó(Îáúåêò, Ïàðîëü, ÍîìåðËåíòû);
Ôîðìà.Ïàðàìåòð.Óñòàíîâèòü("ÍîìåðËåíòû", ÍîìåðËåíòû);
ÊîíåöÅñëè;

针֌
ÎïèñàíèåÐåçóëüòàòà = "íåèçâåñòíàÿ êîìàíäà";
Ðåç = 0;

ÊîíåöÅñëè;
ÊîíåöÅñëè;

Ôîðìà.Ïàðàìåòð.Óñòàíîâèòü("Ðåçóëüòàò" , Ðåç);
Ôîðìà.Ïàðàìåòð.Óñòàíîâèòü("ÎïèñàíèåÐåçóëüòàòà", ÎïèñàíèåÐåçóëüòàòà);

ÊîíåöÏðîöåäóðû

//********************************************************************************
ÎïèñàíèåÐåçóëüòàòà = "";

Перем ОписаниеРезультата;

//******************************************************************************
Функция ПолучитьОписаниеРезультата(Объект)
Возврат Объект.ResultCodeDescription;
КонецФункции // ПолучитьОписаниеРезультата()

//********************************************************************************
Функция ПодключитьсяКФР(Объект, Пароль)
Рез = 0;

Объект.Password=Пароль;
Объект.Connect();

Ответ = Объект.ResultCode;
Если Ответ=0 Тогда
Рез=1;
Иначе
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
КонецЕсли;

Возврат Рез;
КонецФункции

//********************************************************************************
Функция ОтключитьсяОтФР(Объект, Пароль, ЗапоминатьОшибку = 1)
Рез = 0;

// пеключим ФР в нерабочий режим
Объект.Password=Пароль;
Объект.Disconnect();

Ответ = Объект.ResultCode;
Если Ответ=0 Тогда
Рез=1;
ИначеЕсли ЗапоминатьОшибку = 1 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
КонецЕсли;

Возврат Рез;
КонецФункции

//********************************************************************************
Функция Подключить(Компонента, ПрогИд, Объект, Пароль)
Рез = 0;

Если ЗагрузитьВнешнююКомпоненту(Компонента) = 0 Тогда
ОписаниеРезультата = "не удалось загрузить внешнюю компоненту """ + Компонента + """";
Иначе
Попытка
Объект = СоздатьОбъект("AddIn." + ПрогИд); // Создание объекта внешней компоненты
Исключение
КонецПопытки;

Если ПустоеЗначение(Объект) = 1 Тогда
ОписаниеРезультата = "не удалось создать объект внешней компоненты с программым идентификатром AddIn." + ПрогИд;
Иначе
Рез = 1;
КонецЕсли;
КонецЕсли;

Возврат Рез;
КонецФункции

//********************************************************************************
Функция Отключить(Объект, Пароль)
Рез = 0;

Если ПустоеЗначение(Объект) = 1 Тогда
Рез = 1; // нет объекта, ничего не нужно отключать
Иначе
Рез = ОтключитьсяОтФР(Объект, Пароль);
КонецЕсли;

Возврат Рез;
КонецФункции

//********************************************************************************
Процедура ОтрезатьЧек(Объект, Пароль)
Ошибка=80; //Идет печать предыдущей команды

Пока Ошибка=80 Цикл
Попытка
Объект.Password = Пароль;
Объект.CutType = 1;
Объект.CutCheck();

Ошибка=Объект.ResultCode;
Исключение
Ошибка=-1;
КонецПопытки;
КонецЦикла;

КонецПроцедуры

//********************************************************************************
Процедура АннулированиеЧека(Объект, Пароль)
Попытка
Объект.Password=Пароль;
Объект.CancelCheck();
Исключение
КонецПопытки;
КонецПроцедуры

//********************************************************************************
Функция ПечататьЧек(Объект, Пароль, СписокТоваров, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека)

Если ПустоеЗначение(Объект) = 1 Тогда
ОписаниеРезультата = "устройство не подключено";
Возврат 0;
ИначеЕсли ПодключитьсяКФР(Объект, Пароль) = 0 Тогда
Возврат 0;
КонецЕсли;

// регистрация товаров

// Открываем чек продажи
Если ПризнВозврата = 0 Тогда
Объект.CheckType = 0; // 0-продажа, 2- возврат продажи;
Иначе
Объект.CheckType = 2; // 0-продажа, 2- возврат продажи;
КонецЕсли;


СписокТоваров.ВыбратьСтроки();

Пока СписокТоваров.ПолучитьСтроку() = 1 Цикл
nalog = СписокТоваров.nalog;
Покупатель = СписокТоваров.Покупатель;
ИНН_покупателя = СписокТоваров.ИНН_покупателя;
прервать;
КонецЦикла;

налог=0;
Если nalog = 1 Тогда
СтавкаНДС=18;
налог = 1;
Иначе
СтавкаНДС=0;
налог =8;
КонецЕсли;


//печать налога
//Объект.TableNumber=18;
//Объект.RowNumber =1;
//Объект.FieldNumber =5;
//Объект.ValueofFieldInteger=налог;
//Объект.GetFieldStruct();
//Объект.WriteTable();

// ***************************************** ОСН
//Если nalog = 1 Тогда
// Объект.TaxType =1;
//Иначе
// Объект.TaxType =8;
//КонецЕсли;
//
// Если Объект.ResultCode <> 0 Тогда
// ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
// АннулированиеЧека(Объект, Пароль);
// ОтключитьсяОтФР(Объект, Пароль, 0);
// Возврат 0;
// КонецЕсли;

// ************************************ открыть чек
Объект.OpenCheck();


// ***************************************** теги
Если ИНН_покупателя<>"" тогда

Если СтрДлина(ИНН_покупателя) =10 тогда

ИНН_покупателя = Строка(ИНН_покупателя + " ");

КонецЕсли;
//печать Организации
Объект.Password = 30;
Объект.TagNumber = 1227; //TagNumber
Объект.TagType = 7; //TagType
Объект.TagValueStr = Покупатель; //TagValueStr
Объект.FNSendTag();// отправка тега

//печать ИНН
Объект.Password = 30;
Объект.НомерТега = 1228; //TagNumber
Объект.TagType = 7; //TagType
Объект.TagValueStr = ИНН_покупателя; //TagValueStr
Объект.FNSendTag();// отправка тега
КонецЕсли;

Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
АннулированиеЧека(Объект, Пароль);
ОтключитьсяОтФР(Объект, Пароль, 0);
Возврат 0;
КонецЕсли;


// Объект.TaxType =4; // код налогооблажения // Применяемая система налогооблажения в чеке:ОСН - 1;УСН доход - 2;УСН доход-расход - 4;ЕНВД - 8;ЕСН - 16;ПСН - 32;

// записать сведения о Емеле
//Объект.CustomerEmail = "";
//Объект.FNSendCustomerEmail();

//Для н=1 по 6000 цикл
// сообщить();
//КонецЦикла;

РезРегистрация = 1;
СписокТоваров.ВыбратьСтроки();

сум=0;

// ***************************************** регистрация позиций



// Объект.FNOperation();

//Если ПризнВозврата = 0 Тогда
// Объект.CheckType = 1; // 1-продажа, 2- возврат продажи;
//Иначе
// Объект.CheckType = 2; // 1-продажа, 2- возврат продажи;
//КонецЕсли;
//
//Объект.Quantity = Количество;
//Объект.Price = ЦенаСоСкидкой;
//Объект.Summ1Enable = 0;
//Объект.Summ1 = ЦенаСоСкидкой;
// Если nalog = 1 Тогда
// Объект.Tax1 = 1;
// Иначе
// Объект.Tax1 = 4;
//КонецЕсли;
//
//Объект.PaymentTypeSign = ;
//Объект.PaymentItemSign = ;
//Объект.StringForPrinting = СтрокаДляПечати;


// ***************************************** регистрация позиций

Пока СписокТоваров.ПолучитьСтроку() = 1 Цикл

Количество = СписокТоваров.Количество;

Если Скидка<>"" тогда
ЦенаСоСкидкой = СписокТоваров.Сумма;
Количество =1;
СтрокаДляПечати = Строка(СокрЛП(СписокТоваров.ТовНаим + " кол: " + Количество + "шт. цена " +СписокТоваров.Цена));
Иначе
ЦенаСоСкидкой = СписокТоваров.Цена;
Количество = СписокТоваров.Количество;
СтрокаДляПечати = СокрЛП(СписокТоваров.ТовНаим);
КонецЕсли;

Объект.Password = Пароль;
Объект.StringForPrinting = "";
Объект.Price = ЦенаСоСкидкой;
Объект.Quantity = Количество;
Объект.Department = НомерСекции;

ДлинаСтроки = 0;

Если nalog = 1 Тогда
Объект.Tax1 = 1;
Иначе
Объект.Tax1 = 4;
КонецЕсли;
Объект.Tax2 = 0;
Объект.Tax3 = 0;
Объект.Tax4 = 0;


Если ПризнВозврата = 0 Тогда
Объект.Sale();
Иначе
Объект.ReturnSale();
КонецЕсли;


Если ПустоеЗначение(ДлинаСтроки) = 1 Тогда
Объект.StringForPrinting = СтрокаДляПечати;
Объект.PrintString();
Иначе
Пока СтрДлина(СтрокаДляПечати)>0 Цикл
Объект.StringForPrinting = Лев(СтрокаДляПечати,ДлинаСтроки);
Объект.PrintString();
СтрокаДляПечати = СокрЛП(Сред(СтрокаДляПечати,ДлинаСтроки+1));
КонецЦикла;
КонецЕсли;

Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
АннулированиеЧека(Объект, Пароль);
ОтключитьсяОтФР(Объект, Пароль, 0);
Возврат 0;
КонецЕсли;

//сумма = ЦенаСоСкидкой * Количество;
//сум = сум + сумма;

КонецЦикла;

Объект.Password = Пароль;
Объект.Summ1 = Получено;
Объект.Summ2 = 0;
Объект.Summ3 = 0;
Объект.Summ4 = 0;
Объект.Summ5 = 0;
Объект.Summ6 = 0;
Объект.Summ7 = 0;
Объект.Summ8 = 0;
Объект.Summ9 = 0;
Объект.Summ10 = 0;
Объект.Summ11 = 0;
Объект.Summ12 = 0;
Объект.Summ13 = 0;
Объект.Summ14 = 0;
Объект.Summ15 = 0;
Объект.Summ16 = 0;
Объект.StringForPrinting=" ";


// Объект.DiscountOnCheck=Скидка;
// Объект.CloseCheck();

Если nalog = 1 Тогда
Объект.TaxType =1;
Иначе
Объект.TaxType =8;
КонецЕсли;

сообщить("норм");

Для н=1 по 6000 цикл
//сообщить();
КонецЦикла;



Объект.FNCloseCheckEx();

Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
АннулированиеЧека(Объект, Пароль);
ОтрезатьЧек(Объект, Пароль);
ОтключитьсяОтФР(Объект, Пароль, 0);
Возврат 0;
КонецЕсли;

Объект.Password = Пароль;
Объект.GetECRStatus();

Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
ОтключитьсяОтФР(Объект, Пароль, 0);
Возврат 0;
КонецЕсли;

НомерЧека = Объект.OpenDocumentNumber+?(Объект.ECRAdvancedMode=5,1,0);

ОтрезатьЧек(Объект, Пароль);

Возврат ОтключитьсяОтФР(Объект, Пароль);

КонецФункции

//********************************************************************************
Функция ЗакрытьСмену(Объект, Пароль, НомерЛенты)
Рез = 0;

Если ПустоеЗначение(Объект) = 1 Тогда
ОписаниеРезультата = "устройство не подключено";
ИначеЕсли ПодключитьсяКФР(Объект, Пароль) = 1 Тогда
// переключение в режим снятия отчета (нужен пароль администратора)
Объект.Password = Пароль;
Объект.PrintReportWithCleaning();

Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
ОтключитьсяОтФР(Объект, Пароль, 0);
Возврат 0;
КонецЕсли;

Объект.Password = Пароль;
Объект.GetECRStatus();

Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
ОтключитьсяОтФР(Объект, Пароль, 0);
Возврат 0;
КонецЕсли;

НомерЛенты = Объект.SessionNumber+?(Объект.ECRAdvancedMode=5,1,0);

ОтрезатьЧек(Объект, Пароль);

Рез = ОтключитьсяОтФР(Объект, Пароль);
КонецЕсли;

Возврат Рез;
КонецФункции

//********************************************************************************
Функция ПроверкаПароля (Пароль)
Если ПустаяСтрока(Пароль) = 1 Тогда
Ответ = "неправильно указан пароль пользователя";
Возврат Ответ;
Иначе
Попытка
ПарольЧислом = Число(Пароль);
Исключение
Ответ = "неправильно указан пароль пользователя";
Возврат Ответ;
КонецПопытки;
КонецЕсли;

Возврат "";
КонецФункции

//********************************************************************************
Процедура ПриОткрытии()
Перем Объект, НомерЧека, НомерЛенты, Парам;

СтатусВозврата(0);
Форма.Параметр.Выгрузить(Парам);
Форма.Параметр.УдалитьВсе();

Если Парам.РазмерСписка() = 0 Тогда
Рез = 0;
ОписаниеРезультата = "в обработку не переданы параметры";
Иначе

Процесс = НРег(Парам.Получить("Процесс"));

Если Процесс = "подключить" Тогда

Компонента = Парам.Получить("Компонента");
ПрогИд = Парам.Получить("ПрогИд");
Пароль = Парам.Получить("ПарольПользователя");

ОписаниеРезультата = ПроверкаПароля (Пароль);
Если ОписаниеРезультата <> "" Тогда
Рез = 0;
Иначе
Рез = Подключить(Компонента, ПрогИд, Объект, Пароль);
Форма.Параметр.Установить("Объект", Объект);
КонецЕсли;

ИначеЕсли Процесс = "отключить" Тогда

Рез = Отключить(Объект, Пароль);

ИначеЕсли Процесс = "печатать_чек" Тогда
Объект = Парам.Получить("Объект");
Пароль = Парам.Получить("ПарольПользователя");
СписокТоваров = Парам.Получить("СписокТоваров");
Получено = Парам.Получить("Получено");
ЧекНаВозврат = Парам.Получить("Возврат");
НомерСекции = Парам.Получить("НомерСекции");
Скидка = Парам.Получить("Скидка");

ОписаниеРезультата = ПроверкаПароля (Пароль);
Если ОписаниеРезультата <> "" Тогда
Рез = 0;
Иначе
Рез = ПечататьЧек(Объект, Пароль, СписокТоваров, Получено, Скидка, ЧекНаВозврат, НомерСекции, НомерЧека);
Форма.Параметр.Установить("НомерЧека", НомерЧека);
КонецЕсли;


ИначеЕсли Процесс = "закрыть_смену" Тогда
Объект = Парам.Получить("Объект");
Пароль = Парам.Получить("ПарольАдминистратора");

Если Число(Пароль)=0 Тогда
Рез = 0;
ОписаниеРезультата = "неправильно указан пароль администратора";
Иначе
Рез = ЗакрытьСмену(Объект, Пароль, НомерЛенты);
Форма.Параметр.Установить("НомерЛенты", НомерЛенты);
КонецЕсли;

Иначе
ОписаниеРезультата = "неизвестная команда";
Рез = 0;

КонецЕсли;
КонецЕсли;

Форма.Параметр.Установить("Результат" , Рез);
Форма.Параметр.Установить("ОписаниеРезультата", ОписаниеРезультата);

КонецПроцедуры

//********************************************************************************
ОписаниеРезультата = "";