Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Acumuladores/CatFoliosGarantia.aspx

@@ -247,35 +247,35 @@
                                     <i></i>
                                 </div>
 
-                                <br />
+                                <%--<br />--%>
 
-                                <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
+                                <div class="form-group form-md-line-input input-iconright" >
-                                    <asp:Label runat="server" ID="lblSubProyecto" for="<%= DdlSubProyectos.ClientID.ToString()%>">SubProyecto:</asp:Label>
+                                    <asp:Label runat="server" ID="lblSubProyecto" for="<%= DdlSubProyectos.ClientID.ToString()%>">SubProyecto:</asp:Label></br>
-                                    <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Width="200px" AutoPostBack="true"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Width="50%" AutoPostBack="true"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVProducto2" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectos" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCEProducto2" runat="server" HighlightCssClass="vco" TargetControlID="RFVProducto2" Width="300px"></ajax:ValidatorCalloutExtender>
                                     <i></i>
                                 </div>
 
-                                <br />
+                                <%--<br />--%>
 
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>&nbsp;
+                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label></br>
                                    
                                     <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
                                     <i></i>
                                 </div>
 
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <label for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</label>&nbsp;
+                                    <asp:Label runat="server" ID="LblTipoFolio" for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</asp:Label></br>
-                                    <asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="form-control input-sm select2me" Width="50%" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Value="general" Selected ="True">General</asp:ListItem>
                                         <asp:ListItem Value="optima">Optima</asp:ListItem>
                                         <asp:ListItem Value="motobateria">Motobateria</asp:ListItem>
                                     </asp:DropDownList>
                                     <i></i>
                                 </div>
-                                <br />
+                                <%--<br />--%>
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
@@ -283,8 +283,8 @@
                                     <i></i>
                                 </div>
                                  <div class="form-group form-md-line-input input-iconright">
-                                    <label for="<%= DdlArea.ClientID.ToString()%>">Área:</label>&nbsp;
+                                    <asp:Label runat="server" ID="LblArea" for="<%= DdlArea.ClientID.ToString()%>">Área:</asp:Label></br>
-                                    <asp:DropDownList ID="DdlArea" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlArea" runat="server" CssClass="form-control input-sm select2me" Width="50%" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Value="1" Selected ="True">Piso</asp:ListItem>
                                         <asp:ListItem Value="2">Almacén</asp:ListItem>
                                     </asp:DropDownList>

App_Code/ClsVentas.vb

@@ -341,7 +341,7 @@ Public Class ClsVentas
                              Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
                              Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False) As Boolean
+                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -433,6 +433,7 @@ Public Class ClsVentas
             .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
             .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
             .Add("@FacturarSucursal", SqlDbType.Bit).Value = FacturarSucursal
+            .Add("@VentaDesglosaIEPS", SqlDbType.Bit).Value = VentaDesglosaIEPS
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With

App_Code/Modelos.vb

@@ -6094,6 +6094,8 @@ Namespace Modelos
 
         Public Property CveTipoRetencion As Integer
 
+        Public Property VentaDesglosaIEPS As Boolean
+
 #End Region
 
 

Bancos/FluctuacionCambiaria.aspx.vb

@@ -242,7 +242,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
         Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -274,7 +274,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
 
 
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoCompras.SelectedValue.ToEntero) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Compras", CveConceptoContable, "Fluctuación Compras", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoCompras.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 
@@ -317,7 +317,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Ventas", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
         Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -346,11 +346,12 @@ Partial Class Bancos_FluctuacionCambiaria
             idCta = idCtaPerdida
             TipoMovto = False
         End If
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
-            ErrorRegistrar = True
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
-        End If
+                ErrorRegistrar = True
+            End If
 
-        Dim CveConconceptoCliente As Integer = 203
+            Dim CveConconceptoCliente As Integer = 203
 
         'saco las cuentas de pérdida y ganancia
         For Each gvr As GridViewRow In GvVentas.Rows
