Clientes - Grupos

Ventas/Clientes.aspx.vb

@@ -1421,6 +1421,7 @@ Partial Class Clientes
                 'TxtEstado.Text = ObjClientes.Estado
                 'TxtPais.Text = ObjClientes.Pais
                 TxtRFC.Text = ObjClientes.RFC
+
                 TxtCP.Text = ObjClientes.CP.ToString
                 TxtTelefono.Text = ObjClientes.Telefono
                 TxtContacto.Text = ObjClientes.Contacto
@@ -1898,7 +1899,16 @@ Partial Class Clientes
             GvDireccionesEnvio.DataSource = ObjClientes.DtResultados
         End If
         ObjClientes.Dispose()
-        GvDireccionesEnvio.DataBind()
+        GvDireccionesEnvio.DataBind()
+
+        If TxtRFC.Text = "XAXX010101000" Then
+            GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente"
+            LtlNombreSucursal.Text = "Cliente"
+            LtlNombreSucursalTitulo.Text = "Cliente"
+            LtlTituloSurcusalCliente.Text = "Datos del cliente"
+            LtlGvSucursalesCliente.Text = "Clientes"
+        End If
+        UpAgregarSucursal.Update()
         UpDatos.Update()
     End Sub
     Public Sub CargaAFAsignados()
@@ -2976,15 +2986,13 @@ 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)
 
         If CveCliente > 0 Then
             If Actualizar Then
 
-
                 Dim Estatus As Boolean = ChkEstatusSucursal.Checked
 
-
-
                 If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
                                              TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero, TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero, TxtLimiteCreditoSucursal.Text.ToDecimal, DdlResponsableSucursal.SelectedValue.ToEntero,
                                               DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then
@@ -3126,6 +3134,7 @@ Partial Class Clientes
     Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing
 
         Me.Actualizar = True
+        Me.DivRFCSucursal.Visible = False
         Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
 
 
@@ -3146,6 +3155,8 @@ Partial Class Clientes
             TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString
             TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString
             TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString
+            TxtRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString
+            DivRFCSucursal.Visible = Not String.IsNullOrEmpty(TxtRFCSucursal.Text.Trim())
             TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString
             TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString
             TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString