Validacion de usados, filtro de pendientes por surtir en compras, validacion de procesos de apoyo logistico

App_Code/ClsInventarios.vb

@@ -1249,7 +1249,7 @@ Public Class ClsInventarios
     ''' <param name="CveCompra"></param>
     ''' <param name="CveMovimientoRelacionado">Cuando sea cancelacion/devolucion hay que mandar este dato que seria la salida de almacen</param>
     ''' <returns></returns>
-    Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1) As Boolean
+    Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1, Optional ValidaUsadosCompra As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleVirtualGet")
 
@@ -1258,12 +1258,18 @@ Public Class ClsInventarios
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
             .Add("@CveMovimientoRelacionado", SqlDbType.Int).Value = CveMovimientoRelacionado
+            .Add("@ValidaUsadosCompra", SqlDbType.Bit).Value = ValidaUsadosCompra
         End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
+            If ex.Message.Contains("Usados sistema") Then
+                OnError($"Los usados de la compra no coinciden. {ex.Message}", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Else
                 OnError("Ocurrió un error al obtener los movimientos virtuales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+
         End Try
 
         Return Retorno

Compras/Compras.aspx

@@ -162,9 +162,8 @@
             width: 400px;
         }
 
-        .GastoIndirectoOpciones td
+            .GastoIndirectoOpciones td {
-        {
+                text-align: right; /* Or any other value */
-           text-align:right /* Or any other value */
             }
         /*IPP*/
     </style>
@@ -4788,7 +4787,14 @@
                             <ajax:TabPanel ID="TabNCAlmacen" runat="server" HeaderText="Almacen">
                                 <ContentTemplate>
                                     <div class="row">
-                                        <div class="col-md-12 h4 text-right">
+                                        <div class="col-md-6 text-left">
+                                            <asp:UpdatePanel ID="UpMostrarTodos" runat="server" UpdateMode="Conditional">
+                                                <ContentTemplate>
+                                                    <asp:CheckBox ID="ChkMostrarTodos" Text="Mostrar Todos" runat="server" OnCheckedChanged="ChkMostrarTodos_CheckedChanged" AutoPostBack="true" />
+                                                </ContentTemplate>
+                                            </asp:UpdatePanel>
+                                        </div>
+                                        <div class="col-md-6 h4 text-right">
                                             Saldo: $<asp:Label Text="0.00" ID="LbNCInvSaldoAlmacen" runat="server" />
                                         </div>
                                     </div>

Compras/Compras.aspx.vb

@@ -6828,14 +6828,22 @@ Partial Class Compras_Compras
 
                                                                     If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
 
-                                                                        Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
+                                                                        Dim Valor As Decimal = 0
-                                                                                     Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
+                                                                        For Each RowAcum As DataRow In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").Rows
-                                                                                     Select New With
+                                                                            Dim TotalTamanio = TmpDT.FiltroPrimeroValor("Total", $"CvePS={RowAcum("CvePSCargo")}").ToDecimal()
-                                                                                            {
+                                                                            If TotalTamanio > 0 Then
-                                                                                               .Total = dr2.Field(Of Double)("Total")
+                                                                                Valor += TotalTamanio
-                                                                                            }).Sum(Function(item) item.Total)
+                                                                            End If
+                                                                        Next
 
-                                                                        importeMovimiento += Valor.ToDecimal
+                                                                        'Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
+                                                                        '             Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
+                                                                        '             Select New With
+                                                                        '                    {
+                                                                        '                       .Total = dr2.Field(Of Double)("Total")
+                                                                        '                    }).Sum(Function(item) item.Total)
+
+                                                                        importeMovimiento += Valor
                                                                         importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                                     End If
 
@@ -19063,11 +19071,13 @@ Partial Class Compras_Compras
         CargaAnticipos(CveProveedor, If(ChkNCInv.Checked, "NC", "-1"))
         UpAnticipos.Update()
     End Sub
-Private Sub CargaNCINV()
+    Private Sub CargaNCINV(Optional ShowAllPendientes As Boolean = False)
 
         Dim SaldoAnticipo = 0.0
         Dim CveCompras As String = ""
+
         If ChkNCInvNC.Checked Then
+            If Not ShowAllPendientes Then
                 For Each gvr As GridViewRow In GvFacturaNC.Rows
                     If gvr.FCCheckBox("ChkFacturaNC") IsNot Nothing AndAlso gvr.FCCheckBox("ChkFacturaNC").Checked Then
                         SaldoAnticipo += gvr.FCTextBox("TxtImporte").Text.ToDouble
@@ -19078,6 +19088,7 @@ Private Sub CargaNCINV()
                         End If
                     End If
                 Next
+            End If
         Else
             For Each gvr As GridViewRow In GVAnticipos.Rows
                 If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
@@ -19092,7 +19103,6 @@ Private Sub CargaNCINV()
 
         End If
 
-
         LbNCInvSaldo.Text = SaldoAnticipo.FormatoNumero()
         LbNCInvSaldoAlmacen.Text = SaldoAnticipo.FormatoNumero()
 
@@ -19109,11 +19119,14 @@ Private Sub CargaNCINV()
                 GVNCInv.DataSource = DtPendientesAlmacen
                 GVNCInv.DataBind()
 
+                If Not String.IsNullOrEmpty(CveCompras) Then
+                    DtPendientesAlmacen = DtPendientesAlmacen.FiltraParametros($"CveCompra IN ({CveCompras})")
+                End If
+
                 GVNCInvAlmacen.DataSource = DtPendientesAlmacen
                 GVNCInvAlmacen.DataBind()
 
             End If
-
         Else
             If ChkNCInvNC.Checked Then
                 Alert("Niguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia)
@@ -20373,7 +20386,7 @@ Private Sub CargaNCINV()
 
     Protected Sub BtnFacturaNC_Click(sender As Object, e As EventArgs)
         If ChkNCInvNC.Checked Then
-            CargaNCINV()
+            CargaNCINV(ShowAllPendientes:=False)
 
             TabModoNC.ActiveTabIndex = 1
             TabModoNC_ActiveTabChanged(TabModoNC, EventArgs.Empty)
@@ -20720,9 +20733,11 @@ Private Sub CargaNCINV()
 
     End Sub
 
-
+    Protected Sub ChkMostrarTodos_CheckedChanged(sender As Object, e As EventArgs)
-
+        CargaNCINV(ShowAllPendientes:=True)
-
+        UpFacturaNC.Update()
+        UpMostrarTodos.Update()
+    End Sub
 End Class
 
 Public Class MMensajeDevolucion

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2799,7 +2799,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     'VERIFICA SI TIENE ALMACEN VIRTUAL
                     If CveAlmacenVirtual > 0 Then
-                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa, CveCompra:=CveCompraSurtir, ValidaUsadosCompra:=SumarImporteUsados) Then
                             DtPSVirtual = ObjInventario.DtResultados
                         End If
 
@@ -2994,7 +2994,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             CveMovimientoRef = CveMovimiento
                         End If
 
-                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa, CveCompra:=CveCompraSurtir, ValidaUsadosCompra:=SumarImporteUsados) Then
                             DtPSVirtual = ObjInventario.DtResultados
                         End If
 

Ventas/ProductosServicios.aspx.vb

@@ -846,8 +846,6 @@ Partial Class ProductosyServicios
                 DdlMoneda.SelectedValueExist(ObjProductosServicios.CveMoneda)
                 TxtRetISR.Text = (ObjProductosServicios.RetISR * 100).ToString
 
-                DdlTamanio.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTamaño").ToString)
-
                 DdlModelo.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveModelo").ToString)
                 DdlMedida.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveMedida").ToString)
                 DdlRin.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveRinTamaño").ToString)
@@ -862,6 +860,34 @@ Partial Class ProductosyServicios
 
                 Try
                     DdlClasificacion_SelectedIndexChanged(DdlClasificacion, Nothing)
+
+                    DdlTamanio.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTamaño").ToString)
+                    If DdlTamanio.SelectedValue.ToEntero() > 0 Then
+                        Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+
+                        Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString)
+
+                        'SI ES MOTOBATERIA
+                        If DdlClasificacion.SelectedValue = "20517" Then
+                            DebeTenerTamanio = True
+                        End If
+
+                        'VALIDA QUE EL PRODUCTO, NO ES ACUMULADOR QUE NO TENGA TAMAÑO
+                        If Not DebeTenerTamanio AndAlso DdlTamanio.SelectedValue.ToEntero() > 0 Then
+                            Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' no debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
+                            RfvDdlTamanio.Visible = False
+                            CERfvDdlTamanio.Enabled = False
+                        End If
+
+                        'VALIDA QUE EL PRODUCTO, SI ES ACUMULADOR QUE TENGA TAMAÑO
+                        If DebeTenerTamanio AndAlso DdlTamanio.SelectedValue.ToEntero() <= 0 Then
+                            Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
+                        End If
+
+                        DvTamanio.Visible = True
+                    End If
+
+
                 Catch ex As Exception
 
                 End Try
@@ -1195,23 +1221,48 @@ Partial Class ProductosyServicios
 
         End If
 
+        Dim CveTamaño As Integer = DdlTamanio.SelectedValue.ToEntero
 
+        'VALIDAR TAMAÑOS Y ACUMULADORES
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+
+            Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString)
+
+            'SI ES MOTOBATERIA
+            If DdlClasificacion.SelectedValue = "20517" Then
+                DebeTenerTamanio = True
+            End If
+
+            'VALIDA QUE EL PRODUCTO, NO ES ACUMULADOR QUE NO TENGA TAMAÑO
+            If Not DebeTenerTamanio AndAlso CveTamaño > 0 Then
+                Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' no debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
+                Return
+            End If
+            'VALIDA QUE EL PRODUCTO, SI ES ACUMULADOR QUE TENGA TAMAÑO
+            If DebeTenerTamanio AndAlso CveTamaño <= 0 Then
+                Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
+                Return
+            End If
+
+        End If
 
         Dim ObjProductosServicios As New ClsProductosServicios()
         Dim ObjInv As New ClsInventarios(ObjProductosServicios.IniciaTransacSQL())
 
         Dim TieneError = False
         Dim AccionJS = ""
+
+        Try
+
             Dim EsPaquete As Integer = If(gvPaqueteDetalle.Rows.Count = 0, 0, 1)
             Dim CveMetodoInv As Integer = If(UsuarioActual.Empresa.UsaInventarios, ddlMetodos.SelectedValue.ToEntero, -1)
 
-
             Dim CveProveedor As Integer = -1
             If DdlProveedor.txtValue.Value.ToEntero > 0 Then
                 CveProveedor = DdlProveedor.txtValue.Value.ToEntero
             End If
 
-
             Dim CveMarca As Integer = 0
             If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
 
@@ -1236,7 +1287,7 @@ Partial Class ProductosyServicios
                                                CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal,
                                                CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
                                                CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
-                                           CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
+                                               CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
                                                CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) > 0 Then
@@ -1276,7 +1327,7 @@ Partial Class ProductosyServicios
                 Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
                 If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
 
-            If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, txtcodigo2.text.trim, TxtCodigoBarras.Text.Trim, PSS,
+                If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS,
                                                   TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True,
                                                   ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, EsPaquete, DdlSATPS.SelectedValue.ToEntero,
                                                   CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim,
@@ -1284,7 +1335,7 @@ Partial Class ProductosyServicios
                                                   CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal,
                                                   CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
                                                   CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
-                                              CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
+                                                  CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
                                                   CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                                   ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
@@ -1366,11 +1417,13 @@ Partial Class ProductosyServicios
                 Next
             End If
 
-
             If ObjProductosServicios.CvePS > 0 And Not TieneError Then
                 TieneError = GuardaEcommerce()
             End If
-
+        Catch ex As Exception
+            TieneError = True
+            OnError("Ocurrió un error al guardar al guardar el producto/servicio.", ex)
+        End Try
 
         If Not TieneError Then
             ObjProductosServicios.Commit()
@@ -2103,13 +2156,11 @@ Partial Class ProductosyServicios
                 MostarOcultarDivTamanio(True)
             End If
         Catch ex As Exception
-
+            OnError("Ocurrió un error al mostrar los tamaños", ex)
         End Try
     End Sub
 
-    Sub MostarOcultarDivTamanio(Mostrar As Boolean)
+    Private Sub MostarOcultarDivTamanio(Mostrar As Boolean)
-
-
         If Mostrar And UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             DvTamanio.Visible = True
         Else
@@ -2117,7 +2168,6 @@ Partial Class ProductosyServicios
             DdlTamanio.SelectedValueExist("-1")
         End If
 
-
         UpDatos.Update()
 
     End Sub