@@ -396,7 +397,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Conta.IniciaTransacSQL()
         Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
         ObjContPaq.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Bancaria", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
         Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -447,7 +448,7 @@ Partial Class Bancos_FluctuacionCambiaria
                     Exit For
                 End If
 
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyectoBancos.SelectedValue.ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), ConceptoReferencia, CveConceptoContable, ConceptoReferencia, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyectoBancos.SelectedValue.ToEntero) Then
                     ErrorRegistrar = True
                 End If
             End If
@@ -530,7 +531,7 @@ Partial Class Bancos_FluctuacionCambiaria
                     idCta = idCtaPerdida
                     TipoMovto = False
                 End If
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoDeudores.SelectedValue.ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), ConceptoFluctuacion, CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoDeudores.SelectedValue.ToEntero) Then
                     ErrorRegistrar = True
                 End If
 
@@ -613,7 +614,7 @@ Partial Class Bancos_FluctuacionCambiaria
                     idCta = idCtaPerdida
                     TipoMovto = False
                 End If
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoFiliales.SelectedValue.ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), ConceptoFluctuacion, CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoFiliales.SelectedValue.ToEntero) Then
                     ErrorRegistrar = True
                 End If
 
@@ -669,7 +670,7 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
         Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -699,7 +700,7 @@ Partial Class Bancos_FluctuacionCambiaria
             idCta = idCtaPerdida
             TipoMovto = False
         End If
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Acreedores", CveConceptoContable, "Fluctuación Acreedores", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 

Compras/Compras.aspx.vb

@@ -15051,13 +15051,11 @@ Partial Class Compras_Compras
             End If
 
             'SI PUEDE RECIBIR POR OC Y COMPRA
-            If UsuarioActual.CveEmpresa.Contiene(119) Then
+            ' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre
-                If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
+            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
-                    DivOCVinculaInv.Visible = True
+                DivOCVinculaInv.Visible = True
-                End If
             End If
 
-
             'TIPO CAMBIO
             If CveCompra > 0 Then
                 DivTipoCambioOC.Visible = False

Compras/PopUpVerFactura.aspx.vb

@@ -1238,6 +1238,7 @@ Partial Class PopUpVerFactura
         Dim Observaciones As String = ObjInventarios.Observaciones
         Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud")
         Dim NombreCapturo As String = ObjInventarios.NombreCapturo
+        Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego")
         Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
         Dim Recibio As String = ObjInventarios.Recibio
         Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
@@ -1341,7 +1342,7 @@ Partial Class PopUpVerFactura
                           EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
-                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen)
+                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1358,7 +1359,7 @@ Partial Class PopUpVerFactura
                                   Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
-                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1)
+                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "")
 
 
         Select Case CveConcepto
@@ -2704,7 +2705,7 @@ Partial Class PopUpVerFactura
                     End If
 
                     Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
-                    Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo))
+                    Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))
 
                     params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
@@ -2715,7 +2716,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Descuentos", ""))
                     params.Add(New ReportParameter("IVA", ""))
                     params.Add(New ReportParameter("Total", ""))
-                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    params.Add(New ReportParameter("NombreEntrego", NombreEntrego))
                     params.Add(New ReportParameter("NombreRecibio", Recibio))
                     params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
                     params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
@@ -2727,7 +2728,7 @@ Partial Class PopUpVerFactura
 
                     End If
                     params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
-                    params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
+                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                     params.Add(New ReportParameter("Observaciones", Observaciones))
 
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -732,7 +732,7 @@ Partial Class Inventarios_RecepcionAlmacen
         ObjInventarios.Dispose()
 
         DdlIndirectoFactura.DataBind()
-        DdlIndirectoFactura.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlIndirectoFactura.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
 
@@ -2270,6 +2270,10 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjContaContPAQ As ClsContPAQi = Nothing
 
         'ENTREGA DIRECTA
+
+        Dim MovtosEntradaExA As New List(Of Integer)
+        Dim FoliosEntradaExA As New List(Of Integer)
+
         Dim MovtosSalidaDirecta As New List(Of Integer)
         Dim FoliosSalidaDirecta As New List(Of Integer)
 
