1,301 Topic by sibprogsistem

(1 replies, posted in Russian)

в  обычных браузерах письма отправляется
а через браузер в проекте постоянная ошибка

Go to forum: Russian

1,302 Reply by sibprogsistem

(6 replies, posted in FAQ)

проверил через почтовый сервис the bat, smtp соединение сработало только когда я выбрал (требовать безопастную аутентификацию)
в MVD есть что-то подобное?

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5159&download=0

Go to forum: FAQ

1,303 Reply by sibprogsistem

(6 replies, posted in FAQ)

все способы перепробовал.. в windows 7 работает а в 8.1 и 10 не хочет

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5158&download=0

Go to forum: FAQ

1,304 Reply by sibprogsistem

(29 replies, posted in Russian)

а как нажать на кнопку?

<input type="submit" value="Отправить" class="wpcf7-form-control wpcf7-submit">

input type="submit"

Go to forum: Russian

1,305 Reply by sibprogsistem

(6 replies, posted in FAQ)

сталкнулся с проблемой ...
windows 8.1 блокирует соединение с почтой

Go to forum: FAQ

1,306 Reply by sibprogsistem

(6 replies, posted in Script)

example

 procedure frmReceivinOgEquipment_bOkCompany_OnClick (Sender: TObject; var Cancel: boolean);

 var tTypeKC : string = IntToStr(frmReceivinOgEquipment.cbTCK.DbItemID);
     tNameCompany : string = IntToStr(frmReceivinOgEquipment.cbNameCompany.DbItemID);
     tNameTypeOfEquipment : string = IntToStr(frmReceivinOgEquipment.cbNameTypeOfEquipment.DbItemID);
     tNameManufacturer : string = IntToStr(frmReceivinOgEquipment.cbNameManufacturer.DbItemID);
     tDate : string = FormatDateTime('yyyy-mm-dd',frmReceivinOgEquipment.dtDateInServise.DateTime);
     tCompanyOrApp : string = IntToStr(frmReceivinOgEquipment.cbnameclCompanyOrApp.DbItemID);
     tStatusName : string = IntToStr(frmReceivinOgEquipment.cbStatusName.DbItemID);
     tCount : string;
     sWarranty: string = frmReceivinOgEquipment.cbWarranty.sqlValue;
     sOnlyDiagnostic: string = frmReceivinOgEquipment.cbOnlyDiagnostic.sqlValue;
    begin
      tCount := frmReceivinOgEquipment.RecordCount.Text;
      //проверка на заполнение полей
      if (tTypeKC='-1') then ShowHint(frmReceivinOgEquipment.cbTCK, mess13)else
      if (tDate='-1') then ShowHint(frmReceivinOgEquipment.dtDateInServise, mess13)else
      if (tNameCompany='-1') then ShowHint(frmReceivinOgEquipment.cbNameCompany, mess13)else
      if (tNameTypeOfEquipment='-1') then ShowHint(frmReceivinOgEquipment.cbNameTypeOfEquipment, mess13)else
      if (tNameManufacturer='-1') then ShowHint(frmReceivinOgEquipment.cbNameManufacturer, mess13)else
      if (frmReceivinOgEquipment.eModel.Text='') then ShowHint(frmReceivinOgEquipment.eModel, mess13)else
      if (frmReceivinOgEquipment.eSerialNamber.Text='') then ShowHint(frmReceivinOgEquipment.eSerialNamber, mess13)else
      if (frmReceivinOgEquipment.eEquipment.Text='') then ShowHint(frmReceivinOgEquipment.eEquipment, mess13)else
      if (frmReceivinOgEquipment.mDescriptionATCsWords.Text='') then ShowHint(frmReceivinOgEquipment.mDescriptionATCsWords, mess13)else
      if (frmReceivinOgEquipment.mExternalStatus.Text='') then ShowHint(frmReceivinOgEquipment.mExternalStatus, mess13)else
    begin
      // запись в таблицы базы данных
      SQLExecute('INSERT INTO servise (dateInServise, id_status, id_Company, id_TypeOfEquipment, id_manufacturer, model, serialNamber, equipment, externalStatus, descriptionATCsWords, id_clCompanyOrApp, record_count, warranty, onlyDiiagnostics) VALUES ("'+tDate+'", "'+tStatusName+'", "'+tNameCompany+'", "'+ tNameTypeOfEquipment + '", "'+tNameManufacturer+'", "'+frmReceivinOgEquipment.eModel.Text+'", "'+frmReceivinOgEquipment.eSerialNamber.Text+ '", "'+frmReceivinOgEquipment.eEquipment.Text+ '", "'+ frmReceivinOgEquipment.mDescriptionATCsWords.Text+ '", "'+ frmReceivinOgEquipment.mExternalStatus.Text+ '", "'+tCompanyOrApp+'", "'+tCount+'", "'+sWarranty+'", "'+sOnlyDiagnostic+'")');
          // обновление таблицы данных главной формы
      frmServiceCen.tgList.dbUpdate;
      frmReceivinOgEquipment.RecordCount.Text := IntToStr(GetNewRecordCount('servise'));
      //закрытие формы
      frmReceivinOgEquipment.Close;
  end;
