Вверх ↑
Этот топик читают: Гость
Ответов: 188
Рейтинг: 2
#1: 2017-12-09 12:21:28 ЛС | профиль | цитата
Выкладываю свое детище в публичный доступ с "условием", пожалуйста не меняйте информацию о первоначальном разработчике то-есть обо мне!!!
программа в целом исправна и уже функционально работает с апреля 2017г. Но имея ряд недоработок.
Есть недостатки, а именно не очень хорошо реализован прайс, при добавлении нового картриджа приходится проставлять стоимость контрагентам в ручную, автоматически пока не придумал как сделать.это одно из некоторых а их наберется добрый десяток.
При заполнении некоторых форм данные не появляются после нажатия кнопки добавить или сохранить.
Если закрыть и снова открыть программу у Вас данные в таблице появятся!
для рядового работника заправщика все функционирует.
Существующую базу данных я по понятным причинам не выкладываю хотя очень хотелось бы.


в этом дистрибутиве требуется создать контрагентов и присвоить им прайсовую цену. если у вас не отображаются изменения не пугайтесь и не клацайте несколько раз просто откройте и закройте программу. и вы все увидите!
в принципе программу можно использовать и для других целей все зависит от заполнения.
на 08.10.2018 в программе добавилось очень много в том числе сервис и учет взаиморасчетов. также запросы к базе данных ТОВАР ДЕНЬГИ ТОВАР(сервер должен быть на ip 192.168.0.25) через штрих.
Этот проект вырос в нечто большее и уже успешно используется в течении нескольких лет.
--------------------------------------------------------------------------------
С того времени очень много сделано....

TAD Огромное спасибо за помощь!!!!.

Редактировалось 19 раз(а), последний 2021-03-23 12:14:20
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2017-12-09 19:55:32 ЛС | профиль | цитата
Первое, что бросилось в глаза:

Строка для FormatStr:

UPDATE glav_table SET date_rabot=strftime('%Y/%m/%d','now','localtime'),time_rabot=strftime('%H:%M:%S','now','localtime') WHERE nomer=%1 ;
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1535
Рейтинг: 176
#3: 2017-12-09 22:41:32 ЛС | профиль | цитата
Страшилка, от которой невольно вздрагиваешь.


Редактировалось 3 раз(а), последний 2017-12-09 23:29:05
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 1061
Рейтинг: 22
#4: 2017-12-10 14:31:46 ЛС | профиль | цитата
ser_davkin, это главная беда ХиАсма) По началу делаешь с мыслью "Щас сделаю, потом в порядок приведу", потом думаешь "Ёп, если буду приводить всё это в порядок пройдет сотня лет, х с ним и так сойдёт, работает - не трогай" D
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2017-12-10 19:25:28 ЛС | профиль | цитата
RinniX писал(а):
это главная беда ХиАсма
к-ф Бриллиантовая рука писал(а):
Не виноватая я!

HiAsm чётко отображает как работают мозги.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#6: 2017-12-10 21:36:57 ЛС | профиль | цитата
zhorik5, вот твоё:
SELECT COUNT(*) FROM kontragenti;
Потом ты к полученному компонентом Math добавляешь 1 и
INSERT INTO kontragenti (nomer) VALUES (%1);,
а можно было и попроще INSERT INTO kontragenti(nomer) SELECT COUNT(*)+1 FROM kontragenti;
Но так делать нельзя.
Почему?
Допустим у тебя в kontragenti есть 10 записей.
Т.к. есть кнопка "Удалить", то удалили 5-ю.
Какой номер ты получишь своим SELECT COUNT(*) + Math
Правильно - 10, а такой номер уже есть. И будешь иметь две записи с nomer=10
При последующих UPDATE kontragenti SET angl_nazvanie='%2' WHERE nomer=%1
в таблице kontragenti получишь две одинаковые строки.
И так у тебя везде.
Убери кнопку "Удалить" со всех форм пока не сделаешь nomer INTEGER PRIMARY KEY.

Форма "Партнёры"

