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

App_Code/ClsContPAQi.vb

@@ -1065,11 +1065,11 @@ Public Class ClsContPAQi
         StrSQL.Clear()
         StrSQL.AppendLine("     SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED; ")
         StrSQL.AppendLine("          ")
-        StrSQL.AppendLine("      SELECT  mp.id,  mp.IdPoliza, mp.NumMovto, mp.IdCuenta , mp.IdCuenta as CveCuenta, c.CODIGO, c.NOMBRE as Cuenta , T.Codigo as CodigoTipoPoliza, T.Nombre AS TipoPoliza, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre AS SegNeg, p.Fecha AS FechaPol, p.Cargos, p.Abonos, p.Concepto AS ConceptoPoliza, ")
+        StrSQL.AppendLine("      SELECT  mp.id,  mp.IdPoliza, mp.NumMovto, mp.IdCuenta , mp.IdCuenta as CveCuenta, c.CODIGO, c.NOMBRE as Cuenta , c.NOMBRE as NombreCuenta , T.Codigo as CodigoTipoPoliza, T.Nombre AS TipoPoliza, mp.Folio, mp.Folio as Numero, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre AS SegNeg, p.Fecha AS FechaPol, p.Cargos, p.Abonos, p.Concepto AS ConceptoPoliza, ")
         StrSQL.AppendLine("          CASE WHEN ISNUMERIC(c.Codigo) = 1 THEN FORMAT(CAST (c.Codigo AS FLOAT),(SELECT  REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.Codigo END + ' - ' + c.Nombre + ' ' AS CtaCodigo, ") 'Roberto 8/Nov/2014
         StrSQL.AppendLine("          SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.Importe ELSE 0 END) AS Cargo, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.Importe ELSE 0 END) AS Abono, ")
         StrSQL.AppendLine("          SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.ImporteME ELSE 0 END) AS CargoME, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.ImporteME ELSE 0 END) AS AbonoME, ")
-        StrSQL.AppendLine("          mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT  REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado,MAX(U.Nombre)  AS UsuarioRegistro   ")
+        StrSQL.AppendLine("          mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT  REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT  REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CodigoCuenta, '' as Estado,MAX(U.Nombre)  AS UsuarioRegistro, MAX(U.Nombre)  AS NombreUsuario   ")
         StrSQL.AppendLine("      FROM    MovimientosPoliza mp  ")
         StrSQL.AppendLine("              INNER JOIN Polizas p ON mp.IdPoliza = p.Id  ")
         StrSQL.AppendLine("              INNER JOIN Cuentas c ON c.Id = mp.IdCuenta  ")

App_Code/ClsProductosServicios.vb

@@ -1409,6 +1409,30 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
+
+    Public Function UpdateAplicaLoteCaducidadAlmacen(CvePS As Integer, CveEmpresa As Integer, AplicaLoteAlmacen As Boolean, AplicaCaducidadAlmacen As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosLoteCaducidadAlmacenUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@AplicaLoteAlmacen", SqlDbType.Bit).Value = AplicaLoteAlmacen
+            .Add("@AplicaCaducidadAlmacen", SqlDbType.Bit).Value = AplicaCaducidadAlmacen
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar aplicar lote/caducidad almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetMarcas(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_MarcasGet")

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
 
@@ -2156,7 +2161,7 @@ Public Class ClsVentas
 #End Region
 
 #Region "   PROMOCIONES DETALLE   "
-    Public Function GetPromocionesPS(CvePS As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetPromocionesPS(CvePS As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveCliente As Integer, CveVendedor As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesPSGet")
 
@@ -2166,6 +2171,7 @@ Public Class ClsVentas
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
@@ -3789,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 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 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
@@ -3819,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)
@@ -4753,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)
@@ -4763,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

@@ -526,7 +526,7 @@ Namespace Modelos
 
                 Dim ObjVentas As New ClsVentas
                 'CARGA PROMOCIONES
-                If ObjVentas.GetPromocionesPS(-1, Me.Fecha, Me.CveSubProyecto, CveCliente, Me.CveVendedor, Me.CveEmpresa) Then
+                If ObjVentas.GetPromocionesPS(-1, Me.Fecha, Me.CveSubProyecto, CveCliente, Me.CveVendedor, 1, Me.CveEmpresa) Then
                     Me.DtPromociones = ObjVentas.DtResultados.Copy()
                 End If
 
@@ -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

Ashx/SIGFacturacionCiclica.ashx

@@ -425,14 +425,14 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
                     ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
                     ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
 
-                    ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
+                    'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
 
-                    If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
+                    'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
-                        ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
+                    '    ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
-                    Else
+                    'Else
-                        ObjFactura.CveMetodoPago = 1
+                    '    ObjFactura.CveMetodoPago = 1
-                        ObjFactura.MetodoPago = "Efectivo"
+                    '    ObjFactura.MetodoPago = "Efectivo"
-                    End If
+                    'End If
                 End If
             End If
 

Bancos/Devoluciones.aspx.cs

@@ -433,7 +433,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
                             }
 
                             // OTROS INGRESOS
-                            if (gvr.FCTextBox("TxtComision").Text.ToDecimal() > 0)
+                            if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0)
                             {
                                 if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, 78, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE))
                                 {

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/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
+                DtMovimientos = ObjInventarios.DtResultados
-                Alert("asdf")
+
+                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 Nombre As String = ""
-            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
+            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("Direccion", Direccion))
-            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
-            params.Add(New ReportParameter("TelConsumidor", DatosClienteSeleccionado.Item("Telefono").ToString))
+            params.Add(New ReportParameter("TelConsumidor", Telefono))
         End If
 
         params.Add(New ReportParameter("Anio", Año))

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()
@@ -371,7 +372,6 @@ Partial Class Contabilidad2_CatCuentas
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
 
         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,65 +386,69 @@ Partial Class Contabilidad2_CatCuentas
         End If
 
         If idnew > 0 Then
+            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
 
-            Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
+                    If ObjConta2.GetAgrupadoresSAT() Then
-            If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                        IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
-                Dim IdPadre As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
-                Dim IdAgrupador As Integer
-
-                If ObjConta2.GetAgrupadoresSAT() Then
-                    IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
-                End If
-
-                If IdPadre > 0 Then
-                    Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador)
-
-                    If idnew2 > 0 Then
-                        If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
-                        End If
                     End If
 
+                    If IdPadre > 0 Then
+                        Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador)
+
+                        If idnew2 > 0 Then
+                            If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+                            End If
+                        End If
+
+                    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
+            'Dim dr As DataRow = DtDatos.NewRow
-            'nuevacuenta.Visible = False
+            '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()
-        ObjConta2.Dispose()
     End Sub
     Private Sub LimpiarCampos()
         TxtCuenta.Text = ""
@@ -469,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
@@ -492,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 UsuarioActual.Empresa.TipoContabilidad <> 1 Then
-                    If ObjConta2.RemoveCuenta(Id) 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>
+        <rd:DefaultName>TotalProductos</rd:DefaultName>
-        <Top>1.33674cm</Top>
+        <Top>1.36143cm</Top>
-        <Left>0.22985cm</Left>
+        <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/141/Formatos/CHQ-7452.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -62,7 +62,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>1.9287cm</Top>
+            <Top>1.7382cm</Top>
             <Left>2.98488cm</Left>
             <Height>0.6cm</Height>
             <Width>8.50604cm</Width>
@@ -92,7 +92,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>3.34953cm</Top>
+            <Top>3.15903cm</Top>
             <Left>2.98488cm</Left>
             <Height>0.6cm</Height>
             <Width>14.64437cm</Width>
@@ -121,8 +121,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>1.9287cm</Top>
+            <Top>1.3572cm</Top>
-            <Left>13.14954cm</Left>
+            <Left>12.83204cm</Left>
             <Height>0.6cm</Height>
             <Width>2.36771cm</Width>
             <ZIndex>2</ZIndex>
@@ -144,7 +144,7 @@
                   <TextRun>
                     <Value>=Parameters!Importe.Value</Value>
                     <Style>
-                      <FontSize>8pt</FontSize>
+                      <FontSize>9pt</FontSize>
                     </Style>
                   </TextRun>
                 </TextRuns>
@@ -154,7 +154,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>3.38128cm</Top>
+            <Top>3.15903cm</Top>
             <Left>17.62925cm</Left>
             <Height>0.6cm</Height>
             <Width>3.12778cm</Width>
@@ -163,6 +163,7 @@
               <Border>
                 <Style>None</Style>
               </Border>
+              <VerticalAlign>Bottom</VerticalAlign>
               <PaddingLeft>2pt</PaddingLeft>
               <PaddingRight>2pt</PaddingRight>
               <PaddingTop>2pt</PaddingTop>
@@ -197,7 +198,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>1.96045cm</Top>
+            <Top>1.4207cm</Top>
             <Left>15.85886cm</Left>
             <Height>0.6cm</Height>
             <Width>4.89817cm</Width>
@@ -228,10 +229,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>10.41495cm</Top>
+            <Top>10.09745cm</Top>
             <Left>2.98488cm</Left>
