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

App_Code/ClsAcumuladores.vb

@@ -477,20 +477,21 @@ Public Class ClsAcumuladores
         End Try
 
         Return Retorno
-    End Function
+    End Function
-
+
 #End Region
-
+
 #Region " FOLIOS GARANTÍA "
-
+
-    Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer) As Boolean
+    Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
         SqlDataAdapter("PA_Acum_FoliosGarantiaGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
+            .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
@@ -753,7 +754,21 @@ Public Class ClsAcumuladores
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As SqlException
-            OnError("Ocurrió un al agregar la garantia detalle. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un al obtener la garantía detalle. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+    Public Function GetGarantiasPolizaVirtual(CveVenta As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        SqlDataAdapter("PA_Acum_GarantiasPolizaVirtualGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un al obtener la información de poliza virtual.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
     End Function

App_Code/ClsClientes.vb

@@ -568,7 +568,7 @@ Public Class ClsClientes
                                Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True,
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
-                               Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean
+                               Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -702,6 +702,7 @@ Public Class ClsClientes
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado
             .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado
+            .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -747,7 +748,7 @@ Public Class ClsClientes
                                 Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
-                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean
+                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -896,7 +897,8 @@ Public Class ClsClientes
             .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado
-            .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado
+            .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado
+            .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1581,6 +1583,22 @@ Public Class ClsClientes
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
+
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
+                If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then
+                    Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia)
+                End If
+
+                If Ex1.Message.Contains("IND_Clientes_Codigo") Then
+                    Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia)
+                End If
+            Else
+                Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al agregar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try

App_Code/ClsContabilidad.vb

@@ -5768,6 +5768,7 @@ Public Class ClsContabilidad
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
             .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output
+            .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 800).Direction = ParameterDirection.Output
             .Add("@Diferencia", SqlDbType.Float).Direction = ParameterDirection.Output
         End With
 

App_Code/ClsGenerales.vb

@@ -133,6 +133,24 @@ Public Class ClsGenerales
         End With
     End Sub
 
+    Public Function RepConciliacionSatDetalleGET(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String, RegistroEn As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RepConciliacionSatDetalleGET", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+            .Add("@TipoDocto", SqlDbType.VarChar).Value = tipoDocto
+            .Add("@RegistroEn", SqlDbType.Int).Value = RegistroEn
+            .Add("@FechaI", SqlDbType.VarChar).Value = fechaI
+            .Add("@FechaF", SqlDbType.VarChar).Value = fechaF
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los registros de Conciliaciones SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
 
     Public Function RepConciliacionSatGET(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String) As Boolean
         Dim retorno As Boolean = False

App_Code/ClsPaginas.vb

@@ -3985,9 +3985,11 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 344)
             PaginaDict.Add("/Contabilidad/CatCuentasSIG.aspx".ToUpper(), 405)
             PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714)
-            PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
+            PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
+            PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752)
+
 #End Region
-            'CONTABILIDAD2 
+            'CONTABILIDAD2 
 #Region "Contabilidad2"
             PaginaDict.Add("/Contabilidad2/RepAnexoCatalogo.aspx".ToUpper(), 580)
             PaginaDict.Add("/Contabilidad2/RepBalanzaComprobacion.aspx".ToUpper(), 582)

App_Code/ClsVentas.vb

@@ -317,7 +317,7 @@ Public Class ClsVentas
                              Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1,
                              Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
-                             Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False) As Boolean
+                             Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -403,6 +403,7 @@ Public Class ClsVentas
             .Add("@DiasCredito", SqlDbType.Int).Value = DiasCredito
             .Add("@EsDiasCreditoFijo", SqlDbType.Bit).Value = EsDiasCreditoFijo
             .Add("@AnticipoEspecial", SqlDbType.Bit).Value = AnticipoEspecial
+            .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -430,7 +431,8 @@ Public Class ClsVentas
                                  Fecha As Date, Observaciones As String, CveEmpresa As Integer, CveVenta As Integer, CveMetodoPago As Integer, FormaPago As Integer,
                                  Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
                                  Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
-                                 Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, Optional RetISR As Double = -1) As Boolean
+                                 Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
+                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
 
@@ -460,6 +462,7 @@ Public Class ClsVentas
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra
+            .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
         End With
 
         Try
@@ -2674,6 +2677,45 @@ Public Class ClsVentas
         Return OnError
     End Function
 
+    Public Function GetFacturasCanceladasPendientesWS(RFC As String, CveEmpresa As Integer, Optional showalert As Boolean = True) As Boolean
+        Dim retorno As Boolean = False
+        Try
+
+            Dim objServicio As Cancelacion.CancelacionSoapClient = New Cancelacion.CancelacionSoapClient()
+        Dim resp As Cancelacion.StructCancel = objServicio.ObtienePendientes(RFC, "UserTest", "1234567890")
+            If resp.Estado = 0 Then
+                Dim XmlPendientes As String = System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml))
+                Dim theReader As IO.StringReader = New IO.StringReader(XmlPendientes)
+                Dim theDataSet As DataSet = New DataSet()
+                theDataSet.ReadXml(theReader)
+
+                If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then
+                    Dim sb = New StringBuilder()
+
+                    For Each item As DataRow In theDataSet.Tables(0).Rows
+                        sb.AppendFormat("{0};", item("Uuid").ToString())
+                    Next
+
+                    If GetFacturasCanceladasPendientes(sb.ToString(), CveEmpresa) Then
+                        retorno = True
+                    End If
+
+                Else
+                    If showalert Then
+                        Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgError)
+                    End If
+                End If
+            Else
+                Alert("Error al obtener cancelaciones pendientes: " & resp.Descripcion, ModExtensiones.TipoMensaje.MsgError)
+            End If
+
+        Catch ex As Exception
+            retorno = False
+            Me.OnError("Error al obtener cancelaciones pendientes: ", ex, "")
+        End Try
+        Return retorno
+    End Function
+
     Public Function UpdateVentaFacturas(CveFactura As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
         Dim OnError As Boolean = False
 

App_Code/Modelos.vb

@@ -368,7 +368,7 @@ Namespace Modelos
             End If
             Timbre = New CFDITimbre
         End Sub
-        Public Sub New(UsuarioActual As Usuario, CveVenta As Integer, CveEmpresa As Integer, Optional DirectorioServidor As String = "")
+        Public Sub New(UsuarioActual As Usuario, CveVenta As Integer, CveEmpresa As Integer, Optional DirectorioServidor As String = "", Optional EsCancelacion As Boolean = False)
             Me.UsuarioActual = UsuarioActual
             Me.CveVenta = CveVenta
             Me.CveEmpresa = CveEmpresa
@@ -393,7 +393,7 @@ Namespace Modelos
                 Me.DtDetalle = ObjVentas.DtResultados.Copy()
             End If
             ObjVentas.Dispose()
-            IniciaValoresVentas()
+            IniciaValoresVentas(EsCancelacion)
             If String.IsNullOrEmpty(DirectorioServidor) Then
                 DirectorioServidor = HttpContext.Current.Server.MapPath("/")
             End If
@@ -446,7 +446,7 @@ Namespace Modelos
             Me.IEPS = 0
             Me.CveAlmacenTraspasoOrigen = 0
         End Sub
-        Private Sub IniciaValoresVentas()
+        Private Sub IniciaValoresVentas(Optional EsCancelacion As Boolean = False)
             If CveVenta > 0 AndAlso CveEmpresa > 0 Then
                 Me.DtAnticipos = New DataTable()
                 Me.DtAntNCVinculadas = New DataTable()
@@ -492,6 +492,10 @@ Namespace Modelos
                             Me.DtNCVinculadas = ObjVentas.DtResultados.Copy()
                         End If
 
+                        If TipoDocto.Contiene("Ant") AndAlso EsCancelacion Then
+                            EsNCAmortizacion = True
+                        End If
+
                         If ObjVentas.GetVentasAntNC(-1, CveVenta, AplicaAmortizacion:=EsNCAmortizacion) Then
                             Me.DtAnticipos = ObjVentas.DtResultados.Copy()
                         End If
@@ -2333,7 +2337,7 @@ Namespace Modelos
                                     Exit Select
                                 End If
 
-                                If ObjFactura.TipoDocto.Contiene("Ing", "Egs") AndAlso ValorMultiplicador = -1 Then
+                                If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant") AndAlso ValorMultiplicador = -1 Then
                                     For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows
                                         If row2("CveConceptoContable").ToString().ToEntero = 11 Then
                                             importeMovimiento = row2("Importe").ToString().ToDecimal * ValorMultiplicador '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal)
@@ -2344,7 +2348,10 @@ Namespace Modelos
                                             CveSubProyectoContabilizar = CveSubProyectoVenta
 
                                             If importeMovimiento <> 0 Then
-                                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2("CveVenta").ToString().ToEntero, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1,
+                                                                                     CveVenta:=ObjFactura.CveVenta, CveVentaAmortizacion:=row2("CveVenta").ToString().ToEntero, CveCliente:=ObjFactura.CveCliente,
+                                                                                     CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta,
+                                                                                     CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
                                                     ErrorPrepoliza = True
                                                     Exit For
                                                 Else

App_Code/modExtensiones.vb

@@ -54,8 +54,8 @@ Namespace Extensiones
 
             '    BaseDatos = CType(System.Web.HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.BaseDatosNombre
             'End If
-
+            Return ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
-            Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos)
+            ' Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos)
 
 
         End Function

Ashx/SIGWeb.ashx

@@ -247,13 +247,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             'ObjProveedores.Dispose()
             Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros($"CveEmpresa = {CveEmpresa}")
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                DtRetorno = dt.FiltraParametros($"RazonSocial like  '%{Name}%'")
+                DtRetorno = dt.FiltraParametros($"NombreCortoProveedor like  '%{Name}%'")
             End If
         End If
 
         If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
             DtRetorno.Columns("CveProveedor").ColumnName = "id"
-            DtRetorno.Columns("RazonSocial").ColumnName = "text"
+            DtRetorno.Columns("NombreCortoProveedor").ColumnName = "text"
             retorno = JsonConvert.SerializeObject(DtRetorno).ToString
             context.Response.Write(retorno)
         Else

Bancos/ConciliacionesBancarias.aspx.vb

@@ -613,6 +613,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero))
 
         Dim SaldoFinalContabilidad As Double = 0
+        Dim SaldoFinalContabilidadComplementaria As Double = 0
         If DdlCuenta.SelectedValue.ToEntero > 0 Then
             Dim CveCuenta As Integer = 0
             Dim CveCuentaComplementaria As Integer = 0
@@ -636,7 +637,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             If CveCuentaComplementaria > 0 Then
                 If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then
                     If ObjConta.DtResultados.Rows.Count > 1 Then
-                        SaldoFinalContabilidad += ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
+                        SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
                     End If
                 End If
             End If
@@ -644,6 +645,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         End If
 
         params.Add(New ReportParameter("SaldoFinalContabilidad", (SaldoFinalContabilidad.FormatoNumero)))
+        params.Add(New ReportParameter("SaldoFinalContabilidadComplementaria", (SaldoFinalContabilidadComplementaria.FormatoNumero)))
         params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero))
 
         If Imagen.Exists Then

Bancos/FluctuacionCambiaria.aspx.vb

@@ -315,6 +315,8 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
+        Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
+        ObjContPaq.IniciaTransacSQL()
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
@@ -372,8 +374,19 @@ Partial Class Bancos_FluctuacionCambiaria
             End If
         Next
 
+        Dim SeContabilizo As Boolean = False
+
+        Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+        If AutoConta Then
+            If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+                SeContabilizo = True
+            Else
+                Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+            End If
+        End If
+
+        If Not ErrorRegistrar And SeContabilizo Then
 
-        If Not ErrorRegistrar Then
             Conta.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
             CargaDatosCuentas()

Bancos/IE.aspx.vb

@@ -2322,7 +2322,9 @@ Partial Class Bancos_IE
                 ElseIf CveProveedor > 0 Then
                     CveConceptoCompra = 21  'Pago a Proveedor/CAncelacion Anticipos
                     CveConceptoContable = 30 'Bancos
-                    CvePlantillaPoliza = 7
+                    CvePlantillaPoliza = 7
+                ElseIf CveCliente > 0 Then
+                    CvePlantillaPoliza = 11
                 End If
             End If
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -827,7 +827,7 @@ Partial Class Bancos_ProveedoresAbonar
 
 
                 'cheque
-                If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero
+                If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(13, 83) Then FolioFijo = TxtFolio.Text.ToEntero
 
                 CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProveedoresAbonar", 2, ImporteSeleccionado, ImporteSeleccionado, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
 

Compras/Compras.aspx.vb

@@ -13594,35 +13594,40 @@ Partial Class Compras_Compras
     '    guardardevolucion(ObjInventario, cvecompra, subtotal, Now.ToDate)
     'End Sub
     Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
-        Dim subtotaldevolucion As Double = 0
+        Try
-        Dim realizadevolucion As Boolean = False
+            Dim subtotaldevolucion As Double = 0
+            Dim realizadevolucion As Boolean = False
+
+
+            'Calculo los subtotales para comparar con la NC
+            Dim cantidad As Double = 0.0
+
+            For Each Dr As GridViewRow In GVDevolucion.Rows
+                cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble
+                If cantidad > 0 Then
+                    realizadevolucion = True
+                    subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad
+                End If
+            Next
+
+            'si no esta vinculado a nc simplemente me lo brinco
+            If realizadevolucion Then
+                'si el subtotal es iwal a la nc lo guardo si no marco error
+                If TxtSubTotal.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal.Text.ToDouble < subtotaldevolucion + 1 Then
+
+                    VinculaDevolucion()
+
+                Else
+                    Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
+                End If
+            Else
+                Alert("No se ha seleccionado nada para la devolución. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al realizar la vinculación", ex)
+        End Try
 
 
-        'Calculo los subtotales para comparar con la NC
-        Dim cantidad As Double = 0.0
-
-        For Each Dr As GridViewRow In GVDevolucion.Rows
-            cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble
-            If cantidad > 0 Then
-                realizadevolucion = True
-                subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad
-            End If
-        Next
-
-        'si no esta vinculado a nc simplemente me lo brinco
-        If realizadevolucion Then
-            'si el subtotal es iwal a la nc lo guardo si no marco error
-            If TxtSubTotal.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal.Text.ToDouble < subtotaldevolucion + 1 Then
-
-                VinculaDevolucion()
-
-            Else
-                Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
-            End If
-        Else
-            Alert("No se ha seleccionado nada para la devolución. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        End If
-
     End Sub
 
     Private Sub VinculaDevolucion()
@@ -13685,7 +13690,7 @@ Partial Class Compras_Compras
         GvOC1.DataSource = DTOCTemp
 
         Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"})
-        If DTCVEOCS.Rows.Count > 1 Then
+        If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then
             GvOC1.Columns(0).Visible = True
         Else
             GvOC1.Columns(0).Visible = False

Compras/PopUpVerFactura.aspx.vb

@@ -1471,7 +1471,7 @@ Partial Class PopUpVerFactura
                     If Archivo.Exists Then
 
                         'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then
+                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then
                             Dim CiudadSucursal As String = ""
                             Dim DomicilioSucursal As String = ""
                             Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
@@ -1487,7 +1487,7 @@ Partial Class PopUpVerFactura
                             End If
 
 
-                            If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+                            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
 
                                 params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
                                 params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString))

Contabilidad/CatClasificacionPorcentaje.aspx

@@ -0,0 +1,137 @@
+<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatClasificacionPorcentaje.aspx.vb" Inherits="Contabilidad_CatClasificacionPorcentaje" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de Clasificacion Porcentaje
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnAgregarClas" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Clas. Porcentaje"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClasificacionPorcentaje,Clasificacion,CveEmpresa,CveClasificacion,PorcentajeIVA,
+                CuentaXAcreditar,CuentaAcreditable,CuentaXTrasladar,CuentaTrasladado,IdCtaIVAXAcreditar,IdCtaIVAAcreditable,IdCtaIVAXTrasladar,IdCtaIVATrasladado,IdCtaIVANoAcreditable" 
+                EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;
+                 text-align: center; width: 100%" GridLines="None">
+
+                <Columns>
+                    <asp:BoundField DataField="Clasificacion" HeaderText="Clasificacion" />
+                    <asp:BoundField DataField="PorcentajeIVA" HeaderText="PorcentajeIVA" />
+                    <asp:BoundField DataField="CuentaXAcreditar" HeaderText="C. Por Acreditar" />
+                    <asp:BoundField DataField="CuentaAcreditable" HeaderText="C. Acreditable" />
+                    <asp:BoundField DataField="CuentaXTrasladar" HeaderText="C. Por trasladar" />
+                    <asp:BoundField DataField="CuentaTrasladado" HeaderText="C. Trasladado" />
+                    <%--<asp:BoundField DataField="IdCtaIVANoAcreditable" HeaderText="IdCtaIVANoAcreditable" />--%>
+                    <asp:TemplateField HeaderText="Editar">
+                        <EditItemTemplate>
+                            <center>
+                                <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
+                                &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>"	 />
+                            </center>
+                        </EditItemTemplate>
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgE" runat="server" OnClick="GvDatos_RowEditing" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Eliminar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+                <RowStyle CssClass="Texto" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />
+            </asp:GridView>
+
+            <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposD" runat="server">Clasificación porcentaje</asp:Literal></h4>
+                            </div>
+                            <div class="modal-body">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:dropdownlist runat="server" ID="DdlClasificaciones" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion"></asp:dropdownlist>
+                                    <asp:RequiredFieldValidator ID="RfvDdlClasificaciones" runat="server" ControlToValidate="DdlClasificaciones" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="MotivoTxt">Clasificación:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtPorcentajeIva" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtTiposD" runat="server" ControlToValidate="TxtPorcentajeIva" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="TxtPorcentajeIva">Porcentaje IVA:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:dropdownlist runat="server" ID="DdlIdCtaIVAXAcreditar" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
+                                    <asp:RequiredFieldValidator ID="RfvDdlIdCtaIVAXAcreditar" runat="server" ControlToValidate="DdlIdCtaIVAXAcreditar" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="DdlIdCtaIVAXAcreditar">Cuenta IVA por acreditar:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:dropdownlist runat="server" ID="DdlIdCtaIVAAcreditable" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
+                                    <asp:RequiredFieldValidator ID="RfvDdlIdCtaIVAAcreditable" runat="server" ControlToValidate="DdlIdCtaIVAAcreditable" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="DdlIdCtaIVAAcreditable">Cuenta IVA acreditable:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:dropdownlist runat="server" ID="DdlIdCtaIVAXTrasladar" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
+                                    <asp:RequiredFieldValidator ID="RfvDdlIdCtaIVAXTrasladar" runat="server" ControlToValidate="DdlIdCtaIVAXTrasladar" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="DdlIdCtaIVAXTrasladar">Cuenta IVA por trasladar:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:dropdownlist runat="server" ID="DdlIdCtaIVATrasladado" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
+                                    <asp:RequiredFieldValidator ID="RfvDdlIdCtaIVATrasladado" runat="server" ControlToValidate="DdlIdCtaIVATrasladado" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="DdlIdCtaIVATrasladado">Cuenta IVA Traslado:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:dropdownlist runat="server" ID="DdlIdCtaIVANoAcreditable" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
+                                    <asp:RequiredFieldValidator ID="RfvDdlIdCtaIVANoAcreditable" runat="server" ControlToValidate="DdlIdCtaIVANoAcreditable" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="DdlIdCtaIVANoAcreditable">Cuenta IVA no acreditable:</label>
+                                    <i></i>
+                                </div>
+                                <br />
+                            </div>
+                            <br />
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAgregarTiposDModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                                <asp:Button ID="BtnEditarTiposDModal" runat="server" class="btn btn-success" Text="Confirmar" ValidationGroup="GrpTiposD" />
+                                <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

