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

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

Что за сервер, код процедуры, код клиентского приложения...
...
Рейтинг: 0 / 0
Неопознанная ошибка
    #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
Неопознанная ошибка
    #39727759
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как ни странно, но в runtime метод Open у процедуры вполне нормально отрабатывает, а вот в design ставлю свойство Active в true - сразу ошибка и ни одного поля для процедуры не могу создать естественно - бред какой-то, видимо глюк
...
Рейтинг: 0 / 0
Неопознанная ошибка
    #39727872
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
patrick1968,

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

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

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


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