-            <Height>0.73229cm</Height>
+            <Height>1.7cm</Height>
-            <Width>17.39115cm</Width>
+            <Width>10.74213cm</Width>
             <ZIndex>5</ZIndex>
             <Style>
               <Border>
@@ -259,7 +260,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>4.56988cm</Top>
+            <Top>4.15713cm</Top>
             <Left>2.98488cm</Left>
             <Height>0.6cm</Height>
             <Width>16.08307cm</Width>
@@ -276,7 +277,7 @@
           </Textbox>
           <Rectangle Name="Rectangle1">
             <KeepTogether>true</KeepTogether>
-            <Top>2.22824cm</Top>
+            <Top>1.72024cm</Top>
             <Left>2.98488cm</Left>
             <Height>0.99076cm</Height>
             <Width>8.50604cm</Width>
@@ -287,13 +288,39 @@
               </Border>
             </Style>
           </Rectangle>
+          <Rectangle Name="Rectangle2">
+            <KeepTogether>true</KeepTogether>
+            <Top>3.41684cm</Top>
+            <Left>2.98488cm</Left>
+            <Height>0.99076cm</Height>
+            <Width>8.50604cm</Width>
+            <ZIndex>8</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Rectangle>
+          <Rectangle Name="Rectangle3">
+            <KeepTogether>true</KeepTogether>
+            <Top>4.88413cm</Top>
+            <Left>2.98488cm</Left>
+            <Height>0.99076cm</Height>
+            <Width>8.50604cm</Width>
+            <ZIndex>9</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Rectangle>
           <Rectangle Name="Rectangle4">
             <KeepTogether>true</KeepTogether>
             <Top>5.91016cm</Top>
             <Left>2.98488cm</Left>
             <Height>0.99076cm</Height>
             <Width>8.50604cm</Width>
-            <ZIndex>8</ZIndex>
+            <ZIndex>10</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -306,7 +333,7 @@
             <Left>2.98488cm</Left>
             <Height>0.99076cm</Height>
             <Width>8.50604cm</Width>
-            <ZIndex>9</ZIndex>
+            <ZIndex>11</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -319,7 +346,7 @@
             <Left>2.98488cm</Left>
             <Height>0.99076cm</Height>
             <Width>8.50604cm</Width>
-            <ZIndex>10</ZIndex>
+            <ZIndex>12</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -332,7 +359,7 @@
             <Left>2.98488cm</Left>
             <Height>0.99076cm</Height>
             <Width>8.50604cm</Width>
-            <ZIndex>11</ZIndex>
+            <ZIndex>13</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -436,10 +463,10 @@
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
             <Top>12.24622cm</Top>
-            <Left>0.61298cm</Left>
+            <Left>0.58123cm</Left>
             <Height>0.8825cm</Height>
             <Width>3.21438cm</Width>
-            <ZIndex>12</ZIndex>
+            <ZIndex>14</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -543,10 +570,10 @@
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
             <Top>12.24622cm</Top>
-            <Left>4.42661cm</Left>
+            <Left>4.68061cm</Left>
             <Height>0.8825cm</Height>
             <Width>9.3004cm</Width>
-            <ZIndex>13</ZIndex>
+            <ZIndex>15</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -653,10 +680,10 @@
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
             <Top>12.24622cm</Top>
-            <Left>14.89295cm</Left>
+            <Left>15.84545cm</Left>
             <Height>0.87916cm</Height>
             <Width>2.5cm</Width>
-            <ZIndex>14</ZIndex>
+            <ZIndex>16</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -763,10 +790,10 @@
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
             <Top>12.24622cm</Top>
-            <Left>17.6897cm</Left>
+            <Left>18.3247cm</Left>
             <Height>0.87916cm</Height>
             <Width>2.84396cm</Width>
-            <ZIndex>15</ZIndex>
+            <ZIndex>17</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -801,7 +828,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
-              <Top>0.53975cm</Top>
+              <Top>1.36525cm</Top>
               <Left>3.13986cm</Left>
               <Height>0.6cm</Height>
               <Width>0.85958cm</Width>
@@ -832,7 +859,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
-              <Top>0.53975cm</Top>
+              <Top>1.36525cm</Top>
               <Left>5.21284cm</Left>
               <Height>0.6cm</Height>
               <Width>0.88604cm</Width>
@@ -864,7 +891,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
-              <Top>0.53975cm</Top>
+              <Top>1.36525cm</Top>
               <Left>7.41418cm</Left>
               <Height>0.6cm</Height>
               <Width>0.88604cm</Width>
@@ -897,7 +924,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
-              <Top>0.508cm</Top>
+              <Top>1.36525cm</Top>
               <Left>14.00924cm</Left>
               <Height>0.6cm</Height>
               <Width>2.5cm</Width>
@@ -930,7 +957,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
-              <Top>0.508cm</Top>
+              <Top>1.36525cm</Top>
               <Left>18.00832cm</Left>
               <Height>0.6cm</Height>
               <Width>2.36771cm</Width>
@@ -1016,59 +1043,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  <ReportParametersLayout>
-    <GridLayoutDefinition>
-      <NumberOfColumns>2</NumberOfColumns>
-      <NumberOfRows>5</NumberOfRows>
-      <CellDefinitions>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>Folio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>Fecha</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>Beneficiario</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>ImporteLetra</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>Importe</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>Observaciones</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>3</RowIndex>
-          <ParameterName>Tipo</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>3</RowIndex>
-          <ParameterName>TotalCargo</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>4</RowIndex>
-          <ParameterName>TotalAbono</ParameterName>
-        </CellDefinition>
-      </CellDefinitions>
-    </GridLayoutDefinition>
-  </ReportParametersLayout>
   <Language>es-MX</Language>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>ccd758f2-6f27-4a1e-af76-588dcd11f8b2</rd:ReportID>

Empresas/Grales/Formatos/RepVentas.rdlc

@@ -80,7 +80,7 @@
             <TablixBody>
               <TablixColumns>
                 <TablixColumn>
-                  <Width>5.07153cm</Width>
+                  <Width>4.51796cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>1.54706cm</Width>
@@ -95,16 +95,16 @@
                   <Width>2.17093cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.15364cm</Width>
+                  <Width>2.0251cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.64028cm</Width>
+                  <Width>1.76882cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.95936cm</Width>
+                  <Width>1.88335cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.71123cm</Width>
+                  <Width>2.34081cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -297,7 +297,7 @@
                                 <TextRun>
                                   <Value>Total Impuestos</Value>
                                   <Style>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -687,6 +687,7 @@
                                   <Value>=Fields!IEPS.Value</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
+                                    <Format>#,0.00;(#,0.00)</Format>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -759,7 +760,7 @@
                 <TablixMember />
                 <TablixMember>
                   <Visibility>
-                    <Hidden>=IIF(Sum(Fields!IEPS.Value, "DataSet1")&gt; 0, true, false)</Hidden>
+                    <Hidden>=iif(Sum(Fields!IEPS.Value, "DataSet1") &gt; 0, false, true)</Hidden>
                   </Visibility>
                 </TablixMember>
                 <TablixMember />

General/SaldosIniciales.aspx.vb

@@ -856,16 +856,16 @@ Partial Class General_SaldosIniciales
                         If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1,
                                   CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño,
                                       CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS, CveClasificacion2:=CveClasificacion2, CveClasificacionDetalle:=CveClasificacionDetalle) <= 0 Then
-                                'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1,
+                            'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1,
-                                '           CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then
+                            '           CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then
-                                ErrorPS = True
+                            ErrorPS = True
-                                Codigo.GuardaLog
+                            Codigo.GuardaLog
-                                Exit For
+                            Exit For
-                                'Else
+                            'Else
-                                '    If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then
+                            '    If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then
-                                '        DTPS = ObjPS.DtResultados
+                            '        DTPS = ObjPS.DtResultados
-                                '    End If
+                            '    End If
-                            End If
+                        End If
                         'End If
 
                     End If
@@ -1468,12 +1468,14 @@ Partial Class General_SaldosIniciales
                             'PrePólizaDetalle
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero) Then ErrorVentas = True : Exit For
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString, ConceptoContable, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then ErrorVentas = True : Exit For
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA, PorcentajeImpuesto:=PorcentajeIVA) Then ErrorVentas = True : Exit For
+
+                            If IVA > 0 Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA, PorcentajeImpuesto:=PorcentajeIVA) Then ErrorVentas = True : Exit For
+                            End If
                             'If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio.ToString, 38, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) Then ErrorVentas = True : Exit For
 
                             If UsaComplementaria Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString, 203, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteME:=Total, ImporteMX:=Total * TipoCambio.ToDecimal, TipoCambio:=TipoCambio.ToDecimal) Then ErrorVentas = True : Exit For
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total * TipoCambio.ToDecimal - Total, Folio.ToString, 203, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteME:=Total, ImporteMX:=Total * TipoCambio.ToDecimal - Total, TipoCambio:=TipoCambio.ToDecimal) Then ErrorVentas = True : Exit For
-
                             End If
 
                             'Saldo
@@ -1961,6 +1963,88 @@ Partial Class General_SaldosIniciales
                     End If
 
 
