
15.08.2011, 22:36
|
 |
Местный
|
|
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
|
|
Ребята полностью проверил и нашел в чем проблема - вот в этой части программы
Код:
RvProject1.Open;
RvProject1.SelectReport('Report1', false);
RvProject1.SetParam('Name', edit1.Text);
RvProject1.SetParam('Number', edit2.Text);
RvProject1.SetParam('Fei', edit3.Text);
RvProject1.SetParam('issuing', edit4.Text);
RvProject1.SetParam('original', edit5.Text);
RvProject1.SetParam('ueln', edit6.Text);
RvProject1.SetParam('micro', edit7.Text);
RvProject1.SetParam('valid', formatdatetime('dd/mm/yyyy', DateTimePicker1.Date));
RvProject1.SetParam('adres1', edit8.Text);
RvProject1.SetParam('adres2', edit9.Text);
RvProject1.SetParam('serial', edit10.Text);
RvProject1.SetParam('date', datetostr(now));
RvProject1.SetParam('birth', formatdatetime('dd/mm/yyyy', DateTimePicker2.Date));
RvProject1.SetParam('country', Combobox1.Text);
RvProject1.SetParam('sex', edit12.Text);
RvProject1.SetParam('color', edit13.Text);
RvProject1.SetParam('studbook', edit14.Text);
RvProject1.SetParam('breed', edit15.Text);
RvProject1.SetParam('sir', edit16.Text);
RvProject1.SetParam('da', edit17.Text);
RvProject1.SetParam('so', edit18.Text);
RvProject1.SetParam('cod', str);
RvProject1.Execute;
RvProject1.Close;
Вот что не так не пойму...
__________________
Нет ничего не возможного. Вопрос только во времени...
|