cambiios merge

App_Code/ClsInventarios.vb

@@ -1249,7 +1249,7 @@ Public Class ClsInventarios
     ''' <param name="CveCompra"></param>
     ''' <param name="CveMovimientoRelacionado">Cuando sea cancelacion/devolucion hay que mandar este dato que seria la salida de almacen</param>
     ''' <returns></returns>
-    Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1) As Boolean
+    Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1, Optional ValidaUsadosCompra As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleVirtualGet")
 
@@ -1258,12 +1258,18 @@ Public Class ClsInventarios
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
             .Add("@CveMovimientoRelacionado", SqlDbType.Int).Value = CveMovimientoRelacionado
+            .Add("@ValidaUsadosCompra", SqlDbType.Bit).Value = ValidaUsadosCompra
         End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los movimientos virtuales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            If ex.Message.Contains("Usados sistema") Then
+                OnError($"Los usados de la compra no coinciden. {ex.Message}", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Else
+                OnError("Ocurrió un error al obtener los movimientos virtuales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+
         End Try
 
         Return Retorno

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, Optional VentaDesglosaIEPS As Boolean = False) As Boolean
+                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -434,6 +434,7 @@ Public Class ClsVentas
             .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
             .Add("@FacturarSucursal", SqlDbType.Bit).Value = FacturarSucursal
             .Add("@VentaDesglosaIEPS", SqlDbType.Bit).Value = VentaDesglosaIEPS
+            .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -462,7 +463,7 @@ Public Class ClsVentas
                                  Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
                                  Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
                                  Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
-                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1) As Boolean
+                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
 
@@ -494,6 +495,7 @@ Public Class ClsVentas
             .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra
             .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
             .Add("@CveUsoCFDi", SqlDbType.SmallInt).Value = CveUsoCFDi
+            .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio
         End With
 
         Try
@@ -1452,7 +1454,7 @@ Public Class ClsVentas
     Public Function GetRepVentasPeriodos(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                  CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                  Optional CveProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1,
-                                 Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
+                                 Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGetRepPeriodo")
@@ -1480,6 +1482,7 @@ Public Class ClsVentas
             .Add("@VerEn", SqlDbType.Int).Value = VerEn
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
         End With
 
         Try
@@ -1549,7 +1552,7 @@ Public Class ClsVentas
                                              CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer,
                                               Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1,
                                              Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1,
-                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1) As Boolean
+                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPS")
 
@@ -1579,6 +1582,8 @@ Public Class ClsVentas
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@MostrarLitraje", SqlDbType.Bit).Value = MostrarLitraje
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
+
 
         End With
 
@@ -1597,7 +1602,7 @@ Public Class ClsVentas
                                              CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1,
                                              Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
                                              Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1,
-                                             Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
+                                             Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPSDetalle")
 
@@ -1630,7 +1635,7 @@ Public Class ClsVentas
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
-
+            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
 
         End With
 
@@ -3790,8 +3795,8 @@ Public Class ClsVentas
     Public Function GetRepPSPeriodo(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                 CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                 Optional CveProyecto As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1,
-                                    Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, Optional CvePS As Integer = -1, Optional CveClasificacion As Integer = -1,
-                                    Optional CveCategoria As Integer = -1, Optional TipoFecha As Integer = 1, Optional CveClienteClasificacion As Integer = -1) As Boolean
+                                Optional CveUsuarioConsulta As Integer = -1, Optional VerEn As Integer = -1, Optional CvePS As Integer = -1, Optional CveClasificacion As Integer = -1,
+                                Optional CveCategoria As Integer = -1, Optional TipoFecha As Integer = 1, Optional CveClienteClasificacion As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGetRepPeriodoPS")
         With SqlAdapter.SelectCommand.Parameters
@@ -3820,6 +3825,7 @@ Public Class ClsVentas
             .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
             .Add("@TipoFecha", SqlDbType.Int).Value = TipoFecha
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
+            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -4754,7 +4760,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function GetVentasUsados(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer) As Boolean
+    Public Function GetVentasUsados(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer, Optional ServicioDomicilio As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasUsadosGet", CommandType.StoredProcedure)
@@ -4764,6 +4770,7 @@ Public Class ClsVentas
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio
         End With
 
         Try

App_Code/Modelos.vb

@@ -1422,7 +1422,7 @@ Namespace Modelos
                            PedidoContrato:=factura.PedidoContrato, ObservacionesAlmacen:=factura.ObservacionesAlmacen, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33,
                            CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal,
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
-                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno) Then
+                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio) Then
 
                 ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
 
@@ -5775,6 +5775,7 @@ Namespace Modelos
 
 
 #Region "P R O P I E D A D E S"
+        Public Property ServicioDomicilio As Boolean
         Public Property CveEstatusRefacturacion As Integer = 0
         Public Property NuevaFactura As Integer
         Public Property EnviarCorreo As Boolean = False

Bancos/RepCortes.aspx

@@ -323,7 +323,12 @@
                             </ItemTemplate>
                         </asp:TemplateField>
                         <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
-                        <asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                        <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
+                            <ItemTemplate>
+                               <asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <%--<asp:BoundField HeaderText="Total" DataField="ImportePagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
                         <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" ItemStyle-HorizontalAlign="Left" />
                     </Columns>
                     <HeaderStyle CssClass="Titulos" />

Bancos/RepCortes.aspx.vb

@@ -100,6 +100,9 @@ Partial Class Bancos_RepCortes
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CveVenta").ToString = "" Then
                 e.Row.CssClass = "Totales"
+            End If
+            If e.Row.DBCampo("ImportePagado").ToDecimal() < 0 Then
+                e.Row.FCLabel("LblTotal").CssClass = "badge badge-danger"
             End If
         End If
     End Sub

Compras/Compras.aspx

@@ -157,15 +157,14 @@
         }
 
         .GastoIndirectoOpciones {
-            margin-left:auto;
-            margin-right:auto;
-            width:400px;
+            margin-left: auto;
+            margin-right: auto;
+            width: 400px;
         }
 
-        .GastoIndirectoOpciones td
-        {
-           text-align:right /* Or any other value */
-        }
+            .GastoIndirectoOpciones td {
+                text-align: right; /* Or any other value */
+            }
         /*IPP*/
     </style>
 </asp:Content>
@@ -3217,12 +3216,12 @@
                                         </div>
                                     </div>
                                 </div>
-                                 <div class="row" style="align-items: center" id="divDevAuto" runat="server"  visible="false">
-                                     <label class="col-md-4">Devolución automática:</label>
-                                     <div class="col-md-8">
-                                         <asp:CheckBox Text="" runat="server" ID="CheckDevAuto" Visible="True" />
-                                     </div>
-                                 </div>
+                                <div class="row" style="align-items: center" id="divDevAuto" runat="server" visible="false">
+                                    <label class="col-md-4">Devolución automática:</label>
+                                    <div class="col-md-8">
+                                        <asp:CheckBox Text="" runat="server" ID="CheckDevAuto" Visible="True" />
+                                    </div>
+                                </div>
                             </div>
                             <div class="modal-footer">
                                 <asp:Button ID="BtnCancelarCompra2" OnClick="BtnCancelarCompra2_Click" runat="server" CssClass="btn btn-success" Text="Cancelar Compra" ValidationGroup="GrpCancelarCompra" />
@@ -4788,7 +4787,14 @@
                             <ajax:TabPanel ID="TabNCAlmacen" runat="server" HeaderText="Almacen">
                                 <ContentTemplate>
                                     <div class="row">
-                                        <div class="col-md-12 h4 text-right">
+                                        <div class="col-md-6 text-left">
+                                            <asp:UpdatePanel ID="UpMostrarTodos" runat="server" UpdateMode="Conditional">
+                                                <ContentTemplate>
+                                                    <asp:CheckBox ID="ChkMostrarTodos" Text="Mostrar Todos" runat="server" OnCheckedChanged="ChkMostrarTodos_CheckedChanged" AutoPostBack="true" />
+                                                </ContentTemplate>
+                                            </asp:UpdatePanel>
+                                        </div>
+                                        <div class="col-md-6 h4 text-right">
                                             Saldo: $<asp:Label Text="0.00" ID="LbNCInvSaldoAlmacen" runat="server" />
                                         </div>
                                     </div>

Compras/Compras.aspx.vb

@@ -3988,9 +3988,11 @@ Partial Class Compras_Compras
     Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
 
 
-        AjustaCombustibles()
+        'If Not AjustaCombustibles() Then
+        '    Exit Sub
+        'End If
 
-        '------------------INICIA VALIDACIONES------------------
+        '------------------ INICIA VALIDACIONES ------------------
         Dim EstatusCredito As Integer = 0
         Dim CveSubProyecto As Integer = 0
         'Credito Multiple
@@ -4303,7 +4305,7 @@ Partial Class Compras_Compras
         Next
         If ErrorValidacion Then Exit Sub
 
-        '------------------TERMINA VALIDACIONES------------------
+
 
         'RECORRO LOS PRODUCTOS O SERVICIOS PARA REGISTRARLOS LOS QUE NO EXISTEN EN EL CATÁLOGO
         Dim tCve As Integer
@@ -4374,6 +4376,17 @@ Partial Class Compras_Compras
         UM.Dispose()
         PSS.Dispose()
 
+        'VALIDA IMPORTES
+        If Not ValidaTotalesGuardar() Then
+            Exit Sub
+        End If
+
+        If Not AjustaCombustibles() Then
+            Exit Sub
+        End If
+
+        '------------------TERMINA VALIDACIONES------------------
+
         'si hay necesidad de actualizar el globaldtps
         If RegeneraPS Then
             'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
@@ -4423,10 +4436,7 @@ Partial Class Compras_Compras
         TmpDT.AcceptChanges()
         If Correcto Then
 
-            'VALIDA IMPORTES
-            If Not ValidaTotalesGuardar() Then
-                Exit Sub
-            End If
+
 
 
             Dim ObjCompras As New ClsCompras()
@@ -4650,6 +4660,8 @@ Partial Class Compras_Compras
                                 End If
                             Next
 
+
+
                             'Compra
                             If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
                               LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
@@ -6828,14 +6840,22 @@ Partial Class Compras_Compras
 
                                                                     If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
 
-                                                                        Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
-                                                                                     Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
-                                                                                     Select New With
-                                                                                            {
-                                                                                               .Total = dr2.Field(Of Double)("Total")
-                                                                                            }).Sum(Function(item) item.Total)
+                                                                        Dim Valor As Decimal = 0
+                                                                        For Each RowAcum As DataRow In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").Rows
+                                                                            Dim TotalTamanio = TmpDT.FiltroPrimeroValor("Total", $"CvePS={RowAcum("CvePSCargo")}").ToDecimal()
+                                                                            If TotalTamanio > 0 Then
+                                                                                Valor += TotalTamanio
+                                                                            End If
+                                                                        Next
 
-                                                                        importeMovimiento += Valor.ToDecimal
+                                                                        'Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
+                                                                        '             Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
+                                                                        '             Select New With
+                                                                        '                    {
+                                                                        '                       .Total = dr2.Field(Of Double)("Total")
+                                                                        '                    }).Sum(Function(item) item.Total)
+
+                                                                        importeMovimiento += Valor
                                                                         importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                                     End If
 
@@ -8486,6 +8506,8 @@ Partial Class Compras_Compras
                                     End If
 
                                     Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
+                                    BtnGuardar.Enabled = False
+                                    UpFacturar.Update()
 
                                 End If
 
@@ -8530,7 +8552,12 @@ Partial Class Compras_Compras
     End Sub
 
 
-    Private Sub AjustaCombustibles()
+    Private Function AjustaCombustibles() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+        Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
 
 
         If Not TmpDT.Columns.Contains("AplicaIEPS") Then
@@ -8561,18 +8588,14 @@ Partial Class Compras_Compras
             Dim IndiceUltimo As Integer = 0
 
             For Each dRow As DataRow In TmpDT.Rows
-
                 If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
                     IndiceUltimo = IndiceContador
                 End If
-
                 IndiceContador = IndiceContador + 1
-
             Next
 
-
-            Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
-            Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
+            IVADetalles = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+            DiferenciaIVas = TxtIVA.Text.ToDecimal - IVADetalles
 
             If Math.Abs(DiferenciaIVas) > 0.01D Then
                 TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
@@ -8582,7 +8605,36 @@ Partial Class Compras_Compras
         End If
 
 
-    End Sub
+        'Revalidacion de ajuste
+        IVADetalles = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+        DiferenciaIVas = TxtIVA.Text.ToDecimal - IVADetalles
+
+
+
+        If Math.Abs(DiferenciaIVas) > 0.01D Then
+
+            If IVADetalles > 0 Then
+
+                For Each dRow As DataRow In TmpDT.Rows
+                    If dRow("IVA").ToString.ToDecimal > 0 Then
+                        dRow("IVA") = dRow("IVA").ToString.ToDecimal + DiferenciaIVas
+                        TmpDT.AcceptChanges()
+                        Respuesta = True
+                        Exit For
+                    End If
+                Next
+
+            Else
+                Alert("Los productos especificados en el lisado no tienen asigando impuesto IVA, favor de realizar la correción en el producto que aplique el impúesto.", TipoMensaje.MsgAdvertencia)
+                Respuesta = False
+            End If
+        Else
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+    End Function
 
     Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
         Dim ObjProveedores As New ClsCompProveedores()
@@ -12650,6 +12702,7 @@ Partial Class Compras_Compras
             TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDouble + tPU
             TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDouble + ImporteAjuste
             TmpDT.Rows(Indice)("IEPSPS") = (TmpDT.Rows(Indice)("Total").ToString.ToDouble() * TmpDT.Rows(Indice)("IEPSPSPorcentaje").ToString.ToDouble()).RoundAD(2)
+            TmpDT.Rows(Indice)("IVA") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal
             'Row("IEPSPS") = Math.Round(IEPSPS, DecimalesPermitidos)
             'Row("IEPSPSPorcentaje") = PorcentajeIEPS
             TmpDT.AcceptChanges()
@@ -19063,21 +19116,24 @@ Partial Class Compras_Compras
         CargaAnticipos(CveProveedor, If(ChkNCInv.Checked, "NC", "-1"))
         UpAnticipos.Update()
     End Sub
-Private Sub CargaNCINV()
+    Private Sub CargaNCINV(Optional ShowAllPendientes As Boolean = False)
 
         Dim SaldoAnticipo = 0.0
         Dim CveCompras As String = ""
+
         If ChkNCInvNC.Checked Then
-            For Each gvr As GridViewRow In GvFacturaNC.Rows
-                If gvr.FCCheckBox("ChkFacturaNC") IsNot Nothing AndAlso gvr.FCCheckBox("ChkFacturaNC").Checked Then
-                    SaldoAnticipo += gvr.FCTextBox("TxtImporte").Text.ToDouble
-                    If CveCompras <> "" Then
-                        CveCompras = $"{CveCompras},{gvr.DataKey("CveCompra").ToString}"
-                    Else
-                        CveCompras = gvr.DataKey("CveCompra").ToString
+            If Not ShowAllPendientes Then
+                For Each gvr As GridViewRow In GvFacturaNC.Rows
+                    If gvr.FCCheckBox("ChkFacturaNC") IsNot Nothing AndAlso gvr.FCCheckBox("ChkFacturaNC").Checked Then
+                        SaldoAnticipo += gvr.FCTextBox("TxtImporte").Text.ToDouble
+                        If CveCompras <> "" Then
+                            CveCompras = $"{CveCompras},{gvr.DataKey("CveCompra").ToString}"
+                        Else
+                            CveCompras = gvr.DataKey("CveCompra").ToString
+                        End If
                     End If
-                End If
-            Next
+                Next
+            End If
         Else
             For Each gvr As GridViewRow In GVAnticipos.Rows
                 If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
@@ -19092,7 +19148,6 @@ Private Sub CargaNCINV()
 
         End If
 
-
         LbNCInvSaldo.Text = SaldoAnticipo.FormatoNumero()
         LbNCInvSaldoAlmacen.Text = SaldoAnticipo.FormatoNumero()
 
@@ -19109,11 +19164,14 @@ Private Sub CargaNCINV()
                 GVNCInv.DataSource = DtPendientesAlmacen
                 GVNCInv.DataBind()
 
+                If Not String.IsNullOrEmpty(CveCompras) Then
+                    DtPendientesAlmacen = DtPendientesAlmacen.FiltraParametros($"CveCompra IN ({CveCompras})")
+                End If
+
                 GVNCInvAlmacen.DataSource = DtPendientesAlmacen
                 GVNCInvAlmacen.DataBind()
 
             End If
-
         Else
             If ChkNCInvNC.Checked Then
                 Alert("Niguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia)
@@ -20373,7 +20431,7 @@ Private Sub CargaNCINV()
 
     Protected Sub BtnFacturaNC_Click(sender As Object, e As EventArgs)
         If ChkNCInvNC.Checked Then
-            CargaNCINV()
+            CargaNCINV(ShowAllPendientes:=False)
 
             TabModoNC.ActiveTabIndex = 1
             TabModoNC_ActiveTabChanged(TabModoNC, EventArgs.Empty)
@@ -20720,9 +20778,11 @@ Private Sub CargaNCINV()
 
     End Sub
 
-
-
-
+    Protected Sub ChkMostrarTodos_CheckedChanged(sender As Object, e As EventArgs)
+        CargaNCINV(ShowAllPendientes:=True)
+        UpFacturaNC.Update()
+        UpMostrarTodos.Update()
+    End Sub
 End Class
 
 Public Class MMensajeDevolucion

Compras/PopUpVerFactura.aspx.vb

@@ -1342,7 +1342,7 @@ Partial Class PopUpVerFactura
         'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
             CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
-            If CveConcepto.Contiene(2, 3, 26, 27) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
+            If CveConcepto.Contiene(2, 3, 26, 27, 40, 41) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
                 FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
                 CveConceptoMovtoRelacionado = 37
             ElseIf CveConcepto.Contiene(36, 37) Then
@@ -1361,8 +1361,31 @@ Partial Class PopUpVerFactura
 
         If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
             If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                DtMovimientos = ObjInventarios.DtResultados
-                Alert("asdf")
+                DtMovimientos = ObjInventarios.DtResultados
+
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then
+                    If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+                        Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero()
+                        Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
+
+                        'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
+                        If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
+                            If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
+                                Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
+                                CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
+                                Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
+
+                                For Each Dr As DataRow In DtUsados.Rows
+                                    Dr("No") = IndexInicialUsados
+                                    IndexInicialUsados += 1
+                                Next
+
+                                DtMovimientos.Merge(DtUsados)
+                            End If
+                        End If
+                    End If
+                End If
+
                 DtMovimientos.Columns("No").AutoIncrement = True
                 DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
                 DtMovimientos.Columns("No").AutoIncrementStep = 1
@@ -4638,18 +4661,28 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("TipoAuto", ModeloAuto))
 
         'Informacion Consumidor
-        'Informacion Distribuidor
         If (CveCliente > 0) Then
 
             Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))
-            Dim Nombre As String = DatosClienteSeleccionado.Item("Nombre").ToString
-            Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
-            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
+
+            Dim Nombre As String = ""
+            Dim Ciudad As String = ""
+            Dim Estado As String = ""
+            Dim Direccion As String = ""
+            Dim Telefono As String = ""
+
+            If DatosClienteSeleccionado IsNot Nothing Then
+                Nombre = DatosClienteSeleccionado("Nombre").ToString
+                Ciudad = DatosClienteSeleccionado("Ciudad").ToString
+                Estado = DatosClienteSeleccionado("Estado").ToString
+                Direccion = DatosClienteSeleccionado("Direccion").ToString
+                Telefono = DatosClienteSeleccionado("Telefono").ToString
+            End If
 
             params.Add(New ReportParameter("NombreCliente", Nombre))
-            params.Add(New ReportParameter("Direccion", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-            params.Add(New ReportParameter("TelConsumidor", DatosClienteSeleccionado.Item("Telefono").ToString))
+            params.Add(New ReportParameter("Direccion", Direccion))
+            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
+            params.Add(New ReportParameter("TelConsumidor", Telefono))
         End If
 
         params.Add(New ReportParameter("Anio", Año))

Compras/RepComprasAF.aspx

@@ -105,7 +105,7 @@
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1">SubTipo Activo Fijo:</div>
+                        <div class="col-md-1">SubTipo Fijo:</div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlSubTipoActivoFijo" CssClass="form-control input-sm select2me input-small" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" Width="95%">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>

Contabilidad/RegPrePoliza.aspx

@@ -67,9 +67,16 @@
     <asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
-    </li>
+    <asp:UpdatePanel runat="server">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="far fa-file-excel" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
@@ -304,7 +311,7 @@
             </table>
 
             <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
-                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC,PorcentajeImpuesto,CveCuenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC,PorcentajeImpuesto,CveCuenta, Cuenta, CveSubProyecto" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                     <Columns>
                         <asp:TemplateField>
                             <HeaderTemplate>Cuenta</HeaderTemplate>
@@ -728,7 +735,54 @@
         </div>
     </div>
 
-
+    <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Agregar Excel</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row">
+                        <label class="col-md-2 truncate" style="text-align: right;">Almacen:</label>
+                        <div class="col-md-10">
+                            <asp:DropDownList ID="DdlPlantilla2" runat="server" DataValueField="CvePlantillaPoliza" DataTextField="PlantillaPoliza" class="select2me" Width="100%"></asp:DropDownList>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3>Arraste o haga click para subir el archivo Excel</h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 10px;">
+                            <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <div class="row">
+                        <div class="col-md-3" style="text-align: left">
+                            <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnDescargar" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
+                                </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="BtnDescargar" />
+                                </Triggers>
+                            </asp:UpdatePanel>
+                            
+                        </div>
+                        <div class="col-md-9" style="text-align: right">
+                            <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Aceptar"></asp:Button>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
 
     <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
 </asp:Content>

Contabilidad/RegPrePoliza.aspx.vb

@@ -4,6 +4,7 @@ Imports System.Data
 Imports Extensiones
 Imports System.Linq
 Imports System.Web.Services
+Imports GemBox.Spreadsheet
 
 Partial Class ContabilidadC_RegPrePoliza
     Inherits ClsPaginas
@@ -171,6 +172,8 @@ Partial Class ContabilidadC_RegPrePoliza
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
+
+
             If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
                 Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
             End If
@@ -223,8 +226,9 @@ Partial Class ContabilidadC_RegPrePoliza
                     Contabilizar()
                 End If
                 Exit Sub
+                LnkExcel.Visible = False
             Else
-
+                LnkExcel.Visible = True
                 CreaDT()
                 BtnEliminar.Visible = False
 
@@ -527,13 +531,20 @@ Partial Class ContabilidadC_RegPrePoliza
 
         If UsuarioActual.CveEmpresa.Contiene(120) Then
             DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
+            DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
+
         Else
             DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+            DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+
         End If
 
 
         DdlPlantilla.DataBind()
         DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
+
+        DdlPlantilla2.DataBind()
+        DdlPlantilla2.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
     End Sub
 
     Private Sub CargaConceptos()
@@ -801,6 +812,8 @@ Partial Class ContabilidadC_RegPrePoliza
             dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
             dr("CveCuenta") = drt("CveCuenta")
             DtMovimientos.Rows.Add(dr)
+
+
         Next
 
 
@@ -1754,5 +1767,252 @@ Partial Class ContabilidadC_RegPrePoliza
         End If
         ObjGral.Dispose()
     End Sub
+
+    Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+        RegistraScript(String.Format("$('#{0}').modal();", "DivCargaExcel"))
+
+    End Sub
+
+    Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
+        Dim NombreArchivo As String
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        Dim workbook As New ExcelFile()
+        Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.ToString)
+
+        Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero
+        Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
+
+        Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows
+                                    Select New With
+                                    {
+                                        .ConceptoAdministrativo = row.Item("ConceptoContable"),
+                                        .Cuenta = "",
+                                        .NombreCuenta = "",
+                                        .Cargo = "",
+                                        .Abono = "",
+                                        .Referencia = "",
+                                        .Concepto = "",
+                                        .SubProyecto = row.Item("SubProyecto"),
+                                        .CveConceptoContable = row.Item("CveConcepto"),
+                                        .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
+                                        .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1)
+                                    }).QueryToDataTable(True)
+
+        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+                {
+                    .ColumnHeaders = True,
+                    .StartRow = 0,
+                    .StartColumn = 0
+                })
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+        worksheet.Columns("I").Hidden = True
+        worksheet.Columns("J").Hidden = True
+        worksheet.Columns("K").Hidden = True
+
+
+        NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString
+        workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
+
+
+    End Sub
+
+    Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
+        If TxtExcel.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+
+            Dim Directorio As String = Server.MapPath("~") & file.patch
+
+            Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+            CargarArchivo(Directorio, file.filename, Tipo)
+        Else
+            Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
+        End If
+    End Sub
+    Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+        Dim dt As New DataTable
+        ' Conexion As Odbc.OdbcConnection = Nothing
+        Dim ErrorArchivo = False
+        Dim ErrorExcel = False
+
+        dt = ReadExcelFile(Ruta + FileName, True)
+
+
+        If Not ErrorArchivo Then
+
+            If Not dt.Columns(0).ColumnName = "ConceptoAdministrativo" Then
+                Alert("El nombre de la primera columna debe ser 'ConceptoAdmin'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(1).ColumnName = "Cuenta" Then
+                Alert("El nombre de la segunda columna debe ser 'Cuenta'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(2).ColumnName = "NombreCuenta" Then
+                Alert("El nombre de la tercera columna debe ser 'NombreCuenta'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(3).ColumnName = "Cargo" Then
+                Alert("El nombre de la cuarta columna debe ser 'Cargo'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(4).ColumnName = "Abono" Then
+                Alert("El nombre de la quinta columna debe ser 'Abono' .Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(5).ColumnName = "Referencia" Then
+                Alert("El nombre de la sexta columna debe ser 'Referencia'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(6).ColumnName = "Concepto" Then
+                Alert("El nombre de la séptima columna debe ser 'Concepto'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(7).ColumnName = "SubProyecto" Then
+                Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+        End If
+
+        If Not ErrorArchivo Then
+
+
+            Dim ObjConta As New ClsContabilidad()
+            ObjConta.IniciaTransacSQL()
+            Try
+                Dim TieneError As Boolean = False
+                Dim ContadorUpdate As Integer = 0
+                Dim ContadorError As Integer = 0
+                Dim NombreCuenta As String = ""
+                Dim CvePrePoliza As Integer = 0
+                Dim Cuenta As String = ""
+                Dim Reporte As New StringBuilder
+                Dim TotalCargos As Integer = 0
+                Dim TotalAbonos As Integer = 0
+
+
+                CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, DdlPlantilla2.SelectedItem.Text.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero)
+
+
+                For Each Row As DataRow In dt.Rows
+                    NombreCuenta = Row("NombreCuenta").ToString
+                    Cuenta = Row("Cuenta").ToString
+
+                    Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal)
+                    Dim Concepto As String = Row("Concepto").ToString
+                    Dim Referencia As String = Row("Referencia").ToString
+                    Dim IdCuenta As Integer = -1
+                    Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
+                    Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
+                    Dim YaExiste As Boolean = False
+                    Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
+                    Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
+
+                    If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
+                        If ObjConta.DtResultados.Rows.Count > 0 Then
+                            IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
+                            'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
+                        Else
+                            Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} </br>")
+                            TieneError = True
+                            YaExiste = True
+                        End If
+                    Else
+                        TieneError = True
+                        Exit For
+                    End If
+
+
+                    'If TipoCuenta.Contiene("A", "C", "E") Then
+                    '    CargoAbono = False
+                    'End If
+
+                    If YaExiste = False Then
+                        If IdCuenta > 0 Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
+                                TieneError = True
+                                Exit For
+                            End If
+                        Else
+                            IdCuenta = -2
+                        End If
+                    End If
+
+
+                Next
+                If Not TieneError Then
+                    ObjConta.Commit()
+                    Alert(String.Format("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjConta.ContaFolio))
+
+                    Alert($"Se agregó la póliza {ObjConta.ContaFolio}")
+
+                Else
+                    Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError)
+                    ObjConta.RollBack()
+                End If
+
+
+            Catch ex As Exception
+                ObjConta.RollBack()
+            End Try
+
+            ObjConta.Dispose()
+        End If
+    End Sub
+
+    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+
+        Dim unnamed As Integer = 0
+        Dim cols As Integer
+        Dim columns As String()
+        Dim curRow As Integer = 0
+        Dim curCol As Integer = 0
+        Dim dataTable As DataTable = New DataTable()
+        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
+
+        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+
+            If firstRowHasHeaders Then
+
+                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
+                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString().Trim)
+                Else
+                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
+                End If
+
+                curRow = 1
+            Else
+                dataTable.Columns.Add("Column " & (cols + 1))
+            End If
+
+        Next
+
+        While curRow < worksheet.Rows.Count
+
+            columns = New String(cols - 1) {}
+
+            For curCol = 0 To cols - 1
+
+                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
+                    columns(curCol) = ""
+                Else
+                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
+                End If
+
+            Next
+
+            dataTable.Rows.Add(columns)
+            curRow += 1
+
+        End While
+
+        Return dataTable
+
+    End Function
 End Class
 

Contabilidad2/CatCuentas.aspx

@@ -103,7 +103,6 @@
                         </div>
                     </div>
                     <br />
-                    <hr />
                     <div class="form-line">
                         <div class="catcuentas left">Subcuenta de</div>
                         <div class="catcuentas right">
@@ -171,7 +170,6 @@
                         </div>
                     </div>
                     <br />
-                    <hr />
                     <div class="form-line">
                         <div class="catcuentas left">Concepto</div>
                         <div class="catcuentas right">

Contabilidad2/CatCuentas.aspx.vb

@@ -154,6 +154,7 @@ Partial Class Contabilidad2_CatCuentas
         ArbolCuentas.nodoid = "CveCuenta"
         ArbolCuentas.padre = "CvePadre"
         ArbolCuentas.titulo = "CtaCodigo"
+        ArbolCuentas.DataBind()
 
 
     End Sub
@@ -175,7 +176,7 @@ Partial Class Contabilidad2_CatCuentas
         dt = getNodospadreHijos(IDSelected)
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
             Dim dr As DataRow = dt.Rows(0)
-            TxtCuenta.Text = Trim(dr("CuentaFormato").ToString.Replace("-", "").ToString)
+            'TxtCuenta.Text = Trim(dr("CuentaFormato").ToString.Replace("-", "").ToString)
             'Tcuenta.Text = Trim(dr("CuentaFormato").ToString.Replace("-", "").ToString)
             Tsubcuenta.Text = dr("CuentaFormato").ToString()
             DTcuenta.SelectedValue = dr("Tipo").ToString()
@@ -315,7 +316,7 @@ Partial Class Contabilidad2_CatCuentas
 
                 Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
 
-                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
 
                     Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
 
@@ -371,7 +372,6 @@ Partial Class Contabilidad2_CatCuentas
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        Dim ObjConta2 As ClsContPAQi
 
         Dim CuentaEfectivo As Integer = 0
         Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
@@ -386,11 +386,9 @@ Partial Class Contabilidad2_CatCuentas
         End If
 
         If idnew > 0 Then
-
-            Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
-            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                ObjConta2 = New ClsContPAQi(UsuarioActual.Empresa)
-
+            If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+                Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+                Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
                 If ObjConta2.GetCuentas(-1, "-1", -1) Then
                     Dim IdPadre As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
                     Dim IdAgrupador As Integer
@@ -409,46 +407,48 @@ Partial Class Contabilidad2_CatCuentas
 
                     End If
                 End If
+                ObjConta2.Dispose()
             End If
 
-            Dim dr As DataRow = DtDatos.NewRow
-        dr("CveCuenta") = idnew
-        dr("CuentaFormato") = TxtCuenta.Text
-        'dr("CuentaFormato") = Tcuenta.Text
-        dr("Nombre") = Tnombre.Text
-        dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
-        'dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
-        dr("Tipo") = DTcuenta.SelectedValue.ToString
-            dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
-            dr("CvePadre") = IDSelected
-        dr("Codigo") = Tnombre.Text
-        dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
-        dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
-        dr("NomIdioma") = TxtNomIngles.Text.Trim
-        DtDatos.Rows.Add(dr)
-        ArbolCuentas.DataSource = DtDatos
-            '.Attributes.Add("data-hijos","0");
-            Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
-            item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
-            Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
-            If (IsNothing(objul)) Then
-                objul = New ADServerControl.DragableUL
-                objul.ID = String.Format("ul{0}", item.Cve)
-                item.Controls.Add(objul)
-            End If
-            ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
-            'ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text))
 
-            'updatos.Visible = False
-            'nuevacuenta.Visible = False
+            'Dim dr As DataRow = DtDatos.NewRow
+            'dr("CveCuenta") = idnew
+            'dr("CuentaFormato") = TxtCuenta.Text
+            ''dr("CuentaFormato") = Tcuenta.Text
+            'dr("Nombre") = Tnombre.Text
+            'dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
+            ''dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
+            'dr("Tipo") = DTcuenta.SelectedValue.ToString
+            'dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
+            'dr("CvePadre") = IDSelected
+            'dr("Codigo") = Tnombre.Text
+            'dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
+            'dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
+            'dr("NomIdioma") = TxtNomIngles.Text.Trim
+            'DtDatos.Rows.Add(dr)
+            'ArbolCuentas.DataSource = DtDatos
+            ''.Attributes.Add("data-hijos","0");
+            'Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
+            'item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
+            'Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
+            'If (IsNothing(objul)) Then
+            '    objul = New ADServerControl.DragableUL
+            '    objul.ID = String.Format("ul{0}", item.Cve)
+            '    item.Controls.Add(objul)
+            'End If
+            'ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
+            ''ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text))
+
+            ''updatos.Visible = False
+            ''nuevacuenta.Visible = False
             LimpiarCampos()
             updatos.Update()
             CargaDatos()
+
             Alert("La cuenta se guardo correctamente")
         End If
 
         ObjConta.Dispose()
-        If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
     End Sub
     Private Sub LimpiarCampos()
         TxtCuenta.Text = ""
@@ -473,7 +473,6 @@ Partial Class Contabilidad2_CatCuentas
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
         'ObjConta.IniciaTransacSQL()
 
         If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then
@@ -496,21 +495,27 @@ Partial Class Contabilidad2_CatCuentas
             Alert("La Cuenta ha sido eliminada", TipoMensaje.MsgInformacion)
 
             Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
-            If ObjConta2.GetCuentas(-1, "-1", -1) Then
-                Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
 
-                If Id > 0 Then
-                    If ObjConta2.RemoveCuenta(Id) Then
+            If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+                Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+                If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                    Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
+
+                    If Id > 0 Then
+                        If ObjConta2.RemoveCuenta(Id) Then
+                        End If
                     End If
                 End If
+                ObjConta2.Dispose()
+
             End If
+
         Else
             Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError)
             '  ObjConta.RollBack()
         End If
 
         ObjConta.Dispose()
-        ObjConta2.Dispose()
 
     End Sub
     'Protected Sub BtnCambiaAgrupadorSAT_Click(sender As Object, e As EventArgs)

Empresas/140/Formatos/Remision.rdlc

@@ -1467,6 +1467,120 @@
           </Border>
         </Style>
       </Rectangle>
+      <Tablix Name="Tablix3">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>2.99824cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.48004cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Importe">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Importe.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>9.64pt</FontSize>
+                                <FontWeight>=IIF(Fields!ImpuestoLocal.Value = "Total","Bold","Normal")</FontWeight>
+                                <Format>#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Importe</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <Group Name="ImpuestoLocal">
+                <GroupExpressions>
+                  <GroupExpression>=Fields!ImpuestoLocal.Value</GroupExpression>
+                </GroupExpressions>
+              </Group>
+              <TablixHeader>
+                <Size>2.93858cm</Size>
+                <CellContents>
+                  <Textbox Name="ImpuestoLocal">
+                    <CanGrow>true</CanGrow>
+                    <KeepTogether>true</KeepTogether>
+                    <Paragraphs>
+                      <Paragraph>
+                        <TextRuns>
+                          <TextRun>
+                            <Value>=IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value)</Value>
+                            <Style>
+                              <FontFamily>Myriad Pro</FontFamily>
+                              <FontSize>9.64pt</FontSize>
+                              <FontWeight>=iif(Fields!ImpuestoLocal.Value = "Total","Bold","Normal")</FontWeight>
+                            </Style>
+                          </TextRun>
+                        </TextRuns>
+                        <Style />
+                      </Paragraph>
+                    </Paragraphs>
+                    <rd:DefaultName>ImpuestoLocal</rd:DefaultName>
+                    <Style>
+                      <Border>
+                        <Style>None</Style>
+                      </Border>
+                      <BackgroundColor>White</BackgroundColor>
+                      <PaddingLeft>2pt</PaddingLeft>
+                      <PaddingRight>2pt</PaddingRight>
+                      <PaddingTop>2pt</PaddingTop>
+                      <PaddingBottom>2pt</PaddingBottom>
+                    </Style>
+                  </Textbox>
+                </CellContents>
+              </TablixHeader>
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>8.14637cm</Top>
+        <Left>15.11602cm</Left>
+        <Height>0.48004cm</Height>
+        <Width>5.93682cm</Width>
+        <ZIndex>10</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
     </ReportItems>
     <Height>18.12046cm</Height>
     <Style />

Empresas/140/Formatos/Salidas.rdlc

@@ -457,6 +457,13 @@
         <Paragraphs>
           <Paragraph>
             <TextRuns>
+              <TextRun>
+                <Value>Observaciones: </Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
               <TextRun>
                 <Value>=Parameters!Observaciones.Value</Value>
                 <Style>
@@ -483,27 +490,36 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox28">
+      <Textbox Name="TotalProductos">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
         <Paragraphs>
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>= "Total: " &amp; FormatNumber(Sum(Fields!Cantidad.Value, "DsInventarios"),0)</Value>
+                <Value>Total Productos :</Value>
                 <Style>
+                  <FontSize>8pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
+              <TextRun>
+                <Value>=Sum(iif(Not Fields!Clasificacion.Value = "USADOS",CInt(Fields!Cantidad.Value),0),"DsInventarios")</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                  <Format>#,0;(#,0)</Format>
+                </Style>
+              </TextRun>
             </TextRuns>
             <Style />
           </Paragraph>
         </Paragraphs>
-        <rd:DefaultName>Textbox28</rd:DefaultName>
-        <Top>1.33674cm</Top>
-        <Left>0.22985cm</Left>
+        <rd:DefaultName>TotalProductos</rd:DefaultName>
+        <Top>1.36143cm</Top>
+        <Left>0.09119in</Left>
         <Height>0.6cm</Height>
-        <Width>2.5cm</Width>
+        <Width>5.49393cm</Width>
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
@@ -515,6 +531,47 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="TotalProductos2">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Total Usados:</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Sum(iif(Fields!Clasificacion.Value = "USADOS",CInt(Fields!Cantidad.Value),0),"DsInventarios")</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                  <Format>#,0;(#,0)</Format>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>TotalProductos</rd:DefaultName>
+        <Top>1.36143cm</Top>
+        <Left>5.78554cm</Left>
+        <Height>0.6cm</Height>
+        <Width>5.57331cm</Width>
+        <ZIndex>3</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>1.05208in</Height>
     <Style />
@@ -1339,6 +1396,10 @@
           <DataField>SerieLote</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Clasificacion">
+          <DataField>Clasificacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DsInventarios</rd:DataSetName>

Empresas/72/Formatos/ResguardoAF.rdlc

@@ -1287,7 +1287,7 @@
           </Style>
         </PageHeader>
         <PageFooter>
-          <Height>8.4664cm</Height>
+          <Height>7.77848cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -1573,51 +1573,6 @@
                 <PaddingBottom>2pt</PaddingBottom>
               </Style>
             </Textbox>
-            <Textbox Name="Textbox116">
-              <CanGrow>true</CanGrow>
-              <KeepTogether>true</KeepTogether>
-              <Paragraphs>
-                <Paragraph>
-                  <TextRuns>
-                    <TextRun>
-                      <Value>Fecha Impresión:</Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                        <FontWeight>Bold</FontWeight>
-                      </Style>
-                    </TextRun>
-                    <TextRun>
-                      <Value xml:space="preserve"> </Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                      </Style>
-                    </TextRun>
-                    <TextRun>
-                      <Value>=Today</Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                      </Style>
-                    </TextRun>
-                  </TextRuns>
-                  <Style />
-                </Paragraph>
-              </Paragraphs>
-              <rd:DefaultName>Textbox8</rd:DefaultName>
-              <Top>7.65059cm</Top>
-              <Left>0.25442cm</Left>
-              <Height>0.46771cm</Height>
-              <Width>6.86562cm</Width>
-              <ZIndex>5</ZIndex>
-              <Style>
-                <Border>
-                  <Style>None</Style>
-                </Border>
-                <PaddingLeft>2pt</PaddingLeft>
-                <PaddingRight>2pt</PaddingRight>
-                <PaddingTop>2pt</PaddingTop>
-                <PaddingBottom>2pt</PaddingBottom>
-              </Style>
-            </Textbox>
           </ReportItems>
           <Style>
             <Border>
@@ -1769,8 +1724,28 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="DepartamentoEntrego">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
+    <EmbeddedImage Name="compuproveedores">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQEAYABgAAD/4QCmRXhpZgAATU0AKgAAAAgABgE+AAUAAAACAAAAVgE/AAUAAAAGAAAAZgMBAAUAAAABAAAAllEQAAEAAAABAQAAAFERAAQAAAABAAAewlESAAQAAAABAAAewgAAAAAAAHolAAGGoAAAgIMAAYagAAD5/wABhqAAAIDpAAGGoAAAdTAAAYagAADqYAABhqAAADqYAAGGoAAAF28AAYagAAGGoAAAsY//2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcICQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCABzAGcDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK
+0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9/KCcUV8yf8FhPivr3wa/4J8ePNY8N6hcaTqzraWKXlu5jmt0nuoopCjDlWKMyhhyN2Rg4Nc+KxCoUZ15bRTf3K56WT5bPMMdRwFN2lVlGKb2Tk0rv0ue7+O/jD4T+F1v53ibxN4f8PRY3b9T1GG0XH/bRhXhvjv/AIK//s5fD2Qx3fxQ0a+kDBdulwXGog++6GNlx+Nfz06jqlxq97JcXU81zcTHc8srmR3PqWOSar7jivzutx3Xf8Gkl6tv8rH9NZf9HvLo/wC+4qc3/dUY/nzn9EHg/wD4K9/s5+N5UjtfidpNs8nT+0LW6sV/76miVf1r23wJ8avB/wAUYVk8NeKvDfiCNhkNpupQ3Wf++GNfzB2bEWsfJ6VPBcyWsyyRO0ckZyrIdrKfYjms6PH2Ii7VqUX6Nr87n2WM+itlFejGpgMbUptpP34xmtVfp7M/qb3cf40oOa/mt8Aftp/Fz4WlRoHxK8babCmMQR6xO0PH/TNmKfpXtvgH/guF+0R4MVEuPFem+IoY+iarpFu+fq8axuf++q9ahx5hJfxaco+ln+q/I+CzL6K/EFK7wWKpVF/e5oP7uWS/E/eWivyF8Bf8HH/jiwWP/hJPhx4Y1hVwHbTL24sCffD+cK9p8Cf8HGvwy1YoviLwX400Rn6taNbX8afU742/8dr2KPFmV1P+XlvVNfpb8T8+zLwF43wd28HzrvCcJfgpc34H6I0V4f8Aso/8FEvhT+2bql5pvgfxBJdaxp9v9ruNPu7OS1uEi3BS4DDDqGZQShOCwzjIr3Cvcw+IpV4e0oyUl3Tuj8wzTKcbluIeEzClKlUW8ZxcXrto7Oz6PqFFFFbHnBXyD/wXUOP+Ca3jb3u9L/8AS+Cvr6vkD/guqf8AjWx40/6/NL/9Loa8vOv+RfW/wy/Jn1nAn/JR4H/r7T/9KR+BVFFFfhZ/
+oIaFp/x6x/Su8+AnwRk+PHjqPRR4m8H+EoSN82o+JNXj0+0hXOOrfM7f7KAn6Dmj9mLwv4V8T/FTRF8dSa5b+DLeUS6vJpNk11dGIZIjULjaZCAm8/dBLYJGD+okf7Wn7A9xplvZ33gbw/p8dtEsKG68CyiQKowNzrGzMeOSSSTySTXqZXldPEN1K1WMEntJ2v8A8A7eLuNsblFClhcvwNfETlBNypU+dQ0SV1s5bu3TRvdX4X4Y/wDBEn4G+JfCUKXXx+s9c16QZabRb/TvsgyPurGzO7Y9S4z6CvUPhX/wRj8SfAffefDP40aHD5j7z/avgLTtUZvbznLsB/u4rEfxR/wTj8aL+8t/CtqzdhYavY4/75VQKbp/we/YBu5vM0XxvY+H5GOQ1r4t1C0Kn/to3FfaUcHgY2dONK66xrST/L9T+eMw4k4nrqcMXVxyjJ6xq5fSqQ9LOaSXpE9tsvhd+154FhVbHX/gD4uhj6pqWiXemySD/tgu0VDrHiP4/pEY/E37Mvwp8dJ/y0/srxJbQ7h3wl3Ec/QmuA0X4Lfs4ysq+G/2tPG3h+QfcSy+K8KBf+AyZ/Wux0X4PQQgf8Iz+2n4un/uG913SNXz/wB9LzXpR52rRcvlUhL/ANLR8TW+rqXNWp0r954XEUH/AOW8l+B137Kml6VcfGtby6/ZcuPhD4gjspv+J7BBpzWpU7Q0JltmBYt2Gw9O3WvqSvC/2b/h18Q/DnjNrvXvj1bfE7QVtnT+zj4bsLWZHJG2T7RbPnC8jBXBz2r3Svfy2DjR1TWvVRT/APJNP1PynjDERrY/mhOMkope667it9F9YSqK3bbs9wooorvPlQr4/wD+C6x/41s+M/8Ar90z/wBLoa+wK+Pv+C7H/KNrxl/1+6Z/6XQ15edf8i+t/hl+R9ZwH/yUeB/6+0//AEpH4GUUUV+Fn+gh+k//AARj+NPxD/Z9+CPiO+8HfAbX/iRB4g1VUuNYsdUjtFTyIlC2
++1o2J2mV2znH73pxX2Lcft7/ABgvP+Pz9kXxy+ev/E1t5f5w18Y/8EbdS+PnxD+EPiHwz8JfHngHw5p/h+/W9u7LW9NNxcs1ymBKhET5Q+QRjIwR7ivtCH4J/tnS/wCt+Mfwth9fL8Nbv5wiv0rJamI+pU1RdTl8o02t9bX137n88eIGEyr+3q88wjg/avlu6lXGRqW5I8vMoe4ny2+HS1rGbdftf+MNS/4//wBjXxxN65hs5v5xVm3Xx+h1I/8AEw/Yh8ZTZ658N6dNn80rqH+DH7Wdt/x9/tAfDe09ceE4Tj/voCqtz4D/AGiLAf6d+1Z8N7HHUnwlYcf99OK9GX1n7SqfONH/ADPlKSydfwpYVf4a2YfpBnG3/jvwDq3/AB//ALBvjJz3KeBdOY/pisu7l+Dt6P8ASP2E/ilH6/Z/A1sv/oMwrtLw/FfTT/p37b3wxscdc+FtHXH/AH1OKzLr4g+ItNO2+/4KBfDeNu6xeH9Az/6PNYSX88X840P/AJI9ajJf8uKq/wC3amZ/pQZ2f7D+i/Cu0+NEs/hH9m34kfCfW/7OlU6xrnh02No0RZN0Ik85xuYgEDbztPIr6+r5W/Y++JX/AAkPxdaxm/at0P4yStZSuug2ek6XatwVzNvt8udnoDj5uelfVNfQ5Ty+w91JavZRX/pDa/G5+Q8fe1eafvpOT5VrJ1pO2vWvCFS3yt2e4UUUV6Z8SFfHv/Bdg/8AGtvxj/1/aZ/6WxV9hV8e/wDBdr/lG54w/wCv7TP/AEtiry87/wCRfW/wy/I+s4D/AOSjwP8A19p/+lI/A2iiivws/wBBDvPgb8QYfh1410u9vm1t9FaVF1S20rUnsLi7t92XRZV6N3GQRkDIr9IF1L9gI6Nb3WpeOPG2pSXESytb3Woa3LNFkA7HEahQw6EAkZzyetflnaf8esf0rt/gZ+0D4t/Zv8cw+IvB+rSaVqUa7GJiSeKZM5KSRyBkdTjoR9MHmvQy7NFh
+m4ThGUX/ADR5reiuvuuexxPwTLOcNSxGGxNajUjBWVKr7JT0VlOXJUtbo1FvXW+lv0V07U/2B5pM6T8OPHfiyTsYLPWbov8ATfMtdPo9z+zhI6r4d/Yz+L+vZ+67eDZWjP8AwKWc15h4P/4OOvGmkeEYbPVvhz4Z1HVohtN5a381nA+O5h2vg+uHA9hWx4O/4Lu/ET4qXLQ/2n8FPh1FuwH1uy1q9kI9QYFdPzxX11PMstdlGcLvtRS/GTa/E/B8ZwdxnDmlUw+IcY9Z5hOomu6jShGVv+3U/I9j0rSfDt0o/sH9gCaf+7/a9hpNkfx84Niup0TRPiIXX+yf2J/hP4bU/ce+8Q6SrL9Vgtif1rzHTf22fEXjaNXv/wBs74S+Flf7y6P4K85lH+ybrB/MVYv/AI8fDC4h3eK/26PiDqHd/wDhH4YtN3fQQWshH4GvShiKFrxnb50Ir9WfG4jKMzvyVaCk+3LmlSX/ALZB/efV37Nuj/FWw8ZySeLvh98I/Bvh/wCyOEPh2+mn1DzsrtUjyEj8vG7PzZyBwa90r4k/YR+N3wE8Y/tBDSfAPxI+LXxD8WNp1xJ9o8R6tqd1arCu3zDsn2RbuVwdnHbFfbdfTZXWjUoXjJS13TUvxSSPxPjrA1sJmXs69GVJuKdpU503bXXlnOcrO27av2QUUUV6R8aFfMP/AAWK+FGt/GL/AIJ7+OtL8PWU+papbi01FbWBC8s8dvcxyyhVHLMI1dsDk7cDmvefi58Y/C3wF8B33ijxlr2l+G/D+nKDcX1/OIYkzwFyfvMx4CjLMeACa+QdS/4OJf2WbHWJLVPGWtXUMbbTdQ+Hbwwn3GUDY/4DXQsjxeZYedKhSlKLTTcU3a6/M0wPElDJswoY2c4qVOUZpSaV+Vp+tnax+GU9vJbStHIrI6HDKwwwPuOtRkEV/SL4J1z4Fft8fBiLx5a6X4P8ceEb0TD+0NW0VAE8olZd32iNXTYQck4HGc45r8/P
+j98U/wDgmbp/jWbT7iLzry3kKz3HhRNTNkpzg4eJhC494wR6Gvzj/iF+a1akqWETnKO65ZJr1STt8z+nsN9JXIIU41MxpSpqWzUoST9G3C/yR+Ztmpa1j47dqlC5r9s/2Lf2J/2Kf2jPCL+IfhlpOieOrW1dUuDd6leXE1kxGVWa2mdTGTg43xjODjNdh4n/AGtP2Qf2Lvjl/wAK2vG8D+CPGdrLbQvaW3hWSMxtcKjxbriO3KcrIh3F8AHkjBrDD+GOaVK0qM/iWrSjJtLzVlY+3xn0tuHMLhoSweHnNWSTnKEIt26NOe9ux+KPgP8AZs+IXxRaMeG/A/i7XhIflaw0e4uF/wC+lQj9a9s8A/8ABGz9orx6VeP4fXGk27YJl1W/trPb9UaTzP8Ax2v33vb230uxmubiWOC3t0aSSR22pGqjJJ7AAAmvFv2Wf+CjXwZ/bQ8Uapovwz8ZReJdS0W2F5eRJp13a+VEXCBt00SA5YgYBJr0cL4bwlCVWUpyjHdxVkvV2dvvPiM2+lpmrmqWDwtGk5bKcpTb9LOF/uPzd8A/8G6XxT1lUk8Q+MvBehRt1S2a4v5k+o2Rr+TV7Z4D/wCDb7wbYCM+J/iR4o1YjBddNsYLBT7ZkMxr3nx3/wAFuP2Y/hr441nw3rXxMistZ8P30+m39udE1F/IuIZGjkTcsBVtrqRlSQccE16p+zL+3R8Jf2xrPUJvhr440nxQ2kqr3kEIkhubZWzhnhlVJApIIDbcEjGc1768PaGGp+2q4afL3kpW/RH5vjvpJcV5hU9jRx8IP+Wmqaf32ctPUwP2Q/8AgnF8Lf2J9QvtQ8GaVeNrWoQfZZ9U1G6NzdNDkMY1OAqKWVSQqjJUZzgY94ryP9lb9ur4Wftrx6+3wz8UL4mXwxJDFqRWxubX7M0vmeWP30abs+U/3c4289RVz4i/tmfDf4T/ALQHhb4XeIPEi6f468aRCbRtMNncSG8Qs6A+YiGNctG4+Zh9
+33Fe1Ryiph28LSouLiruKi00rXbatfbW/wAz8uzTiStmtX+0cwxLqynZc8pc1+iSbfySXoj1CiuC+Hn7T/gH4r+L7rQfDvifTtU1S1EjGKLeFnWNgsjQuVCTKpKgmMsBuXJ5FFFSjOm+WaafmrHHTqQmrwaa8j8rv+C3us6l+11/wVT+Cf7PdxqF1Z+D2l06S8jifbunvbhxNNjoXS2QKhOdpd8feNfq34B/Z48C/DHwBa+F/D/hHw7pfh6zhEEVhBp8Qh2AY+YEHeT3ZsliSSSTX5of8F7/ANmXx18Kv2lvhx+1R8P9Kn1geBjaJrUEMTSfY3tLhp4J5FUFjC6u8TsOE2rn72R9AfC//g4a/Zj8b/Du31jWPGN94S1TyQ9zo1/pF3NcW8mPmRXhieOQA8BlbkYyB0H3GY4XE4vK8G8vi5QjFqSim7Tvq2l36N/qfHYHEYfDZjivr0lGcmnFysk4W0Sb7dV/keR/8HFfjyH9lb9hPQvh78P9N0/wjpPxC8QSpqUGk2yWcMlvGhuJ49kYUDzZWiL4+8AwOQxr6q/4Jq/sSeCf2Y/2MvBug2Xh/SJtR1bRra+169ltI5JtTu54lklMjMCWQFyiqeFRVFfMf/BSvwpa/wDBa3/gm5B46+Den65qF54L1+e80y1u7T7Pc63BEhhuVhjySSwZXQHDMYduAzAVc/4J/wD/AAXd+Dmkfss+H/D3xa8R3HgXx94H06LRtVsr7S7p2vGtk8pZozHG3zOqKWRtrK5YYxgmq2FxdXJIYfDRk6kKkvaxV3K7+FtLW1tPUVHEYWnm86+IklCUI+zk7KNvtJN6Xvr6Hz78QPDtv/wTF/4OFvBlj4DVdF8I/FZ7BbzRrUeXaJDqMr2ssQQcBEuYhOijhDgDAGK8n/4LJ/AG9+PH/BUH9oqXTTI194F8Eaf4rEa/8tobe30yOcf8Bhnkk/7Z17N+zboevf8ABYj/AILJWfx4sdC1TTfg/wDDSe3Om6hf
+QGP7X9i3NbQqejSyXLNM6rny04Y7tu71zwB4W0/xx/wck/HDRdUhjvNN1T4ZpZXkDdJopLTSkdCPQqxH419FTx0sJiY1Z61qWH9/q7qUXZ+dtH6nhVMHHFYeVOGlKpX9ztZxlqvK+qLXxr/4KMXnxK/4IQeHvEWk3DXfxB+KFlb/AA8hijf9/NqsjG0uyB1DNFHNIuOnmp6ivH/+Dez4Sf8ACgv+Cjn7Qfgb7S143g+xbRnnP/LV4NQWNm+hZTj2xXMf8EwP+CevxV8L/wDBQ2w+HvjTRPEsPwn+CPibVfFunXd9pskOn6pfAQ21tLDMyhJC/l28wVScCOQ8ZNeuf8EfyD/wWl/a++ZW/wCJnqPfrjWDmufEU8PhsHjMJhZKUZR9pdf3ppRj/wBuxX4m2HqV8Ri8JisSmpKShZ/3Yvmfzk/wPEP2Avi98Ifg7/wVW/amvvjFqHhDT9Dm1XWY7Q6/bJcRyzDWHJWNGRyz7A3CjJFdH/wRo8Maf8X/APgr38WPiT8JtCutC+DllZ6lDE6W5t7XbcNF5NuqdE3ujTrF/AqAEDAFSf8ABK79nrwL+0P/AMFdP2prHx14T8N+MLHT9W1a5tbfV7GO8jglOsspdVcEBsEjPoa/YvwX8O9B+GnheLRfDei6T4f0e3BEVlptpHaW8Weu2OMBR+Arl4kzinhJ1KEFJzq04Rd37qXKtUt2/N7HTw/ldTFQp1puKhTqSasvebu9G+3puflH/wAGqR/4l/x+/wCwjo/8r+uw/wCCj9ut9/wX/wD2XbdvuzaMiOAcHa1xfg4PUcZ5FeI/8En/ANojw/8A8Edv2sPjR8LfjpJe+DU1+5t5tO1WeymltZxbSXIRwY1ZjHNHMro4BX5SCQeK9A0v4v6f/wAFRv8AgvJ8N/Gfwth1DWPh/wDCHRxHqmvtZyQWzMn2uQEbwpG+W4jjRWAZtrsBtGa68ZQqLOMTmDi/YypNqf2XemkrPZtvS25zYWtTeVYf
+A3/exqJOP2labbut7Ja32Pub9nv9ha8+D/xPsdbvvElnqVjoYVrGO309re4upEs3soZJ2MjIvl2sjoUgVEkciQgFQtFfRyjCiivy7FYqriJ89V3drf1Y/RMPhqdCPJTVlueW/tK/tN2/7PVz4P09fCviLxhrHjrVn0bS9O0drVJZJktZrpizXM0UaqIoJDkt1wMc1832P7TXwW8e+N9PtNB/ZtvvEnj67n1iLUtKXwzocGraNcaXJbJdJO886Rs3+lwMhikkDq4INenft6/CDxF8Xvip8AodBuvFGjx6b40ubq/1rQoI5LjRoTo1/GJS0sUsSKzusW50IzIAMMQa8h+Lv/BOrUtP+Pfgvw98O/EXxE8GxzeEPF13feNrO5M13LrV7c6a6y31y0Z8xpmQsUUxsVgxGUCDH0OW08GqUOeVpSjJvWXTn+Kz20VktWeJjqmKdSfJG8YuKWi68u11vq7t6Htem/8ABQfwbrHws+HOoeBPD3iPxZqnxKguG8O+GdPtIbS9SO0JS7a4850htY7eQeW7O4G8qqbyQDxXjT9pL4P+ItXvJ/id8G003xhoOs6RpOuWviDQ9NvbjSIdTm+z2epfaQzxzWLTYjMsTsyNkMikEV578FLPWvgL8QvhR8RL34TeJvDHh/wf4P1L4W+J9C0fSbm/Phu5S8trmPUbaNQ895YztA58+ISNiVGckhyOuvPgH/w8D+PXxV8VahoXiDw78Pde+GyfDjTJ9Z0yXT7zVp3upruTUIraYLNHHAzwiJpUUs4dlG0AnX6rhaM3LVQ1fNza357cujs/d101fxX5dDL61iasFHRz0XLbT4b82quve07L4bc2p7B+0v8AtleDf2KtKjs7zRdTuodP8Oal4kks9FggC2Gn2BgSRirOirvluYY0A+8zHoFJGB4x/bG/4VVoq+K/EnwR8daFqmsavpnhvS43fRZb7W7m+l8mGJJIrxgqqypuMzoAGXGcHHzPrnwd+LXx8/YS
++P8A4w+IHg/XF+KGr+DLfwDpWkCzeS7uotOjzcXMCKMst5fy3Eq4B3Rxw9QAa2/2jdD0/wAc/APRNJ8KaX+0vrEOlfEHwzresSa3pniKTVLOyhvF8+WxkuE80PGgLEW+WUgMBnBqqOV4ZctOXvPm5ZNNtfZe6aSWrjre7WlhVMxxD5px91ct4ppJ/aWzTb2v0tfW59FeLv26dS8C3/g/SdS+DvxGg8V+OtRvbDR9CF1o73Nwtpai6lnMgvfIWPZvABkDkxt8uCpNPQP27/hr4W0b4h614j8O658N/EXgSCC78Q6RrGkxR6rNHcvstpITbtIl2s837pDFI+ZflO1jivIfFniW28P/ABj/AGf/ABToXhn48eIPCvgXW/EA1i613wzrmo6vbG60l44m2XERuXiMjqgYAqpyMjBrD/aR+Bnjv9sH4leK/jB4b8E+ItLt/CGleHrLw7omuwf2XqHjB9O11dXu8wS4eGMogihEwUvIWOFXBM08vwr5FVXJGS1d2rP2jXLZtrWNn3V+ZuyKnjsSuZ03zNPRWTuuRPm0S+1ddnayV2fQngD9qmx0P4p6Dpfi74S+JvhTd/ES4e10PVNTj06SHVLrY0/2SeS0mkaC5dEd1jmwHKOAxYbao/Bn/gpXoPxc13wbHL4H8eeG9B+IWpXmj+HPEGoxWT6dqV5bG43wHybiSWF2+yzlPNjUN5Z56Vyfxo+IM37cXjb4R+HPB/hPx5YQ+GvG2meMfEWpeIPDN5otvoUGnl5vs5a5RPNuZZTHEEh8wBWkYsFAJ8a/ZA/Zs8cfs9xfA/x94i0Pxx4o0e31bWtLv/DF5BI8vgCe91G6W31i0tVVT5RiYxzFw7pFdeYhC7wSOX4SWGdSsuWpso3fadrXe7cVo7+XxRFLHYmNdU6T5qe/NZd4XvZdE3tbz+FnuN7+1/4J/aE+Guo+MvFnwR13Ufhf4cXV57nxNr1lo99Y20enNcR3Ei25uJLk5ktXRQsOWJU4
+AOR6h+yV42k1/QJLW2+DeqfCjQmt4tQ05ZP7LW2vElGQPLspn8qULtLK6jAYYY4OPlf9iG00b4JfCzUNM8ceEf2hr7XJr3xLHqXhxvDuu3/hy5trjUr2VRHbeWbJ/Nt3Rht+80jdWYg+jfsC6bfeDv2hNf0H4ej4if8ADPsHh2OeytPF2mXtmPD+rm42ix0030cdy1r9nDM6MHSJwgRvmKicwwdKMKtOkmoxejfNytJ9HzNcz9LSW1mtbwOKqSnSnUabktUrXTt10TsvW6e91t9iUUUV8mfShRRRQAYoAxRRQAUYoooAMUYoooAMUUUUAGKMYoooAKKKKAP/2Q==</ImageData>
+    </EmbeddedImage>
     <EmbeddedImage Name="Logo1">
       <MIMEType>image/png</MIMEType>
       <ImageData>iVBORw0KGgoAAAANSUhEUgAACIsAAAhVCAYAAADwAbiCAAAACXBIWXMAAC4jAAAuIwF4pT92AAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1MAAA6mAAADqYAAAXb5JfxUYAA5a0SURBVHja7P3ZchvLsi5qOtj3ndox1z513q1uzjPVTb1MPUVdldnZe6+15pxjqJcoiQ3qIsJHBFJUD5AA8vvM0kBSJEWCANIz40/3yXQ6DQAAAAAAAAAAxmHDXQAAAAAAAAAAMB7CIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAAAAAAMCLCIgAAAAAAAAAAIyIsAgAAAAAAAAAwIsIiAAAAAAAAAAAjIiwCAAAAAAAAADAiwiIAAAAAAAAAACMiLAIAAAAA

Inventarios/PrestamosdeProveedor.aspx

@@ -126,7 +126,7 @@
 
     <asp:UpdatePanel runat="server" ID="UppEntrega" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
+            <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento, AplicaLote, AplicaCaducidad" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
                         <%--<HeaderTemplate>
@@ -145,10 +145,28 @@
                     <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
                     <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
-                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
-                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" />
-                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="15%" />
-                    <asp:BoundField HeaderText="F. Caducidad" DataField="FechaCaducidad" ItemStyle-Width="15%" />
+                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="35%" />
+                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false"/>
+                    <asp:TemplateField HeaderText="Lote" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Center" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlLote" runat="server" Text='<%# Eval("Lote", "{0}") %>'></asp:Literal>
+                            <asp:Textbox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:Textbox>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center" />
+                     </asp:TemplateField>
+
+                    <asp:TemplateField HeaderText="Fecha" ItemStyle-Width="25%" HeaderStyle-HorizontalAlign="Center" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
+                            <asp:Textbox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Textbox>
+                            <asp:RequiredFieldValidator ID="RFVFechaCad" runat="server" ControlToValidate="TxtFechaCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCFechaCad" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCad" Width="350px"></ajax:ValidatorCalloutExtender>
+                            <ajax:MaskedEditExtender ID="MEEFechaCad" runat="server" TargetControlID="TxtFechaCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <asp:CompareValidator ID="CVFechaCad" runat="server" ControlToValidate="TxtFechaCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpRecibir"></asp:CompareValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCEFechaCad" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCad" Width="350px"></ajax:ValidatorCalloutExtender>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center" />
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
 

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -66,7 +66,12 @@ Partial Class Inventarios_PrestamosdeProveedor
                 CveMovimiento = Dr("CveMovimiento").ToString.ToEntero
             End If
 
-        End If
+        End If
+
+        GvD.Columns(6).Visible = ObjInv.DtResultados.MAX("Serie") <> ""
+        GvD.Columns(7).Visible = ObjInv.DtResultados.MAX("Lote") <> ""
+        GvD.Columns(8).Visible = ObjInv.DtResultados.MAX("FechaCaducidad").ToDate > MinFecha
+        GvD.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
         ObjInv.Dispose()
         GvD.DataBind()
@@ -90,18 +95,35 @@ Partial Class Inventarios_PrestamosdeProveedor
             Else
                 If TxtFolioEntrega.Text <> "" Then
                     e.Row.FCCheckBox("Chk").Visible = True
-                    e.Row.FCTextBox("TxtCantidad").Enabled = True
+                    e.Row.FCTextBox("TxtCantidad").Enabled = True
+
+                    If e.Row.DataKey("AplicaLote").ToString = "True" Then
+                        e.Row.FCLiteral("LtlLote").Visible = False
+                        e.Row.FCTextBox("TxtLote").Visible = True
+
+                    End If
+
+                    If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then
+                        e.Row.FCLiteral("LtlFechaCaducidad").Visible = False
+                        e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
+
+                    End If
+
+
                 End If
                 e.Row.FCTextBox("TxtCantidad").Visible = True
                 e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
+
+
+
+            End If
+
+                ''FUNCIONALIDAD PISTOLA DE CODIGOS
+                'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
+                '    e.Row.FCTextBox("TxtCantidad").Enabled = False
+                'End If
+
             End If
-
-            ''FUNCIONALIDAD PISTOLA DE CODIGOS
-            'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
-            '    e.Row.FCTextBox("TxtCantidad").Enabled = False
-            'End If
-
-        End If
     End Sub
 
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
@@ -169,7 +191,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                     If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal > 0 Then
                         CveMovimientoDetalleEntrada = gvr.DataKey("CveMovimientoDetalle").ToString.ToEntero
                         CvePS = gvr.DataKey("CvePS").ToString.ToEntero
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToString.ToDate) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.FCTextBox("TxtLote").ToString, FechaCaducidad:=gvr.FCTextBox("TxtFechaCaducidad").ToString.ToDate) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al guardar los movimientos de salida"
                             Exit For

Inventarios/RecepcionAlmacen.aspx

@@ -350,7 +350,7 @@
             </asp:UpdatePanel>
 
             <%--ADVERTENCIA--%>
-            <asp:UpdatePanel runat="server">
+            <asp:UpdatePanel runat="server" ID="UpAdvertencias" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="row">
                         <div class="col-md-12" style="vertical-align: middle;" align="center">

Inventarios/RecepcionAlmacen.aspx.vb

@@ -977,11 +977,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         SumarImporteUsados = True
                         DtRecepcion = ObjInventario.DtResultados.Copy()
                         If TipoMovimiento <> 3 Then 'sino es devolucion/NC
-                            If UsuarioActual.CveRol = 1 Then
-                                CargaAlmacenes(-1, "22", CveTipoCompra)
-                            Else
-                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
-                            End If
+                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
                         End If
 
                     Else
@@ -1009,6 +1005,12 @@ Partial Class Inventarios_RecepcionAlmacen
                         DivVirtualAdvertencia.Visible = False
                     End If
 
+                    'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL
+                    If Not SumarImporteUsados AndAlso CveTipoCompra = 9 Then
+                        RealizarMovimientoVirtual = False
+                        DivVirtualAdvertencia.Visible = False
+                    End If
+
                     If TipoMovimiento = 2 AndAlso CveAlmacenDevolucionProveedor > 0 Then
                         RealizarTraspasoAlmacenDevolucion = True
 
@@ -1142,6 +1144,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
         CargaGVInv()
 
+        UpAdvertencias.Update()
         UpDocumentos.Update()
     End Sub
 
@@ -2796,7 +2799,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     'VERIFICA SI TIENE ALMACEN VIRTUAL
                     If CveAlmacenVirtual > 0 Then
-                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa, CveCompra:=CveCompraSurtir, ValidaUsadosCompra:=SumarImporteUsados) Then
                             DtPSVirtual = ObjInventario.DtResultados
                         End If
 
@@ -2991,7 +2994,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             CveMovimientoRef = CveMovimiento
                         End If
 
-                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa, CveCompra:=CveCompraSurtir, ValidaUsadosCompra:=SumarImporteUsados) Then
                             DtPSVirtual = ObjInventario.DtResultados
                         End If
 
@@ -4687,6 +4690,13 @@ Partial Class Inventarios_RecepcionAlmacen
         Return Retorno
     End Function
 
+
+    Public Class MMovimientoAlmacen
+        Public Property CveMovimiento As Integer
+        Public Property Folio As Integer
+
+    End Class
+
     'Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
     '    Dim Retorno = True
     '    Dim Archivo As System.IO.FileInfo = Nothing
@@ -4717,8 +4727,3 @@ Partial Class Inventarios_RecepcionAlmacen
 
 End Class
 
-Public Class MMovimientoAlmacen
-    Public Property CveMovimiento As Integer
-    Public Property Folio As Integer
-
-End Class

Inventarios/RecepcionUsados.aspx

@@ -297,9 +297,9 @@
                                     </div>
                                     <div class="tools">
                                         <asp:Panel runat="server" DefaultButton="BtnConsultarPendientes">
-                                            &nbsp; 
-                                           
-                                                    <b>Sucursal:</b>
+                                            &nbsp;<b>Servicio a Domicilio:</b>
+                                            <asp:CheckBox ID="ChkServicioDomicilio" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                            &nbsp;<b>Sucursal:</b>
                                             <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="90px"></asp:DropDownList>
 
                                             <asp:TextBox ID="TxtFechaPendientes" runat="server" CausesValidation="true" MaxLength="10" ValidationGroup="GrpPendientes" Width="70px" ClientIDMode="Static"></asp:TextBox>

Inventarios/RecepcionUsados.aspx.vb

@@ -2047,7 +2047,7 @@ Partial Class Inventarios_RecepcionUsados
 
     Private Sub CargaPendientesRecibir()
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa, ServicioDomicilio:=ChkServicioDomicilio.Checked) Then
             GVPendientes.DataSource = ObjVentas.DtResultados
         End If
         ObjVentas.Dispose()
@@ -2227,10 +2227,10 @@ Partial Class Inventarios_RecepcionUsados
                 Me.ObjRemisionNC.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
                 Me.ObjRemisionNC.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
 
-                Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago
+                Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33
 
-                If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
-                    Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
+                If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows.Count > 0 Then
+                    Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows(0)("MetodoPago").ToString
                 Else
                     Me.ObjRemisionNC.CveMetodoPago = 1
                     Me.ObjRemisionNC.MetodoPago = "Efectivo"

Metronic/assets/admin/layout/css/custom.css

@@ -30,7 +30,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
 }
 
 .ADSContainer > div {
-    display: table;
+    /*display: table;*/
     overflow: hidden;
 }
 

Nomina/Nomina2.aspx

@@ -138,16 +138,22 @@
     <asp:UpdatePanel ID="UpAccciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkAutorizar" Visible ="true" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
+                <asp:LinkButton ID="LnkAutorizar" Visible ="false" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkRegistrarProvision" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
+                <asp:LinkButton ID="LnkRegistrarProvision" Visible ="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkCargaAsistenciaMasiva" OnClick="LnkCargaAsistenciaMasiva_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga masiva de Asistencia</asp:LinkButton>
+                <asp:HyperLink ID="LnkProvisionNomina" Visible="false"  runat="server"><i class="fa fa-eye"></i>Ver provisón</asp:HyperLink>
             </li>
             <li>
-                <asp:LinkButton ID="LnkListaRaya" OnClick="LnkListaRaya_Click" runat="server"><i class="fa fa-file-text" aria-hidden="true"></i>Lista de raya</asp:LinkButton>
+                <asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkCargaAsistenciaMasiva" OnClick="LnkCargaAsistenciaMasiva_Click" runat="server"><i class="fa fa-check" aria-hidden="true"></i>Carga masiva de asistencia</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkListaRaya" Visible="false" OnClick="LnkListaRaya_Click" runat="server"><i class="fa fa-file-text" aria-hidden="true"></i>Lista de raya</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkModalPlantillaNomina" OnClick="LnkModalPlantillaNomina_Click" runat="server"><i class="fa fa-upload"></i>Cargar masiva de conceptos</asp:LinkButton>
@@ -159,7 +165,7 @@
                 <asp:HyperLink ID="HypAsistencia" NavigateUrl="/RH/Asistencias.aspx" runat="server"><i class="fa fa-list" aria-hidden="true"></i>Ir a asistencia</asp:HyperLink>
             </li>
             <li>
-                <asp:LinkButton ID="LnkFormatoTabular" OnClick="LnkFormatoTabular_Click" CssClass="" runat="server"><i class="fa fa-download"></i> Nomina tabular</asp:LinkButton>
+                <asp:LinkButton ID="LnkFormatoTabular"  Visible="false" OnClick="LnkFormatoTabular_Click" CssClass="" runat="server"><i class="fa fa-download"></i> Nómina tabular</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkSimulador" OnClick="LnkSimulador_Click" runat="server"><i class="fa fa-calculator"></i> Simulador</asp:LinkButton>
@@ -168,13 +174,10 @@
                 <asp:LinkButton ID="LnkUpSuamodal" OnClick="LnkUpSuamodal_Click" runat="server"><i class="fa fa-check"></i> Procesar archivo SUA</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkDownArchivosSua" OnClick="LnkDownArchivosSua_Click" runat="server"><i class="fa fa-download"></i> Descargar Archivos SUA</asp:LinkButton>
+                <asp:LinkButton ID="LnkDownArchivosSua" OnClick="LnkDownArchivosSua_Click" runat="server"><i class="fa fa-download"></i> Descargar archivos SUA</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkTimbrarTodos" Visible="true" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
-            </li>
-            <li>
-                <asp:HyperLink ID="HypPDFSTimbrados" NavigateUrl="#" runat="server"><i class="fa fa-download" aria-hidden="true"></i>PDF Timbrado</asp:HyperLink>
+                <asp:HyperLink ID="HypPDFSTimbrados"  Visible="false" onclick="GETPDF(-1,0)" NavigateUrl="#" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Recibos timbrados</asp:HyperLink>
             </li>
         </ContentTemplate>
         <Triggers>
@@ -461,8 +464,8 @@
                                                     <asp:HyperLink ID="HypXml" Visible="false" NavigateUrl="#" runat="server">XML</asp:HyperLink>
                                                     <asp:HyperLink ID="HypPDF" Visible="false" NavigateUrl="#" runat="server"><i class="fa fa-ad-pdf"></i></asp:HyperLink>
                                                     <asp:LinkButton runat="server" ID="LnkTimbrar" CssClass="btn btn-circle btn-sm blue mysmallbtn" Text="<i class='fa fa-bell'></i>" OnClick="LnkTimbrar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Timbrar?" data-btn-ok-label="si" />
-                                                    <asp:LinkButton runat="server" ID="ImgDelete" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='icon-trash'></i>" OnClick="ImgDelete_Click" CommandArgument='<%# Eval("CveNomina") %>' Visible='<%# (Eval("CveNomina").ToString() != "" && Eval("SeTimbro").ToString() == "False"? true :false)%>' data-popout="true" data-original-title="¿Está seguro que desea eliminar la nómina?" data-btn-ok-label="si" />
-                                                    <asp:LinkButton runat="server" ID="LnkCancelar" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='fas fa-ban'></i>" OnClick="LnkCancelar_Click" CommandArgument='<%# Eval("CveNomina") %>' Visible='<%# (Eval("CveNomina").ToString() != "" && PermisoCancelarEmitido && Eval("SeTimbro").ToString() == "True"? true :false)%>' data-popout="true" data-original-title="¿Está seguro que desea cancelar la nómina?" data-btn-ok-label="si" />
+                                                    <asp:LinkButton runat="server" ID="ImgDelete" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='icon-trash'></i>" OnClick="ImgDelete_Click" CommandArgument='<%# Eval("CveNomina") %>' Visible='<%# (Eval("CveNomina").ToString() != "" && Eval("SeTimbro").ToString() == "False"? true :false)%>' data-toggle="confirmation"  data-popout="true" data-original-title="¿Está seguro que desea eliminar la nómina?" data-btn-ok-label="si" />
+                                                    <asp:LinkButton runat="server" ID="LnkCancelar" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='fa fa-ban'></i>" OnClick="LnkCancelar_Click" CommandArgument='<%# Eval("CveNomina") %>' Visible='<%# (Eval("CveNomina").ToString() != "" && PermisoCancelarEmitido && Eval("SeTimbro").ToString() == "True"? true :false)%>' data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar la nómina?" data-btn-ok-label="si" />
                                                 </div>
                                             </ItemTemplate>
                                         </asp:TemplateField>

Nomina/Nomina2.aspx.cs

@@ -365,6 +365,23 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
             using (ClsNominas objnom = new ClsNominas())
             {
+                if (objnom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, FiltCvePeriodo))
+                {
+                    DataRow drow = objnom.DtResultados.Rows[0];
+                    int Estatus = drow["Estatus"].ToString().ToEntero();
+                    int CvePrePolizaProvision = drow["CvePrePolizaProvision"].ToString().ToEntero();
+
+                    LnkAutorizar.Visible = (Estatus == 1);
+                    LnkRegistrarProvision.Visible = (Estatus > 2);
+                    LnkTimbrarTodos.Visible = (Estatus > 1);
+
+                    LnkProvisionNomina.Visible = CvePrePolizaProvision > 0;
+                    LnkProvisionNomina.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvision}&Tipo=NOMPROV";
+                    UpAccciones.Update();
+                }
+                LnkListaRaya.Visible = true;
+                LnkFormatoTabular.Visible = true;
+                HypPDFSTimbrados.Visible = true;
                 if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 1)
                 {
                     dtempleados = objnom.DTSetResultados.Tables[3];
@@ -383,7 +400,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         if (continuar)
         {
 
-            string ctipo = "P";
+            //string ctipo = "P";
             /*
             while (GvNominas.Columns.Count > 3)
             {
@@ -1045,11 +1062,17 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 string RFCEmisor = UsuarioActual.Empresa.RFC;
 
 
-                if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor))
+                if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor,4))
                 {
                     Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", "", ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0);
 
-                    Alert("La nómina con folio fiscal fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
+                    Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
+                }
+                else
+                {
+
+                    ObjTimbrado.MensajeErrorCFDI.GuardaLog();
+                    Alert($"no se pudo cancelar el folio fiscal<br>{ObjTimbrado.MensajeErrorCFDI}", TipoMensaje.MsgAdvertencia);
                 }
             }
 
@@ -2352,7 +2375,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             if (iniciotipe < column)
             {
                 libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
-                libro.Range(filainicio + 1, iniciotipe + 1, filainicio+1, column).Merge().Value = "Obligaciones";
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Obligaciones";
             }
 
             //libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
@@ -2364,7 +2387,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             //libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
             int maxnocolumn = column;
 
-            int Fila = filainicio+3;
+            int Fila = filainicio + 3;
             int cveSupProyecto = -5;
             string subproyecto = "";
             int oldcveSupProyecto = -5;
@@ -2388,7 +2411,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 column = 1;
                 libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]);
                 column++;
-                if (newsubproyectoTitulo) {
+                if (newsubproyectoTitulo)
+                {
                     libro.Cell(Fila - 1, column).Value = subproyecto;
                     libro.Range(Fila - 1, 1, Fila - 1, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(155, 194, 230));
                 }
@@ -2489,7 +2513,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             Response.Buffer = true;
 
             Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
-            Response.AddHeader("content-disposition", string.Format("attachment;filename={0} {1}.xlsx", "Nomina tabular", periodo ));
+            Response.AddHeader("content-disposition", string.Format("attachment;filename={0} {1}.xlsx", "Nomina tabular", periodo));
             Response.BinaryWrite(memoryStream.ToArray());
             Response.End();
         }
@@ -5049,7 +5073,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
     }
     public static byte[] MergeFiles(List<byte[]> sourceFiles)
     {
-        string destinationFile;
+        //string destinationFile;
         try
         {
             using (MemoryStream ms = new MemoryStream())
@@ -5145,8 +5169,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 {
                     mimeType = MimeMapping.GetMimeMapping(PathXML);
                 }
-                catch (Exception ex)
+                catch (Exception )
                 {
+                    
                 }
                 // Response.Write(path)
                 Response.Clear();

Nomina/ReportedeAcumulados.aspx.cs

@@ -194,7 +194,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
         if (continuar)
         {
 
-            string ctipo = "P";
+            //string ctipo = "P";
 
             int CurrentColumn = 2;
             BoundField bf;
@@ -319,7 +319,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
                 GvNominas.Columns[i].Visible = false;
 
             }
-            bool tr = false;
+            //bool tr = false;
             setGVNominas();
         }
         else

OC/OC.aspx

@@ -814,6 +814,7 @@
                                                         Cultivo:
                                                         <asp:DropDownList ID="DdlCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server"   DataTextField="Cuadro" Style="width: 100%; max-width: 600px;" 
                                                         DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpDetalleGuardar">                                                        
+                                                            <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                                     </asp:DropDownList>
                                                     </div>
                                                     

OC/OC.aspx.vb

@@ -2160,7 +2160,6 @@ Partial Class OC
             DdlClasificacion.SelectedIndex = 0
             DdlP2.SelectedValue = "-1"
             DdlP2.SelectedText = "Seleccione un producto o servicio"
-
             txtPrecioUnitario.Text = ""
             TxtObsPS.Text = ""
             HdnCveActivoFijo.Value = ""

RH/CalculoSBC.aspx

@@ -88,7 +88,7 @@
                             </tr>
                         </table>
                         <asp:GridView ID="GVCalculosSBC" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalculosSBC" AutoGenerateColumns="False" data-tableheader="#tableheader"
-                            DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados">
+                            DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDINuevo,SalarioVariableNuevo,SalarioDiarioSSNuevo,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados,Movtotxt">
                             <Columns>
                                 <asp:TemplateField HeaderText="Código">
                                     <ItemTemplate>

RH/CalculoSBC.aspx.cs

@@ -5,8 +5,19 @@ using System.Web;
 using System.Web.UI;
 using System.Web.UI.WebControls;
 using Extensiones;
-public partial class RH_CalculoSBC :  ClsPaginas
+public partial class RH_CalculoSBC : ClsPaginas
 {
+
+    //private DataTable dtPeriodos
+    //{
+    //    get
+    //    {
+    //        if (ViewState["dtPeriodos"] == null) { return null; }
+    //        else { return (DataTable)ViewState["dtPeriodos"]; }
+    //    }
+
+    //    set { ViewState["dtPeriodos"] = value; }
+    //}
     protected void Page_Load(object sender, EventArgs e)
     {
 
@@ -14,9 +25,9 @@ public partial class RH_CalculoSBC :  ClsPaginas
 
     protected void LnkCalcular_Click(object sender, EventArgs e)
     {
-        using(ClsNominas objnom = new ClsNominas() )
+        using (ClsNominas objnom = new ClsNominas())
         {
-           if( objnom.GetCalculoSBC(UsuarioActual.CveEmpresa,TxtFechaPago.Text))
+            if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, TxtFechaPago.Text))
             {
                 GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0];
                 GVCFija.DataSource = objnom.DTSetResultados.Tables[0];
@@ -32,12 +43,12 @@ public partial class RH_CalculoSBC :  ClsPaginas
     {
 
         string concater = "";
-        string MovtosAfil = "";
+        //string MovtosAfil = "";
         string MovtosmodSalario = "";
-        string movtosBajas = "";
+        //string movtosBajas = "";
         using (ClsRH ObjPersonal = new ClsRH())
         {
-            if (ObjPersonal.GetMovimientosToSUA(UsuarioActual.CveEmpresa,"2021-01-01", "2021-02-28"))
+            if (ObjPersonal.GetMovimientosToSUA(UsuarioActual.CveEmpresa, "2021-03-01", "2021-03-03"))
             {
                 ////01: MovtosAfil
                 //concater = "";
@@ -47,14 +58,29 @@ public partial class RH_CalculoSBC :  ClsPaginas
                 //    concater = "\\r\\n";
                 //}
 
-                //02: MovtosmodSalario 
+                //02: MovtosmodSalario GVCalculosSBC
                 concater = "";
+                int contador = 0;
                 foreach (var item in ObjPersonal.DtResultados.Select("Tipo=2"))
                 {
 
                     MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item["Movtotxt"]);
                     concater = "\\r\\n";
+                    contador++;
                 }
+                foreach (GridViewRow item in GVCalculosSBC.Rows)
+                {
+                    double SalarioDiarioSSNuevo =Math.Round( item.DataKey("SalarioDiarioSSNuevo").ToDouble(),2);
+                    double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(),2);
+                    if (SalarioDiarioSSNuevo != SalarioDiarioSS)
+                    {
+                        MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item.DataKey("Movtotxt"));
+                        concater = "\\r\\n";
+                        contador++;
+                    }
+                }
+                MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater,
+                $"*************                                           00{(contador < 1000 ? "0" : "")}{(contador < 100 ? "0" : "")}{(contador < 10 ? "0" : "")}{contador}                                                                       00001                             9");
                 ////03: movtosBajas
                 //concater = "";
                 //foreach (var item in ObjPersonal.DtResultados.Select("Tipo=3"))
@@ -64,15 +90,48 @@ public partial class RH_CalculoSBC :  ClsPaginas
                 //}
 
             }
-            RegistraScript(string.Format("SaveCsv(\"MovtosmodSalario.txt\", '{0}');", MovtosmodSalario));
+            RegistraScript(string.Format("SaveCsv(\"MovtosmodSalario{1:ddMMMyyyy}.txt\", '{0}');", MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy")));
             //RegistraScript(string.Format("SaveCsv(\"MovtosAfil.txt\", '{0}');SaveCsv(\"MovtosmodSalario.txt\", '{1}');SaveCsv(\"movtosBajas.txt\", '{2}');", MovtosAfil.Replace("'", "\\'"), MovtosmodSalario.Replace("'", "\\'"), movtosBajas.Replace("'", "\\'")));
-            RegistraScript("$('#DmodalGetSua').modal('hide');");
+            //RegistraScript("$('#DmodalGetSua').modal('hide');");
         }
     }
 
     protected void LnkGuardarCambios_Click(object sender, EventArgs e)
     {
-        Alert("Se registro la modificación de salario correctamente.");
+        string fecha = TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd");
+        bool continuar = true;
+        using (ClsRH objrh = new ClsRH())
+        {
+
+            foreach (GridViewRow item in GVCalculosSBC.Rows)
+            {
+                int CvePersonal = item.DataKey("Movtotxt").ToEntero();//,,,
+                double SalarioDiario = item.DataKey("SalarioDiario").ToDouble();
+                double SDINuevo = item.DataKey("SDINuevo").ToDouble();
+                double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(),2);
+                double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble();
+                double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(),2);
+                if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario)))
+                {
+
+                }
+            }
+        }
+        if (continuar)
+        {
+            Alert("Se registro la modificación de salario correctamente.");
+            LnkDownArchivosSua_Click(null, null);
+        }
+        else
+        {
+
+        }
+        /*
+        
+        Using ObjPersonal As ClsRH = New ClsRH()
+            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
+
+         * */
     }
 
     protected void LnkDescargar_Click(object sender, EventArgs e)

RH/CatPersonal.aspx

@@ -471,10 +471,10 @@
                                     &nbsp;<asp:Literal ID="LtlProyecto" runat="server" Text='<%# Eval("Proyecto", "{0}") %>'></asp:Literal>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField Visible="false">
+                            <asp:TemplateField >
                                 <HeaderTemplate>FechaIngreso</HeaderTemplate>
                                 <ItemTemplate>
-                                    <asp:Literal ID="LtlFechaIngreso" runat="server" Text='<%# Eval("FechaIngreso") %>'></asp:Literal>
+                                    <asp:Literal ID="LtlFechaIngreso" runat="server" Text='<%# Eval("FechaIngreso", "{0:dd/MM/yyyy}") %>'></asp:Literal>
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:TemplateField>
@@ -603,7 +603,7 @@
                                     <asp:Literal ID="LtlClienteAsignado" runat="server" Text='<%# Eval("ClienteAsignado") %>'></asp:Literal>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField>
+                            <asp:TemplateField  Visible="false">
                                 <HeaderTemplate>Fecha registro</HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng   ", "{0:d}") %>'></asp:Literal>
@@ -708,7 +708,7 @@
                                     </div>
                                     <div class="row">
                                         <div class="col-md-3">
-                                            <asp:CheckBox ID="ChkFechaIngreso" runat="server" Text="Fecha de Ingreso" />
+                                            <asp:CheckBox ID="ChkFechaIngreso" Checked="true" runat="server" Text="Fecha de Ingreso" />
                                         </div>
                                         <div class="col-md-3">
                                             <asp:CheckBox ID="ChkSeInscribioSS" runat="server" Text="SeInscribioSS" />

Scripts/custom.js

@@ -1,7 +1,7 @@
 var IHAVEALLTHEPOWER = false;
 var objscollapse = null;
 var objsexpand = null;
-var adscrollerposition =[];
+var adscrollerposition = [];
 conf = {
     error: console.error,
     info: console.info,
@@ -78,10 +78,10 @@ function FiltrarTabla(idtxt, idtable, idcontador) {
 }
 
 function FiltrarTablaV2(idtxt, idtable, idcontador) {
-    if ($( idtxt).val() == '') { $(idtable + ' tr').css('display', 'table-row'); }
-    else { $(idtable + ' tr:not(.ADtr)').css('display', 'none'); $(idtable + ' tr:contains("' + $( idtxt).val() + '")').css('display', 'table-row'); }
+    if ($(idtxt).val() == '') { $(idtable + ' tr').css('display', 'table-row'); }
+    else { $(idtable + ' tr:not(.ADtr)').css('display', 'none'); $(idtable + ' tr:contains("' + $(idtxt).val() + '")').css('display', 'table-row'); }
     if ($('#' + idcontador).length > 0) {
-        $('#' + idcontador).html($( idtable + ' tr:visible').length);
+        $('#' + idcontador).html($(idtable + ' tr:visible').length);
     }
 }
 
@@ -354,7 +354,7 @@ function ADScroller2() {
             var heightGral = $(window).height() - HeightMenos;
             if (Heightfijo > 0) { heightGral = Heightfijo; }
             if (widthGral < 300) { widthGral = 300; }
-            if (heightGral < 300) { heightGral =300; }
+            if (heightGral < 300) { heightGral = 300; }
 
             widthGral = Tthis.parent().parent().width();
             Tthis.removeClass('ADSCROLLER2');
@@ -426,8 +426,8 @@ function ADScroller2() {
 
 
             var contenedor = $('<div class="ADSContainer" style="width:' + widthGral + 'px;height:' + heightGral + 'px;"></div>');
-            var divheader = $('<div style="width:' + widthGral + 'px;"></div>');
-            var divcenter = $('<div style="width:' + widthGral + 'px;"></div>');
+            var divheader = $('<div class="HeaderContainer" style="width:' + widthGral + 'px;"></div>');
+            var divcenter = $('<div class="CenterContainer" style="width:' + widthGral + 'px;"></div>');
             var divheader1 = $('<div class="AdsCEll" ></div>');
             var divheader2 = $('<div class="AdsRHeader"></div>');
             var divcenterCols = $('<div class="AdsCHeader"></div>');
@@ -451,6 +451,11 @@ function ADScroller2() {
             divheader1.append(THeader1);
 
             var anchoc1 = divheader1.outerWidth();
+
+            var divheader1button = $('<div></div>');
+            divheader1button.width(anchoc1);
+            divheader1.append(divheader1button);
+            divheader1button.append(THeader1);
             var altoc1 = divheader1.outerHeight() + 15;
             divheaderScroll = $('<div class="ADSCroll RHeader" style="width:' + (widthGral - anchoc1) + 'px;"></div>').append(THeader2);
             divheader2.append(divheaderScroll);
@@ -483,6 +488,11 @@ function ADScroller2() {
                 divcolsScroll.unbind('scroll');
             });
             let sizeoftablefunc = function () {
+                let widthtx = divheader1.outerWidth() + divheader2.outerWidth();
+                let widthtxb = divcenterCols.outerWidth() + divcenterbody.outerWidth();
+                divheader.css('width', widthtx);
+                divcenter.css('width', widthtx);
+
                 let sizetable = Tthis.outerHeight();
                 if (sizetable < divbodyScroll.height()) {
                     sizetable = sizetable + 20;
@@ -493,10 +503,11 @@ function ADScroller2() {
             };
             let resizefncscroller = function () {
 
-                var widthGral = $(window).width() - WidthMenos;
+                //var widthGral = $(window).width() - WidthMenos;
                 /*console.log(widthGral);*/
-                contenedor.css('width', 1);
-                widthGral = Tthis.parent().parent().parent().parent().parent().width();
+                //contenedor.css('width', 1);
+                //widthGral = Tthis.parent().parent().parent().parent().parent().width();
+                widthGral = Tthis.parent().parent().width();
                 /* console.log(widthGral);*/
                 var heightGral = $(window).height() - HeightMenos;
                 //console.log(heightGral);
@@ -510,6 +521,8 @@ function ADScroller2() {
                 divcolsScroll.css('height', (heightGral - altoc1 + 20));
                 divbodyScroll.css('width', (widthGral - anchoc1));
                 divbodyScroll.css('height', (heightGral - altoc1 + 20));
+
+                setTimeout(sizeoftablefunc, 100);
             };
             //$(window).resize(function () {
             //    setTimeout(resizefncscroller, 50);
@@ -517,14 +530,16 @@ function ADScroller2() {
             //});
 
             $('table#ADCol' + Tid + ' tr').hover(
-                function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover');},
-                function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover');});
+                function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover'); },
+                function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover'); });
             $('table#' + Tid + ' tr').hover(
-                function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover');},
+                function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover'); },
                 function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover'); });
             setTimeout(sizeoftablefunc, 100);
-
-
+             
+            Tthis.parent().parent().bind('resize', function () {
+                setTimeout(resizefncscroller, 100);
+            })
             let found = adscrollerposition.find(element => element.id = 'C_Tab_TabNominas_GvNominas');
             if (found != null) {
 
@@ -784,7 +799,7 @@ function loadadscroll() {
 
         var colVisibles = isNaN(Number(TThis.data('cols'))) ? 0 : Number(TThis.data('cols'));
         if (colVisibles > 0) {
-            if ((Number(TThis.data('heighterror'))) && !(Number(TThis.data('heightmenos')))) { TThis.data('heightmenos', TThis.data('heighterror'));}  
+            if ((Number(TThis.data('heighterror'))) && !(Number(TThis.data('heightmenos')))) { TThis.data('heightmenos', TThis.data('heighterror')); }
             TThis.removeClass("ScrollAD");
             TThis.addClass("ADSCROLLER2");
         } else {
@@ -862,7 +877,7 @@ ADSScroll = function (tablescroll) {
             }
         }
         let firsttr = null;
-        tablescroll.find('> tbody > tr' + scrollwidthrow + ',> thead > tr' + scrollwidthrow + ',> tr' + scrollwidthrow +'').each(function () {
+        tablescroll.find('> tbody > tr' + scrollwidthrow + ',> thead > tr' + scrollwidthrow + ',> tr' + scrollwidthrow + '').each(function () {
             var retorno = false;
             firsttr = $(this);
             if (firsttr.find(' > td[colspan], > th[colspan]').length) { retorno = true; }
@@ -1186,7 +1201,7 @@ function setwebservice(idDdlWS, idhdValue, idhdText, btn) {
                         Pagina: (!(DdlWS.data('pagina')) || DdlWS.data('pagina') == '') ? '-2' : DdlWS.data('pagina'),
                         ColTexto: (!(DdlWS.data('coltexto')) || DdlWS.data('coltexto') == '') ? 'NC' : DdlWS.data('coltexto'),
                         aplicaparaventa: (!(DdlWS.data('aplicaparaventa')) || DdlWS.data('aplicaparaventa') == '') ? -1 : DdlWS.data('aplicaparaventa')
-                        
+
                         //Metodo: metodo
                     };
                 },

Ventas/Clientes.aspx

@@ -631,7 +631,7 @@
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control  input-sm select2me" Width="200px">
+                                            <asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control input-sm select2me" Width="200px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCliente_SelectedIndexChanged">
                                                 <asp:ListItem Selected="True" Value="1">Frecuente</asp:ListItem>
                                                 <asp:ListItem Value="2">Venta Mostrador</asp:ListItem>
                                             </asp:DropDownList>
@@ -6436,7 +6436,10 @@
 
         }
 
-
+        function SetTabVisibility(index) {
+            $find('<%=Tab.ClientID%>').get_tabs()[index].set_enabled(true);
+            return false;
+        }
 
 
         function pageLoad(sender, e) {

Ventas/Clientes.aspx.vb

@@ -1746,7 +1746,7 @@ Partial Class Clientes
                     TabOtros.Visible = False
                     TabRH.Visible = False
                     TabCuentasEquipos.Visible = False
-                    TabSistema.Visible = False
+                    TabSistema.Enabled = False
 
                     DivPortletSucursales.Visible = False
                     DivPortletDireccionEnvio.Visible = False
@@ -10303,6 +10303,11 @@ Partial Class Clientes
         ObjVentas.Dispose()
         CargarClientePersonalEntrega()
         UpClentesPersonalEntrega.Update()
-    End Sub
+    End Sub
+    Protected Sub DdlTipoCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
+        TabSistema.Enabled = DdlTipoCliente.SelectedValue = "1"
+
+        UpDatos.Update()
+    End Sub
 End Class
 

Ventas/PV.aspx

@@ -491,6 +491,12 @@
                                 <ajax:ValidatorCalloutExtender ID="VCEAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenOrigen" Width="300px"></ajax:ValidatorCalloutExtender>
                             </td>
                         </tr>
+                        <tr align="left" id="TrServicioDomicilio" runat="server" visible="false">
+                            <td><b>Servicio a Domicilio:</b>&nbsp;</td>
+                            <td>
+                                <asp:CheckBox ID="ChkServicioDomicilio" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                            </td>
+                        </tr>
                     </table>
                 </div>
             </ContentTemplate>
@@ -827,7 +833,7 @@
                                                     <td>
                                                         <asp:UpdatePanel runat="server">
                                                             <ContentTemplate>
-                                                                <asp:TextBox ID="TxtTotal" runat="server" ClientIDMode="Static" BorderStyle="None" Style="text-align: right; font-weight:bold" Text="0.00" Width="78px"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtTotal" runat="server" ClientIDMode="Static" BorderStyle="None" Style="text-align: right; font-weight:bold" Text="0.00" Width="78px" ReadOnly="true"></asp:TextBox>
                                                                 <asp:HiddenField ID="HdnVentaSaldo" runat="server" ClientIDMode="Static" Value="0" />
                                                                 <asp:HiddenField ID="HdnTotalVenta" runat="server" ClientIDMode="Static" Value="0" />
                                                             </ContentTemplate>
@@ -2742,6 +2748,7 @@
                                                         <div class="col-md-3">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtPrecio" inputmode="numeric" runat="server" onkeyup="Recalcula();" CausesValidation="true" lang="nb" ClientIDMode="Static" Text="0.00" MaxLength="12" ValidationGroup="GrpAddVenta" Width="76px" CssClass="form-control "></asp:TextBox>
+                                                                <%--<ajax:MaskedEditExtender ID="MEEPrecio" runat="server" TargetControlID="TxtPrecio" ClearMaskOnLostFocus="false" MaskType="Number" Mask="9,999.99" InputDirection="RightToLeft" DisplayMoney="Left"></ajax:MaskedEditExtender>--%>
                                                                 <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
                                                                 <asp:RequiredFieldValidator ID="RFVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -2938,7 +2945,7 @@
                                                         </div>
                                                         <div class="col-md-4">
                                                             <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:TextBox ID="TxtMesesUso" CssClass="form-control" runat="server" MaxLength="50" Enabled="false" style="font-weight:bold"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtMesesUso" CssClass="form-control" runat="server" MaxLength="50" Enabled="false" style="font-weight:bold; font-size:20pt;"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVMesesUso" runat="server" ControlToValidate="TxtMesesUso" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Meses de Uso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCEMesesUso" runat="server" HighlightCssClass="vco" TargetControlID="RFVMesesUso"></ajax:ValidatorCalloutExtender>
                                                                 <ajax:FilteredTextBoxExtender ID="FTBEMesesUso" runat="server" TargetControlID="TxtMesesUso" FilterType="Custom, Numbers" ValidChars="." />
@@ -2967,7 +2974,7 @@
                                                         </div>
                                                         <div class="col-md-4">
                                                             <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:TextBox ID="TxtPorcentajeAjuste" CssClass="form-control" Enabled="false" runat="server" MaxLength="50" style="font-weight:bold"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtPorcentajeAjuste" CssClass="form-control" Enabled="false" runat="server" MaxLength="50" style="font-weight:bold; font-size:20pt;"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVPorcentajeAjuste" runat="server" ControlToValidate="TxtPorcentajeAjuste" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''% Ajuste''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCEPorcentajeAjuste" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentajeAjuste"></ajax:ValidatorCalloutExtender>
                                                                 <ajax:FilteredTextBoxExtender ID="FTBEPorcentajeAjuste" runat="server" TargetControlID="TxtPorcentajeAjuste" FilterType="Custom, Numbers" ValidChars="." />
@@ -3001,7 +3008,7 @@
                                                     <div class="row" style="margin-top: 17px;">
                                                         <div class="col-md-6">
                                                             <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:TextBox ID="TxtImporteAjuste" CssClass="form-control" runat="server" Enabled="false" MaxLength="50" style="font-weight:bold"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtImporteAjuste" CssClass="form-control" runat="server" Enabled="false" MaxLength="50" ></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVImporteAjuste" runat="server" ControlToValidate="TxtImporteAjuste" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCEImporteAjuste" runat="server" HighlightCssClass="vco" TargetControlID="RFVImporteAjuste"></ajax:ValidatorCalloutExtender>
                                                                 <ajax:FilteredTextBoxExtender ID="FTBEImporteAjuste" runat="server" TargetControlID="TxtImporteAjuste" FilterType="Custom, Numbers" ValidChars="." />

Ventas/PV.aspx.vb

@@ -1123,6 +1123,9 @@ Partial Class PV
             End If
             LimpiaEscondeContado()
 
+            If UsuarioActual.TienePermisoProceso(316) Then
+                TrServicioDomicilio.Visible = True
+            End If
 
             'Carga cliente
             If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 AndAlso Request("CveFactura") Is Nothing Then
@@ -1500,6 +1503,8 @@ Partial Class PV
 
                     End If
 
+                    ChkServicioDomicilio.Checked = CBool(DbRowVenta("ServicioDomicilio").ToString())
+
                     If UsuarioActual.CveEmpresa = 48 Then
                         TxtFecha.AutoPostBack = True
                     End If
@@ -1620,7 +1625,7 @@ Partial Class PV
         TxtRetIVA.ReadOnly = False
         TxtRetISR.ReadOnly = False
         TxtIEPS.ReadOnly = False
-        TxtTotal.ReadOnly = False
+        'TxtTotal.ReadOnly = False
 
         'Sección Detalle
         DdlMoneda.Enabled = True
@@ -3195,6 +3200,9 @@ Partial Class PV
                             Dim RowGarantia As DataRow = ObjAcum.DtResultados.FiltroPrimero("")
                             If RowGarantia IsNot Nothing Then
                                 SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Ajuste</a></li></ul><br/>", Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle"))))
+
+                                'AUTO DESCARGAR PDF AJUSTE
+                                RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))}'", "Imprimir")
                             End If
                         End If
                     End Using
@@ -3205,11 +3213,11 @@ Partial Class PV
                 For Each Mensaje In Retorno.Mensajes
                     Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV))
                 Next
-
-                'Dim facBytes = DescargarFactura(Retorno.CveVenta, UsuarioActual.CveEmpresa)
-                'ImprimirbytesPDF(facBytes, ObjFactura.SerieFolio)
-
+            Else
+                Alert("No hay partidas agregadas a la factura", TipoMensaje.MsgAdvertencia)
             End If
+        Else
+            Alert("No hay ningun cliente seleccionado", TipoMensaje.MsgAdvertencia)
         End If
 
     End Sub
@@ -3474,6 +3482,8 @@ Partial Class PV
             End If
         End If
 
+        ObjFactura.ServicioDomicilio = ChkServicioDomicilio.Checked
+
     End Sub
 
 #End Region
@@ -4720,7 +4730,7 @@ Partial Class PV
 
         TxtObsPS.Text = GvRow.DataKey("Obs") '.Replace(StrTamanios.ToString(), "")
 
-        TxtPrecio.Text = GvRow.DataKey("PU")
+        TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal().FormatoNumero
         TxtDescuento.Text = GvRow.DataKey("Descuento")
         LblTotalPS.Text = GvRow.DataKey("Total")
         ChkAgregar.Checked = False
@@ -6300,7 +6310,7 @@ Partial Class PV
             TxtPorcentajeAjuste.Text = Dr("PorcentajeAjuste").ToString
             DdlTipoComprobanteAjuste.SelectedValueExist(Dr("TipoComprobante").ToString())
             TxtComprobante.Text = Dr("Comprobante").ToString
-            TxtImporteAjuste.Text = Dr("Importe").ToString
+            TxtImporteAjuste.Text = Dr("Importe").ToString().ToDecimal().FormatoNumero(2)
             DdlFacturas.SelectedValueExist(Dr("CveVenta").ToString)
 
             If TxtDescuento.Text.ToDecimal() > 0 AndAlso Dr("Importe").ToString.ToDecimal() > 0 Then

Ventas/ProductosServicios.aspx.vb

@@ -846,8 +846,6 @@ Partial Class ProductosyServicios
                 DdlMoneda.SelectedValueExist(ObjProductosServicios.CveMoneda)
                 TxtRetISR.Text = (ObjProductosServicios.RetISR * 100).ToString
 
-                DdlTamanio.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTamaño").ToString)
-
                 DdlModelo.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveModelo").ToString)
                 DdlMedida.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveMedida").ToString)
                 DdlRin.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveRinTamaño").ToString)
@@ -862,6 +860,34 @@ Partial Class ProductosyServicios
 
                 Try
                     DdlClasificacion_SelectedIndexChanged(DdlClasificacion, Nothing)
+
+                    DdlTamanio.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTamaño").ToString)
+                    If DdlTamanio.SelectedValue.ToEntero() > 0 Then
+                        Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+
+                        Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString)
+
+                        'SI ES MOTOBATERIA
+                        If DdlClasificacion.SelectedValue = "20517" Then
+                            DebeTenerTamanio = True
+                        End If
+
+                        'VALIDA QUE EL PRODUCTO, NO ES ACUMULADOR QUE NO TENGA TAMAÑO
+                        If Not DebeTenerTamanio AndAlso DdlTamanio.SelectedValue.ToEntero() > 0 Then
+                            Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' no debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
+                            RfvDdlTamanio.Visible = False
+                            CERfvDdlTamanio.Enabled = False
+                        End If
+
+                        'VALIDA QUE EL PRODUCTO, SI ES ACUMULADOR QUE TENGA TAMAÑO
+                        If DebeTenerTamanio AndAlso DdlTamanio.SelectedValue.ToEntero() <= 0 Then
+                            Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
+                        End If
+
+                        DvTamanio.Visible = True
+                    End If
+
+
                 Catch ex As Exception
 
                 End Try
@@ -1195,182 +1221,209 @@ Partial Class ProductosyServicios
 
         End If
 
+        Dim CveTamaño As Integer = DdlTamanio.SelectedValue.ToEntero
 
+        'VALIDAR TAMAÑOS Y ACUMULADORES
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+
+            Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString)
+
+            'SI ES MOTOBATERIA
+            If DdlClasificacion.SelectedValue = "20517" Then
+                DebeTenerTamanio = True
+            End If
+
+            'VALIDA QUE EL PRODUCTO, NO ES ACUMULADOR QUE NO TENGA TAMAÑO
+            If Not DebeTenerTamanio AndAlso CveTamaño > 0 Then
+                Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' no debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
+                Return
+            End If
+            'VALIDA QUE EL PRODUCTO, SI ES ACUMULADOR QUE TENGA TAMAÑO
+            If DebeTenerTamanio AndAlso CveTamaño <= 0 Then
+                Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
+                Return
+            End If
+
+        End If
 
         Dim ObjProductosServicios As New ClsProductosServicios()
         Dim ObjInv As New ClsInventarios(ObjProductosServicios.IniciaTransacSQL())
 
         Dim TieneError = False
         Dim AccionJS = ""
-        Dim EsPaquete As Integer = If(gvPaqueteDetalle.Rows.Count = 0, 0, 1)
-        Dim CveMetodoInv As Integer = If(UsuarioActual.Empresa.UsaInventarios, ddlMetodos.SelectedValue.ToEntero, -1)
 
+        Try
 
-        Dim CveProveedor As Integer = -1
-        If DdlProveedor.txtValue.Value.ToEntero > 0 Then
-            CveProveedor = DdlProveedor.txtValue.Value.ToEntero
-        End If
+            Dim EsPaquete As Integer = If(gvPaqueteDetalle.Rows.Count = 0, 0, 1)
+            Dim CveMetodoInv As Integer = If(UsuarioActual.Empresa.UsaInventarios, ddlMetodos.SelectedValue.ToEntero, -1)
 
-
-        Dim CveMarca As Integer = 0
-        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
-
-        Dim TiempoCaducidad As Integer = -1
-        If ChkCaducidad.Checked Then
-            If TxtTiempoCaducidad.Text.Length > 0 AndAlso IsNumeric(TxtTiempoCaducidad.Text) Then
-                TiempoCaducidad = TxtTiempoCaducidad.Text.ToEntero()
-            Else
-                Alert("Falta indicar el tiempo de caducidad", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-        End If
-
-        If CvePS = -1 Then
-            Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
-            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
-            If ObjProductosServicios.AddPS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, "", TxtCodigoBarras.Text.Trim, PSS,
-                                           TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True,
-                                           ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero,
-                                           FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim,
-                                           AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal, CveConceptoContable:=DdlConceptoRelacionado.SelectedValue.ToEntero,
-                                           CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal,
-                                           CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
-                                           CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
-                                           CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
-                                           CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
-                                           ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
-                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) > 0 Then
-                ViewState("CvePS") = ObjProductosServicios.CvePS
-                For Each GVR As GridViewRow In GvImpuestosLocales.Rows
-                    If GVR.FCCheckBox("ChkDeduccion").Checked Then
-                        ObjProductosServicios.AddPSImpuestosLocales(CvePS, GVR.DataKey("CveImpuestoLocal").ToEntero)
-                    End If
-                Next
-                'Alert("El Producto o Servicio se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href= "" / ProductosServicios.aspx?CvePS=" & ObjProductosServcios.CvePS.ToString & """;")
-                AccionJS = "document.location.href=""/Ventas/CatPS.aspx"";"
-
-
-                If Not TieneError Then
-                    For Each Dr As DataRow In DtSeccionAlmacen.Rows
-                        If Dr("CveAlmacen").ToString.ToEntero > 0 Then
-                            If Not ObjInv.AddProductosServiciosAlmacenSeccion(CvePS, Dr("CveAlmacen").ToString.ToEntero, Dr("CveAlmacenSeccion").ToString.ToEntero) Then
-                                TieneError = True
-                            End If
-                        End If
-                    Next
-                End If
-                If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso ChkAplicaParaVenta.Checked Then
-                    TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, True)
-                End If
-
-            Else
-                TieneError = True
-                Alert("Ocurrió un Error al agregar el Producto o Servicio. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-            End If
-        Else
-
-            If CodigoBarrasCargado.Length > 0 And TxtCodigoBarras.Text.Length = 0 Then
-                TxtCodigoBarras.Text = CodigoBarrasCargado
+            Dim CveProveedor As Integer = -1
+            If DdlProveedor.txtValue.Value.ToEntero > 0 Then
+                CveProveedor = DdlProveedor.txtValue.Value.ToEntero
             End If
 
-            Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
-            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
+            Dim CveMarca As Integer = 0
+            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
 
-            If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, txtcodigo2.text.trim, TxtCodigoBarras.Text.Trim, PSS,
-                                              TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True,
-                                              ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, EsPaquete, DdlSATPS.SelectedValue.ToEntero,
-                                              CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim,
-                                              AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal, CveConceptoContable:=DdlConceptoRelacionado.SelectedValue.ToEntero,
-                                              CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal,
-                                              CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
-                                              CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
-                                              CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
-                                              CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
-                                              ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
-                                              ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
-                                              AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) Then
-
-                If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
-                    TieneError = True
-                    Alert("Ocurrió un Error al regenerar los impuestos locales. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            Dim TiempoCaducidad As Integer = -1
+            If ChkCaducidad.Checked Then
+                If TxtTiempoCaducidad.Text.Length > 0 AndAlso IsNumeric(TxtTiempoCaducidad.Text) Then
+                    TiempoCaducidad = TxtTiempoCaducidad.Text.ToEntero()
+                Else
+                    Alert("Falta indicar el tiempo de caducidad", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
                 End If
+            End If
 
-                If Not TieneError Then
+            If CvePS = -1 Then
+                Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
+                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
+                If ObjProductosServicios.AddPS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, "", TxtCodigoBarras.Text.Trim, PSS,
+                                               TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True,
+                                               ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero,
+                                               FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim,
+                                               AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal, CveConceptoContable:=DdlConceptoRelacionado.SelectedValue.ToEntero,
+                                               CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal,
+                                               CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
+                                               CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
+                                               CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
+                                               CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
+                                               ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
+                                               ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) > 0 Then
+                    ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then
-                            If Not ObjProductosServicios.AddPSImpuestosLocales(CvePS, GVR.DataKey("CveImpuestoLocal").ToEntero) Then
+                            ObjProductosServicios.AddPSImpuestosLocales(CvePS, GVR.DataKey("CveImpuestoLocal").ToEntero)
+                        End If
+                    Next
+                    'Alert("El Producto o Servicio se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href= "" / ProductosServicios.aspx?CvePS=" & ObjProductosServcios.CvePS.ToString & """;")
+                    AccionJS = "document.location.href=""/Ventas/CatPS.aspx"";"
+
+
+                    If Not TieneError Then
+                        For Each Dr As DataRow In DtSeccionAlmacen.Rows
+                            If Dr("CveAlmacen").ToString.ToEntero > 0 Then
+                                If Not ObjInv.AddProductosServiciosAlmacenSeccion(CvePS, Dr("CveAlmacen").ToString.ToEntero, Dr("CveAlmacenSeccion").ToString.ToEntero) Then
+                                    TieneError = True
+                                End If
+                            End If
+                        Next
+                    End If
+                    If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso ChkAplicaParaVenta.Checked Then
+                        TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, True)
+                    End If
+
+                Else
+                    TieneError = True
+                    Alert("Ocurrió un Error al agregar el Producto o Servicio. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                End If
+            Else
+
+                If CodigoBarrasCargado.Length > 0 And TxtCodigoBarras.Text.Length = 0 Then
+                    TxtCodigoBarras.Text = CodigoBarrasCargado
+                End If
+
+                Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
+                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
+
+                If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS,
+                                                  TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True,
+                                                  ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, EsPaquete, DdlSATPS.SelectedValue.ToEntero,
+                                                  CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim,
+                                                  AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal, CveConceptoContable:=DdlConceptoRelacionado.SelectedValue.ToEntero,
+                                                  CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal,
+                                                  CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
+                                                  CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
+                                                  CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
+                                                  CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
+                                                  ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
+                                                  ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
+                                                  AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) Then
+
+                    If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
+                        TieneError = True
+                        Alert("Ocurrió un Error al regenerar los impuestos locales. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                    End If
+
+                    If Not TieneError Then
+                        For Each GVR As GridViewRow In GvImpuestosLocales.Rows
+                            If GVR.FCCheckBox("ChkDeduccion").Checked Then
+                                If Not ObjProductosServicios.AddPSImpuestosLocales(CvePS, GVR.DataKey("CveImpuestoLocal").ToEntero) Then
+                                    TieneError = True
+                                    Alert("Ocurrió un Error al agregar los impuestos locales. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                                    Exit For
+                                End If
+                            End If
+                        Next
+                    End If
+
+                    AccionJS = If(Ret = "Comp", "ircompras();", "document.location.href=""/Ventas/CatPS.aspx"";")
+                    'UpDatos.Update()
+                    'Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, AccionJS)
+
+                    If Not TieneError Then
+                        For Each Dr As DataRow In DtSeccionAlmacen.Rows
+                            If Dr("CveAlmacen").ToString.ToEntero > 0 AndAlso Not Dr("CvePSAlmacenSeccion").ToString.ToEntero > 0 Then
+                                If Not ObjInv.AddProductosServiciosAlmacenSeccion(CvePS, Dr("CveAlmacen").ToString.ToEntero, Dr("CveAlmacenSeccion").ToString.ToEntero) Then
+                                    TieneError = True
+                                End If
+                            ElseIf Not Dr("CveAlmacen").ToString.ToEntero > 0 AndAlso Dr("CvePSAlmacenSeccion").ToString.ToEntero > 0 Then
+                                If Not ObjInv.RemoveProductosServiciosAlmacenSeccion(Dr("CvePSAlmacenSeccion").ToString.ToEntero) Then
+                                    TieneError = True
+                                End If
+                            End If
+                        Next
+                    End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso ChkAplicaParaVenta.Checked Then
+                        TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, False)
+                    End If
+
+                Else
+                    TieneError = True
+                    Alert("Ocurrió un Error al actualizar el Producto o Servicio. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                End If
+                ObjProductosServicios.CvePS = CvePS
+            End If
+
+            If ObjProductosServicios.CvePS > 0 And Not TieneError Then
+                For i As Integer = 0 To gvSucursal.Rows.Count - 1
+                    If gvSucursal.Rows(i).FCCheckBox("chkSucursal").Checked = False Then
+                        If Not ObjProductosServicios.RemovePSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).DataKey("CveSubProyecto").ToEntero) Then
+                            TieneError = True
+                            Alert("Ocurrió un Error al eliminar sucursales del producto. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                            Exit For
+                        End If
+                    Else
+                        If gvSucursal.Rows(i).FCHiddenField("hdnEnBD").Value.ToEntero = 1 Then
+                            'Actualizarlo
+                            If Not ObjProductosServicios.UpdatePSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).FCTextBox("txtImporte").Text.ToDouble, gvSucursal.Rows(i).FCTextBox("TxtMinimo").Text.ToDouble, gvSucursal.Rows(i).FCTextBox("TxtMaximo").Text.ToDouble, UsuarioActual.CveUsuario, gvSucursal.Rows(i).DataKey("CveSubProyecto").ToEntero, PrecioMinimo:=gvSucursal.Rows(i).FCTextBox("TxtPrecioMinimo").Text.ToDecimal) Then
                                 TieneError = True
-                                Alert("Ocurrió un Error al agregar los impuestos locales. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                                Alert("Ocurrió un Error al actualizar sucursales del producto. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                                Exit For
+                            End If
+                            'ObjProductosServicios.UpdatePSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).FCHiddenField("hdnCveSucursal").Value.ToEntero, gvSucursal.Rows(i).FCTextBox("txtImporte").Text.ToDouble, UsuarioActual.CveUsuario)
+                        Else
+                            'Insertarlo
+                            'ObjProductosServicios.AddPSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).FCHiddenField("hdnCveSucursal").Value.ToEntero, gvSucursal.Rows(i).FCTextBox("txtImporte").Text.ToDouble, UsuarioActual.CveUsuario)
+                            If Not ObjProductosServicios.AddPSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).FCTextBox("txtImporte").Text.ToDouble, gvSucursal.Rows(i).FCTextBox("TxtMinimo").Text.ToDouble, gvSucursal.Rows(i).FCTextBox("TxtMaximo").Text.ToDouble, UsuarioActual.CveUsuario, gvSucursal.Rows(i).DataKey("CveSubProyecto").ToEntero, PrecioMinimo:=gvSucursal.Rows(i).FCTextBox("TxtPrecioMinimo").Text.ToDecimal) Then
+                                TieneError = True
+                                Alert("Ocurrió un Error al agregar sucursales del producto. Por favor vuelva a intentar.", TipoMensaje.MsgError)
                                 Exit For
                             End If
                         End If
-                    Next
-                End If
-
-                AccionJS = If(Ret = "Comp", "ircompras();", "document.location.href=""/Ventas/CatPS.aspx"";")
-                'UpDatos.Update()
-                'Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, AccionJS)
-
-                If Not TieneError Then
-                    For Each Dr As DataRow In DtSeccionAlmacen.Rows
-                        If Dr("CveAlmacen").ToString.ToEntero > 0 AndAlso Not Dr("CvePSAlmacenSeccion").ToString.ToEntero > 0 Then
-                            If Not ObjInv.AddProductosServiciosAlmacenSeccion(CvePS, Dr("CveAlmacen").ToString.ToEntero, Dr("CveAlmacenSeccion").ToString.ToEntero) Then
-                                TieneError = True
-                            End If
-                        ElseIf Not Dr("CveAlmacen").ToString.ToEntero > 0 AndAlso Dr("CvePSAlmacenSeccion").ToString.ToEntero > 0 Then
-                            If Not ObjInv.RemoveProductosServiciosAlmacenSeccion(Dr("CvePSAlmacenSeccion").ToString.ToEntero) Then
-                                TieneError = True
-                            End If
-                        End If
-                    Next
-                End If
-
-                If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso ChkAplicaParaVenta.Checked Then
-                    TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, False)
-                End If
-
-            Else
-                TieneError = True
-                Alert("Ocurrió un Error al actualizar el Producto o Servicio. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                    End If
+                Next
             End If
-            ObjProductosServicios.CvePS = CvePS
-        End If
-
-        If ObjProductosServicios.CvePS > 0 And Not TieneError Then
-            For i As Integer = 0 To gvSucursal.Rows.Count - 1
-                If gvSucursal.Rows(i).FCCheckBox("chkSucursal").Checked = False Then
-                    If Not ObjProductosServicios.RemovePSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).DataKey("CveSubProyecto").ToEntero) Then
-                        TieneError = True
-                        Alert("Ocurrió un Error al eliminar sucursales del producto. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-                        Exit For
-                    End If
-                Else
-                    If gvSucursal.Rows(i).FCHiddenField("hdnEnBD").Value.ToEntero = 1 Then
-                        'Actualizarlo
-                        If Not ObjProductosServicios.UpdatePSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).FCTextBox("txtImporte").Text.ToDouble, gvSucursal.Rows(i).FCTextBox("TxtMinimo").Text.ToDouble, gvSucursal.Rows(i).FCTextBox("TxtMaximo").Text.ToDouble, UsuarioActual.CveUsuario, gvSucursal.Rows(i).DataKey("CveSubProyecto").ToEntero, PrecioMinimo:=gvSucursal.Rows(i).FCTextBox("TxtPrecioMinimo").Text.ToDecimal) Then
-                            TieneError = True
-                            Alert("Ocurrió un Error al actualizar sucursales del producto. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-                            Exit For
-                        End If
-                        'ObjProductosServicios.UpdatePSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).FCHiddenField("hdnCveSucursal").Value.ToEntero, gvSucursal.Rows(i).FCTextBox("txtImporte").Text.ToDouble, UsuarioActual.CveUsuario)
-                    Else
-                        'Insertarlo
-                        'ObjProductosServicios.AddPSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).FCHiddenField("hdnCveSucursal").Value.ToEntero, gvSucursal.Rows(i).FCTextBox("txtImporte").Text.ToDouble, UsuarioActual.CveUsuario)
-                        If Not ObjProductosServicios.AddPSSucursales(ObjProductosServicios.CvePS, gvSucursal.Rows(i).FCTextBox("txtImporte").Text.ToDouble, gvSucursal.Rows(i).FCTextBox("TxtMinimo").Text.ToDouble, gvSucursal.Rows(i).FCTextBox("TxtMaximo").Text.ToDouble, UsuarioActual.CveUsuario, gvSucursal.Rows(i).DataKey("CveSubProyecto").ToEntero, PrecioMinimo:=gvSucursal.Rows(i).FCTextBox("TxtPrecioMinimo").Text.ToDecimal) Then
-                            TieneError = True
-                            Alert("Ocurrió un Error al agregar sucursales del producto. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-                            Exit For
-                        End If
-                    End If
-                End If
-            Next
-        End If
-
-
-        If ObjProductosServicios.CvePS > 0 And Not TieneError Then
-            TieneError = GuardaEcommerce()
-        End If
 
+            If ObjProductosServicios.CvePS > 0 And Not TieneError Then
+                TieneError = GuardaEcommerce()
+            End If
+        Catch ex As Exception
+            TieneError = True
+            OnError("Ocurrió un error al guardar al guardar el producto/servicio.", ex)
+        End Try
 
         If Not TieneError Then
             ObjProductosServicios.Commit()
@@ -2103,13 +2156,11 @@ Partial Class ProductosyServicios
                 MostarOcultarDivTamanio(True)
             End If
         Catch ex As Exception
-
+            OnError("Ocurrió un error al mostrar los tamaños", ex)
         End Try
     End Sub
 
-    Sub MostarOcultarDivTamanio(Mostrar As Boolean)
-
-
+    Private Sub MostarOcultarDivTamanio(Mostrar As Boolean)
         If Mostrar And UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             DvTamanio.Visible = True
         Else
@@ -2117,7 +2168,6 @@ Partial Class ProductosyServicios
             DdlTamanio.SelectedValueExist("-1")
         End If
 
-
         UpDatos.Update()
 
     End Sub

Ventas/RepConciliacionEmitidosSat.aspx.cs

@@ -224,7 +224,7 @@ public partial class Ventas_RepConciliacionEmitidosSat : ClsPaginas
                 ClsCGame ObjCGame = new ClsCGame(ObjVentas.IniciaTransacSQL());
                 ClsEdocumentacion ObjDocCliente = new ClsEdocumentacion(ObjVentas.IniciaTransacSQL());
                 ClsAcumuladores ObjAcum = new ClsAcumuladores(ObjVentas.IniciaTransacSQL());
-                ClsContPAQi ObjContPaq = null;
+                //ClsContPAQi ObjContPaq = null;
                 //StringBuilder MensajeAlert = new StringBuilder() ;
                 Modelos.Factura.MMensajeFactura Resp = new Modelos.Factura.MMensajeFactura();
                 DataTable DtDetalle = objfact.DtDetalle;

Ventas/RepProductosServicios.aspx.vb

@@ -273,7 +273,7 @@ Partial Class Ventas_RepProductosServicios
                                               DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1",
                                               UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                               CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra,
-                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
+                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
@@ -353,11 +353,11 @@ Partial Class Ventas_RepProductosServicios
             FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1")
             FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1")
 
-            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}",
+            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}",
                                                                                     e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                                                     e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                                                     e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),
-                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue))
+                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(ChkModalidadContable.Checked, 1, 0))
 
 
             e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a target=""_blank"" Class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.DBCampo("Gpo"))

Ventas/RepProductosServiciosDetalle.aspx

@@ -1,123 +1,123 @@
-<%@ Page Title="Reporte de Productos Servicios" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProductosServiciosDetalle.aspx.vb" Inherits="Ventas_RepProductosServiciosDetalle" %>
-
-<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-    <style>
-        .select2 .select2-selection__rendered {
-            line-height: 1;
-            color: #111;
-        }
-
-        .select2 .select2-selection--multiple {
-            box-sizing: border-box;
-            cursor: pointer;
-            display: block;
-            min-height: 20px;
-            user-select: none;
-            -webkit-user-select: none;
-        }
-
-        .select2-container--default .select2-selection--multiple .select2-selection__choice {
-            margin-top: 10px;
-        }
-
-        .select2-selection__rendered {
-            margin-top: 0px;
-            height: 25px;
-        }
-
-        .select2-selection {
-            margin-top: 0px;
-            height: 31px;
-        }
-
-        .select2-container--default.select2-container--focus .select2-selection--multiple {
-            border: none;
-            outline: 0;
-        }
-
-        #chartdiv {
-            width: 100%;
-            height: 500px;
-        }
-    </style>
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
+<%@ Page Title="Reporte de Productos Servicios" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProductosServiciosDetalle.aspx.vb" Inherits="Ventas_RepProductosServiciosDetalle" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .select2 .select2-selection__rendered {
+            line-height: 1;
+            color: #111;
+        }
+
+        .select2 .select2-selection--multiple {
+            box-sizing: border-box;
+            cursor: pointer;
+            display: block;
+            min-height: 20px;
+            user-select: none;
+            -webkit-user-select: none;
+        }
+
+        .select2-container--default .select2-selection--multiple .select2-selection__choice {
+            margin-top: 10px;
+        }
+
+        .select2-selection__rendered {
+            margin-top: 0px;
+            height: 25px;
+        }
+
+        .select2-selection {
+            margin-top: 0px;
+            height: 31px;
+        }
+
+        .select2-container--default.select2-container--focus .select2-selection--multiple {
+            border: none;
+            outline: 0;
+        }
+
+        #chartdiv {
+            width: 100%;
+            height: 500px;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
     <%--    <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="btn-group pull-right btn-separete">
                 <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-fit-height btnopaco" />
             </div>
         </ContentTemplate>
-    </asp:UpdatePanel>--%>
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
-        <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar</asp:LinkButton>
-    </li>
-    <li>
-        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
-    </li>
-    <li>
-        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
-    </li>
-    <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server" Enabled="true"> <i class="fa fa-print"></i> Imprimir</asp:LinkButton>
-    </li>
-    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <li>
-                <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
-            </li>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-      <asp:UpdatePanel ID="UpDescargaZipPDF" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+    </asp:UpdatePanel>--%>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+    <li>
+        <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar</asp:LinkButton>
+    </li>
+    <li>
+        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
+    </li>
+    <li>
+        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
+    </li>
+    <li>
+        <asp:LinkButton ID="ImgImprimir" runat="server" Enabled="true"> <i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+    </li>
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
             <li>
-                 <asp:LinkButton ID="BtnDescargarZipPDF" runat="server"> <i class="fa fa-cloud-download"></i>  Descargar Facturas</asp:LinkButton>
-            </li>
-        </ContentTemplate>
-          <Triggers>
-              <asp:PostBackTrigger  ControlID= "BtnDescargarZipPDF" />
-          </Triggers>
-    </asp:UpdatePanel>
-
-
-
-
-
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Productos Servicios
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
-                <div class="portlet-title portlet-filterT smalltitle">
-                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                        <a href="javascript:;" class="expand"></a>
-                    </div>
-                    <div class="titlefiltros  caption">
-                        <div class="row">
-                            <label class="col-md-1">Tipo: </label>
-                            <div class="col-md-2">
-                                <asp:ListBox ID="DdlTipoComprobante" AutoPostBack="true" OnTextChanged="DdlTipoComprobante_SelectedIndexChanged" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
-                                    <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
-                                    <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
-                                    <asp:ListItem Text="Remisión" Value="Rem"></asp:ListItem>
-                                    <asp:ListItem Text="Cotización" Value="Cot"></asp:ListItem>
-                                    <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
-                                    <asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
-                                    <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
-                                    <asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
-                                </asp:ListBox>
+                <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <asp:UpdatePanel ID="UpDescargaZipPDF" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="BtnDescargarZipPDF" runat="server"> <i class="fa fa-cloud-download"></i>  Descargar Facturas</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="BtnDescargarZipPDF" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+
+
+
+
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Reporte de Productos Servicios
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            <label class="col-md-1">Tipo: </label>
+                            <div class="col-md-2">
+                                <asp:ListBox ID="DdlTipoComprobante" AutoPostBack="true" OnTextChanged="DdlTipoComprobante_SelectedIndexChanged" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
+                                    <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
+                                    <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
+                                    <asp:ListItem Text="Remisión" Value="Rem"></asp:ListItem>
+                                    <asp:ListItem Text="Cotización" Value="Cot"></asp:ListItem>
+                                    <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
+                                    <asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
+                                    <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
+                                    <asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
+                                </asp:ListBox>
                                 <%--<asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlTipoComprobante" runat="server" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged" AutoPostBack="true">
                                     <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                     <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
@@ -127,45 +127,47 @@
                                     <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
                                     <asp:ListItem Text="Pedido" Value="Ped"></asp:ListItem>
                                     <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
-                                </asp:DropDownList>--%>
-                            </div>
-                            <div class="col-md-1 truncate">
+                                </asp:DropDownList>--%>
+                            </div>
+                            <div class="col-md-1 truncate">
                                 Fecha Inicio:
-                            </div>
-                            <div class="col-md-1">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                            <div class="col-md-1 truncate">
+                           
+                            </div>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1 truncate">
                                 Fecha Fin: 
-                            </div>
-                            <div class="col-md-1">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                            <label class="col-md-1 ">Grupo:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlGrupo" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                           
+                            </div>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <label class="col-md-1 ">Grupo:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlGrupo" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                     <%--                                    <asp:ListItem Text="Proyecto" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="SubProyectos" Value="2"></asp:ListItem>
                                     <asp:ListItem Text="Categoría" Value="3"></asp:ListItem>
@@ -185,339 +187,342 @@
                                     <asp:ListItem Text="Año/Mes Ejec" Value="17"></asp:ListItem>
                                     <asp:ListItem Text="Fecha Ejec" Value="18"></asp:ListItem>
                                     <asp:ListItem Text="Sucursal Ejec" Value="19"></asp:ListItem>
-                                    <asp:ListItem Text="Cliente - PS" Value="20"></asp:ListItem>--%>
-                                </asp:DropDownList>
-                            </div>
-                        </div>
-                    </div>
-                </div>
-                <div class="portlet-body" style="display: none">
-                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
-                        <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
-                        <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <label class="col-md-1 ">Cliente:</label>
-                        <div class="col-md-2">
-                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                        </div>
-                        <label class="col-md-1 truncate">Vendedor:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                    </div>
-                    <div class="row">
-                        <label class="col-md-1 ">Estatus:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlEstatus" runat="server" AppendDataBoundItems="true" DataTextField="EstatusFactura" DataValueField="CveEstatusFactura" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <label runat="server" id="LblSubProyectoEjecucion" class="col-md-1 truncate">SubProyecto Ejecución:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <label class="col-md-1 truncate">Fecha I. Ejecución:</label>
-                        <div class="col-md-2">
-                            <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;">
-                                <asp:TextBox ID="TxtFechaIEjec" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                <span class="input-group-btn ">
-                                    <asp:LinkButton ID="ImgCalFechaIEjec" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaIEjec" runat="server" TargetControlID="TxtFechaIEjec" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender ID="CalFechaIEjec" runat="server" TargetControlID="TxtFechaIEjec" PopupButtonID="ImgCalFechaIEjec" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="RFVFechaIEjec" runat="server" ControlToValidate="TxtFechaIEjec" Display="None" ErrorMessage="El campo <b>''Fecha Inicial Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CVFechaIEjec" runat="server" ControlToValidate="TxtFechaIEjec" Display="None" ErrorMessage="El campo <b>''Fecha Inicial Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCOFechaIEjec1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaIEjec" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="VCOFechaIEjec2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaIEjec" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                        </div>
-                        <label class="col-md-1 truncate">Fecha F. Ejecución:</label>
-                        <div class="col-md-2">
-                            <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
-                                <asp:TextBox ID="TxtFechaFEjec" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                <span class="input-group-btn ">
-                                    <asp:LinkButton ID="ImgCalFechaFEjec" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaFEjec" runat="server" TargetControlID="TxtFechaFEjec" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender ID="CalFechaFEjec" runat="server" TargetControlID="TxtFechaFEjec" PopupButtonID="ImgCalFechaFEjec" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="RFVFechaFEjec" runat="server" ControlToValidate="TxtFechaFEjec" Display="None" ErrorMessage="El campo <b>''Fecha Final Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CVFechaFEjec" runat="server" ControlToValidate="TxtFechaFEjec" Display="None" ErrorMessage="El campo <b>''Fecha Final Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCOFechaFEjec1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFEjec" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="VCOFechaFEjec2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFEjec" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                        </div>
-                    </div>
-                    <div class="row">
-                        <label class="col-md-1 truncate">Usuario:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Usuario" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <label class="col-md-1 truncate">Categoría:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" Style="width: 100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <label class="col-md-1 truncate">Clasificación:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <label class="col-md-1 truncate">Productos Servicios:</label>
-                        <div class="col-md-2">
-                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:55%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
-                        </div>
-                    </div>
-                    <div class="row">
-                        <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasif.Cliente:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClienteClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteClasificacion_SelectedIndexChanged" runat="server" AppendDataBoundItems="true" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="ClienteClasificacion" DataValueField="CveClienteClasificacion"></asp:DropDownList>
-                        </div>
-                        <label title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Proveedor:</label>
-                        <div class="col-md-2">
-                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                        </div>
-                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
-                        <div runat="server" id="DivMarca" class="col-md-2" visible="false">
-                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%" Height="22px"></asp:DropDownList>
-                        </div>
-                        <asp:Label ID="lblDdlTipoPSDes" Visible="false" CssClass="col-md-1" runat="server" Text="Tipo:"></asp:Label>
-                        <div class="col-md-2" id="DivDdlTipo" runat="server" visible="false">
-                            <asp:DropDownList ID="DdlTipoPSDes" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Enabled="true">
-                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-
-                             <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-
-
-
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-
-            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="TipoDocumento,SerieFolio" >
-                <Columns>
-                    <asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField HeaderText="Suc. Ejec." DataField="SubProyectoEjecucion" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="Suc. Cob." DataField="SubProyectoCobranza" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Código" DataField="CodigoProducto" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Producto/Servicio" DataField="PS" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Observación" DataField="Observaciones" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Desc" DataField="Descuento" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
-                </Columns>
-                <RowStyle CssClass="Texto" />
-                <HeaderStyle CssClass="Titulos" />
-            </asp:GridView>
-
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div id="DivPersonalizar" class="modal fade" role="dialog">
-                <div class="modal-dialog">
-
-                    <!-- Modal content-->
-                    <div class="modal-content">
-                        <div class="modal-header">
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-                            <h4 class="modal-title">
-                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
-                        </div>
-                        <div class="modal-body">
-                            <table class="table table-striped table-advance table-hover Widthall">
-                                <tbody>
-                                    <tr>
-                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones" /></td>
-                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkSucEjec" runat="server" Text="Sucursal Ejecución" /></td>
-                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkSucCob" runat="server" Text="Sucursal Cobranza" /></td>
-                                    </tr>
-                                    <tr>
-                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
-                                        </td>
-                                    </tr>
-                                </tbody>
-                            </table>
-                        </div>
-                        <div class="modal-footer">
-                            <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
-                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                        </div>
-                    </div>
-
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-    <asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div id="DivTipoCambio" class="modal fade" role="dialog">
-                <div class="modal-dialog">
-                    <div class="modal-content">
-                        <div class="modal-header">
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-                            <h4 class="modal-title">
-                                <asp:Label ID="Label2" runat="server" ClientIDMode="Static" Text="Cambiar Tipo Cambio de Dólares"></asp:Label></h4>
-                        </div>
-                        <div class="modal-body">
-                            <asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
-                                <ContentTemplate>
-                                    <asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
-                                        <asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
-                                        <asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
-                                    </asp:RadioButtonList>
-
-                                    <div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">
+                                    <asp:ListItem Text="Cliente - PS" Value="20"></asp:ListItem>--%>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none">
+                    <div class="row">
+                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <div runat="server" id="DivProyecto" class="col-md-2">
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <div runat="server" id="DivSubProyecto" class="col-md-2">
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 ">Cliente:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                        </div>
+                        <label class="col-md-1 truncate">Vendedor:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <label class="col-md-1 ">Estatus:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlEstatus" runat="server" AppendDataBoundItems="true" DataTextField="EstatusFactura" DataValueField="CveEstatusFactura" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <label runat="server" id="LblSubProyectoEjecucion" class="col-md-1 truncate">SubProyecto Ejecución:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 truncate">Fecha I. Ejecución:</label>
+                        <div class="col-md-2">
+                            <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;">
+                                <asp:TextBox ID="TxtFechaIEjec" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="ImgCalFechaIEjec" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                                <ajax:MaskedEditExtender ID="MEEFechaIEjec" runat="server" TargetControlID="TxtFechaIEjec" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender ID="CalFechaIEjec" runat="server" TargetControlID="TxtFechaIEjec" PopupButtonID="ImgCalFechaIEjec" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="RFVFechaIEjec" runat="server" ControlToValidate="TxtFechaIEjec" Display="None" ErrorMessage="El campo <b>''Fecha Inicial Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="CVFechaIEjec" runat="server" ControlToValidate="TxtFechaIEjec" Display="None" ErrorMessage="El campo <b>''Fecha Inicial Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaIEjec1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaIEjec" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaIEjec2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaIEjec" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                        <label class="col-md-1 truncate">Fecha F. Ejecución:</label>
+                        <div class="col-md-2">
+                            <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
+                                <asp:TextBox ID="TxtFechaFEjec" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="ImgCalFechaFEjec" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                                <ajax:MaskedEditExtender ID="MEEFechaFEjec" runat="server" TargetControlID="TxtFechaFEjec" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender ID="CalFechaFEjec" runat="server" TargetControlID="TxtFechaFEjec" PopupButtonID="ImgCalFechaFEjec" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="RFVFechaFEjec" runat="server" ControlToValidate="TxtFechaFEjec" Display="None" ErrorMessage="El campo <b>''Fecha Final Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="CVFechaFEjec" runat="server" ControlToValidate="TxtFechaFEjec" Display="None" ErrorMessage="El campo <b>''Fecha Final Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaFEjec1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFEjec" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaFEjec2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFEjec" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <label class="col-md-1 truncate">Usuario:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Usuario" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 truncate">Categoría:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 truncate">Clasificación:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 truncate">Productos Servicios:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:55%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
+                        </div>
+                    </div>
+                    <div class="row">
+                        <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasif.Cliente:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlClienteClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteClasificacion_SelectedIndexChanged" runat="server" AppendDataBoundItems="true" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="ClienteClasificacion" DataValueField="CveClienteClasificacion"></asp:DropDownList>
+                        </div>
+                        <label title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Proveedor:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                        </div>
+                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
+                        <div runat="server" id="DivMarca" class="col-md-2" visible="false">
+                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%" Height="22px"></asp:DropDownList>
+                        </div>
+                        <asp:Label ID="lblDdlTipoPSDes" Visible="false" CssClass="col-md-1" runat="server" Text="Tipo:"></asp:Label>
+                        <div class="col-md-2" id="DivDdlTipo" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlTipoPSDes" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Enabled="true">
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <div class="col-md-2">
+                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="TipoDocumento,SerieFolio">
+                <Columns>
+                    <asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField HeaderText="Suc. Ejec." DataField="SubProyectoEjecucion" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <asp:BoundField HeaderText="Suc. Cob." DataField="SubProyectoCobranza" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Código" DataField="CodigoProducto" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Producto/Servicio" DataField="PS" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Observación" DataField="Observaciones" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Desc" DataField="Descuento" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
+                </Columns>
+                <RowStyle CssClass="Texto" />
+                <HeaderStyle CssClass="Titulos" />
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="DivPersonalizar" class="modal fade" role="dialog">
+                <div class="modal-dialog">
+
+                    <!-- Modal content-->
+                    <div class="modal-content">
+                        <div class="modal-header">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
+                        </div>
+                        <div class="modal-body">
+                            <table class="table table-striped table-advance table-hover Widthall">
+                                <tbody>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucEjec" runat="server" Text="Sucursal Ejecución" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucCob" runat="server" Text="Sucursal Cobranza" /></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
+                                        </td>
+                                    </tr>
+                                </tbody>
+                            </table>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="DivTipoCambio" class="modal fade" role="dialog">
+                <div class="modal-dialog">
+                    <div class="modal-content">
+                        <div class="modal-header">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label ID="Label2" runat="server" ClientIDMode="Static" Text="Cambiar Tipo Cambio de Dólares"></asp:Label></h4>
+                        </div>
+                        <div class="modal-body">
+                            <asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
+                                        <asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
+                                        <asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
+                                    </asp:RadioButtonList>
+
+                                    <div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">
                                         Especifico:
-                             <asp:TextBox ID="TxtEspecifico" runat="server" Width="55px" />
-                                    </div>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-                        </div>
-                        <div class="modal-footer">
-                            <asp:Button ID="BtnTipoCambio" OnClick="BtnTipoCambio_Click" runat="server" Text="Aceptar" class="btn btn-primary" />
-                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                        </div>
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-    <div id="DivModalGrafica" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header">
-                        <button type="button" class="close" data-dismiss="modal">&times;</button>
-                        <h4 class="modal-title">
-                            <asp:Label ID="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
-                        </h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-2"></div>
-                            <label class="col-md-1 truncate">Grafica:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlGrafica" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlGrafica_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
-                                </asp:DropDownList>
-                            </div>
-                            <label class="col-md-1 truncate">&nbsp;&nbsp;&nbsp;Ver:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlVer" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlVer_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                    <asp:ListItem Selected="True" Text="Total" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="SubTotal" Value="2"></asp:ListItem>
-                                    <asp:ListItem Text="IVA" Value="3"></asp:ListItem>
-                                </asp:DropDownList>
-                            </div>
-                        </div>
-                        <br />
-                        <div id="chartdiv"></div>
-                    </div>
-                    <div class="modal-footer">
-                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
-                    </div>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
-
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
-    <script src="https://www.amcharts.com/lib/3/serial.js"></script>
-    <script src="https://www.amcharts.com/lib/3/pie.js"></script>
-    <script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
-    <link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
-    <script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
-
+                            
+                                        <asp:TextBox ID="TxtEspecifico" runat="server" Width="55px" />
+                                    </div>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:Button ID="BtnTipoCambio" OnClick="BtnTipoCambio_Click" runat="server" Text="Aceptar" class="btn btn-primary" />
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <div id="DivModalGrafica" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">
+                            <asp:Label ID="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-2"></div>
+                            <label class="col-md-1 truncate">Grafica:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlGrafica" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlGrafica_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 truncate">&nbsp;&nbsp;&nbsp;Ver:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlVer" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlVer_SelectedIndexChanged" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Total" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="SubTotal" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="IVA" Value="3"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                        <br />
+                        <div id="chartdiv"></div>
+                    </div>
+                    <div class="modal-footer">
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
+    <script src="https://www.amcharts.com/lib/3/serial.js"></script>
+    <script src="https://www.amcharts.com/lib/3/pie.js"></script>
+    <script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
+    <link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
+    <script src="https://www.amcharts.com/lib/3/themes/light.js"></script>
+
     <script>
 
-        function CargaGraficaBarras(data) {
+        function CargaGraficaBarras(data) {
 
-            var chart = AmCharts.makeChart("chartdiv", {
+            var chart = AmCharts.makeChart("chartdiv", {
                 "type": "serial",
                 "theme": "light",
                 "dataProvider": data,
                 "startDuration": 2,
-                "valueAxes": [{
+                "valueAxes": [{
                     "position": "left",
-                    "title": "Ventas"
+                    "title": "Ventas"
                 }],
-                "graphs": [{
+                "graphs": [{
                     "balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
                     "colorField": "Color",
                     "fillAlphas": 1,
                     "lineAlpha": 0.1,
                     "type": "column",
-                    "valueField": "Valor"
+                    "valueField": "Valor"
                 }],
                 "depth3D": 20,
                 "angle": 30,
-                "chartCursor": {
+                "chartCursor": {
                     "categoryBalloonEnabled": false,
                     "cursorAlpha": 0,
-                    "zoomable": false
+                    "zoomable": false
                 },
                 "categoryField": "Texto",
-                "categoryAxis": {
+                "categoryAxis": {
                     "gridPosition": "start",
-                    "labelRotation": 90
+                    "labelRotation": 90
                 },
-                "export": {
-                    "enabled": true
-                }
-            });
+                "export": {
+                    "enabled": true
+                }
+            });
         }
 
-        function CargaGraficaPastel(data) {
+        function CargaGraficaPastel(data) {
 
-            var chart = AmCharts.makeChart("chartdiv", {
+            var chart = AmCharts.makeChart("chartdiv", {
                 "type": "pie",
                 "theme": "light",
                 "dataProvider":
@@ -528,12 +533,12 @@
                 "depth3D": 0,
                 "balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",
                 "angle": 0,
-                "export": {
-                    "enabled": true
-                }
-            });
+                "export": {
+                    "enabled": true
+                }
+            });
         }
 
-    </script>
-</asp:Content>
-
+    </script>
+</asp:Content>
+

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -373,7 +373,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
         TxtFechaIEjec.Text = If(AnioEjec <> "-1", String.Format("01/01/{0}", AnioEjec), TxtFechaIEjec.Text)
         TxtFechaIEjec.Text = If(MesEjec <> "-1", String.Format("01/{0}/0001", MesEjec), TxtFechaIEjec.Text)
 
-
+        Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))
+        ChkModalidadContable.Checked = ModalidadContable
 
         CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToEntero
         DdlProyecto.SelectedValueExist(CveProyecto)
@@ -403,7 +404,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         CargaProvedores(CveProveedorCompra)
         'If CveProveedorCompra.ToEntero > 0 Then DdlProveedor.SelectedValue = CveProveedorCompra
         DdlTipoPSDes.SelectedValueExist(CveClasificacionDetalle)
-        CargaDatos(CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CvePS, Mes, MesEjec, CveCliente, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatus, GPO.ToEntero, TipoDocto, CveMarca)
+        CargaDatos(CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CvePS, Mes, MesEjec, CveCliente, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatus, GPO.ToEntero, TipoDocto, CveMarca, ModalidadContable)
         CargarMarcas(CveMarca)
     End Sub
 #End Region
@@ -432,7 +433,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                               DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
                                               UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda,
                                               TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra,
-                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
+                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
+                                              ModalidadContable:=ChkModalidadContable.Checked) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             TmpDT = ObjVentas.DtResultados
         Else
@@ -444,7 +446,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         Agrupador = DdlGrupo.SelectedItem.Text
     End Sub
 
-    Private Sub CargaDatos(CveProyecto As String, CveSubProyecto As String, CveCategoria As String, CveClasificacion As String, CvePS As String, Mes As String, MesEjec As String, CveCliente As Integer, CveSubProyectoEjecucion As String, CveVendedor As Integer, CveUsuario As String, CveEstatus As String, Gpo As Integer, TipoDocto As String, CveMarca As Integer)
+    Private Sub CargaDatos(CveProyecto As String, CveSubProyecto As String, CveCategoria As String, CveClasificacion As String, CvePS As String, Mes As String, MesEjec As String, CveCliente As Integer, CveSubProyectoEjecucion As String, CveVendedor As Integer, CveUsuario As String, CveEstatus As String, Gpo As Integer, TipoDocto As String, CveMarca As Integer, ModalidadContable As Boolean)
         Dim ObjVentas As New ClsVentas()
         Dim FechaI, FechaF, FechaIEjec, FechaFEjec As Date
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)

Ventas/RepProductosServiciosPeriodo.aspx

@@ -236,6 +236,12 @@
                             <asp:DropDownList ID="DdlClienteClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteClasificacion_SelectedIndexChanged" runat="server" AppendDataBoundItems="true" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me"  DataTextField="ClienteClasificacion" DataValueField="CveClienteClasificacion"></asp:DropDownList>
                         </div>
                     </div>
+                    <div class="row" >
+                        <label class="col-md-1 truncate">Modalidad Contable:</label>
+                        <div class="col-md-2">
+                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
+                        </div>
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Ventas/RepProductosServiciosPeriodo.aspx.cs

@@ -353,8 +353,8 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         DateTime FechaI, FechaF, FechaIEjec, FechaFEjec;
         if (txtFechaI.Text.Trim() != "") { FechaI = txtFechaI.Text.ToDate(); } else { FechaI = MinFecha; }
         if (txtFechaF.Text.Trim() != "") { FechaF = txtFechaF.Text.ToDate(); } else { FechaF = MaxFecha; }
-        if (TxtFechaIEjec.Text.Trim() != "") { FechaIEjec = TxtFechaIEjec.Text.ToDate(); } else { FechaIEjec = MinFecha; }
-        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }
+        if (TxtFechaIEjec.Text.Trim() != "") { FechaIEjec = TxtFechaIEjec.Text.ToDate(); } else { FechaIEjec = MinFecha; }
+        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }
 
         if (ObjVentas.GetRepPSPeriodo(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero(), DdlSubProyectoEjecucion.SelectedValue.ToEntero(),
             DdlVendedor.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), "-1", UsuarioActual.CveEmpresa,

Ventas/RepVentas.aspx

@@ -299,7 +299,7 @@
                             </asp:DropDownList>
                         </div>
                     </div>
-                    <div class="row">
+                    <div class="row" id="divModalidadcontable" runat="server" visible="false">
                         <label class="col-md-1 truncate">Modalidad Contable:</label>
                         <div class="col-md-2">
                             <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />

Ventas/RepVentas.aspx.vb

@@ -98,6 +98,11 @@ Partial Class Ventas_RepVentas
                 liRepHP.Visible = True
             End If
 
+            'SI ES EL USUARIO SISTEMA MOSTRAR LA MODALIDAD CONTABLE (TEMPORAL)
+            If UsuarioActual.CveUsuario = 100 Then
+                divModalidadcontable.Visible = True
+            End If
+
             'Modalidad Cotizacion
             If Opcion = "Cot" Then
                 DdlTipoComprobante.SelectedValuesIfExistM(Opcion)

Ventas/RepVentasPeriodo.aspx.vb

@@ -195,7 +195,7 @@ Partial Class RepVentasPeriodo
         If ObjVentas.GetRepVentasPeriodos(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero,
                                   DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue,
                                   DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                  VerEn:=VerEn, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
+                                  VerEn:=VerEn, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then
 
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados

Ventas/Ventas.aspx.vb

@@ -2089,7 +2089,7 @@ Partial Class Ventas
 
             TrSinExistencia.Visible = UsuarioActual.TienePermisoProceso(276)
 
-            If UsuarioActual.CveEmpresa.Contiene(119, 1) Then
+            If UsuarioActual.Empresa.Funcionalidad(595) = "1" Then
                 ImgDescPU.Visible = False
                 ImgDescConcepto.Visible = False
                 DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA"))
@@ -4387,7 +4387,7 @@ Partial Class Ventas
                 HdnIVAOriginal.Value = TxtIVA.Text
                 TxtPedidoContrato.Text = DbRowVenta("PedidoContrato").ToString()
                 TxtPedidoContrato.Enabled = False
-                TxtKilometraje.Text = DbRowVenta("Kilometraje").ToString()
+                TxtKilometraje.Text = DbRowVenta("Kilometraje").ToString().PadLeft(6, "0"c)
 
                 HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString()
                 HdnSubTotalDescuestos.Value = (TxtSubTotal.Text.Replace(",", "").ToDouble - LblDescuentos.Text.Replace(",", "").ToDouble - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble - TxtRetISR.Text.Replace(",", "").ToDouble).FormatoNumero(2)
@@ -5241,16 +5241,26 @@ Partial Class Ventas
             Else
                 Dim DTAlmacen As DataTable
                 ddlAlmacen.Items.Clear()
+
                 DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
                 ddlAlmacen.DataSource = DTAlmacen
-                If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then
-                    ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-                    ddlAlmacen.SelectedValue = "-1"
-                End If
+
+                ddlAlmacen.Items.Insert(0, New ListItem("Seleccione ", "-1"))
+                ddlAlmacen.SelectedValueExist("-1")
+
                 ddlAlmacen.DataBind()
+
                 If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").Rows.Count > 0 Then
-                    ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+                    'SI ES DEL MISMO SUB PROYECTO SUGIERE EL ALMACEN ASIGNADO AL USUARIO
+                    If UsuarioActual.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero() Then
+                        ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+                    Else
+                        Dim CveAlmacen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}").ToEntero()
+                        ddlAlmacen.SelectedValueExist(CveAlmacen)
+                    End If
+
                 End If
+
             End If
 
             'SI TIENE CONTRATO NO SE MUEVE
@@ -5351,8 +5361,11 @@ Partial Class Ventas
 
                 If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then
                     Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
+                    BtnEmitirImprimir.Visible = EstatusCliente
+                    TrVistaPrevia.Visible = EstatusCliente
                 End If
 
+
                 'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE
                 If UsuarioActual.CveEmpresa = 72 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
                     ChkEnviarFactura.Checked = False
@@ -5935,7 +5948,8 @@ Partial Class Ventas
             RBLPago.SelectedValue = "2"
             RBLPago.Items(0).Enabled = False
             RBLPago_SelectedIndexChanged(Nothing, Nothing)
-            If UsuarioActual.CveEmpresa.Contiene(119) AndAlso Not UsuarioActual.TienePermisoProceso(268) Then
+            'GENERAR UNA AUTORIZACIÓN SI EL CLIENTE NO PERMITE CREDITO
+            If UsuarioActual.Empresa.Funcionalidad(595) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) Then
                 DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
                 DdlTipoComprobante.SelectedValue = "PA"
                 TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
@@ -5948,7 +5962,8 @@ Partial Class Ventas
                 LnkCotizaciones.Visible = False
             End If
             UPCondicionesPago.Update()
-        ElseIf UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 146, 158, 140) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then
+            'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA
+        ElseIf UsuarioActual.Empresa.Funcionalidad(596) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then
             RBLPago.SelectedValue = "1"
             RBLPago_SelectedIndexChanged(Nothing, Nothing)
             UPCondicionesPago.Update()
@@ -5958,7 +5973,7 @@ Partial Class Ventas
                 TrCreditoDisponible.Visible = True
                 LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
                 If PorcentajeCredito > 80 Then TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%"
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
+                If UsuarioActual.Empresa.Funcionalidad(597) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
 
                     'If LblRFC.Text.Trim <> "XAXX010101000" Then
 
@@ -6010,19 +6025,23 @@ Partial Class Ventas
 
                 End If
             Else
+                'GENERAR AUTORIZACION SI TIENE EXCEDIO EL LIMITE DE CREDITO
+                If UsuarioActual.Empresa.Funcionalidad(595) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
 
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
-                    Dim Vta As New ClsVentas
-                    Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
-                    Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
-                    Vta.Dispose()
-                    If Opcion > 0 Then
-                        If Opcion = 1 Then
-                            BtnEmitirImprimir.Visible = False
+                    'VERIFICAR CANDADOS DE VENTA, REMISIONES SIN FACTURAR, FACTURAS QUE NO TENGAN VENCIDAS
+                    If UsuarioActual.Empresa.Funcionalidad(597) = "1" Then
+                        Dim Vta As New ClsVentas
+                        Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
+                        Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
+                        Vta.Dispose()
+                        If Opcion > 0 Then
+                            If Opcion = 1 Then
+                                BtnEmitirImprimir.Visible = False
+                            End If
+                            If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+                        Else
+                            If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
                         End If
-                        If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                    Else
-                        If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
                     End If
 
                     'RBLPago.SelectedValue = "2"
@@ -6049,7 +6068,7 @@ Partial Class Ventas
                 End If
             End If
             UPPCreditoDisponible.Update()
-        ElseIf UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso CveVenta > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Pd2", "Cot") Or (DdlTipoComprobante.SelectedValue = "Rem" And ModalidadEdicion And ViewState("CveClienteAnterior").ToString().ToEntero() > 0 And LblRFC.Text.Trim <> "XAXX010101000")) Then
+        ElseIf UsuarioActual.Empresa.Funcionalidad(597) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso CveVenta > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Pd2", "Cot") Or (DdlTipoComprobante.SelectedValue = "Rem" And ModalidadEdicion And ViewState("CveClienteAnterior").ToString().ToEntero() > 0 And LblRFC.Text.Trim <> "XAXX010101000")) Then
             Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
             If CreditoDispo > 0 Then
                 Dim Vta As New ClsVentas
@@ -8441,7 +8460,7 @@ Partial Class Ventas
 
         ObjFacturaDevolucion.TipoDocto = "Egs"
 
-        If UsuarioActual.CveEmpresa = 140 Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             Dim ObjFolios As New ClsGralFolios()
             Dim TipoDoctoConsulta As String = If(ObjFacturaDevolucion.TipoDocto = "Ant", "Ing", If(ObjFacturaDevolucion.TipoDocto = "PA", "Rem", ObjFacturaDevolucion.TipoDocto))
 
@@ -8719,7 +8738,7 @@ Partial Class Ventas
 
         ObjFacturaBonificacion.TipoDocto = "Egs"
 
-        If UsuarioActual.CveEmpresa = 140 Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             Dim ObjFolios As New ClsGralFolios()
             Dim TipoDoctoConsulta As String = If(ObjFacturaBonificacion.TipoDocto = "Ant", "Ing", If(ObjFacturaBonificacion.TipoDocto = "PA", "Rem", ObjFacturaBonificacion.TipoDocto))
 
@@ -9148,7 +9167,7 @@ Partial Class Ventas
         ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
 
 
-        If UsuarioActual.CveEmpresa = 140 Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             Dim ObjFolios As New ClsGralFolios()
             Dim TipoDoctoConsulta As String = If(ObjFactura.TipoDocto = "Ant", "Ing", If(ObjFactura.TipoDocto = "PA", "Rem", ObjFactura.TipoDocto))
 
@@ -9809,7 +9828,7 @@ Partial Class Ventas
         'ObjFacturaDevolucion.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text)
         ObjFacturaDevolucion.TipoDocto = "Egs"
 
-        If UsuarioActual.CveEmpresa = 140 Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             Dim ObjFolios As New ClsGralFolios()
             Dim TipoDoctoConsulta As String = If(ObjFacturaDevolucion.TipoDocto = "Ant", "Ing", If(ObjFacturaDevolucion.TipoDocto = "PA", "Rem", ObjFacturaDevolucion.TipoDocto))
 
@@ -11074,17 +11093,26 @@ Partial Class Ventas
 
                 End If
 
-                If DTRemisiones IsNot Nothing AndAlso DTRemisiones.Rows.Count > 0 AndAlso ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
+                'If DTRemisiones IsNot Nothing AndAlso DTRemisiones.Rows.Count > 0 AndAlso ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
 
-                    Dim dt As DataTable = DTRemisiones.FiltraParametros("Aplicado = True")
-                    If dt.Rows.Count > 0 Then
-                        For Each row As DataRow In dt.Rows
-                            If Not ObjVentas.UpdateVentaRemision(row("CveVenta").ToString().ToEntero(), ObjFactura.CveVenta) Then
-                                ErrorList.Add("Ocurrió un error al actualizar la remisión")
-                            End If
-                        Next
-                    End If
+                '    Dim dt As DataTable = DTRemisiones.FiltraParametros("Aplicado = True")
+                '    If dt.Rows.Count > 0 Then
+                '        For Each row As DataRow In dt.Rows
+                '            If Not ObjVentas.UpdateVentaRemision(row("CveVenta").ToString().ToEntero(), ObjFactura.CveVenta) Then
+                '                ErrorList.Add("Ocurrió un error al actualizar la remisión")
+                '            End If
+                '        Next
+                '    End If
+                'End If
+
+                If RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count > 0 AndAlso ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
+                    For Each CveRemision As Integer In RemisionesLista
+                        If Not ObjVentas.UpdateVentaRemision(CveRemision, ObjFactura.CveVenta) Then
+                            ErrorList.Add("Ocurrió un error al actualizar la remisión")
+                        End If
+                    Next
                 End If
+
             End If
 
             If ErrorList.Count = 0 Then
@@ -12840,6 +12868,12 @@ Partial Class Ventas
                     End If
 
                     Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero()
+
+                    If CveAlmacen <= 0 Then
+                        OcurrioError = True
+                        ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />No ha seleccionado ningun almacen o no tiene permiso para el almacen de esta sucursal.")
+                    End If
+
                     Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E1")
 
                     If CveMovimientoInventario <= 0 Then
@@ -15899,7 +15933,7 @@ Partial Class Ventas
         GvPS.DataBind()
         UpPS.Update()
     End Sub
-    Private Sub CargaFolios()
+    Private Sub CargaFolios(Optional FacturarDocumentoNuevo As Boolean = False)
         If ExFolioFactura Then
             Exit Sub
         End If
@@ -15921,15 +15955,19 @@ Partial Class Ventas
                 'ViewState("NumAprobacion") = CLng(DT.Rows(0)("Aprobacion").ToString())
                 'ViewState("FechaAprobacion") = DT.Rows(0)("FechaAprobacion").ToString().ToDate
                 ViewState("FolioActual") = DT.Rows(0)("FActual").ToString()
-                If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then
                     LblSerie.Text = SerieVenta
                 Else
                     LblSerie.Text = DT.Rows(0)("Serie").ToString()
                 End If
                 TxtFolio.Text = DT.Rows(0)("FActual").ToString()
-                BtnCrearApartirDe.Enabled = True
-                BtnEmitirImprimir.Visible = True
-                TrVistaPrevia.Visible = True
+
+                If Not FacturarDocumentoNuevo Then
+                    BtnCrearApartirDe.Enabled = EstatusCliente
+                    BtnEmitirImprimir.Visible = EstatusCliente
+                    TrVistaPrevia.Visible = EstatusCliente
+                End If
+
                 UpFacturar.Update()
             Else
 
@@ -24300,7 +24338,7 @@ Partial Class Ventas
     Private Sub CargaCxC()
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetCxCClienteDetalle(ViewState("CveCliente").ToString().ToEntero(), "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero()) Then
-            Dim DtTemporal As DataTable = ObjMovtos.DtResultados.FiltraParametros("TipoDocto <> 'RNC' AND Tipo = 'Act' AND CveVenta > 0", "Moneda, OrdenVencimiento, FechaVencimiento")
+            Dim DtTemporal As DataTable = ObjMovtos.DtResultados.FiltraParametros("TipoDocto NOT IN ('RNC','Rem') AND Tipo = 'Act' AND CveVenta > 0", "Moneda, OrdenVencimiento, FechaVencimiento")
             GvCxC.DataSource = DtTemporal
         End If
         ObjMovtos.Dispose()
@@ -28204,7 +28242,7 @@ Partial Class Ventas
                 End If
             End If
 
-            If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
+            If FolioFijo = 0 Then CargaFolios(FacturarDocumentoNuevo:=True) 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
             EmitirImprimir(TipoDoctoViejo) 'MANDA A EMITIR - PROCESO VIEJO
         End If
 
@@ -28265,7 +28303,7 @@ Partial Class Ventas
 
 
     Private Sub CalculaUsados(Optional DtUsadosDevolucion As DataTable = Nothing)
-        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Cot", "Dev") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Cot", "Dev", "PA") Then
             If ViewState("CargoUsado").ToString() = "False" Then
                 Exit Sub
             End If

WebBase.config

@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="utf-8"?>
 <!-- 
     Note: As an alternative to hand editing this file you can use the 
     web admin tool to configure settings for your application. Use
@@ -9,56 +9,58 @@
 -->
 <configuration>
   <configSections>
-    <section name="ajaxControlToolkit" type="AjaxControlToolkit.AjaxControlToolkitConfigSection, AjaxControlToolkit"/>
+    <section name="ajaxControlToolkit" type="AjaxControlToolkit.AjaxControlToolkitConfigSection, AjaxControlToolkit" />
     <sectionGroup name="businessObjects">
       <sectionGroup name="crystalReports">
-        <section name="rptBuildProvider" type="CrystalDecisions.Shared.RptBuildProviderHandler, CrystalDecisions.Shared, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304, Custom=null"/>
-        <section name="crystalReportViewer" type="System.Configuration.NameValueSectionHandler"/>
+        <section name="rptBuildProvider" type="CrystalDecisions.Shared.RptBuildProviderHandler, CrystalDecisions.Shared, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692fbea5521e1304, Custom=null" />
+        <section name="crystalReportViewer" type="System.Configuration.NameValueSectionHandler" />
       </sectionGroup>
     </sectionGroup>
   </configSections>
-  <ajaxControlToolkit useStaticResources="true" renderStyleLinks="false" htmlSanitizer="AjaxControlToolkit.HtmlEditor.Sanitizer.DefaultHtmlSanitizer, AjaxControlToolkit.HtmlEditor.Sanitizer"/>
+  <ajaxControlToolkit useStaticResources="true" renderStyleLinks="false" htmlSanitizer="AjaxControlToolkit.HtmlEditor.Sanitizer.DefaultHtmlSanitizer, AjaxControlToolkit.HtmlEditor.Sanitizer" />
   <businessObjects>
     <crystalReports>
       <rptBuildProvider>
-        <add embedRptInResource="true"/>
+        <add embedRptInResource="true" />
       </rptBuildProvider>
       <crystalReportViewer>
-        <add key="ResourceUri" value="/aspnet_client/system_web/4_0_30319/crystalreportviewers"/>
+        <add key="ResourceUri" value="/aspnet_client/system_web/4_0_30319/crystalreportviewers" />
       </crystalReportViewer>
     </crystalReports>
   </businessObjects>
   <system.webServer>
+
     <staticContent>
-      <remove fileExtension=".woff"/>
-      <remove fileExtension=".woff2"/>
-      <mimeMap fileExtension=".woff" mimeType="application/x-font-woff"/>
-      <mimeMap fileExtension=".woff2" mimeType="application/font-woff2"/>
+      <remove fileExtension=".woff" />
+      <remove fileExtension=".woff2" />
+      <mimeMap fileExtension=".woff" mimeType="application/x-font-woff" />
+      <mimeMap fileExtension=".woff2" mimeType="application/font-woff2" />
     </staticContent>
     <handlers>
-      <remove name="ChartImageHandler"/>
-      <add name="AspMap.Web.ImageHandler" path="MapImageHandler.axd" verb="*" type="AspMap.Web.ImageHandler, AspMapNET" preCondition="integratedMode"/>
-      <add name="ChartImageHandler" preCondition="integratedMode" verb="GET,HEAD,POST" path="ChartImg.axd" type="System.Web.UI.DataVisualization.Charting.ChartHttpHandler, System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
-      <add name="CrystalImageHandler.aspx_GET" verb="GET" path="CrystalImageHandler.aspx" type="CrystalDecisions.Web.CrystalImageHandler, CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" preCondition="integratedMode"/>
-      <add name="ReportViewerWebControlHandler" preCondition="integratedMode" verb="*" path="Reserved.ReportViewerWebControl.axd" type="Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>
-      <add name="AjaxFileUploadHandler" verb="*" path="AjaxFileUploadHandler.axd" type="AjaxControlToolkit.AjaxFileUploadHandler, AjaxControlToolkit"/>
-      <remove name="ExtensionlessUrlHandler-Integrated-4.0"/>
-      <remove name="OPTIONSVerbHandler"/>
-      <remove name="TRACEVerbHandler"/>
-      <add name="ExtensionlessUrlHandler-Integrated-4.0" path="*." verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0"/>
+      <remove name="ChartImageHandler" />
+      <add name="AspMap.Web.ImageHandler" path="MapImageHandler.axd" verb="*" type="AspMap.Web.ImageHandler, AspMapNET" preCondition="integratedMode" />
+      <add name="ChartImageHandler" preCondition="integratedMode" verb="GET,HEAD,POST" path="ChartImg.axd" type="System.Web.UI.DataVisualization.Charting.ChartHttpHandler, System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" />
+      <add name="CrystalImageHandler.aspx_GET" verb="GET" path="CrystalImageHandler.aspx" type="CrystalDecisions.Web.CrystalImageHandler, CrystalDecisions.Web, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" preCondition="integratedMode" />
+      <add name="AjaxFileUploadHandler" verb="*" path="AjaxFileUploadHandler.axd" type="AjaxControlToolkit.AjaxFileUploadHandler, AjaxControlToolkit" />
+      <remove name="ExtensionlessUrlHandler-Integrated-4.0" />
+      <remove name="OPTIONSVerbHandler" />
+      <remove name="TRACEVerbHandler" />
+      <add name="ReportViewerWebControlHandler" preCondition="integratedMode" verb="*" path="Reserved.ReportViewerWebControl.axd" type="Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
+      <add name="ExtensionlessUrlHandler-Integrated-4.0" path="*." verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0" />
     </handlers>
     <defaultDocument>
       <files>
-        <add value="Inicio.aspx"/>
+        <add value="Inicio.aspx" />
       </files>
     </defaultDocument>
-    <validation validateIntegratedModeConfiguration="false"/>
+    <validation validateIntegratedModeConfiguration="false" />
+    <modules runAllManagedModulesForAllRequests="true" />
   </system.webServer>
   <!-- BLOQUEO, NO es accesible a todos los usuarios -->
   <location path="Empresas">
     <system.web>
       <authorization>
-        <deny users="*"/>
+        <deny users="*" />
       </authorization>
     </system.web>
   </location>
@@ -66,170 +68,193 @@
   <location path="Portal">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="PortalGPS">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Proveedores">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="bundles">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Scripts">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Content">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Metronic">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="AIMMGM">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Ashx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Asmx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Loginx.aspx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Login2.aspx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="OC/CotizacionEnLinea.aspx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="ZDG/WhatsApp.aspx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="ZDG/MensajeAutomatico.aspx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Sistemas/WsRespaldos.asmx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Sistemas/NotificacionesEnlinea.aspx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="Politicas.aspx">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <location path="ScriptResource.axd">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
-  <location path="PortalGPS/ServiciosGPS.aspx">
+  <location path="api">
     <system.web>
       <authorization>
-        <allow users="*"/>
+        <allow users="*" />
+      </authorization>
+    </system.web>
+  </location>
+  <location path="api/SIGVentas">
+    <system.web>
+      <authorization>
+        <allow users="*" />
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Ventas/RepVentaDetalle.aspx">
+    <system.web>
+      <httpRuntime executionTimeout="200" maxRequestLength="1550000" targetFramework="3.5" />
+      <authorization>
+        <allow users="*" />
       </authorization>
     </system.web>
   </location>
   <appSettings>
-    <add key="ChartImageHandler" value="storage=file;timeout=5;dir=C:\inetpub\wwwVentas\Temp;"/>
-    <add key="CrystalImageCleaner-AutoStart" value="true"/>
-    <add key="CrystalImageCleaner-Sleep" value="60000"/>
-    <add key="CrystalImageCleaner-Age" value="120000"/>
-    <add key="ValidationSettings:UnobtrusiveValidationMode" value="None"/>
-    <add key="aspnet:MaxHttpCollectionKeys" value="50000"/>
-    <add key="ContPAQDescargas" value="D:\Compac\Empresas\"/>
-    <add key="RespaldosArchivos" value="\\WIN-80TBS47AVIU\Compac\Empresas\"/>
-    <add key="UrlSitio" value="http://sig.adsistemas.mx/"/>
-    <add key="UrlDirecciones" value="https://addr.signalsgps.com/"/>
-    <add key="EsProduccion" value="1"/>
+    <add key="ChartImageHandler" value="storage=file;timeout=5;dir=C:\inetpub\wwwVentas\Temp;" />
+    <add key="CrystalImageCleaner-AutoStart" value="true" />
+    <add key="CrystalImageCleaner-Sleep" value="60000" />
+    <add key="CrystalImageCleaner-Age" value="120000" />
+    <add key="ValidationSettings:UnobtrusiveValidationMode" value="None" />
+    <add key="aspnet:MaxHttpCollectionKeys" value="50000" />
+    <add key="ContPAQDescargas" value="D:\Compac\Empresas\" />
+    <add key="RespaldosArchivos" value="\\WIN-80TBS47AVIU\Compac\Empresas\" />
+    <add key="DirectorioBaseEmpresas" value="D:\ADSistemas\Proyectos\SIG\WEB\" />
+    <add key="UrlSitio" value="http://sig.adsistemas.mx/" />
+    <add key="UrlDirecciones" value="https://addr.signalsgps.com/" />
+    <add key="EsProduccion" value="0" />
+    <add key="urlcerrarSession" value="http://localhost:85/Inicio.aspx?logout=1" />
   </appSettings>
   <connectionStrings>
-    
-    <add name="Conexion1" connectionString="Data Source=192.168.1.3\server2017,1533;Initial Catalog=SIG_Resp_Today;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
-    <add name="Conexion2" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_Pepper;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
-    <add name="ConexionJLC" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_JLC;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
-    <add name="ConexionH" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_Pepper;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
-    <add name="Conexion" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_Today;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
-    <add name="Conexionjlc2" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_JLC2;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
-    <add name="ConexionProductivo" connectionString="Data Source=192.168.0.2;Initial Catalog=Ventas;User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
-    <add name="Conexion6" connectionString="Data Source=Caudillo\Cauditronic;Initial Catalog=Ventas2;User Id=sa;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
-    <add name="Conexionkjfhhjfjfk" connectionString="Data Source=Caudillo\Cauditronic;Initial Catalog=Ventas;User Id=sa;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
-    <add name="Conexion8" connectionString="Data Source=(local);Initial Catalog=Ventas;User Id=RMolina;Password=RMol156.321;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
-    <add name="ConexionContPAQi" connectionString="Data Source=192.168.0.2\COMPAC,1430;User Id=RMolina;Password=Rene2013;"/>
-    <add name="ConexionDG" connectionString="Data Source=192.168.0.2;Initial Catalog=DG2016;User Id=IPina;Password=IsrPin2708*987;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
+    <add name="ConexionXD" connectionString="Data Source=192.168.10.111;Initial Catalog=SIG_Resp_Today;User Id=Usuario;Password=Desarrollo2019;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexion" connectionString="Data Source=192.168.0.2;Initial Catalog=Ventas;User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexionlllll" connectionString="Data Source=CAUDILLO;Initial Catalog=SIG_Resp_JLC;User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexionberahapy" connectionString="Data Source=192.168.10.111;Initial Catalog=SIG_Resp_Happy;User Id=Usuario;Password=Desarrollo2019;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexiondesarollolocal" connectionString="Data Source=localhost;Initial Catalog=SIG_Resp_JLC;User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexionbera" connectionString="Data Source=192.168.10.111;Initial Catalog=SIG_Resp_JLC;User Id=Usuario;Password=Desarrollo2019;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexionz" connectionString="Data Source=192.168.10.111;Initial Catalog=Ventas20190424;User Id=Usuario;Password=Desarrollo2019;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexiozg" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_JLC;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexionpepper" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_Pepper;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexiongdfg" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_JLC;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexionn" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_Pepper;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexionoscafr" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_OIC;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="ConexionJLC2" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_JLC2;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;" />
+    <add name="Conexionprodon" connectionString="Data Source=192.168.0.2;Initial Catalog=Ventas;User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;" />
+    <add name="Conexionzxyu" connectionString="Data Source=Caudillo\Cauditronic;Initial Catalog=Ventas2;User Id=sa;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;" />
+    <add name="Conexionlocall6" connectionString="Data Source=Caudillo\Cauditronic;Initial Catalog=Ventas3;User Id=sa;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;" />
+    <add name="Conexion8" connectionString="Data Source=(local);Initial Catalog=Ventas;User Id=RMolina;Password=RMol156.321;pooling=True; Min Pool Size=10;Application Name=SIG;" />
+    <add name="ConexionContPAQi" connectionString="Data Source=192.168.0.2\COMPAC,1430;User Id=RMolina;Password=Rene2013;" />
+    <add name="ConexionDG" connectionString="Data Source=192.168.0.2;Initial Catalog=DG2016;User Id=IPina;Password=IsrPin2708*987;pooling=True; Min Pool Size=10;Application Name=SIG;" />
   </connectionStrings>
   <system.web>
     <!-- 
@@ -239,26 +264,28 @@
             during development.
         -->
     <httpHandlers>
-      <add path="ChartImg.axd" verb="GET,HEAD,POST" type="System.Web.UI.DataVisualization.Charting.ChartHttpHandler, System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" validate="false"/>
-      <add path="MapImageHandler.axd" verb="*" type="AspMap.Web.ImageHandler, AspMapNET"/>
-      <add path="Reserved.ReportViewerWebControl.axd" verb="*" type="Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" validate="false"/>
-      <add verb="GET" path="CrystalImageHandler.aspx" type="CrystalDecisions.Web.CrystalImageHandler, CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
-      <add verb="*" path="AjaxFileUploadHandler.axd" type="AjaxControlToolkit.AjaxFileUploadHandler, AjaxControlToolkit"/>
+      <add path="ChartImg.axd" verb="GET,HEAD,POST" type="System.Web.UI.DataVisualization.Charting.ChartHttpHandler, System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" validate="false" />
+      <add path="MapImageHandler.axd" verb="*" type="AspMap.Web.ImageHandler, AspMapNET" />
+      <add verb="GET" path="CrystalImageHandler.aspx" type="CrystalDecisions.Web.CrystalImageHandler, CrystalDecisions.Web, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" />
+      <add verb="*" path="AjaxFileUploadHandler.axd" type="AjaxControlToolkit.AjaxFileUploadHandler, AjaxControlToolkit" />
+      <add path="Reserved.ReportViewerWebControl.axd" verb="*" type="Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" validate="false" />
     </httpHandlers>
     <pages>
       <controls>
         <add assembly="Microsoft.AspNet.Web.Optimization.WebForms" namespace="Microsoft.AspNet.Web.Optimization.WebForms" tagPrefix="webopt" />
-        <add tagPrefix="asp" namespace="System.Web.UI.DataVisualization.Charting" assembly="System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
-        <add tagPrefix="ADS" namespace="ADServerControl" assembly="ADServerControl"/>
-        <add tagPrefix="ajax" namespace="AjaxControlToolkit" assembly="AjaxControlToolkit"/>
-        <add tagPrefix="CR" namespace="CrystalDecisions.Web" assembly="CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
-        <add tagPrefix="rvweb" namespace="Microsoft.Reporting.WebForms" assembly="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>
-        <add tagPrefix="telerik" namespace="Telerik.Web.UI" assembly="Telerik.Web.UI"/>
+        <add tagPrefix="asp" namespace="System.Web.UI.DataVisualization.Charting" assembly="System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" />
+        <add tagPrefix="ADS" namespace="ADServerControl" assembly="ADServerControl" />
+        <add tagPrefix="ajax" namespace="AjaxControlToolkit" assembly="AjaxControlToolkit" />
+        <add tagPrefix="CR" namespace="CrystalDecisions.Web" assembly="CrystalDecisions.Web, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" />
+        <add tagPrefix="rvweb" namespace="Microsoft.Reporting.WebForms" assembly="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
+        <add tagPrefix="telerik" namespace="Telerik.Web.UI" assembly="Telerik.Web.UI" />
+        <add tagPrefix="UserControl" src="~/UserControl/TareaNueva.ascx" tagName="TareaNueva" />
       </controls>
     </pages>
-    <globalization culture="es-MX" uiCulture="es-MX"/>
-    <httpRuntime executionTimeout="200" maxRequestLength="1550000" targetFramework="4.5"/>
+    <globalization culture="es-MX" uiCulture="es-MX" />
+    <httpRuntime executionTimeout="200" maxRequestLength="1550000" targetFramework="4.5" />
     <compilation debug="true" strict="true" explicit="true" targetFramework="4.5">
+
       <assemblies>
         <!--<add assembly="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>
         <add assembly="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>-->
@@ -267,34 +294,39 @@
         <add assembly="CrystalDecisions.Shared, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
         <add assembly="CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
         <add assembly="CrystalDecisions.ReportAppServer.ClientDoc, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>-->
-        <add assembly="Microsoft.SqlServer.Types, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91"/>
-        <add assembly="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91"/>
-        <add assembly="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91"/>
-        <!--<add assembly="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91" />
-        <add assembly="Microsoft.ReportViewer.ProcessingObjectModel, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91" />-->
+        <add assembly="Microsoft.SqlServer.Types, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91" />
+        <add assembly="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91" />
+        <add assembly="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91" />
         <!--<add assembly="CrystalDecisions.CrystalReports.Engine, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
         <add assembly="CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
         <add assembly="CrystalDecisions.ReportSource, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
         <add assembly="CrystalDecisions.Shared, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
          <add assembly="CrystalDecisions.ReportAppServer.ClientDoc, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>-->
-        <add assembly="System.IO.Compression, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
-        <add assembly="System.IO.Compression.FileSystem, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
-        <add assembly="Stimulsoft.Report, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
-        <add assembly="Stimulsoft.Report.Web, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
-        <add assembly="Stimulsoft.Report.WebDesign, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
-        <add assembly="Stimulsoft.Base, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
-        <add assembly="Stimulsoft.Report.MobileDesign, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
-        <add assembly="Stimulsoft.Report.Mobile, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
-        <add assembly="Microsoft.VisualBasic, Version=10.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
-        <add assembly="System.Net.Http, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
-        <add assembly="stdole, Version=7.0.3300.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
-        <add assembly="CrystalDecisions.CrystalReports.Engine, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
-        <add assembly="CrystalDecisions.Shared, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
-        <add assembly="CrystalDecisions.ReportSource, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <add assembly="System.IO.Compression, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
+        <add assembly="System.IO.Compression.FileSystem, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089" />
+        <add assembly="Stimulsoft.Report, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A" />
+        <add assembly="Stimulsoft.Report.Web, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A" />
+        <add assembly="Stimulsoft.Report.WebDesign, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A" />
+        <add assembly="Stimulsoft.Base, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A" />
+        <add assembly="Stimulsoft.Report.MobileDesign, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A" />
+        <add assembly="Stimulsoft.Report.Mobile, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A" />
+        <add assembly="Microsoft.VisualBasic, Version=10.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
+        <add assembly="System.Net.Http, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
+        <add assembly="stdole, Version=7.0.3300.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
+        <add assembly="CrystalDecisions.CrystalReports.Engine, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304" />
+        <add assembly="CrystalDecisions.Shared, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304" />
+        <add assembly="CrystalDecisions.ReportSource, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304" />
+        <add assembly="CrystalDecisions.Web, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304" />
+        <!--<add assembly="log4net, Version=1.2.10.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/> -->
+        <add assembly="CrystalDecisions.ReportAppServer.Controllers, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304" />
+        <add assembly="CrystalDecisions.ReportAppServer.DataDefModel, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304" />
+        <add assembly="System.Security, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" />
+        <add assembly="CrystalDecisions.ReportAppServer.ClientDoc, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" />
+        <add assembly="Microsoft.ReportViewer.ProcessingObjectModel, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91" />
       </assemblies>
       <buildProviders>
-        <add extension=".rdlc" type="Microsoft.Reporting.RdlBuildProvider, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>
-        <add extension=".rpt" type="CrystalDecisions.Web.Compilation.RptBuildProvider, CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+        <!--<add extension=".rdlc" type="Microsoft.Reporting.RdlBuildProvider, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
+        <add extension=".rpt" type="CrystalDecisions.Web.Compilation.RptBuildProvider, CrystalDecisions.Web, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" />-->
       </buildProviders>
     </compilation>
     <!--
@@ -303,13 +335,13 @@
           ASP.NET to identify an incoming user. 
         -->
     <authentication mode="Forms">
-      <forms loginUrl="LogIn.aspx" protection="All" timeout="90" name=".ASPXSIG" path="/" requireSSL="false" slidingExpiration="true" defaultUrl="Inicio.aspx" cookieless="UseDeviceProfile" enableCrossAppRedirects="false"/>
+      <forms loginUrl="LogIn.aspx" protection="All" timeout="90" name=".ASPXSIG" path="/" requireSSL="false" slidingExpiration="true" defaultUrl="Inicio.aspx" cookieless="UseDeviceProfile" enableCrossAppRedirects="false" />
     </authentication>
     <authorization>
-      <deny users="?"/>
+      <deny users="?" />
     </authorization>
-    <customErrors mode="Off"/>
-    <machineKey validationKey="729966AC958271629627612BB77B2B02A3F24EE20B16FBE6F3E62E4029CE2B11E24CA9EEFDC4B22406550B3C58691B765B093D2C90C15E08AF147B6DBB962F6B" decryptionKey="F73E5A8FB4ED7CB9D5EC4DEE876FEDAD4F5E6829FCB1B590670A8112F8EB7D8F" validation="SHA1" decryption="AES"/>
+    <customErrors mode="Off" />
+    <machineKey validationKey="729966AC958271629627612BB77B2B02A3F24EE20B16FBE6F3E62E4029CE2B11E24CA9EEFDC4B22406550B3C58691B765B093D2C90C15E08AF147B6DBB962F6B" decryptionKey="F73E5A8FB4ED7CB9D5EC4DEE876FEDAD4F5E6829FCB1B590670A8112F8EB7D8F" validation="SHA1" decryption="AES" />
     <!-- <sessionState mode="InProc" regenerateExpiredSessionId="true" timeout="60" compressionEnabled="false" />
     
            The <customErrors> section enables configuration 
@@ -325,7 +357,7 @@
             -->
     <sessionState cookieless="UseCookies" customProvider="NCacheSessionProvider" mode="InProc" regenerateExpiredSessionId="true" timeout="120">
       <providers>
-        <add name="NCacheSessionProvider" type="Alachisoft.NCache.Web.SessionState.NSessionStoreProvider" sessionAppId="WebF1" cacheName="locCache" writeExceptionsToEventLog="false" asyncSession="false" enableLogs="false"/>
+        <add name="NCacheSessionProvider" type="Alachisoft.NCache.Web.SessionState.NSessionStoreProvider" sessionAppId="WebF1" cacheName="locCache" writeExceptionsToEventLog="false" asyncSession="false" enableLogs="false" />
       </providers>
     </sessionState>
     <!--<machineKey validationKey="A01D6E0D1A5D2A22E0854CA612FE5C5EC4AECF24" decryptionKey="ACD8EBF87C4C8937" validation="SHA1" />-->
@@ -345,32 +377,25 @@
   <system.serviceModel>
     <bindings>
       <basicHttpBinding>
-        <binding name="DgieWSPortSoapBinding"/>
-        <binding name="Service1Soap"/>
-        <binding name="Service1Soap1"/>
-      <binding name="Timbrado33Soap" closeTimeout="00:01:00" openTimeout="00:01:00"
-          receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false"
-          bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard"
-          maxBufferPoolSize="524288" maxBufferSize="5242880" maxReceivedMessageSize="5242880"
-          textEncoding="utf-8" transferMode="Buffered" useDefaultWebProxy="true"
-          messageEncoding="Text">
-        <readerQuotas maxDepth="32" maxStringContentLength="5242880"
-          maxArrayLength="32768" maxBytesPerRead="4096" maxNameTableCharCount="32768" />
-        <security mode="Transport">
-          <transport clientCredentialType="None" proxyCredentialType="None"
-            realm="" />
-          <message clientCredentialType="UserName" algorithmSuite="Default" />
-        </security>
-      </binding>
+        <binding name="DgieWSPortSoapBinding" />
+        <binding name="Service1Soap" />
+        <binding name="Service1Soap1" />
+        <binding name="Timbrado33Soap" closeTimeout="00:01:00" openTimeout="00:01:00" receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false" bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard" maxBufferPoolSize="524288" maxBufferSize="5242880" maxReceivedMessageSize="5242880" textEncoding="utf-8" transferMode="Buffered" useDefaultWebProxy="true" messageEncoding="Text">
+          <readerQuotas maxDepth="32" maxStringContentLength="5242880" maxArrayLength="32768" maxBytesPerRead="4096" maxNameTableCharCount="32768" />
+          <security mode="Transport">
+            <transport clientCredentialType="None" proxyCredentialType="None" realm="" />
+            <message clientCredentialType="UserName" algorithmSuite="Default" />
+          </security>
+        </binding>
+        <binding name="WebServiceSoap" maxBufferPoolSize="52428800" maxBufferSize="52428800" maxReceivedMessageSize="52428800" />
       </basicHttpBinding>
-
-      
     </bindings>
     <client>
-      <endpoint address="http://www.banxico.org.mx/DgieWSWeb/DgieWS" binding="basicHttpBinding" bindingConfiguration="DgieWSPortSoapBinding" contract="WSBancoMexico.DgieWSPort" name="DgieWSPort"/>
-      <endpoint address="http://generacfdi.com.mx/wsconsultas/service1.asmx" binding="basicHttpBinding" bindingConfiguration="Service1Soap" contract="WSRVConsultas.Service1Soap" name="Service1Soap"/>
-      <endpoint address="http://192.168.0.2:8080/ADSistemas/Timbrado.asmx" binding="basicHttpBinding" bindingConfiguration="Service1Soap1" contract="WSGF.Service1Soap" name="Service1Soap1"/>
+      <endpoint address="http://www.banxico.org.mx/DgieWSWeb/DgieWS" binding="basicHttpBinding" bindingConfiguration="DgieWSPortSoapBinding" contract="WSBancoMexico.DgieWSPort" name="DgieWSPort" />
+      <endpoint address="http://generacfdi.com.mx/wsconsultas/service1.asmx" binding="basicHttpBinding" bindingConfiguration="Service1Soap" contract="WSRVConsultas.Service1Soap" name="Service1Soap" />
+      <endpoint address="http://192.168.0.2:8080/ADSistemas/Timbrado.asmx" binding="basicHttpBinding" bindingConfiguration="Service1Soap1" contract="WSGF.Service1Soap" name="Service1Soap1" />
       <endpoint address="https://cfdi33-pruebas.buzoncfdi.mx:1443/Timbrado.asmx" binding="basicHttpBinding" bindingConfiguration="Timbrado33Soap" contract="wsReference33.TimbradoSoap" name="Timbrado33SoapPruebas" />
+      <endpoint address="http://192.168.10.111:7999/WebService.asmx" binding="basicHttpBinding" bindingConfiguration="WebServiceSoap" contract="WSRDLC.WebServiceSoap" name="WebServiceSoap" />
     </client>
   </system.serviceModel>
   <!--  <runtime>
@@ -384,47 +409,59 @@
   <runtime>
     <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
       <dependentAssembly>
-        <assemblyIdentity name="Newtonsoft.Json" culture="neutral" publicKeyToken="30ad4fe6b2a6aeed"/>
-        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0"/>
+        <assemblyIdentity name="Newtonsoft.Json" culture="neutral" publicKeyToken="30ad4fe6b2a6aeed" />
+        <bindingRedirect oldVersion="0.0.0.0-12.0.0.0" newVersion="12.0.0.0" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="WebGrease" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
-        <bindingRedirect oldVersion="0.0.0.0-1.5.2.14234" newVersion="1.5.2.14234"/>
+        <assemblyIdentity name="WebGrease" culture="neutral" publicKeyToken="31bf3856ad364e35" />
+        <bindingRedirect oldVersion="0.0.0.0-1.5.2.14234" newVersion="1.5.2.14234" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="EntityFramework" publicKeyToken="b77a5c561934e089"/>
-        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0"/>
+        <assemblyIdentity name="EntityFramework" publicKeyToken="b77a5c561934e089" />
+        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="Microsoft.Owin" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
-        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0"/>
+        <assemblyIdentity name="Microsoft.Owin" culture="neutral" publicKeyToken="31bf3856ad364e35" />
+        <bindingRedirect oldVersion="0.0.0.0-4.1.0.0" newVersion="4.1.0.0" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="Microsoft.Owin.Security.OAuth" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
-        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0"/>
+        <assemblyIdentity name="Microsoft.Owin.Security.OAuth" culture="neutral" publicKeyToken="31bf3856ad364e35" />
+        <bindingRedirect oldVersion="0.0.0.0-4.1.0.0" newVersion="4.1.0.0" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="Microsoft.Owin.Security.Cookies" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
-        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0"/>
+        <assemblyIdentity name="Microsoft.Owin.Security.Cookies" culture="neutral" publicKeyToken="31bf3856ad364e35" />
+        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="Microsoft.Owin.Security" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
-        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0"/>
+        <assemblyIdentity name="Microsoft.Owin.Security" culture="neutral" publicKeyToken="31bf3856ad364e35" />
+        <bindingRedirect oldVersion="0.0.0.0-4.1.0.0" newVersion="4.1.0.0" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="AjaxControlToolkit" publicKeyToken="28f01b0e84b6d53e" culture="neutral"/>
-        <bindingRedirect oldVersion="0.0.0.0-15.1.4.0" newVersion="15.1.4.0"/>
+        <assemblyIdentity name="AjaxControlToolkit" publicKeyToken="28f01b0e84b6d53e" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-15.1.4.0" newVersion="15.1.4.0" />
       </dependentAssembly>
       <dependentAssembly>
-        <assemblyIdentity name="HtmlAgilityPack" publicKeyToken="bd319b19eaf3b43a" culture="neutral"/>
-        <bindingRedirect oldVersion="0.0.0.0-1.4.6.0" newVersion="1.4.6.0"/>
+        <assemblyIdentity name="HtmlAgilityPack" publicKeyToken="bd319b19eaf3b43a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-1.4.6.0" newVersion="1.4.6.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.ReportViewer.WebForms" publicKeyToken="89845dcd8080cc91" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-12.0.0.0" newVersion="12.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.ReportViewer.DataVisualization" publicKeyToken="89845dcd8080cc91" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-15.0.0.0" newVersion="15.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.ReportViewer.Common" publicKeyToken="89845dcd8080cc91" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-12.0.0.0" newVersion="12.0.0.0" />
       </dependentAssembly>
     </assemblyBinding>
   </runtime>
   <system.codedom>
     <compilers>
-      <compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.CSharpCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:6 /nowarn:1659;1699;1701"/>
-      <compiler language="vb;vbs;visualbasic;vbscript" extension=".vb" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:14 /nowarn:41008 /define:_MYTYPE=\&quot;Web\&quot; /optionInfer+"/>
+      <compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.CSharpCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:6 /nowarn:1659;1699;1701" />
+      <compiler language="vb;vbs;visualbasic;vbscript" extension=".vb" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:14 /nowarn:41008 /define:_MYTYPE=\&quot;Web\&quot; /optionInfer+" />
     </compilers>
   </system.codedom>
 </configuration>

asmx/WSApp.asmx

@@ -1121,9 +1121,9 @@ Public Class WSApp
                         ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
                         ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
 
-                        ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
-                        If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows.Count > 0 Then
-                            ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows(0)("MetodoPago").ToString
+                        ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33
+                        If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then
+                            ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString
                         Else
                             ObjFactura.CveMetodoPago = 1
                             ObjFactura.MetodoPago = "Efectivo"

vwd.webinfo

@@ -194,6 +194,10 @@
     
   
     
+  
+    
+  
+