[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]
|