Sistema Intranet MAYUMA

Hola, estas usando SQLServer?



Salu2

Micrsoft MVP SQL Server
www.sqlgururs.org


"mayuma" wrote in message
news:%

Hola, recien acaban de instalar un sistema en intranet, pero en una
seccion se capturan datos con numeros decimales, hay un error, en
ocasiones cuando modifico los decimales y grabo me muestra una pagina de
error o me quita el punto decimal a todo... p.ej.. 1.50 (uno punto
cincuenta) lo cambia a 150(como entero), .840 (punto 840) lo cambia a 840
(como entero). Tengo que reiniciar el IIS para que vuelva a aceptar los
decimales, alguien podria ayudarme

Gracias y saludos

Asi es, me instalaron el sql server

"Maxi" escribió en el mensaje
news:%

Hola, estas usando SQLServer?



Salu2

Micrsoft MVP SQL Server
www.sqlgururs.org


"mayuma" wrote in message
news:%

Hola, recien acaban de instalar un sistema en intranet, pero en una
seccion se capturan datos con numeros decimales, hay un error, en
ocasiones cuando modifico los decimales y grabo me muestra una pagina de
error o me quita el punto decimal a todo... p.ej.. 1.50 (uno punto
cincuenta) lo cambia a 150(como entero), .840 (punto 840) lo cambia a 840
(como entero). Tengo que reiniciar el IIS para que vuelva a aceptar los
decimales, alguien podria ayudarme

Gracias y saludos

Hola.

Pon una traza para verificar qué datos llegan a tu servidor de bases de
datos.

Alberto López Grande (qwalgrande)


"mayuma" escribió en el mensaje
news:%

Asi es, me instalaron el sql server

"Maxi" escribió en el mensaje
news:%

Hola, estas usando SQLServer?



Salu2

Micrsoft MVP SQL Server
www.sqlgururs.org


"mayuma" wrote in message
news:%

Hola, recien acaban de instalar un sistema en intranet, pero en una
seccion se capturan datos con numeros decimales, hay un error, en
ocasiones cuando modifico los decimales y grabo me muestra una pagina de
error o me quita el punto decimal a todo... p.ej.. 1.50 (uno punto
cincuenta) lo cambia a 150(como entero), .840 (punto 840) lo cambia a
840 (como entero). Tengo que reiniciar el IIS para que vuelva a aceptar
los decimales, alguien podria ayudarme

Gracias y saludos

Aqui esta la programacion:
"Maxi" escribió en el mensaje
news:%

Hola, estas usando SQLServer?



Salu2

Micrsoft MVP SQL Server
www.sqlgururs.org


"mayuma" wrote in message
news:%

Hola, recien acaban de instalar un sistema en intranet, pero en una
seccion se capturan datos con numeros decimales, hay un error, en
ocasiones cuando modifico los decimales y grabo me muestra una pagina de
error o me quita el punto decimal a todo... p.ej.. 1.50 (uno punto
cincuenta) lo cambia a 150(como entero), .840 (punto 840) lo cambia a 840
(como entero). Tengo que reiniciar el IIS para que vuelva a aceptar los
decimales, alguien podria ayudarme

Gracias y saludos