Contabilidad/CatClasificacionPorcentaje.aspx.vb

@@ -0,0 +1,150 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Contabilidad_CatClasificacionPorcentaje
+    Inherits ClsPaginas
+
+    Private Property DtClasificacionPorcentaje As DataTable
+        Get
+            Return CType(ViewState("DtClasificacionPorcentaje"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtClasificacionPorcentaje") = value
+        End Set
+    End Property
+
+    Private Property CveClasificacion As Integer
+        Get
+            Return CType(ViewState("CveClasificacion"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("CveClasificacion") = value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaDatos()
+            CargaContPaq()
+
+        End If
+    End Sub
+
+    Protected Sub CargaDatos()
+        Dim ObjGenerales As New ClsGenerales
+        If ObjGenerales.GetClasificacionPorcentaje(UsuarioActual.CveEmpresa, CveClasificacionPorcentaje:=-1, CveClasificacion:=-1, PorcentajeIVA:=-1, Opcion:=2) Then
+            GvDatos.DataSource = ObjGenerales.DtResultados
+            DtClasificacionPorcentaje = ObjGenerales.DtResultados
+        End If
+        ObjGenerales.Dispose()
+        GvDatos.DataBind()
+
+        DdlClasificaciones.Items.Add(New ListItem("Seleccione", "-1"))
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+
+    End Sub
+
+    Protected Sub CargaContPaq()
+        Dim Empresa As DataTable = GlobalDTEmpresas(UsuarioActual.CveEmpresa)
+        Dim Servidor As String = Empresa.FiltroPrimeroValor("ServerContPAQi")
+        Dim BD As String = Empresa.FiltroPrimeroValor("BDContPAQi")
+        Dim Usuario As String = Empresa.FiltroPrimeroValor("UsrContPAQi")
+        Dim Contra As String = Empresa.FiltroPrimeroValor("PwdContPAQi")
+
+        Dim ObjPaq As New ClsContPAQi(Servidor, BD, Usuario, Contra)
+
+        DdlIdCtaIVAXAcreditar.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
+        DdlIdCtaIVAAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
+        DdlIdCtaIVAXTrasladar.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
+        DdlIdCtaIVATrasladado.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
+        DdlIdCtaIVANoAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
+
+        If ObjPaq.GetCuentas(-1, "-1", -1, IdPadre:=-1) Then
+            DdlIdCtaIVAXAcreditar.DataSource = ObjPaq.DtResultados
+            DdlIdCtaIVAAcreditable.DataSource = ObjPaq.DtResultados
+            DdlIdCtaIVAXTrasladar.DataSource = ObjPaq.DtResultados
+            DdlIdCtaIVATrasladado.DataSource = ObjPaq.DtResultados
+            DdlIdCtaIVANoAcreditable.DataSource = ObjPaq.DtResultados
+        End If
+        ObjPaq.Dispose()
+        DdlIdCtaIVAXAcreditar.DataBind()
+        DdlIdCtaIVAAcreditable.DataBind()
+        DdlIdCtaIVAXTrasladar.DataBind()
+        DdlIdCtaIVATrasladado.DataBind()
+        DdlIdCtaIVANoAcreditable.DataBind()
+    End Sub
+
+    Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarClas.Click
+        BtnAgregarTiposDModal.Text = "Agregar"
+        BtnEditarTiposDModal.Visible = False
+        BtnAgregarTiposDModal.Visible = True
+        TxtPorcentajeIva.Text = ""
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
+    End Sub
+
+    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal"
+        Dim ObjGenerales As New ClsGenerales
+        If BtnAgregarTiposDModal.Text = "Agregar" Then
+            If ObjGenerales.AddClasificacionPorcentaje(DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue, DdlIdCtaIVAAcreditable.SelectedValue,
+                                                       DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
+                Alert("Clasificación porcentaje agregado correctamente")
+                If ObjGenerales.GetClasificacionPorcentaje(-1) Then
+                    GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
+                End If
+                CargaDatos()
+                CargaContPaq()
+                UpDatos.Update()
+            End If
+        ElseIf BtnAgregarTiposDModal.Text = "Actualizar" Then
+            If ObjGenerales.UpdateClasificacionPorcentaje(CveClasificacion, DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue,
+                                                          DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
+                Alert("Clasificación porcentaje actualizado correctamente")
+                If ObjGenerales.GetClasificacionPorcentaje(-1) Then
+                    GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
+                End If
+                CargaDatos()
+                CargaContPaq()
+                UpDatos.Update()
+            End If
+        End If
+        ObjGenerales.Dispose()
+    End Sub
+
+    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+        Dim objgenerales As New ClsGenerales
+        If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then
+            Alert("la clasificación porcentaje se eliminó correctamente")
+            If objgenerales.GetClasificacionPorcentaje(-1) Then
+                GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados
+            End If
+            CargaDatos()
+            CargaContPaq()
+            UpDatos.Update()
+        End If
+        objgenerales.Dispose()
+    End Sub
+
+    Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs)
+        BtnAgregarTiposDModal.Text = "Actualizar"
+
+        Dim renglon As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        DdlClasificaciones.SelectedValue = If(renglon.DataKey("CveClasificacion").ToString IsNot "", renglon.DataKey("CveClasificacion"), "-1")
+        TxtPorcentajeIva.Text = renglon.DataKey("PorcentajeIVA")
+        DdlIdCtaIVAXAcreditar.SelectedValue = If(renglon.DataKey("IdCtaIVAXAcreditar").ToString IsNot "", renglon.DataKey("IdCtaIVAXAcreditar"), "-1")
+        DdlIdCtaIVAAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVAAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVAAcreditable"), "-1")
+        DdlIdCtaIVAXTrasladar.SelectedValue = If(renglon.DataKey("IdCtaIVAXTrasladar").ToString IsNot "", renglon.DataKey("IdCtaIVAXTrasladar"), "-1")
+        DdlIdCtaIVATrasladado.SelectedValue = If(renglon.DataKey("IdCtaIVATrasladado").ToString IsNot "", renglon.DataKey("IdCtaIVATrasladado"), "-1")
+        DdlIdCtaIVANoAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVANoAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVANoAcreditable"), "-1")
+
+        BtnEditarTiposDModal.Visible = False
+        BtnAgregarTiposDModal.Visible = True
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
+    End Sub
+End Class

Contabilidad/RegPrePoliza.aspx

@@ -373,6 +373,9 @@
                         <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                             <ItemTemplate>
                                 <asp:LinkButton ID="ImgBancos" runat="server" CausesValidation="False" CssClass="btn btn-circle btn-sm btn-warning" OnClick="Bancos_Click" Text="<i class='fa fa-money'></i>" Visible="false" />
+                                  <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged1"></asp:DropDownList><br />
+                                                    <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
+
                             </ItemTemplate>
                         </asp:TemplateField>
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -794,6 +794,18 @@ Partial Class ContabilidadC_RegPrePoliza
                     e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
                 End If
             End If
+
+            If e.Row.DataKey("CveConcepto").ToEntero.Contiene(17) Then
+                e.Row.FCDropDownList("DdlProveedores").Visible = True
+                e.Row.FCDropDownList("DdlProveedores").DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlProveedores").DataBind()
+                e.Row.FCDropDownList("DdlProveedores").Items.Insert(0, New ListItem("  -  ", "-1"))
+
+                'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
+                '    e.Row.FCLinkButton("ImgPagoCompra").CssClass = "btn btn-circle btn-sm green"
+                'End If
+            End If
+
         End If
     End Sub
 
@@ -854,15 +866,20 @@ Partial Class ContabilidadC_RegPrePoliza
                         If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
                             FolioIE = ObjIE.Folio
                         End If
-                    End If
+                    End If
-
+
-
+
+                    Dim CveProveedor As Integer = -1
+                    Dim CveCompra As Integer = -1
 
                     'inserto las compras que voy a pagarDdlSaldos
                     For Each gvr As GridViewRow In GvMov.Rows
                         If gvr.DataKey("IDCuenta").ToEntero > 0 Then
                             IdCtaContable = gvr.DataKey("IDCuenta")
                         End If
+                        CveProveedor = gvr.DataKey("CveProveedor").ToEntero
+                        CveCompra = gvr.DataKey("CveCompra").ToEntero
+                        CveConcepto = gvr.DataKey("CveConcepto").ToEntero
 
                         If gvr.DataKey("TipoMovto").ToDouble <> 0 Then
                             Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
@@ -870,6 +887,11 @@ Partial Class ContabilidadC_RegPrePoliza
                         Else
                             Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
                             TipoMovto = False
+                        End If
+                        'Registra pago de compra
+                        If CveConcepto = 17 Then
+                            CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero
+                            CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero
                         End If
 
                         If CveConcepto = 41 Then
@@ -890,7 +912,7 @@ Partial Class ContabilidadC_RegPrePoliza
                         If Importe <> 0 Then
                             If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
                                                            TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
-                                                           CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
+                                                           CveProveedor:=CveProveedor, CveCompra:=CveCompra,
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
                                                             CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1),
@@ -1560,10 +1582,34 @@ Partial Class ContabilidadC_RegPrePoliza
 
     Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
         GeneraTimbre(CvePrePoliza)
-    End Sub
+    End Sub
 #End Region
-
+
-
+
-
+
+    Protected Sub DdlProveedores_SelectedIndexChanged1(sender As Object, e As EventArgs)
+        Dim ddl As DropDownList = CType(sender, DropDownList)
+        Dim ddl2 As DropDownList = DirectCast(ddl.BindingContainer, GridViewRow).FCDropDownList("DdlCompras")
+        CargaCompras2(ddl.SelectedValue.ToEntero, ddl2)
+    End Sub
+
+    Private Sub CargaCompras2(CveProveedor As Integer, ddl As DropDownList)
+
+        Dim ObjCompras As New ClsCompras
+
+        ddl.ClearSelection()
+        If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then
+            ddl.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0")
+            ddl.DataBind()
+            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
+            ddl.Visible = True
+        Else
+            ddl.DataSource = Nothing
+            ddl.DataBind()
+            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
+
+        End If
+        ObjCompras.Dispose()
+    End Sub
 End Class
 

Empresas/146/Formatos/Factura.rdlc

@@ -23,9 +23,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.37762in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.5cm</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -73,9 +73,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.93484in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.5cm</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>1</ZIndex>
         <Style>
           <Border>
@@ -108,9 +108,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.69525in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.60856cm</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
@@ -143,9 +143,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.23676cm</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.5cm</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>3</ZIndex>
         <Style>
           <Border>
@@ -259,9 +259,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.13169in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.25114in</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>6</ZIndex>
         <Style>
           <Border>
@@ -295,9 +295,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.57434in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.25635in</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>7</ZIndex>
         <Style>
           <Border>
@@ -347,10 +347,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.98172in</Top>
+        <Top>0.99561in</Top>
-        <Left>1.48781in</Left>
+        <Left>0.05904in</Left>
-        <Height>0.65513in</Height>
+        <Height>0.62735in</Height>
-        <Width>2.06754in</Width>
+        <Width>1.9981in</Width>
         <ZIndex>8</ZIndex>
         <Style>
           <Border>
@@ -397,10 +397,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.98172in</Top>
+        <Top>1.00949in</Top>
-        <Left>3.64748in</Left>
+        <Left>2.05714in</Left>
-        <Height>0.65513in</Height>
+        <Height>0.62735in</Height>
-        <Width>1.93674in</Width>
+        <Width>1.76588in</Width>
         <ZIndex>9</ZIndex>
         <Style>
           <Border>
@@ -956,74 +956,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox62">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Régimen: Sociedad Anónima de  Capital Variable; Condiciones de pago: </Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=IIF(Parameters!CondicionPago.Value.ToString="","No Identificado",Parameters!CondicionPago.Value)</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>; Método de Pago: </Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value)</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>; Num. Cta Pago:</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value)</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox62</rd:DefaultName>
-        <Top>6.65199in</Top>
-        <Left>1.5367in</Left>
-        <Height>0.29498in</Height>
-        <Width>6.38809in</Width>
-        <ZIndex>24</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
       <Textbox Name="Textbox63">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -1045,7 +977,7 @@
         <Left>2.54119in</Left>
         <Height>0.25in</Height>
         <Width>3.69856in</Width>
-        <ZIndex>25</ZIndex>
+        <ZIndex>24</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1104,7 +1036,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Localización Precisa GPS de México SA de CV, a su vencimiento  el  </Value>
+                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de VICTOR MANUEL RAMIREZ CASTILLO, a su vencimiento  el  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -1128,7 +1060,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value>, en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ </Value>
+                    <Value>, en Tijuana, Baja California o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -1176,7 +1108,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a Localización Precisa GPS de México SA de CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a  </Value>
+                    <Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a VICTOR MANUEL RAMIREZ CASTILLO o tenedor, desde el día siguiente a cobrar el 5% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Tijuana, Baja California a  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -1803,7 +1735,7 @@
         <Left>0.04398cm</Left>
         <Height>4.04843cm</Height>
         <Width>20.06179cm</Width>
-        <ZIndex>26</ZIndex>
+        <ZIndex>25</ZIndex>
         <Visibility>
           <Hidden>= (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="")</Hidden>
         </Visibility>
@@ -1817,19 +1749,22 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>2.12527cm</Width>
+              <Width>1.34132cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.02474cm</Width>
+              <Width>1.32237cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>10.17786cm</Width>
+              <Width>2.53649cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>8.96945cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>2.52862cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.15415cm</Width>
+              <Width>3.27979cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -1844,7 +1779,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Cantidad</Value>
+                              <Value>Cant.</Value>
                               <Style>
                                 <FontFamily>calibri</FontFamily>
                                 <FontSize>9pt</FontSize>
@@ -1906,6 +1841,42 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox1">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Código</Value>
+                              <Style>
+                                <FontFamily>calibri</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox1</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>#ff1037</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox79">
@@ -2041,7 +2012,7 @@
                               <Value>=Fields!Cantidad.Value</Value>
                               <Style>
                                 <FontSize>7pt</FontSize>
-                                <Format>#,0.00;(#,0.00)</Format>
+                                <Format>#,0;(#,0)</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -2109,6 +2080,48 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Codigo">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Codigo.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Codigo</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>None</Style>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Style>None</Style>
+                        </BottomBorder>
+                        <LeftBorder>
+                          <Style>None</Style>
+                        </LeftBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="PS1">
@@ -2293,6 +2306,38 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style />
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>Solid</Style>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox83">
@@ -2404,6 +2449,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -2423,8 +2469,8 @@
         <Top>5.75246cm</Top>
         <Left>0.11468cm</Left>
         <Height>1.07241cm</Height>
-        <Width>20.01064cm</Width>
+        <Width>19.97804cm</Width>
-        <ZIndex>27</ZIndex>
+        <ZIndex>26</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2463,7 +2509,7 @@
         <Left>5.662in</Left>
         <Height>0.21567in</Height>
         <Width>2.26391in</Width>
-        <ZIndex>28</ZIndex>
+        <ZIndex>27</ZIndex>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -2748,7 +2794,7 @@
         <Left>5.73412in</Left>
         <Height>0.34081in</Height>
         <Width>2.19818in</Width>
-        <ZIndex>29</ZIndex>
+        <ZIndex>28</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2862,7 +2908,7 @@
         <Left>14.56464cm</Left>
         <Height>0.6cm</Height>
         <Width>5.58343cm</Width>
-        <ZIndex>30</ZIndex>
+        <ZIndex>29</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2876,7 +2922,13 @@
               <Width>3.33888cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>11.00525cm</Width>
+              <Width>3.672cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.83158cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.48541cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -2928,10 +2980,58 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>2</ColSpan>
+                    <ColSpan>3</ColSpan>
                   </CellContents>
                 </TablixCell>
                 <TablixCell />
+                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox74">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>calibri</FontFamily>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox74</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Style>Solid</Style>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                        </BottomBorder>
+                        <LeftBorder>
+                          <Style>Solid</Style>
+                        </LeftBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -2986,7 +3086,7 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox127">
+                    <Textbox Name="Textbox67">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
@@ -3005,19 +3105,34 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox127</rd:DefaultName>
+                      <rd:DefaultName>Textbox67</rd:DefaultName>
                       <Style>
                         <Border>
+                          <Color>White</Color>
                           <Style>None</Style>
                         </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                        </BottomBorder>
+                        <LeftBorder>
+                          <Style>Solid</Style>
+                        </LeftBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                        </RightBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>3</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -3049,7 +3164,7 @@
                       <Style>
                         <Border>
                           <Color>White</Color>
-                          <Style>None</Style>
+                          <Style>Solid</Style>
                         </Border>
                         <TopBorder>
                           <Style>Solid</Style>
@@ -3079,7 +3194,7 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox131">
+                    <Textbox Name="Textbox70">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
@@ -3098,19 +3213,25 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox131</rd:DefaultName>
+                      <rd:DefaultName>Textbox70</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Style>None</Style>
+                          <Color>White</Color>
+                          <Style>Solid</Style>
                         </Border>
+                        <BackgroundColor>White</BackgroundColor>
+                        <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>3</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -3118,14 +3239,14 @@
               <TablixCells>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox15">
+                    <Textbox Name="Textbox39">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>Uso CFDI:</Value>
+                              <Value>Orden de compra:</Value>
                               <Style>
                                 <FontFamily>calibri</FontFamily>
                                 <FontSize>9pt</FontSize>
@@ -3138,11 +3259,11 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <rd:DefaultName>Textbox39</rd:DefaultName>
                       <Style>
                         <Border>
                           <Color>White</Color>
-                          <Style>None</Style>
+                          <Style>Solid</Style>
                         </Border>
                         <TopBorder>
                           <Style>Solid</Style>
@@ -3172,14 +3293,14 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox17">
+                    <Textbox Name="Textbox71">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Parameters!UsoCFDI.Value</Value>
+                              <Value>=IIF(Parameters!OrdenCompra.Value = "-1","",Parameters!OrdenCompra.Value)</Value>
                               <Style>
                                 <FontFamily>calibri</FontFamily>
                                 <FontSize>8pt</FontSize>
@@ -3191,7 +3312,79 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox17</rd:DefaultName>
+                      <rd:DefaultName>Textbox71</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>White</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <VerticalAlign>Middle</VerticalAlign>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox40">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>fecha de vencimiento:</Value>
+                              <Style>
+                                <FontFamily>calibri</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox40</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>#ff1037</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox78">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Parameters!Vencimiento.Value</Value>
+                              <Style>
+                                <FontFamily>calibri</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox78</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -3236,7 +3429,7 @@
                       <Style>
                         <Border>
                           <Color>White</Color>
-                          <Style>None</Style>
+                          <Style>Solid</Style>
                         </Border>
                         <TopBorder>
                           <Style>Solid</Style>
@@ -3266,7 +3459,7 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox133">
+                    <Textbox Name="Textbox72">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
@@ -3285,20 +3478,25 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox133</rd:DefaultName>
+                      <rd:DefaultName>Textbox72</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Style>None</Style>
+                          <Color>White</Color>
+                          <Style>Solid</Style>
                         </Border>
-                        <VerticalAlign>Top</VerticalAlign>
+                        <BackgroundColor>White</BackgroundColor>
+                        <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>3</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -3330,7 +3528,7 @@
                       <Style>
                         <Border>
                           <Color>White</Color>
-                          <Style>None</Style>
+                          <Style>Solid</Style>
                         </Border>
                         <TopBorder>
                           <Style>Solid</Style>
@@ -3360,7 +3558,7 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox135">
+                    <Textbox Name="Textbox73">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
@@ -3379,20 +3577,25 @@
                           </Style>
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox135</rd:DefaultName>
+                      <rd:DefaultName>Textbox73</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Style>None</Style>
+                          <Color>White</Color>
+                          <Style>Solid</Style>
                         </Border>
-                        <VerticalAlign>Top</VerticalAlign>
+                        <BackgroundColor>White</BackgroundColor>
+                        <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>3</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -3447,10 +3650,12 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>2</ColSpan>
+                    <ColSpan>4</ColSpan>
                   </CellContents>
                 </TablixCell>
                 <TablixCell />
+                <TablixCell />
+                <TablixCell />
               </TablixCells>
             </TablixRow>
           </TablixRows>
@@ -3459,6 +3664,8 @@
           <TablixMembers>
             <TablixMember />
             <TablixMember />
+            <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -3476,8 +3683,8 @@
         <Top>6.91306cm</Top>
         <Left>0.11468cm</Left>
         <Height>5.76188cm</Height>
-        <Width>14.34413cm</Width>
+        <Width>14.32787cm</Width>
-        <ZIndex>31</ZIndex>
+        <ZIndex>30</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3520,7 +3727,7 @@
         <Left>0.04404in</Left>
         <Height>0.36457in</Height>
         <Width>7.87931in</Width>
-        <ZIndex>32</ZIndex>
+        <ZIndex>31</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -4022,7 +4229,7 @@
         <Left>0.05568cm</Left>
         <Height>2.97096cm</Height>
         <Width>20.1554cm</Width>
-        <ZIndex>33</ZIndex>
+        <ZIndex>32</ZIndex>
         <Visibility>
           <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
         </Visibility>
@@ -4036,11 +4243,10 @@
         <Source>Embedded</Source>
         <Value>VISTAPREVIA22</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>0cm</Top>
         <Left>19.87567cm</Left>
         <Height>18.27471cm</Height>
         <Width>0.33541cm</Width>
-        <ZIndex>34</ZIndex>
+        <ZIndex>33</ZIndex>
         <Visibility>
           <Hidden>=IIf(Parameters!CveVenta.Value &gt; 0, True,False)</Hidden>
         </Visibility>
@@ -4056,9 +4262,9 @@
         <Sizing>FitProportional</Sizing>
         <Top>1.19556cm</Top>
         <Left>0.14361cm</Left>
-        <Height>1.67893cm</Height>
+        <Height>1.22745cm</Height>
         <Width>4.7959cm</Width>
-        <ZIndex>35</ZIndex>
+        <ZIndex>34</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -4104,7 +4310,7 @@
         <Left>0.04515in</Left>
         <Height>0.37389in</Height>
         <Width>4.70134in</Width>
-        <ZIndex>36</ZIndex>
+        <ZIndex>35</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -4115,11 +4321,108 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox14">
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Uso CFDI: </Value>
+                <Style>
+                  <FontFamily>Calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!UsoCFDI.Value</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Régime: </Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>Personas Físicas con Actividades Empresariales y Profesionales</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Método de Pago:</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value)</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox10</rd:DefaultName>
+        <Top>0.99561in</Top>
+        <Left>3.82301in</Left>
+        <Height>0.62735in</Height>
+        <Width>1.99164in</Width>
+        <ZIndex>36</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <VerticalAlign>Top</VerticalAlign>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>25.59192cm</Height>
     <Style />
   </Body>
-  <Width>20.22041cm</Width>
+  <Width>20.21108cm</Width>
   <Page>
     <PageHeight>27.94cm</PageHeight>
     <PageWidth>21.59cm</PageWidth>

Empresas/80/Formatos/Entradas.rdlc

@@ -1742,6 +1742,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="TipoDocumento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="compuproveedores">

Empresas/Grales/Formatos/Conciliacion.rdlc

@@ -1664,7 +1664,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>10.21319cm</Top>
-        <Height>0.52945cm</Height>
+        <Height>0.42362cm</Height>
         <Width>477.16077pt</Width>
         <ZIndex>9</ZIndex>
         <Style>
@@ -1711,8 +1711,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>11.09954cm</Top>
+        <Top>10.63681cm</Top>
-        <Height>0.52945cm</Height>
+        <Height>0.42362cm</Height>
         <Width>477.16077pt</Width>
         <ZIndex>10</ZIndex>
         <Style>
@@ -1768,7 +1768,7 @@
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>10.21319cm</Top>
         <Left>16.83317cm</Left>
-        <Height>0.52945cm</Height>
+        <Height>0.42362cm</Height>
         <Width>84.80665pt</Width>
         <ZIndex>11</ZIndex>
         <Style>
@@ -1815,9 +1815,9 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>11.09954cm</Top>
+        <Top>10.63681cm</Top>
         <Left>16.83317cm</Left>
-        <Height>0.52945cm</Height>
+        <Height>0.42362cm</Height>
         <Width>84.80665pt</Width>
         <ZIndex>12</ZIndex>
         <Style>
@@ -1913,7 +1913,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>12.12288cm</Top>
+        <Top>12.33483cm</Top>
         <Left>16.83317cm</Left>
         <Height>0.52945cm</Height>
         <Width>84.80665pt</Width>
@@ -1958,7 +1958,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>LCP Sara Eduwiges Ruíz Félix</Value>
+                <Value>CP Sara Eduwiges Ruíz Félix</Value>
                 <MarkupType>HTML</MarkupType>
                 <Style />
               </TextRun>
@@ -1969,7 +1969,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>AgrupadoPor</rd:DefaultName>
-        <Top>16.10059cm</Top>
+        <Top>16.31254cm</Top>
         <Height>0.6cm</Height>
         <Width>561.96737pt</Width>
         <ZIndex>15</ZIndex>
@@ -2038,7 +2038,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>AgrupadoPor</rd:DefaultName>
-        <Top>15.43045cm</Top>
+        <Top>15.6424cm</Top>
         <Height>0.6cm</Height>
         <Width>561.96737pt</Width>
         <ZIndex>16</ZIndex>
@@ -2094,7 +2094,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>AgrupadoPor</rd:DefaultName>
-        <Top>12.91208cm</Top>
+        <Top>13.12403cm</Top>
         <Height>0.6cm</Height>
         <Width>561.96737pt</Width>
         <ZIndex>17</ZIndex>
@@ -2163,7 +2163,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>AgrupadoPor</rd:DefaultName>
-        <Top>13.68847cm</Top>
+        <Top>13.90042cm</Top>
         <Height>1.25264cm</Height>
         <Width>561.96737pt</Width>
         <ZIndex>18</ZIndex>
@@ -2177,11 +2177,114 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox38">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>SALDO FINAL SEGUN CONTABILIDAD COMPLEMENTARIA: </Value>
+                <Style>
+                  <FontSize>10.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <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>11.06042cm</Top>
+        <Height>0.42362cm</Height>
+        <Width>477.16077pt</Width>
+        <ZIndex>19</ZIndex>
+        <Visibility>
+          <Hidden>=IIF(Parameters!SaldoFinalContabilidadComplementaria.Value = 0,true,false)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox39">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!SaldoFinalContabilidadComplementaria.Value</Value>
+                <Style>
+                  <FontSize>10.5pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <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>11.06042cm</Top>
+        <Left>16.83317cm</Left>
+        <Height>0.42362cm</Height>
+        <Width>84.80665pt</Width>
+        <ZIndex>20</ZIndex>
+        <Visibility>
+          <Hidden>=IIF(Parameters!SaldoFinalContabilidadComplementaria.Value = 0,true,false)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>6.69322in</Height>
+    <Height>6.6828in</Height>
     <Style />
   </Body>
-  <Width>7.8051in</Width>
+  <Width>7.81552in</Width>
   <Page>
     <PageHeader>
       <Height>2.88508cm</Height>
@@ -2715,6 +2818,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="SaldoFinalContabilidadComplementaria">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

General/SaldosIniciales.aspx.vb

@@ -296,17 +296,17 @@ Partial Class General_SaldosIniciales
                     Exit Sub
                 End If
 
-                If RblFormato.SelectedValue = "4" Then
+                'If RblFormato.SelectedValue = "4" Then
-                    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
+                '    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
-                        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
+                '        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
-                        Exit Sub
+                '        Exit Sub
-                    End If
+                '    End If
 
-                    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
+                '    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
-                        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
+                '        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
-                        Exit Sub
+                '        Exit Sub
-                    End If
+                '    End If
-                End If
+                'End If
 
 
             ElseIf RblFormato.SelectedValue = "5" Then
@@ -683,6 +683,7 @@ Partial Class General_SaldosIniciales
                     DTPS = ObjPS.DtResultados
                 End If
 
+                Dim NuevaClasificacion As Boolean = False
 
                 For Each Row As DataRow In dt.Rows
                     Dim Codigo As String = Row("Codigo").ToString
@@ -718,8 +719,9 @@ 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
+                            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
                             CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
+                            NuevaClasificacion = True
                         End If
                     End If
 
@@ -831,7 +833,7 @@ Partial Class General_SaldosIniciales
                     'If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then Alert("No se encontró la Serie: " + Clasificacion2, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
 
                     If CvePS > 0 Then
-                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 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, Litraje:=Litraje, IEPSPorcentaje:=IEPS, CveClasificacion2:=CveClasificacion2, CveTamaño:=CveTamaño) 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,
@@ -878,6 +880,9 @@ Partial Class General_SaldosIniciales
                     UpDatos.Update()
                 Else
                     ObjPS.RollBack()
+                    If NuevaClasificacion Then
+                        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
+                    End If
                 End If
                 ObjPS.Dispose()
                 ObjGral.Dispose()
@@ -1356,8 +1361,8 @@ Partial Class General_SaldosIniciales
                     Dim Folio As Integer = Row("Folio").ToString.ToEntero
                     Dim Fecha As Date = Row("Fecha").ToString.ToDate
                     Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
-                    Dim ImpuestoLocal As Double = Row("ImpuestoLocal").ToString.ToDouble
+                    Dim ImpuestoLocal As Double = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDouble, 0.0)
-                    Dim Amortizacion As Double = Row("Amort.Ant").ToString.ToDouble
+                    Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString.ToDouble, 0.0)
                     Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
                     Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
                     Dim Total As Decimal = Row("Total").ToString.ToDecimal
