-- cambios Serie,Lote,Caducidad Seccion

2020-05-18 12:44:40 -07:00
parent ea2fdb41fe
commit 6095f7a12f
4 changed files with 104 additions and 41 deletions
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4839,13 +4839,14 @@ Public Class ClsInventarios
        Return Retorno
    End Function

-    Public Function GetProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean
+    Public Function GetProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveSeccionAlmacen As Integer, CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionGet")
        With SqlAdapter.SelectCommand.Parameters
            .Add("@CvePS", SqlDbType.Int).Value = CvePS
            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CveAlmacenSeccion", SqlDbType.Int).Value = CveAlmacenSeccion
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
        End With
        Try
            SqlAdapter.Fill(Data)
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -14,6 +14,7 @@ Imports CrystalDecisions.Shared
 Imports CrystalDecisions.ReportSource
 Imports Stimulsoft.Report
 Imports System.Xml
+Imports System.Web.Http.ValueProviders


 'NOTA AD TEAM
@@ -1734,33 +1735,7 @@ Public Class ClsPaginas
            Application("GlobalDTInvConceptos") = value
        End Set
    End Property
-    Property GlobalDTSeccionAlmacen(CveEmpresa As Integer, CveAlmacen As Integer) As DataTable
-        Get
-            Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa)
-            'sino existe, recarga los datos
-            If Application(AppNombre) Is Nothing Then
-                Dim ObjInv As New ClsInventarios
-                If ObjInv.GetSeccionesAlmacenes(CveEmpresa, -1) Then Application(AppNombre) = ObjInv.DtResultados
-                ObjInv.Dispose()
-            End If
-            If CveEmpresa <> -1 Then
-                Dim Str As New StringBuilder

-                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
-                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-                GlobalDTSeccionAlmacen = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTSeccionAlmacen = DirectCast(Application("GlobalDTSeccionAlmacen"), DataTable)
-            End If
-
-        End Get
-        Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa)
-            Application(AppNombre) = value
-        End Set
-    End Property
    Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1) As DataTable
        Get

@@ -1797,6 +1772,76 @@ Public Class ClsPaginas
            Application("GlobalDTAlmacenUsuarios") = value
        End Set
    End Property