end;
tNameCompany : string = IntToStr(frmReceivinOgEquipment.cbNameCompany.DbItemID); // Combobox
 sWarranty: string = frmReceivinOgEquipment.cbWarranty.sqlValue; //  check Box
tDate : string = FormatDateTime('yyyy-mm-dd',frmReceivinOgEquipment.dtDateInServise.DateTime); // Date

Go to forum: Script

1,307 Topic by sibprogsistem

(0 replies, posted in FAQ)

в данном примере происходит запись логов программы в ini файл  с привязкой ко времени
при этом для каждой даты создается новый ini файл

Go to forum: FAQ

1,308 Reply by sibprogsistem

(8 replies, posted in Russian)

pt.82 wrote:

помогите!!!!
данный поиск работает, но если например есть в таблице номер 321 и 3214 при сканировании сканером штрихков номер 3214, первым находится 321 и соответственно открывается не 3214, а 321

скорее всего, это потому что у вас первая найденная  запись выделяется

Go to forum: Russian

1,309 Reply by sibprogsistem

(2 replies, posted in Russian)

vasya wrote:

можно ли использовать кирилицу в названиях таблиц и форм?

не стоит.. доже если можно, все равно не стоит

Go to forum: Russian

1,310 Reply by sibprogsistem

(6 replies, posted in Script)

rhyacm wrote:

Hi, can someone please help me with correct syntax pls?
I cant make it work... i want to insert to table via script because i need to manipulate 2 different tables in one button which i cant do in gui.

SQLExecute('INSERT INTO Customer (count,id_customer,date,due,payed,balance,discount,deliver,pickup,id_user) VALUES ("' + qcnt + "','" + qcus + "','" + qdte + "','" + qtot + "','" + qten + "','" + qchn + "','" + qdnt + "','" + qchr + "','" + qpup + "','" +  qnme + '")');

values are variable i convert to proper type StrToFloat, StrToInt etc...
I keep on receiving error') ' expected....

" '  ' "

Go to forum: Script

1,311 Reply by sibprogsistem

(7 replies, posted in Russian)

agatlogic101 wrote:

Доброе время суток. Есть ли способ на определённой форме спрятать крестик (тот что закрывает форму) Ну и сразу со всеми прочими кнопками тех что рядом сворачивания окна.

Go to forum: Russian

1,312 Reply by sibprogsistem

(63 replies, posted in Russian)

Пока изучал SQLITE  понял, что  одновременно работать с БД могут множество потоков, каждый из которых может читать и/или модифицировать данные. В тот момент, когда один из потоков пишет в базу, остальные ожидают в очереди течении заданного таймаута. При чтении  блокировок не бывает
... Для создания очереди запросов следует указать лимит времени на пребывание запросов в очереди.
http://www.sqlite.org/c3ref/busy_timeout.html

Вот только, делема Это уже есть в SQLITE MVD или нет и если нет то как правельно это записать...
int sqlite3_busy_timeout(sqlite3*, int ms)


Может как-то тригер сделать

Go to forum: Russian

1,313 Reply by sibprogsistem

(11 replies, posted in Russian)

vit007 wrote:

Подскажите, есть таблица TableGrid2, и надо по двойному щелчку мыши на ячейку перенести данные в текстовое поле Edit1 расположенной в той же Form1

PROCEDURE Form1_TableGrid2_OnCellDoubleClick (Sender: TObject; ACol, ARow: INTEGER);
BEGIN


END.

PROCEDURE Form1_TableGrid2_OnCellDoubleClick (Sender: TObject; ACol, ARow: INTEGER);
BEGIN
Form1.Edit1.Text:=SQLEXecute('SELECT ваше_поле FROM ваша_таблица WHERE id=' +Form1.TableGrid2.sqlValue);
END

Go to forum: Russian

1,314 Reply by sibprogsistem

(396 replies, posted in Russian)

Сегодня редактировал не большой проект, ну и как всегда в спешке открыл один и тот же проект 2-ва раза ..
в общем в одном окне отредактировал и благополучно закрыл его ... а во втором не редактировал, и да таки я его запустил и переписал все что до этого было сделанно...  В общем каюсь, нужно защититу от дурака, что бы один проект не открывать 10 раз ... ))