Add(ChildForm,9467718,658,140)
{
FirstUsage=0
}
BEGIN_SDK
Add(EditMulti,2379941,28,7)
{
EventCount=6
WorkCount=1
DataCount=1
VarCount=2
Width=692
Height=739
link(doWork1,14021805:doShowModal,[(63,13)(63,237)])
link(Var1,16034921:Index,[(34,722)(685,722)])
link(Var2,13311944:Var1,[(41,82)])
}
Add(MainForm,14021805,238,203)
{
Left=35
Top=105
Width=807
Height=383
Visible=1
Caption="П А Р Т Н Ё Р Ы."
Point(onClose)
Point(doShowModal)
link(onActivate,11585841:doEvent1,[(292,209)(292,139)])
link(onDeactivate,2379941:onEvent4,[(284,216)(284,34)])
link(onCreate,15049992:doOpen,[])
link(onClose,15049992:doClose,[])
}
Add(Edit,8193515,420,224)
{
Left=170
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7707199,434,294)
{
Left=170
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,15698063,455,399)
{
Left=615
Top=70
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Label,3448287,602,56)
{
Left=10
Top=10
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Название фирмы партнера"
AutoSize=1
Alignment=1
}
Add(Label,12074310,602,63)
{
Left=10
Top=45
Width=155
Height=29
Font=[Times New Roman,10,0,0,204]
Caption="Полное Наименование фирмы"
AutoSize=1
Alignment=1
}
Add(Label,16429677,602,70)
{
Left=10
Top=85
Width=155
Height=34
Font=[Times New Roman,10,1,0,204]
Caption="Английское Наименование (Обязательно!)"
AutoSize=1
Alignment=1
}
Add(Label,4932833,602,77)
{
Left=10
Top=130
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Адрес"
AutoSize=1
Alignment=1
}
Add(Label,1072301,602,84)
{
Left=10
Top=170
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="ИНН"
AutoSize=1
Alignment=1
}
Add(Label,11865404,602,91)
{
Left=10
Top=210
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="КПП"
AutoSize=1
Alignment=1
}
Add(Label,3469290,602,98)
{
Left=10
Top=245
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Расчетный счет"
AutoSize=1
Alignment=1
}
Add(Label,15736005,602,196)
{
Left=450
Top=10
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Кор. счет"
AutoSize=1
Alignment=1
}
Add(Label,1739345,602,105)
{
Left=10
Top=280
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Банк"
AutoSize=1
Alignment=1
}
Add(Button,7503969,77,378)
{
Left=600
Top=305
Width=85
Height=35
Enabled=1
Caption="ОК"
Point(doEnabled)
link(onClick,13004597:doEvent1,[])
}
Add(Button,13679188,70,294)
{
Left=695
Top=305
Width=85
Height=35
Caption="ОТМЕНА"
link(onClick,11040164:doWork2,[])
}
Add(Edit,8947271,385,35)
{
Left=170
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
Point(doSetFocus)
link(onChange,13466306:doMultiReplace,[(429,41)(429,90)])
}
Add(DS_SQLite,15049992,287,217)
{
Name="global"
FileName=".\global.db"
WaitClose=0
link(onOpen,942555:doEvent1,[])
}
Add(Hub,14982477,189,385)
{
OutCount=3
link(onEvent1,8675650:doString,[(237,391)(237,692)])
link(onEvent2,2379941:onEvent1,[(217,398)(217,13)])
}
Add(GetDataEx,10322385,399,518)
{
link(Data,9848688:Text,[(405,123)(489,123)])
}
Add(DSC_Exec,10102804,539,686)
{
DSManager="parent.parent.global"
link(onExec,11040164:doWork1,[(699,692)(699,300)])
}
Add(Label,772740,602,189)
{
Left=450
Top=40
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="БИК"
AutoSize=1
Alignment=1
}
Add(Label,71411,602,182)
{
Left=450
Top=70
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="E@mail"
AutoSize=1
Alignment=1
}
Add(Label,9676561,602,175)
{
Left=450
Top=135
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Контактное лицо"
AutoSize=1
Alignment=1
}
Add(Label,3842413,602,168)
{
Left=450
Top=105
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Телефон"
AutoSize=1
Alignment=1
}
Add(Label,1664523,602,161)
{
Left=450
Top=175
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Использовать прайс"
AutoSize=1
Alignment=1
}
Add(Label,13024792,602,154)
{
Left=450
Top=210
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Код клиента"
AutoSize=1
Alignment=1
}
Add(Label,11531711,602,112)
{
Left=450
Top=245
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Закрепленный заправщик"
AutoSize=1
Alignment=1
}
Add(Label,5124501,602,147)
{
Left=450
Top=280
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Примечание"
AutoSize=1
Alignment=1
}
Add(Edit,9848688,483,84)
{
Left=170
Top=90
Width=160
Font=[Times New Roman,10,0,0,204]
Enabled=1
Text=""
Point(doSetFocus)
link(onChange,4175374:In,[])
}
Add(ComboBox,11496103,651,574)
{
Left=615
Top=245
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Strings=#3:Нет|
Text=""
DataType=1
Point(EditText)
}
Add(Edit,11868430,392,84)
{
Left=170
Top=50
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,3983540,483,574)
{
Left=615
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,797990,497,630)
{
Left=615
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7914082,462,434)
{
Left=615
Top=105
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9688994,469,469)
{
Left=615
Top=135
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9606788,441,329)
{
Left=615
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,12710250,448,364)
{
Left=615
Top=40
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,6824894,406,154)
{
Left=170
Top=130
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,8358532,413,189)
{
Left=170
Top=170
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(DSC_Query,14112046,595,574)
{
SQL="SELECT fio FROM sotrudniki"
DSManager="parent.parent.global"
link(onQuery,11496103:doAdd,[])
}
Add(LineBreak,8925000,553,574)
{
link(Out,14112046:doQuery,[])
Primary=[8707490,-189,-357]
}
Add(GetDataEx,13311944,385,77)
{
link(Data,8947271:Text,[])
}
Add(ComboBox,16034921,658,511)
{
Left=615
Top=170
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Text=""
DataType=1
Point(Handle)
Point(Index)
Point(onSelect)
}
Add(Hub,942555,336,217)
{
link(onEvent1,8707490:In,[])
link(onEvent2,13711868:In,[])
}
Add(DSC_Query,1590475,609,511)
{
SQL="SELECT naimenovanie FROM kategory_price"
DSManager="parent.parent.global"
link(onQuery,16034921:doAdd,[])
}
Add(LineBreak,10555221,567,511)
{
link(Out,1590475:doQuery,[])
Primary=[13711868,-203,-287]
}
Add(Button,1036844,91,455)
{
Left=515
Top=305
Width=75
Height=35
Enabled=1
Caption="Добавить"
Point(doEnabled)
link(onClick,7304843:doEvent1,[])
}
Add(Hub,13004597,126,378)
{
link(onEvent1,11040164:doWork3,[(207,384)])
link(onEvent2,3255284:doEvent1,[])
}
Add(Hub,3255284,161,385)
{
InCount=2
OutCount=1
link(onEvent1,14982477:doEvent1,[])
}
Add(ChildForm,8146851,294,539)
{
FirstUsage=0
link(onEvent1,2379941:onEvent5,[(577,545)(577,41)])
link(onEvent2,2379941:onEvent6,[(586,552)(586,48)])
link(Data1,10322385:Var1,[(300,523)])
}
BEGIN_SDK
Add(EditMulti,14390227,21,21)
{
EventCount=2
WorkCount=1
DataCount=1
Width=1315
Height=788
link(doWork1,1590239:doShowModal,[(73,27)(73,195)])
}
Add(ChildPanel,12795484,28,203)
{
link(onEvent1,11900977:doEvent2,[(82,209)(82,244)])
link(onEvent2,7738847:doEvent1,[(65,216)(65,265)])
link(onEvent3,16211581:doEvent2,[])
}
BEGIN_SDK
Add(EditMulti,5115687,21,21)
{
EventCount=3
}
Add(Panel,11032594,35,105)
{
Top=472
Width=364
Height=41
Align=4
}
Add(Button,12090924,44,30)
{
Left=10
Top=5
Width=70
Height=35
Caption="Сохранить"
link(onClick,5115687:onEvent1,[(198,36)(198,27)])
}
Add(Button,2547117,171,51)
{
Left=265
Top=5
Width=70
Height=35
Caption="Отмена"
link(onClick,5115687:onEvent2,[(262,57)(262,34)])
}
Add(Button,9624714,249,112)
{
Left=145
Top=5
Width=60
Height=35
Caption="Очистить"
link(onClick,5115687:onEvent3,[(287,118)(287,41)])
}
END_SDK
Add(ChildPanel,15552921,399,301)
{
link(onEvent1,6215464:doMT_Add,[(461,307)(461,244)])
}
BEGIN_SDK
Add(EditMulti,4159810,21,21)
{
EventCount=1
}
Add(Panel,7378138,35,105)
{
Width=364
Height=55
Align=2
BorderWidth=0
BevelWidth=0
}
Add(Label,1814261,69,27)
{
Left=5
Top=10
Width=91
Height=17
Caption="Заполнить ценой"
}
Add(DSC_Query,8435477,203,42)
{
SQL="SELECT nomer, vid_rabot, model, partner FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent1,[(275,48)(275,90)])
}
Add(Button,15192029,140,42)
{
Left=235
Top=5
Width=115
Height=25
Caption="Партнер"
link(onClick,8435477:doQuery,[])
}
Add(Button,13220521,140,91)
{
Left=105
Top=5
Width=60
Height=25
Caption="Розница"
link(onClick,8548199:doQuery,[])
}
Add(DSC_Query,8548199,203,91)
{
SQL="SELECT nomer, vid_rabot, model, roznica FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent2,[])
}
Add(Hub,10526459,280,84)
{
InCount=2
OutCount=1
link(onEvent1,4159810:onEvent1,[(308,90)(308,27)])
}
Add(Label,1868121,14,35)
{
Top=35
Width=365
Height=17
Caption="При заполнении прайса обязательно выберите любую строку таблицы"
}
END_SDK
Add(MainForm,1590239,140,161)
{
Left=35
Top=105
Width=372
Height=547
Visible=1
Point(doShowModal)
link(onActivate,14390227:onEvent1,[(754,167)(754,27)])
}
Add(StringTableMT,6215464,490,203)
{
Top=55
Width=364
Height=417
Align=5
Columns=#4:№=25|6:Услуга|6:Модель|7:Цена=35|
StrDelimiter="\9"
Redaction=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(Index)
Point(onDblClick)
Point(Cell)
Point(onChange)
Point(onLineChange)
link(onClick,12604284:doEvent1,[])
link(onDblClick,12604284:doEvent2,[])
link(onChange,12604284:doEvent3,[])
link(onLineChange,12604284:doEvent4,[])
}
Add(Hub,11900977,105,231)
{
InCount=2
link(onEvent1,1590239:doClose,[(123,237)(123,188)])
link(onEvent2,14390227:onEvent2,[(727,244)(727,34)])
}
Add(Hub,7738847,70,259)
{
link(onEvent1,11900977:doEvent1,[(105,265)])
link(onEvent2,16211581:doEvent1,[(287,272)(287,216)])
}
Add(ArrayRW,494619,609,203)
{
link(onRead,12314249:doSplit,[])
link(Array,6215464:Strings,[(615,191)(563,191)(563,260)(510,260)])
}
Add(MultiStrPart,12314249,672,203)
{
Char="\9"
Count=4
link(onSplit,5925683:doString,[(716,209)(716,265)(660,265)(660,300)])
}
Add(FormatStr,5925683,672,294)
{
DataCount=4
Mask="UPDATE price SET '%2'='%4' WHERE nomer=%1"
Point(FString)
link(onFString,5428505:doExec,[])
link(Str1,12314249:Part1,[])
link(Str2,14390227:Data1,[(685,158)(27,158)])
link(Str4,12314249:Part4,[])
}
Add(DSC_Exec,5428505,742,294)
{
DSManager="parent.parent.parent.global"
link(SQL,5925683:FString,[(748,282)(713,282)(713,338)(678,338)])
}
Add(Hub,12604284,546,203)
{
InCount=4
OutCount=1
link(onEvent1,494619:doRead,[])
}
Add(Hub,16211581,427,210)
{
InCount=2
OutCount=1
link(onEvent1,6215464:doClear,[])
}
END_SDK
Add(Hub,7304843,140,455)
{
OutCount=3
link(onEvent1,3255284:doEvent2,[(173,461)(173,414)(142,414)(142,398)])
link(onEvent2,8146851:doWork1,[(173,468)(173,545)])
link(onEvent3,7503969:doEnabled,[(166,475)(166,419)(58,419)(58,384)])
}
Add(Hub,11585841,308,133)
{
link(onEvent1,5259777:doEvent1,[(329,139)(329,48)])
link(onEvent2,2379941:onEvent3,[(562,146)(562,27)])
}
Add(Hub,5259777,336,42)
{
link(onEvent1,8947271:doText,[(368,48)(368,41)])
link(onEvent2,8947271:doSetFocus,[])
}
Add(LineBreak,11041788,28,455)
{
link(Out,1643356:doEvent1,[])
Primary=[4175374,504,-371]
}
Add(CheckBox,16362267,56,511)
{
Left=5
Top=315
Width=505
Caption="Если Вы заполнили все данные поставьте пожалуйста флажок и нажмите кнопку ДОБАВИТЬ"
link(onCheck,1643356:doEvent2,[(114,517)(114,493)(58,493)(58,468)])
}
Add(Hub,1643356,70,455)
{
InCount=2
OutCount=1
link(onEvent1,1036844:doEnabled,[])
}
Add(HubEx,11040164,203,294)
{
Angle=3
link(onEvent,14021805:doClose,[(207,230)])
}
Add(FormatStr,8675650,385,686)
{
DataCount=18
Mask="UPDATE kontragenti SET [nazvanie]='%1', \r\n [polnoe_naimenovanie]='%2', \r\n [angl_nazvanie]='%3', \r\n [adres] ='%4', \r\n [inn] ='%5', \r\n [kpp] ='%6', \r\n [raschetniy_schet] ='%7', \r\n [bank] ='%8', \r\n [kor_schet] ='%9', \r\n [bik] ='%10', \r\n [email] ='%11', \r\n [telefon] ='%12', \r\n [kontact_lico] ='%13', \r\n [ispolzovat_price] ='%14', \r\n [cod_clienta] ='%15', \r\n [zapravshik] ='%16', \r\n [primechanie] ='%17'\r\n WHERE [nomer]=%18;"
link(onFString,10102804:doExec,[])
link(Str1,13311944:Var2,[])
link(Str2,11868430:Text,[])
link(Str3,10322385:Var2,[])
link(Str4,6824894:Text,[])
link(Str5,8358532:Text,[])
link(Str6,8193515:Text,[])
link(Str7,4866543:Text,[])
link(Str8,7707199:Text,[])
link(Str9,9606788:Text,[])
link(Str10,12710250:Text,[])
link(Str11,15698063:Text,[])
link(Str12,7914082:Text,[])
link(Str13,9688994:Text,[])
link(Str14,16034921:String,[(482,566)(671,566)])
link(Str15,3983540:Text,[])
link(Str16,11496103:EditText,[(496,627)(671,627)])
link(Str17,797990:Text,[])
link(Str18,2379941:Data1,[(510,28)(34,28)])
}
Add(MultiReplace,13466306,441,84)
{
ReplaceList="а=a; б=b; в=v; г=g; д=d; е=e; ё=yo; ж=zh; з=z;\r\nи=i; й=y; к=k; л=l; м=m; н=n; о=o; п=p; р=r;\r\nс=s; т=t; у=u; ф=f; х=h; ц=c; ч=ch; ш=sh; щ=shch;\r\nь='; ы=q; ъ='; э=ye; ю=yu; я=ya; А=A; Б=B; В=V;\r\nГ=G; Д=D; Е=E; Ё=Yo; Ж=Zh; З=Z; И=I; Й=Y; К=K;\r\nЛ=L; М=M; Н=N; О=O; П=P; Р=R; С=S; Т=T; У=U;\r\nФ=F; Х=H; Ц=C; Ч=Ch; Ш=Sh; Щ=Shch; Ь='; Ы=Q; Ъ=';\r\nЭ=Ye; Ю=Yu; Я=Ya;"
link(onResult,9848688:doText,[])
}
Add(Edit,4866543,427,259)
{
Left=170
Top=245
Width=160
}
END_SDK

и всего 91 компонент против твоих >200
Редактировалось 6 раз(а), последний 2017-12-11 00:14:19
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 188
Рейтинг: 2
#7: 2017-12-11 14:51:04 ЛС | профиль | цитата
Tad писал(а):

UPDATE glav_table SET date_rabot=strftime('%Y/%m/%d','now','localtime'),time_rabot=strftime('%H:%M:%S','now','localtime') WHERE nomer=%1 ;

Да!! Действительно спасибо! я об этих мелочах и нюансах даже и не догадывадся))

--- Добавлено в 2017-12-11 14:53:10

RinniX писал(а):
ser_davkin, это главная беда ХиАсма) По началу делаешь с мыслью "Щас сделаю, потом в порядок приведу", потом думаешь "Ёп, если буду приводить всё это в порядок пройдет сотня лет, х с ним и так сойдёт, работает - не трогай" D

Да действительно! полностью согласен,

--- Добавлено в 2017-12-11 14:58:25