@@ -2548,36 +2552,42 @@ Partial Class Inventarios_RecepcionAlmacen
 
                             Dim CveVenta As Integer = DrVenta("CveVenta").ToString().ToEntero()
 
-                            CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1,
+                            Dim ObjFactura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa)
-                                                    CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
-                                                    MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RA/G2")
-                            FolioSalidaDirecta = ObjInventario.Folio
 
-                            If Not CveMovtoSalidaDirecta > 0 Then
+                            Dim DtDetalleMovimiento As DataTable = Dt.FiltraParametros($"CveVenta={ObjFactura.CveVenta}")
-                                ErrorMovInv = True
-                                Exit For
-                            End If
 
-                            If Not ErrorMovInv AndAlso Dt IsNot Nothing Then
+                            If ObjFactura.TipoDocto = "Ing" Then
-                                For Each Dr As DataRow In Dt.FiltraParametros($"CveVenta={CveVenta}").Rows
+                                Dim MovSalida = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 3, ObjFactura.CveVenta, CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, EsContabilizable, "RA/G2")
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaDirecta, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                        ErrorMovInv = True
-                                        Exit For
-                                    End If
-                                Next
-                            End If
 
-                            If Not ErrorMovInv Then
+                                ErrorMovInv = MovSalida.CveMovimiento <= 0
-                                If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, ObjContaContPAQ, EsContabilizable) Then
+
-                                    ErrorMovInv = True
+                                If Not ErrorMovInv Then
-                                    Exit For
+                                    MovtosSalidaDirecta.Add(MovSalida.CveMovimiento)
+                                    FoliosSalidaDirecta.Add(MovSalida.Folio)
                                 End If
+
+                            ElseIf ObjFactura.TipoDocto = "Rem" Then
+                                Dim MovSalidaExA = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 8, ObjFactura.CveVenta, -1, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R1")
+
+                                ErrorMovInv = MovSalidaExA.CveMovimiento <= 0
+
+                                If Not ErrorMovInv Then
+                                    MovtosSalidaDirecta.Add(MovSalidaExA.CveMovimiento)
+                                    FoliosSalidaDirecta.Add(MovSalidaExA.Folio)
+
+                                    Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2")
+
+                                    ErrorMovInv = MovEntradaExA.CveMovimiento <= 0
+
+                                    If Not ErrorMovInv Then
+                                        MovtosEntradaExA.Add(MovEntradaExA.CveMovimiento)
+                                        FoliosEntradaExA.Add(MovEntradaExA.Folio)
+                                    End If
+
+                                End If
+
                             End If
 
-                            If Not ErrorMovInv Then
-                                MovtosSalidaDirecta.Add(CveMovtoSalidaDirecta)
-                                FoliosSalidaDirecta.Add(FolioSalidaDirecta)
-                            End If
                         Next
 
                         If Not ErrorMovInv Then
@@ -3307,6 +3317,14 @@ Partial Class Inventarios_RecepcionAlmacen
             'ENTREGA DIRECTA
             If MovtosSalidaDirecta.Count > 0 Then
                 Msg.AppendFormat("<br/><br/> Movimientos de control:<br/>")
+
+                If MovtosEntradaExA.Count > 0 Then
+                    For index = 0 To MovtosEntradaExA.Count - 1
+                        link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosEntradaExA(index), FoliosEntradaExA(index))
+                        Msg.AppendFormat("<br/>Movimiento de Entrada Folio: <b>{0}</b>", link)
+                    Next
+                End If
+
                 For index = 0 To MovtosSalidaDirecta.Count - 1
                     link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosSalidaDirecta(index), FoliosSalidaDirecta(index))
                     Msg.AppendFormat("<br/>Movimiento de Salida Folio: <b>{0}</b>", link)
@@ -3355,6 +3373,45 @@ Partial Class Inventarios_RecepcionAlmacen
         If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
         If ObjContaContPAQ IsNot Nothing Then ObjContaContPAQ.Dispose()
     End Sub