+                Catch ex As Exception
+                    ObjConta.RollBack()
+                End Try
+
+                ObjConta.Dispose()
+
+            ElseIf RblFormato.SelectedValue = "11" 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
+
+                    CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, Now.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                    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 IdCuenta As Integer = -1
+                        Dim CveSubProyecto As Integer = -1
+                        Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
+                        Dim YaExiste As Boolean = False
+
+                        Dim SubP As String = Row("SubProyecto").ToString
+                        If SubP <> "" Then
+                            CveSubProyecto = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+                        End If
+
+                        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, "", 95, Concepto, Now.toDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto) 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
@@ -2059,6 +2143,8 @@ Partial Class General_SaldosIniciales
             Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoContabilidad.xlsx"
         ElseIf RblFormato.SelectedValue = "9" Then
             Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoContabilidad.xlsx"
+        ElseIf RblFormato.SelectedValue = "11" Then
+            Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoPrePoliza.xlsx"
         ElseIf RblFormato.SelectedValue = "12" Then
             Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoAlmacen.xlsx"
         End If

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -204,7 +204,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
                             ErrorMovInv = True
                         End If
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                        If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
                             ErrorMovInv = True
                         End If
                     End If
@@ -437,6 +437,13 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                                         ErrorMovInv = Not ObjPS.UpdateAplicaSeccionAlmacen(CvePS, UsuarioActual.CveEmpresa, False)
                                     End If
 
+                                    If LoteSalida = "" Then
+                                        ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(CvePS, UsuarioActual.CveEmpresa, False, False)
+                                    Else
+                                        ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(CvePS, UsuarioActual.CveEmpresa, True, True)
+                                    End If
+
+
                                     'GENERA LA SALIDA DE LOS PRODUCTOS QUE VIENEN EN EL EXCEL
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadSalida, CveUM, CvePS, PUSalida, CveSeccionAlmacen:=CveSeccionAlmacenSalida, Serie:=SerieSalida, Lote:=LoteSalida, FechaCaducidad:=FechaCaducidadSalida, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                         ErrorMovInv = True
@@ -469,6 +476,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                                                 End If
                                             End If
 
+                                            If Lote = "" Then
+                                                ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(CvePS, UsuarioActual.CveEmpresa, False, False)
+                                            Else
+                                                ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(CvePS, UsuarioActual.CveEmpresa, True, True)
+                                            End If
+
                                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, CantidadEntrada, CveUMEntrada, CvePSEntrada, PUEntrada, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                                 ErrorMovInv = True
                                                 Exit For

Inventarios/EntradasSalidas.aspx

@@ -1073,13 +1073,13 @@
                     <div class="modal-header ">
                         <button type="button" class="close" data-dismiss="modal">×</button>
                         <h4 class="modal-title">
-                            <asp:Literal ID="Literal2" runat="server">Ajuste Inventario Fisico</asp:Literal></h4>
+                            <asp:Literal ID="Literal2" runat="server">Ajuste Inventario Físico</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
                         <div class="row">
                             <div class="col-md-6">
                                 <div style="text-align: center">
-                                    <label for="<%= DdlAlmacenInventarioFisico.ClientID.ToString()%>">Almacen:</label>
+                                    <label for="<%= DdlAlmacenInventarioFisico.ClientID.ToString()%>">Almacén:</label>
                                     <asp:DropDownList ID="DdlAlmacenInventarioFisico" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" Width="60%" CssClass="form-control input-sm select2me" AppendDataBoundItems="true"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVAlmacenInvFisico" runat="server" InitialValue="-1" ControlToValidate="DdlAlmacenInventarioFisico" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="InvFisico"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="CERFVAlmacenInvFisico" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenInvFisico" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -1183,14 +1183,14 @@
                                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                                         </asp:DropDownList>
                                                                     </td>
-                                                                    <td runat="server" id="TrSerieEntrada" visible="false">
+                                                                    <td runat="server" id="TrSerieEntrada" visible="false" >
-                                                                        <asp:TextBox ID="TxtSerieEntrada" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtSerieEntrada" runat="server" Width="50px" CssClass="form-control input-sm"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="TrLoteEntrada" visible="false">
-                                                                        <asp:TextBox ID="TxtLoteEntrada" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtLoteEntrada" runat="server" Width="70px" CssClass="form-control input-sm"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="TrCaducidadEntrada" visible="false">
-                                                                        <asp:TextBox ID="TxtCaducidadEntrada" runat="server" Width="80px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtCaducidadEntrada" runat="server" Width="80px" CssClass="form-control input-sm"></asp:TextBox>
                                                                          <asp:LinkButton ID="ImgFechaCadEntrada" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                                         <asp:RequiredFieldValidator ID="RFVFechaCadEntrada" runat="server" ControlToValidate="TxtCaducidadEntrada" 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="AddPSInvFisico"></asp:RequiredFieldValidator>
                                                                         <ajax:ValidatorCalloutExtender ID="VCFechaCadEntrada" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCadEntrada" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -1265,7 +1265,7 @@
                                                                     <th style="width: 10%" runat="server" id="ThSeccionSalida" visible="false">Sección almacén</th>
                                                                     <th style="width: 10%" runat="server" id="ThSerieSalida" visible="false">Serie</th>
                                                                     <th style="width: 10%" runat="server" id="ThLoteSalida" visible="false">Lote</th>
-                                                                    <th style="width: 10%" runat="server" id="ThCaducidadSalida" visible="false">Caducidad</th>
+                                                                    <th style="width: 25%" runat="server" id="ThCaducidadSalida" visible="false">Caducidad</th>
                                                                     <th style="width: 73px;"></th>
                                                                 </tr>
                                                                 <tr align="center">
@@ -1284,14 +1284,14 @@
                                                                         </asp:DropDownList>
                                                                     </td>
                                                                     <td runat="server" id="TrSerieSalida" visible="false">
-                                                                        <asp:TextBox ID="TxtSerieSalida" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtSerieSalida" runat="server" Width="50px" CssClass="form-control input-sm"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="TrLoteSalida" visible="false">
-                                                                        <asp:TextBox ID="TxtLoteSalida" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtLoteSalida" runat="server" Width="70px" CssClass="form-control input-sm"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="TrCaducidadSalida" visible="false">
-                                                                        <asp:TextBox ID="TxtCaducidadSalida" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtCaducidadSalida" runat="server" Width="75px" CssClass="form-control input-sm"></asp:TextBox>
-                                                                        <asp:LinkButton ID="ImgFechaCadSalida" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                        <asp:LinkButton ID="ImgFechaCadSalida" class="btn default input-sm" Text="<i class='fa fa-calendar'></i>" runat="server" ></asp:LinkButton>
                                                                         <asp:RequiredFieldValidator ID="RFVFechaCadSalida" runat="server" ControlToValidate="TxtCaducidadSalida" 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="AddPSInvFisicoSalida"></asp:RequiredFieldValidator>
                                                                         <ajax:ValidatorCalloutExtender ID="VCFechaCadSalida" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCadSalida" Width="350px"></ajax:ValidatorCalloutExtender>
                                                                         <ajax:MaskedEditExtender ID="MEEFechaCadSalida" runat="server" TargetControlID="TxtCaducidadSalida" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>

Inventarios/EntradasSalidas.aspx.vb

@@ -3819,16 +3819,21 @@ Partial Class Inventarios_EntradasSalidas
 #Region "SALIDAS"
     Private Sub BtnAgregarSalida_Click(sender As Object, e As EventArgs) Handles BtnAgregarSalida.Click
         Dim ObjProductosServicios As New ClsProductosServicios()
+        Dim ObjInventario As New ClsInventarios
         Dim CveUM As Integer
         Dim Mensaje As String = ""
+        Dim FechaCaducidad As Date
+        Dim lote As String
         If ObjProductosServicios.GetPS(DdlPSSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
             If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
                 CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
             End If
         End If
-        ObjProductosServicios.Dispose()
+
-        Dim ObjInventario As New ClsInventarios
+        FechaCaducidad = If(ObjProductosServicios.AplicaCaducidad, TxtCaducidadSalida.Text.ToDate, MinFecha)
-        If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1) >= TxtCantidadSalidaInv.Text.ToDouble Then
+        lote = If(ObjProductosServicios.AplicaLote, TxtLoteSalida.Text.ToString, "-1")
+
+        If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=lote, FechaCaducidad:=FechaCaducidad) >= TxtCantidadSalidaInv.Text.ToDouble Then
             If Not DdlPSSalida.SelectedValue.ToEntero > 0 Then
                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                 Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia)
@@ -3837,11 +3842,14 @@ Partial Class Inventarios_EntradasSalidas
 
             AddPSSalida(DdlPSSalida.SelectedValue.ToEntero, TxtCantidadSalidaInv.Text.ToDouble)
         Else
-            Mensaje = String.Format("No hay existencias suficientes del producto: {0}", DdlPSSalida.SelectedValue.ToEntero)
+            Mensaje = String.Format("No hay existencias suficientes del producto: {0}", ObjProductosServicios.PS)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
             Alert(Mensaje, TipoMensaje.MsgError)
         End If
+
         ObjInventario.Dispose()