@@ -1372,7 +1377,8 @@ Partial Class General_SaldosIniciales
                     Dim CveVendedor As Integer = 0
                     Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal
                     Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
-                    Dim ImpuestosLocales As Decimal = Row("ImpuestoLocal").ToString.ToDecimal
+                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0)
+                    Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
 
                     GuardaLog(Sucursal + "-" + Row("Folio").ToString)
                     'Temporalmente SE BORRARA
@@ -1437,6 +1443,12 @@ Partial Class General_SaldosIniciales
                                 ConceptoContablePago = 91
                             End If
 
+                            If FolioFiscal <> "" Then
+                                If Not ObjVentas.UpdateVentaFolioFiscal(FolioFiscal, CveVenta, UsuarioActual.CveEmpresa) Then
+                                    ErrorVentas = True
+                                    Exit For
+                                End If
+                            End If
 
                             'PrePólizaDetalle
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero) Then ErrorVentas = True : Exit For

Inicio.aspx

@@ -605,62 +605,62 @@
                 <div class="modal-body">
                     <div align="right">
                         <input type="text" id="TxtBusq" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusq','{0}')", GvVtaPUE.ClientID) %>" style="display: inline-block; width: 150px;" />
-                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusq','{0}')", GvVtaPUE.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusq','{0}')", GvVtaPUE.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                     </div>
                     <asp:GridView ID="GvVtaPUE" runat="server" AutoGenerateColumns="False"
-                            DataKeysNames="CveVenta"
+                        DataKeysNames="CveVenta"
-                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
+                        EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
-                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
+                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                            data-sort="true"
+                        data-sort="true"
-                            data-freezerows="1"
+                        data-freezerows="1"
-                            GridLines="None">
+                        GridLines="None">
-                            <Columns>
+                        <Columns>
-                                <asp:TemplateField HeaderText="SerieFolio">
+                            <asp:TemplateField HeaderText="SerieFolio">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        &nbsp;<asp:HyperLink ID="HplNum" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}") %>' Text='<%# Eval("SerieFolio") %>'></asp:HyperLink>
+                                    &nbsp;<asp:HyperLink ID="HplNum" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}") %>' Text='<%# Eval("SerieFolio") %>'></asp:HyperLink>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Fecha">
+                            <asp:TemplateField HeaderText="Fecha">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        &nbsp;<asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Literal>
+                                    &nbsp;<asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Cliente">
+                            <asp:TemplateField HeaderText="Cliente">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        &nbsp;<asp:Literal runat="server" Text='<%# Eval("NombreComercial")%>'></asp:Literal>
+                                    &nbsp;<asp:Literal runat="server" Text='<%# Eval("NombreComercial")%>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="SubProyecto">
+                            <asp:TemplateField HeaderText="SubProyecto">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        <asp:Literal runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
+                                    <asp:Literal runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        <asp:Literal runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
+                                    <asp:Literal runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField  ItemStyle-Width="10px" ItemStyle-HorizontalAlign="Left">
+                            <asp:TemplateField ItemStyle-Width="10px" ItemStyle-HorizontalAlign="Left">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        <asp:Literal runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>
+                                    <asp:Literal runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        <div style="margin-right: 20px">
+                                    <div style="margin-right: 20px">
-                                            <asp:Literal runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>
+                                        <asp:Literal runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>
-                                        </div>
+                                    </div>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                            </Columns>
+                        </Columns>
-                        </asp:GridView>
+                    </asp:GridView>
                     <div class="modal-footer">
                         <asp:UpdatePanel runat="server">
                             <ContentTemplate>
@@ -674,6 +674,104 @@
 
     </div>
 