+
+    Private Function GenerarMovimientoAlmacenVenta(CveAlmacen As Integer, CveConceptoAlmacen As Integer, CveVenta As Integer, CveMovimientoRelacionado As Integer, DtDetalle As DataTable, ObjInventario As ClsInventarios, ObjConta As ClsContabilidad, ObjContaContPAQ As ClsContPAQi, EsContabilizable As Boolean, Modulo As String) As MMovimientoAlmacen
+        Dim ErrorMovInv As Boolean = False
+        Dim Retorno As New MMovimientoAlmacen
+
+        Dim CveMovtoSalidaDirecta As Integer = -1
+        Dim FolioSalidaDirecta As Integer = -1
+
+        CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1,
+                                CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
+                                MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimientoRelacionado, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:=Modulo)
+        FolioSalidaDirecta = ObjInventario.Folio
+
+        If Not CveMovtoSalidaDirecta > 0 Then
+            ErrorMovInv = True
+        End If
+
+        If Not ErrorMovInv AndAlso DtDetalle IsNot Nothing Then
+            For Each Dr As DataRow In DtDetalle.Rows
+                If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaDirecta, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                    ErrorMovInv = True
+                    Exit For
+                End If
+            Next
+        End If
+
+        If Not ErrorMovInv AndAlso CveConceptoAlmacen = 3 Then
+            If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, ObjContaContPAQ, EsContabilizable) Then
+                ErrorMovInv = True
+            End If
+        End If
+
+        If Not ErrorMovInv Then
+            Retorno.CveMovimiento = CveMovtoSalidaDirecta
+            Retorno.Folio = FolioSalidaDirecta
+        End If
+
+        Return Retorno
+    End Function
     Private Sub GuardaImportacionFlete()
         Dim CveMovimiento As Integer
         Dim InvFolio As String = ""
@@ -4283,3 +4340,9 @@ Partial Class Inventarios_RecepcionAlmacen
 
 
 End Class
+
+Public Class MMovimientoAlmacen
+    Public Property CveMovimiento As Integer
+    Public Property Folio As Integer
+
+End Class

Ventas/ProductosServicios.aspx.vb

@@ -911,7 +911,7 @@ Partial Class ProductosyServicios
 
     Public Sub CargaDdlSATPS()
         DdlSATPS.setEsWebService(True)
-        DdlSATPS.Attributes.Add("data-metodo", "getpssat")
+        DdlSATPS.ddlWS.Attributes.Add("data-metodo", "getpssat")
     End Sub
 
     Public Sub CargaDdlFraccionArancelaria()
@@ -1123,6 +1123,10 @@ Partial Class ProductosyServicios
     End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
+        If DdlSATPS.SelectedValue = "46920" Then
+            Alert("El Producto Servicio SAT con clave '01010101' no es valido, por favor seleccione otro", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
         If TxtPS.Text.Trim.Length = 0 Or DdlTipoPS.SelectedValue.ToEntero <= 0 Or DdlUnidadMedida.SelectedValue.ToEntero <= 0 Or DdlClasificacion.SelectedValue.ToEntero <= 0 Then
             Alert("Los campos Producto/Servicio, Tipo, Unidad de medida, Clasificación Contable son requeridos por favor ingreselos.", TipoMensaje.MsgAdvertencia)

Ventas/Ventas.aspx.vb

@@ -1782,6 +1782,15 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property VentaDesglosaIEPS As Boolean
+        Get
+            Return CBool(IfNull(ViewState("VentaDesglosaIEPS"), "False", ViewState("VentaDesglosaIEPS")))
+        End Get
+        Set(value As Boolean)
+            ViewState("VentaDesglosaIEPS") = value
+        End Set
+    End Property
+
 #End Region
 
     '#Region "AuxiliarConta"
@@ -5325,8 +5334,7 @@ Partial Class Ventas
 
                 CargarAlmacenes()
 
-                If UsuarioActual.Empresa.FacturaProduccion Then
+
-                End If
                 CargaDocumentacionCliente()
 
                 If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then
@@ -8483,7 +8491,7 @@ Partial Class Ventas
         ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
         ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() > 0, "Ing", DdlTipoComprobante.SelectedValue)
         ObjFactura.FacturarSucursal = (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso Not String.IsNullOrEmpty(Me.ClienteSucursal.RFC)))
