|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Будьте добры, у кого есть возможность, помогите экспортировать приложенный файл в текст. ------------------------------------------------------------------------ Спасибо за ответ. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 13:48 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
текст Ïåðåì ÎïèñàíèåÐåçóëüòàòà; //****************************************************************************** Ôóíêöèÿ Ïîëó÷èòüÎïèñàíèåÐåçóëüòàòà(Îáúåêò) Âîçâðàò Îáúåêò.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; ÊîíåöÅñëè; ÊîíåöÅñëè; Ôîðìà.Ïàðàìåòð.Óñòàíîâèòü("Ðåçóëüòàò" , Ðåç); Ôîðìà.Ïàðàìåòð.Óñòàíîâèòü("ÎïèñàíèåÐåçóëüòàòà", ÎïèñàíèåÐåçóëüòàòà); ÊîíåöÏðîöåäóðû //******************************************************************************** ÎïèñàíèåÐåçóëüòàòà = ""; ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 19:31 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Программист 1с, Спасибо, но трудно читать... Скопируй при другой раскладке клавиатуры. Может лучше будет. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 19:32 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
текст Перем ОписаниеРезультата; //****************************************************************************** Функция ПолучитьОписаниеРезультата(Объект) Возврат Объект.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; КонецЕсли; КонецЕсли; Форма.Параметр.Установить("Результат" , Рез); Форма.Параметр.Установить("ОписаниеРезультата", ОписаниеРезультата); КонецПроцедуры //******************************************************************************** ОписаниеРезультата = ""; ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 19:32 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
На форме ничего нет. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 19:33 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Программист 1с, Ещё раз - Большое спасибо. А то у меня платформы нет. Да и программирую в Access . ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 19:34 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Не в обиду - просто интересно, а Access еше жив? Не встречал даже вакансий по нему. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 19:35 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Программист 1с На форме ничего нет. мне просто сам принцип и команды со свойствами посмотреть. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 19:36 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Программист 1с Не в обиду - просто интересно, а Access еше жив? Не встречал даже вакансий по нему. :-))) На счёт вакансий не знаю. Тут вот есть форум по Access ... Активненько бурлит. Access 2019 года выпуска - типа новейший релиз. Дешевле выходят на нём небольшие конфигурации, чем, если на 1с писать. И платформа бесплатная имеется для юзеров. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2021, 19:40 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
час58 Дешевле выходят на нём небольшие конфигурации для кого? мелкая розница? судя из текста обработки... ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 12:29 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Неистовый Служитель Культа, мне просто сам принцип и команды со свойствами посмотреть. ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 12:41 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Программист 1с Не в обиду - просто интересно, а Access еше жив? Не встречал даже вакансий по нему. Это я намекаю о его нише... :) Это такой частный инструмент для частных задач, наподобие молотка. Кстати, я вакансий по молотку тоже не видел... :) ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 12:46 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
час58 мне просто сам принцип и команды со свойствами посмотреть. Лучше еще посмотрите описание Штриховского "Драйвера ФР" и примеры к нему не только на 1С: с моей точки зрения на работу с ФР в данной обработке сильно влияет идеология 1С. ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 13:21 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
x1ca4064, Да, конечно, спасибо. С драйвера и начал. Но, способ подачи информации там таков, что удобства типа во дворе. ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 13:29 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Garya А по Excel вакансии есть? :) Это я намекаю о его нише... :) Это такой частный инструмент для частных задач, наподобие молотка. я в одном книжном магазине видел учетную базу на экселе... с формами и шлюхами таблицами (в виде листов) ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 14:26 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
но с учетом требований к современной рознице сомневаюсь, что она дожила до наших дней ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 14:27 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Неистовый Служитель Культа, На моей программке на Access, работает завод по производству пластиковых окон. От раскроя до установки. Цех, Склад. Заказы, расчёт окон, хранение и транспортировка заказчику. Логистика там... отчёты, поиск заказа.... Всё что им для работы надо, я им всё сделал. Работают много лет. Магазины, центр техобслуживания ККТ. Бани, сауны, ритуальные услуги и прочее. В принципе, я так понял, писать программу лучше в той среде, где плаваешь как рыба в воде. Мне нравится Access. ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 14:36 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
час58 Неистовый Служитель Культа, На моей программке на Access, работает завод по производству пластиковых окон. От раскроя до установки. Цех, Склад. Заказы, расчёт окон, хранение и транспортировка заказчику. Логистика там... отчёты, поиск заказа.... Всё что им для работы надо, я им всё сделал. Работают много лет. Магазины, центр техобслуживания ККТ. Бани, сауны, ритуальные услуги и прочее. В принципе, я так понял, писать программу лучше в той среде, где плаваешь как рыба в воде. Мне нравится Access. да почему бы нет, я ж не против если вы удовлетворяете спрос и клиенту нравится - рад за вас просто как вы успеваете реагировать на деятельность "бешеного принтера" - то одно придумают, то другое ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 14:40 |
|
Помогите перегнать в текстовый файл.
|
|||
---|---|---|---|
#18+
Неистовый Служитель Культа, дело в том, что чаще всего, весь цикл разрабатываю я. Они точно не знают что им нужно. их выдумки, я либо отметаю на ****. Либо показываю что уже всё есть, только чуток иначе. как та так. Вот щас разговаривал по похожему поводу. Программа учёта в услугам проката. Карточкой ширкнул, коньки, лыжи взял и пользуешься. Потом вернулся и тебе говорят - всё норм. Давай коньки и свободен. или доплату неси и гуляй... так вот тут хотелка влезла. А что если мы турникет поставим, что бы ещё и он по этой карточке пропускал туда сюда. Ставь говорю, только зачем человеку, оплатившему предоплату ещё один препон? Типа переспросить - ты точно с карточкой идёшь кататься. То есть кассира не достаточно? А мы, говорит зайцев исключим. Опять вопрос - а кассира не достаточно? Как тебе турникет поможет, если вход через кассу, через кассира? Кассир не пустит и всё. Да. Хотелки бывают. Но первоначальный, подробный разговор и корректировка во время написания - дают хороший результат. А там уж - сопровождение. Всякое может произойти. :-))) ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2021, 15:03 |
|
|
start [/forum/topic.php?fid=28&msg=40045209&tid=1518162]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
172ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
58ms |
get tp. blocked users: |
1ms |
others: | 14ms |
total: | 292ms |
0 / 0 |