+
+
+    <div id="ModalMitoteresat" class="modal ADS fade " role="dialog">
+        <div class="modal-dialog">
+
+            <!-- Modal content-->
+            <div class="modal-content  modal-lg">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Ventas sin registrar en SIG</h4>
+                </div>
+
+                <div class="modal-body">
+                    <div style="text-align: right">
+                        <asp:HyperLink runat="server" NavigateUrl="/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=4">Ver más</asp:HyperLink>
+                        <input type="text" id="TxtBusquedaFolioSat" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaFolioSat','{0}')", GvFoliosSAT.ClientID) %>" style="display: inline-block; width: 150px;" />
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaFolioSat','{0}')", GvFoliosSAT.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    </div>
+
+                    <asp:GridView ID="GvFoliosSAT" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron factura canceladas pendientes"
+                        DataKeyNames="FolioFiscal,RFC,Total"
+                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
+                        <Columns>
+                            <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
+                            <asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Proveedor" DataField="NombreProveedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <%--<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText=" ">
+                                <ItemTemplate>
+                                    <asp:LinkButton runat="server"  CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-plus'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Agregar la factura?" data-btn-ok-label="si"></asp:LinkButton>
+                                    <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-remove'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelacar la factura ante el sat?" data-btn-ok-label="si" />
+                                </ItemTemplate>
+                            </asp:TemplateField>--%>
+                        </Columns>
+                        <RowStyle CssClass="Texto" />
+                        <HeaderStyle CssClass="Titulos" />
+                    </asp:GridView>
+                </div>
+                <div class="modal-footer">
+                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                </div>
+            </div>
+        </div>
+    </div>
+
+
+    
+
+
+    <div id="ModalMitotereCancelaPendiente" class="modal ADS fade " role="dialog">
+        <div class="modal-dialog">
+
+            <!-- Modal content-->
+            <div class="modal-content  modal-lg">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Cancelaciones por Atender</h4>
+                </div>
+
+                <div class="modal-body">
+                    
+                    <div style="text-align: right">
+                        <asp:HyperLink runat="server" NavigateUrl="/Ventas/RepCancelacionesPorAtender.aspx">Ver más</asp:HyperLink>
+                        <input type="text" id="TxtBusquedaCancelaPendiente" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaCancelaPendiente','{0}')", gvCancelaPendiente.ClientID) %>" style="display: inline-block; width: 150px;" />
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaCancelaPendiente','{0}')", gvCancelaPendiente.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    </div>
+
+                    <asp:GridView ID="gvCancelaPendiente" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron factura canceladas pendientes"
+                        DataKeyNames="FolioFiscal,RFC,Total"
+                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
+                        <Columns>
+                            <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
+                            <asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Proveedor" DataField="NombreProveedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <%--<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText=" ">
+                                <ItemTemplate>
+                                    <asp:LinkButton runat="server"  CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-plus'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Agregar la factura?" data-btn-ok-label="si"></asp:LinkButton>
+                                    <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-remove'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelacar la factura ante el sat?" data-btn-ok-label="si" />
+                                </ItemTemplate>
+                            </asp:TemplateField>--%>
+                        </Columns>
+                        <RowStyle CssClass="Texto" />
+                        <HeaderStyle CssClass="Titulos" />
+                    </asp:GridView>
+                </div>
+                <div class="modal-footer">
+                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                </div>
+            </div>
+        </div>
+    </div>
+
+
+
+
     <div id="ModalComprasPUE" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
@@ -687,62 +785,62 @@
                 <div class="modal-body">
                     <div align="right">
                         <input type="text" id="TxtBus" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBus','{0}')", GvCompPUE.ClientID) %>" style="display: inline-block; width: 150px;" />
-                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBus','{0}')", GvCompPUE.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBus','{0}')", GvCompPUE.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                     </div>
                     <asp:GridView ID="GvCompPUE" runat="server" AutoGenerateColumns="False"
-                            DataKeysNames="CveCompra"
+                        DataKeysNames="CveCompra"
-                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
+                        EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
-                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
+                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                            data-sort="true"
+                        data-sort="true"
-                            data-freezerows="1"
+                        data-freezerows="1"
-                            GridLines="None">
+                        GridLines="None">
-                            <Columns>
+                        <Columns>
-                                <asp:TemplateField HeaderText="SerieFolio">
+                            <asp:TemplateField HeaderText="SerieFolio">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        &nbsp;<asp:HyperLink ID="HplNum" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}") %>' Text='<%# Eval("SerieFolio") %>'></asp:HyperLink>
+                                    &nbsp;<asp:HyperLink ID="HplNum" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}") %>' Text='<%# Eval("SerieFolio") %>'></asp:HyperLink>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Fecha">
+                            <asp:TemplateField HeaderText="Fecha">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        &nbsp;<asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Literal>
+                                    &nbsp;<asp:Literal runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Proveedor">
+                            <asp:TemplateField HeaderText="Proveedor">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        &nbsp;<asp:Literal runat="server" Text='<%# Eval("NombreComercial")%>'></asp:Literal>
+                                    &nbsp;<asp:Literal runat="server" Text='<%# Eval("NombreComercial")%>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="SubProyecto">
+                            <asp:TemplateField HeaderText="SubProyecto">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        <asp:Literal runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
+                                    <asp:Literal runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        <asp:Literal runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
+                                    <asp:Literal runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField  ItemStyle-Width="10px" ItemStyle-HorizontalAlign="Left">
+                            <asp:TemplateField ItemStyle-Width="10px" ItemStyle-HorizontalAlign="Left">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        <asp:Literal runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>
+                                    <asp:Literal runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
-                                    <ItemTemplate>
+                                <ItemTemplate>
-                                        <div style="margin-right: 20px">
+                                    <div style="margin-right: 20px">
-                                            <asp:Literal runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>
+                                        <asp:Literal runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>
-                                        </div>
+                                    </div>
-                                    </ItemTemplate>
+                                </ItemTemplate>
-                                </asp:TemplateField>
+                            </asp:TemplateField>
 
-                            </Columns>
+                        </Columns>
-                        </asp:GridView>
+                    </asp:GridView>
                     <div class="modal-footer">
                         <asp:UpdatePanel runat="server">
                             <ContentTemplate>
@@ -767,13 +865,15 @@
                 </div>
 
                 <div class="modal-body">
-                    <div align="left">
+                    <div class="row">
+                        <div class="col-md-6"> 
                         # Inconsistencias:
                     <asp:Label ID="LblInconsistenciasNum" runat="server" Text="0" Font-Bold="true"></asp:Label>
                     </div>
-                    <div align="right">
+                            <div  class="col-md-6" style="text-align :right">
                         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvIncons.ClientID) %>" style="display: inline-block; width: 150px;" />
-                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvIncons.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvIncons.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    </div>
                     </div>
                     <asp:GridView ID="GvIncons" runat="server" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                     </asp:GridView>
@@ -800,7 +900,15 @@
                 </div>
 
                 <div class="modal-body">
-                    # No Timbradas:
+                    <div class="row">
+                        <div class="col-md-6"># No Timbradas:</div>
+                            <div  class="col-md-6" style="text-align :right">
+                                <input type="text" id="TxtBusquedaCentroCosto" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaCentroCosto','{0}')", GvNoTimbradasCentroCosto.ClientID) %>" style="display: inline-block; width: 150px;" />
+                                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaCentroCosto','{0}')", GvNoTimbradasCentroCosto.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            </div>
+
+                    </div>
+
                     <asp:Label ID="LblNoTimbradas" runat="server" Text="0" Font-Bold="true"></asp:Label>
                     <asp:GridView ID="GvNoTimbradasCentroCosto" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="false" runat="server" GridLines="None">
                         <Columns>

Inicio.aspx.vb

@@ -16,7 +16,29 @@ Partial Class Inicio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            'RESTRICCION AD
+            If UsuarioActual.CveUsuario = 100 Then
+
+                Using objgral As New ClsGenerales
+                    objgral.RepConciliacionSatDetalleGET(UsuarioActual.CveEmpresa, "I", "", "", 10)
+                    If objgral.DtResultados.Rows.Count > 0 Then
+                        GvFoliosSAT.DataSource = objgral.DtResultados
+                        RegistraScript("$('#ModalMitoteresat').modal();", "mitoterosat")
+                    End If
+
+                End Using
+                GvFoliosSAT.DataBind()
+            End If
+            If UsuarioActual.CveUsuario = 100 Then
+                Using objventas As New ClsVentas
+                    If (objventas.GetFacturasCanceladasPendientesWS(UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa, False)) AndAlso objventas.DtResultados.Rows.Count > 0 Then
+                        RegistraScript("$('#ModalMitotereCancelaPendiente').modal();", "mitoterosatCanceladasPendientesWS")
+
+                    End If
+                End Using
+            End If
+            'Exit Sub
+
+            'RESTRICCION AD
             If Not IsNothing(Request("ADCod")) Then
                 'viene el msg encriptado, para sacar el modulo
                 Dim Codigo As String = Decripta(Request("ADCod"))

Inventarios/Kardex.aspx

@@ -161,6 +161,10 @@
                                         </span>
                                         <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                         <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                        <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                     </div>
                                 </div>
                             </div>
@@ -175,6 +179,10 @@
                                     </div>
                                     <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
                             <div class="col-md-1">

Inventarios/RecepcionEntrega.aspx.vb

@@ -1868,112 +1868,7 @@ Partial Class Inventarios_RecepcionEntrega
             End If
             ' TERMINA: GARANTIAS
 
-            ' COMIENZA: VIRTUAL
-            If TipoDocto.Contiene("Ing") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
 
-                Dim DtPSVirtual As New DataTable("DtTamanios")
-                DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
-                DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
-                DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
-                DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
-
-                Dim DtTamanios As DataTable = Nothing
-
-                If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
-                    DtTamanios = ObjAcumuladores.DtResultados.Copy()
-                End If
-
-                Dim CveConceptoMovimientoVirtual As Integer = -1
-                Dim CveAlmacenVirtual As Integer = -1
-                Dim CveMovimientoRelacionadoVirtual As Integer = -1
-                Dim ValidaVirtual As Boolean = False
-
-                If TipoMovimiento = 1 Then
-                    For Each GvRow As GridViewRow In GvDatos.Rows
-                        If GvRow.RowType = DataControlRowType.DataRow Then
-
-                            If GvRow.datakey("CveTamaño").tostring.toentero > 0 Then
-                                ValidaVirtual = True ' si tiene tamaño, debe de tener virtual
-                                Dim drr As DataRow = DtTamanios.FiltroPrimero(String.Format("CveTamaño={0}", GvRow.DataKey("CveTamaño")))
-                                If drr IsNot Nothing Then
-
-                                    Dim CvePSCargo = drr("CvePSCargo").ToString().ToEntero()
-                                    Dim Row As DataRow = DtPSVirtual.NewRow()
-                                    Row("CvePS") = CvePSCargo
-                                    Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
-                                    Row("PU") = 0
-                                    Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
-
-                                    DtPSVirtual.Rows.Add(Row)
-                                End If
-
-                            End If
-
-                        End If
-                    Next
-                    CveConceptoMovimientoVirtual = 3
-                    CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
-
-                ElseIf TipoMovimiento = 2 Then
-                    ValidaVirtual = True
-                    Dim CveMovimientoSalidaDev As Integer = -1
-                    If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
-                        Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0")
-                        CveMovimientoSalidaDev = RowMovimiento("CveMovimiento").ToString().ToEntero()
-                        CveAlmacenVirtual = RowMovimiento("CveAlmacen").ToString().ToEntero()
-                        CveMovimientoRelacionadoVirtual = CveMovimientoSalidaDev
-                    Else
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar el movimiento. Por favor vuelva a intentar."
-                    End If
-
-                    'CARGA CONCEPTOS DEVUELTOS EN LA VENTA
-                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDev, UsuarioActual.CveEmpresa) Then
-                        DtPSVirtual = ObjInventario.DtResultados.Copy()
-                    Else
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar los movimientos de devolución. Por favor vuelva a intentar."
-                    End If
-                    CveConceptoMovimientoVirtual = 18
-                End If
-
-                If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
-                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
-                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
-                    FolioVirtual = ObjInventario.Folio
-
-                    If CveMovimientoVirtual > 0 Then
-                        For Each RowUsado As DataRow In DtPSVirtual.Rows
-                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                            Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
-                            Dim PU As Double = RowUsado("PU").ToString().ToDouble()
-                            Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
-                                ErrorMovInv = True
-                                TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
-                                Exit For
-                            End If
-                        Next
-                    Else
-                        ErrorMovInv = True
-                    End If
-
-                Else
-                    If ValidaVirtual Then
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
-
-                    End If
-                End If
-
-                If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
-                    ErrorMovInv = True
-                    TextoError = "No se tienen productos para el almacen virtual."
-                End If
-            End If
-
-            ' TERMINA: VIRTUAL
 
             If Not ErrorMovInv Then
                 Dim ConceptoMovimiento = 3
@@ -2097,7 +1992,7 @@ Partial Class Inventarios_RecepcionEntrega
                     Else
                         If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, EsInterno:=EsInterno) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero()) Then
                                     ErrorMovInv = True
                                     TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
@@ -2316,8 +2211,81 @@ Partial Class Inventarios_RecepcionEntrega
                 End If
             End If
 
-            'AGREGA BITACORA A VENTA
+            ' COMIENZA: VIRTUAL
-            If Not ErrorMovInv Then
+            If TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then
+                Dim DtPSVirtual As New DataTable("DtTamanios")
+
+                If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                    DtPSVirtual = ObjInventario.DtResultados
+                End If
+
+                '
+                'DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+                'DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+                'DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal)))
+                'DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
+
+                'Dim DtTamanios As DataTable = Nothing
+
+                'If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
+                '    DtTamanios = ObjAcumuladores.DtResultados.Copy()
+                'End If
+
+                Dim CveConceptoMovimientoVirtual As Integer = -1
+                Dim CveAlmacenVirtual As Integer = -1
+                Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
+                Dim ValidaVirtual As Boolean = False
+                CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+
+                If TipoMovimiento = 1 Then
+                    CveConceptoMovimientoVirtual = 37
+
+                ElseIf TipoMovimiento = 2 Then
+                    ValidaVirtual = True
+                    CveConceptoMovimientoVirtual = 36
+                End If
+
+                If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                                                                       Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
+                        FolioVirtual = ObjInventario.Folio
+
+                        If CveMovimientoVirtual > 0 Then
+                            For Each RowUsado As DataRow In DtPSVirtual.Rows
+                                Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+                                Dim PU As Double = RowUsado("PU").ToString().ToDouble()
+                                Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
+                                    ErrorMovInv = True
+                                    TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
+                                    Exit For
+                                End If
+                            Next
+                        Else
+                            ErrorMovInv = True
+                        End If
+
+                    Else
+                        If ValidaVirtual Then
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
+
+                        End If
+                    End If
+
+                    If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
+                        ErrorMovInv = True
+                        TextoError = "No se tienen productos para el almacen virtual."
+                    End If
+                End If
+
+                ' TERMINA: VIRTUAL
+
+
+                'AGREGA BITACORA A VENTA
+                If Not ErrorMovInv Then
                 Dim MensajeBitacora = If(TipoMovimiento = 1, "Surtida", "Devuelta")
                 If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaSurtir) Then
                     ErrorMovInv = True
@@ -2334,7 +2302,7 @@ Partial Class Inventarios_RecepcionEntrega
             RegistraScript("playsonidito('beep-07.wav')")
             Dim Msg As New StringBuilder
 
-            Msg.AppendFormat("Movimiento Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimiento, Folio)
+            Msg.AppendFormat("Movimiento {2}: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimiento, Folio, If(TipoMovimiento = 1, "Salida", "Entrada"))
             Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
 
             If CveMovimientoEntrada > 0 Then
@@ -2355,7 +2323,7 @@ Partial Class Inventarios_RecepcionEntrega
             End If
 
             If CveMovimientoVirtual > 0 Then
-                Msg.AppendFormat("<br/><br/> Movimiento de Salida del Almacen Virtual: ")
+                Msg.AppendFormat("<br/><br/> {0} Almacen Virtual: ", If(TipoMovimiento = 1, "Salida", "Entrada"))
                 Msg.AppendFormat("<b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoVirtual, FolioVirtual)
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtual)))
             End If

Inventarios/RecepcionUsados.aspx.vb

@@ -309,6 +309,14 @@ Partial Class Inventarios_RecepcionUsados
             ViewState("TmpDTAjustes") = value
         End Set
     End Property
+    Private Property DtPorcentajeMarcas As DataTable
+        Get
+            Return If(IsNothing(ViewState("DtPorcentajeMarcas")), Nothing, CType(ViewState("DtPorcentajeMarcas"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("DtPorcentajeMarcas") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -2442,13 +2450,18 @@ Partial Class Inventarios_RecepcionUsados
     Public Sub OnRblUsadosAjuste_Change(sender As Object, e As EventArgs)
         DdlAlmacen.Items.Clear()
         If RblUsadosAjuste.SelectedValue = "1" Then
-            CargaAjuste()
+            If DdlClientes.SelectedValue <> "-1" Then
-            DivAjuste.Visible = True
+                CargaAjuste()
-            'Llenar el dropdownlist de almacén
+                DivAjuste.Visible = True
-            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6)
+                'Llenar el dropdownlist de almacén
-            LnkAgregarUsado.Visible = False
+                DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6)
-            UppAcciones.Update()
+                CargarDescuento()
-
+                LnkAgregarUsado.Visible = False
+                UppAcciones.Update()
+            Else
+                Alert("hace falta seleccionar un cliente")
+                RblUsadosAjuste.SelectedValue = "0"
+            End If
         Else
             DivAjuste.Visible = False
             'Llenar el dropdownlist de almacén
@@ -2545,6 +2558,31 @@ Partial Class Inventarios_RecepcionUsados
                 End If
 
             End If
+            Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString))
+            If MarcaPorcentaje IsNot Nothing Then
+                Dim PorcentajeProducto As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100
+                Dim PorcentajeProducto2 As Decimal = MarcaPorcentaje("PorcentajeProducto2").ToString.ToDecimal / 100
+                Dim PorcentajeProducto3 As Decimal = MarcaPorcentaje("PorcentajeProducto3").ToString.ToDecimal / 100
+
+                If PorcentajeProducto > 0 Then
+
+                    Dim MontoDescuento As Decimal = PrecioSugerido * PorcentajeProducto
+                    PrecioSugerido -= MontoDescuento
+
+                    If PorcentajeProducto2 > 0 Then
+
+                        MontoDescuento = PrecioSugerido * PorcentajeProducto2
+                        PrecioSugerido -= MontoDescuento
+
+                        If PorcentajeProducto3 > 0 Then
+                            MontoDescuento = PrecioSugerido * PorcentajeProducto3
+                            PrecioSugerido -= MontoDescuento
+                        End If
+                    End If
+                End If
+
+            End If
+
             txtPrecio.Text = PrecioSugerido.FormatoNumero(2)
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
         End If