Aqui esta la programacion
Dim Opcion Opcion = Request.QueryString("OP") '1 Guardar Info '2 Actualizar
Info '3 Eliminar Info Select Case Opcion Case "1" 'Guardar Info
'-'
Dim oAddDimensiones Set oAddDimensiones = Server.CreateObject
("WebONXPesca.OnxPescaDB") oAddDimensiones.NewConexion if
Request.QueryString("Flag") = "1" then if Request.Form("txtPropulsion") <> 2
then oAddDimensiones.AgregaDatosDimensiones
Request.Form("txtIDEmbarcacion"),
Request.Form("txtEslora"),Request.Form("txtManga"),
Request.Form("txtPuntal"),
Request.Form("txtArqueo"),Request.Form("txtPropulsion"),11, 1, 0, "" else '
La funcion AgeegaDatosDimensiones en realidad es un Update '
AgregaDatosDimensiones(IDEMBARCACION As Variant, ESLORA As Variant, MANGA As
Variant, PUNTAL As Variant, ARQUEONETO As Variant, IDPROPULSION As Variant,
IDMARCAMOTOR, ANIOMOTOR As Variant, POTENCIAHP As Variant, NOSERIEMOTOR As
Variant) oAddDimensiones.AgregaDatosDimensiones
Request.Form("txtIDEmbarcacion"),
Request.Form("txtEslora"),Request.Form("txtManga"),
Request.Form("txtPuntal"),
Request.Form("txtArqueo"),Request.Form("txtPropulsion"),Request.Form("txtMarcaMotor"),
Request.Form("txtAnioMotor"), Request.Form("txtPotencia"),
Request.Form("txtNoSerie") end if oAddDimensiones.DeleteConexion else Dim
oUpdDimensiones2 Set oUpdDimensiones2 = Server.CreateObject
("WebONXPesca.OnxPescaDB") oUpdDimensiones2.NewConexion if
Request.Form("txtPropulsion") <> 2 then
oUpdDimensiones2.ActualizaDimensionesEmbarcacion
Request.QueryString("EM"),Request.Form("txtEslora"),Request.Form("txtManga"),Request.Form("txtPuntal"),Request.Form("txtArqueo"),Request.Form("txtPropulsion"),11,1,
0, "" else ' ActualizaDimensionesEmbarcacion( IDEMBARCACION, ESLORA, MANGA,
PUNTAL, ARQUEONETO, IDPROPULSION, IDMARCAMOTOR, ANIOMOTOR, POTENCIAHP,
NOSERIEMOTOR) oUpdDimensiones2.ActualizaDimensionesEmbarcacion
Request.QueryString("EM"),Request.Form("txtEslora"),Request.Form("txtManga"),Request.Form("txtPuntal"),Request.Form("txtArqueo"),Request.Form("txtPropulsion"),Request.Form("txtMarcaMotor"),Request.Form("txtAnioMotor"),Request.Form("txtPotencia"),Request.Form("txtNoSerie")
end if oUpdDimensiones2.DeleteConexion end if
response.Redirect("Zonas.asp?ST=1&EM="&Request.Form("txtIDEmbarcacion"))
'-'
Case "2" 'Actualizar REPORTE DE LLAMADAS
'-'
Dim oUpdDimensiones Set oUpdDimensiones = Server.CreateObject
("WebONXPesca.OnxPescaDB") oUpdDimensiones.NewConexion if
Request.Form("txtPropulsion") <> 2 then ' ActualizaDimensionesEmbarcacion(
IDEMBARCACION, ESLORA, MANGA, PUNTAL, ARQUEONETO, IDPROPULSION,
IDMARCAMOTOR, ANIOMOTOR, POTENCIAHP, NOSERIEMOTOR)
oUpdDimensiones.ActualizaDimensionesEmbarcacion
Request.QueryString("EM"),Request.Form("txtEslora"),Request.Form("txtManga"),Request.Form("txtPuntal"),Request.Form("txtArqueo"),Request.Form("txtPropulsion"),
11, 1 , 0, "" else oUpdDimensiones.ActualizaDimensionesEmbarcacion
Request.QueryString("EM"),Request.Form("txtEslora"),Request.Form("txtManga"),Request.Form("txtPuntal"),Request.Form("txtArqueo"),Request.Form("txtPropulsion"),Request.Form("txtMarcaMotor"),Request.Form("txtAnioMotor"),Request.Form("txtPotencia"),Request.Form("txtNoSerie")
end if oUpdDimensiones.DeleteConexion Session("IDBarco") =
Request.QueryString("EM")
response.Redirect("Zonas.asp?ST=2&EM="&Request.QueryString("EM"))
'-'
Case 3 'Eliminar Dim oDelReporte 'Set oDelReporte = Server.CreateObject
("WebSupportDB.SQLDB") 'oDelReporte.NewConexion
'oDelReporte.EliminaReporteLlamada Request.QueryString("REP")
'oDelReporte.DeleteConexion
'response.Redirect("Actualiza_Reporte_Llamada.asp") Case Else
Response.Write("Algun Otro Error") End Select


"Maxi" escribió en el mensaje
news:%

Hola, estas usando SQLServer?



Salu2

Micrsoft MVP SQL Server
www.sqlgururs.org


"mayuma" wrote in message
news:%

Hola, recien acaban de instalar un sistema en intranet, pero en una
seccion se capturan datos con numeros decimales, hay un error, en
ocasiones cuando modifico los decimales y grabo me muestra una pagina de
error o me quita el punto decimal a todo... p.ej.. 1.50 (uno punto
cincuenta) lo cambia a 150(como entero), .840 (punto 840) lo cambia a 840
(como entero). Tengo que reiniciar el IIS para que vuelva a aceptar los
decimales, alguien podria ayudarme

Gracias y saludos