AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- double a decimal

Browse Source
This commit is contained in:
rrene
2023-11-04 09:01:25 -07:00
parent a9ec1413fc
commit aa15993c47
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ashx/E48.ashx
View File

@@ -54,7 +54,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
If context.Request.InputStream IsNot Nothing Then
Using reader As New StreamReader(context.Request.InputStream)
Dim json = reader.ReadToEnd
Dim json As String = reader.ReadToEnd
If Not String.IsNullOrEmpty(json) Then
JsonRequest = JObject.Parse(json)
@@ -118,11 +118,11 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
''VALIDA EXISTENCIAS
Dim Cont As Integer = 0
Dim ListaPS = JArray.Parse(JsonRequest("productos").ToString())
Dim ListaPS As JArray = JArray.Parse(JsonRequest("productos").ToString())
For Each JsonPS As JObject In ListaPS
Dim Cantidad As Double = JsonPS("cantidad").ToString.ToDouble()
Dim Cantidad As Decimal = JsonPS("cantidad").ToString.ToDecimal()
Dim dtt As DataTable = GlobalDTPSSimplificado(Codigo:=JsonPS("codigo").ToString())
Dim CvePS As Integer = dtt.FiltroPrimeroValor("CvePS").ToEntero()
Dim CveUM As Integer = dtt.FiltroPrimeroValor("CveUnidadMedida").ToEntero()
@@ -219,7 +219,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
If IDPoliza > 0 Then
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
Dim DtMovtos = ObjInventario.DtResultados
Dim DtMovtos As DataTable = ObjInventario.DtResultados
Importe = DtMovtos.SUMD("Total", "Estatus = ''")
If Importe > 0 Then
@@ -403,8 +403,8 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
Dim ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetUsuarios(CveUsuario) Then
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
UsuarioActual.CveEmpresa = CveEmpresa
CreaObjetoEmpresa(UsuarioActual)

2
CGame/Empaque.aspx.cs
View File

@@ -993,7 +993,7 @@ public partial class Empaque : ClsPaginas
}
else
{
if (!ObjInv.AddMovimientoDetalle(CveMovimiento, Row.FCTextBox("TxtCantidad").Text.ToDouble(), Row.DataKey("CveUnidadMedida").ToString().ToEntero(), Row.DataKey("CvePS").ToString().ToEntero(), 0, -1))
if (!ObjInv.AddMovimientoDetalle(CveMovimiento, Row.FCTextBox("TxtCantidad").Text.ToDecimal(), Row.DataKey("CveUnidadMedida").ToString().ToEntero(), Row.DataKey("CvePS").ToString().ToEntero(), 0, -1))
{
Alert("Ocurrió un error al guardar los detalles del movimiento de almacén", TipoMensaje.MsgError);
Error = true;