@@ -2713,6 +2751,14 @@ Partial Class Inventarios_RecepcionUsados
         End If
         ObjPS.Dispose()
     End Sub
+
+    Protected Sub CargarDescuento()
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetPorcentajeMarcas(DdlClientes.SelectedValue.ToEntero) Then
+            DtPorcentajeMarcas = ObjPS.DtResultados.Copy()
+        End If
+        ObjPS.Dispose()
+    End Sub
 #End Region
 
 End Class

Inventarios/TraspasoAlmacen.aspx.vb

@@ -804,7 +804,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
-            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
+            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
             FolioVirtualSalida = ObjInventario.Folio
             Dim dtvirtual As DataTable = Nothing
 
@@ -829,11 +829,11 @@ Partial Class Inventarios_TraspasoAlmacen
         'AGREGAMOS LA ENTRADA
         If Not ChkTransitorio.Checked Then 'SI NO ES TRANSITORIO SE HACE LA RECEPCION DE INMEDIATO
             If Not ErrorMovInv Then
-                Dim TipoMovimientoEntrada = 9
+                Dim TipoMovimientoEntrada = 36
                 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
-                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G")
+                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G")
                 FolioEntrada = ObjInventario.Folio
                 If CveMovimientoEntrada <= 0 Then
                     TextoError = "Ocurrió un error al generar el movimiento de entrada"

OC/OC.aspx

@@ -286,11 +286,12 @@
                                             <div class="row">
                                                 <label class="col-md-2">Proveedor:</label>
                                                 <div class="col-md-9">
-                                                    <asp:DropDownList ID="DdlProveedores" CssClass="select2me" AutoPostBack="True" Style="width: 100%;" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor">
+                                                    <%--<asp:DropDownList ID="DdlProveedores" CssClass="select2me" AutoPostBack="True" Style="width: 100%;" runat="server" DataTextField="NombreCortoProveedor" DataValueField="CveProveedor">
                                                         <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                                    </asp:DropDownList>
+                                                    </asp:DropDownList>--%>
-                                                    <asp:RangeValidator ID="RVProveedores" CssClass="form-control" runat="server" ControlToValidate="DdlProveedores" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                                    <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
-                                                    <ajax:ValidatorCalloutExtender ID="VCOProveedores" runat="server" HighlightCssClass="vco" TargetControlID="RVProveedores" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                    <%--<asp:RangeValidator ID="RVProveedores" CssClass="form-control" runat="server" ControlToValidate="DdlProveedores" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCOProveedores" runat="server" HighlightCssClass="vco" TargetControlID="RVProveedores" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                                     <asp:ImageButton ID="ImgCambiaProv" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" />
                                                 </div>
                                                 <div class="col-md-1" style="padding-left: 0px;">
@@ -2555,9 +2556,11 @@
                         <div class="col-md-6 v-center">
                             <label class="col-md-6 v-center truncate">Proveedor:</label>
                             <div class="col-md-6 v-center">
-                                <asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>
+                                <%--<asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
-                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+                                <ADS:Dropdownlost runat="server" ID="DdlProveedorCot" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
-                                <ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                    
+<%--                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                             </div>
                         </div>
                     </div>

OC/OC.aspx.vb

@@ -476,6 +476,7 @@ Partial Class OC
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
             CargaDatosAgregarPS()
             'MODALIDAD MULTIEMPRESA
             CveEmpresaActual = UsuarioActual.CveEmpresa
@@ -754,7 +755,6 @@ Partial Class OC
             UPPDetalle.Update()
 
             PermisosPagina()
-
             RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();")
         End If
         Me.Form.DefaultButton = ""
@@ -1294,7 +1294,12 @@ Partial Class OC
                             HplCompraContabilizada.Text = "No"
                         End If
 
-                        DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString)
+                        DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
+                        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+                            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
+                        Else
+                            DdlProveedores.SelectedText = "-"
+                        End If
 
                         'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ
                         Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero
@@ -1330,7 +1335,12 @@ Partial Class OC
                         lblFolio.Text = "REQ " + objOC.Folio.ToString
                         lblTipoPadreHijo.Text = "OC"
                         ChkCotizacion.Visible = True
-                        DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString)
+                        DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
+                        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+                            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
+                        Else
+                            DdlProveedores.SelectedText = "-"
+                        End If
 
                         If objOC.CveProveedorSucursal.ToEntero > 0 Then
                             DivProveedorSucursal.Visible = True
@@ -1494,14 +1504,14 @@ Partial Class OC
             'Permisos, para cambiar el proveedor en una OC
             If objOC.Tipo.ToUpper = "OC" AndAlso UsuarioActual.TienePermisoProceso(111) Then
                 DdlProveedores.Enabled = True
-                DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString)
+                DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString)
                 DdlIVA.Enabled = True
                 ImgCambiaProv.Visible = True
                 UPProv.Update()
             End If
 
             If DdlProveedores.SelectedValue <> objOC.CveProveedor.ToString Then
-                DdlProveedores.Items.Insert(1, New ListItem(GlobalDTCompProveedores(CveEmpresaActual).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {objOC.CveProveedor}"), objOC.CveProveedor.ToString))
+                'DdlProveedores.Items.Insert(1, New ListItem(GlobalDTCompProveedores(CveEmpresaActual).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {objOC.CveProveedor}"), objOC.CveProveedor.ToString))
             End If
 
             CargaCotizaciones(CveOrdenCompra)
@@ -1741,13 +1751,25 @@ Partial Class OC
         CboUnidadMedida.DataBind()
     End Sub
     Private Sub CargaProveedores()
-        DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-        DdlProveedores.DataBind()
+            DdlProveedores.setEsWebService(True)
-        DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedores.SelectedText = "Seleccione"
+            DdlProveedores.SelectedValue = "-1"
+            DdlProveedorCot.setEsWebService(True)
+            DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores")
+        Else
+
+            DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
+            DdlProveedores.DataBind()
+            DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
+            DdlProveedorCot.DataBind()
+            DdlProveedorCot.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        End If
 
-        DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
-        DdlProveedorCot.DataBind()
-        DdlProveedorCot.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         UPProv.Update() : UPPEmp.Update()
     End Sub
@@ -1755,7 +1777,7 @@ Partial Class OC
     Private Sub CargaProveedorSucursal()
         DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
         DdlProveedores.DataBind()
-        DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
         UPProv.Update() : UPPEmp.Update()
     End Sub
     Private Sub CargaEstatusOC()
@@ -2098,6 +2120,8 @@ Partial Class OC
             Return True
         End If
 
+
+
         'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
         'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then
         '    If Not UsuarioActual.TienePermisoProceso(179) Then 'PERMISO PARA GENERAR CON O
@@ -2215,6 +2239,13 @@ Partial Class OC
             TieneError = True
         End If
 
+        'Valida que tenga proveedore
+        If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
+
+
         'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
         If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
             If (TipoOC.ToUpper = "REQ" And CboE.SelectedValue.ToEntero.Contiene(CveEstatusSupervisada, CveEstatusFinalOK)) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
@@ -2614,7 +2645,7 @@ Partial Class OC
                         If Not TieneError Then
                             Fecha = Now
                             CveProveedor = DdlProveedores.SelectedValue.ToEntero
-                            ProveedorNombre = DdlProveedores.SelectedItem.Text
+                            ProveedorNombre = DdlProveedores.SelectedText
                             SerieFolio = $"OC: {Folio}"
 
                             If DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,1) AND Diferencia <> 0 ").Rows.Count > 0 Then
@@ -2952,12 +2983,12 @@ Partial Class OC
                     End If
 
                     'AGREGA DETALLES
-                    If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, 
+                    If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero,
-                                                                dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), 
+                                                                dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(),
                                                                 dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra,
-                                                                CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, 
+                                                                CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble,
-                                                                IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, 
+                                                                IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble,
-                                                                RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, 
+                                                                RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble,
                                                                 CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble,
                                                                 RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble,
                                                                 IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then
@@ -4724,7 +4755,7 @@ Partial Class OC
         ChkEventoPrioridad.Checked = False
         RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
 
-            CargaEventoBitacoraTemp()
+        CargaEventoBitacoraTemp()
 
 
     End Sub
@@ -4880,7 +4911,7 @@ Partial Class OC
         Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
         Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
         Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto
-        Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedItem.Text))
+        Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedText))
         Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
         Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
         Hilo.Start(Param)
@@ -4894,7 +4925,7 @@ Partial Class OC
                 Dim DtPara As DataTable = GlobalDTUsuarios(Dr("CveUsuarioPara").ToString.ToEntero, CveEmpresaActual)
                 Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
                 Param.Add("Solicitud de anticipo de Orden de Compra Cancelada") 'Asunto
-                Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedItem.Text))
+                Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedText))
                 Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
                 Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
                 Hilo.Start(Param)
@@ -5118,7 +5149,7 @@ Partial Class OC
         Return CveEmpresaActual = 66
     End Function
 
-    Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged
+    Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.selectedindexchange
         Dim Objeto As New ClsCompProveedores
 
         DdlProveedorSucursal.Items.Clear()
@@ -5191,7 +5222,7 @@ Partial Class OC
         PnlUsuarioAsignado.Visible = False
 
 
-        RVProveedores.Enabled = False
+        'RVProveedores.Enabled = False
         'Si NO requiere cotizacion y el estatus siguiente es el final,
         If TipoOC.ToUpper = "REQ" Then
 
@@ -5203,7 +5234,7 @@ Partial Class OC
 
             If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero.Contiene(CveEstatusFinalOK) AndAlso TipoOS = False Then
                 BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update()
-                RVProveedores.Enabled = True
+                'RVProveedores.Enabled = True
 
                 If CveEmpresaActual.Contiene(13, 83, 72) Then
                     PnlUsuarioAsignado.Visible = True
@@ -5228,7 +5259,7 @@ Partial Class OC
                 If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ")
             End If
         Else
-            RVProveedores.Enabled = True
+            'RVProveedores.Enabled = True
         End If
 
 
@@ -6392,7 +6423,7 @@ Partial Class OC
         Dim CveProveedorPrevio As String = DdlProveedores.SelectedValue
         Dim CveProveedorSucursalPrevio As String = DdlProveedorSucursal.SelectedValue
         CargaProveedores()
-        DdlProveedores.SelectedValueExist(CveProveedorPrevio)
+        DdlProveedores.ddl.SelectedValueExist(CveProveedorPrevio)
         DdlProveedores_SelectedIndexChanged(DdlProveedores, EventArgs.Empty)
         If DdlProveedorSucursal.Visible Then
             DdlProveedorSucursal.SelectedValueExist(CveProveedorSucursalPrevio)

Planeacion/CatSubProyectos.aspx.vb

@@ -119,7 +119,7 @@ Partial Class CatSubProyectos
     Public Sub CargaDatos()
 
         Dim ObjSub As New ClsSubProyectos
-        If ObjSub.GetSubProyectos() Then
+        If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjSub.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
             GvDatos.DataBind()
         End If
@@ -204,7 +204,7 @@ Partial Class CatSubProyectos
         If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+            GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
             Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -232,7 +232,7 @@ Partial Class CatSubProyectos
             If ObjSubProyectos.UpdateSubProyectoSegNeg(CveSubProyecto, CveSegmento, UsuarioActual.CveEmpresa) Then
                 GvDatos.EditIndex = -1
                 ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+                GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
             Else
                 ErrorSubProyecto = True

Scripts/funciones.js

@@ -655,14 +655,14 @@ function AbrirVentana(Pagina, Ancho, Alto, tmp, Titulo) {
     if (!(Alto)) { Alto = '601'; }
     $('#ajaxidmodal #myFrame').css({ width: Ancho, height: Alto });
     $('#ajaxidmodal ').css({ width: Ancho, height: Alto });
-    $('#ajaxidmodal #myFrame').load(function() {
+    $("#ajax").modal();
-        $('#ajaxidmodal').removeClass("hidden");
+    $('#ajaxidmodal').removeClass("hidden");
-        $("#ajax").modal();
+    $("#ajaxidmodal #myFrame").unbind("load");
+    $('#ajaxidmodal #myFrame').load(function () {
         Metronic.unblockUI();
     });
     $('#ajaxidmodal #myFrame').prop('src', Pagina);
-    $("#ajax").modal();
+    //$("#ajax").modal(); 
-        return false;
 }
 
 function CerrarVentana() {

Ventas/CatClasificaciones.aspx.vb

@@ -89,7 +89,6 @@ Partial Class CatClasificaciones
 
             CargaDdlSATPS()
             CargaDDLs()
-            CargaGlobal()
 
             DdlCategoriaFiltro.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
             DdlCategoriaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -152,20 +151,20 @@ Partial Class CatClasificaciones
         CargaGrid()
     End Sub
 
-    Public Sub CargaGlobal()
+    'Public Sub CargaGlobal()
 
-        Dim ObjClasificaciones As New ClsClasificaciones
+    '    Dim ObjClasificaciones As New ClsClasificaciones
 
-        If ObjClasificaciones.GetClasificaciones() Then
+    '    If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
-            ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros($"(Codigo IS NULL OR Codigo = '') AND CveEmpresa = {UsuarioActual.CveEmpresa} AND (CveCategoria = {DdlCategoriaFiltro.SelectedValue.ToEntero} OR {DdlCategoriaFiltro.SelectedValue.ToEntero} = -1) AND (UsoClasificacion = {DdlTipoClasificacion.SelectedValue.ToEntero} OR {DdlTipoClasificacion.SelectedValue.ToEntero} = -1 ) AND (Estado = {DdlEstatus.SelectedValue.ToEntero} OR {DdlEstatus.SelectedValue.ToEntero} = -1)")
+    '        ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros($"(Codigo IS NULL OR Codigo = '') AND CveEmpresa = {UsuarioActual.CveEmpresa} AND (CveCategoria = {DdlCategoriaFiltro.SelectedValue.ToEntero} OR {DdlCategoriaFiltro.SelectedValue.ToEntero} = -1) AND (UsoClasificacion = {DdlTipoClasificacion.SelectedValue.ToEntero} OR {DdlTipoClasificacion.SelectedValue.ToEntero} = -1 ) AND (Estado = {DdlEstatus.SelectedValue.ToEntero} OR {DdlEstatus.SelectedValue.ToEntero} = -1)")
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+    '        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
-        Else
+    '    Else
-            Me.GvDatos.DataSource = Nothing
+    '        Me.GvDatos.DataSource = Nothing
-            Alert("Ocurrió un error al cargar las clasificaciones. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+    '        Alert("Ocurrió un error al cargar las clasificaciones. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-        End If
+    '    End If
 
-        ObjClasificaciones.Dispose()
+    '    ObjClasificaciones.Dispose()
-    End Sub
+    'End Sub
 
 
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
@@ -212,7 +211,7 @@ Partial Class CatClasificaciones
             End If
         End If
 
-        CargaGlobal()
+        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
         ObjClasificaciones.Dispose()
         CargaDatos()
 
@@ -317,6 +316,7 @@ Partial Class CatClasificaciones
         If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
             Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
         Else
             Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -324,7 +324,7 @@ Partial Class CatClasificaciones
 
         ObjClasificaciones.Dispose()
         CargaGrid()
-        CargaGlobal()
+
     End Sub
 
 #End Region
@@ -348,7 +348,9 @@ Partial Class CatClasificaciones
 
         TxtClasificacion.Text = ""
         TxtPrecioBaseCosto.Text = ""
-        DdlCategoria.SelectedIndex = 0
+        If DdlCategoria.Items.Count > 0 Then
+            DdlCategoria.SelectedIndex = 0
+        End If
         DdlSATPS.SelectedValue = ""
         DdlSATPS.SelectedText = ""
         LtlTituloModal.Text = "Agregar Clasificación"

Ventas/CatVendedores.aspx.vb

@@ -137,11 +137,12 @@ Partial Class Ventas_CatVendedores
 
 #Region "CARGA GLOBAL"
     Private Sub CargaGlobal()
-        Dim ObjVendedores As New ClsVtaVendedores
+        GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing
-        If ObjVendedores.GetVendedores(-1) Then
+        'Dim ObjVendedores As New ClsVtaVendedores
-            GlobalDTVendedores(-1) = ObjVendedores.DtResultados
+        'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
-        End If
+        '    GlobalDTVendedores(-1) = ObjVendedores.DtResultados
-        ObjVendedores.Dispose()
+        'End If
+        'ObjVendedores.Dispose()
     End Sub
 #End Region
 

Ventas/Clientes.aspx.vb

@@ -820,6 +820,10 @@ Partial Class Clientes
                 UpFiscalContable.Update()
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+                DivTipoRetenciones.Visible = True
+            End If
+
             If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero > 0 Then
                 ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM")
                 CargaDatosCRM()
@@ -1374,7 +1378,8 @@ Partial Class Clientes
                 TxtGiro.Text = ObjClientes.Giro
                 DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString
                 TxtCC.Text = ObjClientes.NotificarA
-                ChkMail.Checked = ObjClientes.EnviarFactura
+                ChkMail.Checked = ObjClientes.EnviarFactura
+                DdlTipoRetencion.SelectedValueExist(ObjClientes.DtResultados(0)("CveTipoRetencion").ToString)
                 TxtRetIVA.Text = ObjClientes.RetIVA.ToString
                 TxtRetISR.Text = ObjClientes.RetISR.ToString
                 ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
@@ -2411,7 +2416,7 @@ Partial Class Clientes
                                     CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero,
                                     CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
-                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked) Then
+                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2505,7 +2510,8 @@ Partial Class Clientes
                                         AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero, CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero,
                                         CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(),
-                                        ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked) Then
+                                        ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
+                                        RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero()) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)
@@ -3912,7 +3918,7 @@ Partial Class Clientes
                                                         Gracias por la atención brindada al presente.<br /> Reciba un cordial saludo.<br />
                                                         <br />
                                                         <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
