SMS Clientes Suscursales agregar DdlAlamcen

Ventas/Clientes.aspx.vb

@@ -661,17 +661,7 @@ Partial Class Clientes
     End Property
 
 
-    Property CveAlmacenAsignadoSucursal As Integer
-        Get
-            If ViewState("CveAlmacenAsignadoSucursal") Is Nothing Then
-                ViewState("CveAlmacenAsignadoSucursal") = -1
-            End If
-            Return ViewState("CveAlmacenAsignadoSucursal").ToString().ToEntero()
-        End Get
-        Set(value As Integer)
-            ViewState("CveAlmacenAsignadoSucursal") = value
-        End Set
-    End Property
+
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -2583,8 +2573,9 @@ Partial Class Clientes
                             For Each Row As DataRow In TempDTSucursales.Rows
                                 If Not CveCliente > 0 Then
 
-                                    Dim CveAlmacenAsignadoSucursal As Integer = -1
-                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                                    Dim CveAlmacenAsignadoSucursal As Integer = If(Row("CveAlmacenAsignado").ToString().ToEntero <= 0, -1, Row("CveAlmacenAsignado").ToString().ToEntero)
+
+                                    If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveAlmacenAsignadoSucursal <= -1 Then
                                         CveAlmacenAsignadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(Row("SucursalCliente").ToString(), ObjClientes.IniciaTransacSQL())
                                         If Not CveAlmacenAsignadoSucursal > 0 Then
                                             ErrorProceso = True
@@ -3005,14 +2996,26 @@ Partial Class Clientes
         DivEstatusSucursal.Visible = False
         TxtNumeroCuenta.Text = ""
         DdlMetodoPagoSucursal.SelectedIndex = 0
-        CveAlmacenAsignadoSucursal = -1
+        ddlAlmacenSucursal.SelectedValueExist("-1")
         UpAgregarSucursal.Update()
         Me.CveClienteSuc = -1
         Me.Actualizar = False
         txtLg.Text = ""
         txtLt.Text = ""
-        HDMAPOP.Value = "2"
-
+        HDMAPOP.Value = "2"
+
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            DvAlmacenSucursal.Visible = True
+            ddlAlmacenSucursal.Items.Clear()
+            ddlAlmacenSucursal.ClearSelection()
+            ddlAlmacenSucursal.SelectedValue = Nothing
+            ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            ddlAlmacenSucursal.DataBind()
+        End If
+
+        ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        ddlAlmacenSucursal.SelectedValueExist("-1")
+
         UpModalDivMapa.Update()
 
 
@@ -3053,7 +3056,7 @@ Partial Class Clientes
             Dim ObjCliente As New ClsClientes
             ObjCliente.IniciaTransacSQL()
 
-            If CveAlmacenAsignadoSucursal <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            If ddlAlmacenSucursal.SelectedValue.ToEntero <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 CveAlmacenAgregadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(TxtNombreSucursal.Text.Trim, ObjCliente.IniciaTransacSQL())
                 If Not CveAlmacenAgregadoSucursal > 0 Then
                     ProcesoOK = False
@@ -3214,7 +3217,7 @@ Partial Class Clientes
         Me.Actualizar = True
         'Me.DivRFCSucursal.Visible = False
         Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
-        CveAlmacenAsignadoSucursal = -1
+        ddlAlmacenSucursal.SelectedValueExist("-1")
 
         Dim ObjCliente As New ClsClientes
 
@@ -3254,7 +3257,20 @@ Partial Class Clientes
             txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString()
             HDMAPOP.Value = "2"
 
-            CveAlmacenAsignadoSucursal = ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString().ToEntero
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                DvAlmacenSucursal.Visible = True
+                ddlAlmacenSucursal.Items.Clear()
+                ddlAlmacenSucursal.ClearSelection()
+                ddlAlmacenSucursal.SelectedValue = Nothing
+                ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+                ddlAlmacenSucursal.DataBind()
+                ddlAlmacenSucursal.Items.Add(New ListItem("Seleccione uno", "-1"))
+                ddlAlmacenSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString())
+            End If
+
+
+
+
 
 
             UpAgregarSucursal.Update()
@@ -5537,6 +5553,8 @@ Partial Class Clientes
         RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
 
+        RowSucursal("CveAlmacenAsignado") = ddlAlmacenSucursal.SelectedValue.ToEntero
+
         TempDTSucursales.Rows.Add(RowSucursal)
 
         GVSucursales.DataSource = TempDTSucursales