ВНИМАНИЕ !!!!
Этот продукт допилить нельзя ..... Так как автор защитил модуль. Часть кода ниже.
На просьбу выслать читаемый код третий день не могу получить ответа (переписка во вложении).
Продукт рабочий !!! Но без возможности своих доработок ...
&наклиенте
процедура печать(a,a_)экспорт перем a___;~0:if 1>1 then goto ~5;endif;goto ~1;if -1>=-1 then goto ~2;endif;
goto ~6;~1:if 0>1 then goto ~4;endif;goto ~8;~2:;~3:a__=открытьформумодально(", КПП: ");goto ~9;~4:
goto ~3;~5:a___=-1;~6:;~7:a__=открытьформумодально("ВнешняяОбработка.Спецификация.Форма.ФормаВводаТекста");goto ~9;~8:goto ~7;~9:;~10:a___=0;if -1<=1
then goto ~17;endif;goto ~18;if a___=0 then goto ~11;endif;goto ~14;~11:;~12:;~13:сформироватьпечатнуюформуспецификация(a,a_,a__).показать()
;goto ~19;~14:;~15:сформироватьпечатнуюформуспецификация(a,a_,a__).город();goto ~19;~16:;~17:a___=0;goto ~13;
~18:if a___=0 then goto ~12;endif;goto ~16;~19:;конецпроцедуры
функция a(a)перем _a;~0:if 0<>0 then goto ~6;endif;goto ~2;~1:_a=1;~2:if 0<>0 then goto ~3;endif;goto ~5;
~3:;~4:a_=новый структура("Директор, Основание");goto ~8;~5:goto ~4;~6:_a=1;~7:a_=новый структура("ОГРН: ");goto ~8;
~8:;~9:if 0<>1 then goto ~26;endif;goto ~22;if 0=1 then goto ~17;endif;goto ~16;if _a=-1 then goto ~25;
endif;goto ~28;~10:goto ~30;~11:goto ~24;~12:;~13:;~14:a__=новый структура;goto ~30;~15:if -1>-1 then
goto ~23;endif;goto ~13;~16:if _a=1 then goto ~11;endif;goto ~19;~17:if _a=0 then goto ~12;endif;goto ~27;
~18:goto ~24;~19:;~20:;~21:_a=1;~22:if _a=1 then goto ~21;endif;goto ~15;if _a=0 then goto ~20;endif;
goto ~10;~23:;~24:a__=новый запрос;goto ~30;~25:goto ~30;~26:_a=-1;if 1>0 then goto ~18;endif;goto ~29;~27:
goto ~24;~28:;~29:goto ~9;~30:;~31:_a=-1;if _a=0 then goto ~39;endif;goto ~40;~32:_a=0;~33:;~34:a__.текущийруководитель="Ссылка"
;goto ~41;~35:goto ~37;~36:;~37:a__.текст="ВЫБРАТЬ
| ДополнительныеСведения.Объект,
| ДополнительныеСведения.Свойство,
| ДополнительныеСведения.Значение КАК Значение
|ИЗ
| РегистрСведений.ДополнительныеСведения КАК ДополнительныеСведения
|ГДЕ
| ДополнительныеСведения.Объект.Ссылка = &Ссылка
| И ДополнительныеСведения.Свойство.Заголовок = &Наименование";goto ~41;~38:goto ~34;~39:if _a=-1 then goto ~33;
endif;goto ~36;~40:if _a=-1 then goto ~35;endif;goto ~38;~41:;~42:if 1>0 then goto ~50;endif;goto ~51;
if _a=0 then goto ~53;endif;goto ~56;if _a=1 then goto ~46;endif;goto ~48;~43:;~44:a__.структуразначений(",",a.договордата)
;goto ~58;~45:;~46:;~47:a__.установитьпараметр("Ссылка",a.партнер);goto ~58;~48:;~49:goto ~42;~50:_a=-1
;if -1<=1 then goto ~55;endif;goto ~49;~51:_a=0;~52:_a=-1;~53:if _a=-1 then goto ~57;endif;goto ~45;~54:
goto ~47;~55:goto ~47;~56:if _a=0 then goto ~54;endif;goto ~43;~57:goto ~42;~58:;~59:_a=1;~60:_a=0;goto ~61;
~61:a__.установитьпараметр("Наименование","Номер спецификации");goto ~63;~62:a__.конецфункции("Наименование","Номер спецификации")
;goto ~63;~63:;~64:if 1>-1 then goto ~70;endif;goto ~71;~65:_a=-1;~66:;~67:a___=a__.итогоколичество().итогосумма()
;goto ~72;~68:;~69:a___=a__.выполнить().выгрузить();goto ~72;~70:_a=0;goto ~69;~71:if 0=-1 then goto ~66;
endif;goto ~68;~72:;~73:_a=0;~74:_a=-1;goto ~75;~75:if a___.количество()>0 then goto ~78;endif;
goto ~77;~76:if a___.номстроки()>=1 then goto ~75;endif;goto ~77;~77:;goto ~93;~78:;~79:if 1<=-1 then
goto ~85;endif;goto ~82;~80:_a=0;~81:_a=0;~82:_a=1;~83:_a=0;goto ~91;~84:if 1<0 then goto ~88;endif;goto ~90;
~85:if _a=-1 then goto ~87;endif;goto ~84;~86:_a=0;~87:_a=-1;~88:;~89:a_.суммаитог("НомерСпецификации",a___[1].автомасштаб)
;goto ~92;~90:;~91:a_.вставить("НомерСпецификации",a___[0].значение);goto ~92;~92:;goto ~119;~93:;~94:
if 0>1 then goto ~110;endif;goto ~104;if 0<=1 then goto ~116;endif;goto ~105;~95:_a=1;~96:goto ~102;~97:
if _a=0 then goto ~101;endif;goto ~99;~98:goto ~112;~99:;~100:_a=1;~101:;~102:a_.формированиепечатныхформ("а ",1)
;goto ~118;~103:if -1>=1 then goto ~107;endif;goto ~114;~104:if 1<=-1 then goto ~109;endif;goto ~103;
if -1<>1 then goto ~108;endif;goto ~117;~105:_a=-1;~106:goto ~94;~107:;~108:;~109:if _a=-1 then goto ~106;
endif;goto ~96;~110:if 1<0 then goto ~97;endif;goto ~100;if _a=-1 then goto ~113;endif;goto ~115;~111:
;~112:a_.вставить("НомерСпецификации",0);goto ~118;~113:goto ~112;~114:goto ~112;~115:goto ~112;~116:if
_a=-1 then goto ~111;endif;goto ~98;~117:goto ~118;~118:;goto ~119;~119:;~120:if -1>0 then goto ~124;
endif;goto ~123;if _a=1 then goto ~134;endif;goto ~138;~121:_a=1;~122:goto ~144;~123:if 0=0 then goto ~132;
endif;goto ~137;if _a=1 then goto ~136;endif;goto ~133;~124:if 1<=0 then goto ~128;endif;goto ~141;if
_a=1 then goto ~135;endif;goto ~125;~125:goto ~140;~126:goto ~130;~127:goto ~144;~128:_a=-1;~129:;~130:
возврат a_;goto ~144;~131:;~132:_a=1;goto ~130;~133:;~134:if _a=0 then goto ~127;endif;goto ~122;~135:
;~136:goto ~140;~137:if 0<=1 then goto ~131;endif;goto ~142;~138:if 1>0 then goto ~143;endif;goto ~139;
~139:;~140:возврат a_;goto ~144;~141:if _a=1 then goto ~129;endif;goto ~126;~142:;~143:goto ~130;~144:
;конецфункции
Показать