+
+    Property GlobalDTSeccionAlmacen(CveEmpresa As Integer, CveAlmacen As Integer) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjInv As New ClsInventarios
+                If ObjInv.GetSeccionesAlmacenes(CveEmpresa, -1) Then Application(AppNombre) = ObjInv.DtResultados
+                ObjInv.Dispose()
+            End If
+            If CveEmpresa <> -1 Then
+                Dim Str As New StringBuilder
+
+                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+                GlobalDTSeccionAlmacen = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTSeccionAlmacen = DirectCast(Application("GlobalDTSeccionAlmacen"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
+
+    Property GlobalDTInvPSSeccionesAlmacen(CveEmpresa As Integer, CveAlmacen As Integer, CvePS As Integer) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjInv As New ClsInventarios
+                If ObjInv.GetProductosServiciosAlmacenSeccion(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados
+                ObjInv.Dispose()
+            End If
+            If CveEmpresa <> -1 Then
+                Dim Str As New StringBuilder
+
+                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+                If CvePS > 0 Then Str.AppendFormat("AND CvePS = {0}", CvePS)
+
+                'si el PS no tiene definido una seccion, toma las del Almacen
+                If DirectCast(Application(AppNombre), DataTable) IsNot Nothing Then
+                    Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+                    GlobalDTInvPSSeccionesAlmacen = Dv.ToTable
+                    Dv.Dispose()
+                    'sino tiene datos registrados, toma los de almacen
+                    If GlobalDTInvPSSeccionesAlmacen.Rows.Count = 0 Then
+                        GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
+                    End If
+                Else
+                    'sino tiene datos registrados, toma los de almacen
+                    GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
+                End If
+
+            Else
+                GlobalDTInvPSSeccionesAlmacen = DirectCast(Application(AppNombre), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
+
    Property GlobalDTNom_Periodos() As DataTable
        Get
            GlobalDTNom_Periodos = DirectCast(Application("GlobalDTNom_Periodos"), DataTable)
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -65,6 +65,11 @@ Public Class ClsProductosServicios
    Public Property AplicaIEPS As Boolean
    Public Property IEPSGrabaIVA As Boolean

+    Public Property AplicaSerie As Boolean
+    Public Property AplicaLote As Boolean
+    Public Property AplicaCaducidad As Boolean
+    Public Property AplicaSeccion As Boolean
+
    Public Property CveConceptoContable As Integer

    'Nuevo R: 26/09/2017'
@@ -256,6 +261,11 @@ Public Class ClsProductosServicios
                IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble
                CveConceptoContable = Data.Rows(0)("CveConceptoContable").ToString.ToEntero

+                AplicaSerie = (Data.Rows(0)("AplicaSerie").ToString) = "True"
+                AplicaLote = (Data.Rows(0)("AplicaLote").ToString) = "True"
+                AplicaCaducidad = (Data.Rows(0)("AplicaCaducidad").ToString) = "True"
+                AplicaSeccion = (Data.Rows(0)("AplicaSeccion").ToString) = "True"
+
                'Nuevo R: 26/09/2017'

                Inventariable = Data.Rows(0)("Inventariable").ToString = "True"
@@ -608,7 +618,8 @@ Public Class ClsProductosServicios
                             Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                             Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                             Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Boolean
+                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
+                             Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_ProductosServiciosUpdate")
@@ -683,6 +694,12 @@ Public Class ClsProductosServicios
            .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
            .Add("@Litraje", SqlDbType.Float).Value = Litraje
            .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
+
+            .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie
+            .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote
+            .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad
+            .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion
+
        End With

        Try
@@ -1780,7 +1797,7 @@ Public Class ClsProductosServicios

    Public Function GetPSExistencias(CvePS As Integer, CvePrecioLista As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
                                    CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
-                                    Optional FechaMovto As String = "-1", Optional SerieLote As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
+                                    Optional FechaMovto As String = "-1", Optional Serie As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
                                    Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1",
                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
@@ -1796,7 +1813,7 @@ Public Class ClsProductosServicios
            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
            .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
-            .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
            .Add("@Lote", SqlDbType.VarChar).Value = Lote
            .Add("@Batch", SqlDbType.VarChar).Value = Batch
            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3369,7 +3369,7 @@ Namespace Modelos
                            CveUnidad = Dr("CveUM").ToString.ToEntero
                            Cantidad = Dr("Cantidad").ToString.ToDouble

-                            If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("SerieLote").ToString = "" Then
+                            If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("Serie").ToString = "" Then
                                OcurrioError = True
                                ErrorList.Add("Se deben especificar las Series de los productos de almacén")
                                Exit For
@@ -3510,7 +3510,7 @@ Namespace Modelos

                'Si no se ha terminado de surtir agregamos el movimiento
                If Indice >= 0 Then
-                    ' rowSurtidos("Surtido").ToString.ToDouble < rowSurtidos("Cantidad").ToString.ToDouble AndAlso (dr("CantidadDisponible").ToString.ToDouble - rowSurtidos("Surtido").ToString.ToDouble > 0 Or dr("SerieLote").ToString <> "")
+                    ' rowSurtidos("Surtido").ToString.ToDouble < rowSurtidos("Cantidad").ToString.ToDouble AndAlso (dr("CantidadDisponible").ToString.ToDouble - rowSurtidos("Surtido").ToString.ToDouble > 0 Or dr("Serie").ToString <> "")
                    If rowSurtidos("Surtido").ToString.ToDecimal < rowSurtidos("Cantidad").ToString.ToDecimal Then
                        Dim CantidadSurtida As Double = If(dr("CantidadDisponible").ToString.ToDecimal < rowSurtidos("Cantidad").ToString.ToDouble, dr("CantidadDisponible").ToString.ToDecimal, rowSurtidos("Cantidad").ToString.ToDecimal)
                        MovDTCuadrados.ImportRow(dr)
@@ -3653,7 +3653,7 @@ Namespace Modelos
                    Dim CveUnidad As Integer = MovDet("CveUM").ToString.ToEntero
                    Dim PU As Decimal = MovDet("PU").ToString.ToDecimal
                    Dim CveProducto As Integer = MovDet("CvePS").ToString.ToEntero
-                    Dim SerieLote As String = MovDet("SerieLote").ToString
+                    Dim Serie As String = MovDet("Serie").ToString
                    Dim Consec As Integer = DtRemisiones.FiltroPrimeroValor("Consec", $"CveVentaDetalle = {MovDet("CveVentaDetalle").ToString}").ToEntero

                    'COMIENZA: VENTADETALLE
@@ -3672,7 +3672,7 @@ Namespace Modelos
                        Exit For
                    End If

-                    If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Lote:=SerieLote, CveVentaDetalle:=CveVentaDetalle) Then
+                    If ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Serie:=Serie, CveVentaDetalle:=CveVentaDetalle) Then
                        ContadorMovtosDetalles += 1
                    Else
                        OcurrioError = True
@@ -4436,7 +4436,7 @@ Namespace Modelos

                                        If CveMovimientoDevolucion > 0 Then
                                            For Each Dr As DataRow In DtExistencias.FiltraParametros($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}").Rows
-                                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
                                                    ErrorCancelar = True
                                                    MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
                                                    Exit For
@@ -4936,7 +4936,7 @@ Namespace Modelos
                                    End If

                                    For Each Dr As DataRow In DtMovtosDev.FiltraParametros($"CveVentaDetalle = {DrRem("CveVentaDetalle").ToString.ToEntero}").Rows
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=Dr("Lote").ToString) Then
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Serie:=Dr("Serie").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=Dr("Lote").ToString) Then
                                            ErrorCancelar = True
                                            Exit For
                                        End If
@@ -5018,7 +5018,7 @@ Namespace Modelos
                        Exit For
                    End If

-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, DrRem("CveActivoFijo").ToString.ToEntero, -1, DrRem("SerieLote").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=DrRem("Lote").ToString) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, CveVentaDetalle:=CveVentaDetalleRem, Lote:=DrRem("Lote").ToString) Then
                        ErrorCancelar = True
                        Exit For
                    End If
@@ -5033,7 +5033,7 @@ Namespace Modelos
            If Not ErrorCancelar Then
                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDevRem, UsuarioActual.CveEmpresa) Then
                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
                            ErrorCancelar = True
                            Exit For
                        End If
@@ -5088,7 +5088,7 @@ Namespace Modelos
                            Exit For
                        End If

-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
                            ErrorCancelar = True
                            Exit For
                        End If
@@ -5111,7 +5111,7 @@ Namespace Modelos

                            If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                                For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
                                        ErrorCancelar = True
                                        Exit For
                                    End If