+        ObjProductosServicios.Dispose()
+
     End Sub
 
     Protected Sub AddPSSalida(CvePS As Integer, Cantidad As Double)
@@ -3898,7 +3906,7 @@ Partial Class Inventarios_EntradasSalidas
             GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
             GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
             GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
-            GvSalidas.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
+            GvSalidas.Columns(5).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
         End If
     End Sub
 
@@ -4030,7 +4038,7 @@ Partial Class Inventarios_EntradasSalidas
             GvSalidasCambioVigencia.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
             GvSalidasCambioVigencia.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
             GvSalidasCambioVigencia.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
-            GvSalidasCambioVigencia.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
+            GvSalidasCambioVigencia.Columns(5).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
         End If
         UpGvCambioSalidas.Update()
     End Sub
@@ -4423,7 +4431,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 'activa caducidad
                 ThCaducidadEntrada.Visible = AplicaCaducidad
-                ThCaducidadEntrada.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
+                ThCaducidadEntrada.InnerText = UsuarioActual.Empresa.Funcionalidad(147)
                 TrCaducidadEntrada.Visible = AplicaCaducidad
 
             Else
@@ -4457,7 +4465,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 'activa caducidad
                 ThCaducidadSalida.Visible = AplicaCaducidad
-                ThCaducidadSalida.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
+                ThCaducidadSalida.InnerText = UsuarioActual.Empresa.Funcionalidad(147)
                 TrCaducidadSalida.Visible = AplicaCaducidad
 
             Else

Inventarios/EntregaAlmacen.aspx.vb

@@ -2428,17 +2428,18 @@ Partial Class Inventarios_EntregaAlmacen
                         CantidadPendiente = Dr("CantidadGV").ToString().ToDecimal - Dr("CantidadTraspaso").ToString().ToDecimal - CantidadEntradaSinCosto
                         If CantidadPendiente > 0 Then
                             Dim PU As Decimal = 0
-
+                            Dim CveSeccionAlmacen As Integer = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)
                             'SI FUE POR SERIE
                             DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
                             DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
                             If DtDetalle.Rows.Count > 0 Then
                                 For Each Dr1 As DataRow In DtDetalle.Rows
                                     If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
-                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
+                                        CveSeccionAlmacen = DtExistencias.FiltroPrimeroValor("CveSeccionAlmacen", $"ISNULL(CveTipoAlmacenDevolucion,0) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToEntero
+                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"ISNULL(CveTipoAlmacenDevolucion,0) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2447,10 +2448,11 @@ Partial Class Inventarios_EntregaAlmacen
                             ElseIf DtDetalleLote.Rows.Count > 0 Then
                                 For Each Dr1 As DataRow In DtDetalleLote.Rows
                                     If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
+                                        CveSeccionAlmacen = DtExistencias.FiltroPrimeroValor("CveSeccionAlmacen", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToEntero
                                         PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         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(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
-                                CargaAlmacenes(-1, "22", CveTipoCompra)
-                            Else
-                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
-                            End If
                         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
 
@@ -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; 
+                                            &nbsp;<b>Servicio a Domicilio:</b>
-                                           
+                                            <asp:CheckBox ID="ChkServicioDomicilio" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
-                                                    <b>Sucursal:</b>
+                                            &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
+                If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows.Count > 0 Then
-                    Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
+                    Me.ObjRemisionNC.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)).Rows(0)("MetodoPago").ToString
                 Else
                     Me.ObjRemisionNC.CveMetodoPago = 1
                     Me.ObjRemisionNC.MetodoPago = "Efectivo"

Inventarios/RepProductosPorCaducar.aspx

@@ -90,6 +90,10 @@
                             <div class="col-md-1">
                                 <asp:DropDownList runat="server" ID="DdlClasificacion" CssClass="select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion"  Width="100%" CssStyle="width: 100%;"/>
                             </div>
+                        <label class="col-md-1 truncate">Productos:</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>
 
@@ -104,7 +108,7 @@
                     <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Producto" DataField="PS" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" />
-                    <asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" DataFormatString = "{0:dd/MM/yyyy}" />
+                    <asp:BoundField HeaderText="Fecha de Caducidad" DataField="FechaCaducidad" DataFormatString = "{0:dd/MM/yyyy}" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

Inventarios/RepProductosPorCaducar.aspx.cs

@@ -35,10 +35,11 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
 
     private void CargarDatos()
     {
-        if (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147))) { GvDatos.Columns[4].HeaderText = UsuarioActual.Empresa.Funcionalidad(147); }
+            // aqui siempre se visualiza la caducidad, sin importar la condición, porque siempre se valida la caducidad
+        //if (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147))) { GvDatos.Columns[4].HeaderText = UsuarioActual.Empresa.Funcionalidad(147); }
         ClsInventarios ObjInventarios = new ClsInventarios();
         if (ObjInventarios.GetProductosCaducidad(DdlProveedor.SelectedValue.ToEntero(),TxtFechaInicio.Text.ToDate(),TxtFechaFin.Text.ToDate(), DdlSucursal.SelectedValue.ToEntero(),
-                                                   DdlClasificacion.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
+                                                   DdlClasificacion.SelectedValue.ToEntero(), -1, UsuarioActual.CveEmpresa))
         {
             GvDatos.DataSource = ObjInventarios.DtResultados;
             DTDatos = ObjInventarios.DtResultados;
@@ -61,6 +62,7 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
         DateTime date = new DateTime(DateTime.Today.Year, DateTime.Today.Month,1);
         TxtFechaInicio.Text = date.ToString("dd/MM/yyyy");
         TxtFechaFin.Text = date.AddMonths(3).AddDays(-1).ToString("dd/MM/yyyy");
+        DdlPS.setEsWebService(true);
     }
 
     private void CargarProveedores()
@@ -137,7 +139,7 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
         {
             @params.Add(new ReportParameter("LogoPath", ""));
         }
-        @params.Add(new ReportParameter("FechaCaducidadHeader", (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) ? UsuarioActual.Empresa.Funcionalidad(147) : "Fecha Caducidad")));
+        @params.Add(new ReportParameter("FechaCaducidadHeader", "Fecha Caducidad")); // (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) ? UsuarioActual.Empresa.Funcionalidad(147) : "Fecha Caducidad")));
 
         ImprimirPDF("Empresas/Grales/Formatos/RepProductosCaducidad.rdlc", DTDatos, @params, "Reporte de Productos por Caducar", formato);
     }

Inventarios/TrasladoSolicitud.aspx

@@ -311,7 +311,9 @@
                                 <%--<asp:BoundField HeaderText="Direccion Envio" HeaderStyle-HorizontalAlign="Left" DataField="DireccionEnvio" ItemStyle-Width="20%" />--%>
                                 <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="20%" />
                                 <asp:BoundField HeaderText="Precio" HeaderStyle-HorizontalAlign="Right" DataFormatString="{0:c}" ItemStyle-HorizontalAlign="Right" DataField="Precio" Visible="false" ItemStyle-Width="5%" />
-                                <asp:BoundField HeaderText="Serie" DataField="Serie" Visible="false" ItemStyle-Width="5%" />
+                                <asp:BoundField HeaderText="Serie" DataField="Serie" Visible="false" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center"/>
+                                <asp:BoundField HeaderText="Lote" DataField="Lote" Visible="false" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center"/>
+                                <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" Visible="false" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}"/>
                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="imgD" runat="server" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="Si" />
@@ -433,7 +435,7 @@
         </div>
     </div>
 
-    <div id="ModalPS" class="modal ADS fade" role="dialog">
+    <div id="ModalPS" class="modal ADS fade" role="dialog" data-backdrop="static" >
         <div class="modal-dialog" style="width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpPS" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -486,6 +488,29 @@
                                 </div>
                             </div>
 
+                            <div class="row marginRowLeft">
+                                <div class="col-md-4 form-group form-md-line-input input-iconright"  id="divLote" runat="server" visible="false">
+                                    <asp:TextBox ID="TxtLote" runat="server" CssClass="form-control"></asp:TextBox>
+                                    <label for="<%= TxtLote.ClientID.ToString()%>">Lote:</label>
+                                </div>
+
+                                <div class="col-md-3 form-group form-md-line-input input-iconright" id="divCaducidad" runat="server" visible="false">
+                                    <asp:TextBox ID="TxtCaducidad" runat="server" CssClass="form-control"></asp:TextBox>
+                                    <label for="<%= TxtCaducidad.ClientID.ToString()%>">Fecha Elaboracion:</label>
+                                </div>
+
+                                <div class="col-md-1 form-group form-md-line-input input-iconright" id="divCaducidad2" runat="server" visible="false">
+                                    <asp:LinkButton ID="ImgFechaCad" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    <asp:RequiredFieldValidator ID="RFVFechaCad" runat="server" ControlToValidate="TxtCaducidad" 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="AddPSInvFisico"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCFechaCad" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCad" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:MaskedEditExtender ID="MEEFechaCad" runat="server" TargetControlID="TxtCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CEFechaCad" TargetControlID="TxtCaducidad" PopupButtonID="ImgFechaCad" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:CompareValidator ID="CVFechaCad" runat="server" ControlToValidate="TxtCaducidad" 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="AddPSInvFisico"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCEFechaCad" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCad" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+
                         </div>
                     </div>
                     <div class="modal-footer">

