-

Ventas/Clientes.aspx.vb

@@ -3047,8 +3047,7 @@ Partial Class Clientes
         Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
         Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
-        Dim CveAlmacenAgregadoSucursal As Integer = -1
-
+        Dim CveAlmacenAgregadoSucursal As Integer = ddlAlmacenSucursal.SelectedValue.ToEntero
 
         If CveCliente > 0 Then
 
@@ -7465,7 +7464,7 @@ Partial Class Clientes
             Dim ciudad As String = ""
             Dim estado As String = ""
             Dim Telefono As String = ""
-            Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
+            Dim mesArray As String() = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
             Dim hoy As DateTime = NowADS()
             Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
             Dim cpCliente As String = ""