Hi Steven,
I do appreciate your help with this problem. I’m sorry you’re right the w2k3
server is running IIS 6.0
The precise information is this:
IIS v 6.0
Windows Server 2003 R2 Standard Edition SP1
Dell Server PE 1800
Intel Xeon 2.8GHz 1Gb RAM
We have installed .NET Framework 2.0.50727 and also .NET Framework 1.1.4322
I'll check the logs and review the information you've posted meanwhile
following is a meaningful piece of our web service code:
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data.SqlClient
Imports System.Data.Odbc
Imports System.Data
Imports System.xml
<WebService(Namespace:="
http://www.moc.com.mx/ws/SYC/ServicioAgencia",
Description:="Proporciona información de unidades automotrices que reciben
servicios de mantenimiento y/o reparación")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class ServicioAgencia
Inherits System.Web.Services.WebService
Dim strConexion As String =
System.Configuration.ConfigurationManager.ConnectionStrings("cnSYC").ConnectionString
Dim strConexionSYS As String =
System.Configuration.ConfigurationManager.ConnectionStrings("cnSYC_SYS").ConnectionString
Dim strConexionMOC As String =
System.Configuration.ConfigurationManager.ConnectionStrings("cnTabletMOC").ConnectionString
Private Const START_CUSTOM As String = "StartCustomException: "
Private Const END_CUSTOM As String = "EndCustomException"
'+++++++++++++++++++++++++++++++
'Funciones de consulta de la BD
'+++++++++++++++++++++++++++++++
Private Function ObtenerValor(ByVal strSQL As String, ByVal strCampo As
String) As String
Using scnTabla = New SqlConnection(strConexion)
scnTabla.open()
Dim scdSeleccionarTabla As New SqlCommand(strSQL, scnTabla)
Dim sdrTabla As SqlDataReader
sdrTabla = scdSeleccionarTabla.ExecuteReader()
If sdrTabla.Read() Then
Return IIf(IsDBNull(sdrTabla(strCampo)), "",
sdrTabla(strCampo))
Else
Return String.Empty
End If
End Using
End Function
Private Function LeerRegistro(ByVal strSQL As String, Optional ByVal
strCon As String = "") As SqlDataReader
If strCon = "" Then
strCon = strConexion
End If
Dim scnRegistro As New SqlConnection(strCon)
scnRegistr
pen()
Dim cmdSeleccionarRegistro As New SqlCommand(strSQL, scnRegistro)
Return cmdSeleccionarRegistro.ExecuteReader()
End Function
Private Function LeerTabla(ByVal strSQL As String) As DataSet
Using scnTabla As SqlConnection = New SqlConnection(strConexion),
scdSeleccionarTabla As SqlCommand = New SqlCommand(strSQL, cnTabla), sdaTabla
As SqlDataAdapter = New SqlDataAdapter(scdSeleccionarTabla), dstTabla As
DataSet = New DataSet
sdaTabla.Fill(dstTabla)
Return dstTabla
End Using
End Function
<WebMethod(Description:="Guarda la orden de servicio en la base de datos
de la agencia.")> _
Public Function GuardarOrdenServicioCompleta(ByVal objOrdenServicio As
OServicioCompleta, ByVal arrRegistrosProblemas() As String) As String
'ResultadoGrabarOrdenServicio
Dim strShipToId As String
strShipToId = ""
Dim scnCliente As SqlConnection
Dim cmdSelect
''''''''''''''''''''''''''''''''''
Dim strCustName_obtenido As String
strCustName_obtenido = ObtenerValor("Select Top 1 RazonSocial From
xSoAddress Where CustID = '" &
Trim(objOrdenServicio.PropObjCliente.strCustID) & "' And ShipToID = 'DEFAULT'
", "RazonSocial")
''''''''''''''''''''''''''''''''''
scnCliente = New SqlConnection(strConexion)
scnCliente.Open()
Dim strNote As String
With objOrdenServicio
strNote = "'" & Trim(.PropOrdenServicio.strNoteText) & "'"
End With
Dim strServicio As String
With objOrdenServicio
strServicio = "'" & Trim(.PropObjCliente.strCustID) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strAssignEmpID) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strCallerName) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strCallStatus) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strCallType) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strCrtd_DateTime) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strCrtd_User) & "',"
''Valor que se obtiene, ya que es el xSOAddress.RazonSocial --NO
es ya Trim(.PropOrdenServicio.strCustName)
strServicio = strServicio & "'" & Trim(Mid(strCustName_obtenido,
1, 30)) & "',"
strServicio = strServicio & "'" &
Trim(.PropObjCliente.strCustID) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strCustPhone) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strLupd_DateTime) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strLupd_User) & "',"
'strServicio = strServicio & "'" &
IIf(Trim(.PropOrdenServicio.strNoteId) = "", " ",
Trim(.PropOrdenServicio.strNoteId)) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strPerEnt) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strServiceCallDate) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strServiceCallDateProm) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strServiceCallPriority) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strShipToId) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strSIsperID) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strUser2) & "',"
strServicio = strServicio & "'" &
Trim(.PropOrdenServicio.strUserID) & "'"
End With
Dim strIdProblemas As String
Dim strProblemas As String
strIdProblemas = ""
strProblemas = ""
'Si el arreglo de los problemas tiene un renglon pero está en blanco
(Valor igual a 0),
'no hay que almacenarlo
If arrRegistrosProblemas.Length >= 1 And arrRegistrosProblemas(0) <>
0 Then
With objOrdenServicio
strProblemas = "'" &
Trim(.PropOrdenServicio.strCrtd_DateTime) & "',"
strProblemas = strProblemas & "'" &
Trim(.PropOrdenServicio.strCrtd_Prog) & "',"
strProblemas = strProblemas & "'" &
Trim(.PropOrdenServicio.strCrtd_User) & "',"
'EndDate
strProblemas = strProblemas & "'" &
Trim(.PropOrdenServicio.strLupd_DateTime) & "',"
strProblemas = strProblemas & "'" &
Trim(.PropOrdenServicio.strLupd_DateTime) & "',"
strProblemas = strProblemas & "'" &
Trim(.PropOrdenServicio.strLupd_Prog) & "',"
strProblemas = strProblemas & "'" &
Trim(.PropOrdenServicio.strLupd_User) & "',"
'SF_ID03
strProblemas = strProblemas & "'" &
Trim(.PropOrdenServicio.strCrtd_DateTime) & "',"
'StartDate
strProblemas = strProblemas & "'" &
Trim(.PropOrdenServicio.strCrtd_DateTime) & "'"
'Guardar Problema 0
strIdProblemas = arrRegistrosProblemas(0) & ","
'Guardar Problemas del 1 en Adelante
For i As Integer = 1 To arrRegistrosProblemas.Length - 1
strIdProblemas = strIdProblemas &
arrRegistrosProblemas(i) & ","
Next
''Quitaba la coma final de strIdProblemas
'strIdProblemas = Mid(strIdProblemas, 1, Len(strIdProblemas)
- 1)
End With
End If
Dim strAutomovil As String
With objOrdenServicio
strAutomovil = "'" & Trim(.PropObjAutomovil.strColor) & "',"
strAutomovil = strAutomovil & Trim(.PropObjAutomovil.strKms) & ","
strAutomovil = strAutomovil & "'" &
Trim(.PropObjAutomovil.strMarca) & "',"
strAutomovil = strAutomovil & "'" &
Trim(.PropObjAutomovil.strModelo) & "',"
strAutomovil = strAutomovil & "'" &
Trim(.PropObjAutomovil.strPlacas) & "',"
strAutomovil = strAutomovil & "'" &
Trim(.PropObjAutomovil.strSerie) & "',"
strAutomovil = strAutomovil & "'" &
Trim(.PropObjAutomovil.strYear) & "',"
strAutomovil = strAutomovil & "'" &
Trim(.PropObjAutomovil.strTipo) & "',"
strAutomovil = strAutomovil & "'" &
Trim(.PropObjAutomovil.strTorre) & "'"
End With
cmdSelect = New SqlCommand("GuardarOrdenServicioCompleta", scnCliente)
cmdSelect.CommandType = CommandType.StoredProcedure
'''''''''''''''''''''''''''''''''
Dim p0 As SqlParameter = New SqlParameter("@strNote",
SqlDbType.VarChar)
p0.Value = strNote
p0.Direction = ParameterDirection.Input
cmdSelect.Parameters.Add(p0)
Dim p As SqlParameter = New SqlParameter("@strServicio",
SqlDbType.VarChar)
p.Value = strServicio
p.Direction = ParameterDirection.Input
cmdSelect.Parameters.Add(p)
Dim p1 As SqlParameter = New SqlParameter("@strProblemas",
SqlDbType.VarChar)
p1.Value = strProblemas
p1.Direction = ParameterDirection.Input
cmdSelect.Parameters.Add(p1)
Dim p2 As SqlParameter = New SqlParameter("@strIdProblemas",
SqlDbType.VarChar)
p2.Value = strIdProblemas
p2.Direction = ParameterDirection.Input
cmdSelect.Parameters.Add(p2)
Dim p3 As SqlParameter = New SqlParameter("@strAutomovil",
SqlDbType.VarChar)
p3.Value = strAutomovil
p3.Direction = ParameterDirection.Input
cmdSelect.Parameters.Add(p3)
Dim p4 As SqlParameter = New SqlParameter("@Resultado",
SqlDbType.VarChar)
p4.Size = 10
p4.Direction = ParameterDirection.Output
cmdSelect.Parameters.Add(p4)
cmdSelect.ExecuteNonQuery()
scnCliente.Close()
If cmdSelect.Parameters("@Resultado").Value <> "0" Then
Return cmdSelect.Parameters("@Resultado").Value
'ResultadoGrabarOrdenServicio.Satisfactorio
Else
Return "0"
'ResultadoGrabarOrdenServicio.FallaInsertarOrdenServicio
End If
End Function
--
Juan Gonzalez
Avansys
Mexico