Merge branch 'master' of http://192.168.10.111:8383/SIG

2022-11-09 14:48:33 -07:00
parent 11ff85ce7b b45d854964
commit 88eb5f0026
36 changed files with 9803 additions and 9013 deletions
--- a/Ventas/CatClientesClasificaciones.aspx
+++ b/Ventas/CatClientesClasificaciones.aspx
@@ -32,7 +32,7 @@
        <ContentTemplate>
            <asp:UpdatePanel ID="UpGvClasificacion" runat="server" UpdateMode="Conditional">
                <ContentTemplate>
-                    <asp:GridView ID="GvClasificacion" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClienteClasificacion" EmptyDataText="No se encontraron Clasificaciones." ToolTip="Listado de Clasificacaiones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" GridLines="None">
+                    <asp:GridView ID="GvClasificacion" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClienteClasificacion" EmptyDataText="No se encontraron giros de clientes." ToolTip="Listado de giros de clientes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" GridLines="None">
                        <Columns>
                            <asp:BoundField DataField="ClienteClasificacion" ItemStyle-Width="30%" HeaderText="Giro" ItemStyle-HorizontalAlign="left" />
                            <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="30%" HeaderText="Fecha Ingreso" ItemStyle-HorizontalAlign="left" />
@@ -65,15 +65,15 @@
                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                            <span aria-hidden="true">&times;</span>
                        </button>
-                        <h4 class="modal-title" id="myModalLabel">Guardar Clasificación</h4>
+                        <h4 class="modal-title" id="myModalLabel">Guardar giro</h4>
                    </div>
                    <div class="modal-body">
                        <asp:UpdatePanel ID="UpAgregarSucursal" UpdateMode="Conditional" runat="server">
                            <ContentTemplate>
                                <div class="form-group form-md-line-input input-iconright">
                                    <asp:TextBox ID="TxtClasificacion" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVClasificacion" runat="server" ControlToValidate="TxtClasificacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtClasificacion.ClientID.ToString()%>">Clasificación:</label>
+                                    <asp:RequiredFieldValidator ID="RFVClasificacion" runat="server" ControlToValidate="TxtClasificacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Giro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtClasificacion.ClientID.ToString()%>">Giro:</label>
                                </div>
                            </ContentTemplate>
                        </asp:UpdatePanel>
