--double a decimal

2023-11-04 11:10:14 -07:00
parent 1bb9630051
commit 2357e0da11
10 changed files with 158 additions and 163 deletions
--- a/Inventarios/Apartados.aspx.vb
+++ b/Inventarios/Apartados.aspx.vb
@@ -155,7 +155,7 @@ Partial Class Inventarios_Apartados

        CargaPS()

-        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
        If EsWS Then
            DdlClientes.setEsWebService(True)
            DdlClienteDesapartado.setEsWebService(True)
@@ -387,7 +387,7 @@ Partial Class Inventarios_Apartados

        TdSeriePS.Visible = False

-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
+        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
        If DrPS Is Nothing Then
            Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -415,7 +415,7 @@ Partial Class Inventarios_Apartados

        txtCantidad.Text = "1"

-        Dim Valido = ValidaExistencia(1, CvePSSerie, CveUMSerie, TxtSeriePS.Text.Trim)
+        Dim Valido As Boolean = ValidaExistencia(1, CvePSSerie, CveUMSerie, TxtSeriePS.Text.Trim)

        If Valido Then
            AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim)
@@ -441,7 +441,7 @@ Partial Class Inventarios_Apartados
    End Sub
    Private Sub BtnAgregarPS(Cantidad As Double)
        Dim CveProducto As Integer = DdlProducto2.SelectedValue.ToEntero
-        Dim FuncionalidadSinSerie = True
+        Dim FuncionalidadSinSerie As Boolean = True

        If CveProducto > 0 Then
            If TxtnSerie.Visible Then
@@ -456,7 +456,7 @@ Partial Class Inventarios_Apartados
                End If
            End If

-            Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, "-1"))
+            Dim Valido As Boolean = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, "-1"))

            If Valido Then
                Dim StrSeccion As String = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedItem.Text, "")
@@ -467,7 +467,7 @@ Partial Class Inventarios_Apartados
    End Sub
    Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, Optional Serie As String = "-1",
                                        Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha, Optional CveSeccionAlmacen As Integer = -1) As Boolean
-        Dim Retorno = True
+        Dim Retorno As Boolean = True

        Dim Inv As New ClsInventarios
        Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
@@ -498,7 +498,7 @@ Partial Class Inventarios_Apartados
        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
        If DrPS IsNot Nothing Then CveClasificacion = DrPS("CveClasificacion").ToString.ToEntero

-        Dim DrUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}")
+        Dim DrUM As DataRow = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}")

        Dim registro As DataRow = DtMovimientos.NewRow
        registro.Item("Cantidad") = Cantidad
@@ -628,7 +628,7 @@ Partial Class Inventarios_Apartados
        Dim ObjInventario As New ClsInventarios

        'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN
-        Dim ErrorExistencia = False
+        Dim ErrorExistencia As Boolean = False
        Dim TextoExistencia As StringBuilder = New StringBuilder
        Dim Existencia As Double
        TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:<br/>")
@@ -669,16 +669,16 @@ Partial Class Inventarios_Apartados

        'Inicia la transacción
        ObjInventario.IniciaTransacSQL()
-        Dim CveMovimientoSalida = 0
-        Dim CveMovimientoEntrada = 0
+        Dim CveMovimientoSalida As Integer = 0
+        Dim CveMovimientoEntrada As Integer = 0
        Dim IDPoliza As Integer = 0
-        Dim FolioSalida = 0
-        Dim FolioEntrada = 0
-        Dim AlmacenEntrada = -1
+        Dim FolioSalida As Integer = 0
+        Dim FolioEntrada As Integer = 0
+        Dim AlmacenEntrada As Integer = -1
        Dim Fecha As Date = TxtFecha.Text.ToDate
        Dim ErrorMovInv As Boolean = False
        Dim ErrorAC As Boolean = False
-        Dim TextoError = ""
+        Dim TextoError As String = ""


        'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
