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

App_Code/ClsProductosServicios.vb

@@ -386,7 +386,7 @@ Public Class ClsProductosServicios
                           Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                           Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1,
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "") As Integer
+                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -458,6 +458,7 @@ Public Class ClsProductosServicios
             .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque
             .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
             .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
+            .Add("@Litraje", SqlDbType.Float).Value = Litraje
 
         End With
 
@@ -604,7 +605,7 @@ Public Class ClsProductosServicios
                              Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                              Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "") As Boolean
+                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProductosServiciosUpdate")
@@ -677,6 +678,7 @@ Public Class ClsProductosServicios
             .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque
             .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
             .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
+            .Add("@Litraje", SqlDbType.Float).Value = Litraje
 
         End With
 
@@ -1858,7 +1860,7 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer) As Boolean
+    Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PorcentajeMarcasAdd")
 
@@ -1870,6 +1872,8 @@ Public Class ClsProductosServicios
             .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
             .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago
+            .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo
 
         End With
         Try
@@ -1881,7 +1885,7 @@ Public Class ClsProductosServicios
 
         Return Retorno
     End Function
-    Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal) As Boolean
+    Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PorcentajeMarcasUpdate")
 
@@ -1892,6 +1896,8 @@ Public Class ClsProductosServicios
             .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
             .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
             .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
+            .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago
+            .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo
 
         End With
         Try

App_Code/Modelos.vb

@@ -898,7 +898,7 @@ Namespace Modelos
                                         'If Not ImprimeAlert Then
 
                                         If Me.GenerarPDFFactura Then
-                                            DescargarFactura(CveVenta, CveEmpresa)
+                                            DescargarFactura(CveVenta, CveEmpresa, False)
 
                                             Dim ArchivoIngPyMe As New System.IO.FileInfo(String.Format("{0}Formatos/Factura.mrt", UsuarioActual.Empresa.Ruta))
                                             Dim ArchivoIng As New System.IO.FileInfo(String.Format("{0}Formatos/Factura.rdlc", UsuarioActual.Empresa.Ruta))
@@ -1023,8 +1023,8 @@ Namespace Modelos
             Return Retorno
         End Function
 
-        Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer) As Byte()
-            Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
+        Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = true) As Byte()
+            Dim Url = New Uri(String.Format("http://{0}:{1}/Compras/PopUpVerFactura.aspx?P={2}", HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
             Dim File As Byte() = Nothing
             Try
                 Using httpClient = New HttpClient()
@@ -1032,7 +1032,7 @@ Namespace Modelos
                     Using request = New HttpRequestMessage(HttpMethod.Get, Url)
                         request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}", CveEmpresa, DateTime.UtcNow.Ticks)))
                         Dim response = httpClient.SendAsync(request).Result
-                        If response.StatusCode = Net.HttpStatusCode.OK Then
+                        If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then
                             File = response.Content.ReadAsByteArrayAsync().Result
                         End If
                     End Using
@@ -2180,7 +2180,7 @@ Namespace Modelos
                                                         IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                         CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
                                                     End If
-                                                    Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL)
+                                                    Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador
 
                                                     If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString.ToEntero, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=TipoCambioNC, TipoCambioPago:=Dr("TCCambioValuacion").ToString.ToDecimal, CveCuenta:=CveCuenta) Then
                                                         ErrorPrepoliza = True
@@ -2273,7 +2273,7 @@ Namespace Modelos
                                                         IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                         CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
                                                     End If
-                                                    Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL)
+                                                    Dim ImporteFluctuacion As Decimal = Math.Abs((importeMovimientoDev * difFluctuacion).RoundSQL) * ValorMultiplicador
 
                                                     If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=CveVentaDevolucion, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=TipoCambioFactura, CveCuenta:=CveCuenta) Then
                                                         ErrorPrepoliza = True
@@ -2439,30 +2439,118 @@ Namespace Modelos
 
                                                 CveSubProyectoContabilizar = CveSubProyectoVenta
 
-                                                If importeMovimiento <> 0 Then
-
-                                                    If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 251, Concepto, FechaMovimiento,
-                                                                                 IdCtaContable, -1, CveVenta:=row2("CveVentaNC").ToString.ToEntero,
-                                                                                 CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=ObjFactura.CveVenta,
-                                                                                 ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento),
-                                                                                 CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then
-                                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, importeMovimiento, Referencia, 91, Concepto,
-                                                                                         FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta,
-                                                                                         CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2("CveVentaNC").ToString.ToEntero,
-                                                                                         ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta,
-                                                                                         CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then
-                                                            ErrorPrepoliza = True
-                                                            Exit For
-                                                        End If
-                                                    Else
-                                                        ErrorPrepoliza = True
-                                                        Exit For
+                                                If importeMovimiento <> 0 Then
+
+                                                    Dim Importe91 As Decimal = 0
+                                                    Dim ImporteMN91 As Decimal = 0
+                                                    Dim Importe251 As Decimal = 0
+                                                    Dim ImporteMN251 As Decimal = 0
+
+                                                    If ObjFactura.CveMoneda = 1 AndAlso Not row2("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                        Importe251 = row2("Importe").ToString.ToDecimal
+                                                        Importe91 = row2("Importe").ToString.ToDecimal
+                                                        ImporteMN91 = row2("Importe").ToString.ToDecimal
+                                                        tipoCambio = 1
+                                                    ElseIf ObjFactura.CveMoneda = 2 AndAlso Not row2("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                        Importe251 = row2("Importe").ToString.ToDecimal
+                                                        Importe91 = row2("Importe").ToString.ToDecimal
+                                                        ImporteMN91 = row2("Importe").ToString.ToDecimal * tipoCambio
+                                                    ElseIf ObjFactura.CveMoneda = 2 AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                        Importe251 = row2("Importe").ToString.ToDecimal
+                                                        Importe91 = row2("Importe").ToString.ToDecimal
+                                                        ImporteMN91 = row2("Importe").ToString.ToDecimal * tipoCambio
+                                                    ElseIf ObjFactura.CveMoneda = 1 AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then
+
+                                                        Importe91 = row2("Importe").ToString.ToDecimal / tipoCambio
+                                                        ImporteMN91 = row2("Importe").ToString.ToDecimal
+                                                    End If
+
+                                                    Dim TCFluctuacion As Decimal = row2("TCCambioValuacion").ToString.ToDecimal
+
+                                                    If TCFluctuacion = 1 AndAlso tipoCambio > 1 Then
+                                                        TCFluctuacion = GlobalTipoCambio(ObjFactura.Fecha).ToDecimal
+                                                    End If
+
+                                                    If ObjFactura.CveMoneda = 2 AndAlso Not row2("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                        ImporteMN251 = row2("Importe").ToString.ToDecimal * TCFluctuacion
+                                                    ElseIf ObjFactura.CveMoneda = 2 AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                        ImporteMN251 = row2("Importe").ToString.ToDecimal * TCFluctuacion
+                                                    ElseIf ObjFactura.CveMoneda = 1 AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                        Importe251 = row2("Importe").ToString.ToDecimal / TCFluctuacion
+                                                        ImporteMN251 = row2("Importe").ToString.ToDecimal
+                                                    Else
+                                                        ImporteMN251 = row2("Importe").ToString.ToDecimal
+                                                    End If
+
+                                                    Importe251 = (Importe251 * Multiplicador * ValorMultiplicador).RoundSQL
+                                                    ImporteMN251 = ImporteMN251 * ValorMultiplicador
+                                                    Importe91 = (Importe91 * ValorMultiplicador).RoundSQL
+                                                    ImporteMN91 = (ImporteMN91 * Multiplicador * ValorMultiplicador).RoundSQL
+
+
+                                                    If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${Importe91.FormatoNumero(2)}"
+
+                                                    Dim CveUltimaVenta = row2("CveVenta").ToString.ToEntero
+
+                                                    Dim ImporteComplementarioIngreso As Decimal = 0
+                                                    If UsaComplementariaClientes = True AndAlso tipoCambio > 1 Then
+                                                        ImporteMN91 = Importe91
+                                                        ImporteComplementarioIngreso = ((Importe91 * tipoCambio) - Importe91).RoundSQL
+                                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 203, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContComplementaria, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2("CveVenta").ToString.ToEntero, ImporteMX:=ImporteComplementarioIngreso, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=row2("TCCambioValuacion").ToString.ToDecimal) Then
+                                                            ErrorPrepoliza = True
+                                                            Exit For
+                                                        End If
+                                                    End If
+
+                                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2("CveVenta").ToString.ToEntero, ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then
+                                                        ErrorPrepoliza = True
+                                                        Exit For
+                                                    End If
+
+
+                                                    If UsaComplementariaClientes = True AndAlso row2("TCCambioValuacion").ToString.ToDecimal > 1 Then
+                                                        ImporteMN251 = Importe251
+                                                        Dim ImporteComplementarioNC As Decimal = ((Importe251 * row2("TCCambioValuacion").ToString.ToDecimal) - Importe251).RoundSQL
+                                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 207, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContComplementaria, -1, CveVenta:=row2("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteComplementarioNC, ImporteME:=If(row2("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=row2("TCCambioValuacion").ToString.ToDecimal) Then
+                                                            ErrorPrepoliza = True
+                                                            Exit For
+                                                        End If
+                                                    End If
+
+                                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, Importe251, Referencia, 251, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, ImporteMX:=ImporteMN251, ImporteME:=If(row2("TCCambioValuacion").ToString.ToDecimal = 1, 0, Importe251), CveSubProyecto:=CveSubProyectoContabilizar, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=row2("TCCambioValuacion").ToString.ToDecimal, TipoCambioPago:=tipoCambio) Then
+                                                        ErrorPrepoliza = True
+                                                        Exit For
+                                                    End If
+
+                                                    'CONSIDERO FLUCTUACIÓN.
+                                                    If tipoCambio <> TCFluctuacion AndAlso TCFluctuacion > 1 AndAlso tipoCambio > 1 Then
+                                                        Dim difFluctuacion As Decimal = tipoCambio - TCFluctuacion
+                                                        Dim CveConceptoFluctua As Integer = 64 '64.ganacia, 65.perdida
+                                                        Dim TipoMovtoFluctua As Boolean = True
+                                                        Dim IdCtaContableFluctua As Integer
+                                                        If difFluctuacion < 0 Then
+                                                            CveConceptoFluctua = 65
+                                                            TipoMovtoFluctua = False
+                                                            IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                                                            CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
+                                                        Else
+                                                            CveConceptoFluctua = 64
+                                                            TipoMovtoFluctua = True
+                                                            IdCtaContableFluctua = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+                                                            CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
+                                                        End If
+                                                        Dim ImporteFluctuacion As Decimal = Math.Abs((Importe251 * difFluctuacion).RoundSQL) * ValorMultiplicador
+
+                                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, Referencia, CveConceptoFluctua, Concepto, FechaMovimiento, IdCtaContableFluctua, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=row2("CveVenta").ToString.ToEntero, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, TipoCambioPago:=row2("TCCambioValuacion").ToString.ToDecimal, CveCuenta:=CveCuenta) Then
+                                                            ErrorPrepoliza = True
+                                                            Exit For
+                                                        End If
                                                     End If
+
                                                 End If
                                             End If
                                         Next
                                     End If
-
                                 Else
                                     If ObjFactura.DtAnticipos IsNot Nothing Then
                                         For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows
@@ -4091,102 +4179,111 @@ Namespace Modelos
 
                             If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then
                                 Dim CveAlmacenDevolucion = ObjFactura.CveAlmacenDevolucion
-                                'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
+                                'VERIFICAR SI YA TIENE UNA DEVOLUCION
+                                If ObjFactura.SaldoAlmacen <> 0 Then
+                                    'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
+                                    CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenDevolucion, ConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1)
+                                    Folio = ObjInventario.Folio
 
-                                CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenDevolucion, ConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1)
-                                Folio = ObjInventario.Folio
-
-                                If CveMovimiento > 0 Then
-                                    For Each Dr As DataRow In DtExistencias.Rows
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
-                                            ErrorCancelar = True
-                                            MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
-                                            Exit For
-                                        End If
-                                    Next
-                                Else
-                                    MensajeError = "Ocurrió un error al agregar el movimiento"
-                                    ErrorCancelar = True
-                                End If
-
-                                'GENERA PREPOLIZA DEL MOVIMIENTO DE DEVOLUCION
-                                If Not ErrorCancelar Then
-                                    Dim DtCostos As DataTable = Nothing
-                                    Dim ValorInventario As Decimal = 0
-                                    If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                                        DtCostos = ObjInventario.DtResultados
-
-                                        Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
-                                        Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero
-                                        Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero
-                                        Dim IdCtaContable As Integer = 0
-                                        Dim CveCuenta As Integer = 0
-                                        If tmpCostos.Rows.Count > 0 Then
-
-                                            If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
-                                                Dim Fecha As Date = Now
-                                                Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
-                                                Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString
-                                                Dim SerieFolio As String = ObjVentas.DtResultados(0)("SerieFolio").ToString
-                                                Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL()
-                                                Dim TotalCostoAcumulado As Decimal = 0
-                                                Dim cont As Integer = 1
-
-                                                Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                                                'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER)
-                                                For Each RowInv As DataRow In tmpCostos.Rows
-                                                    ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
-                                                    TotalCostoAcumulado += ValorInventario
-
-                                                    'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES
-                                                    If cont = DtCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
-                                                        ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
-                                                    End If
-
-                                                    IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                                                    CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-
-                                                    If Not ErrorCancelar Then
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, -1 * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
-                                                            ErrorCancelar = True
-                                                        End If
-                                                    End If
-
-                                                    cont += 1
-                                                Next
-
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
-                                                    ErrorCancelar = True
-                                                End If
-
-                                                'AUTOCONTA - EL MOVIMIENTO 1 ES EL DE VENTA
-
-                                                Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
-
-                                                If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then
-                                                    AutoConta = False
-                                                End If
-
-                                                If AutoConta And Not ErrorCancelar Then
-
-                                                    If IdCtaContable > 0 Then
-                                                        If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaDev, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
-                                                            ErrorCancelar = True
-                                                            MensajeError = "Ocurrió un error al contabilizar la prepoliza."
-                                                        End If
-                                                    Else
-                                                        Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
-                                                    End If
-
-                                                End If
-
-                                            Else
+                                    If CveMovimiento > 0 Then
+                                        For Each Dr As DataRow In DtExistencias.Rows
+                                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
                                                 ErrorCancelar = True
-                                                MensajeError = "Ocurrió un Error al ingresar las prepolizas"
+                                                MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
+                                                Exit For
                                             End If
+                                        Next
+                                    Else
+                                        MensajeError = "Ocurrió un error al agregar el movimiento"
+                                        ErrorCancelar = True
+                                    End If
 
+                                    'GENERA PREPOLIZA DEL MOVIMIENTO DE DEVOLUCION
+                                    If Not ErrorCancelar Then
+                                        Dim DtCostos As DataTable = Nothing
+                                        Dim ValorInventario As Decimal = 0
+                                        If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                                            DtCostos = ObjInventario.DtResultados
+
+                                            Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
+                                            Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero
+                                            Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero
+                                            Dim IdCtaContable As Integer = 0
+                                            Dim CveCuenta As Integer = 0
+                                            If tmpCostos.Rows.Count > 0 Then
+
+                                                If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+                                                    Dim Fecha As Date = Now
+                                                    Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
+                                                    Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString
+                                                    Dim SerieFolio As String = ObjVentas.DtResultados(0)("SerieFolio").ToString
+                                                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL()
+                                                    Dim TotalCostoAcumulado As Decimal = 0
+                                                    Dim cont As Integer = 1
+
+                                                    Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                                    'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER)
+                                                    For Each RowInv As DataRow In tmpCostos.Rows
+                                                        ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
+                                                        TotalCostoAcumulado += ValorInventario
+
+                                                        'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES
+                                                        If cont = DtCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
+                                                            ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
+                                                        End If
+
+                                                        IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+                                                        CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+
+                                                        If Not ErrorCancelar Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, -1 * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
+                                                                ErrorCancelar = True
+                                                            End If
+                                                        End If
+
+                                                        cont += 1
+                                                    Next
+
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
+                                                        ErrorCancelar = True
+                                                    End If
+
+                                                    'AUTOCONTA - EL MOVIMIENTO 1 ES EL DE VENTA
+
+                                                    Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+
+                                                    If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then
+                                                        AutoConta = False
+                                                    End If
+
+                                                    If AutoConta And Not ErrorCancelar Then
+
+                                                        If IdCtaContable > 0 Then
+                                                            If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaDev, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
+                                                                ErrorCancelar = True
+                                                                MensajeError = "Ocurrió un error al contabilizar la prepoliza."
+                                                            End If
+                                                        Else
+                                                            Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
+                                                        End If
+
+                                                    End If
+
+                                                Else
+                                                    ErrorCancelar = True
+                                                    MensajeError = "Ocurrió un Error al ingresar las prepolizas"
+                                                End If
+                                            End If
                                         End If
                                     End If
