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

2022-10-31 12:46:24 -07:00
parent 8f178e82e7 f782315238
commit 04b898225d
20 changed files with 1885 additions and 1628 deletions
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1676,7 +1676,8 @@ Public Class ClsClientes
    End Function
    Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer,
                                              RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer,
-                                              NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
+                                              NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1",
+                                              Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_ClientesNoFrecuenteAdd")

@@ -1703,6 +1704,8 @@ Public Class ClsClientes
            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
            .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
            .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
+            .Add("@CveRegimenFiscal", SqlDbType.Int).Value = CveRegimenFiscal
+            .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI

        End With

--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -4274,7 +4274,12 @@ Partial Class PopUpVerFactura
                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                    ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
+                    If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
+                        ImprimirPDFStimulsoft(String.Format("Empresas/Grales/Formatos/Traslado.mrt", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
+                    Else
+                        ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
+                    End If
+
                End If


--- a/Compras/RepCxP.aspx
+++ b/Compras/RepCxP.aspx
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -129,9 +129,9 @@ Partial Class Compras_RepCxP
        DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0")
        DdlUsuarioResponsable.DataBind()

-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro)
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        'DdlSubProyecto.DataBind()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro)

        DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
        DdlProveedoresClasificaciones.DataBind()
@@ -168,6 +168,14 @@ Partial Class Compras_RepCxP

    End Sub

+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, CveEstatus:=1)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        UPFiltros.Update()
+    End Sub
+
    Private Sub CargaDatos()
        If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then
            TCEspecifico = TxtEspecifico.Text
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -216,11 +216,18 @@
                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
-                        <div class="col-md-1"><span><asp:Label runat="server" ID="LblSubProyectofiltro"></asp:Label>:</span></div>
-                        <div class="col-md-1">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                        <asp:Label runat="server" class="col-md-1" ID="LblProyecto"></asp:Label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlProyecto" runat="server" CssClass="select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%" AutoPostBack="true">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+                        <asp:Label runat="server" class="col-md-1" ID="LblSubProyectofiltro"></asp:Label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
                        </div>
                        <div class="col-md-1" style="margin-left:20px"><span>Comprobación:</span></div>
                        <div class="col-md-1">
@@ -230,14 +237,7 @@
                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
-                        <div class="col-md-1" style="margin-left:20px"><span>Aplica NC:</span></div>
-                        <div class="col-md-1">
-                            <asp:DropDownList ID="DdlAplicaNC" runat="server" CssClass="select2me" AppendDataBoundItems="true" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
+                        
                        

                    </div>
@@ -246,7 +246,14 @@
                        <div class="col-md-1">
                           <asp:DropDownList ID="Ddlmoneda" runat="server" AppendDataBoundItems="true"   CssClass="select2me" DataTextField="Moneda" DataValueField="CveMoneda" Width="100%"  ></asp:DropDownList>                                
                        </div>
-
+                        <div class="col-md-1" style="margin-left:20px"><span>Aplica NC:</span></div>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlAplicaNC" runat="server" CssClass="select2me" AppendDataBoundItems="true" Width="100%">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                    </div>
                </div>
            </div>
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -267,12 +267,16 @@ Partial Class RepCxPDetalle
        DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro)


-        Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
+        Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
+        'DdlSubProyecto.SelectedValueExist(CveSucursal)
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro)
        DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
-        DdlSubProyecto.SelectedValueExist(CveSucursal)
-        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro)
+        'CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro)

        Dim TipoMoneda As Integer = IfNull(Request("TipoMoneda"), 1).ToString.ToEntero
        RblTipoCambio.SelectedValue = TipoMoneda.ToString
@@ -344,6 +348,14 @@ Partial Class RepCxPDetalle
        Next


+    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, CveEstatus:=1)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        UPFiltros.Update()
    End Sub

    Private Function CargaCuentasContables(DT As DataTable) As DataTable
--- a/Empresas/140/Formatos/Salidas.rdlc
+++ b/Empresas/140/Formatos/Salidas.rdlc
@@ -768,7 +768,7 @@
          <Top>0.22328cm</Top>
          <Left>13.63291cm</Left>
          <Height>0.89103cm</Height>
-          <Width>4.09693cm</Width>
+          <Width>3.51794cm</Width>
          <ZIndex>5</ZIndex>
          <Style>
            <Border>
@@ -802,9 +802,9 @@
          </Paragraphs>
          <rd:DefaultName>Textbox31</rd:DefaultName>
          <Top>0.1905cm</Top>
-          <Left>17.72984cm</Left>
+          <Left>17.15085cm</Left>
          <Height>0.9263cm</Height>
-          <Width>2.57165cm</Width>
+          <Width>3.15064cm</Width>
          <ZIndex>6</ZIndex>
          <Style>
            <Border>
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1703,7 +1703,7 @@ Partial Class General_SaldosIniciales
                        If TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                            GuardaLog(Serie & "-" & Folio)
                            If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
-                                               0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
+                                               0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, 0, CvePrePoliza,
                                              UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
                                              CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
                                              ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal, PedidoContrato:=PedidoContrato) Then
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2356,6 +2356,11 @@ Partial Class OC_OC
    Private Function ValidaGuardar() As Boolean
        Dim TieneError = False