-
+        ObjFactura.VentaDesglosaIEPS = Me.VentaDesglosaIEPS
         'ObjFactura.RefDocto = TxtDocto.Text.Trim
         'si es cancelacion, debe de conservar el folio actual
         If Not EsCancelacion Then ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero(), -1)
@@ -9868,16 +9876,23 @@ Partial Class Ventas
 
                 ObjClientes.Dispose()
 
+                BtnEmitirImprimir.Text = "Facturar"
+
                 'REGISTRAR UNA ENTREGA DIRECTA
                 If TmpDT.COUNT("EntregaDirecta", "EntregaDirecta = 1") > 0 Then
                     trPaqueteriaOpciones.Visible = False
                     trPaqueteriOpcionesLabel.Visible = False
                     trPaqueteriaDirectaLabel.Visible = True
-                End If
 
-                BtnEmitirImprimir.Text = "Facturar"
+                    DdlTipoComprobante.Items.Clear()
-                DdlTipoComprobante.SelectedValue = "Ing"
+                    DdlTipoComprobante.Items.Insert(0, New ListItem("Ingresos", "Ing"))
-                DdlTipoComprobante.Enabled = False
+                    DdlTipoComprobante.Items.Insert(1, New ListItem("Remisión", "Rem"))
+                    DdlTipoComprobante.Enabled = True
+
+                Else
+                    DdlTipoComprobante.SelectedValue = "Ing"
+                    DdlTipoComprobante.Enabled = False
+                End If
 
                 Tab.ActiveTab = TabGenerales
                 TabGenerales.Enabled = True
@@ -10048,7 +10063,8 @@ Partial Class Ventas
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
+                           FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -14534,119 +14550,121 @@ Partial Class Ventas
                     TxtPrecio.Enabled = True
                 End If
 
-                If UsuarioActual.TienePermisoProceso(68) Then TxtPrecio.Enabled = False
+                Dim PSCodigoSAT As String = drPS("SATClavePS").ToString
+
+                If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
 
                 If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count = 0 Then
-                    DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString())
+                        DdlMoneda.SelectedValueExist(drPS("CveMoneda").ToString())
-                    CambiaMoneda()
+                        CambiaMoneda()
-                End If
-
-                'SUGIERE PRECIO
-                Dim PrecioSugerido = 0.0
-                PrecioSugerido = drPS("Precio").ToString().ToDouble
-
-                If UsuarioActual.CveEmpresa.Contiene(1) Then
-                    Dim ObjPS As New ClsProductosServicios
-                    If ObjPS.GetPorcentajeProductos(CveCliente) Then
-                        Dim PrecioAplicado = ObjPS.DtResultados.FiltraParametros($"CvePS = {CvePSParametro}").FiltroPrimeroValor("PrecioA").ToDouble
-                        If PrecioAplicado > 0 Then
-                            PrecioSugerido = PrecioAplicado
-                        End If
-                    End If
-                    ObjPS.Dispose()
-                End If
-
-                If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es  10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
-                    Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
-                    ' si es 10. primero el cliente
-                    Dim CvePrecioListaPS As Integer
-                    Dim PorcentajePrecio As Double = 0
-
-                    If TipoPrecioLista = 10 Then
-
-                        CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
-                        If CvePrecioListaPS <= 0 Then
-
-                            CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
-
-                        End If
-
-                    Else
-
-                        CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
-                        If CvePrecioListaPS <= 0 Then
-
-                            CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
-
-                        End If
-
                     End If
 
-                    If CvePrecioListaPS > 0 Then
+                    'SUGIERE PRECIO
+                    Dim PrecioSugerido = 0.0
+                    PrecioSugerido = drPS("Precio").ToString().ToDouble
+
+                    If UsuarioActual.CveEmpresa.Contiene(1) Then
                         Dim ObjPS As New ClsProductosServicios