+                                Else
+                                    'UTILIZA LA DEVOLUCION YA REALIZADA
+                                    If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
+                                        CveMovimiento = ObjInventario.DtResultados.FiltroPrimeroValor("CveMovimiento", $"CvePS IS NULL AND CveConcepto = 18").ToEntero()
+                                    Else
+                                        ErrorCancelar = True
+                                        MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
+                                    End If
                                 End If
 
                                 If Not ErrorCancelar Then

Ashx/SIGWeb.ashx

@@ -38,7 +38,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 Case "getfraccionarancelaria"
                     GetFraccionArancelaria(context)
                 Case "GetUser"
-                    GetUser(context)
+                    GetUser(context)
+                Case "ActualizaPreP"
+                    ActualizaPrePoliza(context)
 
             End Select
         Catch ex As Exception
@@ -62,6 +64,39 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
         context.Response.Write(CveUsuario.ToString())
         context.Response.StatusCode = 200
+    End Sub
+
+    Private Sub ActualizaPrePoliza(ByVal context As HttpContext)
+        Dim CvePrePoliza As Integer = context.Request("CvePrePoliza").ToString.ToEntero
+        Dim CveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero
+        Dim CveUsuario As Integer = context.Request("CveUsuario").ToString.ToEntero
+        Dim Empresa As New Empresa
+        Dim ObjConta As New ClsContabilidad
+        Dim Retorno As Integer = 0
+
+        Dim ObjEmpresa As New ClsSisEmpresas()
+        If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
+            Empresa = ObjEmpresa.Empresa
+        End If
+        ObjEmpresa.Dispose()
+        Dim IdPoliza As Integer = -1
+
+        ObjConta.GetPrePoliza(CvePrePoliza, CveEmpresa)
+        IdPoliza = ObjConta.DtResultados.FiltroPrimeroValor("IdPoliza", "").ToEntero
+
+        If IdPoliza > 0 Then
+
+            ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
+            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, CveUsuario, Empresa, pIDPoliza:=IdPoliza) Then
+                Retorno = 200
+            End If
+        Else
+            Retorno = 200
+        End If
+        ObjConta.Dispose()
+
+        'context.Response.Write(CveUsuario.ToString())
+        context.Response.StatusCode = Retorno
     End Sub
 
     Private Sub GetImg(ByVal context As HttpContext)

Compras/Compras.aspx

@@ -992,6 +992,7 @@
                                                         <asp:UpdatePanel runat="server">
                                                             <ContentTemplate>
                                                                 <asp:Label ID="LblTC" runat="server" Text=""></asp:Label>
+                                                                <asp:Label ID="LblTCO" runat="server" Text=""></asp:Label>
                                                                 <div runat="server" id="DivTC" visible="false">
                                                                     TC:
                                                                     <asp:TextBox ID="TxtTC" Text="" Width="50px" runat="server" />

Compras/Compras.aspx.vb

@@ -2376,7 +2376,10 @@ Partial Class Compras_Compras
                 CompraSaldo = TxtTotal.Text.ToDouble
 
                 TipoCambio = dr("TipoCambio").ToString.ToDouble
+                Dim TipoCambioOriginal = dr("TipoCambioOriginal").ToString.ToDouble
                 If TipoCambio > 1 Then LblTC.Text = String.Format("TC: {0}", TipoCambio.ToString("N4"))
+                If TipoCambio <> TipoCambioOriginal Then LblTCO.Text = String.Format("<br/>TC Original: {0}", TipoCambioOriginal.ToString("N4"))
+
 
                 AsignaValoresOriginales(TxtSubTotal.Text.ToDouble, TxtSubTotal2.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDouble)
                 CalculaTotalPorDevengar()

Compras/PopUpVerFactura.aspx.vb

@@ -72,7 +72,6 @@ Partial Class PopUpVerFactura
             Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
         End Get
     End Property
-
     Private ReadOnly Property DomicilioFiscalCompu As String
         Get
             Dim SisEmpresa As New ClsSisEmpresas()
@@ -85,23 +84,31 @@ Partial Class PopUpVerFactura
             End If
             Return ""
         End Get
-    End Property
+    End Property
+    'Private Property SessionPorImpresion As Boolean
+    '    Get
+    '        Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
+    '    End Get
+    '    Set(value As Boolean)
+    '        ViewState("SessionPorImpresion") = value
+    '    End Set
+    'End Property
 #End Region
-
-
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN
             If Request.Headers("ADSToken") IsNot Nothing Then
                 Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString)))
                 Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
+                Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()
 
-                Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken)
+                Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
 
-                If UsuarioToken IsNot Nothing Then
+                If UsuarioToken IsNot Nothing AndAlso UsuarioActual Is Nothing Then
                     Context.Session("UsuarioSIG") = UsuarioToken
                 End If
-
             End If
 
             If Request("RFC") IsNot Nothing AndAlso Request("File") IsNot Nothing Then
@@ -168,15 +175,15 @@ Partial Class PopUpVerFactura
 
 
         End If
-    End Sub
-
+    End Sub
+
 #Region "U S U A R I O - T O K E N"
-
-    Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario
+
+    Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
 
         Dim UsuarioToken As Usuario = Nothing
         Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuarios(100) Then
+        If ObjUsuarios.GetUsuarios(CveUsuario) Then
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()

Compras/Proveedores.aspx

@@ -1175,15 +1175,27 @@
                                     <i class="icon-pin font-green"></i>
                                     <span class="caption-subject bold uppercase">Historial de Compras</span>
                                 </div>
-                                <div class="actions">
-                                    <div class="btn-group">
-                                    </div>
-                                </div>
 
                                 <div class="tools">
                                     <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                     <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                 </div>
+
+                                <div class="actions">
+                                    <div class="btn-group">
+                                        <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel3">
+                                            <ContentTemplate>
+                                                <asp:LinkButton ID="LnkHistorialComprasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                <asp:LinkButton ID="LnkHistorialComprasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                            </ContentTemplate>
+                                            <Triggers>
+                                                <asp:PostBackTrigger ControlID="LnkHistorialComprasPDF" />
+                                                <asp:PostBackTrigger ControlID="LnkHistorialComprasExcel" />
+                                            </Triggers>
+                                        </asp:UpdatePanel>
+                                    </div>
+                                </div>
+
                             </div>
                             <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                                 <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
@@ -1406,6 +1418,22 @@
                                             <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="remove" data-original-title="" title=""></a>
                                         </div>
+
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel4">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkCxPActivasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkCxPActivasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkCxPActivasPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkCxPActivasExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
+
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="row" style="margin-right: 10px;" align="right">
@@ -1490,14 +1518,26 @@
                                             <span class="caption-subject bold uppercase">Historial de Compras Pagadas</span>
 
                                         </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
 
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                         </div>
+
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel6">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkHistorialComprasPagadasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkHistorialComprasPagadasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkHistorialComprasPagadasPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkHistorialComprasPagadasExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
+
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="row" style="margin-right: 10px;" align="right">
@@ -1656,16 +1696,27 @@
                                             <span class="caption-subject bold uppercase">Notas de Crédito por aplicar / Anticipos por Comprobar</span>
 
                                         </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
 
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="remove" data-original-title="" title=""></a>
                                         </div>
+
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel7">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkNCxAplicarPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkNCxAplicarExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkNCxAplicarPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkNCxAplicarExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="row" style="margin-right: 10px;" align="right">
@@ -1727,16 +1778,27 @@
                                             <span class="caption-subject bold uppercase">Historial</span>
 
                                         </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
 
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="remove" data-original-title="" title=""></a>
                                         </div>
+                                        
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel8">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkNCxAplicarHistorialPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkNCxAplicarHistorialExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkNCxAplicarHistorialPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkNCxAplicarHistorialExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="row" style="margin-right: 10px;" align="right">
@@ -1814,6 +1876,22 @@
                                             <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="remove" data-original-title="" title=""></a>
                                         </div>
+
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel5">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkCtasBancariasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkCtasBancariasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkCtasBancariasPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkCtasBancariasExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
+
                                     </div>
                                     <div class="portlet-body ">
                                         <asp:UpdatePanel ID="UpCuentasBancos" runat="server" UpdateMode="Conditional">
@@ -1967,17 +2045,29 @@
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
                                             <span class="caption-subject bold uppercase">Pagos Realizados</span>
+                                        </div>
 
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="remove" data-original-title="" title=""></a>
                                         </div>
+
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpRepProveedoresPagosBancos">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkPagosProveedoresBancosPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkPagosProveedoresBancosExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkPagosProveedoresBancosPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkPagosProveedoresBancosExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
+
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">

Compras/Proveedores.aspx.vb

@@ -281,6 +281,46 @@ Partial Class Compras_Proveedores
         End Set
     End Property
 