+        If CboE.SelectedValue.ToEntero = 0 AndAlso TipoOC = "OC" Then
+            Alert("Las ordenes de compra no puede tener el estatus 'Pre Solicitud'. Debe ser una requisición", TipoMensaje.MsgAdvertencia)
+            Return True
+        End If
+
        'Entrega Directa requiere Cliente y Vendedor
        If ChkEntregaDirecta.Checked And Ddlcliente.txtValue.Value.ToEntero <= 0 Then
            Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -348,6 +348,7 @@
                                <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                                <asp:BoundField DataField="Total" DataFormatString="{0:N2}" HeaderText="Total" ItemStyle-HorizontalAlign="Right" />
                                <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
+                                <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />
                            </Columns>
                        </asp:GridView>

@@ -385,6 +386,7 @@
                                <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                                <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" />
                                <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
+                                <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />
                            </Columns>
                        </asp:GridView>
                    </ContentTemplate>
@@ -424,6 +426,7 @@
                    <asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
                    <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" />
                    <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
+                    <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />
                </Columns>
            </asp:GridView>

--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -22,7 +22,7 @@ Partial Class RepOC
        Set(value As DataTable)
            ViewState("DtPorAtender") = value
        End Set
-    End Property
+    End Property
    Private Property DtPendiente As DataTable
        Get
            Return DirectCast(ViewState("DtPendiente"), DataTable)
@@ -30,9 +30,9 @@ Partial Class RepOC
        Set(value As DataTable)
            ViewState("DtPendiente") = value
        End Set
-    End Property
+    End Property
 #End Region
-
+
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            txtFechaI.Text = Now.AddMonths(-3).ToShortDateString
@@ -108,12 +108,12 @@ Partial Class RepOC
    Protected Sub CargaUsuarios()
        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", {"CveUsuario", "Nombre"})
        ddlUsuario.DataBind()
-        ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
-
+        ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
+
        DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre", {"CveUsuario", "Nombre"})
        DdlUsuarioAsignado.DataBind()
-        DdlUsuarioAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
-
+        DdlUsuarioAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
+
        DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", {"CveUsuario", "Nombre"})
        DdlUsuarioAutorizo.DataBind()
        DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -137,7 +137,7 @@ Partial Class RepOC

    End Sub
    Protected Sub CargaEstatus()
-        DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (Tipo = '{0}' OR '{0}' = '-1')", DdlTipo.SelectedValue.ToString))
+        DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (Tipo = '{0}' OR '{0}' = '-1')", DdlTipo.SelectedValue.ToString))
        DdlEstatus.DataBind()
        If DdlTipo.SelectedValue = "-1" Or DdlTipo.SelectedValue = "REQ" Then DdlEstatus.Items.Insert(0, New ListItem("Pre Requisicion", "0"))
        DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -205,34 +205,64 @@ Partial Class RepOC

        Dim OC As New ClsOC
        If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 0, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
-                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                                   CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then

            DtPorAtender = OC.DtResultados
            GvPorAtender.DataSource = DtPorAtender 'OC.DtResultados
            GvPorAtender.DataBind()

-            'If (GvPorAtender.Rows.Count > 0) Then
-            '    GvPorAtender.UseAccessibleHeader = True
-            '    GvPorAtender.HeaderRow.TableSection = TableRowSection.TableHeader
-            '    RegistraScript("AddScrollGvPorAtender();")
-            'End If
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
+                GvPorAtender.Columns(10).Visible = False
+            End If

+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
+                GvPorAtender.Columns(12).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
+                GvPorAtender.Columns(13).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
+                GvPorAtender.Columns(15).Visible = False
+            End If
        End If

        If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 1, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
-                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                                   CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
            GvPendientes.DataSource = OC.DtResultados
-            DtPendiente = OC.DtResultados
+            DtPendiente = OC.DtResultados
            GvPendientes.DataBind()
-            'If (GvPendientes.Rows.Count > 0) Then
-            '    GvPendientes.UseAccessibleHeader = True
-            '    GvPendientes.HeaderRow.TableSection = TableRowSection.TableHeader
-            '    RegistraScript("AddScrollGvPendientes();")
-            'End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
+                GvPendientes.Columns(10).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
+                GvPendientes.Columns(12).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
+                GvPendientes.Columns(13).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
+                GvPendientes.Columns(15).Visible = False
+            End If
+
        End If
        OC.Dispose()
+
    End Sub
    Protected Sub GVPendientes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPendientes.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
@@ -337,19 +367,39 @@ Partial Class RepOC
        Dim OC As New ClsOC
        If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
                        DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
-                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
-                        ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
+                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
+                        ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then

            GvConsultar.DataSource = OC.DtResultados
-            DtOC = OC.DtResultados
-            DtPorAtender = OC.DtResultados
+            DtOC = OC.DtResultados
+            DtPorAtender = OC.DtResultados
            LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero

            If UsuarioActual.TienePermisoProceso(227) Then
                DivTotalOC.Visible = True
            End If