--- a/Ventas/CatClientesClasificaciones.aspx.vb
+++ b/Ventas/CatClientesClasificaciones.aspx.vb
@@ -35,7 +35,7 @@ Partial Class Ventas_ClientesClasificaciones
        If HdnModalidad.Value = "I" Then
            If Objeto.AddClienteClasificacion(TxtClasificacion.Text, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
                TxtClasificacion.Text = ""
-                Alert("La Clasificación se agregó correctamente.", TipoMensaje.MsgInformacion)
+                Alert("El giro se agregó correctamente.", TipoMensaje.MsgInformacion)
                CargaDatos()
                UpGvClasificacion.Update()
                Objeto.Dispose()
@@ -45,7 +45,7 @@ Partial Class Ventas_ClientesClasificaciones
        Else
            If HdnID.Value.ToEntero <> -1 Then
                If Objeto.UpdateClienteClasificacion(TxtClasificacion.Text, HdnID.Value.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
-                    Alert("Se actualizó correctamente la Clasificación.", TipoMensaje.MsgInformacion)
+                    Alert("Se actualizó correctamente el giro.", TipoMensaje.MsgInformacion)
                    CargaDatos()
                    UpGvClasificacion.Update()
                    Objeto.Dispose()
@@ -80,7 +80,7 @@ Partial Class Ventas_ClientesClasificaciones
        Dim Clave = GvClasificacion.Rows(e.RowIndex).DataKey("CveClienteClasificacion").ToEntero

        If Update.UpdateClienteClasificacion(Clasificacion, Clave, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
-            Alert("Se actualizó correctamente la Clasificación.", TipoMensaje.MsgInformacion)
+            Alert("Se actualizó correctamente el giro.", TipoMensaje.MsgInformacion)
        End If
        GvClasificacion.EditIndex = -1
        CargaDatos()
@@ -97,7 +97,7 @@ Partial Class Ventas_ClientesClasificaciones
        Dim Objeto As New ClsClientes
        Dim Clave = GvClasificacion.Rows(e.RowIndex).DataKey("CveClienteClasificacion").ToEntero
        If Objeto.RemoveClienteClasificacion(Clave) Then
-            Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
+            Alert("El giro se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If
        Objeto.Dispose()
        GvClasificacion.EditIndex = -1
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6185,6 +6185,12 @@ Partial Class Ventas
                DdlVendedor.Enabled = False
                LbAgregar.Enabled = True
            End If
+
+
+            ThTiempoEntrega.Visible = True
+                ThTiempoEntrega2.Visible = True
+                GvPS.Columns(5).Visible = True
+
        End If
        ObjCRM.Dispose()
    End Sub
@@ -7635,7 +7641,6 @@ Partial Class Ventas
 #End Region

 #Region "G R I D V I E W S"
-
 #Region "GvPS"
    Protected Sub GvPS_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvPS.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
@@ -7821,7 +7826,7 @@ Partial Class Ventas
                End If

                'Si es Cotizacíon
-                If e.Row.DBCampo("TipoDocto") = "Cot" Then
+                If e.Row.DBCampo("TipoDocto") = "Cot" Or CveEmpresaCRM > 0 Then
                    ThTiempoEntrega.Visible = True
                    ThTiempoEntrega2.Visible = True
                    GvPS.Columns(5).Visible = True
@@ -8572,6 +8577,43 @@ Partial Class Ventas
                Alert("El cliente no tiene asignado un régimen fiscal.", TipoMensaje.MsgAdvertencia)
                Exit Sub
            End If
+
+            If DdlUsoCFDI.SelectedValue.ToEntero() <= 0 Then
+                Alert("No se ha seleccionado el Uso CFDI o el cliente no tiene asignado el correcto.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then
+
+            If LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente <> "616" Then
+                Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then
+                Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente = "616" Then
+                Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue = "23" Then
+                Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim EsPersonaMoral As Boolean = Me.TipoPersona
+            Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+
+            If DtUsosCFDI.Rows.Count = 0 Then
+                Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
        End If

        If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
@@ -12125,7 +12167,7 @@ Partial Class Ventas
            ' If drr("ImporteIVA").ToString().ToDouble > 0 Then

            'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero
-            If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then
+            If Timbre.Comprobante.Total > 0 AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0) Then
                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(6), .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal})
            End If

@@ -12141,6 +12183,11 @@ Partial Class Ventas
                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeRetISR").ToString().ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal})
            End If

+            'si el codigo objeto impuesto es 02 y no tiene desglose de impuestos por el descuento, debe asignar el valor 04 - Si objeto de impuesto y no causa impuesto
+            If concepto.Impuestos.Count = 0 AndAlso concepto.ObjetoImpuesto = "02" AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(2) = 0.00D Then
+                concepto.ObjetoImpuesto = "04"
+            End If
+
            Timbre.Conceptos.Add(concepto)
            i += 1
        Next
@@ -12161,7 +12208,11 @@ Partial Class Ventas
                Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
                Timbre.Complementos.ComercioExterior11.Subdivision = "0"
                Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString().ToDecimal)
-                Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
+                If Timbre.Comprobante.TipoComprobante = "T" Then
+                    Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
+                Else
+                    Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
+                End If



@@ -15071,7 +15122,7 @@ Partial Class Ventas
                        Dim DtProductos As DataTable = TmpDTDetalle.FiltraParametros("CveTipoPS = 2")

                        Dim MovDetalle As DataTable = New DataTable()
-                        MovDetalle.Columns.Add(New DataColumn("Cantidad", GetType(Integer)))
+                        MovDetalle.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
                        MovDetalle.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
                        MovDetalle.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
                        MovDetalle.Columns.Add(New DataColumn("PU", GetType(Decimal)))
@@ -15096,29 +15147,48 @@ Partial Class Ventas
                        Next

                        'Le damos salida de apartado por traspaso
-                        Dim CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta, CveAlmacenDestino:=CveAlmacenExA)
+                        Dim CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta, CveAlmacenDestino:=CveAlmacenExA, MovimientoPrePoliza:=False)

                        If Not CveMovimientoSalidaPorTraspaso > 0 Then
                            OcurrioError = True
                        End If

+                        Dim CveMovimientoEntrada As Integer = -1
+
+                        Dim TotalPrePoliza As Decimal = 0
+
                        'Le damos entrada al general por traspaso
                        If Not OcurrioError Then
-                            Dim GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenExA, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta) > 0