+    Private Property DTCobrosRealizados As DataTable
+        Get
+            DTCobrosRealizados = CType(ViewState("DTCobrosRealizados"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTCobrosRealizados") = value
+        End Set
+    End Property
+    Private Property DtProveedoresHistorial As DataTable
+        Get
+            DtProveedoresHistorial = CType(ViewState("DtProveedoresHistorial"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtProveedoresHistorial") = value
+        End Set
+    End Property
+    Private Property DtCxPHistorial As DataTable
+        Get
+            DtCxPHistorial = CType(ViewState("DtCxPHistorial"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtCxPHistorial") = value
+        End Set
+    End Property
+    Private Property DtAntNC As DataTable
+        Get
+            DtAntNC = CType(ViewState("DtAntNC"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtAntNC") = value
+        End Set
+    End Property
+    Private Property DtAntNCH As DataTable
+        Get
+            DtAntNCH = CType(ViewState("DtAntNCH"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtAntNCH") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -801,16 +841,19 @@ Partial Class Compras_Proveedores
                 LtlMaxima.Text = ObjProveedores.DtResultados.Rows(0)("MAX_Total").ToString.FormatoNumero(2)
                 'Carga Grid
 
-                GVHistorial.DataSource = ObjProveedores.DtResultados
+                DtProveedoresHistorial = ObjProveedores.DtResultados
+                GVHistorial.DataSource = DtProveedoresHistorial
             Else
                 LtlCantidad.Text = "0.00"
                 LtlTotalVendido.Text = "0.00"
                 LtlMinima.Text = "0.00"
                 LtlPromedio.Text = "0.00"
                 LtlMaxima.Text = "0.00"
+                DtProveedoresHistorial = Nothing
                 GVHistorial.DataSource = Nothing
             End If
         Else
+            DtProveedoresHistorial = Nothing
             GVHistorial.DataSource = Nothing
         End If
         ObjProveedores.Dispose()
@@ -843,23 +886,31 @@ Partial Class Compras_Proveedores
 
             If SelectTop > 0 Then
                 If ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'").Rows.Count > 0 Then
+                    DtAntNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
                     GvA.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'").AsEnumerable.Take(SelectTop).CopyToDataTable
                 Else
+                    DtAntNC = Nothing
                     GvA.DataSource = Nothing
                 End If
 
                 If ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'").Rows.Count > 0 Then
+                    DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
                     GvAH.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'").AsEnumerable.Take(SelectTop).CopyToDataTable
                 Else
+                    DtAntNCH = Nothing
                     GvAH.DataSource = Nothing
                 End If
             Else
-                GvA.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
-                GvAH.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+                DtAntNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
+                GvA.DataSource = DtAntNC
+                DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+                GvAH.DataSource = DtAntNCH
             End If
         Else
             GvA.DataSource = Nothing
             GvAH.DataSource = Nothing
+            DtAntNC = Nothing
+            DtAntNCH = Nothing
         End If
         ObjMovtos.Dispose()
         GvA.DataBind()
@@ -876,7 +927,8 @@ Partial Class Compras_Proveedores
         Dim ObjMovtos As New ClsMovimientos()
         'CxC Activas
         If ObjMovtos.GetProveedorBancos(CveProveedor, CveMoneda:=CveMonedaFiltro, CveProveedorSucursal:=If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), SelectTop:=SelectTop) Then
-            GvBancos.DataSource = ObjMovtos.DtResultados
+            DTCobrosRealizados = ObjMovtos.DtResultados
+            GvBancos.DataSource = DTCobrosRealizados
         End If
 
         ObjMovtos.Dispose()
@@ -2234,6 +2286,7 @@ Partial Class Compras_Proveedores
             End If
             'solo tomo los 10 ultimos mas el totalizador general
             dtt = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+            DtCxPHistorial = dtt
             If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 And Top = -1 Then
                 GvCxPHistorial.DataSource = dtt.AsEnumerable().Take(10).CopyToDataTable()
 
@@ -5611,6 +5664,79 @@ Partial Class Compras_Proveedores
         'MyBase.VerifyRenderingInServerForm(control)
 
     End Sub
+
+#Region "P R O V E D O R E S    G R I D S   I M P R I M I R   P D F/Excel"
+    Private Sub LnkExportarPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosExcel.Click
+        ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepProveedoresPagosBancos")
+    End Sub
+    Private Sub LinkPDFPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosPDF.Click
+        ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepProveedoresPagosBancos")
+    End Sub
+
+    Private Sub LnkCtasBancariass_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasExcel.Click
+        ImprimeGridsProveedores("Excel", DTCuentasBancos, "RepProveedoresCtasBancarias")
+    End Sub
+    Private Sub LinkCtasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasPDF.Click
+        ImprimeGridsProveedores("PDF", DTCuentasBancos, "RepProveedoresCtasBancarias")
+    End Sub
+
+    Private Sub LnkExportarHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasExcel.Click
+        ImprimeGridsProveedores("Excel", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
+    End Sub
+    Private Sub LinkPDFHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPDF.Click
+        ImprimeGridsProveedores("PDF", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
+    End Sub
+
+    Private Sub LnkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasExcel.Click
+        ImprimeGridsProveedores("Excel", DTCxP, "RepProveedoresCxPActivas")
+    End Sub
+    Private Sub LinkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasPDF.Click
+        ImprimeGridsProveedores("PDF", DTCxP, "RepProveedoresCxPActivas")
+    End Sub
+
+    Private Sub LnkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasExcel.Click
+        ImprimeGridsProveedores("Excel", DtCxPHistorial, "RepProveedoresComprasPagadas")
+    End Sub
+    Private Sub LinkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasPDF.Click
+        ImprimeGridsProveedores("PDF", DtCxPHistorial, "RepProveedoresComprasPagadas")
+    End Sub
+
+    Private Sub LnkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarExcel.Click
+        ImprimeGridsProveedores("Excel", DtAntNC, "RepProveedoresNCxAplicar")
+    End Sub
+    Private Sub LinkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarPDF.Click
+        ImprimeGridsProveedores("PDF", DtAntNC, "RepProveedoresNCxAplicar")
+    End Sub
+
+    Private Sub LnkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialExcel.Click
+        ImprimeGridsProveedores("Excel", DtAntNCH, "RepProveedoresNCxAplicar")
+    End Sub
+    Private Sub LinkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialPDF.Click
+        ImprimeGridsProveedores("PDF", DtAntNCH, "RepProveedoresNCxAplicar")
+    End Sub
+
+    Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String)
+        If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then
+            Dim params As New List(Of ReportParameter)
+
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("AgrupadoPor", "Proveedor: " & LtlProveedor.Text))
+
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+            ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
+        Else
+            Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+#End Region
 End Class
 
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -165,9 +165,9 @@ Partial Class ContabilidadC_RegPrePoliza
         Set(value As Integer)
             ViewState("IdPoliza") = value
         End Set
-    End Property
+    End Property
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
@@ -186,79 +186,80 @@ Partial Class ContabilidadC_RegPrePoliza
 
             Dim dt As DataTable = Nothing
             '   If UsuarioActual.Empresa.UsaContabilidad Then
-            Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
-
-                If Conta.GetCuentas(-1, "-1", 1) Then
-                    dt = Conta.DtResultados
-                    DtCuentasContables = Conta.DtResultados
-                    Session("DtCuentas") = Conta.DtResultados
-                End If
-                Conta.Dispose()
-
-                If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
-                    DivTipoGasto.Visible = True
-                    ThTipoGasto.Visible = True
-                    CargaTiposGasto()
-                End If
-
-                If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then
-                    ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
-                    CreaDT()
-                    CargaPrePoliza()
-                    If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
-                        GvPrePoliza.Columns(4).Visible = False
-                        GvConcepto.Columns(4).Visible = False
-                        GvMov.Columns(5).Visible = False
-                    End If
-                    Exit Sub
-                Else
-                    CreaDT()
-                    BtnEliminar.Visible = False
-                End If
-
-
-                TipoPlantilla = 0
-                If IfNull(Request("Tipo"), "").ToString = "Ing" Then
-                    TipoPlantilla = 1
-                    LblEncabezado.Text = "Otros Ingresos"
-                End If
-
-                CargaPlantillas(TipoPlantilla)
-
-                If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True
-
-                CargaConceptos()
-                CargaSubProyectos()
-                CargaCuentasContables()
-
-                'crea tabla temporal
-                ArregloMovs = New ArrayList
-
-                CargaCuentas()
-
-                If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then
-                    ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero
-                    ViewState("CveProyecto") = Request("CveProyecto").ToEntero
-                    ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
-                    ViewState("CveTurno") = Request("CveTurno").ToEntero
-
-                    DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
-                    DdlPlantilla.SelectedValue = "61"
-                    DdlPlantilla.Enabled = False
-                    DivAgregarConceptos.Visible = False
-
-                    CargaNomina()
-
-                    RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
-                    RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
-                    RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
-                End If
-
-                If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
-                    GvPrePoliza.Columns(3).Visible = False
-                    GvConcepto.Columns(3).Visible = False
-                    GvMov.Columns(4).Visible = False
-                End If
+            Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
+
+            If Conta.GetCuentas(-1, "-1", 1) Then
+                dt = Conta.DtResultados
+                DtCuentasContables = Conta.DtResultados
+                Session("DtCuentas") = Conta.DtResultados
+            End If
+            Conta.Dispose()
+
+            If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
+                DivTipoGasto.Visible = True
+                ThTipoGasto.Visible = True
+                CargaTiposGasto()
+            End If
+
+            If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then
+                ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
+                CreaDT()
+                CargaPrePoliza()
+                If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
+                    GvPrePoliza.Columns(4).Visible = False
+                    GvConcepto.Columns(4).Visible = False
+                    GvMov.Columns(5).Visible = False
+                End If
+                Exit Sub
+            Else
+                CreaDT()
+                BtnEliminar.Visible = False
+            End If
+
+
+            TipoPlantilla = 0
+
+            If IfNull(Request("Tipo"), "").ToString = "Ing" Then
+                TipoPlantilla = 1
+                LblEncabezado.Text = "Otros Ingresos"
+            End If
+
+            CargaPlantillas(TipoPlantilla)
+
+            If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True
+
+            CargaConceptos()
+            CargaSubProyectos()
+            CargaCuentasContables()
+
+            'crea tabla temporal
+            ArregloMovs = New ArrayList
+
+            CargaCuentas()
+
+            If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then
+                ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero
+                ViewState("CveProyecto") = Request("CveProyecto").ToEntero
+                ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
+                ViewState("CveTurno") = Request("CveTurno").ToEntero
+
+                DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
+                DdlPlantilla.SelectedValue = "61"
+                DdlPlantilla.Enabled = False
+                DivAgregarConceptos.Visible = False
+
+                CargaNomina()
+
+                RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
+                RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
+                RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
+            End If
+
+            If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
+                GvPrePoliza.Columns(3).Visible = False
+                GvConcepto.Columns(3).Visible = False
+                GvMov.Columns(4).Visible = False
+            End If
 
             'Else
             '    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
@@ -271,6 +272,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
     End Sub
 
+
     Private Sub CreaDT()
         DtMovimientos = New DataTable("Movimientos")
         Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
@@ -502,7 +504,13 @@ Partial Class ContabilidadC_RegPrePoliza
         'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
         'GvPlantillas.DataBind()
 
-        DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+        If UsuarioActual.CveEmpresa.Contiene(120) Then
+            DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
+        Else
+            DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+        End If
+
+
         DdlPlantilla.DataBind()
         DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
     End Sub

Contratos/Contrato.aspx.vb

@@ -1755,11 +1755,11 @@ Partial Class Contratos_Default
             Gv.Columns(3).Visible = False
             Gv.Columns(9).Visible = False
         End If
-        If (Gv.Rows.Count > 0) Then
-            Gv.UseAccessibleHeader = True
-            Gv.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGVPresupuestos();")
-        End If
+        'If (Gv.Rows.Count > 0) Then
+        '    Gv.UseAccessibleHeader = True
+        '    Gv.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    RegistraScript("OrdenarGVPresupuestos();")
+        'End If
         UpGV.Update()
     End Sub
     Protected Sub BtnAutorizar_Click(sender As Object, e As EventArgs) Handles BtnAutorizar.Click
@@ -2020,11 +2020,11 @@ Partial Class Contratos_Default
         GvInsumos.DataSource = DtTemp
         DtSuministros = DtTemp
         GvInsumos.DataBind()
-        If (GvInsumos.Rows.Count > 0) Then
-            GvInsumos.UseAccessibleHeader = True
-            GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGVPresupuestosInsumos();")
-        End If
+        'If (GvInsumos.Rows.Count > 0) Then
+        '    GvInsumos.UseAccessibleHeader = True
+        '    GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    RegistraScript("OrdenarGVPresupuestosInsumos();")
+        'End If
         UpGVInsumos.Update()
     End Sub
 

Empresas/Grales/Formatos/RepClientesAnticipoHistorial.rdlc

@@ -0,0 +1,885 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+  <Body>
+    <ReportItems>
+      <Textbox Name="Textbox12">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!AgrupadoPor.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox9</rd:DefaultName>
+        <Top>0.0441cm</Top>
+        <Height>0.63675cm</Height>
+        <Width>19.97078cm</Width>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Line Name="Line1">
+        <Top>0.84237cm</Top>
+        <Left>0.15558cm</Left>
+        <Height>0cm</Height>
+        <Width>19.84166cm</Width>
+        <ZIndex>1</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>5.30117cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.82076cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>4.81538cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>4.72728cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.17708cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Folio</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <TopBorder>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <RightBorder>
+                          <Style>None</Style>
+                        </RightBorder>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox14">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Fecha</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox14</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <TopBorder>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <RightBorder>
+                          <Style>None</Style>
+                        </RightBorder>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox24">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Original</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox24</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Saldo</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <rd:Selected>true</rd:Selected>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Folio">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Folio.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Folio</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Fecha1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Fecha.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>dd/MM/yyyy</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Fecha1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Original">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=IIf(Fields!Original.Value = 0, "", Fields!Original.Value)</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>'$'#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Original</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                        <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Saldo1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=IIf(Fields!Saldo.Value = 0, "", Fields!Saldo.Value)</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>'$'#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Saldo1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                        <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Abreviatura">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Abreviatura.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Abreviatura</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Detalles" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>1.00112cm</Top>
+        <Left>0.12912cm</Left>
+        <Height>1.2cm</Height>
+        <Width>19.84166cm</Width>
+        <ZIndex>2</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+    </ReportItems>
+    <Height>0.99158in</Height>
+    <Style />
+  </Body>
+  <Width>7.93268in</Width>
+  <Page>
+    <PageHeader>
+      <Height>2.25008cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox1">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!NombreEmpresa.Value</Value>
+                  <Style>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox1</rd:DefaultName>
+          <Top>0.18521cm</Top>
+          <Left>3.21468cm</Left>
+          <Height>0.6cm</Height>
+          <Width>14.02238cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox2">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>REPORTE ANTICIPO DEL CLIENTE HISTORIAL</Value>
+                  <Style>
+                    <FontSize>10.5pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox2</rd:DefaultName>
+          <Top>1.10271cm</Top>
+          <Left>3.21468cm</Left>
+          <Height>0.52945cm</Height>
+          <Width>14.02238cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Image Name="Logo">
+          <Source>External</Source>
+          <Value>=Parameters!LogoPath.Value</Value>
+          <Sizing>FitProportional</Sizing>
+          <Left>0.06614cm</Left>
+          <Height>2.22362cm</Height>
+          <Width>2.33715cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </Image>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageHeader>
+    <PageFooter>
+      <Height>0.76376cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox7">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
+                  <Style>
+                    <FontStyle>Italic</FontStyle>
+                    <FontSize>8pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox3</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>17.90491cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>2.09233cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox8">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Usuario:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox8</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>0.06614cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>1.60042cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox9">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!UsuarioImprimio.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox9</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>1.61047cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>5.14936cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox10">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Impresión:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox10</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>8.20622cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>2.92333cm</Width>
+          <ZIndex>3</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox11">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Globals!ExecutionTime</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <Format>g</Format>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox11</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>11.11544cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>4.32745cm</Width>
+          <ZIndex>4</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageFooter>
+    <PageHeight>29.7cm</PageHeight>
+    <PageWidth>21cm</PageWidth>
+    <LeftMargin>0.25cm</LeftMargin>
+    <RightMargin>0.25cm</RightMargin>
+    <TopMargin>1cm</TopMargin>
+    <BottomMargin>1cm</BottomMargin>
+    <ColumnSpacing>0.13cm</ColumnSpacing>
+    <Style />
+  </Page>
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DataSet">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Folio">
+          <DataField>Folio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.Date</rd:TypeName>
+        </Field>
+        <Field Name="SubTotal">
+          <DataField>SubTotal</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="IVA">
+          <DataField>IVA</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Original">
+          <DataField>Original</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Saldo">
+          <DataField>Saldo</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveVenta">
+          <DataField>CveVenta</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportParameters>
+    <ReportParameter Name="NombreEmpresa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaInicio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaFin">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="LogoPath">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="AgrupadoPor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Filtros">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <Language>es-MX</Language>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
+</Report>

Empresas/Grales/Formatos/RepProveedoresNCxAplicar.rdlc

@@ -0,0 +1,867 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+  <Body>
+    <ReportItems>
+      <Textbox Name="Textbox12">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!AgrupadoPor.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox9</rd:DefaultName>
+        <Top>0.0441cm</Top>
+        <Height>0.63675cm</Height>
+        <Width>19.97078cm</Width>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Line Name="Line1">
+        <Top>0.84237cm</Top>
+        <Left>0.15558cm</Left>
+        <Height>0cm</Height>
+        <Width>19.84166cm</Width>
+        <ZIndex>1</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>5.2227cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.89002cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>4.04001cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>4.18893cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.5cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>NC/Anticipo</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <TopBorder>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <RightBorder>
+                          <Style>None</Style>
+                        </RightBorder>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Fecha</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox17">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Original</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox17</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox19">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Saldo</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox19</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox21">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox21</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SerieFolio">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=IIf(Fields!SerieFolio.Value = "", Fields!TipoDocto.Value, Fields!SerieFolio.Value)</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SerieFolio</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Fecha">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Fecha.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>d</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Fecha</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Original">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Original.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>'$'#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Original</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                        <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Saldo">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Saldo.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>'$'#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Saldo</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                        <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                      </Style>
+                    </Textbox>
+                    <rd:Selected>true</rd:Selected>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Abreviatura">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Abreviatura.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Abreviatura</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), IIf(Fields!SerieFolio.Value = "" And (Fields!TipoDocto.Value = "Egsc" Or Fields!TipoDocto.Value = "DEV" Or Fields!TipoDocto.Value = "Ant" Or Fields!TipoDocto.Value = "NC"), "#9cacc1","Silver"),"White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Detalles" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>1.00112cm</Top>
+        <Left>0.12912cm</Left>
+        <Height>1.2cm</Height>
+        <Width>19.84166cm</Width>
+        <ZIndex>2</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+    </ReportItems>
+    <Height>0.99158in</Height>
+    <Style />
+  </Body>
+  <Width>7.87293in</Width>
+  <Page>
+    <PageHeader>
+      <Height>2.25008cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox1">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!NombreEmpresa.Value</Value>
+                  <Style>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox1</rd:DefaultName>
+          <Top>0.18521cm</Top>
+          <Left>3.21468cm</Left>
+          <Height>0.6cm</Height>
+          <Width>14.02238cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox2">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>NOTAS DE CRÉDITO POR APLICAR / ANTICIPOS POR COMPROBAR</Value>
+                  <Style>
+                    <FontSize>10.5pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox2</rd:DefaultName>
+          <Top>1.10271cm</Top>
+          <Left>3.21468cm</Left>
+          <Height>0.52945cm</Height>
+          <Width>14.02238cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Image Name="Logo">
+          <Source>External</Source>
+          <Value>=Parameters!LogoPath.Value</Value>
+          <Sizing>FitProportional</Sizing>
+          <Left>0.06614cm</Left>
+          <Height>2.22362cm</Height>
+          <Width>2.33715cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </Image>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageHeader>
+    <PageFooter>
+      <Height>0.76376cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox7">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
+                  <Style>
+                    <FontStyle>Italic</FontStyle>
+                    <FontSize>8pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox3</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>17.90491cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>2.09233cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox8">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Usuario:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox8</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>0.06614cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>1.60042cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox9">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!UsuarioImprimio.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox9</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>1.61047cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>5.14936cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox10">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Impresión:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox10</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>8.20622cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>2.92333cm</Width>
+          <ZIndex>3</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox11">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Globals!ExecutionTime</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <Format>g</Format>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox11</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>11.11544cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>4.32745cm</Width>
+          <ZIndex>4</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageFooter>
+    <PageHeight>29.7cm</PageHeight>
+    <PageWidth>21cm</PageWidth>
+    <LeftMargin>0.25cm</LeftMargin>
+    <RightMargin>0.25cm</RightMargin>
+    <TopMargin>1cm</TopMargin>
+    <BottomMargin>1cm</BottomMargin>
+    <ColumnSpacing>0.13cm</ColumnSpacing>
+    <Style />
+  </Page>
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DataSet">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Factura">
+          <DataField>Factura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.Date</rd:TypeName>
+        </Field>
+        <Field Name="Original">
+          <DataField>Original</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Saldo">
+          <DataField>Saldo</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveCompra">
+          <DataField>CveCompra</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TipoDocto">
+          <DataField>TipoDocto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportParameters>
+    <ReportParameter Name="NombreEmpresa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaInicio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaFin">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="LogoPath">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="AgrupadoPor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Filtros">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <Language>es-MX</Language>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
+</Report>

Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc

@@ -0,0 +1,974 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+  <Body>
+    <ReportItems>
+      <Textbox Name="Textbox12">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!AgrupadoPor.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox9</rd:DefaultName>
+        <Top>0.0441cm</Top>
+        <Height>0.63675cm</Height>
+        <Width>19.97078cm</Width>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Line Name="Line1">
+        <Top>0.84237cm</Top>
+        <Left>0.15558cm</Left>
+        <Height>0cm</Height>
+        <Width>19.84166cm</Width>
+        <ZIndex>1</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>4.42895cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.2021cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.36938cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.89562cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.34667cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.5cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Factura</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <TopBorder>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <RightBorder>
+                          <Style>None</Style>
+                        </RightBorder>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Fecha Compra</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox13">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Fecha Ven.</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox13</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox17">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Movto.</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox17</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox19">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Abonado</Value>
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox19</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox21">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox21</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>Silver</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Factura">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=  IIF( IsNothing(Fields!CveCompra.Value)      , (Fields!Banco.Value &amp; " - " &amp;  Fields!NumCuenta.Value),Fields!SerieFolio.Value)</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Factura</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Fecha">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Fecha.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>d</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Fecha</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="FechaVencimiento">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=  IIF( IsNothing(Fields!CveCompra.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value)</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>d</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>FechaVencimiento</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="FolioCobro">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=  IIF( IsNothing(Fields!CveCompra.Value), Fields!FolioPago.Value,"")</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>FolioCobro</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Abonado">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Abonado.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <Format>'$'#,0.00;('$'#,0.00)</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Abonado</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                        <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Abreviatura">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Abreviatura.Value</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Abreviatura</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>=  IIF( IsNothing(Fields!CveCompra.Value), "Silver","White")</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Detalles" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>1.00112cm</Top>
+        <Left>0.12912cm</Left>
+        <Height>1.2cm</Height>
+        <Width>19.74272cm</Width>
+        <ZIndex>2</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+    </ReportItems>
+    <Height>0.99158in</Height>
+    <Style />
+  </Body>
+  <Width>7.87293in</Width>
+  <Page>
+    <PageHeader>
+      <Height>2.25008cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox1">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!NombreEmpresa.Value</Value>
+                  <Style>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox1</rd:DefaultName>
+          <Top>0.18521cm</Top>
+          <Left>3.21468cm</Left>
+          <Height>0.6cm</Height>
+          <Width>14.02238cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox2">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>REPORTE PAGOS PROVEEDORES</Value>
+                  <Style>
+                    <FontSize>10.5pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox2</rd:DefaultName>
+          <Top>1.10271cm</Top>
+          <Left>3.21468cm</Left>
+          <Height>0.52945cm</Height>
+          <Width>14.02238cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Image Name="Logo">
+          <Source>External</Source>
+          <Value>=Parameters!LogoPath.Value</Value>
+          <Sizing>FitProportional</Sizing>
+          <Left>0.06614cm</Left>
+          <Height>2.22362cm</Height>
+          <Width>2.33715cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </Image>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageHeader>
+    <PageFooter>
+      <Height>0.76376cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox7">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
+                  <Style>
+                    <FontStyle>Italic</FontStyle>
+                    <FontSize>8pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox3</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>17.90491cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>2.09233cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox8">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Usuario:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox8</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>0.06614cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>1.60042cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox9">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!UsuarioImprimio.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox9</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>1.61047cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>5.14936cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox10">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Impresión:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox10</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>8.20622cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>2.92333cm</Width>
+          <ZIndex>3</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox11">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Globals!ExecutionTime</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <Format>g</Format>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox11</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>11.11544cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>4.32745cm</Width>
+          <ZIndex>4</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageFooter>
+    <PageHeight>29.7cm</PageHeight>
+    <PageWidth>21cm</PageWidth>
+    <LeftMargin>0.25cm</LeftMargin>
+    <RightMargin>0.25cm</RightMargin>
+    <TopMargin>1cm</TopMargin>
+    <BottomMargin>1cm</BottomMargin>
+    <ColumnSpacing>0.13cm</ColumnSpacing>
+    <Style />
+  </Page>
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DataSet">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Factura">
+          <DataField>Factura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.Date</rd:TypeName>
+        </Field>
+        <Field Name="FechaVencimiento">
+          <DataField>FechaVencimiento</DataField>
+          <rd:TypeName>System.Date</rd:TypeName>
+        </Field>
+        <Field Name="FechaDocumento">
+          <DataField>FechaDocumento</DataField>
+          <rd:TypeName>System.Date</rd:TypeName>
+        </Field>
+        <Field Name="FolioPago">
+          <DataField>FolioPago</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Genero">
+          <DataField>Genero</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Abonado">
+          <DataField>Abonado</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="ImporteIE">
+          <DataField>ImporteIE</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TipoPeriodo">
+          <DataField>TipoPeriodo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="MonedaVenta">
+          <DataField>MonedaVenta</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveCompra">
+          <DataField>CveCompra</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveIE">
+          <DataField>CveIE</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="NumCuenta">
+          <DataField>NumCuenta</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Banco">
+          <DataField>Banco</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportParameters>
+    <ReportParameter Name="NombreEmpresa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaInicio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaFin">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="LogoPath">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="AgrupadoPor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Filtros">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <Language>es-MX</Language>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
+</Report>

GPS/EntradasSalidasGR.aspx

@@ -108,14 +108,14 @@
                                         <div runat="server" id="dvFechas">
                                             <ul class="list-inline" style="font-size: 12px; margin-top: 15px; margin-left: 0px; margin-bottom: 20px;">
                                                 <li>Fecha Inicio:
-                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm">
                                                     <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                     <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator4" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                                 </li>
                                                 <li>Fecha Fin:
-                                            <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
+                                            <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy">
                                                 <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator5" Width="350px"></ajax:ValidatorCalloutExtender>

GPS/GeoReferencias.aspx

@@ -740,7 +740,7 @@
                     var r = polygon.getPath();
                     var s = "";
                     r.forEach(function (xy, i) { s += xy.lng() + ' ' + xy.lat() + ',' });
-                    s += r.j[0].lng() + ' ' + r.j[0].lat();
+                    //s += r.j[0].lng() + ' ' + r.j[0].lat();
                     $("#GeoCerca").val(s);
 
                     $('#divAgregarTipo').modal({ backdrop: 'static', keyboard: false });

GPS/Rastreo.aspx

@@ -398,14 +398,14 @@
                                         <div runat="server" id="dvFechas">
                                             <ul class="list-inline" style="font-size: 12px; margin-top: 15px; margin-left: 0px; margin-bottom: 20px;">
                                                 <li>Fecha Inicio:
-                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm">
                                                     <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                     <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator4" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                                 </li>
                                                 <li>Fecha Fin:
-                                            <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
+                                            <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy">
                                                 <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator5" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -474,7 +474,7 @@
                                         <div class="row" id="dvMinutos" runat="server" visible="false" style="margin-top: 10px; margin-bottom: 20px;">
                                             <div class="col-md-3">Minutos Tiempo Muerto:</div>
                                             <div class="col-md-5">
-                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm">
                                                     <asp:TextBox ID="TxtMinutos" runat="server" CssClass="form-control input-sm" Text="5" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                     <asp:RequiredFieldValidator ID="RFVMinutos" runat="server" ControlToValidate="TxtMinutos" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Minutos''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCOProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVMinutos" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -680,7 +680,7 @@
                                 </div>
                                 <ul class="list-inline" style="font-size: 12px; margin-top: 15px; margin-left: 0px;">
                                     <li>Fecha I.:
-                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
+                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy">
                                     <asp:TextBox ID="TxtFechaIG" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
                                 </div>
                                         <%--    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaIG" Mask="99/99/9999 99:99" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
@@ -688,7 +688,7 @@
                                         <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                         --%></li>
                                     <li>Fecha F.:
-                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
+                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy">
                                     <asp:TextBox ID="TxtFechaFG" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
                                 </div>
                                         <%--   <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaFG" Mask="99/99/9999 99:99" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
@@ -2360,7 +2360,7 @@
                 var r = polygon.getPath();
                 var s = "";
                 r.forEach(function (xy, i) { s += xy.lng() + ' ' + xy.lat() + ',' })
-                s += r.j[0].lng() + ' ' + r.j[0].lat();
+                //s += r.j[0].lng() + ' ' + r.j[0].lat();
                 $("#GeoCerca").val(s);
 
                 $("#divAgregarGeoreferencia").modal();

GPS/RepPuntosDeInteres.aspx

@@ -43,14 +43,14 @@
                     <div class="modal-body">
                         <ul class="list-inline" style="font-size: 12px; margin-top: 15px; margin-left: 0px; margin-bottom: 20px;">
                             <li>Fecha Inicio:
-                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" >
                                                     <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                     <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator4" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                             </li>
                             <li>Fecha Fin:
-                                            <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
+                                            <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy">
                                                 <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator5" Width="350px"></ajax:ValidatorCalloutExtender>

General/SaldosIniciales.aspx.vb

@@ -209,44 +209,72 @@ Partial Class General_SaldosIniciales
                 End If
 
 
-                'ElseIf RblFormato.SelectedValue = "5" Then
+            ElseIf RblFormato.SelectedValue = "5" Then
 
-                '    If Not dt.Columns(0).ColumnName = "Codigo" Then
-                '        Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
+                If Not dt.Columns(0).ColumnName = "Codigo" Then
+                    Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
 
-                '    If Not dt.Columns(1).ColumnName = "Descripcion" Then
-                '        Alert("El nombre de la segunda columna debe ser 'Descripcion'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
+                If Not dt.Columns(1).ColumnName = "Descripcion" Then
+                    Alert("El nombre de la segunda columna debe ser 'Descripcion'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
 
-                '    If Not dt.Columns(2).ColumnName = "Marca" Then
-                '        Alert("El nombre de la tercera columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
+                If Not dt.Columns(2).ColumnName = "Tipo" Then
+                    Alert("El nombre de la terera columna debe ser 'Tipo'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
 
-                '    If Not dt.Columns(3).ColumnName = "Código Barras" Then
-                '        Alert("El nombre de la cuarta columna debe ser 'Código de Barras'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
+                If Not dt.Columns(3).ColumnName = "Código Barras" Then
+                    Alert("El nombre de la cuarta columna debe ser 'Código Barras'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
 
-                '    If Not dt.Columns(4).ColumnName = "Unidad Medida" Then
-                '        Alert("El nombre de la quinta columna debe ser 'Unidad de Medida'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
-                '    If Not dt.Columns(5).ColumnName = "Producto/Servicio" Then
-                '        Alert("El nombre de la sexta columna debe ser 'Producto/Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
-                '    If Not dt.Columns(6).ColumnName = "Clasificación" Then
-                '        Alert("El nombre de la séptima columna debe ser 'Clasificacion'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
-                '    If Not dt.Columns(7).ColumnName = "Precio" Then
-                '        Alert("El nombre de la octava columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
+                If Not dt.Columns(4).ColumnName = "Unidad Medida" Then
+                    Alert("El nombre de la quinta columna debe ser 'Unidad Medida'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(5).ColumnName = "Clasificacion" Then
+                    Alert("El nombre de la sexta columna debe ser 'Clasificacion'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(6).ColumnName = "Marca" Then
+                    Alert("El nombre de la séptima columna debe ser 'Marca'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(7).ColumnName = "AplicaSerie" Then
+                    Alert("El nombre de la octava columna debe ser 'AplicaSerie'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(8).ColumnName = "Precio" Then
+                    Alert("El nombre de la novena columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(9).ColumnName = "IEPS" Then
+                    Alert("El nombre de la décima columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(10).ColumnName = "Tamaño" Then
+                    Alert("El nombre de la onceava columna debe ser 'Tamaño'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(11).ColumnName = "Código SAT" Then
+                    Alert("El nombre de la doceava columna debe ser 'Código SAT'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(12).ColumnName = "Litraje" Then
+                    Alert("El nombre de la treceava columna debe ser 'Litraje'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
 
             ElseIf RblFormato.SelectedValue = "6" Then
                 If Not dt.Columns(0).ColumnName = "Código" Then
@@ -530,13 +558,17 @@ Partial Class General_SaldosIniciales
                     Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim
                     Dim Clasificacion As String = Row("Clasificacion").ToString.Trim
                     Dim Marca As String = Row("Marca").ToString.Trim
+                    'Dim AplicaSerie As String = Row("AplicaSerie").ToString.Trim
+                    Dim Precio As Double = Row("Precio").ToString.ToDouble
+                    Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
+                    Dim Tamaño As String = Row("Tamaño").ToString.Trim
+                    Dim SATClavePS As String = Row("Código SAT").ToString.Trim
+                    Dim Litraje As Double = Row("Litraje").ToString.ToDouble
                     Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "")
                     Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "")
-                    Dim SATClavePS As String = Row("Código SAT").ToString.Trim
                     Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "")
                     Dim Linea As String = If(Row.Table.Columns.Contains("Linea"), Row("Linea").ToString.Trim, "")
                     Dim Modelo As String = If(Row.Table.Columns.Contains("Modelo"), Row("Modelo").ToString.Trim, "")
-                    Dim Tamaño As String = Row("Tamaño").ToString.Trim
 
                     Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero
 
@@ -550,14 +582,14 @@ Partial Class General_SaldosIniciales
                         If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1",
                                                       GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString.ToEntero, UsuarioActual.CveUsuario,
                                                       UsuarioActual.CveEmpresa) Then
-                            If ObjClas.GetClasificaciones() Then Application("GlobalDTClasificaciones") = ObjClas.DtResultados.AsEnumerable()
+                            If ObjClas.GetClasificaciones() Then Application("GlobalDTClasificaciones") = ObjClas.DtResultados
                             CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
                         End If
                     End If
 
                     If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then
                         If ObjUM.AddUnidadMedida(UnidadMedida, "", "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).ToEntero > 0 Then
-                            If ObjUM.GetUnidadesMedida() Then Application("GlobalDTUnidadesMedida") = ObjUM.DtResultados.AsEnumerable()
+                            If ObjUM.GetUnidadesMedida() Then Application("GlobalDTUnidadesMedida") = ObjUM.DtResultados
                             CveUnidadMedida = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero
                         End If
                     End If
@@ -623,9 +655,9 @@ Partial Class General_SaldosIniciales
                     If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
 
                     If CvePS > 0 Then
-                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
+                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
                                               CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño,
-                                              CveModelo:=CveModelo) Then
+                                              CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS) Then
                             'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
                             '                  CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then
                             ErrorPS = True
@@ -635,9 +667,9 @@ Partial Class General_SaldosIniciales
                             Contador += 1
                         End If
                     Else
-                        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, "", CodigoBarras, Descripcion, Precio, 0, 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) <= 0 Then
+                                       CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS) <= 0 Then
                             '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
                             ErrorPS = True

Inventarios/RecepcionEntrega.aspx.vb

@@ -1894,7 +1894,7 @@ Partial Class Inventarios_RecepcionEntrega
             '' TERMINA: APARTADOS
 
             ' COMIENZA: GARANTIAS
-            If TipoDocto.Contiene("Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
+            If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
 
                 Dim CveAlmacenGarantia As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
                 Dim DtGarantias As DataTable = Nothing

Inventarios/TraspasoAlmacen.aspx.vb

@@ -522,7 +522,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim Retorno = True
 
         Dim Inv As New ClsInventarios
-        Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), SerieLote:=SerieLote, Lote:=Lote, Batch:=Batch)
+        Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), SerieLote:=SerieLote, Lote:=Lote, Batch:=Batch, PendientePorSurtir:=1)
         Inv.Dispose()
 
         If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUnidadMedida} {If(SerieLote <> "-1", $" AND SerieLote = '{SerieLote}'", "")}") < 0 Then
@@ -680,7 +680,7 @@ Partial Class Inventarios_TraspasoAlmacen
         If Not CargadoDeMov Then
 
             For Each dr As DataRow In DtMovimientos.Rows
-                Existencia = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), SerieLote:=If(dr("SerieLote").ToString = "", "-1", dr("SerieLote").ToString))
+                Existencia = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), SerieLote:=If(dr("SerieLote").ToString = "", "-1", dr("SerieLote").ToString), PendientePorSurtir:=1)
                 Existencia -= DtMovimientos.SUM("Cantidad", $"CvePS = {dr("CvePS").ToString.ToEntero} AND CveUM = {dr("CveUM").ToString.ToEntero} {If(dr("SerieLote").ToString <> "-1", $" AND SerieLote = '{dr("SerieLote").ToString}'", "")}")
                 'DtMovimientos.SUM("Cantidad", String.Format("CvePS = {0}", dr("CvePS").ToString.ToEntero))
 
@@ -697,7 +697,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Next
         Else
             For Each gvr As GridViewRow In GvDatos.Rows
-                Existencia = ObjInventario.GetExistenciasPS(gvr.DataKey("CvePS").ToString.ToEntero, gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), SerieLote:=If(gvr.DataKey("SerieLote").ToString = "", "-1", gvr.DataKey("SerieLote").ToString))
+                Existencia = ObjInventario.GetExistenciasPS(gvr.DataKey("CvePS").ToString.ToEntero, gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), SerieLote:=If(gvr.DataKey("SerieLote").ToString = "", "-1", gvr.DataKey("SerieLote").ToString), PendientePorSurtir:=1)
                 Existencia -= gvr.FCTextBox("TxtCantidad2").Text.ToEntero
                 If Existencia < 0 Then
                     ErrorExistencia = True

OS/Asignaciones.aspx

@@ -175,7 +175,7 @@
                                 </div>
                             </div>
                             <div class="portlet-body">
-                                <asp:GridView ID="GvNA" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Órdenes de Servicio No Asignadas" DataKeyNames="CveOSDetalle, CveOS,CveUsuarioAtendio,TipoEstatus,EstatusOrdenServicio"
+                                <asp:GridView ID="GvNA" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Órdenes de Servicio No Asignadas" DataKeyNames="CveOSDetalle, CveOS,CveUsuarioAtendio,TipoEstatus,EstatusOrdenServicio,CveSubProyecto"
                                     CssClass="table table-striped table-hover Widthall table-advance" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField HeaderText="">

OS/Asignaciones.aspx.vb

@@ -26,6 +26,15 @@ Partial Class OS_Asignaciones
             ViewState("DtOSSubProyectos") = value
         End Set
     End Property
+
+    Private Property DtTecnicosSubProyectos As DataTable
+        Get
+            Return CType(ViewState("DtTecnicosSubProyectos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtTecnicosSubProyectos") = value
+        End Set
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -163,6 +172,7 @@ Partial Class OS_Asignaciones
             dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
             TecnicosResultado.Merge(dtAuxiliar)
         Next
+        DtTecnicosSubProyectos = TecnicosResultado
         DdlTecnico.DataSource = TecnicosResultado
         DdlTecnico.DataBind()
         DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -184,10 +194,21 @@ Partial Class OS_Asignaciones
 
                 If row.FCCheckBox("ChbxAsignar").Checked Then
                     time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", row.FCTextBox("FechaOS").Text, picker.Hour, picker.Minute, picker.AmPm))
-                    If Not ObjOS.UpdateOrdenesServiciosAsignadas(row.DataKey("CveOSDetalle").ToEntero, DdlTecnico.SelectedValue.ToEntero, row.FCTextBox("FechaOS").Text.ToDate, time, UsuarioActual.CveEmpresa) Then
-                        TieneError = True
+
+                    If ObjOS.GetSubProyectosEstatusInicial(DdlTecnico.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
+                        Dim subProyectoDelTecnico As DataTable
+                        subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", row.DataKey("CveSubProyecto")))
+                        If subProyectoDelTecnico.Rows.Count > 0 Then
+                            If Not ObjOS.UpdateOrdenesServiciosAsignadas(row.DataKey("CveOSDetalle").ToEntero, DdlTecnico.SelectedValue.ToEntero, row.FCTextBox("FechaOS").Text.ToDate, time, UsuarioActual.CveEmpresa) Then
+                                TieneError = True
+                            End If
+                        Else
+                            Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia)
+                            TieneError = True
+                        End If
                     End If
 
+
                     If Not TieneError Then
                         If Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusOS.ToEntero, UsuarioActual.CveUsuario, row.DataKey("CveOS").ToEntero) Then
                             TieneError = True

OS/OrdenesServicios.aspx.vb

@@ -238,6 +238,15 @@ Partial Class OS_OrdenesServicios
             ViewState("MensajeAlert") = value
         End Set
     End Property
+
+    Private Property CveTecnico As Integer
+        Get
+            Return ViewState("CveTecnico").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveTecnico") = value
+        End Set
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -270,18 +279,6 @@ Partial Class OS_OrdenesServicios
             CreaDtMaterialesDetalle()
             CreaDtSolicitarMateriales()
             CveSub = -1
-            'Carga estatus
-            Dim ObjEstatusPermisos As New ClsOS
-            If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-                EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados
-                Dim PermisoEstatus As New DataTable
-                PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
-                If PermisoEstatus.Rows.Count = 0 Then
-                    UpGuardar.Visible = False
-                End If
-            End If
-            ObjEstatusPermisos.Dispose()
-            CargaEstatusOS(2)
 
             'Carga cliente
             If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
@@ -315,6 +312,8 @@ Partial Class OS_OrdenesServicios
 
             'Carga OS
             If CveOS > 0 Then
+
+                CargaEstatusOS()
                 CargaDatos()
                 'PermisosSegunEstatus()
                 CargaDetalles()
@@ -454,33 +453,45 @@ Partial Class OS_OrdenesServicios
                 TxtFechaRecibido.Text = ObjOS.FechaRecepcion.ToString
                 CveFolio = ObjOS.Folio
                 LblFolio.Text = ObjOS.Folio.ToString
-                DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString
+
                 DdlSubProyecto.SelectedValueExist(ObjOS.CveSubProyecto)
                 DdlTipoOrdenOS.SelectedValueExist(ObjOS.CveOSTipo)
                 DdlSucursalCliente.SelectedValueExist(ObjOS.CveClienteSucursal)
 
                 TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero
                 SeFacturara = GlobalDTTipoOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SeFacturara", String.Format("CveOrdenServicioTipo = {0}", ObjOS.CveOSTipo))
-
-                If TipoEstatus = 2 Then
-                    LnkTecnico.Visible = True
+                CveTecnico = ObjOS.CveUsuarioAtendio
+                CargarEstatusDelUsuario()
+                Dim validacionTieneEstatus As Integer = EstatusOSDelUsuario.FiltraParametros(String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio)).Rows.Count
+                If validacionTieneEstatus > 0 Then
+                    DdlEstatusOS.Items.Clear()
+                    DdlEstatusOS.DataSource = EstatusOSDelUsuario
+                    DdlEstatusOS.DataBind()
+                Else
+                    CargaEstatusOS()
+                    DdlEstatusOS.Enabled = False
                 End If
+                DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString
 
-                If TipoEstatus = 3 Then
-                    DisableAll()
+                'If TipoEstatus = 2 Then
+                '    LnkTecnico.Visible = True
+                'End If
 
-                    If SeFacturara = "True" Then
-                        HplFacturar.Visible = True
-                        If ObjOS.CveCotizacion > 0 Then
-                            HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion)
-                        Else
-                            HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS)
-                        End If
-                    End If
+                'If TipoEstatus = 3 Then
+                '    DisableAll()
 
-                ElseIf TipoEstatus = 4 Then
-                    DisableAll()
-                End If
+                '    If SeFacturara = "True" Then
+                '        HplFacturar.Visible = True
+                '        If ObjOS.CveCotizacion > 0 Then
+                '            HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion)
+                '        Else
+                '            HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS)
+                '        End If
+                '    End If
+
+                'ElseIf TipoEstatus = 4 Then
+                '    DisableAll()
+                'End If
 
                 DivCliente.Attributes.Add("class", "col-md-8")
                 DivFolio.Visible = True
@@ -662,11 +673,11 @@ Partial Class OS_OrdenesServicios
             RegistraScript("OrdenarGVMateriales();")
         End If
     End Sub
-    Private Sub CargaEstatusOS(ValorSeleccionado As Integer)
+    Private Sub CargaEstatusOS()
         DdlEstatusOS.Items.Clear()
-        DdlEstatusOS.DataSource = EstatusOSDelUsuario
+        DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa)
         DdlEstatusOS.DataBind()