+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
+                GvConsultar.Columns(10).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
+                GvConsultar.Columns(12).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
+                GvConsultar.Columns(13).Visible = False
+            End If
+
+            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
+            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
+                GvConsultar.Columns(15).Visible = False
+            End If
+
        End If
        OC.Dispose()
        GvConsultar.DataBind()
@@ -382,7 +432,7 @@ Partial Class RepOC
                Case "2" 'Rechazada
                    e.Row.Cells(7).CssClass = "label label-sm label-danger" 'Rojo
                Case "3" 'Solicitada
-                    e.Row.Cells(7).CssClass = "label label-sm label-Default" 'Gris
+                    e.Row.Cells(7).CssClass = "label label-sm label-default" 'Gris
            End Select

            If e.Row.DBCampo("Tipo") = "OC" Then
@@ -497,11 +547,11 @@ Partial Class RepOC
        'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
        ImprimirPendientes("EXCEL")
    End Sub
-    Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click
-        ImprimirPendientes("PDF")
+    Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click
+        ImprimirPendientes("PDF")
    End Sub

-    Private Sub ImprimirPendientes(format As String)
+    Private Sub ImprimirPendientes(format As String)
        If UsuarioActual.CveEmpresa.Contiene(72) Then
            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -514,7 +564,7 @@ Partial Class RepOC
            ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtPendiente, params, Formato:=format)
        Else
            GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
-        End If
+        End If
    End Sub
    Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click
        If UsuarioActual.CveEmpresa.Contiene(72) Then
--- a/OC/RepRequisiciones.aspx
+++ b/OC/RepRequisiciones.aspx
@@ -240,6 +240,7 @@
                                <asp:Literal Text='<%# Eval("Proveedor").ToString %>'  runat="server"></asp:Literal>
                            </ItemTemplate>
                        </asp:TemplateField>
+                        <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />

                       

--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -99,6 +99,7 @@ Partial Class Ventas_RepProductosServicios
        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
        DdlGrupo.Items.Insert(18, New ListItem("Marca", "24"))
        DdlGrupo.Items.Insert(18, New ListItem("Cliente Sucursal", "26"))
+        DdlGrupo.Items.Insert(18, New ListItem("Giro", "27"))

        DdlGrupo.DataBind()
        DdlGrupo.SelectedValueExist("8")
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -263,6 +263,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
        DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
        DdlClienteClasificacion.DataBind()
        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClienteClasificacion.Items.Insert(0, New ListItem("Sin Giro", "-2"))

        If UsuarioActual.CveEmpresa.Contiene(141) Then
            DivDdlTipo.Visible = True
@@ -363,7 +364,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
        TipoDocto = If(Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").ToString() <> "-1", Request("TipoDocto").ToString(), "-1").ToString
        TipoCambio = If(Request("TipoCambio") IsNot Nothing AndAlso Request("TipoCambio").ToEntero() <> -1, Request("TipoCambio").ToEntero(), 1).ToEntero
        TCEspecifico = If(Request("TCEspecifico") IsNot Nothing AndAlso Request("TCEspecifico").ToDouble() <> 0, Request("TCEspecifico").ToDouble(), 0).ToString.ToDouble
-        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing AndAlso Request("CveClienteClasificacion").ToEntero() > 0, Request("CveClienteClasificacion").ToEntero(), -1).ToString
+        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToEntero(), -1).ToString
        CveProveedorCompra = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra").ToEntero() > 0, Request("CveProveedorCompra").ToEntero(), -1).ToString.ToEntero
        CveMarca = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca").ToEntero() > 0, Request("CveMarca").ToEntero(), -1).ToString.ToEntero
        CveClasificacionDetalle = If(Request("CveClasificacionDetalle") IsNot Nothing AndAlso Request("CveClasificacionDetalle").ToEntero() > 0, Request("CveClasificacionDetalle").ToEntero(), -1).ToString.ToEntero
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -140,7 +140,7 @@ Partial Class RepVentaDetalle
        'Dim CveSubProyecto As Integer
        Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
        CveCliente = If(Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToEntero() > 0, Request("CveCliente").ToEntero(), -1).ToString
-        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing AndAlso Request("CveClienteClasificacion").ToEntero() > 0, Request("CveClienteClasificacion").ToEntero(), -1).ToString
+        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToEntero(), -1).ToString
        CveSucursal = If(Request("CveSucursal") IsNot Nothing AndAlso Request("CveSucursal").ToEntero() > 0, Request("CveSucursal").ToEntero(), -1).ToString
        CveSubProyectoEjecucion = If(Request("CveSubProyectoEjecucion") IsNot Nothing AndAlso Request("CveSubProyectoEjecucion").ToEntero() > 0, Request("CveSubProyectoEjecucion").ToEntero(), -1).ToString

@@ -406,7 +406,8 @@ Partial Class RepVentaDetalle
        'Carga Clasificacion Cliente
        DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
        DdlClienteClasificacion.DataBind()
-        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClienteClasificacion.Items.Insert(0, New ListItem("Sin Giro", "-2"))


        DdlTipoRelacion.DataSource = GlobalDTVtaTiposRelacion
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -328,7 +328,7 @@


                        <asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label>