Go to forum: Russian

1,315 Reply by sibprogsistem

(10 replies, posted in Russian)

у Вас не правельно сформированна база данных, к примеры: почему-то у вас название отчета сохраняется в поле расходы (viruchka_goroda)
в таблице (viruchka_goroda) поле "РАСХОДЫ"

Go to forum: Russian

1,316 Reply by sibprogsistem

(7 replies, posted in Russian)

Sfinks_M wrote:

Хотел прикрепить пример, но форум не даёт, пишет что большой объем, zip архив на 5,25мБ

у далите файлы dll и exe

Go to forum: Russian

1,317 Reply by sibprogsistem

(10 replies, posted in Russian)

список городов и есть (словарь..) Вам нужно  создать теблицу со списком городов  и потом связать таблицу сотрудников с таблицей городов но не наоборот...

Go to forum: Russian

1,318 Reply by sibprogsistem

(3 replies, posted in FAQ)

где получить url

Go to forum: FAQ

1,319 Reply by sibprogsistem

(3 replies, posted in FAQ)

настройка CSV/XLS Exporter

Go to forum: FAQ

1,320 Topic by sibprogsistem

(3 replies, posted in FAQ)

Все таки я замарочился и сделал это...
 
 
при создании проекта использовал:
хостинг джино https://www.jino.ru/
cms Wordpress
плагины:
WooCommerce https://ru.wordpress.org/plugins/woocommerce/
CSV/XLS Exporter https://ru.wordpress.org/plugins/simple … -exporter/

настройка CSV/XLS Exporter
ВНИМАНИЕ с начало нужно выбрать Custom Post Type to Export(заказы) потом сохранить настройки
http://myvisualdatabase.com/forum/misc. … download=1
где получить url?
http://myvisualdatabase.com/forum/misc. … download=1 
 
ВНИМАНИЕ при создании почтового ящика в джино не забудьте включить опцию smtp


принцип работы :
программа просит пользователя ввести e-mail указанный при покупке программы
если покупка не производилась можно перейти на вэб-страницу для покупки
далее программа загружает csv из url магазина где указаны e-mail адреса совершившие покупку, если e-mail адреса совпадают, то
программа посылает сообщение с номером тома диска (с которого запущена программа) на указанный e-mail адрес в виде 'RC5'

где и что нижно указать написано в самом проекте (качайте)

Go to forum: FAQ

1,321 Topic by sibprogsistem

(0 replies, posted in Russian)

при попытке отправить сообщение сталкнулся с такой ошибкой 

syntacticaly invalid EHLO argument

оказалось что эта ошибка возникала из-зи имени ПК (user-ПК)
после переменования в (user)  письма отправляются

Go to forum: Russian

1,322 Reply by sibprogsistem

(8 replies, posted in Russian)

извеняюсь моя ошибка... Не обратил внимание, что доступ был закрыт

Go to forum: Russian

1,323 Reply by sibprogsistem

(8 replies, posted in Russian)

DriveSoft wrote:

Все таки не пойму, где проблема?

мне нужно csv получить с этого адреса 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv

Go to forum: Russian

1,324 Reply by sibprogsistem

(8 replies, posted in Russian)

DriveSoft wrote:
sibprogsistem wrote:

и еще проблема мне нужно получить csv
из 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv

HTTPGetFile(,,);
работает только если имеем обсалютный путь к файлу..

К удаленному файлу?

получается Да.
при переходе по 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv

формируется csv
Весь день гуглю и примеры только с обсалютным путем к файлу )))

Go to forum: Russian

1,325 Reply by sibprogsistem

(8 replies, posted in Russian)

DriveSoft wrote:

проверить во время импорта? или просто проверить наличие данного e-mail в CSV файле?

просто проверить наличие
пока пришел к этому

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
str:TStringList;
i, Pos:integer;
begin
form1.Memo1.clear;
str:=TStringList.create;
str.LoadFromFile('shop_order-21Feb2019_2123-export.csv');
for i := 0 to str.Count-1 do
 begin
    form1.Memo1.Text:= form1.Memo1.Text +(str[i])+' ' ;
 end;
if Pos(form1.Edit1.Text, str)> 0 then begin
  form1.Label1.Caption:='Совпадает';
 end else  form1.Label1.Caption:='He cовпадает';
end;

но Pos ругается (много пораметров).
и еще проблема мне нужно получить csv
из 

http://wp1.sibprogsistem0.140l6.spectrum.myjino.ru/?export=csv

HTTPGetFile(,,);
работает только если имеем обсалютный путь к файлу..

Go to forum: Russian