-

Ventas/ProductosServicios.aspx.vb

@@ -1127,6 +1127,13 @@ Partial Class ProductosyServicios
             Return
         End If
 
+        If ddlMetodos.SelectedValue = "5" Or ChkSerie.Checked Then
+            If Not (ddlMetodos.SelectedValue = "5" And ChkSerie.Checked) Then
+                Dim Mensaje As String = If(ddlMetodos.SelectedValue = "5", "Si el método de salida del inventario es 'SerieLote' el producto debe poder aplicar serie", "Si el produco aplica serie el método de inventario debe ser 'SerieLote'")
+                Alert(Mensaje)
+                Exit Sub
+            End If
+        End If
         'If DdlSubFamilia.SelectedValue = "-1" AndAlso UsuarioActual.TienePermisoProceso(138) Then
         '    Alert("Se debe especificar Familia y Subfamilia de Costos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
         '    Exit Sub
@@ -2640,11 +2647,16 @@ Partial Class ProductosyServicios
         Else
             ChkSerie.Checked = False
         End If
-
+        UpConta.Update()
     End Sub
 
     Protected Sub ChkSerie_CheckedChanged(sender As Object, e As EventArgs)
-
+        If ChkSerie.Checked Then
+            ddlMetodos.SelectedValueExist("5")
+        Else
+            ddlMetodos.SelectedValueExist("-1")
+        End If
+        UpConta.Update()
     End Sub
 
     Protected Sub ChkSeccion_CheckedChanged(sender As Object, e As EventArgs)