Inventarios/TrasladoSolicitud.aspx.vb

@@ -95,7 +95,9 @@ Partial Class Inventarios_TrasladoSolicitud
         TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
         'TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
         'TempDT.Columns.Add("CveDireccionEnvio", Type.GetType("System.Int32"))
-        TempDT.Columns.Add("Serie", Type.GetType("System.String"))
+        TempDT.Columns.Add("Serie", Type.GetType("System.String"))
+        TempDT.Columns.Add("Lote", Type.GetType("System.String"))
+        TempDT.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
 
         TempDT.Columns.Add()
     End Sub
@@ -322,6 +324,7 @@ Partial Class Inventarios_TrasladoSolicitud
         RegistraScript(String.Format("$('#{0}').modal();", "ModalPS"))
     End Sub
     Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
+        Dim Existencia As Boolean
         If Not DdlProductoServicio.SelectedValue.ToEntero > 0 Then
             Alert("Tiene que seleccionar un producto.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -329,35 +332,63 @@ Partial Class Inventarios_TrasladoSolicitud
 
         If Not AddPSTemporal() Then
             Exit Sub
-        End If
+        End If
-
+
-        TxtCantidad.Text = ""
+        'If ObjInventario.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=TxtLote.Text.ToString, FechaCaducidad:=TxtCaducidad.Text.ToString) >= TxtCantidad.Text.ToDouble Then
-        DdlProductoServicio.SelectedText = ""
+
-        DdlProductoServicio.SelectedValue = "-1"
+        TxtCantidad.Text = ""
-        DdlUM.SelectedIndex = 0
+        DdlProductoServicio.SelectedText = ""
-
+        DdlProductoServicio.SelectedValue = "-1"
-        GvDatos.DataSource = TempDT
+        DdlUM.SelectedIndex = 0
-        GvDatos.DataBind()
+        TxtCaducidad.Text = ""
-
+        TxtSerie.Text = ""
-        If ChkSeguirAgregando.Checked Then
+        TxtLote.Text = ""
-            TxtCantidad.Focus()
+
-        Else
+        GvDatos.DataSource = TempDT
-            RegistraScript("$('#ModalPS').hide();", "EscondeAgregar")
+        GvDatos.DataBind()
-        End If
+
-
+
-        UpPS.Update()
+        If ChkSeguirAgregando.Checked Then
-        UpDatos.Update()
+            TxtCantidad.Focus()
-
+        Else
+            RegistraScript("$('#ModalPS').hide();", "EscondeAgregar")
+        End If
+
+        UpPS.Update()
+        UpDatos.Update()
+
     End Sub
     Private Function AddPSTemporal() As Boolean
         Dim Row As DataRow = TempDT.NewRow()
+        Dim Lote As String
+        Dim FechaCaducidad As Date
         Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble
         Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero
         Row("CodigoPS") = DdlProductoServicio.SelectedText
         Row("Precio") = 0
         Row("CveUM") = DdlUM.SelectedValue.ToEntero
         Row("UnidadMedida") = DdlUM.SelectedItem.Text
-        Row("Observaciones") = ""
+        Row("Observaciones") = ""
+
+        If divLote.Visible Then
+            Row("Lote") = TxtLote.Text
+            GvDatos.Columns(6).Visible = True
+            Lote = TxtLote.Text.ToString
+        Else
+            Row("Lote") = "-1"
+            Lote = "-1"
+        End If
+
+
+        If divCaducidad.Visible Then
+            Row("FechaCaducidad") = TxtCaducidad.Text
+            GvDatos.Columns(7).Visible = True
+            FechaCaducidad = TxtCaducidad.Text.ToDate
+        Else
+            Row("FechaCaducidad") = MinFecha
+            FechaCaducidad = MinFecha
+        End If
+
 
         If Div4.Visible Then
             Row("Serie") = TxtSerie.Text
@@ -366,8 +397,10 @@ Partial Class Inventarios_TrasladoSolicitud
             Row("Serie") = "-1"
         End If
 
+
+
         Dim ObjInventarios As New ClsInventarios
-        Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
+        Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Lote:=Lote, FechaCaducidad:=FechaCaducidad)
         ObjInventarios.Dispose()
 
         If Existencia - TxtCantidad.Text.Trim.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {DdlUM.SelectedValue.ToEntero}") < 0 Then
@@ -988,6 +1021,14 @@ Partial Class Inventarios_TrasladoSolicitud
             DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString)
             Dim AplicaSerie As Boolean = drPS("AplicaSerie").ToString = "True"
             Div4.Visible = AplicaSerie
+
+            Dim AplicaLote As Boolean = drPS("AplicaLote").ToString = "True"
+            divLote.Visible = AplicaLote
+
+            Dim AplicaCaducidad As Boolean = drPS("AplicaCaducidad").ToString = "True"
+            divCaducidad.Visible = AplicaCaducidad
+            divCaducidad2.Visible = AplicaCaducidad
+
         End If
         UpPS.Update()
         UpDatos.Update()

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
-
+            Else
-                'Dim facBytes = DescargarFactura(Retorno.CveVenta, UsuarioActual.CveEmpresa)
+                Alert("No hay partidas agregadas a la factura", TipoMensaje.MsgAdvertencia)
-                'ImprimirbytesPDF(facBytes, ObjFactura.SerieFolio)
-
             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

@@ -2786,14 +2786,14 @@ Partial Class ProductosyServicios
     Private Function GuardarProductoEnFranquicia(ObjPS As ClsProductosServicios, PSS As String, CveMetodoInv As Integer, EsPaquete As Integer, Agregar As Boolean) As Boolean
         Dim StrEmpresas As String = UsuarioActual.Empresa.Funcionalidad(563)
         Dim EmpresasFranquicia As List(Of Integer) = StrEmpresas.Split(","c).ToList().ConvertAll(Function(x) Convert.ToInt32(x))