-        DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC")
+        'DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC")
     End Sub
     Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList)
         Objeto.Items.Clear()
@@ -876,6 +887,19 @@ Partial Class OS_OrdenesServicios
         GvPS.DataSource = TmpDT
         GvPS.DataBind()
     End Sub
+
+    Private Sub CargarEstatusDelUsuario()
+        Dim ObjEstatusPermisos As New ClsOS
+        If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
+            EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados
+            Dim PermisoEstatus As New DataTable
+            PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1")
+            If PermisoEstatus.Rows.Count = 0 Then
+                UpGuardar.Visible = False
+            End If
+        End If
+        ObjEstatusPermisos.Dispose()
+    End Sub
 #End Region
 
 #Region "BUSCAR CLIENTE  "
@@ -1031,83 +1055,87 @@ Partial Class OS_OrdenesServicios
 
             End If
         Else
+            If CveTecnico = UsuarioActual.CveUsuario Then
+                If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
+                    For Each Row As DataRow In TmpDT.Rows
+                        If Not Errores Then
+                            Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
+                            Dim CveOSDetalle As Integer = Row("CveOSDetalle").ToString.ToEntero
+                            Dim Observaciones As String = Row("Observaciones").ToString
+                            Dim SeFacturara As Boolean = CBool(Row("SeFacturara").ToString)
+                            Dim Estatus As Boolean = CBool(Row("Estatus").ToString)
+                            Dim SeSuperviso As Boolean = CBool(Row("SeSuperviso").ToString)
+                            Dim CveCuentaEquipo As Integer = Row("CveCuentaEquipo").ToString.ToEntero
+                            Dim Especificaciones As String = Row("Especificaciones").ToString
+                            Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString
+                            Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
+                            Dim Archivo As New System.IO.FileInfo(Row("Archivo").ToString)
+                            Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1)
+                            Dim FechaEntrega As String = If(Entregar = True, Now.ToString("dd/MM/yyy"), "-1")
+                            Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
+                            CveConsecutivo = Consecutivo
 