-                        <div class="col-md-2" runat="server"   id="DVServicioDomicilio">
+                        <div class="col-md-2" runat="server" id="DVServicioDomicilio" Visible="false">
                            <asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
                                <asp:ListItem   Value ="-1">Todos</asp:ListItem>
                                <asp:ListItem   Value="1">Si</asp:ListItem>
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -156,7 +156,8 @@ Partial Class Ventas_RepVentas
        DdlGrupo.Items.Insert(12, New ListItem("Año/Mes Ejec.", "13"))
        DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14"))
        DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20"))
-        DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21"))
+        DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21"))
+        DdlGrupo.Items.Insert(13, New ListItem("Giro", "22"))
        DdlGrupo.DataBind()
        DdlGrupo.SelectedValueExist("3")
    End Sub
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -7616,53 +7616,32 @@
                            </div>
                        </div>
                    </div>
-
-
-
                    <div class="modal-body">
-
-
-
-
-
-
                        <div class="row" style="padding-left: 16px;">
-                            <div class="form-group form-md-line-input input-iconright col-xs-9">
-                                <asp:TextBox ID="TxtRFCCliente" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
-                                <asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
-                                <label for="<%= TxtRFCCliente.ClientID.ToString()%>">RFC:</label>
+                            <div class="col-md-8">
+                                <div class="row">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-9">
+                                        <asp:TextBox ID="TxtRFCCliente" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                        <asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtRFCCliente.ClientID.ToString()%>">RFC:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-3">
+                                        <asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" />
+                                    </div>
+                                </div>
                            </div>
-                            <div class="form-group form-md-line-input input-iconright col-xs-3">
-                                <asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" />
-                            </div>
-                        </div>
-
-                        <div class="row">
-                            <div class="col-md-12">
-
-
+                            <div class="col-md-4">
                                <div runat="server" id="DivTipoPersona" visible="false" class="form-group form-md-line-input input-iconright">
-
                                    <asp:RadioButtonList runat="server" ID="RdTipoPersona" RepeatDirection="Horizontal" OnSelectedIndexChanged="RdTipoPersona_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control">
                                        <asp:ListItem Value="0">Física</asp:ListItem>
                                        <asp:ListItem Value="1">Moral</asp:ListItem>
                                    </asp:RadioButtonList>
-
                                    <label for="<%= RdTipoPersona.ClientID.ToString()%>">Tipo Persona:</label>
                                    <i></i>
                                </div>
-
                            </div>

                        </div>
-
-
-                        <%--<div id="DivNombreCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtNombreCliente" CssClass="form-control " runat="server" MaxLength="150" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVNombreCliente" runat="server" ControlToValidate="TxtNombreCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtNombreCliente.ClientID.ToString()%>">Razón Social:</label>
-                                </div>--%>
-
                        <div class="row">
                            <div class="col-md-12" runat="server" id="DivRazonSocial2">
                                <div id="DivNombreCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
@@ -7701,12 +7680,30 @@
                                <label for="<%= TxtNumIntCliente.ClientID.ToString()%>">Número Interior:</label>
                            </div>
                        </div>
-                        <div id="DivColoniaTelefonoCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
-                            <div class="form-group form-md-line-input input-iconright col-xs-6">
+                        <div id="DivCiudadLocalidadCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                            <div class="form-group form-md-line-input input-iconright col-xs-4">
                                <asp:TextBox ID="TxtColoniaCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
                                <asp:RequiredFieldValidator ID="RFVColoniaC" runat="server" ControlToValidate="TxtColoniaCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                <label for="<%= TxtColoniaCliente.ClientID.ToString()%>">Colonia:</label>
                            </div>
+                            <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                <asp:TextBox ID="TxtCiudadCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RFVCiudadC" runat="server" ControlToValidate="TxtCiudadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                <label for="<%= TxtCiudadCliente.ClientID.ToString()%>">Ciudad:</label>
+                            </div>
+                            <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                <asp:TextBox ID="TxtLocalidadCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RFVLocalidadC" runat="server" ControlToValidate="TxtLocalidadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                <label for="<%= TxtLocalidadCliente.ClientID.ToString()%>">Localidad:</label>
+                            </div>
+                        </div>
+                        <div id="DivCorreoCuentaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                            <div class="form-group form-md-line-input input-iconright  col-xs-6">
+                                <asp:TextBox ID="TxtCorreoCliente" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                <asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoCliente" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarCliente"></asp:RegularExpressionValidator>
+                                <label for="<%= TxtCorreoCliente.ClientID.ToString()%>">Email: </label>
+                                <i></i>
+                            </div>
                            <div class="form-group form-md-line-input input-iconright col-xs-6">
                                <asp:TextBox ID="TxtTelefonoCliente" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
                                <asp:RequiredFieldValidator ID="RFVTelefonoCliente" runat="server" ControlToValidate="TxtTelefonoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
@@ -7714,18 +7711,6 @@
                                <label for="<%= TxtTelefonoCliente.ClientID.ToString()%>">Teléfono:</label>
                            </div>
                        </div>