-                        If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
+                        If ObjPS.GetPorcentajeProductos(CveCliente) Then
-                            PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDouble
+                            Dim PrecioAplicado = ObjPS.DtResultados.FiltraParametros($"CvePS = {CvePSParametro}").FiltroPrimeroValor("PrecioA").ToDouble
-                            PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDouble
+                            If PrecioAplicado > 0 Then
+                                PrecioSugerido = PrecioAplicado
+                            End If
                         End If
                         ObjPS.Dispose()
                     End If
 
-                    If PrecioSugerido = 0 Then
+                    If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es  10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
-                        Dim ObjInventarios As New ClsInventarios
+                        Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
-                        Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
+                        ' si es 10. primero el cliente
-                        'si el costo es cero, puede ser que no halla movimientos del producto, en  esa sucursal. y se volverá a sacar sin especificar sucursal
+                        Dim CvePrecioListaPS As Integer
-                        If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
+                        Dim PorcentajePrecio As Double = 0
-                        ObjInventarios.Dispose()
+
-                        If CostoPS > 0 And PorcentajePrecio > 0 Then
+                        If TipoPrecioLista = 10 Then
-                            PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS
+
+                            CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+                            If CvePrecioListaPS <= 0 Then
+
+                                CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+
+                            End If
+
+                        Else
+
+                            CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                            If CvePrecioListaPS <= 0 Then
+
+                                CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+
+                            End If
+
                         End If
+
+                        If CvePrecioListaPS > 0 Then
+                            Dim ObjPS As New ClsProductosServicios
+                            If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
+                                PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDouble
+                                PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDouble
+                            End If
+                            ObjPS.Dispose()
+                        End If
+
+                        If PrecioSugerido = 0 Then
+                            Dim ObjInventarios As New ClsInventarios
+                            Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
+                            'si el costo es cero, puede ser que no halla movimientos del producto, en  esa sucursal. y se volverá a sacar sin especificar sucursal
+                            If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
+                            ObjInventarios.Dispose()
+                            If CostoPS > 0 And PorcentajePrecio > 0 Then
+                                PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS
+                            End If
+                        End If
+                        CvePrecioLista = CvePrecioListaPS
                     End If
-                    CvePrecioLista = CvePrecioListaPS
-                End If
 
 
-                'Dim ObjClasificaciones As New ClsClasificaciones
+                    'Dim ObjClasificaciones As New ClsClasificaciones
-                'If ObjClasificaciones.GetClasificaciones() Then
+                    'If ObjClasificaciones.GetClasificaciones() Then
-                '    PrecioBaseCosto = ObjClasificaciones.DtResultados.FiltroPrimeroValor("PrecioBaseCosto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveClasificacion = {drPS("CveClasificacion")}").ToDecimal
+                    '    PrecioBaseCosto = ObjClasificaciones.DtResultados.FiltroPrimeroValor("PrecioBaseCosto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveClasificacion = {drPS("CveClasificacion")}").ToDecimal
-                'End If
+                    'End If
 
-                If PrecioSugerido > 0 Then
+                    If PrecioSugerido > 0 Then
-                    Dim PrecioBaseCosto As Decimal = 0
+                        Dim PrecioBaseCosto As Decimal = 0
-                    PrecioBaseCosto = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=drPS("CveClasificacion").ToString().ToEntero()).FiltroPrimeroValor("PrecioBaseCosto", "").ToDecimal
+                        PrecioBaseCosto = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=drPS("CveClasificacion").ToString().ToEntero()).FiltroPrimeroValor("PrecioBaseCosto", "").ToDecimal
 
-                    If PrecioBaseCosto > 0 Then
+                        If PrecioBaseCosto > 0 Then
-                        PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1)
+                            PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1)
+                        End If
+                        TxtPrecio.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
                     End If