-                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
+                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
                         Hilo.Start()
                         Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
                     Catch ex As Exception
@@ -3979,7 +3985,7 @@ Partial Class Clientes
             End If
         End If
     End Sub
-    Private Sub MandaCorreoEstadoCuenta(File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
+    Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
 
         Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
         'a.GuardaLog()
@@ -3992,7 +3998,7 @@ Partial Class Clientes
 
         If Envio AndAlso GuardarBitacora Then
             Using ObjBitacora As New ClsOIEventos
-                ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente)
+                ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", CveUsuario, CveEmpresa, CveCliente:=CveCliente)
             End Using
         End If
 
@@ -9934,6 +9940,6 @@ Partial Class Clientes
         Acum.Dispose()
 
     End Sub
-#End Region
+#End Region
 End Class
 

Ventas/ClientesAbonar.aspx.vb

@@ -459,7 +459,7 @@ Partial Class Ventas_ClientesAbonar
         TxtImporte.Text = ""
         TxtObservaciones.Text = ""
         If SumDescuentoProntoPago > 0.0 Then
-            GvCxC.Columns("DescuentoProntoPago").Visible = True
+            GvCxC.Columns(14).Visible = True
         End If
 
         Mov.Dispose()

Ventas/PV.aspx

@@ -616,8 +616,7 @@
                                                 </th>
                                                 <th id="thEncIEPS1" runat="server" visible="false">IEPS
                                                 </th>
-                                                <th>Total&nbsp<%--;<asp:LinkButton ID="ImgDescConcepto" runat="server" Text="<i class='fa fa-comment-o'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" /></th>--%>
+                                                <th>Total&nbsp<%--;<asp:LinkButton ID="ImgDescConcepto" runat="server" Text="<i class='fa fa-comment-o'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" /></th>--%><th style="width: 100px;" colspan="3">Comandos</th>
-                                                    <th style="width: 100px;" colspan="3">Comandos</th>
                                                     <th></th>
                                                     <th runat="server" visible="false" id="nomostrar2"></th>
                                             </tr>

Ventas/PV.aspx.vb

@@ -5018,7 +5018,7 @@ Partial Class PV
 
     Private Sub CargaAjuste()
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, 1) Then
             DdlFolioGarantia.DataSource = ObjAcum.DtResultados
             DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If

Ventas/ProductosServicios.aspx

@@ -410,11 +410,11 @@
                                                     </div>
                                                     <div class="portlet-body form">
 
-                                                        <asp:GridView ID="GvPSAdicionales" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CvePSAdicional,Cantidad, PS" EmptyDataText="No se encontraron Productos/Servicios Adicionales" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                                        <asp:GridView ID="GvPSAdicionales" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CvePSAdicional,Cantidad, PS,CodigoPS" EmptyDataText="No se encontraron Productos/Servicios Adicionales" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                                             <Columns>
                                                                 <asp:TemplateField HeaderText="Producto/Servicio">
                                                                     <ItemTemplate>
-                                                                        <asp:Literal ID="Ltum" runat="server" Text='<%# Eval("PS")%>'></asp:Literal>
+                                                                        <asp:Literal ID="Ltum" runat="server" Text='<%# Eval("CodigoPS")%>'></asp:Literal>
                                                                     </ItemTemplate>
                                                                     <EditItemTemplate>
                                                                         <asp:DropDownList ID="DdlPSAdicional" CssClass="form-control input-sm select2me" runat="server" DataTextField="PS" DataValueField="CvePS" AppendDataBoundItems="true" AutoPostBack="True" />

Ventas/RepCancelacionesPorAtender.aspx.cs

@@ -27,39 +27,49 @@ public partial class Ventas_RepCancelacionesPorAtender : ClsPaginas
     }
     private void CargarPendientes()
     {
-        Cancelacion.CancelacionSoapClient objServicio = new Cancelacion.CancelacionSoapClient();
+
-        Cancelacion.StructCancel resp = objServicio.ObtienePendientes(UsuarioActual.Empresa.RFC,  "UserTest", "1234567890");
+        //Cancelacion.CancelacionSoapClient objServicio = new Cancelacion.CancelacionSoapClient();
-        if (resp.Estado == 0)
+        //Cancelacion.StructCancel resp = objServicio.ObtienePendientes(UsuarioActual.Empresa.RFC,  "UserTest", "1234567890");
+        //if (resp.Estado == 0)
+        //{
+        //    string XmlPendientes = DecodeBase64(resp.Xml);
+        //    StringReader theReader = new StringReader(XmlPendientes);
+        //    DataSet theDataSet = new DataSet();
+        //    theDataSet.ReadXml(theReader);
+        //    if (theDataSet.Tables[0].Rows[0]["Uuid"].ToString() != "null")
+        //    {
+        //        var sb = new StringBuilder();
+        //        foreach (DataRow item in theDataSet.Tables[0].Rows)
+        //        {
+        //            sb.AppendFormat("{0};", item["Uuid"].ToString());
+        //        }
+        //        var ObjVentas = new ClsVentas();
+        //        if (ObjVentas.GetFacturasCanceladasPendientes(sb.ToString(), UsuarioActual.CveEmpresa))
+        //        {
+        //            GvDatos.DataSource = ObjVentas.DtResultados;
+        //        }
+        //        ObjVentas.Dispose();
+        //    }
+        //    else
+        //    {
+        //        GvDatos.DataSource = null;
+        //        Alert("No se encontraron cancelaciones pendientes");
+        //    }
+        //}
+        //else
+        //{
+        //    GvDatos.DataSource = null;
+        //    Alert("Error al obtener cancelaciones pendientes: " + resp.Descripcion, ModExtensiones.TipoMensaje.MsgError);
+        //}
+        using (ClsVentas ObjVentas = new ClsVentas())
         {
-            string XmlPendientes = DecodeBase64(resp.Xml);
+            if (ObjVentas.GetFacturasCanceladasPendientesWS(UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa))
-            StringReader theReader = new StringReader(XmlPendientes);
-            DataSet theDataSet = new DataSet();
-            theDataSet.ReadXml(theReader);
-            if (theDataSet.Tables[0].Rows[0]["Uuid"].ToString() != "null")
             {
-                var sb = new StringBuilder();
+                GvDatos.DataSource = ObjVentas.DtResultados;
-                foreach (DataRow item in theDataSet.Tables[0].Rows)
-                {
-                    sb.AppendFormat("{0};", item["Uuid"].ToString());
-                }
-                var ObjVentas = new ClsVentas();
-                if (ObjVentas.GetFacturasCanceladasPendientes(sb.ToString(), UsuarioActual.CveEmpresa))
-                {
-                    GvDatos.DataSource = ObjVentas.DtResultados;
-                }
-                ObjVentas.Dispose();
-            }
-            else
-            {
-                GvDatos.DataSource = null;
-                Alert("No se encontraron cancelaciones pendientes");
             }
         }
-        else
+
-        {
+
-            GvDatos.DataSource = null;
-            Alert("Error al obtener cancelaciones pendientes: " + resp.Descripcion, ModExtensiones.TipoMensaje.MsgError);
-        }
         GvDatos.DataBind();
         UPDatos.Update();
     }
