Modal de registro rapido de Clientes

Ventas/PV.aspx.vb

@@ -4592,6 +4592,17 @@ Partial Class PV
             DivCorreoCuentaCliente.Visible = True
             DivBotonesAgregarCliente.Visible = True
             DivFormaCliente.Visible = True
+
+            RFVDireccionC.Visible = False
+            RFVNoEC.Visible = False
+            RFVColoniaC.Visible = False
+            RFVCiudadC.Visible = False
+            RFVLocalidadC.Visible = False
+            RFVEstadoC.Visible = False
+            RFVPaisC.Visible = False
+
+            DdlMetodoCliente.SelectedValueExist(1)
+            DdlFormaCliente.SelectedValueExist(1)
         Else
             Dim ObjCliente As New ClsClientes
             If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
@@ -4614,6 +4625,17 @@ Partial Class PV
                 End If
             End If
             ObjCliente.Dispose()
+
+            RFVDireccionC.Visible = True
+            RFVNoEC.Visible = True
+            RFVColoniaC.Visible = True
+            RFVCiudadC.Visible = True
+            RFVLocalidadC.Visible = True
+            RFVEstadoC.Visible = True
+            RFVPaisC.Visible = True
+
+            DdlMetodoCliente.SelectedValueExist(-1)
+            DdlFormaCliente.SelectedValueExist(-1)
         End If
 
     End Sub