-        For Each Franquicia As Integer In EmpresasFranquicia
+        For Each CveEmpresaFranquicia As Integer In EmpresasFranquicia
-            Dim nombreEmpresa As String = GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")
+            Dim nombreEmpresa As String = GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")
-            Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion.SelectedItem.Text)).ToEntero
+            Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=CveEmpresaFranquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion.SelectedItem.Text)).ToEntero
-            Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveUnidadMedida", String.Format("UnidadMedida = '{0}'", DdlUnidadMedida.SelectedItem.Text)).ToEntero
+            Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(CveEmpresa:=CveEmpresaFranquicia).FiltroPrimeroValor("CveUnidadMedida", String.Format("UnidadMedida = '{0}'", DdlUnidadMedida.SelectedItem.Text)).ToEntero
-            Dim CveClasificacion2 As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion2.SelectedItem.Text)).ToEntero
+            Dim CveClasificacion2 As Integer = GlobalDTClasificaciones(CveEmpresa:=CveEmpresaFranquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion2.SelectedItem.Text)).ToEntero
-            Dim CveTipo As Integer = GlobalDTClasificacionesDetalle(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacionDetalle", String.Format("ClasificacionDetalle = '{0}'", DdlTipoPSDes.SelectedItem.Text)).ToEntero
+            Dim CveTipo As Integer = GlobalDTClasificacionesDetalle(CveEmpresa:=CveEmpresaFranquicia).FiltroPrimeroValor("CveClasificacionDetalle", String.Format("ClasificacionDetalle = '{0}'", DdlTipoPSDes.SelectedItem.Text)).ToEntero
             Dim CveMarcaFranquicia As Integer = -1
-            If ObjPS.GetMarcas(Franquicia) Then
+            If ObjPS.GetMarcas(CveEmpresaFranquicia) Then
                 CveMarcaFranquicia = ObjPS.DtResultados.FiltroPrimeroValor("CveMarca", String.Format("Marca = '{0}'", DdlMarca.SelectedItem.Text)).ToEntero
             End If
             Dim CveModelo As Integer = -1
@@ -2801,13 +2801,13 @@ Partial Class ProductosyServicios
             Dim CveRin As Integer = -1
 
             Dim ObjGral As New ClsGenerales()
-            If ObjGral.GetModelos(Franquicia) Then
+            If ObjGral.GetModelos(CveEmpresaFranquicia) Then
                 CveModelo = ObjGral.DtResultados.FiltroPrimeroValor("CveModelo", String.Format("Modelo = '{0}'", DdlModelo.SelectedItem.Text)).ToEntero
             End If
-            If ObjGral.GetMedidas(Franquicia) Then
+            If ObjGral.GetMedidas(CveEmpresaFranquicia) Then
                 CveMedida = ObjGral.DtResultados.FiltroPrimeroValor("CveMedida", String.Format("Medida = '{0}'", DdlMedida.SelectedItem.Text)).ToEntero
             End If
-            If ObjGral.GetRimTamanios(Franquicia) Then
+            If ObjGral.GetRimTamanios(CveEmpresaFranquicia) Then
                 CveRin = ObjGral.DtResultados.FiltroPrimeroValor("CveRinTamaño", String.Format("RinTamaño = '{0}'", DdlRin.SelectedItem.Text)).ToEntero
             End If
 
@@ -2845,7 +2845,7 @@ Partial Class ProductosyServicios
             If Agregar Then
                 If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, txtcodigo2.text.trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                            (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, DdlProveedor.txtValue.Value.ToEntero, True, ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario,
-                           Franquicia, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2,
+                           CveEmpresaFranquicia, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2,
                            CveMarca:=CveMarcaFranquicia, 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),
@@ -2860,7 +2860,7 @@ Partial Class ProductosyServicios
                 End If
             Else
 
-                If ObjPS.GetPS(-1, -1, Franquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
+                If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
                     Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS").ToEntero()
                     If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, txtcodigo2.text.trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                                   (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
@@ -2878,7 +2878,7 @@ Partial Class ProductosyServicios
 
                     End If
                 Else
-                    Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+                    Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
                     Return True
                 End If
             End If

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" %>
+<%@ 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" %>
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-    <style>
+    <style>
-        .select2 .select2-selection__rendered {
+        .select2 .select2-selection__rendered {
-            line-height: 1;
+            line-height: 1;
-            color: #111;
+            color: #111;
-        }
+        }
-
+
-        .select2 .select2-selection--multiple {
+        .select2 .select2-selection--multiple {
-            box-sizing: border-box;
+            box-sizing: border-box;
-            cursor: pointer;
+            cursor: pointer;
-            display: block;
+            display: block;
-            min-height: 20px;
+            min-height: 20px;
-            user-select: none;
+            user-select: none;
-            -webkit-user-select: none;
+            -webkit-user-select: none;
-        }
+        }
-
+
-        .select2-container--default .select2-selection--multiple .select2-selection__choice {
+        .select2-container--default .select2-selection--multiple .select2-selection__choice {
-            margin-top: 10px;
+            margin-top: 10px;
-        }
+        }
-
+
-        .select2-selection__rendered {
+        .select2-selection__rendered {
-            margin-top: 0px;
+            margin-top: 0px;
-            height: 25px;
+            height: 25px;
-        }
+        }
-
+
-        .select2-selection {
+        .select2-selection {
-            margin-top: 0px;
+            margin-top: 0px;
-            height: 31px;
+            height: 31px;
-        }
+        }
-
+
-        .select2-container--default.select2-container--focus .select2-selection--multiple {
+        .select2-container--default.select2-container--focus .select2-selection--multiple {
-            border: none;
+            border: none;
-            outline: 0;
+            outline: 0;
-        }
+        }
-
+
-        #chartdiv {
+        #chartdiv {
-            width: 100%;
+            width: 100%;
-            height: 500px;
+            height: 500px;
-        }
+        }
-    </style>
+    </style>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
+<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:UpdatePanel>--%>
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
+    <li>
-        <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar</asp:LinkButton>
+        <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar</asp:LinkButton>
-    </li>
+    </li>
-    <li>
+    <li>
-        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
+        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
-    </li>
+    </li>
-    <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>
+        <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>
-    <li>
+    <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server" Enabled="true"> <i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+        <asp:LinkButton ID="ImgImprimir" runat="server" Enabled="true"> <i class="fa fa-print"></i> Imprimir</asp:LinkButton>
-    </li>
+    </li>
-    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <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>
             <li>
-                 <asp:LinkButton ID="BtnDescargarZipPDF" runat="server"> <i class="fa fa-cloud-download"></i>  Descargar Facturas</asp:LinkButton>
+                <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
-            </li>
+            </li>
-        </ContentTemplate>
+        </ContentTemplate>
-          <Triggers>
+    </asp:UpdatePanel>
-              <asp:PostBackTrigger  ControlID= "BtnDescargarZipPDF" />
+
-          </Triggers>
+    <asp:UpdatePanel ID="UpDescargaZipPDF" runat="server" UpdateMode="Conditional">
-    </asp:UpdatePanel>
+        <ContentTemplate>
-
+            <li>
-
+                <asp:LinkButton ID="BtnDescargarZipPDF" runat="server"> <i class="fa fa-cloud-download"></i>  Descargar Facturas</asp:LinkButton>
-
+            </li>
-
+        </ContentTemplate>
-
+        <Triggers>
-</asp:Content>
+            <asp:PostBackTrigger ControlID="BtnDescargarZipPDF" />
-<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+        </Triggers>
-    Reporte de Productos Servicios
+    </asp:UpdatePanel>
-</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>
+</asp:Content>
-            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-                <div class="portlet-title portlet-filterT smalltitle">
+    Reporte de Productos Servicios
-                    <div class="tools">
+</asp:Content>
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-                        <a href="javascript:;" class="expand"></a>
+</asp:Content>
-                    </div>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-                    <div class="titlefiltros  caption">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
-                        <div class="row">
+        <ContentTemplate>
-                            <label class="col-md-1">Tipo: </label>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
-                            <div class="col-md-2">
+                <div class="portlet-title portlet-filterT smalltitle">
-                                <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">
+                    <div class="tools">
-                                    <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                                    <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
+                        <a href="javascript:;" class="expand"></a>
-                                    <asp:ListItem Text="Remisión" Value="Rem"></asp:ListItem>
+                    </div>
-                                    <asp:ListItem Text="Cotización" Value="Cot"></asp:ListItem>
+                    <div class="titlefiltros  caption">
-                                    <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
+                        <div class="row">
-                                    <asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
+                            <label class="col-md-1">Tipo: </label>
-                                    <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
+                            <div class="col-md-2">
-                                    <asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
+                                <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:ListBox>
+                                    <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>--%>
+                                </asp:DropDownList>--%>
-                            </div>
+                            </div>
-                            <div class="col-md-1 truncate">
+                            <div class="col-md-1 truncate">
                                 Fecha Inicio:
-                            </div>
+                           
-                            <div class="col-md-1">
+                            </div>
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                            <div class="col-md-1">
-                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                                    <span class="input-group-btn ">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    <span class="input-group-btn ">
-                                    </span>
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                </div>
+                                    </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                </div>
-                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <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>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <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>
+                                <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>
-                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <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="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                            <div class="col-md-1 truncate">
+                            </div>
+                            <div class="col-md-1 truncate">
                                 Fecha Fin: 
-                            </div>
+                           
-                            <div class="col-md-1">
+                            </div>
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                            <div class="col-md-1">
-                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                                    <span class="input-group-btn ">
+                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    <span class="input-group-btn ">
-                                    </span>
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                </div>
+                                    </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                </div>
-                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <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>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <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>
+                                <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>
-                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <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="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                            <label class="col-md-1 ">Grupo:</label>
+                            </div>
-                            <div class="col-md-2">
+                            <label class="col-md-1 ">Grupo:</label>
-                                <asp:DropDownList ID="DdlGrupo" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                            <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:ListItem Text="Cliente - PS" Value="20"></asp:ListItem>--%>
-                                </asp:DropDownList>
+                                </asp:DropDownList>
-                            </div>
+                            </div>
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-                </div>
+                </div>
-                <div class="portlet-body" style="display: none">
+                <div class="portlet-body" style="display: none">
-                    <div class="row">
+                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
-                        <div runat="server" id="DivProyecto" class="col-md-2">
+                        <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: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:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
-                        <div runat="server" id="DivSubProyecto" class="col-md-2">
+                        <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: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:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-                        <label class="col-md-1 ">Cliente:</label>
+                        <label class="col-md-1 ">Cliente:</label>
-                        <div class="col-md-2">
+                        <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>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                        </div>
+                        </div>
-                        <label class="col-md-1 truncate">Vendedor:</label>
+                        <label class="col-md-1 truncate">Vendedor:</label>
-                        <div class="col-md-2">
+                        <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: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:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-                    <div class="row">
+                    <div class="row">
-                        <label class="col-md-1 ">Estatus:</label>
+                        <label class="col-md-1 ">Estatus:</label>
-                        <div class="col-md-2">
+                        <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: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:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-                        <label runat="server" id="LblSubProyectoEjecucion" class="col-md-1 truncate">SubProyecto Ejecución:</label>
+                        <label runat="server" id="LblSubProyectoEjecucion" class="col-md-1 truncate">SubProyecto Ejecución:</label>
-                        <div class="col-md-2">
+                        <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: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:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-                        <label class="col-md-1 truncate">Fecha I. Ejecución:</label>
+                        <label class="col-md-1 truncate">Fecha I. Ejecución:</label>
-                        <div class="col-md-2">
+                        <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;">
+                            <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>
+                                <asp:TextBox ID="TxtFechaIEjec" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                <span class="input-group-btn ">
+                                <span class="input-group-btn ">
-                                    <asp:LinkButton ID="ImgCalFechaIEjec" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    <asp:LinkButton ID="ImgCalFechaIEjec" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                </span>
+                                </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaIEjec" runat="server" TargetControlID="TxtFechaIEjec" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <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>
+                                <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: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>
+                                <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="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>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaIEjec2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaIEjec" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
+                            </div>
-                        </div>
+                        </div>
-                        <label class="col-md-1 truncate">Fecha F. Ejecución:</label>
+                        <label class="col-md-1 truncate">Fecha F. Ejecución:</label>
-                        <div class="col-md-2">
+                        <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;">
+                            <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>
+                                <asp:TextBox ID="TxtFechaFEjec" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                <span class="input-group-btn ">
+                                <span class="input-group-btn ">
-                                    <asp:LinkButton ID="ImgCalFechaFEjec" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    <asp:LinkButton ID="ImgCalFechaFEjec" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                </span>
+                                </span>
-                                <ajax:MaskedEditExtender ID="MEEFechaFEjec" runat="server" TargetControlID="TxtFechaFEjec" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <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>
+                                <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: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>
+                                <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="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>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaFEjec2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFEjec" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </div>
+                            </div>
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-                    <div class="row">
+                    <div class="row">
-                        <label class="col-md-1 truncate">Usuario:</label>
+                        <label class="col-md-1 truncate">Usuario:</label>
-                        <div class="col-md-2">
+                        <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: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:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-                        <label class="col-md-1 truncate">Categoría:</label>
+                        <label class="col-md-1 truncate">Categoría:</label>
-                        <div class="col-md-2">
+                        <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: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:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-                        <label class="col-md-1 truncate">Clasificación:</label>
+                        <label class="col-md-1 truncate">Clasificación:</label>
-                        <div class="col-md-2">
+                        <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: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:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-                        <label class="col-md-1 truncate">Productos Servicios:</label>
+                        <label class="col-md-1 truncate">Productos Servicios:</label>
-                        <div class="col-md-2">
+                        <div class="col-md-2">
-                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:55%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:55%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
-                        </div>
+                        </div>
-                    </div>
+                    </div>
-                    <div class="row">
+                    <div class="row">
-                        <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasif.Cliente:</label>
+                        <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasif.Cliente:</label>
-                        <div class="col-md-2">
+                        <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>
+                            <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>
-                        <label title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Proveedor:</label>
+                        <label title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Proveedor:</label>
-                        <div class="col-md-2">
+                        <div class="col-md-2">
-                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                        </div>
+                        </div>
-                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
+                        <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">
+                        <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>
+                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%" Height="22px"></asp:DropDownList>
-                        </div>
+                        </div>
-                        <asp:Label ID="lblDdlTipoPSDes" Visible="false" CssClass="col-md-1" runat="server" Text="Tipo:"></asp:Label>
+                        <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">
+                        <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: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:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-
+                    </div>
-                             <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
+                    <div class="row">
-                        <div class="col-md-2">
+                        <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
-                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                        <div class="col-md-2">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
-                            </asp:DropDownList>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
-                        </div>
+                            </asp:DropDownList>
-
+                        </div>
-
+                        <label class="col-md-1 truncate">Modalidad Contable:</label>
-
+                        <div class="col-md-2">
-                    </div>
+                            <asp:CheckBox ID="ChkModalidadContable" runat="server" Checked="false" CssClass="input-sm" />
-                </div>
+                        </div>
-            </div>
+                    </div>
-        </ContentTemplate>
+                </div>
-    </asp:UpdatePanel>
+            </div>
-    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
+        </ContentTemplate>
-        <ContentTemplate>
+    </asp:UpdatePanel>
-
+    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
-            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
+        <ContentTemplate>
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="TipoDocumento,SerieFolio" >
+
-                <Columns>
+            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
-                    <asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" DataKeyNames="TipoDocumento,SerieFolio">
-                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
+                <Columns>
-                    <asp:BoundField HeaderText="Suc. Ejec." DataField="SubProyectoEjecucion" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <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="Suc. Cob." DataField="SubProyectoCobranza" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Suc. Ejec." DataField="SubProyectoEjecucion" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Suc. Cob." DataField="SubProyectoCobranza" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Código" DataField="CodigoProducto" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="Producto/Servicio" DataField="PS" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Observación" DataField="Observaciones" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <asp:BoundField HeaderText="Código" DataField="CodigoProducto" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Producto/Servicio" DataField="PS" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Observación" DataField="Observaciones" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                    <asp:BoundField HeaderText="Desc" DataField="Descuento" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="PU" DataField="PU" 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="SubTotal" DataField="SubTotal" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Total" DataField="Total" 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="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
+                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                </Columns>
+                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
-                <RowStyle CssClass="Texto" />
+                    <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
-                <HeaderStyle CssClass="Titulos" />
+                </Columns>
-            </asp:GridView>
+                <RowStyle CssClass="Texto" />
-
+                <HeaderStyle CssClass="Titulos" />
-        </ContentTemplate>
+            </asp:GridView>
-    </asp:UpdatePanel>
+
-    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+        </ContentTemplate>
-        <ContentTemplate>
+    </asp:UpdatePanel>
-            <div id="DivPersonalizar" class="modal fade" role="dialog">
+    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
-                <div class="modal-dialog">
+        <ContentTemplate>
-
+            <div id="DivPersonalizar" class="modal fade" role="dialog">
-                    <!-- Modal content-->
+                <div class="modal-dialog">
-                    <div class="modal-content">
+
-                        <div class="modal-header">
+                    <!-- Modal content-->
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <div class="modal-content">
-                            <h4 class="modal-title">
+                        <div class="modal-header">
-                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-                        </div>
+                            <h4 class="modal-title">
-                        <div class="modal-body">
+                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
-                            <table class="table table-striped table-advance table-hover Widthall">
+                        </div>
-                                <tbody>
+                        <div class="modal-body">
-                                    <tr>
+                            <table class="table table-striped table-advance table-hover Widthall">
-                                        <td style="text-align: left;">
+                                <tbody>
-                                            <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones" /></td>
+                                    <tr>
-                                        <td style="text-align: left;">
+                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkSucEjec" runat="server" Text="Sucursal Ejecución" /></td>
+                                            <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones" /></td>
-                                        <td style="text-align: left;">
+                                        <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkSucCob" runat="server" Text="Sucursal Cobranza" /></td>
+                                            <asp:CheckBox ID="ChkSucEjec" runat="server" Text="Sucursal Ejecución" /></td>
-                                    </tr>
+                                        <td style="text-align: left;">
-                                    <tr>
+                                            <asp:CheckBox ID="ChkSucCob" runat="server" Text="Sucursal Cobranza" /></td>
-                                        <td style="text-align: left;">
+                                    </tr>
-                                            <asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
+                                    <tr>
-                                        </td>
+                                        <td style="text-align: left;">
-                                    </tr>
+                                            <asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
-                                </tbody>
+                                        </td>
-                            </table>
+                                    </tr>
-                        </div>
+                                </tbody>
-                        <div class="modal-footer">
+                            </table>
-                            <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
+                        </div>
-                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                        <div class="modal-footer">
-                        </div>
+                            <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
-                    </div>
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-
+                        </div>
-                </div>
+                    </div>
-            </div>
+
-        </ContentTemplate>
+                </div>
-    </asp:UpdatePanel>
+            </div>
-
+        </ContentTemplate>
-    <asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
+    </asp:UpdatePanel>
-        <ContentTemplate>
+
-            <div id="DivTipoCambio" class="modal fade" role="dialog">
+    <asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
-                <div class="modal-dialog">
+        <ContentTemplate>
-                    <div class="modal-content">
+            <div id="DivTipoCambio" class="modal fade" role="dialog">
-                        <div class="modal-header">
+                <div class="modal-dialog">
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <div class="modal-content">
-                            <h4 class="modal-title">
+                        <div class="modal-header">
-                                <asp:Label ID="Label2" runat="server" ClientIDMode="Static" Text="Cambiar Tipo Cambio de Dólares"></asp:Label></h4>
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-                        </div>
+                            <h4 class="modal-title">
-                        <div class="modal-body">
+                                <asp:Label ID="Label2" runat="server" ClientIDMode="Static" Text="Cambiar Tipo Cambio de Dólares"></asp:Label></h4>
-                            <asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
+                        </div>
-                                <ContentTemplate>
+                        <div class="modal-body">
-                                    <asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
+                            <asp:UpdatePanel runat="server" ID="UpBodyTipoCambio" UpdateMode="Conditional">
-                                        <asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
+                                <ContentTemplate>
-                                        <asp:ListItem Text="Dólares en Tipo Cambio de la Fecha Compra" Value="2"></asp:ListItem>
+                                    <asp:RadioButtonList runat="server" ID="RblTipoCambio" AutoPostBack="true">
-                                        <asp:ListItem Text="Tipo Cambio Especifico" Value="3"></asp:ListItem>
+                                        <asp:ListItem Selected="true" Text="Moneda Original" Value="1"></asp:ListItem>
-                                    </asp:RadioButtonList>
+                                        <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>
-                                    <div class="row" style="margin-left: 10px;" runat="server" id="LiEspecifico" visible="false">
+                                    </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>
+                                        <asp:TextBox ID="TxtEspecifico" runat="server" Width="55px" />
-                                </ContentTemplate>
+                                    </div>
-                            </asp:UpdatePanel>
+                                </ContentTemplate>
-                        </div>
+                            </asp:UpdatePanel>
-                        <div class="modal-footer">
+                        </div>
-                            <asp:Button ID="BtnTipoCambio" OnClick="BtnTipoCambio_Click" runat="server" Text="Aceptar" class="btn btn-primary" />
+                        <div class="modal-footer">
-                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                            <asp:Button ID="BtnTipoCambio" OnClick="BtnTipoCambio_Click" runat="server" Text="Aceptar" class="btn btn-primary" />
-                        </div>
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                    </div>
+                        </div>
-                </div>
+                    </div>
-            </div>
+                </div>
-        </ContentTemplate>
+            </div>
-    </asp:UpdatePanel>
+        </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">
+    <div id="DivModalGrafica" class="modal ADS fade" role="dialog">
-            <ContentTemplate>
+        <asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
-                <div class="modal-content">
+            <ContentTemplate>
-                    <div class="modal-header">
+                <div class="modal-content">
-                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <div class="modal-header">
-                        <h4 class="modal-title">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
-                            <asp:Label ID="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
+                        <h4 class="modal-title">
-                        </h4>
+                            <asp:Label ID="LblTituloGrafica" runat="server" ClientIDMode="Static" Text=""></asp:Label>
-                    </div>
+                        </h4>
-                    <div class="modal-body">
+                    </div>
-                        <div class="row">
+                    <div class="modal-body">
-                            <div class="col-md-2"></div>
+                        <div class="row">
-                            <label class="col-md-1 truncate">Grafica:</label>
+                            <div class="col-md-2"></div>
-                            <div class="col-md-2">
+                            <label class="col-md-1 truncate">Grafica:</label>
-                                <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">
+                            <div class="col-md-2">
-                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
+                                <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 Text="Pastel" Value="2"></asp:ListItem>
+                                    <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
-                                </asp:DropDownList>
+                                    <asp:ListItem Text="Pastel" Value="2"></asp:ListItem>
-                            </div>
+                                </asp:DropDownList>
-                            <label class="col-md-1 truncate">&nbsp;&nbsp;&nbsp;Ver:</label>
+                            </div>
-                            <div class="col-md-2">
+                            <label class="col-md-1 truncate">&nbsp;&nbsp;&nbsp;Ver:</label>
-                                <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">
+                            <div class="col-md-2">
-                                    <asp:ListItem Selected="True" Text="Total" Value="1"></asp:ListItem>
+                                <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 Text="SubTotal" Value="2"></asp:ListItem>
+                                    <asp:ListItem Selected="True" Text="Total" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="IVA" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="SubTotal" Value="2"></asp:ListItem>
-                                </asp:DropDownList>
+                                    <asp:ListItem Text="IVA" Value="3"></asp:ListItem>
-                            </div>
+                                </asp:DropDownList>
-                        </div>
+                            </div>
-                        <br />
+                        </div>
-                        <div id="chartdiv"></div>
+                        <br />
-                    </div>
+                        <div id="chartdiv"></div>
-                    <div class="modal-footer">
+                    </div>
-                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    <div class="modal-footer">
-                    </div>
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
-                </div>
+                    </div>
-            </ContentTemplate>
+                </div>
-        </asp:UpdatePanel>
+            </ContentTemplate>
-    </div>
+        </asp:UpdatePanel>
-
+    </div>
-</asp:Content>
+
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
-    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-    <script src="https://www.amcharts.com/lib/3/serial.js"></script>
+    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
-    <script src="https://www.amcharts.com/lib/3/pie.js"></script>
+    <script src="https://www.amcharts.com/lib/3/serial.js"></script>
-    <script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
+    <script src="https://www.amcharts.com/lib/3/pie.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/plugins/export/export.min.js"></script>
-    <script src="https://www.amcharts.com/lib/3/themes/light.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": {
+                "export": {
-                    "enabled": true
+                    "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": {
+                "export": {
-                    "enabled": true
+                    "enabled": true
-                }
+                }
-            });
+            });
         }
 