[quote=Tad]Add(ChildForm,9467718,658,140)
{
FirstUsage=0
}
BEGIN_SDK
Add(EditMulti,2379941,28,7)
{
EventCount=6
WorkCount=1
DataCount=1
VarCount=2
Width=692
Height=739
link(doWork1,14021805:doShowModal,[(63,13)(63,237)])
link(Var1,16034921:Index,[(34,722)(685,722)])
link(Var2,13311944:Var1,[(41,82)])
}
Add(MainForm,14021805,238,203)
{
Left=35
Top=105
Width=807
Height=383
Visible=1
Caption="П А Р Т Н Ё Р Ы."
Point(onClose)
Point(doShowModal)
link(onActivate,11585841:doEvent1,[(292,209)(292,139)])
link(onDeactivate,2379941:onEvent4,[(284,216)(284,34)])
link(onCreate,15049992:doOpen,[])
link(onClose,15049992:doClose,[])
}
Add(Edit,8193515,420,224)
{
Left=170
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7707199,434,294)
{
Left=170
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,15698063,455,399)
{
Left=615
Top=70
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Label,3448287,602,56)
{
Left=10
Top=10
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Название фирмы партнера"
AutoSize=1
Alignment=1
}
Add(Label,12074310,602,63)
{
Left=10
Top=45
Width=155
Height=29
Font=[Times New Roman,10,0,0,204]
Caption="Полное Наименование фирмы"
AutoSize=1
Alignment=1
}
Add(Label,16429677,602,70)
{
Left=10
Top=85
Width=155
Height=34
Font=[Times New Roman,10,1,0,204]
Caption="Английское Наименование (Обязательно!)"
AutoSize=1
Alignment=1
}
Add(Label,4932833,602,77)
{
Left=10
Top=130
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Адрес"
AutoSize=1
Alignment=1
}
Add(Label,1072301,602,84)
{
Left=10
Top=170
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="ИНН"
AutoSize=1
Alignment=1
}
Add(Label,11865404,602,91)
{
Left=10
Top=210
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="КПП"
AutoSize=1
Alignment=1
}
Add(Label,3469290,602,98)
{
Left=10
Top=245
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Расчетный счет"
AutoSize=1
Alignment=1
}
Add(Label,15736005,602,196)
{
Left=450
Top=10
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Кор. счет"
AutoSize=1
Alignment=1
}
Add(Label,1739345,602,105)
{
Left=10
Top=280
Width=155
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Банк"
AutoSize=1
Alignment=1
}
Add(Button,7503969,77,378)
{
Left=600
Top=305
Width=85
Height=35
Enabled=1
Caption="ОК"
Point(doEnabled)
link(onClick,13004597:doEvent1,[])
}
Add(Button,13679188,70,294)
{
Left=695
Top=305
Width=85
Height=35
Caption="ОТМЕНА"
link(onClick,11040164:doWork2,[])
}
Add(Edit,8947271,385,35)
{
Left=170
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
Point(doSetFocus)
link(onChange,13466306:doMultiReplace,[(429,41)(429,90)])
}
Add(DS_SQLite,15049992,287,217)
{
Name="global"
FileName=".\global.db"
WaitClose=0
link(onOpen,942555:doEvent1,[])
}
Add(Hub,14982477,189,385)
{
OutCount=3
link(onEvent1,8675650:doString,[(237,391)(237,692)])
link(onEvent2,2379941:onEvent1,[(217,398)(217,13)])
}
Add(GetDataEx,10322385,399,518)
{
link(Data,9848688:Text,[(405,123)(489,123)])
}
Add(DSC_Exec,10102804,539,686)
{
DSManager="parent.parent.global"
link(onExec,11040164:doWork1,[(699,692)(699,300)])
}
Add(Label,772740,602,189)
{
Left=450
Top=40
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="БИК"
AutoSize=1
Alignment=1
}
Add(Label,71411,602,182)
{
Left=450
Top=70
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="E@mail"
AutoSize=1
Alignment=1
}
Add(Label,9676561,602,175)
{
Left=450
Top=135
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Контактное лицо"
AutoSize=1
Alignment=1
}
Add(Label,3842413,602,168)
{
Left=450
Top=105
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Телефон"
AutoSize=1
Alignment=1
}
Add(Label,1664523,602,161)
{
Left=450
Top=175
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Использовать прайс"
AutoSize=1
Alignment=1
}
Add(Label,13024792,602,154)
{
Left=450
Top=210
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Код клиента"
AutoSize=1
Alignment=1
}
Add(Label,11531711,602,112)
{
Left=450
Top=245
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Закрепленный заправщик"
AutoSize=1
Alignment=1
}
Add(Label,5124501,602,147)
{
Left=450
Top=280
Width=150
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Примечание"
AutoSize=1
Alignment=1
}
Add(Edit,9848688,483,84)
{
Left=170
Top=90
Width=160
Font=[Times New Roman,10,0,0,204]
Enabled=1
Text=""
Point(doSetFocus)
link(onChange,4175374:In,[])
}
Add(ComboBox,11496103,651,574)
{
Left=615
Top=245
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Strings=#3:Нет
Text=""
DataType=1
Point(EditText)
}
Add(Edit,11868430,392,84)
{
Left=170
Top=50
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,3983540,483,574)
{
Left=615
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,797990,497,630)
{
Left=615
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7914082,462,434)
{
Left=615
Top=105
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9688994,469,469)
{
Left=615
Top=135
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9606788,441,329)
{
Left=615
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,12710250,448,364)
{
Left=615
Top=40
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,6824894,406,154)
{
Left=170
Top=130
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,8358532,413,189)
{
Left=170
Top=170
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(DSC_Query,14112046,595,574)
{
SQL="SELECT fio FROM sotrudniki"
DSManager="parent.parent.global"
link(onQuery,11496103:doAdd,[])
}
Add(LineBreak,8925000,553,574)
{
link(Out,14112046:doQuery,[])
Primary=[8707490,-189,-357]
}
Add(GetDataEx,13311944,385,77)
{
link(Data,8947271:Text,[])
}
Add(ComboBox,16034921,658,511)
{
Left=615
Top=170
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Text=""
DataType=1
Point(Handle)
Point(Index)
Point(onSelect)
}
Add(Hub,942555,336,217)
{
link(onEvent1,8707490:In,[])
link(onEvent2,13711868:In,[])
}
Add(DSC_Query,1590475,609,511)
{
SQL="SELECT naimenovanie FROM kategory_price"
DSManager="parent.parent.global"
link(onQuery,16034921:doAdd,[])
}
Add(LineBreak,10555221,567,511)
{
link(Out,1590475:doQuery,[])
Primary=[13711868,-203,-287]
}
Add(Button,1036844,91,455)
{
Left=515
Top=305
Width=75
Height=35
Enabled=1
Caption="Добавить"
Point(doEnabled)
link(onClick,7304843:doEvent1,[])
}
Add(Hub,13004597,126,378)
{
link(onEvent1,11040164:doWork3,[(207,384)])
link(onEvent2,3255284:doEvent1,[])
}
Add(Hub,3255284,161,385)
{
InCount=2
OutCount=1
link(onEvent1,14982477:doEvent1,[])
}
Add(ChildForm,8146851,294,539)
{
FirstUsage=0
link(onEvent1,2379941:onEvent5,[(577,545)(577,41)])
link(onEvent2,2379941:onEvent6,[(586,552)(586,48)])
link(Data1,10322385:Var1,[(300,523)])
}
BEGIN_SDK
Add(EditMulti,14390227,21,21)
{
EventCount=2
WorkCount=1
DataCount=1
Width=1315
Height=788
link(doWork1,1590239:doShowModal,[(73,27)(73,195)])
}
Add(ChildPanel,12795484,28,203)
{
link(onEvent1,11900977:doEvent2,[(82,209)(82,244)])
link(onEvent2,7738847:doEvent1,[(65,216)(65,265)])
link(onEvent3,16211581:doEvent2,[])
}
BEGIN_SDK
Add(EditMulti,5115687,21,21)
{
EventCount=3
}
Add(Panel,11032594,35,105)
{
Top=472
Width=364
Height=41
Align=4
}
Add(Button,12090924,44,30)
{
Left=10
Top=5
Width=70
Height=35
Caption="Сохранить"
link(onClick,5115687:onEvent1,[(198,36)(198,27)])
}
Add(Button,2547117,171,51)
{
Left=265
Top=5
Width=70
Height=35
Caption="Отмена"
link(onClick,5115687:onEvent2,[(262,57)(262,34)])
}
Add(Button,9624714,249,112)
{
Left=145
Top=5
Width=60
Height=35
Caption="Очистить"
link(onClick,5115687:onEvent3,[(287,118)(287,41)])
}
END_SDK
Add(ChildPanel,15552921,399,301)
{
link(onEvent1,6215464:doMT_Add,[(461,307)(461,244)])
}
BEGIN_SDK
Add(EditMulti,4159810,21,21)
{
EventCount=1
}
Add(Panel,7378138,35,105)
{
Width=364
Height=55
Align=2
BorderWidth=0
BevelWidth=0
}
Add(Label,1814261,69,27)
{
Left=5
Top=10
Width=91
Height=17
Caption="Заполнить ценой"
}
Add(DSC_Query,8435477,203,42)
{
SQL="SELECT nomer, vid_rabot, model, partner FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent1,[(275,48)(275,90)])
}
Add(Button,15192029,140,42)
{
Left=235
Top=5
Width=115
Height=25
Caption="Партнер"
link(onClick,8435477:doQuery,[])
}
Add(Button,13220521,140,91)
{
Left=105
Top=5
Width=60
Height=25
Caption="Розница"
link(onClick,8548199:doQuery,[])
}
Add(DSC_Query,8548199,203,91)
{
SQL="SELECT nomer, vid_rabot, model, roznica FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent2,[])
}
Add(Hub,10526459,280,84)
{
InCount=2
OutCount=1
link(onEvent1,4159810:onEvent1,[(308,90)(308,27)])
}
Add(Label,1868121,14,35)
{
Top=35
Width=365
Height=17
Caption="При заполнении прайса обязательно выберите любую строку таблицы"
}
END_SDK
Add(MainForm,1590239,140,161)
{
Left=35
Top=105
Width=372
Height=547
Visible=1
Point(doShowModal)
link(onActivate,14390227:onEvent1,[(754,167)(754,27)])
}
Add(StringTableMT,6215464,490,203)
{
Top=55
Width=364
Height=417
Align=5
Columns=#4:№=25|6:Услуга|6:Модель|7:Цена=35|
StrDelimiter="\9"
Redaction=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(Index)
Point(onDblClick)
Point(Cell)
Point(onChange)
Point(onLineChange)
link(onClick,12604284:doEvent1,[])
link(onDblClick,12604284:doEvent2,[])
link(onChange,12604284:doEvent3,[])
link(onLineChange,12604284:doEvent4,[])
}
Add(Hub,11900977,105,231)
{
InCount=2
link(onEvent1,1590239:doClose,[(123,237)(123,188)])
link(onEvent2,14390227:onEvent2,[(727,244)(727,34)])
}
Add(Hub,7738847,70,259)
{
link(onEvent1,11900977:doEvent1,[(105,265)])
link(onEvent2,16211581:doEvent1,[(287,272)(287,216)])
}
Add(ArrayRW,494619,609,203)
{
link(onRead,12314249:doSplit,[])
link(Array,6215464:Strings,[(615,191)(563,191)(563,260)(510,260)])
}
Add(MultiStrPart,12314249,672,203)
{
Char="\9"
Count=4
link(onSplit,5925683:doString,[(716,209)(716,265)(660,265)(660,300)])
}
Add(FormatStr,5925683,672,294)
{
DataCount=4
Mask="UPDATE price SET '%2'='%4' WHERE nomer=%1"
Point(FString)
link(onFString,5428505:doExec,[])
link(Str1,12314249:Part1,[])
link(Str2,14390227:Data1,[(685,158)(27,158)])
link(Str4,12314249:Part4,[])
}
Add(DSC_Exec,5428505,742,294)
{
DSManager="parent.parent.parent.global"
link(SQL,5925683:FString,[(748,282)(713,282)(713,338)(678,338)])
}
Add(Hub,12604284,546,203)
{
InCount=4
OutCount=1
link(onEvent1,494619:doRead,[])
}
Add(Hub,16211581,427,210)
{
InCount=2
OutCount=1
link(onEvent1,6215464:doClear,[])
}
END_SDK
Add(Hub,7304843,140,455)
{
OutCount=3
link(onEvent1,3255284:doEvent2,[(173,461)(173,414)(142,414)(142,398)])
link(onEvent2,8146851:doWork1,[(173,468)(173,545)])
link(onEvent3,7503969:doEnabled,[(166,475)(166,419)(58,419)(58,384)])
}
Add(Hub,11585841,308,133)
{
link(onEvent1,5259777:doEvent1,[(329,139)(329,48)])
link(onEvent2,2379941:onEvent3,[(562,146)(562,27)])
}
Add(Hub,5259777,336,42)
{
link(onEvent1,8947271:doText,[(368,48)(368,41)])
link(onEvent2,8947271:doSetFocus,[])
}
Add(LineBreak,11041788,28,455)
{
link(Out,1643356:doEvent1,[])
Primary=[4175374,504,-371]
}
Add(CheckBox,16362267,56,511)
{
Left=5
Top=315
Width=505
Caption="Если Вы заполнили все данные поставьте пожалуйста флажок и нажмите кнопку ДОБАВИТЬ"
link(onCheck,1643356:doEvent2,[(114,517)(114,493)(58,493)(58,468)])
}
Add(Hub,1643356,70,455)
{
InCount=2
OutCount=1
link(onEvent1,1036844:doEnabled,[])
}
Add(HubEx,11040164,203,294)
{
Angle=3
link(onEvent,14021805:doClose,[(207,230)])
}
Add(FormatStr,8675650,385,686)
{
DataCount=18
Mask="UPDATE kontragenti SET [nazvanie]='%1', \r\n [polnoe_naimenovanie]='%2', \r\n [angl_nazvanie]='%3', \r\n [adres] ='%4', \r\n [inn] ='%5', \r\n [kpp] ='%6', \r\n [raschetniy_schet] ='%7', \r\n [bank] ='%8', \r\n [kor_schet] ='%9', \r\n [bik] ='%10', \r\n [email] ='%11', \r\n [telefon] ='%12', \r\n [kontact_lico] ='%13', \r\n [ispolzovat_price] ='%14', \r\n [cod_clienta] ='%15', \r\n [zapravshik] ='%16', \r\n [primechanie] ='%17'\r\n WHERE [nomer]=%18;"
link(onFString,10102804:doExec,[])
link(Str1,13311944:Var2,[])
link(Str2,11868430:Text,[])
link(Str3,10322385:Var2,[])
link(Str4,6824894:Text,[])
link(Str5,8358532:Text,[])
link(Str6,8193515:Text,[])
link(Str7,4866543:Text,[])
link(Str8,7707199:Text,[])
link(Str9,9606788:Text,[])
link(Str10,12710250:Text,[])
link(Str11,15698063:Text,[])
link(Str12,7914082:Text,[])
link(Str13,9688994:Text,[])
link(Str14,16034921:String,[(482,566)(671,566)])
link(Str15,3983540:Text,[])
link(Str16,11496103:EditText,[(496,627)(671,627)])
link(Str17,797990:Text,[])
link(Str18,2379941:Data1,[(510,28)(34,28)])
}
Add(MultiReplace,13466306,441,84)
{
ReplaceList="а=a; б=b; в=v; г=g; д=d; е=e; ё=yo; ж=zh; з=z;\r\nи=i; й=y; к=k; л=l; м=m; н=n; о=o; п=p; р=r;\r\nс=s; т=t; у=u; ф=f; х=h; ц=c; ч=ch; ш=sh; щ=shch;\r\nь='; ы=q; ъ='; э=ye; ю=yu; я=ya; А=A; Б=B; В=V;\r\nГ=G; Д=D; Е=E; Ё=Yo; Ж=Zh; З=Z; И=I; Й=Y; К=K;\r\nЛ=L; М=M; Н=N; О=O; П=P; Р=R; С=S; Т=T; У=U;\r\nФ=F; Х=H; Ц=C; Ч=Ch; Ш=Sh; Щ=Shch; Ь='; Ы=Q; Ъ=';\r\nЭ=Ye; Ю=Yu; Я=Ya;"
link(onResult,9848688:doText,[])
}
Add(Edit,4866543,427,259)
{
Left=170
Top=245
Width=160
}
END_SDK
[/quote]
|
а не запускается дает ошибку
--- Добавлено в 2017-12-11 15:37:31

переделал свою форму по образу и подобию вроде работает! спасибо!

--- Добавлено в 2017-12-11 15:47:00

Tad писал(а):
Но так делать нельзя.

я это понимаю! и знаю про этот недостаток, но у меня не хватило знаний разобраться как работает nomer INTEGER PRIMARY KEY.

Редактировалось 4 раз(а), последний 2017-12-11 15:47:00
карма: 0

0
Ответов: 188
Рейтинг: 2
#8: 2017-12-11 15:58:16 ЛС | профиль | цитата
Tad писал(а):
И так у тебя везде.

как сделать nomer INTEGER PRIMARY KEY на существующей базе данных?

Редактировалось 1 раз(а), последний 2017-12-11 15:59:06
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#9: 2017-12-11 16:42:46 ЛС | профиль | цитата
zhorik5 писал(а):
как сделать nomer INTEGER PRIMARY KEY на существующей базе данных?
Где-то в теме sqlite - с чем его едят я выкладывал. Искать надо.

Пока вместо SELECT COUNT(*) FROM kontragenti; + Math примени
INSERT INTO kontragenti(nomer) SELECT max(nomer)+1 FROM kontragenti;

Редактировалось 2 раз(а), последний 2017-12-11 17:07:00
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 188
Рейтинг: 2
#10: 2017-12-11 17:09:47 ЛС | профиль | цитата
Tad писал(а):
Пока вместо SELECT COUNT(*) FROM kontragenti; + Math примени
INSERT INTO kontragenti(nomer) SELECT max(nomer)+1 FROM kontragenti;

а не могу, у меня блок с MATH формирует число строк для другой формы(. нужно придумать тогда откуда брать число строк для формы.

--- Добавлено в 2017-12-11 17:25:09

только если так. вроде рабоает.

Add(EditMulti,14480963,7,21)
{
EventCount=4
WorkCount=1
VarCount=2
Width=979
Height=578
VOffset=100
HOffset=300
link(doWork1,14389453:doShowModal,[(35,127)(35,76)])
link(Var1,491585:Var,[(313,590)(265,590)])
link(Var2,2670930:Var,[(320,590)(328,590)])
}
Add(ChildPanel,2267976,84,301)
{
link(onEvent1,7617765:In,[])
link(onEvent2,1338475:doEvent1,[(128,314)(128,237)])
}
BEGIN_SDK
Add(EditMulti,2706561,21,21)
{
EventCount=2
}
Add(Panel,13506441,35,105)
{
Top=-11
Width=1251
Height=38
Align=4
BorderWidth=0
BevelWidth=0
}
Add(Button,4101179,164,18)
{
Left=10
Top=5
Width=120
Height=30
Caption="Удалить Клинета"
link(onClick,2706561:onEvent1,[(258,24)(258,27)])
}
Add(Button,8169091,144,89)
{
Left=330
Top=5
Width=110
Height=25
Caption="Отмена"
link(onClick,2706561:onEvent2,[(248,95)(248,34)])
}
END_SDK
Add(MainForm,14389453,84,42)
{
Left=35
Top=105
Width=640
Height=480
Visible=1
Caption="Контрагенты"
Position=1
Point(doShowModal)
Point(onClose)
Point(onSetFocus)
Point(onKillFocus)
Point(onShow)
link(onActivate,6677629:doEvent3,[(314,48)(314,55)])
link(onCreate,6838620:doEvent1,[])
}
Add(StringTableMT,13053839,532,287)
{
Top=35
Width=1259
Height=721
Align=5
Columns=#8:Номер=40|27:Название фирмы партнера=150|22:Наименование Фирмы=100|37:Англ. Наименование (Обязательно!)=100|5:Адрес|3:ИНН|3:КПП|14:Расчетный счет|4:Банк|9:Кор. счет|3:БИК|6:Е@майл|7:Телефон|15:Контактное лицо|18:Использовать прайс|11:Код клиента|22:Закрепленный заправщик|10:Примечание|
StrDelimiter="\9"
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(Index)
Point(onDblClick)
Point(EndIdx)
Point(onChange)
link(onClick,12817222:doWork2,[(604,293)(604,391)])
link(onDblClick,12817222:doWork1,[(604,300)(604,384)])
}
Add(DSC_Query,6815197,196,133)
{
SQL="SELECT * FROM kontragenti ORDER BY nazvanie ASC"
DSManager="parent.global"
link(onQuery,14482478:doEvent1,[(334,139)(334,328)])
}
Add(Hub,6838620,140,56)
{
OutCount=3
link(onEvent1,6677629:doEvent2,[(332,62)(332,48)])
link(onEvent2,6815197:doQuery,[(175,69)(175,139)])
link(onEvent3,14150523:doExec,[(200,76)(200,62)])
}
Add(DSC_Exec,14150523,245,56)
{
SQL="CREATE TABLE kontragenti (nomer int, nazvanie char, polnoe_naimenovanie char, angl_nazvanie char, adres char, inn char, kpp char, raschetniy_schet char, bank char, kor_schet char, bik char, email char, telefon char, kontact_lico char, ispolzovat_price char, cod_clienta char, zapravshik char, primechanie char)\r\n"
DSManager="parent.global"
}
Add(FormatStr,665183,539,154)
{
DataCount=1
Mask="INSERT INTO kontragenti(nomer) SELECT max(nomer)+1 FROM kontragenti;"
Point(FString)
link(onFString,13109121:doExec,[])
}
Add(DSC_Exec,13109121,609,154)
{
DSManager="parent.global"
link(SQL,665183:FString,[(615,142)(587,142)(587,198)(545,198)])
}
Add(Hub,11279204,399,511)
{
link(onEvent1,10597944:doRead,[])
link(onEvent2,15991349:doData,[(420,524)(420,531)])
}
Add(ArrayRW,10597944,546,511)
{
link(onRead,5550212:doSplit,[])
link(Array,7870548:Var2,[])
link(Index,15447161:Var2,[])
}
Add(GetDataEx,1153524,546,402)
{
Angle=3
link(Data,13053839:Strings,[(552,407)])
}
Add(MultiStrPart,5550212,637,511)
{
Char="\9"
Count=1
link(onSplit,11003076:doString,[])
}
Add(FormatStr,11003076,707,511)
{
DataCount=1
Mask="DELETE FROM kontragenti WHERE nomer=%1"
Point(FString)
link(onFString,12749641:doExec,[])
link(Str1,5550212:Part1,[(713,499)(671,499)(671,555)(643,555)])
}
Add(DSC_Exec,12749641,763,511)
{
DSManager="parent.global"
link(onExec,6677629:doEvent1,[(800,517)(800,226)(499,226)(499,41)])
link(SQL,11003076:FString,[(769,499)(741,499)(741,555)(713,555)])
}
Add(DoData,15991349,441,525)
{
link(onEventData,13053839:doDelete,[(510,531)(510,307)])
link(Data,15447161:Var1,[(447,474)])
}
Add(GetDataEx,15447161,553,469)
{
link(Data,1564464:Var2,[])
}
Add(ChildForm,9467718,714,119)
{
FirstUsage=0
link(onEvent1,14480963:onEvent1,[(869,125)(869,127)])
link(onEvent3,6270659:doEvent1,[(758,139)(758,219)(275,219)(275,300)])
link(onEvent4,9802789:doQuery,[(811,146)(811,153)])
}
BEGIN_SDK
Add(EditMulti,2379941,-35,-7)
{
EventCount=6
WorkCount=1
DataCount=1
VarCount=2
Width=1329
Height=823
link(doWork1,14021805:doShowModal,[(21,-1)(21,237)])
link(Var1,16034921:Index,[(-29,629)(689,629)])
link(Var2,13311944:Var1,[(-22,82)])
}
Add(MainForm,14021805,154,203)
{
Left=35
Top=105
Width=807
Height=383
Visible=1
Point(onClose)
Point(doShowModal)
link(onActivate,11585841:doEvent1,[(250,209)(250,139)])
link(onDeactivate,2379941:onEvent4,[(775,216)(775,20)])
link(onCreate,15049992:doOpen,[])
link(onClose,15049992:doClose,[])
}
Add(Edit,8193515,567,280)
{
Left=220
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,4896915,574,315)
{
Left=220
Top=245
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7707199,588,350)
{
Left=220
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,15698063,616,413)
{
Left=615
Top=70
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Label,3448287,1184,371)
{
Left=10
Top=10
Width=154
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Название фирмы партнера"
}
Add(Label,12074310,1182,420)
{
Left=10
Top=50
Width=176
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Полное Наименование фирмы"
}
Add(Label,16429677,1182,462)
{
Left=10
Top=85
Width=156
Height=39
Font=[Times New Roman,10,1,0,204]
Caption="Английское Наименование (Обязательно!)"
}
Add(Label,4932833,1183,511)
{
Left=10
Top=140
Width=39
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Адрес"
}
Add(Label,1072301,1176,553)
{
Left=10
Top=170
Width=31
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="ИНН"
}
Add(Label,11865404,1183,595)
{
Left=10
Top=210
Width=30
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="КПП"
}
Add(Label,3469290,1183,679)
{
Left=10
Top=245
Width=91
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Расчетный счет"
}
Add(Label,15736005,1197,728)
{
Left=410
Top=10
Width=56
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Кор. счет"
}
Add(Label,1739345,1187,641)
{
Left=10
Top=280
Width=30
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Банк"
}
Add(Button,7503969,28,378)
{
Left=600
Top=305
Width=85
Height=35
Enabled=1
Caption="ОК"
Point(doEnabled)
link(onClick,13004597:doEvent1,[])
}
Add(Button,13679188,63,245)
{
Left=695
Top=305
Width=85
Height=35
Caption="ОТМЕНА"
link(onClick,13117481:doEvent1,[(111,251)(111,293)])
}
Add(Edit,8947271,511,35)
{
Left=220
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
Point(doSetFocus)
link(onChange,15997396:doWork1,[(569,41)(569,139)(408,139)(408,237)])
}
Add(DS_SQLite,15049992,203,217)
{
Name="global"
FileName=".\global.db"
WaitClose=0
link(onOpen,942555:doEvent1,[])
}
Add(Hub,14982477,140,385)
{
OutCount=3
link(onEvent1,13117481:doEvent3,[(166,391)(166,349)(114,349)(114,307)])
link(onEvent2,8675650:doString,[(228,398)(228,699)])
link(onEvent3,2379941:onEvent1,[(724,405)(724,-1)])
}
Add(Hub,13117481,126,287)
{
InCount=3
link(onEvent1,14021805:doClose,[(147,293)(147,230)])
}
Add(Label,772740,1194,725)
{
Left=410
Top=40
Width=28
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="БИК"
}
Add(Label,71411,1188,719)
{
Left=410
Top=70
Width=44
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="E@mail"
}
Add(Label,9676561,1181,712)
{
Left=410
Top=135
Width=98
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Контактное лицо"
}
Add(Label,3842413,1174,705)
{
Left=410
Top=105
Width=53
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Телефон"
}
Add(Label,1664523,1167,698)
{
Left=410
Top=175
Width=116
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Использовать прайс"
}
Add(Label,13024792,1160,691)
{
Left=410
Top=210
Width=71
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Код клиента"
}
Add(Label,11531711,1153,684)
{
Left=410
Top=245
Width=148
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Закрепленный заправщик"
}
Add(Label,5124501,1146,677)
{
Left=410
Top=280
Width=75
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Примечание"
}
Add(Edit,9848688,536,165)
{
Left=220
Top=90
Width=160
Font=[Times New Roman,10,0,0,204]
Enabled=1
Text=""
Point(doSetFocus)
link(onChange,4175374:In,[(585,171)(585,174)])
}
Add(ComboBox,11496103,823,606)
{
Left=615
Top=245
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Strings=#3:Нет|
Text=""
DataType=1
Point(Handle)
Point(Index)
Point(onSelect)
}
Add(Edit,11868430,529,102)
{
Left=220
Top=50
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,3983540,704,536)
{
Left=615
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,797990,865,641)
{
Left=615
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7914082,613,480)
{
Left=615
Top=105
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9688994,613,536)
{
Left=615
Top=135
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9606788,599,389)
{
Left=615
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,12710250,620,445)
{
Left=615
Top=40
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,6824894,543,200)
{
Left=220
Top=130
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,8358532,557,242)
{
Left=220
Top=170
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(DSC_Exec,1263187,785,693)
{
DSManager="parent.parent.global"
}
Add(DSC_Query,14112046,756,609)
{
SQL="SELECT fio FROM sotrudniki"
DSManager="parent.parent.global"
link(onQuery,11496103:doAdd,[(806,615)(806,612)])
}
Add(LineBreak,1448107,714,609)
{
link(Out,14112046:doQuery,[])
Primary=[8707490,-434,-392]
}
Add(GetDataEx,13311944,511,77)
{
link(Data,8947271:Text,[])
}
Add(ComboBox,16034921,662,494)
{
Left=615
Top=170
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Text=""
DataType=1
Point(Handle)
Point(Index)
Point(onSelect)
}
Add(Hub,942555,252,217)
{
link(onEvent1,8707490:In,[])
link(onEvent2,13711868:In,[])
}
Add(DSC_Query,1590475,693,336)
{
SQL="SELECT naimenovanie FROM kategory_price"
DSManager="parent.parent.global"
link(onQuery,16034921:doAdd,[(816,342)(816,500)])
}
Add(LineBreak,6701965,637,336)
{
link(Out,1590475:doQuery,[])
Primary=[13711868,-357,-112]
}
Add(Button,1036844,49,455)
{
Left=515
Top=305
Width=75
Height=35
Enabled=1
Caption="Добавить"
Point(doEnabled)
link(onClick,7304843:doEvent1,[(89,461)(89,440)])
}
Add(Hub,13004597,77,378)
{
link(onEvent1,13117481:doEvent2,[(109,384)(109,300)])
link(onEvent2,3255284:doEvent1,[])
}
Add(Hub,3255284,112,385)
{
InCount=2
OutCount=1
link(onEvent1,14982477:doEvent1,[])
}
Add(ChildForm,8146851,252,574)
{
FirstUsage=0
link(onEvent1,2379941:onEvent5,[(789,580)(789,27)])
link(onEvent2,2379941:onEvent6,[(789,587)(789,34)])
link(Data1,5483149:Var1,[(258,389)])
}
BEGIN_SDK
Add(EditMulti,14390227,21,21)
{
EventCount=2
WorkCount=1
DataCount=1
Width=1315
Height=788
link(doWork1,1590239:doShowModal,[(73,27)(73,195)])
}
Add(ChildPanel,12795484,28,203)
{
link(onEvent1,11900977:doEvent2,[(68,209)(68,321)(94,321)(94,244)])
link(onEvent2,7738847:doEvent1,[(65,216)(65,265)])
link(onEvent3,16211581:doEvent2,[])
}
BEGIN_SDK
Add(EditMulti,5115687,21,21)
{
EventCount=3
}
Add(Panel,11032594,35,105)
{
Top=472
Width=364
Height=41
Align=4
}
Add(Button,12090924,44,30)
{
Left=10
Top=5
Width=70
Height=35
Caption="Сохранить"
link(onClick,5115687:onEvent1,[(198,36)(198,27)])
}
Add(Button,2547117,171,51)
{
Left=265
Top=5
Width=70
Height=35
Caption="Отмена"
link(onClick,5115687:onEvent2,[(262,57)(262,34)])
}
Add(Button,9624714,249,112)
{
Left=145
Top=5
Width=60
Height=35
Caption="Очистить"
link(onClick,5115687:onEvent3,[(287,118)(287,41)])
}
END_SDK
Add(ChildPanel,15552921,399,301)
{
link(onEvent1,6215464:doMT_Add,[(461,307)(461,244)])
}
BEGIN_SDK
Add(EditMulti,4159810,21,21)
{
EventCount=1
}
Add(Panel,7378138,35,105)
{
Width=364
Height=55
Align=2
BorderWidth=0
BevelWidth=0
}
Add(Label,1814261,69,27)
{
Left=5
Top=10
Width=91
Height=17
Caption="Заполнить ценой"
}
Add(DSC_Query,8435477,203,42)
{
SQL="SELECT nomer, vid_rabot, model, partner FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent1,[(275,48)(275,90)])
}
Add(Button,15192029,140,42)
{
Left=235
Top=5
Width=115
Height=25
Caption="Партнер"
link(onClick,8435477:doQuery,[])
}
Add(Button,13220521,140,91)
{
Left=105
Top=5
Width=60
Height=25
Caption="Розница"
link(onClick,8548199:doQuery,[])
}
Add(DSC_Query,8548199,203,91)
{
SQL="SELECT nomer, vid_rabot, model, roznica FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent2,[])
}
Add(Hub,10526459,280,84)
{
InCount=2
OutCount=1
link(onEvent1,4159810:onEvent1,[(308,90)(308,27)])
}
Add(Label,1868121,14,35)
{
Top=35
Width=365
Height=17
Caption="При заполнении прайса обязательно выберите любую строку таблицы"
}
END_SDK
Add(MainForm,1590239,140,161)
{
Left=35
Top=105
Width=372
Height=547
Visible=1
Point(doShowModal)
link(onActivate,14390227:onEvent1,[(754,167)(754,27)])
link(onCreate,14519631:doOpen,[(177,181)(177,230)])
}
Add(DS_SQLite,14519631,189,224)
{
Name="global"
FileName=".\global.db"
link(onOpen,6626196:doEvent1,[])
}
Add(StringTableMT,6215464,490,203)
{
Top=55
Width=364
Height=417
Align=5
Columns=#4:№=25|6:Услуга|6:Модель|7:Цена=35|
StrDelimiter="\9"
Redaction=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(Index)
Point(onDblClick)
Point(Cell)
Point(onChange)
Point(onLineChange)
link(onClick,12604284:doEvent1,[])
link(onDblClick,12604284:doEvent2,[])
link(onChange,12604284:doEvent3,[])
link(onLineChange,12604284:doEvent4,[])
}
Add(Hub,6626196,252,224)
{
}
Add(Hub,11900977,105,231)
{
InCount=2
link(onEvent1,1590239:doClose,[(123,237)(123,188)])
link(onEvent2,14390227:onEvent2,[(727,244)(727,34)])
}
Add(Hub,7738847,70,259)
{
link(onEvent1,11900977:doEvent1,[(105,265)])
link(onEvent2,16211581:doEvent1,[(287,272)(287,216)])
}
Add(ArrayRW,494619,609,203)
{
link(onRead,12314249:doSplit,[])
link(Array,6215464:Strings,[(615,191)(563,191)(563,260)(510,260)])
}
Add(MultiStrPart,12314249,672,203)
{
Char="\9"
Count=4
link(onSplit,5925683:doString,[(716,209)(716,265)(660,265)(660,300)])
}
Add(FormatStr,5925683,672,294)
{
DataCount=4
Mask="UPDATE price SET '%2'='%4' WHERE nomer=%1"
Point(FString)
link(onFString,5428505:doExec,[])
link(Str1,12314249:Part1,[])
link(Str2,14390227:Data1,[(685,158)(27,158)])
link(Str4,12314249:Part4,[])
}
Add(DSC_Exec,5428505,742,294)
{
DSManager="parent.parent.parent.global"
link(SQL,5925683:FString,[(748,282)(713,282)(713,338)(678,338)])
}
Add(Hub,12604284,546,203)
{
InCount=4
OutCount=1
link(onEvent1,494619:doRead,[])
}
Add(Hub,16211581,427,210)
{
InCount=2
OutCount=1
link(onEvent1,6215464:doClear,[])
}
END_SDK
Add(Hub,7304843,98,434)
{
OutCount=3
link(onEvent1,3255284:doEvent2,[(124,440)(124,419)(100,419)(100,398)])
link(onEvent2,8146851:doWork1,[(182,447)(182,580)])
link(onEvent3,7503969:doEnabled,[(124,454)(124,419)(16,419)(16,384)])
}
Add(Hub,11585841,315,133)
{
OutCount=3
link(onEvent1,5259777:doEvent1,[(395,139)(395,48)])
link(onEvent2,2379941:onEvent3,[(847,146)(847,13)])
link(onEvent3,8347477:doQuery,[(343,153)(343,90)])
}
Add(Hub,5259777,413,42)
{
link(onEvent1,8947271:doText,[(445,48)(445,41)])
link(onEvent2,8947271:doSetFocus,[])
}
Add(LineBreak,4191113,-14,455)
{
link(Out,1643356:doEvent1,[])
Primary=[4175374,609,-287]
}
Add(MultiElement,15997396,420,231)
{
link(onEvent1,9848688:doText,[(459,237)(459,171)])
}
BEGIN_SDK
Add(EditMulti,12137061,42,49)
{
EventCount=1
WorkCount=1
DataCount=1
Width=1549
Height=60
VOffset=21
HOffset=21
link(doWork1,7056492:doModify,[])
}
Add(Replace,11439842,112,70)
{
SubStr="а"
DestStr="a"
link(onReplace,530333:doReplace,[])
}
Add(Replace,530333,154,70)
{
SubStr="б"
DestStr="b"
link(onReplace,11128969:doReplace,[])
}
Add(Replace,11128969,196,70)
{
SubStr="в"
DestStr="v"
link(onReplace,3391353:doReplace,[])
}
Add(Replace,3391353,238,70)
{
SubStr="г"
DestStr="g"
link(onReplace,14636492:doReplace,[])
}
Add(Replace,14636492,280,70)
{
SubStr="д"
DestStr="d"
link(onReplace,12283807:doReplace,[])
}
Add(Replace,12283807,322,70)
{
SubStr="е"
DestStr="e"
link(onReplace,16094144:doReplace,[])
}
Add(Replace,16094144,364,70)
{
SubStr="ё"
DestStr="yo"
link(onReplace,15370106:doReplace,[])
}
Add(Replace,15370106,406,70)
{
SubStr="ж"
DestStr="zh"
link(onReplace,16045438:doReplace,[])
}
Add(Replace,16045438,448,70)
{
SubStr="з"
DestStr="z"
link(onReplace,7316617:doReplace,[])
}
Add(Replace,7316617,490,70)
{
SubStr="и"
DestStr="i"
link(onReplace,7859333:doReplace,[])
}
Add(Replace,7859333,532,70)
{
SubStr="й"
DestStr="i"
link(onReplace,4297793:doReplace,[])
}
Add(Replace,4297793,574,70)
{
SubStr="к"
DestStr="k"
link(onReplace,14445077:doReplace,[])
}
Add(Replace,14445077,616,70)
{
SubStr="л"
DestStr="l"
link(onReplace,2487017:doReplace,[])
}
Add(Replace,2487017,658,70)
{
SubStr="м"
DestStr="m"
link(onReplace,13580692:doReplace,[])
}
Add(Replace,13580692,700,70)
{
SubStr="н"
DestStr="n"
link(onReplace,634748:doReplace,[])
}
Add(Replace,634748,742,70)
{
SubStr="о"
DestStr="o"
link(onReplace,439275:doReplace,[])
}
Add(Replace,439275,784,70)
{
SubStr="п"
DestStr="p"
link(onReplace,10546314:doReplace,[])
}
Add(Replace,10546314,826,70)
{
SubStr="р"
DestStr="r"
link(onReplace,5604329:doReplace,[])
}
Add(Replace,5604329,868,70)
{
SubStr="с"
DestStr="s"
link(onReplace,8844822:doReplace,[])
}
Add(Replace,8844822,910,70)
{
SubStr="т"
DestStr="t"
link(onReplace,1176478:doReplace,[])
}
Add(Replace,1176478,952,70)
{
SubStr="у"
DestStr="u"
link(onReplace,2638968:doReplace,[])
}
Add(Replace,2638968,994,70)
{
SubStr="ф"
DestStr="f"
link(onReplace,2325184:doReplace,[])
}
Add(Replace,2325184,1036,70)
{
SubStr="х"
DestStr="h"
link(onReplace,7324732:doReplace,[])
}
Add(Replace,7324732,1078,70)
{
SubStr="ц"
DestStr="tс"
link(onReplace,7644681:doReplace,[])
}
Add(Replace,7644681,1118,70)
{
SubStr="ч"
DestStr="ch"
link(onReplace,5102336:doReplace,[])
}
Add(Replace,5102336,1160,70)
{
SubStr="ш"
DestStr="sh"
link(onReplace,1683350:doReplace,[])
}
Add(Replace,1683350,1202,70)
{
SubStr="щ"
DestStr="sh"
link(onReplace,713049:doReplace,[])
}
Add(Replace,713049,1244,70)
{
SubStr="ь"
DestStr="'"
link(onReplace,2888230:doReplace,[])
}
Add(Replace,12869705,1370,70)
{
SubStr="э"
DestStr="a"
link(onReplace,10021912:doReplace,[])
}
Add(Replace,12585389,1328,70)
{
SubStr="ъ"
link(onReplace,12869705:doReplace,[])
}
Add(Replace,2888230,1286,70)
{
SubStr="ы"
DestStr="y"
link(onReplace,12585389:doReplace,[])
}
Add(Replace,10021912,1412,70)
{
SubStr="ю"
DestStr="yu"
link(onReplace,7662520:doReplace,[])
}
Add(Replace,7662520,1454,70)
{
SubStr="я"
DestStr="ya"
link(onReplace,1073863:doReplace,[])
}
Add(StrCase,7056492,63,70)
{
link(onModify,11439842:doReplace,[])
link(Str,12137061:Data1,[])
}
Add(Replace,1073863,1510,70)
{
SubStr=" "
DestStr="_"
link(onReplace,12137061:onEvent1,[])
}
END_SDK
Add(CheckBox,16362267,28,511)
{
Left=5
Top=315
Width=505
Caption="Если Вы заполнили все данные поставьте пожалуйста флажок и нажмите кнопку ДОБАВИТЬ"
link(onCheck,1643356:doEvent2,[(72,517)(72,493)(16,493)(16,468)])
}
Add(Hub,1643356,28,455)
{
InCount=2
OutCount=1
link(onEvent1,1036844:doEnabled,[])
}
Add(FormatStr,8675650,525,693)
{
DataCount=18
Mask="UPDATE kontragenti SET [nazvanie]='%1', \r\n [polnoe_naimenovanie]='%2', \r\n [angl_nazvanie]='%3', \r\n [adres] ='%4', \r\n [inn] ='%5', \r\n [kpp] ='%6', \r\n [raschetniy_schet] ='%7', \r\n [bank] ='%8', \r\n [kor_schet] ='%9', \r\n [bik] ='%10', \r\n [email] ='%11', \r\n [telefon] ='%12', \r\n [kontact_lico] ='%13', \r\n [ispolzovat_price] ='%14', \r\n [cod_clienta] ='%15', \r\n [zapravshik] ='%16', \r\n [primechanie] ='%17'\r\n WHERE [nomer]=%18;"
link(onFString,1263187:doExec,[])
link(Str1,13311944:Var2,[(531,393)(517,393)])
link(Str2,11868430:Text,[(538,417)(535,417)])
link(Str3,5483149:Var2,[(545,541)(542,541)])
link(Str4,6824894:Text,[(552,540)(549,540)])
link(Str5,8358532:Text,[(559,483)(563,483)])
link(Str6,8193515:Text,[(566,503)(573,503)])
link(Str7,4896915:Text,[(573,520)(580,520)])
link(Str8,7707199:Text,[(580,537)(594,537)])
link(Str9,9606788:Text,[(587,435)(605,435)])
link(Str10,12710250:Text,[(594,490)(626,490)])
link(Str11,15698063:Text,[(601,453)(622,453)])
link(Str12,7914082:Text,[(608,589)(619,589)])
link(Str13,9688994:Text,[(615,606)(619,606)])
link(Str14,16034921:String,[(622,616)(675,616)])
link(Str15,3983540:Text,[(629,631)(710,631)])
link(Str16,11496103:String,[(636,672)(836,672)])
link(Str17,797990:Text,[(643,683)(871,683)])
link(Str18,8347477:Result,[])
}
Add(GetDataEx,5483149,536,381)
{
link(Data,9848688:Text,[])
}
Add(DSC_QueryScalar,8347477,644,84)
{
SQL="SELECT COUNT(*) FROM kontragenti"
DSManager="parent.parent.global"
}
END_SDK
Add(Hub,9374952,462,70)
{
link(onEvent1,9467718:doWork1,[(595,76)(595,125)])
link(onEvent2,665183:doString,[(508,83)(508,160)])
}
Add(ChildForm,12817222,693,378)
{
FirstUsage=0
link(Data2,7870548:Var3,[(706,338)(613,338)(613,418)])
link(Data3,1564464:Var3,[(713,338)(620,338)(620,411)])
}
BEGIN_SDK
Add(EditMulti,15221509,-28,14)
{
EventCount=1
WorkCount=2
DataCount=3
Width=1427
Height=830
link(doWork1,8062457:doShowModal,[(21,20)(21,244)])
link(doWork2,1601173:doRead,[(38,27)(38,132)])
}
Add(MainForm,8062457,154,210)
{
Left=35
Top=105
Width=837
Height=415
Visible=1
Caption="Редактирование реквизитов контрагента"
Point(onClose)
Point(doShowModal)
link(onActivate,12031208:doSetFocus,[(324,216)(324,55)])
link(onDeactivate,15221509:onEvent1,[(792,223)(792,20)])
link(onCreate,3847960:doOpen,[])
link(onClose,3847960:doClose,[])
}
Add(Edit,6371502,469,546)
{
Left=230
Top=210
Width=190
Height=25
Font=[MS Sans Serif,12,0,0,1]
Text=""
link(Str,5580083:Part7,[(475,415)(244,415)])
}
Add(Edit,3406330,469,665)
{
Left=230
Top=245
Width=190
Height=25
Font=[MS Sans Serif,12,0,0,1]
Text=""
link(Str,5580083:Part8,[(475,419)(251,419)])
}
Add(Edit,369482,469,770)
{
Left=230
Top=280
Width=190
Height=25
Font=[MS Sans Serif,12,0,0,1]
Text=""
link(Str,5580083:Part9,[(475,436)(258,436)])
}
Add(Edit,3584000,1099,154)
{
Left=635
Top=75
Width=185
Height=25
Font=[MS Sans Serif,12,0,0,1]
Text=""
link(Str,5580083:Part12,[(1105,156)(279,156)])
}
Add(Label,13776450,1422,42)
{
Left=10
Top=10
Width=138
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Название фирмы партнера"
}
Add(Label,3147538,1420,91)
{
Left=10
Top=50
Width=163
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Полное Наименование фирмы"
}
Add(Label,5382834,1420,133)
{
Left=10
Top=90
Width=220
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Англ.Наименование не ред."
}
Add(Label,402104,1421,182)
{
Left=10
Top=140
Width=52
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Адрес"
}
Add(Label,10682440,1414,224)
{
Left=10
Top=170
Width=39
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="ИНН"
}
Add(Label,16742240,1421,266)
{
Left=10
Top=210
Width=38
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="КПП"
}
Add(Label,10062633,1421,350)
{
Left=10
Top=245
Width=51
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Расчетный счет"
}
Add(Label,6422460,1435,399)
{
Left=430
Top=10
Width=75
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Кор. счет"
}
Add(Label,6500044,1425,312)
{
Left=10
Top=280
Width=41
Height=24
Font=[MS Sans Serif,12,0,0,1]
Caption="Банк"
}
Add(Button,3568416,35,385)
{
Left=315
Top=330
Width=85
Height=40
Caption="ОК"
link(onClick,9612764:doEvent1,[])
}
Add(Button,6264284,63,245)
{
Left=470
Top=330
Width=85
Height=40
Caption="ОТМЕНА"
link(onClick,11158824:doEvent1,[(111,251)(111,293)])
}
Add(Edit,12031208,462,35)
{
Left=230
Top=10
Width=190
Height=25
Font=[MS Sans Serif,12,0,0,1]
Text=""
Point(doSetFocus)
link(Str,5580083:Part2,[(468,23)(332,23)(332,156)(209,156)])
}
Add(DS_SQLite,3847960,203,224)
{
Name="global"
FileName=".\global.db"
WaitClose=0
link(onOpen,9876680:In,[])
}
Add(DSC_Exec,7861455,609,91)
{
DSManager="parent.parent.global"
link(SQL,14358325:FString,[(615,72)(587,72)(587,128)(559,128)])
}
Add(FormatStr,14358325,553,91)
{
Mask="UPDATE kontragenti SET nazvanie='%2' WHERE nomer=%1"
Point(FString)
link(onFString,7861455:doExec,[])
link(Str1,10810715:Var2,[])
link(Str2,14678831:Var3,[(566,82)])
}
Add(DoData,47192,462,91)
{
link(onEventData,14358325:doString,[])
link(Data,14678831:Var2,[])
}
Add(Hub,5322682,133,385)
{
OutCount=11
link(onEvent1,617995:doEvent1,[(448,391)(448,370)])
link(onEvent2,47192:doData,[(410,398)(410,97)])
link(onEvent3,7844180:doData,[(371,405)(371,307)])
link(onEvent4,6491422:doData,[])
link(onEvent5,12522566:doData,[(406,419)(406,517)])
link(onEvent6,15470302:doData,[(410,426)(410,621)])
link(onEvent7,1254534:doData,[(410,433)(410,734)])
link(onEvent8,13292051:doData,[(452,440)(452,839)])
link(onEvent9,11158824:doEvent2,[(159,447)(159,373)(114,373)(114,300)])
link(onEvent10,16755554:doData,[(371,454)(371,202)])
}
Add(Hub,11158824,126,287)
{
InCount=2
OutCount=1
link(onEvent1,8062457:doClose,[(147,293)(147,237)])
}
Add(DSC_Exec,15493858,609,168)
{
DSManager="parent.parent.global"
link(SQL,4449385:FString,[(615,156)(587,156)(587,212)(566,212)])
}
Add(FormatStr,4449385,560,168)
{
Mask="UPDATE kontragenti SET polnoe_naimenovanie='%2' WHERE nomer=%1"
Point(FString)
link(onFString,15493858:doExec,[])
link(Str1,5816098:Var3,[(566,138)])
link(Str2,16294731:Var3,[(573,156)(525,156)(525,187)])
}
Add(DSC_Exec,12485757,623,301)
{
DSManager="parent.parent.global"
link(SQL,14268199:FString,[(629,289)(597,289)(597,345)(566,345)])
}
Add(FormatStr,14268199,560,301)
{
Mask="UPDATE kontragenti SET angl_nazvanie='%2' WHERE nomer=%1"
Point(FString)
link(onFString,12485757:doExec,[])
link(Str1,6625954:Var1,[(566,261)(522,261)(522,222)])
link(Str2,85940:Var3,[(573,278)])
}
Add(DSC_Exec,8069070,651,497)
{
DSManager="parent.parent.global"
link(SQL,1610677:FString,[(657,492)(622,492)(622,548)(538,548)])
}
Add(FormatStr,1610677,532,504)
{
Mask="UPDATE kontragenti SET inn=%2 WHERE nomer=%1"
Point(FString)
link(onFString,8069070:doExec,[(632,510)(632,503)])
link(Str1,10151587:Var2,[(538,474)(531,474)])
link(Str2,16332806:Var3,[(545,488)])
}
Add(DSC_Exec,9466477,651,609)
{
DSManager="parent.parent.global"
link(SQL,8758281:FString,[(657,597)(601,597)(601,660)(545,660)])
}
Add(FormatStr,8758281,539,616)
{
Mask="UPDATE kontragenti SET kpp=%2 WHERE nomer=%1"
Point(FString)


[color=gray][size=9]Редактировалось 3 раз(а), последний 2017-12-11 17:25:09[/size][/color]
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#11: 2017-12-11 17:56:58 ЛС | профиль | цитата
zhorik5 писал(а):
у меня блок с MATH число строк для другой формы
Если
zhorik5 писал(а):
переделал свою форму по образу и подобию вроде работает
то строка в FormatStr
UPDATE kontragenti SET [nazvanie]='%1', 
[polnoe_naimenovanie]='%2',
[angl_nazvanie]='%3',
[adres] ='%4',
[inn] ='%5',
[kpp] ='%6',
[raschetniy_schet] ='%7',
[bank] ='%8',
[kor_schet] ='%9',
[bik] ='%10',
[email] ='%11',
[telefon] ='%12',
[kontact_lico] ='%13',
[ispolzovat_price] ='%14',
[cod_clienta] ='%15',
[zapravshik] ='%16',
[primechanie] ='%17'
WHERE [nomer]=(SELECT max(nomer) FROM kontragenti);
и забудь за COUNT()

--- Добавлено в 2017-12-11 18:30:53

А вроде можно и так: (строка в FormatStr)
INSERT INTO kontragenti values((SELECT max(nomer)+1 from kontragenti),'%1','%2','%3','%4','%5','%6','%7','%8','%9','%10','%11','%12','%13','%14','%15','%16','%17');
без всякой предвариловки.

--- Добавлено в 2017-12-11 18:46:27

Вот как-то так


Add(ChildForm,9467718,756,189)
{
FirstUsage=0
}
BEGIN_SDK
Add(EditMulti,2379941,21,7)
{
EventCount=6
WorkCount=1
DataCount=1
VarCount=2
Width=944
Height=767
link(doWork1,14021805:doShowModal,[(115,13)(115,237)])
link(Var1,16034921:Index,[(27,629)(741,629)])
link(Var2,13311944:Var1,[(34,649)])
}
Add(MainForm,14021805,210,203)
{
Left=35
Top=105
Width=807
Height=383
Visible=1
Point(onClose)
Point(doShowModal)
link(onActivate,11585841:doEvent1,[(306,209)(306,139)])
link(onDeactivate,2379941:onEvent4,[(775,216)(775,34)])
link(onCreate,15049992:doOpen,[])
link(onClose,15049992:doClose,[])
}
Add(Edit,8193515,616,280)
{
Left=220
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,4896915,623,315)
{
Left=220
Top=245
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7707199,630,350)
{
Left=220
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,15698063,651,455)
{
Left=615
Top=70
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Label,3448287,910,168)
{
Left=10
Top=10
Width=154
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Название фирмы партнера"
}
Add(Label,12074310,903,217)
{
Left=10
Top=50
Width=176
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Полное Наименование фирмы"
}
Add(Label,16429677,903,259)
{
Left=10
Top=85
Width=156
Height=39
Font=[Times New Roman,10,1,0,204]
Caption="Английское Наименование (Обязательно!)"
}
Add(Label,4932833,910,308)
{
Left=10
Top=140
Width=39
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Адрес"
}
Add(Label,1072301,903,350)
{
Left=10
Top=170
Width=31
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="ИНН"
}
Add(Label,11865404,910,392)
{
Left=10
Top=210
Width=30
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="КПП"
}
Add(Label,3469290,910,476)
{
Left=10
Top=245
Width=91
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Расчетный счет"
}
Add(Label,15736005,924,525)
{
Left=410
Top=10
Width=56
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Кор. счет"
}
Add(Label,1739345,910,434)
{
Left=10
Top=280
Width=30
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Банк"
}
Add(Button,7503969,84,378)
{
Left=600
Top=305
Width=85
Height=35
Enabled=1
Caption="ОК"
Point(doEnabled)
link(onClick,13004597:doEvent1,[])
}
Add(Button,13679188,119,245)
{
Left=695
Top=305
Width=85
Height=35
Caption="ОТМЕНА"
link(onClick,13117481:doEvent1,[(167,251)(167,293)])
}
Add(Edit,8947271,581,63)
{
Left=220
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
Point(doSetFocus)
link(onChange,13466306:doMultiReplace,[(622,69)(622,44)(513,44)(513,167)])
}
Add(DS_SQLite,15049992,259,217)
{
Name="global"
FileName=".\global.db"
WaitClose=0
link(onOpen,942555:doEvent1,[])
}
Add(Hub,14982477,196,385)
{
OutCount=3
link(onEvent1,13117481:doEvent3,[(222,391)(222,349)(170,349)(170,307)])
link(onEvent2,8675650:doString,[(284,398)(284,699)])
link(onEvent3,2379941:onEvent1,[(724,405)(724,13)])
}
Add(Hub,13117481,182,287)
{
InCount=3
link(onEvent1,14021805:doClose,[(203,293)(203,230)])
}
Add(Label,772740,917,518)
{
Left=410
Top=40
Width=28
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="БИК"
}
Add(Label,71411,910,511)
{
Left=410
Top=70
Width=44
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="E@mail"
}
Add(Label,9676561,903,504)
{
Left=410
Top=135
Width=98
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Контактное лицо"
}
Add(Label,3842413,896,497)
{
Left=410
Top=105
Width=53
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Телефон"
}
Add(Label,1664523,889,490)
{
Left=410
Top=175
Width=116
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Использовать прайс"
}
Add(Label,13024792,882,483)
{
Left=410
Top=210
Width=71
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Код клиента"
}
Add(Label,11531711,875,476)
{
Left=410
Top=245
Width=148
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Закрепленный заправщик"
}
Add(Label,5124501,868,469)
{
Left=410
Top=280
Width=75
Height=19
Font=[Times New Roman,10,0,0,204]
Caption="Примечание"
}
Add(Edit,9848688,595,161)
{
Left=220
Top=90
Width=160
Font=[Times New Roman,10,0,0,204]
Enabled=1
Text=""
Point(doSetFocus)
link(onChange,4175374:In,[])
}
Add(ComboBox,11496103,875,609)
{
Left=615
Top=245
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Strings=#3:Нет|
Text=""
DataType=1
Point(Handle)
Point(Index)
Point(onSelect)
}
Add(Edit,11868430,588,98)
{
Left=220
Top=50
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,3983540,756,532)
{
Left=615
Top=210
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,797990,917,637)
{
Left=615
Top=280
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,7914082,658,490)
{
Left=615
Top=105
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9688994,665,532)
{
Left=615
Top=135
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,9606788,637,385)
{
Left=615
Top=10
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,12710250,644,420)
{
Left=615
Top=40
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,6824894,602,196)
{
Left=220
Top=130
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(Edit,8358532,609,238)
{
Left=220
Top=170
Width=160
Font=[Times New Roman,10,0,0,204]
Text=""
}
Add(DSC_Exec,1263187,840,693)
{
DSManager="parent.parent.global"
}
Add(DSC_Query,14112046,812,609)
{
SQL="SELECT fio FROM sotrudniki"
DSManager="parent.parent.global"
link(onQuery,11496103:doAdd,[])
}
Add(LineBreak,4208848,770,609)
{
link(Out,14112046:doQuery,[])
Primary=[8707490,-434,-392]
}
Add(GetDataEx,13311944,581,644)
{
link(Data,8947271:Text,[])
}
Add(ComboBox,16034921,714,490)
{
Left=615
Top=170
Width=160
Height=21
Font=[Times New Roman,10,0,0,204]
Text=""
DataType=1
Point(Handle)
Point(Index)
Point(onSelect)
}
Add(Hub,942555,308,217)
{
link(onEvent1,8707490:In,[])
link(onEvent2,13711868:In,[])
}
Add(DSC_Query,1590475,749,336)
{
SQL="SELECT naimenovanie FROM kategory_price"
DSManager="parent.parent.global"
link(onQuery,16034921:doAdd,[(821,342)(821,496)])
}
Add(LineBreak,15005630,693,336)
{
link(Out,1590475:doQuery,[])
Primary=[13711868,-357,-112]
}
Add(Button,1036844,105,455)
{
Left=515
Top=305
Width=75
Height=35
Enabled=1
Caption="Добавить"
Point(doEnabled)
link(onClick,7304843:doEvent1,[(145,461)(145,440)])
}
Add(Hub,13004597,133,378)
{
link(onEvent1,13117481:doEvent2,[(165,384)(165,300)])
link(onEvent2,3255284:doEvent1,[])
}
Add(Hub,3255284,168,385)
{
InCount=2
OutCount=1
link(onEvent1,14982477:doEvent1,[])
}
Add(ChildForm,8146851,308,574)
{
FirstUsage=0
link(onEvent1,2379941:onEvent5,[(789,580)(789,41)])
link(onEvent2,2379941:onEvent6,[(789,587)(789,48)])
link(Data1,5483149:Var1,[(314,383)])
}
BEGIN_SDK
Add(EditMulti,14390227,21,21)
{
EventCount=2
WorkCount=1
DataCount=1
Width=1315
Height=788
link(doWork1,1590239:doShowModal,[(73,27)(73,195)])
}
Add(ChildPanel,12795484,28,203)
{
link(onEvent1,11900977:doEvent2,[(68,209)(68,321)(94,321)(94,244)])
link(onEvent2,7738847:doEvent1,[(65,216)(65,265)])
link(onEvent3,16211581:doEvent2,[])
}
BEGIN_SDK
Add(EditMulti,5115687,21,21)
{
EventCount=3
}
Add(Panel,11032594,35,105)
{
Top=472
Width=364
Height=41
Align=4
}
Add(Button,12090924,44,30)
{
Left=10
Top=5
Width=70
Height=35
Caption="Сохранить"
link(onClick,5115687:onEvent1,[(198,36)(198,27)])
}
Add(Button,2547117,171,51)
{
Left=265
Top=5
Width=70
Height=35
Caption="Отмена"
link(onClick,5115687:onEvent2,[(262,57)(262,34)])
}
Add(Button,9624714,249,112)
{
Left=145
Top=5
Width=60
Height=35
Caption="Очистить"
link(onClick,5115687:onEvent3,[(287,118)(287,41)])
}
END_SDK
Add(ChildPanel,15552921,399,301)
{
link(onEvent1,6215464:doMT_Add,[(461,307)(461,244)])
}
BEGIN_SDK
Add(EditMulti,4159810,21,21)
{
EventCount=1
}
Add(Panel,7378138,35,105)
{
Width=364
Height=55
Align=2
BorderWidth=0
BevelWidth=0
}
Add(Label,1814261,69,27)
{
Left=5
Top=10
Width=91
Height=17
Caption="Заполнить ценой"
}
Add(DSC_Query,8435477,203,42)
{
SQL="SELECT nomer, vid_rabot, model, partner FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent1,[(275,48)(275,90)])
}
Add(Button,15192029,140,42)
{
Left=235
Top=5
Width=115
Height=25
Caption="Партнер"
link(onClick,8435477:doQuery,[])
}
Add(Button,13220521,140,91)
{
Left=105
Top=5
Width=60
Height=25
Caption="Розница"
link(onClick,8548199:doQuery,[])
}
Add(DSC_Query,8548199,203,91)
{
SQL="SELECT nomer, vid_rabot, model, roznica FROM price"
DSManager="parent.parent.parent.parent.global"
link(onQuery,10526459:doEvent2,[])
}
Add(Hub,10526459,280,84)
{
InCount=2
OutCount=1
link(onEvent1,4159810:onEvent1,[(308,90)(308,27)])
}
Add(Label,1868121,14,35)
{
Top=35
Width=365
Height=17
Caption="При заполнении прайса обязательно выберите любую строку таблицы"
}
END_SDK
Add(MainForm,1590239,140,161)
{
Left=35
Top=105
Width=372
Height=547
Visible=1
Point(doShowModal)
link(onActivate,14390227:onEvent1,[(754,167)(754,27)])
link(onCreate,14519631:doOpen,[(177,181)(177,230)])
}
Add(DS_SQLite,14519631,189,224)
{
Name="global"
FileName=".\global.db"
link(onOpen,6626196:doEvent1,[])
}
Add(StringTableMT,6215464,490,203)
{
Top=55
Width=364
Height=417
Align=5
Columns=#4:№=25|6:Услуга|6:Модель|7:Цена=35|
StrDelimiter="\9"
Redaction=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
Point(Strings)
Point(Index)
Point(onDblClick)
Point(Cell)
Point(onChange)
Point(onLineChange)
link(onClick,12604284:doEvent1,[])
link(onDblClick,12604284:doEvent2,[])
link(onChange,12604284:doEvent3,[])
link(onLineChange,12604284:doEvent4,[])
}
Add(Hub,6626196,252,224)
{
}
Add(Hub,11900977,105,231)
{
InCount=2
link(onEvent1,1590239:doClose,[(123,237)(123,188)])
link(onEvent2,14390227:onEvent2,[(727,244)(727,34)])
}
Add(Hub,7738847,70,259)
{
link(onEvent1,11900977:doEvent1,[(105,265)])
link(onEvent2,16211581:doEvent1,[(287,272)(287,216)])
}
Add(ArrayRW,494619,609,203)
{
link(onRead,12314249:doSplit,[])
link(Array,6215464:Strings,[(615,191)(563,191)(563,260)(510,260)])
}
Add(MultiStrPart,12314249,672,203)
{
Char="\9"
Count=4
link(onSplit,5925683:doString,[(716,209)(716,265)(660,265)(660,300)])
}
Add(FormatStr,5925683,672,294)
{
DataCount=4
Mask="UPDATE price SET '%2'='%4' WHERE nomer=%1"
Point(FString)
link(onFString,5428505:doExec,[])
link(Str1,12314249:Part1,[])
link(Str2,14390227:Data1,[(685,158)(27,158)])
link(Str4,12314249:Part4,[])
}
Add(DSC_Exec,5428505,742,294)
{
DSManager="parent.parent.parent.global"
link(SQL,5925683:FString,[(748,282)(713,282)(713,338)(678,338)])
}
Add(Hub,12604284,546,203)
{
InCount=4
OutCount=1
link(onEvent1,494619:doRead,[])
}
Add(Hub,16211581,427,210)
{
InCount=2
OutCount=1
link(onEvent1,6215464:doClear,[])
}
END_SDK
Add(Hub,7304843,154,434)
{
OutCount=3
link(onEvent1,3255284:doEvent2,[(180,440)(180,419)(156,419)(156,398)])
link(onEvent2,8146851:doWork1,[(238,447)(238,580)])
link(onEvent3,7503969:doEnabled,[(180,454)(180,419)(72,419)(72,384)])
}
Add(Hub,11585841,371,133)
{
OutCount=3
link(onEvent1,5259777:doEvent1,[(451,139)(451,76)])
link(onEvent2,2379941:onEvent3,[(847,146)(847,27)])
}
Add(Hub,5259777,546,70)
{
link(onEvent1,8947271:doText,[(570,76)(570,69)])
link(onEvent2,8947271:doSetFocus,[])
}
Add(LineBreak,8843422,35,455)
{
link(Out,1643356:doEvent1,[])
Primary=[4175374,616,-294]
}
Add(CheckBox,16362267,84,511)
{
Left=5
Top=315
Width=505
Caption="Если Вы заполнили все данные поставьте пожалуйста флажок и нажмите кнопку ДОБАВИТЬ"
link(onCheck,1643356:doEvent2,[(128,517)(128,493)(72,493)(72,468)])
}
Add(Hub,1643356,84,455)
{
InCount=2
OutCount=1
link(onEvent1,1036844:doEnabled,[])
}
Add(FormatStr,8675650,581,693)
{
DataCount=17
Mask="INSERT INTO kontragenti values((SELECT max(nomer)+1 from kontragenti),'%1','%2','%3','%4','%5','%6','%7','%8','%9','%10','%11','%12','%13','%14','%15','%16','%17'); "
link(onFString,1263187:doExec,[])
link(Str1,13311944:Var2,[])
link(Str2,11868430:Text,[])
link(Str3,5483149:Var2,[])
link(Str4,6824894:Text,[])
link(Str5,8358532:Text,[])
link(Str6,8193515:Text,[])
link(Str7,4896915:Text,[])
link(Str8,7707199:Text,[])
link(Str9,9606788:Text,[])
link(Str10,12710250:Text,[])
link(Str11,15698063:Text,[])
link(Str12,7914082:Text,[])
link(Str13,9688994:Text,[])
link(Str14,16034921:String,[(678,616)(727,616)])
link(Str15,3983540:Text,[(685,653)(762,653)])
link(Str16,11496103:String,[(692,672)(888,672)])
link(Str17,797990:Text,[(699,683)(923,683)])
}
Add(GetDataEx,5483149,595,378)
{
link(Data,9848688:Text,[])
}
Add(MultiReplace,13466306,539,161)
{
ReplaceList="а=a; б=b; в=v; г=g; д=d; е=e; ё=yo; ж=zh; з=z;\r\nи=i; й=y; к=k; л=l; м=m; н=n; о=o; п=p; р=r;\r\nс=s; т=t; у=u; ф=f; х=h; ц=c; ч=ch; ш=sh; щ=shch;\r\nь='; ы=q; ъ='; э=ye; ю=yu; я=ya; А=A; Б=B; В=V;\r\nГ=G; Д=D; Е=E; Ё=Yo; Ж=Zh; З=Z; И=I; Й=Y; К=K;\r\nЛ=L; М=M; Н=N; О=O; П=P; Р=R; С=S; Т=T; У=U;\r\nФ=F; Х=H; Ц=C; Ч=Ch; Ш=Sh; Щ=Shch; Ь='; Ы=Q; Ъ=';\r\nЭ=Ye; Ю=Yu; Я=Ya;"
link(onResult,9848688:doText,[])
}
END_SDK


Редактировалось 3 раз(а), последний 2017-12-11 18:46:27
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1535
Рейтинг: 176
#12: 2017-12-11 23:07:47 ЛС | профиль | цитата
zhorik5 писал(а):
RinniX писал(а):
ser_davkin, это главная беда ХиАсма) По началу делаешь с мыслью "Щас сделаю, потом в порядок приведу", потом думаешь "Ёп, если буду приводить всё это в порядок пройдет сотня лет, х с ним и так сойдёт, работает - не трогай" D

Да действительно! полностью согласен,


Есть пословица, и однажды ты поймёшь и согласишься с этим, что в словах тех есть глубокий смысл. Именно смысл, а не просто красивый набор слов.

"Чисто не там, где убирают - чисто там, где не сорят".
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 188
Рейтинг: 2
#13: 2017-12-12 18:37:28 ЛС | профиль | цитата
учитывая советы и рекомендации доработано на дату поста!
https://yadi.sk/d/9k9kn2OK3QYxXF

Редактировалось 1 раз(а), последний 2017-12-12 18:46:32
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#14: 2017-12-12 19:55:28 ЛС | профиль | цитата
40 минут.
glf.jpg
сравни со своей.

Редактировалось 2 раз(а), последний 2017-12-12 20:00:16
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 188
Рейтинг: 2
#15: 2017-12-13 09:22:03 ЛС | профиль | цитата
Tad писал(а):
40 минут.
glf.jpg

сравни со своей.

тут видно что мастер делал))) не то что я... вкладывай схему полюбуемся все вместе
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)