-            If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
-                For Each Row As DataRow In TmpDT.Rows
-                    If Not Errores Then
-                        Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
-                        Dim CveOSDetalle As Integer = Row("CveOSDetalle").ToString.ToEntero
-                        Dim Observaciones As String = Row("Observaciones").ToString
-                        Dim SeFacturara As Boolean = CBool(Row("SeFacturara").ToString)
-                        Dim Estatus As Boolean = CBool(Row("Estatus").ToString)
-                        Dim SeSuperviso As Boolean = CBool(Row("SeSuperviso").ToString)
-                        Dim CveCuentaEquipo As Integer = Row("CveCuentaEquipo").ToString.ToEntero
-                        Dim Especificaciones As String = Row("Especificaciones").ToString
-                        Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString
-                        Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
-                        Dim Archivo As New System.IO.FileInfo(Row("Archivo").ToString)
-                        Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1)
-                        Dim FechaEntrega As String = If(Entregar = True, Now.ToString("dd/MM/yyy"), "-1")
-                        Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
-                        CveConsecutivo = Consecutivo
-
-                        If CveOSDetalle > 0 Then
-                            If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalle(CvePS, Cantidad, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, ComentarioTecnico, CveCuentaEquipo, Archivo.Name, "-1", FechaEntrega, CveOSDetalle, CveOS) Then
-                                Errores = True
-                            End If
-                        Else
-                            CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=Archivo.Name)
-                            If Not CveOSDetalle > 0 Then Errores = True
-
-                        End If
-
-                        If Archivo.Name <> "-1" Then
-                            'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext
-                            Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension)))
-
-                            If ArchivoFinal.Exists() Then
-                                ArchivoFinal.Delete()
-                            End If
-
-                            'Mover el archivo de los temporales a OS
-                            System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name)
-
-                            If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalleArchivo(ArchivoFinal.Name, ObjOrdenServicio.CveOSDetalle) Then
-                                Errores = True
-                            End If
-                        End If
-
-                        If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then
-
-                            For Each RowE As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows
-                                Dim CveCaracteristicaValor As Integer = RowE("CveCaracteristicaValor").ToString.ToEntero
-                                Dim CveCaracteristica As Integer = RowE("CveCaracteristica").ToString.ToEntero
-                                Dim CveOpcion As Integer = RowE("CveOpcion").ToString.ToEntero
-                                Dim Valor As String = RowE("Valor").ToString
-
-                                If Not ObjGenerales.AddUpdateCaracteristicasValores(CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario, CveCaracteristicaValor:=CveCaracteristicaValor, CveOSDetalle:=CveOSDetalle) Then
+                            If CveOSDetalle > 0 Then
+                                If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalle(CvePS, Cantidad, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, ComentarioTecnico, CveCuentaEquipo, Archivo.Name, "-1", FechaEntrega, CveOSDetalle, CveOS) Then
                                     Errores = True
                                 End If
-                            Next
-                        End If
+                            Else
+                                CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=Archivo.Name)
+                                If Not CveOSDetalle > 0 Then Errores = True
 
-                        If TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveOSDetalle = {0}", CveOSDetalle)).Rows.Count > 0 Then
-                            For Each RowM As DataRow In TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveOSDetalle = {0}", CveOSDetalle)).Rows
-                                Dim CveMaterial As Integer = RowM("CveMaterial").ToString.ToEntero
+                            End If
 
-                                Dim CveClasificacion As Integer = RowM("CveClasificacion").ToString.ToEntero
-                                Dim CvePSMaterial As Integer = RowM("CvePS").ToString.ToEntero
-                                Dim CveUnidadMedidaM As Integer = RowM("CveUM").ToString.ToEntero
-                                Dim CantidadMaterial As Integer = RowM("Cantidad").ToString.ToEntero
+                            If Archivo.Name <> "-1" Then
+                                'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext
+                                Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension)))
 
-                                If Not ObjOrdenServicio.AddUpdateDetalleMateriales(CveMaterial, CveOSDetalle, CantidadMaterial, CveUnidadMedidaM, CveClasificacion, CvePSMaterial, SeFacturara) Then
+                                If ArchivoFinal.Exists() Then
+                                    ArchivoFinal.Delete()
+                                End If
+
+                                'Mover el archivo de los temporales a OS
+                                System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name)
+
+                                If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalleArchivo(ArchivoFinal.Name, ObjOrdenServicio.CveOSDetalle) Then
                                     Errores = True
                                 End If
-                            Next
+                            End If
+
+                            If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then
+
+                                For Each RowE As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows
+                                    Dim CveCaracteristicaValor As Integer = RowE("CveCaracteristicaValor").ToString.ToEntero
+                                    Dim CveCaracteristica As Integer = RowE("CveCaracteristica").ToString.ToEntero
+                                    Dim CveOpcion As Integer = RowE("CveOpcion").ToString.ToEntero
+                                    Dim Valor As String = RowE("Valor").ToString
+
+                                    If Not ObjGenerales.AddUpdateCaracteristicasValores(CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario, CveCaracteristicaValor:=CveCaracteristicaValor, CveOSDetalle:=CveOSDetalle) Then
+                                        Errores = True
+                                    End If
+                                Next
+                            End If
+
+                            If TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveOSDetalle = {0}", CveOSDetalle)).Rows.Count > 0 Then
+                                For Each RowM As DataRow In TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveOSDetalle = {0}", CveOSDetalle)).Rows
+                                    Dim CveMaterial As Integer = RowM("CveMaterial").ToString.ToEntero
+
+                                    Dim CveClasificacion As Integer = RowM("CveClasificacion").ToString.ToEntero
+                                    Dim CvePSMaterial As Integer = RowM("CvePS").ToString.ToEntero
+                                    Dim CveUnidadMedidaM As Integer = RowM("CveUM").ToString.ToEntero
+                                    Dim CantidadMaterial As Integer = RowM("Cantidad").ToString.ToEntero
+
+                                    If Not ObjOrdenServicio.AddUpdateDetalleMateriales(CveMaterial, CveOSDetalle, CantidadMaterial, CveUnidadMedidaM, CveClasificacion, CvePSMaterial, SeFacturara) Then
+                                        Errores = True
+                                    End If
+                                Next
+                            End If
                         End If
-                    End If
-                Next
+                    Next
+                Else
+                    Errores = True
+                End If
             Else
+                Alert("No tienes permisos para modificar esta Orden de Servicio", TipoMensaje.MsgAdvertencia)
                 Errores = True
             End If
 
@@ -1209,7 +1237,7 @@ Partial Class OS_OrdenesServicios
         TxtSolicito.Text = ""
         TxtFechaRecibido.Text = ""
         TxtDescripcion.Text = ""
-        CargaEstatusOS(2)
+        CargaEstatusOS()
 
         GvPS.DataSource = Nothing
         GvPS.DataBind()

Ventas/Clientes.aspx

@@ -1248,6 +1248,7 @@
                                             <i class="icon-pin font-green"></i>
                                             <span class="caption-subject bold uppercase">Cotizaciones</span>
                                         </div>
+
                                         <div class="actions">
                                             <div class="btn-group">
                                                 <input type="text" id="TxtBusquedaCotizacion" class="form-control input-sm"
@@ -1257,6 +1258,22 @@
                                                     style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                             </div>
                                         </div>
+
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpRepProveedoresPagosBancos" >
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkCotizacionesPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkCotizacionesExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkCotizacionesPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkCotizacionesExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
+
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="table-scrollable">
@@ -1741,6 +1758,16 @@
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel2">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkCxCActivasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkCxCActivasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkCxCActivasPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkCxCActivasExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
                                             </div>
                                         </div>
                                     </div>
@@ -1814,6 +1841,16 @@
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel6">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkHistorialCxCPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkHistorialCxCExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkHistorialCxCPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkHistorialCxCExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
                                             </div>
                                         </div>
                                     </div>
@@ -1898,6 +1935,16 @@
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel7">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkAnticipoClientePDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkAnticipoClienteExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkAnticipoClientePDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkAnticipoClienteExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
                                             </div>
                                         </div>
                                     </div>
@@ -1944,6 +1991,16 @@
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
+                                                <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel8">
+                                                    <ContentTemplate>
+                                                        <asp:LinkButton ID="LnkAnticipoHistorialPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                        <asp:LinkButton ID="LnkAnticipoHistorialExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                    </ContentTemplate>
+                                                    <Triggers>
+                                                        <asp:PostBackTrigger ControlID="LnkAnticipoHistorialPDF" />
+                                                        <asp:PostBackTrigger ControlID="LnkAnticipoHistorialExcel" />
+                                                    </Triggers>
+                                                </asp:UpdatePanel>
                                             </div>
                                         </div>
                                     </div>