-    </script>
+    </script>
-</asp:Content>
+</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 (TxtFechaIEjec.Text.Trim() != "") { FechaIEjec = TxtFechaIEjec.Text.ToDate(); } else { FechaIEjec = MinFecha; }
-        if (TxtFechaFEjec.Text.Trim() != "") { FechaFEjec = TxtFechaFEjec.Text.ToDate(); } else { FechaFEjec = MaxFecha; }
+        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.Items.Insert(0, New ListItem("Seleccione ", "-1"))
-                    ddlAlmacen.SelectedValue = "-1"
+                ddlAlmacen.SelectedValueExist("-1")
-                End If
+
                 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
+                    'VERIFICAR CANDADOS DE VENTA, REMISIONES SIN FACTURAR, FACTURAS QUE NO TENGAN VENCIDAS
-                    Dim Vta As New ClsVentas
+                    If UsuarioActual.Empresa.Funcionalidad(597) = "1" Then
-                    Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
+                        Dim Vta As New ClsVentas
-                    Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
+                        Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
-                    Vta.Dispose()
+                        Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
-                    If Opcion > 0 Then
+                        Vta.Dispose()
-                        If Opcion = 1 Then
+                        If Opcion > 0 Then
-                            BtnEmitirImprimir.Visible = False
+                            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
@@ -7376,7 +7395,7 @@ Partial Class Ventas
 
                 'VALIDA PROMOCIONES Y EXISTENCIAS
                 Dim ObjVentas As New ClsVentas
