Personal Neto Periodo, clientes Genero

Ventas/PV.aspx.vb

@@ -6518,6 +6518,9 @@ Partial Class PV
                 TxtCiudadCliente.Text = dr("Municipio").ToString
                 TxtLocalidadCliente.Text = dr("Localidad").ToString
             End If
+
+            DdlGeneroCliente.SelectedValueExist(-1)
+
         Else
             Dim ObjCliente As New ClsClientes
             If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
@@ -6559,8 +6562,12 @@ Partial Class PV
 
             CargaComboCFDICliente()
 
+            DdlGeneroCliente.SelectedValueExist(-1)
+
         End If
 
+        MuestraOcultaGenero()
+
         UpAgregarCliente.Update()
     End Sub
 
@@ -6656,12 +6663,13 @@ Partial Class PV
         Dim ObjCliente As New ClsClientes
 
         Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
+        Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1, True, False)
 
         If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
                                                 TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
                                                 TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
                                                 DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista,
-                                                RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, CveRegimenFiscal:=CveRegimenFiscal, CveUsoCFDI:=CveUsoCFDI) Then
+                                                RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, CveRegimenFiscal:=CveRegimenFiscal, CveUsoCFDI:=CveUsoCFDI, Genero:=GeneroCliente) Then
 
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 RegistraScript("hideDivEC();")
@@ -8575,9 +8583,27 @@ Partial Class PV
 
         End If
 
+        MuestraOcultaGenero()
+
+
+
+
+
         UpAgregarCliente.Update()
     End Sub
 
+
+    Private Sub MuestraOcultaGenero()
+
+        DvGenero.Visible = False
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso RdTipoPersona.SelectedValue.ToEntero = 0 Then
+            DvGenero.Visible = True
+        End If
+
+        UpAgregarCliente.Update()
+
+    End Sub
+
     Protected Sub LnkSolicitarDesc_Click(sender As Object, e As EventArgs)
         If Me.CveCliente <= 0 Then
             Alert("Debe seleccionar un cliente.", TipoMensaje.MsgAdvertencia)