@@ -153,9 +163,8 @@ public partial class Ventas_RepCancelacionesPorAtender : ClsPaginas
     private string DecodeBase64(string strXMLCodificado)
     {
         try
-        {
+        { 
-            byte[] decbuff = Convert.FromBase64String(strXMLCodificado);
+            return System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(strXMLCodificado));
-            return System.Text.Encoding.UTF8.GetString(decbuff);
         }
         catch
         {

Ventas/RepConciliacionEmitidosSat.aspx

@@ -8,16 +8,16 @@
             text-align: left;
         }
 
-            .GVConciliacionemitidasSAT tr th:nth-child(6) {
+            .GVConciliacionemitidasSAT tr th:nth-child(7) {
                 text-align: center;
             }
 
-        .GVConciliacionemitidasSAT tr td:nth-child(6) {
+        .GVConciliacionemitidasSAT tr td:nth-child(7) {
             text-align: right;
         }
 
-        .GVConciliacionemitidasSAT tr th:nth-child(7),
+        .GVConciliacionemitidasSAT tr th:nth-child(8),
-        .GVConciliacionemitidasSAT tr td:nth-child(7) {
+        .GVConciliacionemitidasSAT tr td:nth-child(8) {
             text-align: center;
         }
     </style>
@@ -35,6 +35,80 @@
     <asp:UpdatePanel ID="UpDatosReporte" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 51px;">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" OnClick="BtnConsultar_Click" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            <label class="col-md-1" style="padding-top: 13px; display: none;">Tipo: </label>
+                            <div class="col-md-2" style="display: none;">
+                                <asp:ListBox ID="DdlTipoComprobante" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
+                                    <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
+                                    <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
+                                    <asp:ListItem Text="Remisión" Value="Rem"></asp:ListItem>
+                                    <asp:ListItem Text="Cotización" Value="Cot"></asp:ListItem>
+                                    <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
+                                    <asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
+                                    <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
+                                    <asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
+                                </asp:ListBox>
+                            </div>
+                            <div class="col-md-2" style="padding-top: 13px;" >
+                                <asp:DropDownList ID="ddlRegistroen" CssClass="select2me form-control " Width="100%" runat="server">
+                                    <asp:ListItem Text="Todos" Value="0"></asp:ListItem>
+                                    <asp:ListItem Text="SIG" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="SAT" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="SIG Sin Encontrar SAT" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="SAT Sin Encontrar SIG" Value="4"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-1 truncate" style="padding-top: 13px;">
+                                Fecha Inicio:
+                            </div>
+                            <div class="col-md-1" style="padding-top: 9px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1 truncate" style="padding-top: 13px;">
+                                Fecha Fin: 
+                            </div>
+                            <div class="col-md-1" style="padding-top: 9px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none">
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
 
             <div class="portlet light xspadding bordered " id="PorletDatos" style="margin-bottom: 0px;">
                 <div class="portlet-title">
@@ -52,8 +126,13 @@
                 </div>
                 <div class="portlet-body ">
                     <asp:GridView ID="GVConciliacionemitidasSAT" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVConciliacionemitidasSAT" AutoGenerateColumns="False"
-                        DataKeyNames="FolioFiscal,TipoDocto,ImporteTotal,Estatus,Fecha,Moneda,RFCReceptor,CveEmpresa,RutaXml,RFCEmisor,TipoDoctoTexto">
+                        DataKeyNames="FolioFiscal,TipoDocto,ImporteTotal,Estatus,Fecha,Moneda,RFCReceptor,CveEmpresa,RutaXml,RFCEmisor,TipoDoctoTexto" OnRowDataBound="GVConciliacionemitidasSAT_RowDataBound">
                         <Columns>
+                            <asp:TemplateField HeaderText=" ">
+                                <ItemTemplate>
+                                    <asp:Label  runat="server" Text='<%# Eval("TipoText")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
                             <asp:TemplateField HeaderText="Tipo documento">
                                 <ItemTemplate>
                                     <asp:Label ID="lbltipoDocto" runat="server" Text='<%# Eval("TipoDoctoTexto")%>'> </asp:Label>
@@ -69,6 +148,11 @@
                                     <asp:Label ID="lblfecha" runat="server" Text='<%# Eval("Fecha","{0:dd/MM/yyyy}")%>'> </asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Fecha SIG">
+                                <ItemTemplate>
+                                    <asp:Label ID="lblfechaSIG" runat="server" Text='<%# Eval("FechaSIG","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
                             <asp:TemplateField HeaderText="Serie-Folio">
                                 <ItemTemplate>
                                     <asp:Label ID="lblSerieFolio" runat="server" Text='<%# string.Format("{0}-{1}",Eval("Serie"),Eval("Folio"))%>'> </asp:Label>
@@ -91,12 +175,13 @@
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Estatus">
                                 <ItemTemplate>
-                                    <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("EstatusFactura")%>'> </asp:Label>
+                                    <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Xml" Visible="false">
+                            <asp:TemplateField HeaderText="Xml" >
                                 <ItemTemplate>
                                     <%--<asp:Label ID="lblrutaXml" runat="server" Text='<%# Eval("RutaXml")%>'> </asp:Label>--%>
+                                    <asp:HyperLink ID="HypXml" runat="server" target="_blank"><i class="fa fa-download" aria-hidden="true"></i>XML</asp:HyperLink>
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="">
@@ -153,7 +238,6 @@
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script>
-        $('#DModalDefaults').modal();
 
         function FiltrarTabla(idtxt, idtable, idcontador) {
             if ($('' + idtxt).val() == '') { $('table' + idtable + ' tr').css('display', 'table-row'); }

Ventas/RepConciliacionSat.aspx

@@ -10,12 +10,32 @@
 
         table.table > tbody > tr.Grupo1 {
             background-color: #CCC !important;
-            cursor:pointer;
+            cursor: pointer;
         }
 
         table.table > tbody > tr.Grupo2 {
             background-color: #DDD !important;
-            cursor:pointer;
+            cursor: pointer;
+        }
+
+        .GVRepConciliacionSatGET > tbody > tr > td:not(:nth-child(1)) {
+            text-align: center;
+        }
+
+        .GVRepConciliacionSatGET tr:not(.Grupo0):not(.Grupo3) .showhideicon {
+            width: 14px;
+            height: 14px;
+            font-size: 7px;
+            display: block;
+            background-image: url(/Metronic/assets/global/img/portlet-collapse-icon-white.png);
+        }
+
+        .GVRepConciliacionSatGET tr:not(.Grupo0):not(.Grupo3).hidex .showhideicon {
+            background-image: url(/Metronic/assets/global/img/portlet-expand-icon-white.png);
+        }
+
+        .GVRepConciliacionSatGET .bactions {
+            width: 5px;
         }
     </style>
 </asp:Content>
@@ -25,7 +45,7 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li><a onclick="javascript:AbrirVentana('/Ventas/SolicitudesSAT.aspx?Masterimpoup=true',1400);"><i class="fa fa-dropbox"></i>Solicitudes SAT </a></li>
+    <li><a onclick="javascript:AbrirVentana('/Ventas/SolicitudesSAT.aspx?tipo=2&Masterimpoup=true',1400);"><i class="fa fa-dropbox"></i>Solicitudes SAT </a></li>
 
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -42,8 +62,8 @@
                     </div>
                     <div class="titlefiltros  caption">
                         <div class="row">
-                            <label class="col-md-1" style="padding-top: 13px; display:none;">Tipo: </label>
+                            <label class="col-md-1" style="padding-top: 13px; display: none;">Tipo: </label>
-                            <div class="col-md-2" style="display:none;">
+                            <div class="col-md-2" style="display: none;">
                                 <asp:ListBox ID="DdlTipoComprobante" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
                                     <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
                                     <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
@@ -99,7 +119,7 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="upDatosRepC" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GVRepConciliacionSatGET" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+            <asp:GridView ID="GVRepConciliacionSatGET" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVRepConciliacionSatGET" AutoGenerateColumns="False"
                 DataKeyNames="anio,Mes,MesText,Dia,GRUPOCve,Grupo,CFDISIG,CFDISAT,CFDISIGSinSAT,CFDISATSinSIG" OnRowDataBound="GVRepConciliacionSatGET_RowDataBound">
                 <Columns>
                     <asp:TemplateField HeaderText=" ">
@@ -109,26 +129,36 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="SIG">
                         <ItemTemplate>
-                            <asp:Label ID="lblcFDISIG" runat="server" Text='<%# Eval("CFDISIG")%>'> </asp:Label>
+                            <asp:HyperLink ID="HypSIG"  runat="server"><%# Eval("CFDISIG")%></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="SAT">
                         <ItemTemplate>
-                            <asp:Label ID="lblcFDISAT" runat="server" Text='<%# Eval("CFDISAT")%>'> </asp:Label>
+                            <asp:HyperLink ID="HypSAT"  runat="server"><%# Eval("CFDISAT")%></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Sin Encontrar SAT">
                         <ItemTemplate>
-                            <asp:Label ID="lblcFDISIGSinSAT" runat="server" Text='<%# Eval("CFDISIGSinSAT")%>'> </asp:Label>
+                            <asp:HyperLink ID="HypSIGnoSAT"  runat="server"><%# Eval("CFDISIGSinSAT")%></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Sin Encontrar SIG">
                         <ItemTemplate>
-                            <asp:Label ID="lblcFDISATSinSIG" runat="server" Text='<%# Eval("CFDISATSinSIG")%>'> </asp:Label>
+                            <asp:HyperLink ID="HypSatnoSIG"  runat="server"><%# Eval("CFDISATSinSIG")%></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderStyle-CssClass="bactions">
+                        <ItemTemplate>
+                            <span class="showhideicon"></span>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderStyle-CssClass="bactions">
+                        <ItemTemplate>
                         </ItemTemplate>
                     </asp:TemplateField>
                 </Columns>
             </asp:GridView>
+    <%--<CR:CrystalReportViewer ID="reports" runat="server" AutoDataBind="true"></CR:CrystalReportViewer>--%>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -138,7 +168,7 @@
         var Grupo2hide = [];
         $('body').on('click', 'tr.Grupo2 ', function (e) {
             let gmes = $(this).attr('gmes');
-            
+
             if (Grupo3Show.indexOf(gmes) >= 0) {
                 Grupo3Show.pop(gmes);
             } else {
@@ -148,7 +178,7 @@
             showhideg3();
         });
         function showhideg3() {
-            
+
             $('.Grupo3').hide();
             $('.Grupo3').each(function () {
                 let gmes = $(this).attr('gmes');
@@ -157,10 +187,18 @@
                     $(this).show();
                 }
             });
+            //
+            $('.Grupo2').removeClass('hidex');
+            $('.Grupo2').each(function () {
+                let gmes = $(this).attr('gmes'); 
+                if (Grupo3Show.indexOf(gmes) == -1) {
+                    $(this).addClass('hidex');
+                }
+            });
         }
         $('body').on('click', 'tr.Grupo1 ', function (e) {
             let ganio = $(this).attr('ganio');
-            
+
             if (Grupo2hide.indexOf(ganio) >= 0) {
                 Grupo2hide.pop(ganio);
             } else {
@@ -171,7 +209,7 @@
             showhideg2();
         });
         function showhideg2() {
-            
+
             $('.Grupo2').show();
             $('.Grupo2').each(function () {
                 let ganio = $(this).attr('ganio')
@@ -179,6 +217,15 @@
                     $(this).hide();
                 }
             });
+            
+            $('.Grupo1').removeClass('hidex');
+            $('.Grupo1').each(function () {
+                let gmes = $(this).attr('gmes');
+                let ganio = $(this).attr('ganio');
+                if (Grupo2hide.indexOf(gmes) > -1) {
+                    $(this).addClass('hidex');
+                }
+            });
         }
         function ADSBegin() {
             showhideg3();

Ventas/RepConciliacionSat.aspx.cs

@@ -3,17 +3,55 @@ using System.Collections.Generic;
 using System.Linq;
 using System.Web;
 using System.Web.UI;
-using System.Web.UI.WebControls;
+using System.Web.UI.WebControls; 
 using Extensiones;
 
 public partial class Ventas_RepConciliacionSat : ClsPaginas
 {
     const string rqFechaInicio = "FechaInicio";
     const string rqFechaFin = "FechaFin";
+    public string RfechaI
+    {
+        get
+        {
+            return ViewState["RfechaI"].ToString();
+        }
+        set { ViewState["RfechaI"] = value; }
+    }
+    public string RfechaF
+    {
+        get
+        {
+            return ViewState["RfechaF"].ToString();
+        }
+        set { ViewState["RfechaF"] = value; }
+    }
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
         {
+
+            //CrystalDecisions.CrystalReports.Engine.ReportDocument cryRpt = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
+            //cryRpt.Load(String.Format("C:\\Proyectos\\wwwSIG\\Empresas\\Grales\\Formatos\\CatPS.rpt", UsuarioActual.Empresa.Ruta));
+            //System.Data.DataTable DtDatos = new System.Data.DataTable();
+            //using (ClsProductosServicios ObjPS = new ClsProductosServicios())
+            //{
+            //    if (ObjPS.GetPSLite(-1, 119, "-1", "-1", "02541", -1, -1, -1, -1))
+            //    {
+            //        DtDatos = ObjPS.DtResultados;
+
+            //    }
+            //}
+            //cryRpt.SetDataSource(DtDatos);
+            //CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo coninfo = new CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo();
+            //cryRpt.
+            ////cryRpt.SetDatabaseLogon("JCaudillo", "JCau127*953");// 293357
+            //reports.ReportSource = cryRpt;
+            //reports.RefreshReport();
+            //// reports.Refresh();
+
+
+
             DateTime fecha;
             DateTime fechaInicio = DateTime.Now;
             DateTime fechaFin = DateTime.Now;
@@ -33,10 +71,10 @@ public partial class Ventas_RepConciliacionSat : ClsPaginas
 
     protected void CargaRepConciliacionSatGET()
     {
-        string RtipoDocto, RfechaI, RfechaF;
+        string RtipoDocto;
         RtipoDocto = "I";
-        RfechaI = txtFechaI.Text.ToDateTime().ToString();
+        RfechaI = txtFechaI.Text.Length > 0 ? txtFechaI.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
-        RfechaF = txtFechaF.Text.ToDateTime().ToString();
+        RfechaF = txtFechaF.Text.Length > 0 ? txtFechaF.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
         using (ClsGenerales ObjRepC = new ClsGenerales())
         {
             ObjRepC.RepConciliacionSatGET(UsuarioActual.CveEmpresa, RtipoDocto, RfechaI, RfechaF);
@@ -55,11 +93,65 @@ public partial class Ventas_RepConciliacionSat : ClsPaginas
 
     protected void GVRepConciliacionSatGET_RowDataBound(object sender, GridViewRowEventArgs e)
     {
-        if(e.Row.RowType == DataControlRowType.DataRow)
+        if (e.Row.RowType == DataControlRowType.DataRow)
         {
-            e.Row.CssClass = string.Format("Grupo{0}", e.Row.DBCampo("GRUPOCve"));
+            string fechaI = RfechaI;
+            string fechaF = RfechaF;
+            DateTime danio;
+            DateTime danioF;
+            int GRUPOCve = e.Row.DBCampo("GRUPOCve").ToString().ToEntero();
+            e.Row.CssClass = string.Format("Grupo{0}", GRUPOCve);
             e.Row.Attributes.Add("ganio", string.Format("{0}", e.Row.DBCampo("anio")));
-            e.Row.Attributes.Add("gMes", string.Format("{0}", e.Row.DBCampo("Mes"))); 
+            e.Row.Attributes.Add("gMes", string.Format("{0}", e.Row.DBCampo("Mes")));
+            string navigateurl = "";
+            switch (GRUPOCve)
+            {
+                case 0:
+                    break;
+                case 1:
+                    danio = string.Format("{0}/01/01", e.Row.DBCampo("anio")).ToDateTime();
+                    danioF = danio.AddYears(1).AddSeconds(-1);
+                    if (RfechaI.ToDateTime() < danio)
+                    {
+                        fechaI = danio.ToString("yyyy/MM/dd");
+                    }
+                    if (RfechaF.ToDateTime() > danioF || RfechaF.Length == 0)
+                    {
+                        fechaF = danioF.ToString("yyyy/MM/dd HH:mm:ss");
+                    }
+                    break;
+                case 2:
+                    danio = string.Format("{0}/{1}/01", e.Row.DBCampo("anio"), e.Row.DBCampo("Mes").Substring(4)).ToDateTime();
+                    danioF = danio.AddMonths(1).AddSeconds(-1);
+                    if (RfechaI.ToDateTime() < danio)
+                    {
+                        fechaI = danio.ToString("yyyy/MM/dd");
+                    }
+                    if (RfechaF.ToDateTime() > danioF || RfechaF.Length == 0)
+                    {
+                        fechaF = danioF.ToString("yyyy/MM/dd HH:mm:ss");
+                    }
+                    break;
+                case 3:
+                    danio = string.Format("{0:yyyy/MM/dd}", e.Row.DBCampo("dia")).ToDateTime();
+                    danioF = danio.AddDays(1).AddSeconds(-1);
+                    if (RfechaI.ToDateTime() < danio)
+                    {
+                        fechaI = danio.ToString("yyyy/MM/dd");
+                    }
+                    if (RfechaF.ToDateTime() > danioF || RfechaF.Length == 0)
+                    {
+                        fechaF = danioF.ToString("yyyy/MM/dd HH:mm:ss");
+                    }
+                    break;
+                default:
+                    break;
+            }
+            navigateurl = string.Format("{0}&{3}={1}&{4}={2}", navigateurl, fechaI, fechaF, rqFechaInicio, rqFechaFin);
+            e.Row.FCHyperLink("HypSIG").NavigateUrl = string.Format("/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=1{0}", navigateurl);
+            e.Row.FCHyperLink("HypSAT").NavigateUrl = string.Format("/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=2{0}", navigateurl);
+            e.Row.FCHyperLink("HypSIGnoSAT").NavigateUrl = string.Format("/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=3{0}", navigateurl);
+            e.Row.FCHyperLink("HypSatnoSIG").NavigateUrl = string.Format("/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=4{0}", navigateurl);
         }
     }
 }

Ventas/SolicitudesSAT.aspx

@@ -131,22 +131,22 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Fecha Ingreso">
                         <ItemTemplate>
-                            <asp:Label ID="lblfechaIngreso" runat="server" Text='<%# Eval("FechaIngreso","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
+                            <asp:Label ID="lblfechaIngreso" runat="server" Text='<%# Eval("FechaIngreso","{0:dd/MM/yyyy}")%>' data-toggle="tooltip"  title='<%# Eval("FechaIngreso","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="id Solicitud">
+                    <asp:TemplateField HeaderText="id Solicitud" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="lblidSolicitud" runat="server" Text='<%# Eval("idSolicitud")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Fecha Inicio Solicitud">
                         <ItemTemplate>
-                            <asp:Label ID="lblfechaInicioSolicitud" runat="server" Text='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
+                            <asp:Label ID="lblfechaInicioSolicitud" runat="server" Text='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy}")%>'  data-toggle="tooltip"  title='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Fecha Fin Solicitud">
                         <ItemTemplate>
-                            <asp:Label ID="lblfechaFinSolicitud" runat="server" Text='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
+                            <asp:Label ID="lblfechaFinSolicitud" runat="server" Text='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy}")%>'  data-toggle="tooltip"  title='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Estatus">
@@ -199,7 +199,7 @@
                             </div>
                         </div>
                         <div class="row">
-                            <div class="col-sm-3 ">
+                            <%--<div class="col-sm-3 ">
                                 Fecha Inicio:
                             </div>
                             <div class="col-sm-6">
@@ -224,8 +224,8 @@
                                     <span class="input-group-btn"><a class="btn default lnkFechaFAdd"><i class="fa fa-calendar"></i></a></span>
 
                                 </div>
-                            </div>
+                            </div>--%>
-                            <%--<div class="col-md-4" data-date-format="dd/mm/yyyy" style ="padding-right: 0px;">
+                            <div class="col-md-4" data-date-format="dd/mm/yyyy" style ="padding-right: 0px;">
                                 <div class="form-group form-md-line-input form-md-floating-label input-iconright">
                                     <asp:TextBox ID="txtFechaIAdd" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <asp:Label runat="server" Text="Fecha Inicio" AssociatedControlID="txtFechaIAdd"></asp:Label>
@@ -258,6 +258,7 @@
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaFAdd" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaFAdd" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
+                            <%--
                             <div class="col-md-2" style ="padding-top: 14px;padding-left: 0px;">
                                 <div class="input-group input-sm input-small date date-picker " style ="padding-left: 0px;" data-date-format="dd/mm/yyyy" >
                                     <span class="input-group-btn ">

Ventas/SolicitudesSAT.aspx.cs

@@ -19,7 +19,7 @@ public partial class Ventas_SolicitudesSAT : ClsPaginas
             string rfIngFin = Request["fIngFin"] == null ? "" : Request["fIngFin"].ToString().Trim();
             string rfSolInicio = Request["fSolInicio"] == null ? "" : Request["fSolInicio"].ToString().Trim();
             string rfSolFin = Request["fSolFin"] == null ? "" : Request["fSolFin"].ToString().Trim();
-
+            
             DateTime dValor = DateTime.Now;
             dValor = DateTime.Now; if (DateTime.TryParse(rfIngInicio, out dValor)) { rfIngInicio = string.Format("{0:dd/MM/yyyy}", dValor); } else { rfIngInicio = ""; }
             dValor = DateTime.Now; if (DateTime.TryParse(rfIngFin, out dValor)) { rfIngFin = string.Format("{0:dd/MM/yyyy}", dValor); } else { rfIngFin = ""; }
@@ -92,8 +92,8 @@ public partial class Ventas_SolicitudesSAT : ClsPaginas
 
     protected void LnkSolicitarCFDI_Click(object sender, EventArgs e)
     {
-        string FechaI = string.Format("{0:yyyy-MM-ddTHH}:{0:mm}:{0:ss}", txtFechaIAdd.Text.ToDateTime());
+        string FechaI = string.Format("{0:yyyy-MM-dd}T00:00:00", txtFechaIAdd.Text.ToDateTime());
-        string FechaF = string.Format("{0:yyyy-MM-ddTHH}:{0:mm}:{0:ss}", txtFechaFAdd.Text.ToDateTime());
+        string FechaF = string.Format("{0:yyyy-MM-dd}T23:59:59", txtFechaFAdd.Text.ToDateTime());
 
         string direxe = string.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, "Utilerias\\ADSUtilerias.exe");
 

Ventas/Ventas.aspx.vb

@@ -2522,7 +2522,9 @@ Partial Class Ventas
                 DivMesesSinIntereses.Visible = True
                 DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
                 DivContadoOtros.Visible = True
-
+                TrKilometraje.Visible = True
+                TrPedido.Visible = False
+                ' TrKilometrajeTxt.Visible = True
             End If
 
         End If
@@ -2575,12 +2577,15 @@ Partial Class Ventas
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
                 CveCorte = ObjPVenta.CveCorte
                 LblEstatusCaja.Text = ObjPVenta.FechaInicial.ToShortDateString
+                LblTurno.Text = ObjPVenta.FechaInicial.ToShortDateString
                 TrEstatusCaja.Visible = True
                 BtnIniciarTurno.Visible = False
                 LkbEstadodeCaja.Visible = True
                 LkbIngreso.Visible = True
                 LkbRetiro.Visible = True
+                UpTurno.Visible = True
             Else
+                UpTurno.Visible = False
                 'Ingresar un nuevo Turno
                 RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")
             End If
@@ -3839,7 +3844,7 @@ Partial Class Ventas
                 HdnIVAOriginal.Value = TxtIVA.Text
                 TxtPedidoContrato.Text = DbRowVenta("PedidoContrato").ToString
                 TxtPedidoContrato.Enabled = False
-
+                TxtKilometraje.Text = DbRowVenta("Kilometraje").ToString
 
                 HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString
                 HdnSubTotalDescuestos.Value = (TxtSubTotal.Text.Replace(",", "").ToDouble - LblDescuentos.Text.Replace(",", "").ToDouble - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble - TxtRetISR.Text.Replace(",", "").ToDouble).FormatoNumero(2)
@@ -4108,6 +4113,7 @@ Partial Class Ventas
 
                 'Sección Detalle
                 DdlMoneda.Enabled = False
+                DdlTipoRetencion.Enabled = False
                 TxtFechaEjecucion.ReadOnly = True
                 ImgCalendarFechaEje.Enabled = False
                 'DdlSucursalEjecucion.Enabled = False
@@ -4696,6 +4702,9 @@ Partial Class Ventas
                 ViewState("ClienteRetIVA") = ObjCliente.RetIVA / 100
                 ViewState("ClienteRetISR") = ObjCliente.RetISR / 100
 
+                DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
+                DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
+
                 ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes
                 If ObjCliente.RetieneIVAFletes Then
                     TrRetIVA.Style.Add("display", "")
@@ -5611,6 +5620,9 @@ Partial Class Ventas
 
                     'LO NO PERMITIDO MODIFICAR
                     e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
+                    If UsuarioActual.CveEmpresa = 119 Then
+                        e.Row.FCTextBox("TxtCantidad").Enabled = False
+                    End If
                     'e.Row.FCDropDownList("DdlClasificacion").Enabled = False
                     'e.Row.FCDropDownLost("DdlPS").Enabled = False
 
@@ -5914,6 +5926,20 @@ Partial Class Ventas
             Dim TotalCalculableImpuestosIVA As Decimal = 0
             TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal)
 
+            Dim ClienteRetIVA = Me.ClienteRetIVA
+            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+                If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                    ClienteRetIVA = 0.1D
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                    ClienteRetIVA = 0.04D
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") Then
+                    ClienteRetIVA = 0.06D
+                End If
+
+                LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
+                DdlTipoRetencion.Visible = True
+            End If
+
 
             TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero
             TmpDT.Rows(e.RowIndex)("UM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedItem.Text
@@ -6456,22 +6482,32 @@ Partial Class Ventas
         End If
         'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras)
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+
+            If txtkilometraje.text.toentero = 0 Then
+                'cuando es la clasificacion de llantas
+                Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero
+                If FaltaObservacion = 20342 Then
+                    Alert("No se ha especificado el <strong>kilometraje</strong>.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+
+            End If
+
             If TxtObsFact.Text = "" Then
                 Dim FaltaObservacion As Integer = -1
-                For Each PS As GridViewRow In GvPS.Rows
+                'For Each PS As GridViewRow In GvPS.Rows
-                    Dim PsRenglon As GridViewRow = PS
+                '    Dim PsRenglon As GridViewRow = PS
-                    Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero
+                '    Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero
-                    If CveClasificacion = 20345 Or CveClasificacion = 20342 Then
+                '    If CveClasificacion = 20345 Or CveClasificacion = 20342 Then
-                        FaltaObservacion = CveClasificacion
+                '        FaltaObservacion = CveClasificacion
-                        Exit For
+                '        Exit For
-                    End If
+                '    End If
-                Next
+                '
+                FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero
+                'cuando es la clasificacion de polizas
                 If FaltaObservacion = 20345 Then
                     Alert("No se ha especificado la <strong>serie</strong> para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia)
                     Exit Sub
-                ElseIf FaltaObservacion = 20342 Then
-                    Alert("No se ha especificado el <strong>kilometraje</strong> para la llanta en el sección de Observaciones", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
                 End If
             End If
         End If
@@ -6704,6 +6740,23 @@ Partial Class Ventas
                 GuardarVenta(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjFactura, TmpDT, ObjFactura.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS,
                              ObjEventos, ObjCGame, ObjClientes, EsNCAmortizacion:=EsNCAmortizacion)
 
+                'Agregamos las OCs a la tabla
+                If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso DTOrdenesCompraPS IsNot Nothing AndAlso DTOrdenesCompraPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
+                    Dim CveVentaDetalle As Integer = 0
+                    Dim CveOrdenCompraDetalle As Integer = 0
+                    Dim Cantidad As Decimal = 0
+
+                    For Each row As DataRow In TmpDT.Rows
+                        Cantidad = row("Cantidad").ToString.ToDecimal
+                        CveVentaDetalle = row("CveVentaDetalle").ToString.ToEntero
+                        CveOrdenCompraDetalle = row("CveOrdenCompraDetalle").ToString.ToEntero
+                        If Not ObjVentas.AgregarVentaOCDetalle(CveVentaDetalle, CveOrdenCompraDetalle, Cantidad) Then
+                            ErrorList.Add("Ocurrió un Error al agregar el detalle de la Remision")
+                            Exit For
+                        End If
+                    Next
+                End If
+
                 'SI ES REFACTURACION
                 Dim ObjNC As List(Of Object) = Nothing
                 If ErrorList.Count = 0 Then
@@ -6723,7 +6776,6 @@ Partial Class Ventas
                                 End If
                             End If
                         End If
-
                     End If
                 End If
 
@@ -6789,24 +6841,6 @@ Partial Class Ventas
                         End If
                     End If
 
-                    'Agregamos las OCs a la tabla
-                    If DTOrdenesCompraPS IsNot Nothing AndAlso DTOrdenesCompraPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
-                        Dim CveVentaDetalle As Integer = 0
-                        Dim CveOrdenCompraDetalle As Integer = 0
-                        Dim Cantidad As Decimal = 0
-
-
-                        For Each row As DataRow In TmpDT.Rows
-                            Cantidad = row("Cantidad").ToString.ToDecimal
-                            CveVentaDetalle = row("CveVentaDetalle").ToString.ToEntero
-                            CveOrdenCompraDetalle = row("CveOrdenCompraDetalle").ToString.ToEntero
-                            If Not ObjVentas.AgregarVentaOCDetalle(CveVentaDetalle, CveOrdenCompraDetalle, Cantidad) Then
-                                ErrorList.Add("Ocurrió un Error al agregar el detalle de la Remision")
-                            End If
-                        Next
-
-                    End If
-
                     'Agregamos las Cotizaciones a la tabla
                     If DtCotizacionesPS IsNot Nothing AndAlso DtCotizacionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
                         Dim CveVentaDetalle As Integer = 0
@@ -6828,8 +6862,6 @@ Partial Class Ventas
                         Next
                     End If
 
-
-
                     'Marcamos las ventas anteriores a febrero como surtidas - Ajuste Compu
                     If ErrorList.Count = 0 Then
                         If Not ObjVentas.MarcarRemisionesSinSurtir(ObjVentas.CveVenta) Then
@@ -7579,10 +7611,10 @@ Partial Class Ventas
     End Function
 
 
-    Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False)
+    Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False, Optional EsCancelacion As Boolean = False)
 
         If Me.CveVenta > 0 AndAlso NuevaFactura <> 1 Then
-            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa)
+            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=EsCancelacion)
         Else
             ObjFactura = New Modelos.Factura
         End If
@@ -7723,15 +7755,21 @@ Partial Class Ventas
 
         'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
         If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then
+            Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal
             For Each Row As DataRow In TmpDT.Rows
-                Row("PU") = Math.Round(Row("PU").ToString.ToDouble * ObjFactura.TipoCambio, 6)
+                Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * ObjFactura.TipoCambio, 6)
+                Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
+
+                TotalCalculableImpuestos = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) - Row("Descuento").ToString.ToDecimal
+                TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString.ToDecimal)
+                Row("IVA") = Row("PorcentajeIVA")
+                Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
+                Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
+                Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
+                Row("ImporteIEPS") = Math.Round(Row("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+                Row("IEPS") = Row("ImporteIEPS")
                 Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales)
                 Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales)
-                Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
-                Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
-                Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
-                Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
-                Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
             Next
 
             Dim ImpuestosLocales As Double = 0
@@ -7799,21 +7837,28 @@ Partial Class Ventas
 
             'CONVERTIR REMISION  - TIPO MONEDA  -DOLARES A PESOS    REGISTRO DIRECTO SIN VENTA
         ElseIf (EditoRemision = False AndAlso ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True) Then
+
+            Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal
             For Each Row As DataRow In TmpDT.Rows
-                Row("PU") = Math.Round(Row("PU").ToString.ToDouble * ObjFactura.TipoCambio, 6)
+                Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * ObjFactura.TipoCambio, 6)
+                Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
+
+                TotalCalculableImpuestos = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) - Row("Descuento").ToString.ToDecimal
+                TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString.ToDecimal)
+                Row("IVA") = Row("PorcentajeIVA")
+                Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
+                Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
+                Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
+                Row("ImporteIEPS") = Math.Round(Row("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+                Row("IEPS") = Row("ImporteIEPS")
                 Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales)
                 Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales)
-                Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
-                Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
-                Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
-                Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
-                Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
             Next
 
             Dim ImpuestosLocales As Double = 0
             For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
                 If gvr.RowType = DataControlRowType.DataRow Then
-                    gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * ObjFactura.TipoCambio).FormatoNumero
+                    gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal * ObjFactura.TipoCambio).FormatoNumero
                     ImpuestosLocales += Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
                 End If
             Next