-                        <div id="DivCiudadLocalidadCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
-                            <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                <asp:TextBox ID="TxtCiudadCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                <asp:RequiredFieldValidator ID="RFVCiudadC" runat="server" ControlToValidate="TxtCiudadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
-                                <label for="<%= TxtCiudadCliente.ClientID.ToString()%>">Ciudad:</label>
-                            </div>
-                            <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                <asp:TextBox ID="TxtLocalidadCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                <asp:RequiredFieldValidator ID="RFVLocalidadC" runat="server" ControlToValidate="TxtLocalidadCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
-                                <label for="<%= TxtLocalidadCliente.ClientID.ToString()%>">Localidad:</label>
-                            </div>
-                        </div>
                        <div id="DivEstadoPaisCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">

                            <div class="form-group form-md-line-input input-iconright col-xs-6">
@@ -7747,26 +7732,16 @@
                                <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>
                            </div>
                        </div>
-                        <div id="DivCorreoCuentaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
-                            <div class="form-group form-md-line-input input-iconright  col-xs-6">
-                                <asp:TextBox ID="TxtCorreoCliente" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
-                                <asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoCliente" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarCliente"></asp:RegularExpressionValidator>
-                                <label for="<%= TxtCorreoCliente.ClientID.ToString()%>">Email: </label>
-                                <i></i>
-                            </div>
-                            <div class="form-group form-md-line-input input-iconright  col-xs-6">
-                            </div>
-                        </div>
                        <div id="DivFormaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
                            <div class="form-group form-md-line-input input-iconright  col-xs-6">
-                                <asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" Width="200px">
+                                <asp:DropDownList ID="DdlMetodoCliente" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" Width="100%">
                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                </asp:DropDownList>
                                <asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                <label for="<%= DdlMetodoCliente.ClientID.ToString()%>">Método Pago:</label>
                            </div>
                            <div class="form-group form-md-line-input input-iconright  col-xs-6">
-                                <asp:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="200px">
+                                <asp:DropDownList ID="DdlFormaCliente" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FormaPagoSAT" DataValueField="CveFormaPago" Width="100%">
                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                </asp:DropDownList>
                                <asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server" ControlToValidate="DdlMetodoCliente" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Forma Pago''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
@@ -7774,12 +7749,25 @@
                                <i></i>
                            </div>
                        </div>
+                        <div class="row" id="divRegimenCliente" runat="server" visible="false" style="padding-left: 16px;">
+                            <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                <asp:DropDownList ID="DdlRegimenFiscalCliente" AutoPostBack="true" OnSelectedIndexChanged="DdlRegimenFiscalCliente_SelectedIndexChanged" DataTextField="CodigoRegimenFiscalTexto" Width="100%" DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVRegimenFiscal" runat="server" InitialValue="-1" ControlToValidate="DdlRegimenFiscalCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                <label for="<%= DdlRegimenFiscalCliente.ClientID.ToString()%>">Régimen Fiscal:</label>
+                                <i></i>
+                            </div>
+                            <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                <asp:DropDownList ID="DdlUsoCFDICliente" Width="100%" DataTextField="UsoCFDIDescripcion" DataValueField="CveUsoCFDI" runat="server" CssClass="form-control input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator22" runat="server" InitialValue="-1" ControlToValidate="DdlUsoCFDICliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Uso CFDi''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                <label for="<%= DdlUsoCFDICliente.ClientID.ToString()%>">Uso CFDi:</label>
+                                <i></i>
+                            </div>
+                        </div>
                    </div>
-
-
-
-
-
                    <div id="DivBotonesAgregarCliente" runat="server" visible="false" class="modal-footer">
                        <asp:Button ID="BtnAgregarCliente" runat="server" CssClass="btn btn-primary" Text="Agregar" ValidationGroup="GrpGuardarCliente" />
                        <button id="BtnCancelarCliente" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2315,6 +2315,7 @@ Partial Class Ventas

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

+
        If Not IsPostBack Then

            If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then
@@ -3166,6 +3167,10 @@ Partial Class Ventas
            BrSubProyecto.Visible = DdlProyecto.Visible
            divProyectoPyME.Visible = DdlProyecto.Visible

+            If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
+                LnkAddVenta.Visible = True
+            End If
+
            'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta <= 0 Then
                ImgOtrosConceptos.Visible = False
@@ -7686,33 +7691,36 @@ Partial Class Ventas
                    e.Row.FCTextBox("TxtDescuento").Enabled = False
                End If

-                'Si es una devolucion
-                If NuevaFactura = 0 Then
-                    e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
-                    e.Row.FCDropDownList("DdlClasificacion").Enabled = False
-                    e.Row.FCDropDownLost("DdlPS").Enabled = False
-                    e.Row.FCDropDownList("DdlProyecto").Enabled = False
-                    e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
-                    e.Row.FCTextBox("TxtPrecio").Enabled = False
-                ElseIf NuevaFactura = 1 Or CveContrato > 0 Then
-                    e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
-                    e.Row.FCDropDownList("DdlClasificacion").Enabled = False
-                    e.Row.FCDropDownLost("DdlPS").Enabled = False
-                    e.Row.FCTextBox("TxtCantidad").Enabled = False
-                    e.Row.FCTextBox("TxtPrecio").Enabled = False
-                    e.Row.FCTextBox("TxtDescuento").Enabled = False

