Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Clientes.aspx.vb

@@ -9812,7 +9812,7 @@ Partial Class Clientes
         If CveFuncionalidad404.Contiene(30) And DdlTipoCliente.SelectedValue.ToEntero = 1 Then
             DivCrearPrecioLista.Visible = True
         Else
-            DivCrearPrecioLista.Visible = True
+            DivCrearPrecioLista.Visible = False
         End If
 
 
@@ -10525,10 +10525,49 @@ Partial Class Clientes
 
         Dim CveAlmacenAgregado As Integer = -1
         Dim ObjInv As New ClsInventarios(transaccionSQL)
+        Dim nombreAlamacenLibre As Boolean = True
+        Dim ProcesoValidaAlamcenOF = True
 
-        If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
-            CveAlmacenAgregado = ObjInv.CveAlmacenAgregado
-            GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+        If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+            nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)
+
+            If Not nombreAlamacenLibre Then
+
+                NombreAlmacen = $"{TxtNombreCorto.Text} {NombreAlmacen}".Trim
+                If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+
+                    nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)
+                    If Not nombreAlamacenLibre Then
+
+                        NombreAlmacen = $"{TxtNombre.Text} {NombreAlmacen}".Trim
+                        If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+
+                            nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)
+
+                        Else
+                            ProcesoValidaAlamcenOF = False
+                        End If
+                    End If
+                Else
+                    ProcesoValidaAlamcenOF = False
+                End If
+            End If
+
+        Else
+            ProcesoValidaAlamcenOF = False
+        End If
+
+        If ProcesoValidaAlamcenOF Then
+            If nombreAlamacenLibre Then
+                If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
+                    CveAlmacenAgregado = ObjInv.CveAlmacenAgregado
+                    GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
+                End If
+            Else
+                Alert($"El almacén {NombreAlmacen} ya existe.", TipoMensaje.MsgAdvertencia)
+            End If
+        Else
+            Alert($"No se pudo validar el almacén {NombreAlmacen}.", TipoMensaje.MsgAdvertencia)
         End If
 
         Return CveAlmacenAgregado

Ventas/Ventas.aspx.vb

@@ -3392,7 +3392,7 @@ Partial Class Ventas
 
                 If CveCliente > 0 Then
                     DdlClientesWS.txtValue.Value = CveCliente.ToString
-                    DdlClientesWS.txtText.Value = LblCliente.Text
+                    DdlClientesWS.txtText.Value = NombreCliente
                     DdlClientesWS.SelectedValue = CveCliente.ToString
                 End If
             End If