@@ -2003,16 +2060,27 @@
                                     <span class="caption-subject bold uppercase">Cuentas Bancarias</span>
 
                                 </div>
-                                <div class="actions">
-                                    <div class="btn-group">
-                                    </div>
-                                </div>
 
                                 <div class="tools">
                                     <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                     <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                     <a href="javascript:;" class="remove" data-original-title="" title=""></a>
                                 </div>
+
+                                <div class="actions">
+                                    <div class="btn-group">
+                                        <asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel9">
+                                            <ContentTemplate>
+                                                <asp:LinkButton ID="LnkCuentasBancariasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                                <asp:LinkButton ID="LnkCuentasBancariasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i>  </asp:LinkButton>
+                                            </ContentTemplate>
+                                            <Triggers>
+                                                <asp:PostBackTrigger ControlID="LnkCuentasBancariasPDF" />
+                                                <asp:PostBackTrigger ControlID="LnkCuentasBancariasExcel" />
+                                            </Triggers>
+                                        </asp:UpdatePanel>
+                                    </div>
+                                </div>
                             </div>
                             <div class="portlet-body ">
                                 <asp:UpdatePanel ID="UpCuentasBancos" runat="server" UpdateMode="Conditional">
@@ -5496,16 +5564,15 @@
 
                                 <table border="0" cellpadding="0" class="Widthall grides" cellspacing="0">
                                     <tbody>
-                                        <tr class="Titulos">
+                                        <tr class="Titulos" style="font-size: 12px">
                                             <th style="width: 28px">#</th>
-                                            <th style="width: 200px">Marca</th>
-                                            <%--                                            <th width="73px">Precio<br />
-                                                General </th>--%>
-                                            <th width="73px">%</th>
-                                            <th width="73px">%</th>
-                                            <th width="73px">%</th>
-                                            <%--                                            <th width="73px">Precio<br />
-                                                Aplicado </th>--%>
+                                            <th style="width: 200px">MARCA</th>
+                                            <th width="73px">DCTO COM</th>
+                                            <th width="73px">DCTO ADIC 1</th>
+                                            <th width="73px">DCTO ADIC 2</th>
+                                            <th width="73px">PRONTO PAGO</th>
+                                            <th width="73px">PLAZO</th>
+
                                             <th style="width: 73px;"></th>
                                         </tr>
                                         <tr align="center">
@@ -5532,7 +5599,7 @@
                                             <td>
                                                 <asp:TextBox ID="txtPorcentaje" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgrega" Style="text-align: right"></asp:TextBox>
                                                 <ajax:FilteredTextBoxExtender ID="ftbe1" runat="server" TargetControlID="txtPorcentaje" FilterType="Custom, Numbers" ValidChars=".," />
-                                                <asp:RequiredFieldValidator ID="RFVPorcentaje" runat="server" ControlToValidate="txtPorcentaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
+                                                <asp:RequiredFieldValidator ID="RFVPorcentaje" runat="server" ControlToValidate="txtPorcentaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''DCTO COM''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCEPorcentaje" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentaje" Width="300px"></ajax:ValidatorCalloutExtender>
                                             </td>
                                             <td>
@@ -5547,9 +5614,20 @@
                                                 <%--                                                <asp:RequiredFieldValidator ID="RFVPorcentaje3" runat="server" ControlToValidate="txtPorcentaje3" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender6" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentaje3" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                             </td>
-                                            <%--                                            <td>
-                                                <asp:Label ID="LbPrecioA" Width="55px" MaxLength="15" runat="server" ClientIDMode="Static"></asp:Label>
-                                            </td>--%>
+
+                                            <td>
+                                                <asp:TextBox ID="txtProntoPago" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgrega" Style="text-align: right"></asp:TextBox>
+                                                <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender7" runat="server" TargetControlID="txtProntoPago" FilterType="Custom, Numbers" ValidChars=".," />
+                                                <%--                                                <asp:RequiredFieldValidator ID="RFVProntoPago" runat="server" ControlToValidate="txtProntoPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''PRONTO PAGO''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEProntoPago" runat="server" HighlightCssClass="vco" TargetControlID="RFVProntoPago" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                            </td>
+                                            <td>
+                                                <asp:TextBox ID="txtPlazo" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgrega" Style="text-align: right"></asp:TextBox>
+                                                <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender8" runat="server" TargetControlID="txtPlazo" FilterType="Custom, Numbers" />
+                                                <%--                                                <asp:RequiredFieldValidator ID="RFVPlazo" runat="server" ControlToValidate="txtPlazo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''PLAZO''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEPlazo" runat="server" HighlightCssClass="vco" TargetControlID="RFVPlazo" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                            </td>
+
                                             <td align="center">
                                                 <asp:LinkButton ID="LbAgregarMarca" runat="server" CssClass="btn btn-default" ValidationGroup="GprAgrega" Text="Agregar" />
                                             </td>
@@ -5576,7 +5654,7 @@
                                                     </ItemTemplate>
                                                     <ItemStyle Width="28px"></ItemStyle>
                                                 </asp:TemplateField>
-                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="Marca" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left" />
+                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="Marca" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" />
                                                 <%--                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioG" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />--%>
 
 
@@ -5616,8 +5694,30 @@
                                                     <FooterStyle HorizontalAlign="Right"></FooterStyle>
                                                 </asp:TemplateField>
 
+                                                <asp:TemplateField HeaderText="">
+                                                    <EditItemTemplate>
+                                                        <asp:TextBox ID="TxtProntoPagoP" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("ProntoPago", "{0:N2}")%>' Style="text-align: right"></asp:TextBox>
+                                                        <ajax:FilteredTextBoxExtender ID="ftbepp" runat="server" TargetControlID="TxtProntoPagoP" FilterType="Custom, Numbers" ValidChars=".," />
+                                                    </EditItemTemplate>
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="lblProntoPago" runat="server" Text='<%# Eval("ProntoPago", "{0:N2}")%>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                    <ItemStyle Width="73px" HorizontalAlign="Right"></ItemStyle>
+                                                    <FooterStyle HorizontalAlign="Right"></FooterStyle>
+                                                </asp:TemplateField>
 
-                                                <%--                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioA" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />--%>
+
+                                                <asp:TemplateField HeaderText="">
+                                                    <EditItemTemplate>
+                                                        <asp:TextBox ID="TxtPlazoP" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("Plazo")%>' Style="text-align: right"></asp:TextBox>
+                                                        <ajax:FilteredTextBoxExtender ID="ftbepl" runat="server" TargetControlID="TxtPlazoP" FilterType="Custom, Numbers" />
+                                                    </EditItemTemplate>
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="lblPlazoP" runat="server" Text='<%# Eval("Plazo")%>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                    <ItemStyle Width="73px" HorizontalAlign="Right"></ItemStyle>
+                                                    <FooterStyle HorizontalAlign="Right"></FooterStyle>
+                                                </asp:TemplateField>
 
                                                 <asp:TemplateField>
                                                     <EditItemTemplate>

Ventas/Clientes.aspx.vb

@@ -399,6 +399,47 @@ Partial Class Clientes
         Set(value As DataTable)
             ViewState("DtPagos") = value
         End Set