-                    If TieneAlmacen Then e.Row.FCLinkButton("imgD").Visible = False
+                If Not EsCreaApartirDe Then
+                    'Si es una devolucion
+                    If NuevaFactura = 0 Then
+                        e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
+                        e.Row.FCDropDownList("DdlClasificacion").Enabled = False
+                        e.Row.FCDropDownLost("DdlPS").Enabled = False
+                        e.Row.FCDropDownList("DdlProyecto").Enabled = False
+                        e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
+                        e.Row.FCTextBox("TxtPrecio").Enabled = False
+                    ElseIf NuevaFactura = 1 Or CveContrato > 0 Then
+                        e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
+                        e.Row.FCDropDownList("DdlClasificacion").Enabled = False
+                        e.Row.FCDropDownLost("DdlPS").Enabled = False
+                        e.Row.FCTextBox("TxtCantidad").Enabled = False
+                        e.Row.FCTextBox("TxtPrecio").Enabled = False
+                        e.Row.FCTextBox("TxtDescuento").Enabled = False
+
+                        If TieneAlmacen Then e.Row.FCLinkButton("imgD").Visible = False
+
+                        If UsuarioActual.TienePermisoProceso(222) Then
+                            e.Row.FCDropDownList("DdlUnidadMedida").Enabled = True
+                            e.Row.FCDropDownList("DdlClasificacion").Enabled = True
+                            e.Row.FCDropDownLost("DdlPS").Enabled = True
+                            e.Row.FCTextBox("TxtCantidad").Enabled = True
+                            e.Row.FCTextBox("TxtPrecio").Enabled = True
+                            e.Row.FCTextBox("TxtDescuento").Enabled = True
+                        End If

-                    If UsuarioActual.TienePermisoProceso(222) Then
-                        e.Row.FCDropDownList("DdlUnidadMedida").Enabled = True
-                        e.Row.FCDropDownList("DdlClasificacion").Enabled = True
-                        e.Row.FCDropDownLost("DdlPS").Enabled = True
-                        e.Row.FCTextBox("TxtCantidad").Enabled = True
-                        e.Row.FCTextBox("TxtPrecio").Enabled = True
-                        e.Row.FCTextBox("TxtDescuento").Enabled = True
                    End If
-
                End If

                'Si es facturacion de OC o Contrato
@@ -14867,7 +14875,7 @@ Partial Class Ventas
                    Next
                End If

-                If factura.TipoDocto.Contiene("Ing", "Dev") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+                If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Dev") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then

                    Dim Filtro As String = ""
                    Select Case factura.TipoDocto
@@ -15048,6 +15056,73 @@ Partial Class Ventas

                End If

+                If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Rem") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+
+                    Dim DebeGenerarMovimiento As Boolean = TmpDTDetalle.COUNT("CvePS", "CveTipoPS = 2") > 0
+
+                    If DebeGenerarMovimiento Then
+
+                        Dim CveAlmacenSalida As Integer = ddlAlmacen.SelectedValue.ToEntero()
+                        Dim CveAlmacenExA As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={DdlSubProyecto.SelectedValue}").ToEntero()
+
+                        Dim CveRemision As Integer = factura.CveVenta
+                        Dim CveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero()
+
+                        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("CveUM", GetType(Integer)))
+                        MovDetalle.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+                        MovDetalle.Columns.Add(New DataColumn("PU", GetType(Decimal)))
+                        MovDetalle.Columns.Add(New DataColumn("Serie", GetType(String)))
+                        MovDetalle.Columns.Add(New DataColumn("Lote", GetType(String)))
+                        MovDetalle.Columns.Add(New DataColumn("FechaCaducidad", GetType(DateTime)))
+                        MovDetalle.Columns.Add(New DataColumn("CveVentaDetalle", GetType(Integer)))
+
+                        For Each RowPS As DataRow In DtProductos.Rows
+                            Dim RowInv = MovDetalle.NewRow
+
+                            RowInv("Cantidad") = RowPS("Cantidad").ToString().ToDecimal()
+                            RowInv("CveUM") = RowPS("CveUM").ToString().ToEntero()
+                            RowInv("CvePS") = RowPS("CvePS").ToString().ToEntero()
+                            RowInv("PU") = 0
+                            RowInv("Serie") = ""
+                            RowInv("Lote") = ""
+                            RowInv("FechaCaducidad") = MinFecha
+                            RowInv("CveVentaDetalle") = RowPS("CveVentaDetalle").ToString().ToEntero()
+
+                            MovDetalle.Rows.Add(RowInv)
+                        Next
+
+                        'Le damos salida de apartado por traspaso
+                        Dim CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta, CveAlmacenDestino:=CveAlmacenExA)
+
+                        If Not CveMovimientoSalidaPorTraspaso > 0 Then
+                            OcurrioError = True
+                        End If
+
+                        '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
+                            End If
+                        End If
+
+                        'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
+                        If Not OcurrioError AndAlso DebeGenerarMovimiento 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
+
+                    End If
+
+                End If
+
            End If

        Catch ex As Exception
@@ -19762,7 +19837,7 @@ Partial Class Ventas
                                                If TieneMovimientosContrato Then
                                                    MovDetalle = CuadrarFacturaMovimientos(ObjVentas, CveRemision, DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}"))
                                                Else