@@ -9037,7 +9082,7 @@ Partial Class Ventas
 
 
 #Region "   GUARDAR - VENTA, PREPOLIZAS, INV, ESTIMACIONES, AC, NOTA DE CRÉDITO   "
-    Private Sub GuardarVenta(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, factura As Modelos.Factura, TmpDTDetalle As DataTable, CveNCaVincular As Integer,
+    Private Sub GuardarVenta(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, factura As Modelos.Factura, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer,
                              ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing,
                              ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNCAmortizacion As Boolean = False, Optional NCDescuento As Boolean = False)
 
@@ -9108,8 +9153,9 @@ Partial Class Ventas
                            PedidoContrato:=TxtPedidoContrato.Text, ObservacionesAlmacen:=TxtObsAlmacen.Text, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33,
                            CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=TxtOrdenCompra.Text, CveCuentaTerminal:=DdlCuentasTerminal.SelectedValue.ToEntero, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal,
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
-                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
+                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
-                                  DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False)) Then
+                           DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
+                           Kilometraje:=TxtKilometraje.Text.todouble) Then
 
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
 
@@ -9171,7 +9217,7 @@ Partial Class Ventas
                         End If
                     End If
 
-                    Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Row("Consec").ToString}")(0)
+                    Dim TmpDr As DataRow = TmpDTDetalle.Select($"Consec = {Row("Consec").ToString}")(0)
                     TmpDr("CveVentaDetalle") = ObjVentas.CveVentaDetalle
 
                     Try
@@ -9342,7 +9388,7 @@ Partial Class Ventas
                         Cantidad = DtPedidos2TmpDT.FiltroPrimeroValor("Cantidad", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToDecimal
                         CvePS = DtPedidos2TmpDT.FiltroPrimeroValor("CvePS", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero
                         PU = DtPedidos2TmpDT.FiltroPrimeroValor("PU", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToDecimal
-                        CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero
+                        CveVentaDetalle = TmpDTDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero
                         CveVentaDetallePadre = row("CveVentaDetalle").ToString.ToEntero
 
                         If Not ObjVentas.AddVentaDetallePedido2(CveVentaDetalle, CveVentaDetallePadre, Cantidad) Then
@@ -9393,6 +9439,7 @@ Partial Class Ventas
 
         End If
     End Sub
+
     Private Sub GuardarVentaPrePolizas(ByRef ObjConta As ClsContabilidad, factura As Modelos.Factura, TmpDTDetalleMovimientos As DataTable, CveNCaVincular As Integer,
                                        ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing,
                                        ByRef Optional ObjEventos As ClsOIEventos = Nothing, Optional EsNCAmortizacion As Boolean = False, Optional NCDescuento As Boolean = False)
@@ -10259,7 +10306,9 @@ Partial Class Ventas
                                         If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                         'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
                                         If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
-                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
+                                            Dim CampoCuenta As String = "IdCuentaGasto"
+                                            If UsuarioActual.CveEmpresa.Contiene(80, 72, 146) Then CampoCuenta = "IdCuentaDescuento"
+                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor(CampoCuenta, String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
                                         Else
                                             IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
                                         End If
@@ -13827,10 +13876,12 @@ Partial Class Ventas
 
             If DtPromociones.Rows.Count > 0 And DtPromociones IsNot Nothing Then
                 Dim dr As DataRow = DtPromociones.FiltroPrimero($"CvePS = {CvePS}")
-                TipoPromo = dr("TipoPromocion").ToString.ToEntero
+                If dr IsNot Nothing Then
-                TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
+                    TipoPromo = dr("TipoPromocion").ToString.ToEntero
-                PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
+                    TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
-                CantMinima = dr("CantidadMinima").ToString.ToEntero
+                    PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
+                    CantMinima = dr("CantidadMinima").ToString.ToEntero
+                End If
             End If
 
             If TipoPromo = 1 Then 'Promocion por Importe $
@@ -14194,6 +14245,20 @@ Partial Class Ventas
             Row("PorcentajeIVA") = DrPS("IVA")
         End If
 
+        Dim ClienteRetIVA = Me.ClienteRetIVA
+        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+            If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                ClienteRetIVA = 0.1D
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                ClienteRetIVA = 0.04D
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso DrPS("CveTipoPS").ToString().ToEntero() = 1 Then
+                ClienteRetIVA = 0.06D
+            End If
+
+            LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
+            DdlTipoRetencion.Visible = True
+        End If
+
         Row("IVA") = Row("PorcentajeIVA")
         Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
         Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
@@ -14255,7 +14320,8 @@ Partial Class Ventas
 
 
         'AGREGA PS ADICIONAL
-        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
+        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(285) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
+
             For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows
                 Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero
                 Dim DrPoliza As DataRow = TmpDT.NewRow()
@@ -14337,6 +14403,8 @@ Partial Class Ventas
                     TmpDT.Rows.Add(DrPoliza)
                 End If
             Next
+
+
         End If
 
         Retorno = True
@@ -15354,6 +15422,7 @@ Partial Class Ventas
                                             If UsuarioActual.Empresa.Funcionalidad(575) = "1" Then
                                                 CveConceptoSalidaAlmacen = 40
                                                 CveAlmacenParaSalida = CveAlmacenSalida
+                                                AplicaMovimientoDetalleEntrada = True
                                                 ''Le damos salida normal
                                                 'If ConSalida Then
                                                 '    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveVenta, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
@@ -15380,7 +15449,7 @@ Partial Class Ventas
 
                                                 'Le damos entrada al general por traspaso
                                                 If Not OcurrioError Then
-                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso) > 0
+                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada) > 0
 
                                                     If Not GeneroMovimientoAlmacen Then
                                                         OcurrioError = True
@@ -15398,7 +15467,7 @@ Partial Class Ventas
                                                 End If
 
                                                 If Not OcurrioError Then
-                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenParaSalida, CveConceptoSalidaAlmacen, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
+                                                    GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenParaSalida, CveConceptoSalidaAlmacen, CveMoneda, ObjFactura.CveVenta, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
 
                                                     If Not GeneroMovimientoAlmacen Then
                                                         OcurrioError = True
@@ -15523,6 +15592,12 @@ Partial Class Ventas
         Dim OcurrioError As Boolean = False
         Dim ContadorMovtosDetalles = 0
 
+        'If Not AplicaMovimientoDetalleEntrada Then
+        '    Dim rowa As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen={0}", CveAlmacen))
+        '    If Not IsNothing(rowa) AndAlso rowa("CveTipoAlmacen").ToString() = "10" Then
+        '        AplicaMovimientoDetalleEntrada = True
+        '    End If
+        'End If
         'Creamos el movimiento
         Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
                                                                              CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Vta/E4")
@@ -16261,7 +16336,7 @@ Partial Class Ventas
         Next
 
         'ACTIVA CAMBIO DE CLIENTE - SI NO TIENE NADA FACTURADO
-        If Not CantidadFacturadaRemision > 0 Then
+        If Not CantidadFacturadaRemision > 0 AndAlso UsuarioActual.TienePermisoProceso(284) Then
             HlCliente.Attributes.Remove("class")
             HlCliente.Attributes.Add("class", "Texto")
             TxtCodigo.ReadOnly = False
@@ -16375,7 +16450,9 @@ Partial Class Ventas
         If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
                                       UsuarioActual.CveEmpresa, CveVenta, 0, 0,
                                       Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
-                                      PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal) Then
+                                      PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero,
+                                      CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
+                                      OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
             OcurrioError = True
         End If
 
@@ -18237,6 +18314,10 @@ Partial Class Ventas
                     Exit Sub
                 End If
                 If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
+                    If Not String.IsNullOrEmpty(FolioFiscal) Then
+                        Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
                     sb.Append("<b>No encontrado</b> <br/>")
                 Else
                     sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
@@ -18396,7 +18477,8 @@ Partial Class Ventas
             CancelarRefacturada()
         End If
 
-        CreaObjetosVenta()
+        CreaObjetosVenta(EsCancelacion:=True)
+
         Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing
 
         If ObjFactura IsNot Nothing AndAlso ObjFactura.CveVenta > 0 Then
@@ -18414,9 +18496,6 @@ Partial Class Ventas
                 End If
 
                 ObjFactura.CveAlmacenDevolucion = CveAlmacenDevolucion
-                If ChkDevAlm.Checked Then
-                    ObjFactura.CveAlmacenDevolucion = CveAlmacenDevolucion
-                End If
 
                 resp = ObjFactura.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar)
             End If
@@ -22043,7 +22122,7 @@ Partial Class Ventas
                                   Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                   PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero,
                                   CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal,
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue) Then
+                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
             MensajeError = "Ocurrió un error al actualizar la información de la cotización"
             OcurrioError = True
         End If
@@ -23515,12 +23594,15 @@ Partial Class Ventas
             End If
 
             For Each drow As DataRow In TmpDT.Rows
-                For Each drow2 As DataRow In DTCvePSCostos.Rows
+                If DTCvePSCostos IsNot Nothing Then
-                    If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then
+                    For Each drow2 As DataRow In DTCvePSCostos.Rows
-                        drow("Eliminar") = 1
+                        If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then
-                        Exit For
+                            drow("Eliminar") = 1
-                    End If
+                            Exit For
-                Next
+                        End If
+                    Next
+                End If
+
             Next
 
             Dim TmpDTView As New DataView(TmpDT)
@@ -23817,10 +23899,12 @@ Partial Class Ventas
         CargaRNC()
         RegistraScript("$('#ModalAplicarRemisionesNC').modal({backdrop: 'static', keyboard: false });")
     End Sub
+
+#Region "P O L I Z A - V I R T U A L"
     Protected Sub GeneraPolizaVentaWS(ObjFactura As Modelos.Factura)
         Dim DtUsados As DataTable = Nothing
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.GetGarantiasDetalle(ObjFactura.CveVenta) Then
+        If ObjAcum.GetGarantiasPolizaVirtual(ObjFactura.CveVenta) Then
             DtUsados = ObjAcum.DtResultados.Copy()
         End If
         ObjAcum.Dispose()
@@ -23850,8 +23934,8 @@ Partial Class Ventas
                 obj.sale_id = String.Format("{0}{1}{2}", ObjFactura.Serie, ObjFactura.Folio, ObjFactura.CveVenta)
 
                 'DATOS DEL PRODUCTO
-                obj.product_code = Row("Code17").ToString()
+                obj.product_code = Row("IdProductoPolizaVirtual").ToString()
-                obj.product_unique_code = "" 'se indique el código único de la batería. 
+                obj.product_unique_code = Row("SerieLote").ToString() 'se indique el código único de la batería. (SERIE LOTE)
                 obj.product_sale_type = "01 " 'VENTA
 
                 Dim FechaUsado As DateTime = Row("FechaAjuste").ToString().ToDateTime()
@@ -23944,5 +24028,39 @@ Partial Class Ventas
 
         Return Retorno
     End Function
+#End Region
+
+    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+            If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
+                For Each RowServicio As DataRow In TmpDT.Rows
+                    Dim ClienteRetIVA = Me.ClienteRetIVA
+                    If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                        ClienteRetIVA = 0.1D
+                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                        ClienteRetIVA = 0.04D
+                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso RowServicio("CveTipoPS").ToString().ToEntero() = 1 Then
+                        ClienteRetIVA = 0.06D
+                    End If
+
+                    Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
+                    RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
+                    RowServicio("PorcentajeRetIVA") = ClienteRetIVA
+
+                Next
+                TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
+                Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
+                LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
+                If PorcentajeRetIVA > 0 Then
+                    DdlTipoRetencion.Visible = True
+                End If
+
+                GvPS.DataSource = TmpDT
+                GvPS.DataBind()
+
+                UpPS.Update()
+            End If
+        End If
+    End Sub
 
 End Class