Есть 2 метода вызова ХП оракловой из ВФП
1
*********************************
cSP = "BEGIN fin.FM32YO_Update_Persons_IN_PUT2(1, '0', ?Recordid, ?Sur, ?Nam, ?Fat, " + ;
"?Jobb, ?Posit, ?DPAId, ?Pass, ?Adr, ?InDay, ?OutDay, ?cWhoDidIt); END;"
k = SQLExec(gnConnHandle, cSP)
**********************************
2
********************************
cSP = "{call fin.FM32YO_Update_Persons_IN_PUT2(1, '0', ?Recordid, ?Sur, ?Nam, ?Fat, ?Jobb, ?Posit, ?DPAId, ?Pass, ?Adr, ?InDay, ?OutDay, ?cWhoDidIt)}"
k = SQLExec(gnConnHandle, cSP)
*******************************
Метод 2, при трассировке TOAD-овским SQL Monitor-ом выдавал мне какую-то ошибку..
но отрабатывал несмотря на нее...
ну просто показывало в логе кукаю-то ошибку, а именно:
Timestamp: 12:10:18.901
BEGIN fin.FM32YO_Update_Persons_IN_PUT2;END;
Вот сообщение об ошибке
Oracle error occurred: 6550 (ORA-06550: line , column :)
----------------------------------
а вот ХП-шка выполнилась!!!! без проблем
Timestamp: 12:10:18.963
BEGIN -- proccall
fin.FM32YO_Update_Persons_IN_PUT2(NTODO=>1,CRECORDID=>'0',CPUTNOMER=>:V001 ,
SURNAME=>:V002 ,NAME1=>:V003 ,FATHER=>:V004 ,JOB=>:V005 ,POSITION=>:V006 ,
ID=>:V007 ,PASSPORT=>:V008 ,ADRESS=>:V009 ,STARTDAY=>:V010 ,ENDDAY=>:V011 ,
CWORKER=>:V012 );
END;
:V001 = '69928'
:V002 = 'МЕЗЕВ'
:V003 = 'Маргарета'
:V004 = <NULL>
:V005 = <NULL>
:V006 = <NULL>
:V007 = <NULL>
:V008 = <NULL>
:V009 = <NULL>
:V010 = '02/06/2005'
:V011 = '01/07/2005'
:V012 = '06/12/2005 12:10:16 '
----------------------------------
Timestamp: 12:10:19.197
но ошибка эты никак не влияла на работу процедуры....
ну подумал я и все же перешел на вызов ХП по методу 1
НО!!! теперь заметил чисто методом тыка операторов, что при вводе
анкет, некоторые имена в частном случае "Маргарета" - не срабатывает
ХП-шка методом 1.. просто вылетает, говорит что в 1-й строке ее
ошибка...
Сама ошибка
ORA-06502 PL/SQL: numeric or value error
ORA-06512: at line 1
а 1-я строка ж
CREATE OR REPLACE PROCEDURE FM32YO_Update_Persons_IN_PUT2
Замечу, что подобное происходит НЕ всегда , а только при определенніх
именах что ли... вот только одно имя отследил... но быфло их много...
перешел.. просто попробовать на метод 2 опять.. все.. проходит и
ошибки нету..., то есть ТОАД- все еще показывает ошибку в логе, но мне ж надо было побороть ошибку, которая возникала у операторов, что я и сделал
мистика или ОДБС дрова чудят? (они не родные Оракловы а Мелкософтовские)
Сам текст ХП-шки вот:
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.
CREATE OR REPLACE PROCEDURE FM32YO_Update_Persons_IN_PUT2
(nToDo IN NUMBER, cRecordid IN VARCHAR2, cPutNomer IN VARCHAR2, Surname IN VARCHAR2,
Name1 IN VARCHAR2, Father IN VARCHAR2,
Job IN VARCHAR2, Position IN VARCHAR2, Id IN VARCHAR2, Passport IN VARCHAR2,
Adress IN VARCHAR2, StartDay IN VARCHAR2, EndDay IN VARCHAR2, cWorker IN VARCHAR2)
IS
--------------------------------------------------------------------
--
-- хранимая процедура для редактирования Ф.И.О,
-- паспорта, ИД кода, адреса, места работы, должности, даты
-- в таблице FM32YO_PERSONS_IN_PUT
--
--------------------------------------------------------------------
BEGIN
-- nToDo = 1 INSERTING
-- nToDo = 2 UPDATING
-- nToDo = 0 DELETING
IF nToDo = 1 THEN
INSERT INTO FIN.FM32YO_PERSONS_IN_PUT2
( CODE,
cCODEPUTEVKI,
cSURNAME,
cNAME,
cFatNAME,
cJob,
cPosition,
cIDCODE,
cPASSPORT,
cADRESS,
dStartDate,
dEndDate,
cWhoMadeIt
)
VALUES
( FIN.FM32YO_PERSONS_IN_PUT_SQ2.NextVal,
cPutNomer,
Surname,
Name1,
Father,
Job,
Position,
Id,
Passport,
Adress,
TO_DATE(StartDay, 'dd/mm/yyyy'),
TO_DATE(EndDay, 'dd/mm/yyyy'),
cWorker
) ;
END IF ;
IF nToDo = 2 THEN
UPDATE FIN.FM32YO_PERSONS_IN_PUT2
SET
cSurname = Surname,
cNAME = Name1,
cFatNAME = Father,
cJob = Job,
cPosition = Position,
cIDCODE = Id,
cPASSPORT = Passport,
cADRESS = Adress,
dStartDate = TO_DATE(StartDay, 'dd/mm/yyyy'),
dEndDate = TO_DATE(EndDay, 'dd/mm/yyyy'),
cWhoMadeIt = cWorker
WHERE Code = cRecordid ;
END IF ;
IF nToDo = 0 THEN
DELETE FROM FIN.FM32YO_PERSONS_IN_PUT2
WHERE Code = cRecordid ;
END IF ;
COMMIT ;
END ;
/