-                                                    MovDetalle = CuadrarFacturaMovimientos(ObjVentas, CveRemision, DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND (TieneSalidaxFactura IS NULL OR SaldoAlmacen > 0)"))
+                                                    MovDetalle = CuadrarFacturaMovimientos(ObjVentas, CveRemision, DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND (SaldoAlmacen > 0 AND CantidadDisponible > 0)"))
                                                End If

                                            End If
@@ -19977,7 +20052,8 @@ Partial Class Ventas
        Return Not OcurrioError
    End Function
    Private Function GenerarMovimientoAlmacen(ByRef ObjInventario As ClsInventarios, DtMovDetalle As DataTable, CveAlmacen As Integer, ConceptoEntrada As Integer, CveMoneda As Integer, CveVenta As Integer, Optional MovimientoPrePoliza As Boolean = True,
-                                              Optional ByRef ObjConta As ClsContabilidad = Nothing, Optional CveMovimientoRelacionado As Integer = -1, Optional AplicaMovimientoDetalleEntrada As Boolean = False, Optional ObjContPaq As ClsContPAQi = Nothing) As Integer
+                                              Optional ByRef ObjConta As ClsContabilidad = Nothing, Optional CveMovimientoRelacionado As Integer = -1, Optional AplicaMovimientoDetalleEntrada As Boolean = False, Optional ObjContPaq As ClsContPAQi = Nothing,
+                                              Optional CveAlmacenDestino As Integer = -1) As Integer
        Dim OcurrioError As Boolean = False
        Dim ContadorMovtosDetalles = 0

@@ -19990,7 +20066,7 @@ Partial Class Ventas
        'Creamos el movimiento

        Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
-                                                                             CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Vta/E4")
+                                                                             CveMovimientoRelacionado:=CveMovimientoRelacionado, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Vta/E4")

        If CveMovimientoInventario > 0 Then

@@ -21391,9 +21467,14 @@ Partial Class Ventas
        'REGENERAR EL PDF
        If Not OcurrioError Then
            Try
+                Dim CveEmpresaPDF As Integer = UsuarioActual.CveEmpresa
+                Dim CveUsuarioPDF As Integer = UsuarioActual.CveUsuario
+
                Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-                Dim Hilo As New System.Threading.Thread(Sub() RegenerarPDF(CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, strURLHOST))
-                Hilo.Start()
+                RegenerarPDF(CveVenta, CveEmpresaPDF, CveUsuarioPDF, strURLHOST)
+                '
+                'Dim Hilo As New System.Threading.Thread(Sub() )
+                'Hilo.Start()
            Catch ex As Exception
                OnError("Ocurrió un error al regenerar el PDF", ex)
            End Try
@@ -22408,12 +22489,13 @@ Partial Class Ventas
        DivDireccionCliente.Visible = False

        DivNumeroCPCliente.Visible = False
-        DivColoniaTelefonoCliente.Visible = False
+        'DivColoniaTelefonoCliente.Visible = False
        DivCiudadLocalidadCliente.Visible = False
        DivEstadoPaisCliente.Visible = False
        DivCorreoCuentaCliente.Visible = False
        DivBotonesAgregarCliente.Visible = False
        DivFormaCliente.Visible = False
+        divRegimenCliente.Visible = False
        UpAgregarCliente.Update()
        CargaEstados()

@@ -22427,7 +22509,7 @@ Partial Class Ventas
            DivTipoPersona.Visible = True
            DivDireccionCliente.Visible = True
            DivNumeroCPCliente.Visible = True
-            DivColoniaTelefonoCliente.Visible = True
+            'DivColoniaTelefonoCliente.Visible = True
            DivCiudadLocalidadCliente.Visible = True
            DivEstadoPaisCliente.Visible = True
            DivCorreoCuentaCliente.Visible = True
@@ -22440,9 +22522,16 @@ Partial Class Ventas
            RFVCiudadC.Visible = False
            RFVLocalidadC.Visible = False
            RFVSATPais.Visible = False
+            divRegimenCliente.Visible = UsuarioActual.Empresa.Funcionalidad(350) = "1"
+
+            RdTipoPersona.SelectedValue = "0"

            DdlMetodoCliente.SelectedValueExist(1)
            DdlFormaCliente.SelectedValueExist(1)
+
+            DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
+            DdlRegimenFiscalCliente.DataBind()
+            CargaComboCFDICliente()
        Else
            Dim ObjCliente As New ClsClientes
            If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
@@ -22457,12 +22546,13 @@ Partial Class Ventas
                    DivTipoPersona.Visible = True
                    DivDireccionCliente.Visible = True
                    DivNumeroCPCliente.Visible = True
-                    DivColoniaTelefonoCliente.Visible = True
+                    'DivColoniaTelefonoCliente.Visible = True
                    DivCiudadLocalidadCliente.Visible = True
                    DivEstadoPaisCliente.Visible = True
                    DivCorreoCuentaCliente.Visible = True
                    DivBotonesAgregarCliente.Visible = True
                    DivFormaCliente.Visible = True
+                    divRegimenCliente.Visible = UsuarioActual.Empresa.Funcionalidad(350) = "1"
                End If
            End If
            ObjCliente.Dispose()
@@ -22477,12 +22567,54 @@ Partial Class Ventas
            DdlMetodoCliente.SelectedValueExist(-1)
            DdlFormaCliente.SelectedValueExist(-1)

+            DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales()
+            DdlRegimenFiscalCliente.DataBind()
+            CargaComboCFDICliente()
+
        End If

    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)
