Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Неопознанная ошибка / 9 сообщений из 9, страница 1 из 1
03.11.2018, 21:15
    #39727692
patrick1968
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
Добрый день. Непонятная вещь!!! Создал хранимую процедуру на севере - достаточно простую. В Management Studio всё работает нормально. В дельфийском приложении добавил ADOStoredProc и при открытии выходит сообщение "неопознанная ошибка" - даже не догадываюсь в чем может быть проблема. Единственное - это большое количество входных параметров, но я не думаю, что это как-то влияет. Может кто сталкивался с подобным? Заранее спасибо.
...
Рейтинг: 0 / 0
03.11.2018, 21:21
    #39727696
Фэйтл Эра
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
patrick1968,

может быть, все дело в подробностях?

Что за сервер, код процедуры, код клиентского приложения...
...
Рейтинг: 0 / 0
03.11.2018, 21:26
    #39727697
patrick1968
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
MS SQL

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
USE [DALZ]
GO
/****** Object:  StoredProcedure [dbo].[CustomsAction]    Script Date: 03.11.2018 20:14:22 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[CustomsAction]
    @Option [int],
	@pCustomID [uniqueidentifier],
	@pParentCustomID [uniqueidentifier],
	@pCustomNo [nvarchar](20),
	@pCustomTime [datetime],
	@pStatus [smallint],
	@pAgentID [int],
	@pAgentName [nvarchar](50),
	@pAddressID [int],
	@pAddress [nvarchar](30),
	@pContactID [int],
	@pContactName [nvarchar](100),
	@pDealID [int],
	@pDealName [nvarchar](50),
	@pDealContactID [int],
	@pDealContactName [nvarchar](100),
	@pWorkPlace [bit],
	@pDogovorID [int],
	@pWorkTime [nvarchar](20),
	@pNote [nvarchar](100),
	@pCustomType [int],
	@pCustomTerm [int],
	@pSLANo [nvarchar](20),
	@pBestTime [nvarchar](20),
	@pisEntryDoc [bit],
	@pCreateDoc [smallint],
	@pJobTime [datetime],
	@pBorderJobTime [datetime],
	@pisPayWait [bit],
	@pCustomSum [money],
	@pisCountNeed [bit],
	@pFinDoc [nvarchar](50),
	@pisFinDoc [bit],
	@pisZipNeed [bit],
	@pZipCount [nvarchar](30),
	@pisZipPresent [bit],
	@pWaitTime [int],
	@pisPay [bit],
	@pDogovorNo [nvarchar](20),
	@pContinueTime [datetime],
    @pSortStr [nvarchar](150)
 
 AS

BEGIN
DECLARE @SQL nvarchar(max);

IF @Option = 0
 BEGIN
  SELECT 0 as [Action], c.CustomID, c.ParentCustomID, c.CustomNo, CAST(c.CustomTime as datetime) CustomTime, c.[Status],
         CASE WHEN c.[Status] = 1 THEN 'Предварительая Заявка - ПЗ' ELSE
          CASE WHEN c.[Status] = 2 THEN	'Заявка в Работе - ЗР' ELSE
		   CASE WHEN c.[Status] = 3	THEN 'Распределенная Заявка - Раб' ELSE
		    CASE WHEN c.[Status] = 7 THEN 'Отмененая заявка - Отм' ELSE
			 CASE WHEN c.[Status] = 5 THEN 'Выполненная Заявка - Вып' ELSE
			  CASE WHEN c.[Status] = 6 THEN 'Закрытая Заявка - Зак' ELSE
			   CASE WHEN c.[Status] = 8 THEN 'Рекомендовано - Рек' ELSE
			    CASE WHEN c.[Status] = 4 THEN 'Отложенная Заявка - Отл' ELSE ''
				 END END END END END END END END StatusName,
	c.AgentID, c.AgentName, c.AddressID, c.Address,	c.ContactID, c.ContactName,	c.DealID, c.DealName, c.DealContactID, c.DealContactName, c.WorkPlace,
	c.DogovorID, c.WorkTime, c.Note, c.CustomType, ct.CustomTypeName, c.CustomTerm, ctt.CustomTermName, c.SLANo, c.BestTime, c.isEntryDoc, c.CreateDoc,
	CAST(c.JobTime as datetime) JobTime, Cast(c.BorderJobTime as datetime) BorderJobTime, c.isPayWait, c.isPay,c.CustomSum,	c.isCountNeed, c.FinDoc, 
	c.isFinDoc, c.isZipNeed, c.ZipCount, c.isZipPresent, dog.DogovorNo, CAST(c.ContinueTime as datetime) ContinueTime,
	(SELECT TOP 1 con.FIO FROM  dbo.CustomsEng ce left outer join dbo.Contacts con on con.ContactID = ce.EngID WHERE ce.CustomID = c.CustomID) Eng,
    (SELECT TOP 1 cd.BrandName + ' ' + cd.ModelName + '-' + cd.Serial FROM dbo.CustomsDevice cd WHERE cd.CustomID = c.CustomID) Device
  FROM dbo.Customs c left outer join dbo.CustomTypes ct on ct.CustomType = c.CustomType
                     left outer join dbo.CustomTerms ctt on ctt.CustomTerm = c.CustomTerm
					 left outer join dbo.Dogovor dog on dog.DogovorID = c.DogovorID
 END

 BEGIN TRANSACTION


IF @Option = 1
 INSERT INTO dbo.Customs
 VALUES ( @pCustomID, @pParentCustomID, @pCustomNo, @pCustomTime, @pStatus, @pAgentID,	@pAgentName, @pAddressID, @pAddress, @pContactID, @pContactName, @pDealID, @pDealName,
	      @pDealContactID, @pDealContactName, @pWorkPlace, @pDogovorID,	@pWorkTime,	@pNote,	@pCustomType, @pCustomTerm,	@pSLANo, @pBestTime, @pisEntryDoc, @pCreateDoc,
	      @pJobTime, @pBorderJobTime, @pisPayWait, @pCustomSum, @pisCountNeed, @pFinDoc, @pisFinDoc,	@pisZipNeed, @pZipCount, @pisZipPresent, @pWaitTime, @pisPay, @pContinueTime)
 
IF @Option = 4
 UPDATE dbo.Customs
 SET ParentCustomID = @pParentCustomID,
	 CustomNo = @pCustomNo,
	 CustomTime = @pCustomTime,
	 [Status] = @pStatus,
	 AgentID = @pAgentID,
	 AgentName = @pAgentName,
	 AddressID = @pAddressID,
	 [Address] = @pAddress,
	 ContactID = @pContactID,
	 ContactName = @pContactName,
	 DealID = @pDealID,
	 DealName = @pDealName,
	 DealContactID = @pDealContactID,
	 DealContactName = @pDealContactName,
	 WorkPlace = @pWorkPlace,
	 DogovorID = @pDogovorID,
	 WorkTime = @pWorkTime,
	 Note = @pNote,
	 CustomType = @pCustomType,
	 CustomTerm = @pCustomTerm,
	 SLANo = @pSLANo,
	 BestTime = @pBestTime,
	 isEntryDoc = @pisEntryDoc,
	 CreateDoc = @pCreateDoc,
	 JobTime = @pJobTime,
	 BorderJobTime = @pBorderJobTime,
	 isPayWait = @pisPayWait,
	 CustomSum = @pCustomSum,
	 isCountNeed = @pisCountNeed,
	 FinDoc = @pFinDoc,
	 isFinDoc = @pisFinDoc,
	 isZipNeed = @pisZipNeed,
	 ZipCount = @pZipCount,
	 isZipPresent = @pisZipPresent,
	 WaitTime = @pWaitTime,
	 isPay = @pisPay,
	 ContinueTime = @pContinueTime
 WHERE CustomID = @pCustomID

COMMIT TRANSACTION
 END
...
Рейтинг: 0 / 0
04.11.2018, 12:00
    #39727759
patrick1968
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
Как ни странно, но в runtime метод Open у процедуры вполне нормально отрабатывает, а вот в design ставлю свойство Active в true - сразу ошибка и ни одного поля для процедуры не могу создать естественно - бред какой-то, видимо глюк
...
Рейтинг: 0 / 0
04.11.2018, 19:02
    #39727872
asutp2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
patrick1968,

версия делфи какая?
...
Рейтинг: 0 / 0
04.11.2018, 23:07
    #39727958
patrick1968
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
XE10 Seattle
...
Рейтинг: 0 / 0
04.11.2018, 23:37
    #39727963
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
patrick1968 в design ставлю свойство Active в true - сразу ошибка
А вы заполнили все параметры и главное @Option = 0 ?
...
Рейтинг: 0 / 0
05.11.2018, 10:09
    #39728004
patrick1968
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
Да, конечно
...
Рейтинг: 0 / 0
06.11.2018, 11:02
    #39728411
Valery_B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неопознанная ошибка
patrick1968,

Скорее всего, параметры не соответствуют типу (т.е. ftInteger, ftBoolean)

Зачем ты открываешь транзакцию ?
Поставь в тело своей процедуры этот текст и проверь, что происходит.
Код: sql
1.
 SELECT 1
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Неопознанная ошибка / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]