-                            If Not GeneroMovimientoAlmacen Then
-                                OcurrioError = True
+                            If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaPorTraspaso, UsuarioActual.CveEmpresa) Then
+                                MovDetalle = ObjInventario.DtResultados.Copy()
+                                TotalPrePoliza = MovDetalle.SUMD("Total").RoundSQL(2)
                            End If
+
+                            If Not OcurrioError Then
+                                CveMovimientoEntrada = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenExA, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta, MovimientoPrePoliza:=False)
+
+                                If CveMovimientoEntrada <= 0 Then
+                                    OcurrioError = True
+                                End If
+                            End If
+
                        End If

                        'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
-                        If Not OcurrioError AndAlso DebeGenerarMovimiento Then
+                        If Not OcurrioError Then
                            If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
                                OcurrioError = True
                                ErrorList.Add("Ocurrió un error al verificar inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                            End If
                        End If

+                        If Not OcurrioError Then
+                            If ContabilizaMovimientoAlmacen(ObjConta, Now, ObjFactura.SerieFolio, "Ventas/Rem", CveMovimientoSalidaPorTraspaso, CveMovimientoEntrada, TotalPrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False) <= 0 Then
+                                OcurrioError = True
+                            End If
+                        End If
+
                    End If

                End If
@@ -16354,6 +16424,7 @@ Partial Class Ventas
    End Function
 #End Region

+
 #Region "  BTN ELIMINAR   "
    Protected Sub BtnEmitir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEmitir.Click

@@ -20147,6 +20218,7 @@ Partial Class Ventas
            If Not OcurrioError Then
                If MovimientoPrePoliza AndAlso CveMovimientoInventario > 0 Then
                    'OcurrioError = Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoInventario, CveAlmacen)
+
                    If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                        Dim DtCostos = ObjInventario.DtResultados.Copy
                        Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"})
@@ -20197,6 +20269,7 @@ Partial Class Ventas
                    Else
                        OcurrioError = True
                    End If
+
                End If
            End If

@@ -22575,30 +22648,35 @@ Partial Class Ventas

    End Sub

-    Private Sub CargaComboCFDICliente()
-        If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
-            DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI().FiltraParametros("CveUsoCFDI = 23")
-            DdlUsoCFDICliente.DataBind()
-        Else
-            Dim RegimenFiscalCliente = DdlRegimenFiscalCliente.SelectedValue.ToString()
-            If Not UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
-                RegimenFiscalCliente = "-1"
-            End If
-
-            DdlUsoCFDICliente.Items.Clear()
-            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-                Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
-                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+    Private Sub CargaComboCFDICliente()
+        If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+            If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
+                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI().FiltraParametros("CveUsoCFDI = 23")
+                DdlUsoCFDICliente.DataBind()
            Else
-                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
-            End If
+                Dim RegimenFiscalCliente As String = "-1"

-            DdlUsoCFDICliente.DataBind()
+                If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+                    RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue.ToEntero()}")
+                End If
+
+                DdlUsoCFDICliente.Items.Clear()
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                    Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+                    DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+                Else
+                    DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+                End If
+
+                DdlUsoCFDICliente.DataBind()
+                DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            End If
+        Else
+            DdlUsoCFDICliente.Items.Clear()
            DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        End If
-
-
-        UpAgregarCliente.Update()
+        End If
+
+        UpAgregarCliente.Update()
    End Sub

    Protected Sub DdlRegimenFiscalCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -22613,6 +22691,41 @@ Partial Class Ventas
        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
            CveRegimenFiscal = DdlRegimenFiscalCliente.SelectedValue.ToEntero()
            CveUsoCFDI = DdlUsoCFDICliente.SelectedValue.ToEntero()
+
+            Dim RegimenFiscalCliente As String = "-1"
+
+            If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+                RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {CveRegimenFiscal}")
+            End If
+
+            If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue <> "11" Then
+                Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue <> "23" Then
+                Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
+                Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
+                Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+            Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}")
+
+            If DtUsosCFDI.Rows.Count = 0 Then
+                Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
        End If

        If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
@@ -34504,7 +34617,7 @@ Partial Class Ventas
        DVRegimenSociedad.Visible = False
        DivRazonSocial2.Attributes.Add("class", "col-md-12")

-        If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
+        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then

            DivRazonSocial2.Attributes.Add("class", "col-md-8")
            DVRegimenSociedad.Visible = True
@@ -34531,6 +34644,11 @@ Partial Class Ventas

            End If

+            DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            DdlUsoCFDICliente.Items.Clear()
+            DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
        End If

        UpAgregarCliente.Update()