Ïåðåì ÌÀÊÑÊÎË, ÌÀÊÑÐßÄ;
Ïåðåì Òàá;
Ïåðåì ñòîëáèê, ñòðî÷åê;
// ===============================
// ===============================
Ïðîöåäóðà Äåéñòâèå(ÒÌÖ)
ÊàòåãîðèÿÖåíÏðîäàæ = Êîíñòàíòà.ÈñïîëüçûâàòüÖåíûÏðîäàæè;
ÖåíàÏðîäàæèÊ = ãëÂåðíóòüÖåíó(ÒÌÖ, ÊàòåãîðèÿÖåíÏðîäàæ);
Åñëè ÏóñòîåÇíà÷åíèå(ÖåíàÏðîäàæèÊ) = 1 Òîãäà
Ïðåäóïðåæäåíèå("Îòñóòñòâóåò öåíà ïðîäàæè òîâàðà " + ÑîêðËÏ(ÒÌÖ.Íàèìåíîâàíèå));
针֌
ÖåíàÏðîäàæèÊ.ÈñïîëüçîâàòüÄàòó(ÒåêóùàÿÄàòà());
Öåíà= ÖåíàÏðîäàæèÊ.Öåíà;
ÊîíåöÅñëÈ;
//ÊàòåãîðèÿÖåíÎïò = Êîíñòàíòà.ÒèïÖåíÎïò;
//ÖåíàÏðîäàæèÊ = ãëÂåðíóòüÖåíó(ÒÌÖ, ÊàòåãîðèÿÖåíÎïò);
//Åñëè ÏóñòîåÇíà÷åíèå(ÖåíàÏðîäàæèÊ) = 1 Òîãäà
// Ïðåäóïðåæäåíèå("Îòñóòñòâóåò öåíà ïðîäàæè òîâàðà " + ÑîêðËÏ(ÒÌÖ.Íàèìåíîâàíèå));
//针֌
// ÖåíàÏðîäàæèÊ.ÈñïîëüçîâàòüÄàòó(ÒåêóùàÿÄàòà());
// ÖåíàÎïò= ÖåíàÏðîäàæèÊ.Öåíà;
//ÊîíåöÅñëÈ;
//---- øê
ÑïØÊ = ÑîçäàòüÎáúåêò("Ñïðàâî÷íèê.ÑïðàâØÊ");
ÑïØÊ.ÈñïîëüçîâàòüÂëàäåëüöà(ÒÌÖ);
åñëè ÑïØÊ.ÂûáðàòüÝëåìåíòû()=1 òîãäà
Ïîêà ÑïØÊ.Ïîëó÷èòüÝëåìåíò()=1 Öèêë
Åñëè ÑïØÊ.ÏîìåòêàÓäàëåíèÿ()=1 Òîãäà
Ïðîäîëæèòü;
ÊîíåöÅñëè;
ØÒ = ÑïØÊ.ØòðèõÊîä;
ðîäèòåëü = ÒÌÖ.Ðîäèòåëü;
//Ïå÷ØòðèõÊîä=Ñòðîêà(ØòðèõÊîä);
ÖåíàÐîçí = Öåíà;
//ÖåíàÎïò = ÖåíàÎïò;
Ôèðìà = Êîíñòàíòà.ÎñíîâíàÿÔèðìà;
Çàã = Ôèðìà.ÇàãîëîâîêÖåííèêà;
Ñòð1 = ÑîêðËÏ(ÒÌÖ.ÏîëíÍàèìåíîâàíèå);
ïðåôñ = "2";
ïðåôð = "2";
Åñëè ñòîëáèê = 1 Òîãäà
Òàá.ÂûâåñòèÑåêöèþ("Ñòðîêà"+ïðåôð+"|Ñòîëáåö"+ïðåôñ);
针֌
Òàá.ÏðèñîåäèíèòüÑåêöèþ("Ñòðîêà"+ïðåôð+"|Ñòîëáåö"+ïðåôñ);
ÊîíåöÅñëè;
ñòîëáèê = ñòîëáèê + 1;
Åñëè ñòîëáèê > ÊîëØ Òîãäà
ñòîëáèê = 1;
ñòðî÷åê = ñòðî÷åê + 1;
Åñëè ñòðî÷åê > Êîë Òîãäà
Òàá.ÍîâàÿÑòðàíèöà();
ñòðî÷åê = 1;
ÊîíåöÅñëè;
ÊîíåöÅñëè;
ÊîíåöÖèêëà;
针֌
ØÒ = "";
ðîäèòåëü = ÒÌÖ.Ðîäèòåëü;
ÖåíàÐîçí = Öåíà;
Ôèðìà = Êîíñòàíòà.ÎñíîâíàÿÔèðìà;
Çàã = Ôèðìà.ÇàãîëîâîêÖåííèêà;
Ñòð1 = ÑîêðËÏ(ÒÌÖ.ÏîëíÍàèìåíîâàíèå);
ïðåôñ = "2";
ïðåôð = "2";
Åñëè ñòîëáèê = 1 Òîãäà
Òàá.ÂûâåñòèÑåêöèþ("Ñòðîêà"+ïðåôð+"|Ñòîëáåö"+ïðåôñ);
针֌
Òàá.ÏðèñîåäèíèòüÑåêöèþ("Ñòðîêà"+ïðåôð+"|Ñòîëáåö"+ïðåôñ);
ÊîíåöÅñëè;
ñòîëáèê = ñòîëáèê + 1;
Åñëè ñòîëáèê > ÊîëØ Òîãäà
ñòîëáèê = 1;
ñòðî÷åê = ñòðî÷åê + 1;
Åñëè ñòðî÷åê > Êîë Òîãäà
Òàá.ÍîâàÿÑòðàíèöà();
ñòðî÷åê = 1;
ÊîíåöÅñëè;
ÊîíåöÅñëè;
ÊîíåöÅñëè;
ÊîíåöÏðîöåäóðû
Ïðîöåäóðà Ñôîðìèðîâàòü()
Òàá = ÑîçäàòüÎáúåêò("Òàáëèöà");
Åñëè _Ò1 = 1 òîãäà
Òàá.ÈñõîäíàÿÒàáëèöà("Òàáëèöà");
ÊîíåöÅñëè;
Åñëè _Ò2 = 1 òîãäà
Òàá.ÈñõîäíàÿÒàáëèöà("Òàáëèöà1");
ÊîíåöÅñëè;
// ÄËÿ øòðèõêîäà
Åñëè _Ò3 = 1 òîãäà
Òàá.ÈñõîäíàÿÒàáëèöà("ÒàáëèöàØÊ");
//Ïîïûòêà
// ÊîìïîíåíòABC=ÑîçäàòüÎáúåêò("BARCODE.BarcodeCtrl.1");
//Èñêëþ÷åíèå
// Ïðåäóïðåæäåíèå(ÎïèñàíèåÎøèáêè()+ÐàçäåëèòåëüÑòðîê
// +"Êîìïîíåíò ActiveBarcode íå óñòàíîâëåí íà äàííîì êîìïüþòåðå!"+ÐàçäåëèòåëüÑòðîê
// +"Ïîðÿäîê óñòàíîâêè êîìïîíåíòû ActiveBarcode îïèñàí â äîêóìåíòàöèè.");
// Âîçâðàò;
//ÊîíåöÏîïûòêè;
ÊîíåöÅñëè;
Åñëè ((_Ò1 = 0)è(_Ò2=0)è(_Ò3=0)) èëè ((_Ò1 = 1)è(_Ò2=1)è(_Ò3=0)) òîãäà
Òàá.ÈñõîäíàÿÒàáëèöà("Òàáëèöà");
//Ñîîáùèòü("!!");
ÊîíåöÅñëè;
ñòîëáèê = 1;
ñòðî÷åê = 1;
ñïð = ÑîçäàòüÎáúåêò("Ñïðàâî÷íèê.Íîìåíêëàòóðà");
ñò = 0;
äëÿ èíä = 1 ïî âûáÒÌÖ.ÐàçìåðÑïèñêà() öèêë
ÒÌÖ = âûáÒÌÖ.ïîëó÷èòüÇíà÷åíèå(èíä);
Åñëè ÒÌÖ.ÝòîÃðóïïà()=1 Òîãäà
ñïð.ÈñïîëüçîâàòüÐîäèòåëÿ(ÒÌÖ);
ñïð.ÂûáðàòüÝëåìåíòû(1);
ïîêà ñïð.Ïîëó÷èòüÝëåìåíò()=1 öèêë
Åñëè ñïð.ÏîìåòêàÓäàëåíèÿ()=1 Òîãäà
Ïðîäîëæèòü;
ÊîíåöÅñëè;
Åñëè ñïð.ÝòîÃðóïïà()=1 Òîãäà
Ïðîäîëæèòü;
ÊîíåöÅñëè;
//Åñëè ñïð.ÍàøÂåñ=1 Òîãäà
// Ïðîäîëæèòü;
//ÊîíåöÅñëè;
//** Ïðîâåðèì åñòü ëè îñòàòêè
Åñëè ÔëÎñò_ = 1 Òîãäà
_Îñò = Ðåãèñòð.ÎñòàòêèÒîâàðîâ.ÑâîäíûéÎñòàòîê(Êîíñòàíòà.ÎñíîâíàÿÔèðìà,ñïð.ÒåêóùèéÝëåìåíò(),,"ÎñòàòîêÒîâàðà");
Åñëè _Îñò = 0 òîãäà
Ïðîäîëæèòü;
ÊîíåöÅñëè;
ÊîíåöÅñëè;
äåéñòâèå(ñïð.ÒåêóùèéÝëåìåíò());
êîíåöÖèêëà;
针֌
Åñëè ÒÌÖ.ÍàøÂåñ=0 Òîãäà
//** Ïðîâåðèì åñòü ëè îñòàòêè
Åñëè ÔëÎñò_ = 1 Òîãäà
_Îñò = Ðåãèñòð.ÎñòàòêèÒîâàðîâ.ÑâîäíûéÎñòàòîê(,ÒÌÖ,,"ÎñòàòîêÒîâàðà");
Åñëè _Îñò = 0 òîãäà
Ïðîäîëæèòü;
ÊîíåöÅñëè;
ÊîíåöÅñëè;
äåéñòâèå(ÒÌÖ);
ÊîíåöÅñëè;
ÊîíåöÅñëè;
ÊîíåöÖèêëà;
Òàá.ÏàðàìåòðûÑòðàíèöû(1,,,10,5,5,5,,,,,);
Òàá.ÒîëüêîÏðîñìîòð(1);
Òàá.Ïîêàçàòü("Ñôîðìèðîâàòü","");
ÊîíåöÏðîöåäóðû
// ===============================
Ïðîöåäóðà ÂûáðàòüÒÌÖ(Ðåæ)
Ïåðåì Ôðì;
Ïåðåì Òåê;
Åñëè ÂûáÒÌÖ.ÐàçìåðÑïèñêà()>0 Òîãäà
Òåê=ÂûáÒÌÖ.Ïîëó÷èòüÇíà÷åíèå(ÂûáÒÌÖ.ÒåêóùàÿÑòðîêà());
ÊîíåöÅñëè;
ÎòêðûòüÏîäáîð("Ñïðàâî÷íèê.Íîìåíêëàòóðà",,Ôðì,Ðåæ,Òåê);
Ôðì.ÂûáîðÃðóïïû(1);
ÊîíåöÏðîöåäóðû
// ===============================
Ïðîöåäóðà ÎáðàáîòêàÏîäáîðà(Âûá)
ÂûáÒÌÖ.ÄîáàâèòüÇíà÷åíèå(Âûá);
ÂûáÒÌÖ.ÒåêóùàÿÑòðîêà(ÂûáÒÌÖ.ÐàçìåðÑïèñêà());
ÊîíåöÏðîöåäóðû
// ===============================
Ïðîöåäóðà îòêðûòüÒÌÖ()
ÎòêðûòüÔîðìó(ÂûáÒÌÖ.Ïîëó÷èòüÇíà÷åíèå(ÂûáÒÌÖ.ÒåêóùàÿÑòðîêà()));
ÊîíåöÏðîöåäóðû
Ïðîöåäóðà ÎáðâûáÄîê()
Åñëè âûáÄîê.Âûáðàí()=1 Òîãäà
âûáÄîê.ÂûáðàòüÑòðîêè();
ïîêà âûáÄîê.Ïîëó÷èòüÑòðîêó()=1 öèêë
ÎáðàáîòêàÏîäáîðà(âûáÄîê.ÒÎâàð);
êîíåööèêëà;
ÊîíåöÅñëè;
ÊîíåöÏðîöåäóðû
//----------
//ÌÀÊÑÊÎË = 3;
//ÌÀÊÑÐßÄ = 6;
ÊîëØ = 4;
Êîë = 11;
_Ò2 = 1;
Цитата(Vofka @ 22.11.15, 18:25)
Видимо, в справочнике Номенклатура нету реквизита НашВес
Что такое НашВес? немогу понять и где он может быть в справочнке Номенклатура?
Я понял реквизита нету НашВес.
Может какойто переименовать на нашвес или в обработке чтото поменять.
подскажите пожалуйста.
Цитата(Vofka @ 22.11.15, 18:25)
Видимо, в справочнике Номенклатура нету реквизита НашВес
Спасиба Большое. вы мне очень помогли)
поменял в обработке "Нашвес" на "ШтрихКод" и заработало)
Еще 1 вопрос: как убрать Код из ценника?