+    End Property
+
+    Private Property DtCotizaciones As DataTable
+        Get
+            Return CType(ViewState("DtCotizaciones"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtCotizaciones") = value
+        End Set
+    End Property
+    Private Property DtCxCActivas As DataTable
+        Get
+            Return CType(ViewState("DtCxCActivas"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtCxCActivas") = value
+        End Set
+    End Property
+    Private Property DtHistorialCxC As DataTable
+        Get
+            Return CType(ViewState("DtHistorialCxC"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtHistorialCxC") = value
+        End Set
+    End Property
+    Private Property DtClientesAnticipo As DataTable
+        Get
+            Return CType(ViewState("DtClientesAnticipo"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtClientesAnticipo") = value
+        End Set
+    End Property
+    Private Property DtAnticipoHistorial As DataTable
+        Get
+            Return CType(ViewState("DtAnticipoHistorial"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtAnticipoHistorial") = value
+        End Set
     End Property
     'Private Property EstatusAnteriorCliente As Boolean
     '    Get
@@ -1654,16 +1695,20 @@ Partial Class Clientes
         'Dim ObjClientesVentas As New ClsMovimientos
         'CxC Clientes
         If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero) Then
-            GvCxC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
+            DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
+            GvCxC.DataSource = DtCxCActivas
             'solo tomo los 10 ultimos mas el totalizador general
             Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+            DtHistorialCxC = dt
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable()
             End If
             Retorno = True
         Else
             GvCxC.DataSource = Nothing
+            DtCxCActivas = Nothing
             GvCxCHistorial.DataSource = Nothing
+            DtHistorialCxC = Nothing
         End If
 
 
@@ -1676,11 +1721,15 @@ Partial Class Clientes
     Private Sub CargaAnticipos(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
-            GVAnticipos.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 ")
-            GVAnticiposHistorial.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo <= 0 ")
+            DtClientesAnticipo = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 ")
+            GVAnticipos.DataSource = DtClientesAnticipo
+            DtAnticipoHistorial = ObjMovtos.DtResultados.FiltraParametros("Saldo <= 0 ")
+            GVAnticiposHistorial.DataSource = DtAnticipoHistorial
         Else
             GVAnticipos.DataSource = Nothing
+            DtClientesAnticipo = Nothing
             GVAnticiposHistorial.DataSource = Nothing
+            DtAnticipoHistorial = Nothing
         End If
         ObjMovtos.Dispose()
         GVAnticipos.DataBind()
@@ -4014,6 +4063,7 @@ Partial Class Clientes
                 LtlFactorCotVentas.Text = If(LtlCantidad.Text.ToEntero > 0, (LtlCantidadCotizaciones.Text.ToEntero / LtlCantidad.Text.ToEntero).FormatoNumero, "0.00")
                 'Carga Grid
                 GvCot.DataSource = ObjClientes.DtResultados
+                DtCotizaciones = ObjClientes.DtResultados
 
                 If UsuarioActual.Empresa.UsaOS Then
                     GvCot.Columns(9).Visible = True
@@ -4026,9 +4076,11 @@ Partial Class Clientes
                 LtlCantidadCotizaciones.Text = "0"
                 LtlFactorCotVentas.Text = "0.00"
                 GvCot.DataSource = Nothing
+                DtCotizaciones = Nothing
             End If
         Else
             GvCot.DataSource = Nothing
+            DtCotizaciones = Nothing
         End If
         ObjClientes.Dispose()
         GvCot.DataBind()
@@ -4925,10 +4977,22 @@ Partial Class Clientes
             End If
         End If
 
+    End Sub
+    Private Sub CargaClienteDispositivos(CveEmpresa As Integer)
+        Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+
+        If Dt IsNot Nothing AndAlso Dt.Rows.Count > 0 Then
+            DdlClienteDispositivo.DataSource = Dt.FiltraParametros($"CvePlataforma = 3 AND CveEmpresa = {CveEmpresa}", "Empresa")
+            DdlClienteDispositivo.DataBind()
+
+            DdlClienteDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
     End Sub
     Protected Sub DdlEmpresaDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaEmpresasUsuario(DdlEmpresaDispositivo.SelectedValue.ToEntero())
-    End Sub
+        CargaClienteDispositivos(DdlEmpresaDispositivo.SelectedValue.ToEntero())
+    End Sub
+
+
     Protected Sub ImgMoverDispositivo_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Me.NombreDispositivo = GvRow.DataKey("Display")
@@ -8201,6 +8265,8 @@ Partial Class Clientes
         DTPorcentajeTemp.Columns.Add("PorcentajeProducto", GetType(Decimal))
         DTPorcentajeTemp.Columns.Add("PorcentajeProducto2", GetType(Decimal))
         DTPorcentajeTemp.Columns.Add("PorcentajeProducto3", GetType(Decimal))
+        DTPorcentajeTemp.Columns.Add("ProntoPago", GetType(Decimal))
+        DTPorcentajeTemp.Columns.Add("Plazo", GetType(Integer))
         DTPorcentajeTemp.Columns.Add("Estatus", GetType(String))
         DTPorcentajePrecios = DTPorcentajeTemp.Clone
     End Sub
@@ -8240,6 +8306,8 @@ Partial Class Clientes
         txtPorcentaje.Text = ""
         txtPorcentaje2.Text = ""
         txtPorcentaje3.Text = ""
+        txtProntoPago.Text = ""
+        txtPlazo.Text = ""
         DdlMarcaPS.SelectedValue = "-1"
     End Sub
 
@@ -8254,6 +8322,8 @@ Partial Class Clientes
             registro.Item("PorcentajeProducto") = txtPorcentaje.Text.ToDecimal
             registro.Item("PorcentajeProducto2") = txtPorcentaje2.Text.ToDecimal
             registro.Item("PorcentajeProducto3") = txtPorcentaje3.Text.ToDecimal
+            registro.Item("ProntoPago") = txtProntoPago.Text.ToDecimal
+            registro.Item("Plazo") = txtPlazo.Text.ToEntero
             registro.Item("Estatus") = "I"
             DTPorcentajePrecios.Rows.Add(registro)
             CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
@@ -8305,6 +8375,8 @@ Partial Class Clientes
         Dim PorcentajeProducto As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP").Text.ToDouble
         Dim PorcentajeProducto2 As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP2").Text.ToDouble
         Dim PorcentajeProducto3 As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP3").Text.ToDouble
+        Dim ProntoPago As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtProntoPagoP").Text.ToDouble
+        Dim Plazo As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPlazoP").Text.ToDouble
 
         If PorcentajeProducto > 0 And PorcentajeProducto <= 100 And PorcentajeProducto2 >= 0 And PorcentajeProducto2 <= 100 And PorcentajeProducto3 >= 0 And PorcentajeProducto3 <= 100 Then
             Dim No As Integer = GvM.Rows(e.RowIndex).DataKey("No").ToEntero
@@ -8315,6 +8387,8 @@ Partial Class Clientes
                 Drs(0)("PorcentajeProducto") = PorcentajeProducto
                 Drs(0)("PorcentajeProducto2") = PorcentajeProducto2
                 Drs(0)("PorcentajeProducto3") = PorcentajeProducto3
+                Drs(0)("ProntoPago") = ProntoPago
+                Drs(0)("Plazo") = Plazo
                 If Drs(0)("Estatus").ToString <> "I" Then
                     Drs(0)("Estatus") = "U"
                 End If
@@ -8342,11 +8416,11 @@ Partial Class Clientes
             If Dr("Estatus").ToString <> "" Then
 
                 If Dr("Estatus").ToString = "I" Then
-                    If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, UsuarioActual.CveUsuario) Then
+                    If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, UsuarioActual.CveUsuario, Dr("ProntoPago").ToString.ToDecimal, Dr("Plazo").ToString.ToEntero) Then
                         TieneError = True
                     End If
                 ElseIf Dr("Estatus").ToString = "U" Then
-                    If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal) Then
+                    If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, Dr("ProntoPago").ToString.ToDecimal, Dr("Plazo").ToString.ToEntero) Then
                         TieneError = True
                     End If
                 ElseIf Dr("Estatus").ToString = "D" Then
@@ -9449,326 +9523,390 @@ Partial Class Clientes
         Next
 
         Return Timbre
-    End Function
-
-    'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean
-
-    '    Dim Respuesta As Boolean = False
-
-    '    Dim ObjVentas As New ClsVentas
-    '    Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
-    '    Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL())
-
-    '    Dim ErrorVentas As Boolean = False
-    '    Dim SubTotal As Decimal = Importe
-    '    Dim Total As Decimal = Importe + Iva
-
-    '    Dim RetIVA As Decimal = 0
-    '    Dim RetISR As Decimal = 0
-    '    Dim TipoCambio As Decimal = 0
-    '    Dim FechaVencimiento As Date = Now
-    '    Dim fecha As Date = Now
-
-    '    Dim Folio As Integer = 0
-    '    Dim Serie As String = ""
-
-    '    If FolioNotaCredito() Then
-    '        Folio = FolioNotaAcumulador
-    '        Serie = SerieNotaAcumulador
-    '    End If
-
-    '    Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
-
-    '    Dim CveVenta As Integer
-
-    '    If Folio > 0 Then
-
-    '        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas($"Clientes/{Descripcion}", 1, Total, Total, 1, fecha, "Nota de crédito por Cargo", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-    '        If ObjVentas.AddVenta("Egs", Folio, CveCliente.ToEntero, -1, SubTotal, 0, 0, Iva, RetIVA, RetISR, Total, 1, TipoCambio,
-    '                   0, 0, 0, FechaVencimiento, fecha, "", "", fecha, -1, "", "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
-    '                  UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto) Then
-
-    '            CveVenta = ObjVentas.CveVenta
-
-    '            If CveVenta > 0 Then
-    '                If ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, Descripcion, 0, 0, -1, 0) Then
-
-    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio.ToString, 150, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=CveSubProyecto) Then
-    '                        ErrorVentas = True
-    '                    End If
-    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString, 12, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then
-    '                        ErrorVentas = True
-    '                    End If
-    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Iva, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Iva) Then
-    '                        ErrorVentas = True
-    '                    End If
-
-    '                    If Not ErrorVentas Then
-    '                        For Each GvRow As GridViewRow In GvAcum.Rows
-    '                            Dim CveMovto As Integer = GvRow.DataKey("CveMovto").ToEntero
-
-    '                            If (Tipo = 1 And GvRow.FCCheckBox("ChkCargo").Checked) Or (Tipo = 2 And GvRow.FCCheckBox("ChkBonificacion").Checked) Then
-
-    '                                If ObjAcum.DistribuidorActualizarFacturados(CveMovto, UsuarioActual.CveEmpresa, Tipo, CveVenta) Then
-    '                                    Respuesta = True
-    '                                    ErrorVentas = False
-    '                                    CveVentaNota = CveVenta
-    '                                Else
-    '                                    Respuesta = False
-    '                                    ErrorVentas = True
-    '                                    CveVentaNota = 0
-    '                                    Exit For
-    '                                End If
-
-    '                            End If
-    '                        Next
-    '                    End If
-
-
-    '                    If Not ErrorVentas Then
-    '                        Alert($"Nota de crédito generada correctamente <a href='./Ventas.aspx?CveVenta={CveVenta}' >{Serie}-{Folio}</a>")
-    '                    End If
-
-
-    '                Else
-    '                    ErrorVentas = True
-    '                End If
-    '            Else
-    '                ErrorVentas = True
-    '            End If
-
-    '        Else
-    '            ErrorVentas = True
-    '        End If
-    '    Else
-    '        Alert("No se pudo obtener el Folio.", TipoMensaje.MsgError)
-    '    End If
-
-
-
-    '    If ErrorVentas Then
-    '        ObjVentas.RollBack()
-    '    Else
-
-    '        ObjVentas.Commit()
-    '        CargaUsados()
-
-    '        Dim DtDetallesVenta As New DataTable
-
-    '        If ObjVentas.GetVentaDetalle(CveVenta) Then
-
-    '            DtDetallesVenta = ObjVentas.DtResultados
-    '            'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
-
-    '            ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
-
-    '            Dim ObjTimbrado As New Timbrado
-    '            Dim SeTimbro As Boolean = False
-
-    '            SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
-
-    '            If SeTimbro Then
-    '                Alert("Se timbro correctamente")
-    '            Else
-    '                Alert("No se pudo timbrar,  intente mas tarde.", TipoMensaje.MsgError)
-    '            End If
-
-    '        Else
-    '            Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
-    '        End If
-
-    '    End If
-
-
-
-    '    ObjVentas.Dispose()
-    '    Return Respuesta
-
-    'End Function
-    'Private Function generaNC(CveVenta As Integer, ByRef ObjVentas As ClsVentas, ByVal factura As Modelos.Factura) As List(Of Object)
-
-    '    Dim Obj As New List(Of Object)
-    '    Dim CveVentaNueva As Integer = ObjVentas.CveVenta
-    '    Dim BanderaGeneraNC As Boolean = False
-    '    If UsuarioActual.CveEmpresa.Contiene(1, 119) Then BanderaGeneraNC = True
-
-    '    If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
-    '        If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
-    '            Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
-    '            Dim TmpDTconceptos As DataTable = Nothing
-
-    '            ''CargaCliente
-
-    '            Dim CveCliente As Integer = drv("CveCliente").ToString.ToEntero
-    '            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not CveCliente.Contiene(10450, 10460, 10458) Then
-    '                Return Nothing
-    '            ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 AndAlso Not CveCliente.Contiene(27448) Then
-    '                Return Nothing
-    '            End If
-    '            factura.TipoDocto = drv("TipoDocto").ToString
-    '            factura.Serie = drv("Serie").ToString
-    '            factura.FechaEjecucion = drv("FechaEjecucion").ToString.ToDateTime
-    '            factura.Fecha = drv("Fecha").ToString.ToDateTime
-    '            factura.CveSubProyectoEjecucion = drv("CveSubProyectoEjecucion").ToString.ToEntero
-    '            factura.CveSubProyectoCobranza = drv("CveSubProyectoCobranza").ToString.ToEntero
-    '            factura.CveClienteSucursal = drv("CveClienteSucursal").ToString.ToEntero
-    '            factura.CveSubProyecto = drv("CveSubProyecto").ToString.ToEntero
-
-
-    '            ''CargaDetalle
-    '            If ObjVentas.GetVentaDetalle(CveVenta) Then
-    '                TmpDTconceptos = ObjVentas.DtResultados
-    '                TmpDTconceptos.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
-    '                GvPS.DataSource = TmpDTconceptos
-    '                GvPS.DataBind()
-    '            End If
-
-    '            '' Carga Totales
-    '            factura.SubTotal = drv("SubTotal").ToString.ToDecimal
-    '            factura.Descuento = drv("Descuento").ToString.ToDecimal
-    '            factura.Amortizacion = drv("Amortizacion").ToString.ToDecimal
-    '            factura.IVA = drv("IVA").ToString.ToDecimal
-    '            factura.RetIVA = drv("RetIVA").ToString.ToDecimal
-    '            factura.RetISR = drv("RetISR").ToString.ToDecimal
-    '            factura.Total = drv("Total").ToString.ToDecimal
-    '            factura.MotivoDescuento = drv("MotivoDescuento").ToString
-    '            factura.Observaciones = drv("Observaciones").ToString
-    '            factura.CveMoneda = drv("CveMoneda").ToString.ToEntero
-    '            factura.TipoCambio = drv("TipoCambio").ToString.ToDecimal
-    '            factura.CveVendedor = drv("CveVendedor").ToString.ToEntero
-    '            factura.RefDocto = drv("Ref").ToString
-
-    '            If factura.CveCliente > 0 Then
-    '                If Not IsNothing(TmpDTconceptos) AndAlso TmpDTconceptos.Rows.Count > 0 Then
-
-    '                    If Not drv("Total").ToString.ToDecimal = factura.Total Then
-    '                        Return Nothing
-    '                    End If
-
-
-
-    '                End If
-    '            End If
-    '        End If
-    '    End If
-
-    '    If Obj.Count > 0 Then
-    '        Return Obj
-    '    Else
-    '        Return Nothing
-    '    End If
-
-    'End Function
-
-    'Private Function PreParaTimbre(Obj As Modelos.Factura, CveSubProyecto As Integer) As CFDITimbre
-
-    '    Dim Timbre As New CFDITimbre
-    '    Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
-    '    Timbre.Comprobante.Folio = Obj.Folio.ToString
-    '    Timbre.Comprobante.Serie = Obj.Serie
-    '    Timbre.Comprobante.Fecha = Obj.Fecha
-    '    Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-    '    Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
-    '    Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-    '    Timbre.Comprobante.Subtotal = Obj.SubTotal
-
-    '    Timbre.Comprobante.Descuentos = Obj.Descuento
-    '    Timbre.Comprobante.Moneda = Obj.MonedaSAT
-    '    Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
-    '    Timbre.Comprobante.Total = Obj.Total
-
-    '    Try
-    '        Obj.SetSubProyecto(Me)
-    '        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
-    '    Catch ex As Exception
-
-    '    End Try
-
-    '    Timbre.Comprobante.Confirmacion = ""
-
-    '    Timbre.Receptor.RFC = TxtRFC.Text
-    '    Timbre.Receptor.Nombre = TxtNombre.Text
-    '    Timbre.Receptor.ResidenciaFiscal = ""
-    '    Timbre.Receptor.NumeroRegistroTributario = ""
-    '    Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
-
-    '    Dim totSubTotal As Decimal = Obj.SubTotal
-    '    Dim totIVA As Decimal = Obj.IVA
-    '    Dim totRetIVA As Decimal = Obj.RetIVA
-    '    Dim totRetISR As Decimal = Obj.RetISR
-    '    Dim TasaRetIVA As Decimal = 0
-    '    Dim TasaRetISR As Decimal = 0
-    '    Dim i As Integer = 1
-
-    '    ''detalles
-    '    Dim tPS As String = ""
-
-    '    For Each drr As DataRow In Obj.DtDetalle.Rows
-    '        If drr("PS").ToString.Length = 1 Then
-    '            tPS = drr("Obs").ToString
-    '        Else
-    '            If drr("PS").ToString.Length = 0 Then
-    '                tPS = ""
-    '            Else
-    '                tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
-    '            End If
-    '        End If
-    '        '' condicionante, especial
-    '        If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
-
-    '        Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
-    '                                                .Descripcion = tPS,
-    '                                                .ValorUnitario = drr("PU").ToString.ToDecimal,
-    '                                                .Importe = drr("TotalImporte").ToString.ToDecimal,
-    '                                                .Descuento = drr("Descuento").ToString.ToDecimal,
-    '                                                .Unidad = drr("UM").ToString,
-    '                                                .ClaveUnidad = drr("SATClaveUM").ToString,
-    '                                                .ClaveProdServ = drr("SATClaveProdServ").ToString,
-    '                                                .Noidentificacion = drr("Noidentificacion").ToString,
-    '                                                .CuentaPredial = drr("CuentaPredial").ToString}
-    '        '' verifica suma subtotales
-    '        If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
-    '            concepto.Importe = totSubTotal
-    '        End If
-    '        totSubTotal = totSubTotal - concepto.Importe
-
-    '        ''siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
-    '        If drr("ImporteIVA").ToString.ToDouble > 0 Then
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteIEPS").ToString.ToDouble > 0 Then
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
-    '        End If
-
-    '        If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
-    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
-    '        End If
-
-    '        Timbre.Conceptos.Add(concepto)
-    '        i += 1
-    '    Next
-
-    '    Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString = "True", True, False)
-    '    Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
-
-    '    If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
-
-    '        Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
-    '        Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
-
-    '    End If
-
-    '    Return Timbre
-    'End Function
-
+    End Function
+
+    'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean
+
+    '    Dim Respuesta As Boolean = False
+
+    '    Dim ObjVentas As New ClsVentas
+    '    Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
+    '    Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL())
+
+    '    Dim ErrorVentas As Boolean = False
+    '    Dim SubTotal As Decimal = Importe
+    '    Dim Total As Decimal = Importe + Iva
+
+    '    Dim RetIVA As Decimal = 0
+    '    Dim RetISR As Decimal = 0
+    '    Dim TipoCambio As Decimal = 0
+    '    Dim FechaVencimiento As Date = Now
+    '    Dim fecha As Date = Now
+
+    '    Dim Folio As Integer = 0
+    '    Dim Serie As String = ""
+
+    '    If FolioNotaCredito() Then
+    '        Folio = FolioNotaAcumulador
+    '        Serie = SerieNotaAcumulador
+    '    End If
+
+    '    Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
+
+    '    Dim CveVenta As Integer
+
+    '    If Folio > 0 Then
+
+    '        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas($"Clientes/{Descripcion}", 1, Total, Total, 1, fecha, "Nota de crédito por Cargo", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+    '        If ObjVentas.AddVenta("Egs", Folio, CveCliente.ToEntero, -1, SubTotal, 0, 0, Iva, RetIVA, RetISR, Total, 1, TipoCambio,
+    '                   0, 0, 0, FechaVencimiento, fecha, "", "", fecha, -1, "", "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
+    '                  UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto) Then
+
+    '            CveVenta = ObjVentas.CveVenta
+
+    '            If CveVenta > 0 Then
+    '                If ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, Descripcion, 0, 0, -1, 0) Then
+
+    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio.ToString, 150, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=CveSubProyecto) Then
+    '                        ErrorVentas = True
+    '                    End If
+    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString, 12, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total) Then
+    '                        ErrorVentas = True
+    '                    End If
+    '                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Iva, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Iva) Then
+    '                        ErrorVentas = True
+    '                    End If
+
+    '                    If Not ErrorVentas Then
+    '                        For Each GvRow As GridViewRow In GvAcum.Rows
+    '                            Dim CveMovto As Integer = GvRow.DataKey("CveMovto").ToEntero
+
+    '                            If (Tipo = 1 And GvRow.FCCheckBox("ChkCargo").Checked) Or (Tipo = 2 And GvRow.FCCheckBox("ChkBonificacion").Checked) Then
+
+    '                                If ObjAcum.DistribuidorActualizarFacturados(CveMovto, UsuarioActual.CveEmpresa, Tipo, CveVenta) Then
+    '                                    Respuesta = True
+    '                                    ErrorVentas = False
+    '                                    CveVentaNota = CveVenta
+    '                                Else
+    '                                    Respuesta = False
+    '                                    ErrorVentas = True
+    '                                    CveVentaNota = 0
+    '                                    Exit For
+    '                                End If
+
+    '                            End If
+    '                        Next
+    '                    End If
+
+
+    '                    If Not ErrorVentas Then
+    '                        Alert($"Nota de crédito generada correctamente <a href='./Ventas.aspx?CveVenta={CveVenta}' >{Serie}-{Folio}</a>")
+    '                    End If
+
+
+    '                Else
+    '                    ErrorVentas = True
+    '                End If
+    '            Else
+    '                ErrorVentas = True
+    '            End If
+
+    '        Else
+    '            ErrorVentas = True
+    '        End If
+    '    Else
+    '        Alert("No se pudo obtener el Folio.", TipoMensaje.MsgError)
+    '    End If
+
+
+
+    '    If ErrorVentas Then
+    '        ObjVentas.RollBack()
+    '    Else
+
+    '        ObjVentas.Commit()
+    '        CargaUsados()
+
+    '        Dim DtDetallesVenta As New DataTable
+
+    '        If ObjVentas.GetVentaDetalle(CveVenta) Then
+
+    '            DtDetallesVenta = ObjVentas.DtResultados
+    '            'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
+
+    '            ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
+
+    '            Dim ObjTimbrado As New Timbrado
+    '            Dim SeTimbro As Boolean = False
+
+    '            SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
+
+    '            If SeTimbro Then
+    '                Alert("Se timbro correctamente")
+    '            Else
+    '                Alert("No se pudo timbrar,  intente mas tarde.", TipoMensaje.MsgError)
+    '            End If
+
+    '        Else
+    '            Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
+    '        End If
+
+    '    End If
+
+
+
+    '    ObjVentas.Dispose()
+    '    Return Respuesta
+
+    'End Function
+    'Private Function generaNC(CveVenta As Integer, ByRef ObjVentas As ClsVentas, ByVal factura As Modelos.Factura) As List(Of Object)
+
+    '    Dim Obj As New List(Of Object)
+    '    Dim CveVentaNueva As Integer = ObjVentas.CveVenta
+    '    Dim BanderaGeneraNC As Boolean = False
+    '    If UsuarioActual.CveEmpresa.Contiene(1, 119) Then BanderaGeneraNC = True
+
+    '    If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+    '        If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+    '            Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
+    '            Dim TmpDTconceptos As DataTable = Nothing
+
+    '            ''CargaCliente
+
+    '            Dim CveCliente As Integer = drv("CveCliente").ToString.ToEntero
+    '            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not CveCliente.Contiene(10450, 10460, 10458) Then
+    '                Return Nothing
+    '            ElseIf UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 21 AndAlso Not CveCliente.Contiene(27448) Then
+    '                Return Nothing
+    '            End If
+    '            factura.TipoDocto = drv("TipoDocto").ToString
+    '            factura.Serie = drv("Serie").ToString
+    '            factura.FechaEjecucion = drv("FechaEjecucion").ToString.ToDateTime
+    '            factura.Fecha = drv("Fecha").ToString.ToDateTime
+    '            factura.CveSubProyectoEjecucion = drv("CveSubProyectoEjecucion").ToString.ToEntero
+    '            factura.CveSubProyectoCobranza = drv("CveSubProyectoCobranza").ToString.ToEntero
+    '            factura.CveClienteSucursal = drv("CveClienteSucursal").ToString.ToEntero
+    '            factura.CveSubProyecto = drv("CveSubProyecto").ToString.ToEntero
+
+
+    '            ''CargaDetalle
+    '            If ObjVentas.GetVentaDetalle(CveVenta) Then
+    '                TmpDTconceptos = ObjVentas.DtResultados
+    '                TmpDTconceptos.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
+    '                GvPS.DataSource = TmpDTconceptos
+    '                GvPS.DataBind()
+    '            End If
+
+    '            '' Carga Totales
+    '            factura.SubTotal = drv("SubTotal").ToString.ToDecimal
+    '            factura.Descuento = drv("Descuento").ToString.ToDecimal
+    '            factura.Amortizacion = drv("Amortizacion").ToString.ToDecimal
+    '            factura.IVA = drv("IVA").ToString.ToDecimal
+    '            factura.RetIVA = drv("RetIVA").ToString.ToDecimal
+    '            factura.RetISR = drv("RetISR").ToString.ToDecimal
+    '            factura.Total = drv("Total").ToString.ToDecimal
+    '            factura.MotivoDescuento = drv("MotivoDescuento").ToString
+    '            factura.Observaciones = drv("Observaciones").ToString
+    '            factura.CveMoneda = drv("CveMoneda").ToString.ToEntero
+    '            factura.TipoCambio = drv("TipoCambio").ToString.ToDecimal
+    '            factura.CveVendedor = drv("CveVendedor").ToString.ToEntero
+    '            factura.RefDocto = drv("Ref").ToString
+
+    '            If factura.CveCliente > 0 Then
+    '                If Not IsNothing(TmpDTconceptos) AndAlso TmpDTconceptos.Rows.Count > 0 Then
+
+    '                    If Not drv("Total").ToString.ToDecimal = factura.Total Then
+    '                        Return Nothing
+    '                    End If
+
+
+
+    '                End If
+    '            End If
+    '        End If
+    '    End If
+
+    '    If Obj.Count > 0 Then
+    '        Return Obj
+    '    Else
+    '        Return Nothing
+    '    End If
+
+    'End Function
+
+    'Private Function PreParaTimbre(Obj As Modelos.Factura, CveSubProyecto As Integer) As CFDITimbre
+
+    '    Dim Timbre As New CFDITimbre
+    '    Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
+    '    Timbre.Comprobante.Folio = Obj.Folio.ToString
+    '    Timbre.Comprobante.Serie = Obj.Serie
+    '    Timbre.Comprobante.Fecha = Obj.Fecha
+    '    Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
+    '    Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+    '    Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
+    '    Timbre.Comprobante.Subtotal = Obj.SubTotal
+
+    '    Timbre.Comprobante.Descuentos = Obj.Descuento
+    '    Timbre.Comprobante.Moneda = Obj.MonedaSAT
+    '    Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
+    '    Timbre.Comprobante.Total = Obj.Total
+
+    '    Try
+    '        Obj.SetSubProyecto(Me)
+    '        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+    '    Catch ex As Exception
+
+    '    End Try
+
+    '    Timbre.Comprobante.Confirmacion = ""
+
+    '    Timbre.Receptor.RFC = TxtRFC.Text
+    '    Timbre.Receptor.Nombre = TxtNombre.Text
+    '    Timbre.Receptor.ResidenciaFiscal = ""
+    '    Timbre.Receptor.NumeroRegistroTributario = ""
+    '    Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+
+    '    Dim totSubTotal As Decimal = Obj.SubTotal
+    '    Dim totIVA As Decimal = Obj.IVA
+    '    Dim totRetIVA As Decimal = Obj.RetIVA
+    '    Dim totRetISR As Decimal = Obj.RetISR
+    '    Dim TasaRetIVA As Decimal = 0
+    '    Dim TasaRetISR As Decimal = 0
+    '    Dim i As Integer = 1
+
+    '    ''detalles
+    '    Dim tPS As String = ""
+
+    '    For Each drr As DataRow In Obj.DtDetalle.Rows
+    '        If drr("PS").ToString.Length = 1 Then
+    '            tPS = drr("Obs").ToString
+    '        Else
+    '            If drr("PS").ToString.Length = 0 Then
+    '                tPS = ""
+    '            Else
+    '                tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
+    '            End If
+    '        End If
+    '        '' condicionante, especial
+    '        If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
+
+    '        Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
+    '                                                .Descripcion = tPS,
+    '                                                .ValorUnitario = drr("PU").ToString.ToDecimal,
+    '                                                .Importe = drr("TotalImporte").ToString.ToDecimal,
+    '                                                .Descuento = drr("Descuento").ToString.ToDecimal,
+    '                                                .Unidad = drr("UM").ToString,
+    '                                                .ClaveUnidad = drr("SATClaveUM").ToString,
+    '                                                .ClaveProdServ = drr("SATClaveProdServ").ToString,
+    '                                                .Noidentificacion = drr("Noidentificacion").ToString,
+    '                                                .CuentaPredial = drr("CuentaPredial").ToString}
+    '        '' verifica suma subtotales
+    '        If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
+    '            concepto.Importe = totSubTotal
+    '        End If
+    '        totSubTotal = totSubTotal - concepto.Importe
+
+    '        ''siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
+    '        If drr("ImporteIVA").ToString.ToDouble > 0 Then
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
+    '        End If
+
+    '        If drr("ImporteIEPS").ToString.ToDouble > 0 Then
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal})
+    '        End If
+
+    '        If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
+    '        End If
+
+    '        If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
+    '            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
+    '        End If
+
+    '        Timbre.Conceptos.Add(concepto)
+    '        i += 1
+    '    Next
+
+    '    Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString = "True", True, False)
+    '    Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
+
+    '    If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
+
+    '        Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
+    '        Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
+
+    '    End If
+
+    '    Return Timbre
+    'End Function
+
+#End Region
+
+#Region "C L I E N T E S    G R I D S   I M P R I M I R   P D F/Excel"
+    Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click
+        ImprimeGridsProveedores("PDF", DtCotizaciones, "RepClientesCotizaciones")
+    End Sub
+    Private Sub LnkCotizacionesExcel_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesExcel.Click
+        ImprimeGridsProveedores("Excel", DtCotizaciones, "RepClientesCotizaciones")
+    End Sub
+
+    Private Sub LnkCxCActivasPDF_Click(sender As Object, e As EventArgs) Handles LnkCxCActivasPDF.Click
+        ImprimeGridsProveedores("PDF", DtCxCActivas, "RepClientesCxCActivas")
+    End Sub
+    Private Sub LnkCxCActivasExcel_Click(sender As Object, e As EventArgs) Handles LnkCxCActivasExcel.Click
+        ImprimeGridsProveedores("Excel", DtCxCActivas, "RepClientesCxCActivas")
+    End Sub
+
+    Private Sub LnkHistorialCxCPDF_Click(sender As Object, e As EventArgs) Handles LnkHistorialCxCPDF.Click
+        ImprimeGridsProveedores("PDF", DtHistorialCxC, "RepClientesHistorialCxC")
+    End Sub
+    Private Sub LnkHistorialCxCExcel_Click(sender As Object, e As EventArgs) Handles LnkHistorialCxCExcel.Click
+        ImprimeGridsProveedores("Excel", DtHistorialCxC, "RepClientesHistorialCxC")
+    End Sub
+
+    Private Sub LnkAnticipoClientePDF_Click(sender As Object, e As EventArgs) Handles LnkAnticipoClientePDF.Click
+        ImprimeGridsProveedores("PDF", DtClientesAnticipo, "RepClientesAnticipos")
+    End Sub
+    Private Sub LnkAnticipoClienteExcel_Click(sender As Object, e As EventArgs) Handles LnkAnticipoClienteExcel.Click
+        ImprimeGridsProveedores("Excel", DtClientesAnticipo, "RepClientesAnticipos")
+    End Sub
+
+    Private Sub LnkAnticipoHistorialPDF_Click(sender As Object, e As EventArgs) Handles LnkAnticipoHistorialPDF.Click
+        ImprimeGridsProveedores("PDF", DtAnticipoHistorial, "RepClientesAnticipoHistorial")
+    End Sub
+    Private Sub LnkAnticipoHistorialExcel_Click(sender As Object, e As EventArgs) Handles LnkAnticipoHistorialExcel.Click
+        ImprimeGridsProveedores("Excel", DtAnticipoHistorial, "RepClientesAnticipoHistorial")
+    End Sub
+
+    Private Sub LnkCuentasBancariasPDF_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancariasPDF.Click
+        ImprimeGridsProveedores("PDF", DTCuentasBancos, "RepClientesCuentasBancarias")
+    End Sub
+    Private Sub LnkCuentasBancariasExcel_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancariasExcel.Click
+        ImprimeGridsProveedores("Excel", DTCuentasBancos, "RepClientesCuentasBancarias")
+    End Sub
+
+    Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String)
+        If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then
+            Dim params As New List(Of ReportParameter)
+
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("AgrupadoPor", "Cliente: " & LtlCliente.Text))
+
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+            ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
+        Else
+            Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
 #End Region