-                If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), 1, UsuarioActual.CveEmpresa) Then
                     DtPromociones = ObjVentas.DtResultados
                 End If
                 ObjVentas.Dispose()
@@ -8440,7 +8459,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))
 
@@ -8718,7 +8737,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))
 
@@ -9147,7 +9166,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))
 
@@ -9808,7 +9827,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))
 
@@ -11073,17 +11092,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")
+                '    Dim dt As DataTable = DTRemisiones.FiltraParametros("Aplicado = True")
-                    If dt.Rows.Count > 0 Then
+                '    If dt.Rows.Count > 0 Then
-                        For Each row As DataRow In dt.Rows
+                '        For Each row As DataRow In dt.Rows
-                            If Not ObjVentas.UpdateVentaRemision(row("CveVenta").ToString().ToEntero(), ObjFactura.CveVenta) Then
+                '            If Not ObjVentas.UpdateVentaRemision(row("CveVenta").ToString().ToEntero(), ObjFactura.CveVenta) Then
-                                ErrorList.Add("Ocurrió un error al actualizar la remisión")
+                '                ErrorList.Add("Ocurrió un error al actualizar la remisión")
-                            End If
+                '            End If
-                        Next
+                '        Next
-                    End If
+                '    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
+                If Not FacturarDocumentoNuevo Then
-                TrVistaPrevia.Visible = True
+                    BtnCrearApartirDe.Enabled = EstatusCliente
+                    BtnEmitirImprimir.Visible = EstatusCliente
+                    TrVistaPrevia.Visible = EstatusCliente
+                End If
+
                 UpFacturar.Update()
             Else
 
@@ -16092,7 +16130,7 @@ Partial Class Ventas
 
         'VALIDA PROMOCIONES
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveCliente, DdlVendedor.SelectedValue.ToEntero(), 1, UsuarioActual.CveEmpresa) Then
             DtPromociones = ObjVentas.DtResultados
         End If
         ObjVentas.Dispose()
@@ -22806,11 +22844,6 @@ Partial Class Ventas
                             Return False
                         End If
 
-                        'If AplicaSeccion Then
-                        '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                        'Else
-                        '    CveSeccionAlmacen = -1
-                        'End If
                         CveSeccionAlmacen = -3
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, 1, CveUnidad, CveProducto, 0, -1, Serie:=Dr2("Serie").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
@@ -22823,11 +22856,6 @@ Partial Class Ventas
                         Return False
                     End If
 
-                    'If AplicaSeccion Then
-                    '    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                    'Else
-                    '    CveSeccionAlmacen = -1
-                    'End If
                     CveSeccionAlmacen = -3
 
                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaConsignacion, Cantidad, CveUnidad, CveProducto, 0, -1, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
@@ -22894,7 +22922,7 @@ Partial Class Ventas
                         dtvirtual = ObjInventario.DtResultados
 
                         If dtvirtual.Rows.Count > 0 Then
-                            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", Modulo:="VV2", CveMovimientoRelacionado:=CveMovimientoSalidaGeneral)
+                            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, -1, -1, Observaciones:="", Modulo:="VV2", CveMovimientoRelacionado:=CveMovimientoSalidaGeneral)
                             'FolioVirtualSalida = ObjInventario.Folio
 
                             For Each RowVirtual As DataRow In dtvirtual.Rows
@@ -22907,10 +22935,14 @@ Partial Class Ventas
                                     Return False
                                 End If
                             Next
+                        Else
+                            Return False
                         End If
                     Else
                         Return False
                     End If
+                Else
+                    Return False
                 End If
 
             End If
@@ -24310,7 +24342,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()
@@ -28214,7 +28246,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
 
@@ -28275,7 +28307,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

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
+                        ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33
-                        If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows.Count > 0 Then
+                        If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then
-                            ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows(0)("MetodoPago").ToString
+                            ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString
                         Else
                             ObjFactura.CveMetodoPago = 1
                             ObjFactura.MetodoPago = "Efectivo"