+            Else
+                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+            End If
+
+            DdlUsoCFDICliente.DataBind()
+            DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
+
+        UpAgregarCliente.Update()
+    End Sub
+
+    Protected Sub DdlRegimenFiscalCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaComboCFDICliente()
+    End Sub
+
    Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
        Dim CvePrecioLista As Integer = -1
+        Dim CveRegimenFiscal As Integer = -1
+        Dim CveUsoCFDI As Integer = 3
+
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            CveRegimenFiscal = DdlRegimenFiscalCliente.SelectedValue.ToEntero()
+            CveUsoCFDI = DdlUsoCFDICliente.SelectedValue.ToEntero()
+        End If
+
        If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
            If Dr IsNot Nothing Then
@@ -22500,7 +22632,7 @@ Partial Class Ventas
                                                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) Then
+                                                RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, CveRegimenFiscal:=CveRegimenFiscal, CveUsoCFDI:=CveUsoCFDI) Then

            If ObjCliente.DtResultados.Rows.Count > 0 Then
                RegistraScript("hideDivEC();")
@@ -22672,6 +22804,10 @@ Partial Class Ventas
                LBAplicaDevolucion.Visible = False
            End If

+            If DdlTipoComprobante.SelectedValue = "Dev" AndAlso VentaSaldoAlmacen <> 0 Then
+                LiDevolucionAlmacen.Visible = False
+            End If
+
        End If

        UpnTools.Update()
@@ -30820,25 +30956,6 @@ Partial Class Ventas
                Exit Sub
            End If

-            'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS')
-            'If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then
-            '    Dim SbRem As New StringBuilder
-            '    SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>")
-
-            '    SbRem.Append("<b>Remisiones Surtidas:</b></br>")
-            '    For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows
-            '        SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
-            '    Next
-
-            '    SbRem.Append("<b>Remisiones No Surtidas:</b></br>")
-            '    For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows
-            '        SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
-            '    Next
-
-            '    Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia)
-            '    Exit Sub
-            'End If
-
            DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
            DdlMoneda.Enabled = False
            CambiaMoneda()
@@ -31059,6 +31176,11 @@ Partial Class Ventas
                BtnEmitirImprimir.Visible = False
            End If

+            'SI HAY REMISIONES SURTIDAS, NO GENERAR EL MOVIMIENTO AUTOMATICO
+            If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 Then
+                DivAlmacen.Visible = False
+            End If
+
        End If

        TxtFechaPago.Text = If(EsDiasCreditoFijo, Now.AddDays(DiasCredito).ToShortDateString, TxtFechaPago.Text)
@@ -31069,8 +31191,9 @@ Partial Class Ventas
        UpParametros.Update()
        UPEstimaciones.Update()
        UPCondicionesPago.Update()
-        HuboCambioRemi = Not HuboCambioRemi
+        UpINV.Update()

+        HuboCambioRemi = Not HuboCambioRemi

        RegistraScript("$('#DivRemisiones').modal('hide');", "DivRemisionesHide")
    End Sub
@@ -33414,9 +33537,13 @@ Partial Class Ventas

        'REGENERAR EL PDF
        Try
+            Dim CveEmpresaPDF As Integer = UsuarioActual.CveEmpresa
+            Dim CveUsuarioPDF As Integer = UsuarioActual.CveUsuario
+
            Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
-            Dim Hilo As New System.Threading.Thread(Sub() RegenerarPDF(CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, strURLHOST))
-            Hilo.Start()
+            RegenerarPDF(CveVenta, CveEmpresaPDF, CveUsuarioPDF, strURLHOST)
+            'Dim Hilo As New System.Threading.Thread(Sub() )
+            'Hilo.Start()
        Catch ex As Exception
            OnError("Ocurrió un error al regenerar el PDF", ex)
        End Try
@@ -34380,6 +34507,28 @@ Partial Class Ventas
            DivRazonSocial2.Attributes.Add("class", "col-md-8")
            DVRegimenSociedad.Visible = True

+            If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
+                DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
+                DdlRegimenFiscalCliente.DataBind()
+            Else
+                Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
+                Dim Val As String
+
+                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                    'verifico que sino existe el valor. lo limpie 
+                    Val = dt.FiltroPrimeroValor("CveRegimenFiscal", "CveRegimenFiscal = " & DdlRegimenFiscalCliente.SelectedValue)
+                    If Val = "" Then 'sino encuentra valor, lo limpia
+                        DdlRegimenFiscalCliente.Items.Clear()
+                        DdlRegimenFiscalCliente.SelectedValue = Nothing
+                    End If
+                End If
+
+                DdlRegimenFiscalCliente.DataSource = dt
+                DdlRegimenFiscalCliente.DataBind()
+                DdlRegimenFiscalCliente.SelectedValueExist(Val)
+
+            End If
+
        End If

        UpAgregarCliente.Update()