Buenas tengo un problema llamando un store procedure:
Código:
PROCEDURE SP_INS_CODIGOSAP ( IN_CODSAP IN VARCHAR2,
IN_DESCRIPCION IN VARCHAR2,
IN_RUC IN VARCHAR2,
IN_ST_DETR IN CHAR,
IN_USUARIO IN VARCHAR2,
X_RETVAL OUT NUMBER)
IS
X_VERCODSAP NUMBER; -- VERFICIA SI EXISTE CODIGO SAP
X_VERRUC NUMBER; -- VERIFICA SI EXISTE EL RUC
BEGIN
SELECT COUNT(*) INTO X_VERCODSAP FROM TMCLIENTE_SAP WHERE RTRIM(CODSAP)=TRIM(IN_CODSAP);
SELECT COUNT(*) INTO X_VERRUC FROM TMCLIENTE_SAP WHERE RTRIM(RUC)=TRIM(IN_RUC);
IF X_VERCODSAP > 0 THEN
X_RETVAL:= -1;
ELSIF X_VERRUC > 0 THEN
X_RETVAL:= -2;
ELSE
INSERT INTO TMCLIENTE_SAP (CODSAP, DESCRIPCION, RUC, ST_DETR, USUARIO_ING, FECHA_ING)
VALUES(IN_CODSAP ,IN_DESCRIPCION ,IN_RUC , IN_ST_DETR,IN_USUARIO ,SYSDATE );
COMMIT;
X_RETVAL:= 1 ;
END IF;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
X_RETVAL:=-3 ;
END SP_INS_CODIGOSAP;
osea inserto y me devuelve un parametro para ver si se inserta OK
y en mi asp:
Código:
Set cnOracle = Server.CreateObject("ADODB.Connection")
Set cmdStoredProcedure = Server.CreateObject("ADODB.Command")
With cnOracle
.ConnectionString = sConnect
.CursorLocation = adUseClient
.Open
End With
With cmdStoredProcedure
.CommandText = "Pkg_Interfase_Sap.SP_INS_CODIGOSAP"
.CommandType = adCmdStoredProc
.ActiveConnection = cnOracle
.Parameters.Append .CreateParameter("IN_CODSAP",200,1,,wtxtCodSAP)
.Parameters.Append .CreateParameter("IN_DESCRIPCION",200,1,,wtxtDescrip)
.Parameters.Append .CreateParameter("IN_RUC",200,1,,wtxtRUC)
.Parameters.Append .CreateParameter("IN_ST_DETR",200,1,,wtxtRetencion)
.Parameters.Append .CreateParameter("IN_USUARIO",200,1,,c_Login)
.Parameters.Append .CreateParameter("X_RETVAL",3,3,,null)
End With
cmdStoredProcedure.Execute
X_RETVAL = cmd("X_RETVAL")
set cmdStoredProcedure = nothing
response.Write X_RETVAL
response.End
cuando pruebo sale el siguiente error:
Error Type:
ADODB.Connection (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/intranet/IT/InterfaseVenta/frmInter_Venta.asp, line 231
pero en esa linea es :
.CursorLocation = adUseClient
me podrian ayudar con este tema
saludos cordiales