-                    TxtPrecio.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
-                End If
 
 
-                If IsNumeric(TxtCantidad.Text.Trim) Then
+                    If IsNumeric(TxtCantidad.Text.Trim) Then
-                    LblTotalPS.Text = (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.ToDouble).ToString().FormatoNumero(2)
+                        LblTotalPS.Text = (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.ToDouble).ToString().FormatoNumero(2)
-                Else
-                    LblTotalPS.Text = "0.00"
-                End If
-                LblPrecio1.Text = TxtPrecio.Text
-                UPPDescuento.Update()
-
-                HdnIVAPS.Value = If(drPS("IVA").ToString() = "-1", ViewState("IVA"), drPS("IVA").ToString()).ToString()
-                HdnIVARetAPS.Value = drPS("RetIVA").ToString()
-                HdnAsientoContable.Value = drPS("AsientoContableVentas").ToString()
-                HdnCtaContable.Value = drPS("IdCtaContVentas").ToString()
-                HdnAplicaParaConcepto.Value = drPS("AplicaParaConcepto").ToString()
-                HdnCodigo.Value = drPS("Codigo").ToString()
-                If DdlClasificacion.SelectedIndex = 0 Then
-                    If drPS("CveClasificacion").ToString() IsNot Nothing Then
-                        DdlClasificacion.SelectedValueExist(drPS("CveClasificacion").ToString())
                     Else
-                        Alert("El Productos/Servicio no tiene asignada una Clasificación.", TipoMensaje.MsgInformacion)
+                        LblTotalPS.Text = "0.00"
+                    End If
+                    LblPrecio1.Text = TxtPrecio.Text
+                    UPPDescuento.Update()
+
+                    HdnIVAPS.Value = If(drPS("IVA").ToString() = "-1", ViewState("IVA"), drPS("IVA").ToString()).ToString()
+                    HdnIVARetAPS.Value = drPS("RetIVA").ToString()
+                    HdnAsientoContable.Value = drPS("AsientoContableVentas").ToString()
+                    HdnCtaContable.Value = drPS("IdCtaContVentas").ToString()
+                    HdnAplicaParaConcepto.Value = drPS("AplicaParaConcepto").ToString()
+                    HdnCodigo.Value = drPS("Codigo").ToString()
+                    If DdlClasificacion.SelectedIndex = 0 Then
+                        If drPS("CveClasificacion").ToString() IsNot Nothing Then
+                            DdlClasificacion.SelectedValueExist(drPS("CveClasificacion").ToString())
+                        Else
+                            Alert("El Productos/Servicio no tiene asignada una Clasificación.", TipoMensaje.MsgInformacion)
+                        End If
+
                     End If
 
                 End If
 
-            End If
+            ElseIf CvePSParametro = -2 Then
-
-        ElseIf CvePSParametro = -2 Then
             CargaPS(DdlClasificacion.SelectedValue.ToEntero(), Ddl)
         End If
 
@@ -15668,13 +15686,10 @@ Partial Class Ventas
         ObjPS.Dispose()
     End Sub
     Private Function AgregarProductoServicio(Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String,
-                      PU As Decimal, Descuento As Decimal,
+                      PU As Decimal, Descuento As Decimal, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String, Optional Serie As String = "", Optional TiempoEntrega As String = "",
-                      CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String,
+                      Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
-                      Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
+                      Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "",
-                      Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
+                      Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False) As Boolean
-                      Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0,
-                      Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0,
-                                             Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
         If Not CvePS > 0 Then
@@ -15758,12 +15773,21 @@ Partial Class Ventas
             End If
         End If
 
+        'VERIFICA SI EN LA FACTURA PADRE SE DESGLOSO EL IEPS
+        Dim FacturaDesglosoIEPS As Boolean = ((CveDevolucion > 0 AndAlso NuevaFactura = 1) AndAlso (Me.ObjFacturaNC IsNot Nothing AndAlso Me.ObjFacturaNC.VentaDesglosaIEPS))
+
         If Not ClienteDesglosaIEPS Then
-            If Not RegeneraIEPS Then
+            If Not RegeneraIEPS AndAlso Not FacturaDesglosoIEPS Then
                 PU = PU * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)
+                VentaDesglosaIEPS = True
             End If
             DrPS("IEPSPorcentaje") = 0
         End If
+        'SI YA SE DESGLOSO EL IEPS SE GUARDA LA BANDERA EN ESTA FACTURA
+        If FacturaDesglosoIEPS Then
+            VentaDesglosaIEPS = True
+        End If
+
 
         TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento
         TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)