-
-
 End Class
 

Ventas/PV.aspx.vb

@@ -7,6 +7,7 @@ Imports System.IO
 Imports System.Linq
 Imports System.Security.Cryptography.X509Certificates
 Imports System.Globalization
+Imports System.Net.Http
 
 Partial Class PV
     Inherits ClsPaginas
@@ -2290,6 +2291,18 @@ Partial Class PV
         If ObjFactura.CveCliente > 0 Then
             If TmpDT.Rows.Count > 0 Then
                 Dim Retorno = ObjFactura.EmitirFactura()
+                If Retorno.CveVenta > 0 Then
+                    Dim SbAlert As New StringBuilder
+                    SbAlert.AppendFormat("{0}<br>", Retorno.Mensajes(Retorno.Mensajes.Count - 1))
+
+                    DescargarFactura(Retorno.CveVenta, UsuarioActual.CveEmpresa)
+
+                    SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
+
+
+                    Retorno.Mensajes(Retorno.Mensajes.Count - 1) = SbAlert.ToString()
+                End If
+
                 For Each Mensaje In Retorno.Mensajes
                     Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV))
                 Next
@@ -2298,6 +2311,27 @@ Partial Class PV
         End If
 
     End Sub
+    Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = True) As Byte()
+        Dim Url = New Uri(String.Format("http://{0}:{1}/Compras/PopUpVerFactura.aspx?P={2}", HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
+        Dim File As Byte() = Nothing
+        Try
+            Using httpClient = New HttpClient()
+                httpClient.Timeout = New TimeSpan(0, 15, 0)
+                Using request = New HttpRequestMessage(HttpMethod.Get, Url)
+                    request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario={2}", CveEmpresa, DateTime.UtcNow.Ticks, UsuarioActual.CveUsuario)))
+                    Dim response = httpClient.SendAsync(request).Result
+                    If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then
+                        File = response.Content.ReadAsByteArrayAsync().Result
+                    End If
+                End Using
+            End Using
+        Catch ex As Exception
+            File = Nothing
+            OnError("Ocurrió un error al descargar la factura", ex)
+        End Try
+
+        Return File
+    End Function
 #End Region
 
 #Region "OBJETO VENTA"
@@ -2485,7 +2519,7 @@ Partial Class PV
 
         ObjFactura.DtRecepcionUsados = TmpDTRecepcionUsados
 
-        ObjFactura.GenerarPDFFactura = True
+        ObjFactura.GenerarPDFFactura = False
 
         Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22)
         If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows.Count > 0 Then

Ventas/ProductosServicios.aspx.vb

@@ -1162,7 +1162,8 @@ Partial Class ProductosyServicios
                                            CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
                                            CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                            CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
-                                           ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString) > 0 Then
+                                           ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
+                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString) > 0 Then
                 ViewState("CvePS") = ObjProductosServicios.CvePS
                 For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                     If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1206,7 +1207,8 @@ Partial Class ProductosyServicios
                                               CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
                                               CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                               CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
-                                              ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString) Then
+                                              ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
+                                              ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString) Then
 
                 If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                     TieneError = True

Ventas/Ventas.aspx.vb

@@ -1142,6 +1142,15 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property PermiteCredito As Boolean
+        Get
+            Return If(IsNothing(ViewState("PermiteCredito")), False, CBool(ViewState("PermiteCredito")))
+        End Get
+        Set(value As Boolean)
+            ViewState("PermiteCredito") = value
+        End Set
+    End Property
+
 #End Region
 
 #Region "Propiedades PuntoVenta"
@@ -1598,6 +1607,14 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property CvePrecioLista As Integer
+        Get
+            Return ViewState("CvePrecioLista").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CvePrecioLista") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -1652,6 +1669,7 @@ Partial Class Ventas
             ViewState("ClienteDesglosaIEPS") = False
             ViewState("ClienteRetIVA") = 0
             ViewState("ClienteRetISR") = 0
+            ViewState("CvePrecioLista") = 0
             idCuentaContabilizacion = 1
             CveEmpresaCRM = 0
             CveAcercamientoCRM = 0
@@ -3848,6 +3866,7 @@ Partial Class Ventas
                     DdlSubProyectoDatos.Items.Insert(0, New ListItem("Seleccione", "-1"))
                 End If
                 DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString, DbRowVenta("SubProyecto").ToString)
+                CargarAlmacenes()
 
                 If DdlSubProyectoCobranza.Items.Count = 0 Then
                     DdlSubProyectoCobranza.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -4444,7 +4463,7 @@ Partial Class Ventas
     End Function
     Private Sub CargarAlmacenes()
 
-        If CveVenta > 0 Then
+        If CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot" Then
             DivAlmacen.Visible = False
         Else
             Dim DTAlmacen As DataTable
@@ -4605,6 +4624,8 @@ Partial Class Ventas
                 ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
                 ViewState("CodCliente") = ObjCliente.Codigo
 
+                ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista
+
                 ViewState("CliNoExt") = ObjCliente.NoExt
                 ViewState("CliNoInt") = ObjCliente.NoInt
                 ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
@@ -4860,7 +4881,7 @@ Partial Class Ventas
                 TrAtencionA.Visible = True
                 tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
                 tdFechaVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
-
+                Me.PermiteCredito = ObjCliente.PermiteCredito
 
                 LbAgregar.Enabled = True
                 LnkAgregarPyME.Enabled = True
@@ -5780,7 +5801,7 @@ Partial Class Ventas
 
             End If
 
-            If CveVenta > 0 Then
+            If CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot" Then
                 If e.Row.DBCampo("CveConcepto").ToEntero = 3 Then CveAlmacenDevolucion = e.Row.DBCampo("CveAlmacen").ToEntero
                 e.Row.FCCheckBox("cbInv").Visible = False
             End If
@@ -13851,10 +13872,10 @@ Partial Class Ventas
                     PU = 0
 
                     Dim PrecioSugerido As Decimal = 0
-                    Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero
-                    If CvePrecioListaPS > 0 Then
+                    'Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero
+                    If CvePrecioLista > 0 Then
                         Dim ObjPS As New ClsProductosServicios
-                        If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSAdicional) Then
+                        If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, CvePS:=CvePSAdicional) Then
 
                             PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
                             If PrecioSugerido = 0 Then
@@ -14500,7 +14521,7 @@ Partial Class Ventas
         GvPS.DataBind()
 
         'RECARGA GV INVENTARIO
-        If Not CveVenta > 0 Then
+        If Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot" Then
             DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
             CargaGVInv(DtInv)
         End If
@@ -14905,7 +14926,7 @@ Partial Class Ventas
                                         Dim AplicaMovimientoDetalleEntrada As Boolean = False
                                         If RemisionesLista.Count > 0 Then
                                             AplicaMovimientoDetalleEntrada = True
-                                            MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND TieneSalidaxFactura IS NULL"))
+                                            MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND (TieneSalidaxFactura IS NULL OR SaldoAlmacen > 0)"))
                                         Else
                                             MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
                                         End If
@@ -16534,6 +16555,11 @@ Partial Class Ventas
     Private Function ValidaPagosContado() As Boolean
         Dim Retorno = False
 
+        If (UsuarioActual.CveEmpresa = 140) AndAlso (Not PermiteCredito) AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) Then
+            Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia)
+            Retorno = True
+        End If
+
         If DtPagos.SUM("Importe").ToString.ToDecimal > TxtTotal.Text.ToDecimal Then
             Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia)
             Retorno = True