@@ -691,7 +691,7 @@ Partial Class Inventarios_Apartados
            ErrorMovInv = True
        Else
            For Each Dr As DataRow In DtMovimientos.Rows
-                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString) Then
+                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString) Then
                    ErrorMovInv = True
                    TextoError = "Ocurrió un error al guardar los movimientos de salida"
                    Exit For
@@ -719,7 +719,7 @@ Partial Class Inventarios_Apartados
                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                        CveSec = -3 'GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero

-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSec, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSec, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
                            ErrorMovInv = True
                            TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                            Exit For
@@ -826,7 +826,7 @@ Partial Class Inventarios_Apartados

    End Sub
    Private Sub CargaExistencias()
-        Dim DtTemp = GetExistenciasDT()
+        Dim DtTemp As DataTable = GetExistenciasDT()

        If DtTemp IsNot Nothing Then
            GvDatosDesapartado.Columns(5).Visible = DtTemp.MAX("Serie").ToString <> ""
@@ -844,7 +844,7 @@ Partial Class Inventarios_Apartados
    Private Function GetExistenciasDT() As DataTable
        Dim DtRetorno As New DataTable

-        Dim CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
+        Dim CveAlmacenApartado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
        If CveAlmacenApartado <= 0 Then
            Alert("No se encontro el almacen de Apartado de la sucursal seleccionada. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
            Return DtRetorno
@@ -872,14 +872,14 @@ Partial Class Inventarios_Apartados
    Protected Sub BtnGuardarDesapartado_Click(sender As Object, e As EventArgs) Handles BtnGuardarDesapartado.Click

        'VALIDA ALMACEN ORIGEN Y DESTINO
-        Dim CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
+        Dim CveAlmacenApartado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
        If DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero = CveAlmacenApartado Then
            Alert("No se puede realizar un traspaso entre el mismo almacén.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        'VALIDA QUE TENGA MOVTOS
-        Dim TieneMovto = False
+        Dim TieneMovto As Boolean = False
        For Each Gvr As GridViewRow In GvDatosDesapartado.Rows
            If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
                TieneMovto = True
@@ -901,7 +901,7 @@ Partial Class Inventarios_Apartados
        Next

        'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
-        Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble)
+        Dim CantidadGV As Decimal = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDecimal)
        'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}")
        'Exit Sub
        If CantidadGV <> GetExistenciasDT().SUM("Cantidad") Then
@@ -913,13 +913,13 @@ Partial Class Inventarios_Apartados
        'Inicia la transacción
        Dim ObjInventario As New ClsInventarios
        ObjInventario.IniciaTransacSQL()
-        Dim CveMovimientoSalida = 0
-        Dim CveMovimientoEntrada = 0
-        Dim FolioSalida = 0
-        Dim FolioEntrada = 0
+        Dim CveMovimientoSalida As Integer = 0
+        Dim CveMovimientoEntrada As Integer = 0
+        Dim FolioSalida As Integer = 0
+        Dim FolioEntrada As Integer = 0
        Dim Fecha As Date = TxtFechaDesapartado.Text.ToDate
        Dim ErrorMovInv As Boolean = False
-        Dim TextoError = ""
+        Dim TextoError As String = ""

        'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
        CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenApartado, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True,
@@ -934,7 +934,7 @@ Partial Class Inventarios_Apartados
        Else
            For Each Gvr As GridViewRow In GvDatosDesapartado.Rows
                If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Lote:=Gvr.DataKey("Lote").ToString, FechaCaducidad:=Gvr.DataKey("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Gvr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDecimal, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Lote:=Gvr.DataKey("Lote").ToString, FechaCaducidad:=Gvr.DataKey("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Gvr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then
                        ErrorMovInv = True
                        TextoError = "Ocurrió un error al guardar los movimientos de salida"
                        Exit For
@@ -961,7 +961,7 @@ Partial Class Inventarios_Apartados

                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                        Dim CveSeccionAlmacen As Integer = Diccionario(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
                            ErrorMovInv = True
                            TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                            Exit For