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

App_Code/ClsContabilidad.vb

@@ -1142,7 +1142,7 @@ Public Class ClsContabilidad
         Dim Retorno As Boolean = False
         Dim OcurrioError As Boolean = False
 
-        StrLog.AppendFormat("CvePrep:{0} - Inicio", CvePrePoliza)
+        StrLog.AppendFormat("CvePrep:{0} - Inicio -", CvePrePoliza)
 
         If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG
 
@@ -1265,6 +1265,7 @@ Public Class ClsContabilidad
                                     If Not ObjConta.AddMovimiento(tIdPoliza, dr("IdCtaContable").ToString.ToEntero, tipoMovimiento,
                                                       dr("ImporteMN").ToString.ToDecimal, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegmentoNegocio").ToString.ToEntero, Fecha, SigReferencia, dr("CvePrePolizaDetalle").ToString.ToEntero, ImporteMonedaExtranjera:=dr("ImporteME").ToString.ToDecimal) Then
                                         OcurrioError = True
+                                        StrLog.AppendFormat(" Error 1.1 - ")
                                         Exit For
                                     End If
 
@@ -1273,6 +1274,7 @@ Public Class ClsContabilidad
                                     If Not ObjConta.AddMovimiento(tIdPoliza, dr("IdCtaContable").ToString.ToEntero, tipoMovimiento,
                                                       dr("Importe").ToString.ToDecimal, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegmentoNegocio").ToString.ToEntero, Fecha, SigReferencia, dr("CvePrePolizaDetalle").ToString.ToEntero, ImporteMonedaExtranjera:=dr("ImporteME").ToString.ToDecimal) Then
                                         OcurrioError = True
+                                        StrLog.AppendFormat(" Error 1.2 - ")
                                         Exit For
                                     End If
 
@@ -1281,6 +1283,7 @@ Public Class ClsContabilidad
                                 End If
                             Else
                                 OcurrioError = True
+                                StrLog.AppendFormat(" Error 1.3 - ")
                                 Mensaje.Append(String.Format("<br> La cuenta contable {0} es invalida", dr("ConceptoContable")))
                                 Exit For
                             End If
@@ -1300,6 +1303,7 @@ Public Class ClsContabilidad
                                                                   dr("ISRRetenido").ToString.ToDecimal,
                                                                   dr("IVARetenido").ToString.ToDecimal, False) Then
                                     OcurrioError = True
+                                    StrLog.AppendFormat(" Error 1.4 - ")
 
                                 End If
                             End If
@@ -1349,6 +1353,7 @@ Public Class ClsContabilidad
                                         IdProveedor = ObjConta.AddProveedor(IdCtaContProveedores, RFC, RazonSocial, "")
                                         If IdProveedor <= 0 Then
                                             OcurrioError = True
+                                            StrLog.AppendFormat(" Error 1.5 - ")
                                         End If
                                     End If
 
@@ -1366,6 +1371,7 @@ Public Class ClsContabilidad
                                                                            dr("Serie").ToString.ToString,
                                                                            dr("Folio").ToString.StrToNum, dr("FolioFiscal").ToString, Empresa.CveEmpresa) Then
                                             OcurrioError = True
+                                            StrLog.AppendFormat(" Error 1.6 - ")
                                             Mensaje.Append("La Poliza o la Cuenta no son válidas ")
                                         End If
 
@@ -1379,12 +1385,14 @@ Public Class ClsContabilidad
 
                         If Not OcurrioError Then
                             If Not UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then
+                                StrLog.AppendFormat(" Error 2.1 - ")
                                 OcurrioError = True
                             End If
                         End If
 
                         If Not OcurrioError Then
                             If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa, CveUsuarioModifico:=CveUsuario) Then
+                                StrLog.AppendFormat(" Error 2.2 - ")
                                 OcurrioError = True
                             End If
                         End If
@@ -1406,11 +1414,13 @@ Public Class ClsContabilidad
 
                 Else
                     OcurrioError = True
+                    StrLog.AppendFormat(" Error 3.1 - ")
                 End If
 
 
 
             Catch ex As Exception
+                StrLog.AppendFormat(" Error 4.1 - ")
                 If Not ContaCompartida Then ObjConta.RollBack()
                 OnError("Ocurrió un error al intentar contabilizar la PrePoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
                 'Alert("Ocurrió un error al guardar la póliza", TipoMensaje.MsgAdvertencia)
@@ -1419,7 +1429,7 @@ Public Class ClsContabilidad
 
             If Not ContaCompartida Then ObjConta.Dispose()
         End If
-        StrLog.AppendFormat(" - Con Retorno ({0}) - OcurrioError ({1} - Mensaje: {2}: ", Retorno, OcurrioError, Mensaje)
+        StrLog.AppendFormat(" - Con Retorno ({0}) - OcurrioError ({1}) ", Retorno, OcurrioError)
         StrLog.AppendFormat(" - Fin")
         StrLog.ToString.GuardaLogAD("LogContabilizacion")
         Return Retorno
@@ -4227,7 +4237,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetAnexoCatalagoCC(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, Periodo As Integer, CveUsuario As Integer ) As Boolean
+    Public Function GetAnexoCatalagoCC(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, Periodo As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoCCGet")
@@ -5528,7 +5538,7 @@ Public Class ClsContabilidad
     End Function
 
 #Region "IVAS"
-    Public Function GetRepIVA(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer, TipoCambio As Integer, TCEspecifico As Double) As Boolean
+    Public Function GetRepIVA(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveUsuarioConsulta As Integer, CveCuentaBancaria As Integer, Conciliado As Integer, CveEmpresa As Integer, TipoCambio As Integer, TCEspecifico As Double) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_RepIVA")
         With SqlAdapter.SelectCommand.Parameters
@@ -5536,10 +5546,12 @@ Public Class ClsContabilidad
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveCuentaBancaria", SqlDbType.Int).Value = CveCuentaBancaria
             .Add("@Conciliado", SqlDbType.Int).Value = Conciliado
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio
             .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico
+            .Add("@Cuenta", SqlDbType.NVarChar).Value = Cuenta
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -5572,13 +5584,14 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetRepIVAComparativo(FechaInicio As Date, FechaFin As Date, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRepIVAComparativo(FechaInicio As Date, FechaFin As Date, CveUsuarioConsulta As Integer, CveCuentaBancaria As Integer, Conciliado As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_ImpuestosComparativo")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveCuentaBancaria", SqlDbType.Int).Value = CveCuentaBancaria
             .Add("@Conciliado", SqlDbType.Int).Value = Conciliado
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
@@ -5592,7 +5605,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetRepIVAAcumulado(FechaInicio As Date, FechaFin As Date, Conciliado As Integer, TipoImpuesto As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRepIVAAcumulado(FechaInicio As Date, FechaFin As Date, Conciliado As Integer, TipoImpuesto As Integer, CveCuentaBancaria As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_IVAAcumulado")
         With SqlAdapter.SelectCommand.Parameters
@@ -5600,6 +5613,7 @@ Public Class ClsContabilidad
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@TipoImpuesto", SqlDbType.Int).Value = TipoImpuesto
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveCuentaBancaria", SqlDbType.Int).Value = CveCuentaBancaria
             .Add("@Conciliado", SqlDbType.Int).Value = Conciliado
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 

App_Code/ClsContratos.vb

@@ -34,11 +34,17 @@ Public Class ClsContratos
     End Property
 
     Public Property NotificarAvanceAlcanzado As Boolean
-    Public Property CveContratoGasto As Integer
+    Public Property CveContratoGasto As Integer
-
+
-
+    Public Property NumeroEstimacionNueva As Integer
+    Public Property CveEstimacionNueva As Integer
+
+
+
+
+
 #End Region
-
+
 #Region "T R A N S A C C I O N E S"
     Public Function IniciaTransacSQL() As SqlTransaction
         If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
@@ -681,6 +687,94 @@ Public Class ClsContratos
 
 #End Region
 
+#Region "ESTIMACION OBRA"
+
+    Public Function GetContratosObraRepAvances(FechaI As Date, FechaF As Date, CveCliente As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_ContratosObraRepAvancesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar el avance de contratos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetContratosObraRepAvancesDetalle(CveContrato As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_ContratosObraRepAvancesDetalleGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar el detalle del avance.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetContratosObraRepAvancesPartida(CveEstimacion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_ContratosObraRepAvancesPartidaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEstimacion", SqlDbType.Int).Value = CveEstimacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar las partidas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetContratosObraRepAvancesPartida(FechaI As Date, FechaF As Date, CveCliente As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_ContratosObraRepAvancesPartidaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar el avance de partida.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
 #Region "C I C L O  C O M E R C I A L"
     Public Function CicloComercialAdd(CveContrato As Integer, CveCotizacion As Integer, CveCliente As Integer, FueFacturado As Boolean, CveFactura As Integer, Estatus As Integer, CveEmpresa As Integer, FechaVenc As Date) As Boolean
         Dim Retorno As Boolean = False
@@ -1060,14 +1154,15 @@ Public Class ClsContratos
 
         Return Retorno
     End Function
-    Public Function GetContratosAvanceAnexos(CveContratoDetalle As Integer, fecha As String, CveUsuario As Integer) As Boolean
+    Public Function GetContratosAvanceAnexos(CveContratoDetalle As Integer, fecha As String, CveUsuario As Integer, Optional CveEstimacion As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Con_ContratosAvanceAnexos")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
             .Add("@Fecha", SqlDbType.Date).Value = fecha
-            .Add("@CveUsuario", SqlDbType.Float).Value = CveUsuario
+            .Add("@CveUsuario", SqlDbType.Float).Value = CveUsuario
+            .Add("@CveEstimacion", SqlDbType.Float).Value = CveEstimacion
         End With
 
         Try
@@ -1102,6 +1197,61 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
+
+    Public Function AddContratosAvanceEstimacion(CveContrato As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        NumeroEstimacionNueva = -1
+        CveEstimacionNueva = -1
+
+        DataAdapter("PA_Con_ContratosEstimacionAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@NumeroEstimacion", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@CveEstimacion", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+
+        Try
+
+            SqlAdapter.Fill(Data)
+            NumeroEstimacionNueva = SqlAdapter.SelectCommand.Parameters("@NumeroEstimacion").Value.ToString.ToEntero
+            CveEstimacionNueva = SqlAdapter.SelectCommand.Parameters("@CveEstimacion").Value.ToString.ToEntero
+
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la estimación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function UpdateContratosAvanceEstimacion(CveContratoAvance As Integer, CveEstimacion As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_ContratosAvanceEstimacionUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContratoAvance", SqlDbType.Int).Value = CveContratoAvance
+            .Add("@CveEstimacion", SqlDbType.Int).Value = CveEstimacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el avance.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
 #End Region
 
 #Region " S E C C I O N E S "

App_Code/ClsInventarios.vb

@@ -1487,7 +1487,7 @@ Public Class ClsInventarios
     End Function
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
-                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1) As Boolean
+                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1508,6 +1508,7 @@ Public Class ClsInventarios
             .Add("@Orden", SqlDbType.Int).Value = Orden
             .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
             .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado
+            .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
         End With
 
         Try

App_Code/ClsMovimientos.vb

@@ -155,7 +155,7 @@ Public Class ClsMovimientos
         Return Retorno
     End Function
 
-    Public Function GetCxCCliente(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveUsuarioRegistro As Integer, CveEmpresa As Integer, Optional TipoAgrupador As Integer = 1, Optional CveUsuarioConsulta As Integer = -1) As Boolean
+    Public Function GetCxCCliente(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveUsuarioRegistro As Integer, CveEmpresa As Integer, Optional TipoAgrupador As Integer = 1, Optional CveUsuarioConsulta As Integer = -1, Optional Cuenta As String = "-1") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_Clientes")
 
@@ -169,6 +169,7 @@ Public Class ClsMovimientos
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoAgrupador", SqlDbType.Int).Value = TipoAgrupador
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@Cuenta", SqlDbType.NVarChar).Value = Cuenta
 
         End With
 

App_Code/ClsOIEventos.vb

@@ -745,7 +745,7 @@ Public Class ClsOIEventos
             OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return retorno
-    End Function
+    End Function
     Public Function UPEventosVinculo(CveEvento As Integer, CveTipoRelacion As Integer, CveRelacion As Integer, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_OI_EventosVinculoUP", CommandType.StoredProcedure)

App_Code/ClsPaginas.vb

@@ -4981,13 +4981,12 @@ Public Class ClsPaginas
             PaginaDict.Add("/PV/PVRepVentasCompras.aspx".ToUpper(), 273)
 
             PaginaDict.Add("/Contratos/ContratoObra.aspx".ToUpper(), -1)
-
+            PaginaDict.Add("/Contratos/RepContratosObraAvances.aspx".ToUpper(), -1)
-
+            PaginaDict.Add("/Contratos/RepContratosObraAvancesDetalle.aspx".ToUpper(), -1)
-
+            PaginaDict.Add("/Contratos/RepContratosObraAvancesPartida.aspx".ToUpper(), -1)
 
 
             'Orden Produccion'
-
             'RMA
             PaginaDict.Add("/RMA/Garantias.aspx".ToUpper(), 175)
 

App_Code/modExtensiones.vb

@@ -2921,6 +2921,24 @@ Namespace Extensiones
 
             Return Retorno
         End Function
+
+        Public Function ContabilizaMovimientoAlmacen(ByRef ObjConta As ClsContabilidad, Fecha As Date, Concepto As String, Modulo As String, CveMovimientoSalida As Integer, CveMovimientoEntrada As Integer, Importe As Decimal, CveUsuario As Integer, CveEmpresa As Integer, Contabilizable As Boolean) As Integer
+            Dim Retorno As Integer = -1
+            Dim ErrorMovInv As Boolean = False
+
+            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas(Modulo, 53, 0, 0, 1, Fecha, Concepto, CveUsuario, CveEmpresa)
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then
+                ErrorMovInv = True
+            End If
+
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then
+                ErrorMovInv = True
+            End If
+
+            If Not ErrorMovInv Then Retorno = CvePrePoliza
+
+            Return Retorno
+        End Function
 #End Region
 
 #Region "GPS"

Bancos/RepCxCCliente.aspx

@@ -120,6 +120,9 @@
                                     <asp:ListItem Text="Moneda" Value="2"></asp:ListItem>
                                 </asp:DropDownList>
                             </li>
+                            <li>Cuenta:&nbsp;&nbsp;&nbsp;&nbsp;
+                                <asp:Textbox runat="server" ID="TxtCuenta" Width="120px"/>
+                            </li>
                         </ul>
                     </div>
                 </div>

Bancos/RepCxCCliente.aspx.vb

@@ -55,7 +55,9 @@ Partial Class Bancos_RepCxCCliente
         If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1"
         If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1"
 
-        If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
+        Dim Cuenta As String = If(TxtCuenta.Text = "", "-1", TxtCuenta.Text)
+
+        If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta) Then
             GvCxC.DataSource = Mov.DtResultados
         End If
         UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue
@@ -138,7 +140,7 @@ Partial Class Bancos_RepCxCCliente
         If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1"
         Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
 
-        If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+        If ObjMovtos.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, Cuenta:=TxtCuenta.Text) Then
             DTpp = ObjMovtos.DtResultados
         Else
             DTpp = Nothing

Compras/Compras.aspx.vb

@@ -6698,8 +6698,15 @@ Partial Class Compras_Compras
                                                                                 End If
                                                                             Next
 
+                                                                            'obtengo si hay servicios
+                                                                            Dim CostosIndirectosTardados As Decimal = TmpDT.SUMD("Total", "ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 1")
+                                                                            'consideracion, si la oc, se le agrego un servicio y este no se cargo en la entrada al almacen.
+                                                                            If CostoIndirectoAcum176 = 0 AndAlso CostosIndirectosTardados > 0 Then
+                                                                                CostosIndirectosTardados = CostosIndirectosTardados * TCO
+                                                                            End If
+
                                                                             'calcula la diferencia entre lo recibido por la OC, considerando costos indirectos y lo que se ingresaria en la compra
-                                                                            SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * TCO).RoundSQL 'sumatoria de la factura
+                                                                            SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * TCO).RoundSQL + CostosIndirectosTardados 'sumatoria de la factura
                                                                             If SumatoriaOCINV.RoundSQL <> 0 Then
                                                                                 ' se abona el costo, cambiamos su naturaleza
                                                                                 'SumatoriaOCINV = -SumatoriaOCINV

Compras/eFacturas.aspx

@@ -570,6 +570,13 @@
 
                                 <asp:BoundField DataField="FechaPago" HeaderText="Fecha Pago" ItemStyle-HorizontalAlign="center"  DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="ImportePago" HeaderText="Importe Pago" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
+                                
+                                <asp:TemplateField   ItemStyle-HorizontalAlign="Center" Visible="false">
+                                    <ItemTemplate>
+                                        <asp:Label  ID="LblCveIE" runat="server"  />
+                                        <asp:Label  ID="LblCvePrePolizaDetalle" runat="server"  />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
 
                             </Columns>
                         </asp:GridView>

Compras/eFacturas.aspx.vb

@@ -2926,6 +2926,9 @@ Partial Class Compras_eFacturas
             End If
         Next
 
+
+
+
         If MSGComplemento.Trim.Length > 0 Then
             ' BtnVincularPago.Visible = False
             ViculacionConPUE = True
@@ -2974,11 +2977,30 @@ Partial Class Compras_eFacturas
 
 
         GvVincularPago.DataBind()
-        UpVincularPago.Update()
+
 
 
         ListaComprasPUE = ListaComprasPUEInterna
 
+
+        If DivVincularPagoManualmente.Visible Then
+
+            For Each GvRowValidaCompra As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+                If GvRowValidaCompra.DataKey("CveCompra").ToEntero > 0 Then
+                    DivVincularPagoManualmente.Visible = True
+                    Exit For
+                Else
+                    DivVincularPagoManualmente.Visible = False
+                End If
+            Next
+
+        End If
+
+
+
+        UpVincularPago.Update()
+
+
         RegistraScript("$('#ModalVincularPago').modal('show')", "VincularPagoModalShow")
     End Sub
 
@@ -3004,11 +3026,25 @@ Partial Class Compras_eFacturas
 
         For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
-            If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
+            If HdnCveIE.Value.ToEntero > 0 Then
-                TieneError = True
+                If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.FCLabel("LblCveIE").Text.ToEntero > 0 Then
+
+                    If Not ObjCompra.AddComplementoPago(Gv.FCLabel("LblCveIE").Text.ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero, CveFacturaPago) > 0 Then
+                        TieneError = True
+                        Exit For
+                    End If
+
+                End If
+            Else
+                If Gv.DataKey("CveCompra").ToEntero > 0 Then
+
+                    If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
+                        TieneError = True
+                        Exit For
+                    End If
+
+                End If
             End If
-
-
         Next
 
         If Not TieneError AndAlso Not ObjCompra.AddVincularPago(CveFacturaPago) Then
@@ -3021,6 +3057,7 @@ Partial Class Compras_eFacturas
 
             If ViculacionConPUE Then
 
+
                 For Each CveCompraVinculada In ListaComprasPUE
                     objEventos.AddEventoBitacora($"Complemento { ComplementoConPUE }  vinculado manualmente (Compra PUE) ", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompraVinculada)
                 Next
@@ -3040,6 +3077,8 @@ Partial Class Compras_eFacturas
 
             ObjCompra.Commit()
 
+            HdnCveIE.Value = ""
+
             Alert("El pago fue vinculado correctamente", TipoMensaje.MsgInformacion)
             RegistraScript("$('#ModalVincularPago').modal('hide')", "VincularPagoModalHide")
             CargaDatos()
@@ -3062,33 +3101,83 @@ Partial Class Compras_eFacturas
     End Sub
 
     Protected Sub BtnVincularManualmente_Click(sender As Object, e As EventArgs)
+
+
         If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
+
             Dim ImportePago As Double = 0
             Dim ImporteIES As Double = 0
             Dim SerieFolioIE As String = ""
             Dim ObjCompras As New ClsCompras
+            Dim ErrorVinculacion = True
+
             If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
-                GvVincularPago.DataSource = ObjCompras.DtResultados
+
-                If ObjCompras.DtResultados.Rows.Count > 0 Then
+                'GvVincularPago.DataSource = ObjCompras.DtResultados
-                    SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
+
-                End If
+                'If ObjCompras.DtResultados.Rows.Count > 0 Then
-                ImportePago = ObjCompras.DtResultados.SUMD("Monto")
+                '    SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
+                'End If
+
+
+                'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
+
+                For Each Drow As DataRow In ObjCompras.DtResultados.Rows
+                    For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+
+                        If GvRow.RowType = DataControlRowType.DataRow Then
+
+                            If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then
+
+                                GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString
+                                GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString
+
+                            End If
+
+                        End If
+
+                    Next
+                Next
+
+
+                For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+                    If GvRow.RowType = DataControlRowType.DataRow Then
+                        If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
+                            ErrorVinculacion = False
+                            Exit For
+                        Else
+                            ErrorVinculacion = True
+
+                        End If
+                    End If
+                Next
+
+            Else
+                ErrorVinculacion = True
             End If
 
-            ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+            If Not ErrorVinculacion Then
-            ObjCompras.Dispose()
+                ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+                ObjCompras.Dispose()
 
-            BtnVincularPago.Visible = True
+                BtnVincularPago.Visible = True
+
+                LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
+                LblImportePago.Text = ImportePago.FormatoNumero
+                'LblSerieFolioIE.Text = SerieFolioIE
+                LblImporteIE.Text = ImporteIES.FormatoNumero
+
+                GvVincularPago.DataBind()
+                UpVincularPago.Update()
+                ObjCompras.Dispose()
+
+            Else
+                Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia)
+            End If
 
-            LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
-            LblImportePago.Text = ImportePago.FormatoNumero
-            'LblSerieFolioIE.Text = SerieFolioIE
-            LblImporteIE.Text = ImporteIES.FormatoNumero
 
-            GvVincularPago.DataBind()
-            UpVincularPago.Update()
-            ObjCompras.Dispose()
         End If
+
     End Sub
 
     Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated

Contabilidad/RepIVA.aspx

@@ -3,12 +3,12 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-     <style>
+    <style>
         .truncate2 {
             white-space: nowrap;
             overflow: hidden;
             text-overflow: ellipsis;
-            max-width:100px;
+            max-width: 100px;
         }
     </style>
 </asp:Content>
@@ -16,21 +16,21 @@
     Reporte de Impuestos
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-        <li>
+    <li>
         <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="LnkExcel"  OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
-     <li>
+    <li>
         <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
     </li>
-    <asp:UpdatePanel runat="server" ID="UpAccionesDIOT" UpdateMode="Conditional" >
+    <asp:UpdatePanel runat="server" ID="UpAccionesDIOT" UpdateMode="Conditional">
         <ContentTemplate>
 
-        <li>
+            <li>
-            <asp:LinkButton ID="LnkAccionesDIOT" OnClick="LnkAccionesDIOT_Click" runat="server" Visible="false"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Generar DIOT</asp:LinkButton>
+                <asp:LinkButton ID="LnkAccionesDIOT" OnClick="LnkAccionesDIOT_Click" runat="server" Visible="false"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Generar DIOT</asp:LinkButton>
-        </li>
+            </li>
 
         </ContentTemplate>
         <Triggers>
@@ -38,14 +38,14 @@
         </Triggers>
     </asp:UpdatePanel>
     <li>
-        <asp:LinkButton ID="LnkExcel2"  OnClick="LnkExcel2_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generales del proveedor</asp:LinkButton>
+        <asp:LinkButton ID="LnkExcel2" OnClick="LnkExcel2_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generales del proveedor</asp:LinkButton>
     </li>
-    <asp:UpdatePanel runat="server" ID="UPPCompara" UpdateMode="Conditional" >
+    <asp:UpdatePanel runat="server" ID="UPPCompara" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-               <asp:LinkButton ID="LnkModalCompara"  OnClick="LnkModalCompara_Click" runat="server"><i class="fa fa-list-o" style="font-weight:bold;"></i> Comparativo</asp:LinkButton>
+                <asp:LinkButton ID="LnkModalCompara" OnClick="LnkModalCompara_Click" runat="server"><i class="fa fa-list-o" style="font-weight:bold;"></i> Comparativo</asp:LinkButton>
             </li>
-            </ContentTemplate>         
+        </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
@@ -59,6 +59,8 @@
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
                         <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" CssClass="btn btn-primary" />
+                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= chkexpand.Checked ? "collapse": "expand"%>"></a>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
                     <div class="titlefiltros  caption ">
                         <div class="row">
@@ -93,17 +95,23 @@
                                     <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
-                             <label class="col-md-1 truncate">Tipo Movto:</label>
+                            <label class="col-md-1 truncate">Tipo Movto:</label>
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlTipoMovto" runat="server">
-                                     <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                     <asp:ListItem Text="Conciliados" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Conciliados" Value="1"></asp:ListItem>
                                 </asp:DropDownList>
-                             </div>
+                            </div>
                         </div>
                     </div>
                 </div>
-                <div class="portlet-body">
+                <div class="portlet-body magindate" <%= chkexpand.Checked ? "":"style='display:none;'"%>>
+                    <div class="row">
+                        <label class="col-md-1 truncate">Num. Cuenta</label>
+                        <div class="col-md-2">
+                            <asp:TextBox runat="server" ID="TxtCuenta" CssClass="form-control input-sm" />
+                        </div>
+                    </div>
                 </div>
             </div>
         </ContentTemplate>
@@ -112,134 +120,134 @@
         <ContentTemplate>
 
             <ajax:TabContainer ID="TT" runat="server" ActiveTabIndex="0" Width="100%">
-        <ajax:TabPanel ID="TTr" runat="server" HeaderText="IVA Trasladado">
+                <ajax:TabPanel ID="TTr" runat="server" HeaderText="IVA Trasladado">
-            <ContentTemplate>
+                    <ContentTemplate>
 
 
-                <div class="row">
+                        <div class="row">
 
-                     
-            <h4><b>IVA Trasladado</b></h4>
-            <asp:GridView ID="GvT" runat="server" EmptyDataText="No se encontraron datos con los filtros seleccionados" OnRowDataBound="GvIVATrasladado_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="99%" GridLines="None" AutoGenerateColumns="false">
-                <Columns>
-                    <asp:BoundField HeaderText="Docto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField HeaderText="Fecha Documento" DataField="FechaDocumento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
-                    <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Folio" ControlStyle-Width="85px" />
-                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RetIVA" DataField="RetIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RetIVA Serv" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />  
-                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />                  
-                    <asp:BoundField HeaderText="F.Venta" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" />
-                   
-                    <asp:HyperLinkField HeaderText="Cliente" DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataTextField="Nombre" ControlStyle-CssClass="truncate2" />
-                    <asp:HyperLinkField HeaderText="Folio Bancario" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataTextField="FolioIE" Target="_blank" />                    
-                    
-                    <asp:BoundField HeaderText="Num. Cuenta" DataField="NumCuenta" ItemStyle-CssClass="truncate2" />
-                </Columns>
-            </asp:GridView>
 
-            </div>
+                            <h4><b>IVA Trasladado</b></h4>
-            <br />
+                            <asp:GridView ID="GvT" runat="server" EmptyDataText="No se encontraron datos con los filtros seleccionados" OnRowDataBound="GvIVATrasladado_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="99%" GridLines="None" AutoGenerateColumns="false">
-                 <div class="row">
+                                <Columns>
+                                    <asp:BoundField HeaderText="Docto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
+                                    <asp:BoundField HeaderText="Fecha Documento" DataField="FechaDocumento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                    <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Folio" ControlStyle-Width="85px" />
+                                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="RetIVA" DataField="RetIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="RetIVA Serv" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="F.Venta" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" />
 
-                 <div id="DvTipo"  class="col-md-6">
+                                    <asp:HyperLinkField HeaderText="Cliente" DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataTextField="Nombre" ControlStyle-CssClass="truncate2" />
-             <h4><b>IEPS por Porcentaje</b></h4>
+                                    <asp:HyperLinkField HeaderText="Folio Bancario" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataTextField="FolioIE" Target="_blank" />
-             <asp:GridView ID="GvIEPSA" runat="server"  EmptyDataText="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="400px" GridLines="None" AutoGenerateColumns="false">
+
-                <Columns>
+                                    <asp:BoundField HeaderText="Num. Cuenta" DataField="NumCuenta" ItemStyle-CssClass="truncate2" />
-                    <asp:BoundField HeaderText="Porcentaje" DataField="PorcentajeIEPS"  />
+                                </Columns>
-                    <asp:BoundField HeaderText="Categoría" DataField="Categoria"  />
+                            </asp:GridView>
-                    <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}"  ItemStyle-HorizontalAlign="Right" />
+
-                    <asp:BoundField HeaderText="Base" DataField="Base" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                        </div>
-                    
+                        <br />
-                </Columns>
+                        <div class="row">
-            </asp:GridView>
+
-                       </div>
+                            <div id="DvTipo" class="col-md-6">
-                       <div  class="col-md-6">
+                                <h4><b>IEPS por Porcentaje</b></h4>
-                             <h4><b>IVA por Porcentaje</b></h4>
+                                <asp:GridView ID="GvIEPSA" runat="server" EmptyDataText="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="400px" GridLines="None" AutoGenerateColumns="false">
-                <asp:GridView ID="GvIVAA" runat="server"  EmptyDataText="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="400px" GridLines="None" AutoGenerateColumns="false">
+                                    <Columns>
-                <Columns>
+                                        <asp:BoundField HeaderText="Porcentaje" DataField="PorcentajeIEPS" />
-                    <asp:BoundField HeaderText="Porcentaje" DataField="PorcentajeIVA"  />
+                                        <asp:BoundField HeaderText="Categoría" DataField="Categoria" />
-                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"  />
+                                        <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Base" DataField="Base" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                        <asp:BoundField HeaderText="Base" DataField="Base" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    
+
-                </Columns>
+                                    </Columns>
-            </asp:GridView>
+                                </asp:GridView>
                             </div>
-                      </div>
+                            <div class="col-md-6">
-             <br />
+                                <h4><b>IVA por Porcentaje</b></h4>
-                
+                                <asp:GridView ID="GvIVAA" runat="server" EmptyDataText="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="400px" GridLines="None" AutoGenerateColumns="false">
-            </ContentTemplate>
+                                    <Columns>
-        </ajax:TabPanel>
+                                        <asp:BoundField HeaderText="Porcentaje" DataField="PorcentajeIVA" />
+                                        <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                        <asp:BoundField HeaderText="Base" DataField="Base" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
 
-        <ajax:TabPanel ID="TA" runat="server" HeaderText="IVA Acreditable">
+                                    </Columns>
-            <ContentTemplate>
+                                </asp:GridView>
-            <h4><b>IVA Acreditable</b></h4>
+                            </div>
-                <asp:Label ID="LblMsgAcreditable" runat="server" Text="" ForeColor="Red"></asp:Label>
+                        </div>
-            <asp:GridView ID="GvA" runat="server"  EmptyDataText="No se encontraron datos con los filtros seleccionados" OnRowDataBound="GvIVAAcreditable_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="99%" GridLines="None" AutoGenerateColumns="false">
+                        <br />
-                <Columns>
-                    <asp:BoundField HeaderText="Docto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-HorizontalAlign="Center" />
-                    <asp:HyperLinkField HeaderText="Proveedor" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataTextField="RazonSocial" ControlStyle-CssClass="truncate2" />
-                    <asp:BoundField HeaderText="Fecha Documento" DataField="FechaDocumento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
-                    <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" Target="_blank" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" HeaderText="Folio" />
-                    <asp:BoundField HeaderText="SubTotal 16%" DataField="valorActos1516" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="SubTotal 8%" DataField="valorActosImp8" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="SubTotal 0%" DataField="valorActosImp0" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                      <asp:BoundField HeaderText="IVA ND" DataField="IVANoDeducible" DataFormatString="{0:#,###,###.##}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
-                        <HeaderTemplate>
-                             <asp:Label ID="LblHRetIVAHon" data-toggle="tooltip" data-placement="top" ToolTip="Ret IVA Honorario/Serv. Prof." runat="server">RetIVA <br/>Hon/Ser.Prof.</asp:Label>                         
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                              <asp:Label ID="LblRetIVAHon" runat="server" Text='<%# Eval("RetIVAHonorario", "{0:N2}") %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:BoundField HeaderText="RetIVA <br/> Fletes P.F" HtmlEncode="False" DataField="RetIVAFletePF" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RetIVA <br/> Fletes P.M." HtmlEncode="False" DataField="RetIVAFletePM" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RetIVA <br/> Arrenda." HtmlEncode="False" DataField="RetIVAArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RetIVA <br/> Serv." HtmlEncode="False" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                   
-                    <asp:BoundField HeaderText="RetISR <br/> Honorario" HtmlEncode="False" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RetISR <br/> Arrendamiento" HtmlEncode="False" DataField="RetISRArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="F.Compra" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" />
 
-        <%--            <asp:BoundField HeaderText="IEPS 3%" DataField="IEPS3" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                    </ContentTemplate>
+                </ajax:TabPanel>
+
+                <ajax:TabPanel ID="TA" runat="server" HeaderText="IVA Acreditable">
+                    <ContentTemplate>
+                        <h4><b>IVA Acreditable</b></h4>
+                        <asp:Label ID="LblMsgAcreditable" runat="server" Text="" ForeColor="Red"></asp:Label>
+                        <asp:GridView ID="GvA" runat="server" EmptyDataText="No se encontraron datos con los filtros seleccionados" OnRowDataBound="GvIVAAcreditable_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="99%" GridLines="None" AutoGenerateColumns="false">
+                            <Columns>
+                                <asp:BoundField HeaderText="Docto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
+                                <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-HorizontalAlign="Center" />
+                                <asp:HyperLinkField HeaderText="Proveedor" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataTextField="RazonSocial" ControlStyle-CssClass="truncate2" />
+                                <asp:BoundField HeaderText="Fecha Documento" DataField="FechaDocumento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" Target="_blank" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" HeaderText="Folio" />
+                                <asp:BoundField HeaderText="SubTotal 16%" DataField="valorActos1516" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="SubTotal 8%" DataField="valorActosImp8" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="SubTotal 0%" DataField="valorActosImp0" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="IVA ND" DataField="IVANoDeducible" DataFormatString="{0:#,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LblHRetIVAHon" data-toggle="tooltip" data-placement="top" ToolTip="Ret IVA Honorario/Serv. Prof." runat="server">RetIVA <br/>Hon/Ser.Prof.</asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="LblRetIVAHon" runat="server" Text='<%# Eval("RetIVAHonorario", "{0:N2}") %>'></asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:BoundField HeaderText="RetIVA <br/> Fletes P.F" HtmlEncode="False" DataField="RetIVAFletePF" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="RetIVA <br/> Fletes P.M." HtmlEncode="False" DataField="RetIVAFletePM" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="RetIVA <br/> Arrenda." HtmlEncode="False" DataField="RetIVAArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="RetIVA <br/> Serv." HtmlEncode="False" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+
+                                <asp:BoundField HeaderText="RetISR <br/> Honorario" HtmlEncode="False" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="RetISR <br/> Arrendamiento" HtmlEncode="False" DataField="RetISRArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="F.Compra" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" />
+
+                                <%--            <asp:BoundField HeaderText="IEPS 3%" DataField="IEPS3" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IEPS 6%" DataField="IEPS6" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IEPS 7%" DataField="IEPS7" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="IEPS 9%" DataField="IEPS9" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
-                     
-                    
-                    <asp:HyperLinkField HeaderText="Folio Bancario" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataTextField="FolioIE" Target="_blank" />                    
-                   
-                    <asp:BoundField HeaderText="Num. Cuenta" DataField="NumCuenta" ItemStyle-CssClass ="truncate2"/>
-                </Columns>
-            </asp:GridView>
 
-                  <div class="row">
+
-                       <h4><b>IVA por Porcentaje</b></h4>
+                                <asp:HyperLinkField HeaderText="Folio Bancario" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataTextField="FolioIE" Target="_blank" />
-                <asp:GridView ID="GvIVA2" runat="server"  EmptyDataText="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="400px" GridLines="None" AutoGenerateColumns="false">
+
-                <Columns>
+                                <asp:BoundField HeaderText="Num. Cuenta" DataField="NumCuenta" ItemStyle-CssClass="truncate2" />
-                    <asp:BoundField HeaderText="Porcentaje" DataField="PorcentajeIVA"  />
+                            </Columns>
-                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"  />
+                        </asp:GridView>
-                    <asp:BoundField HeaderText="Base" DataField="Base" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+
-                    
+                        <div class="row">
-                </Columns>
+                            <h4><b>IVA por Porcentaje</b></h4>
-            </asp:GridView>
+                            <asp:GridView ID="GvIVA2" runat="server" EmptyDataText="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="400px" GridLines="None" AutoGenerateColumns="false">
-                          </div>
+                                <Columns>
-           
+                                    <asp:BoundField HeaderText="Porcentaje" DataField="PorcentajeIVA" />
-            </ContentTemplate>
+                                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-        </ajax:TabPanel>
+                                    <asp:BoundField HeaderText="Base" DataField="Base" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-    </ajax:TabContainer>
+
+                                </Columns>
+                            </asp:GridView>
+                        </div>
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+            </ajax:TabContainer>
 
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -279,7 +287,7 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-     <div id="ModalCompara" class="modal ADS fade" role="dialog">
+    <div id="ModalCompara" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpCompara" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
                 <div class="modal-content">
@@ -288,23 +296,23 @@
                         <h4 class="modal-title">Comparativo</h4>
                     </div>
                     <div class="modal-body">
-                         
 
-                        <asp:GridView ID="GvCompara" runat="server" GridLines="None" AutoGenerateColumns="False"  EmptyDataText="" CssClass="table table-striped table-hover table-advance Widthall">
+
+                        <asp:GridView ID="GvCompara" runat="server" GridLines="None" AutoGenerateColumns="False" EmptyDataText="" CssClass="table table-striped table-hover table-advance Widthall">
                             <Columns>
-                                <asp:BoundField DataField="Msg" HeaderText="Mensaje" /> 
+                                <asp:BoundField DataField="Msg" HeaderText="Mensaje" />
-                                <asp:BoundField DataField="FueConciliado" HeaderText="Conciliado" />  
+                                <asp:BoundField DataField="FueConciliado" HeaderText="Conciliado" />
-                                <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />  
+                                <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />
-                                <asp:BoundField DataField="ImporteMN" HeaderText="Importe" DataFormatString="{0:N2}" />  
+                                <asp:BoundField DataField="ImporteMN" HeaderText="Importe" DataFormatString="{0:N2}" />
-                                <asp:HyperLinkField  DataTextField="CvePrePoliza"   DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"  DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />  
+                                <asp:HyperLinkField DataTextField="CvePrePoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />
-                                <asp:HyperLinkField  DataTextField="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" HeaderText="IE" />  
+                                <asp:HyperLinkField DataTextField="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" HeaderText="IE" />
                                 <asp:BoundField DataField="FechaAplicado" HeaderText="Fecha Aplicado" DataFormatString="{0:d}" />
                             </Columns>
                         </asp:GridView>
 
                     </div>
                     <div class="modal-footer">
-                         .
+                        .
                     </div>
                 </div>
             </ContentTemplate>

Contabilidad/RepIVA.aspx.cs

@@ -73,26 +73,27 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         if (TipoCambio == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; }
         int Conciliado = DdlTipoMovto.SelectedValue.ToEntero();
         LblMsgAcreditable.Text = ""; // lbl de mensajes de negativos
+        string Cuenta = TxtCuenta.Text == "" ? "-1" : TxtCuenta.Text;
 
         ClsContabilidad ObjCont = new ClsContabilidad();
-        if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 1, UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico))
+        if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 1, UsuarioActual.CveUsuario, -1, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico))
         {
             GvT.DataSource = ObjCont.DtResultados;
             DtIVATrasladado = ObjCont.DtResultados;
-            if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+            if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
             {
                 GvIEPSA.DataSource = ObjCont.DtResultados;
                 DtIEPSA = ObjCont.DtResultados;
             }
 
-            if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+            if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 2, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
             {
                 GvIVAA.DataSource = ObjCont.DtResultados;
                 DtIVAA = ObjCont.DtResultados;
             }
 
         }
-        if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico))
+        if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, -1, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico))
         {
             GvA.DataSource = ObjCont.DtResultados;
             DtIVAAcreditable = ObjCont.DtResultados;
@@ -102,7 +103,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             }
 
 
-            if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+            if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
             {
                 GvIVA2.DataSource = ObjCont.DtResultados;
             }
@@ -276,7 +277,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         StringBuilder SBDIOT = new StringBuilder();
         int Conciliado = DdlTipoMovto.SelectedValue.ToEntero();
 
-        if (Objconta.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico))
+        if (Objconta.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, -1, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico))
         {
 
             foreach (DataRow Drow in Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0 and SubTotal >= 1  ").Rows) // and(IVA > 1 OR IEPS > 0)
@@ -352,7 +353,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
        
         int Conciliado = DdlTipoMovto.SelectedValue.ToEntero();
 
-        if (Objconta.GetRepIVAComparativo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(),  UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa ))
+        if (Objconta.GetRepIVAComparativo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(),  UsuarioActual.CveUsuario, -1, Conciliado, UsuarioActual.CveEmpresa ))
         {
             GvCompara.DataSource = Objconta.DtResultados;             
         }

Contratos/ContratoAvance.aspx

@@ -273,7 +273,7 @@
                 <div class="col-md-12">
 
                     <asp:GridView ID="GvEstimaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance" 
-                DataKeyNames="CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance"
+                DataKeyNames="CveContratoAvance,CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance"
                   CssClass="table GVEstimacion table-advance table-hover" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="">

Contratos/ContratoAvance.aspx.vb

@@ -33,7 +33,22 @@ Partial Class Contratos_ContratoAvance
         Set(value As Integer)
             ViewState("CveContrato") = value
         End Set
+    End Property
+
+
+    Private Property CveContratoEstimacion As Integer
+        Get
+            If ViewState("CveContratoEstimacion") Is Nothing Then
+                Return Nothing
+            Else
+                Return ViewState("CveContratoEstimacion").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveContratoEstimacion") = value
+        End Set
     End Property
+
     'fecha seleccionada del historico de avances
     Private Property fecha As String
         Get
@@ -306,7 +321,7 @@ Partial Class Contratos_ContratoAvance
 
 
     Private Sub CargaAvancesParaEstimar()
-
+        CveContratoEstimacion = -1
 
         Dim ObjContratos As New ClsContratos()
         Dim DTEstimaciones As New DataTable
@@ -314,9 +329,10 @@ Partial Class Contratos_ContratoAvance
 
         If ObjContratos.GetContratosAvanceEstimacion(DDlContratosEstimaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             DTEstimaciones = ObjContratos.DtResultados
-            BtnGuardarEstimacion.Visible = True
+
-        Else
+            CveContratoEstimacion = DDlContratosEstimaciones.SelectedValue.ToEntero
-            BtnGuardarEstimacion.Visible = False
+
+
         End If
 
 
@@ -325,8 +341,10 @@ Partial Class Contratos_ContratoAvance
 
         If DTEstimaciones.Rows.Count > 0 Then
             GvEstimaciones.DataSource = DTEstimaciones
+            BtnGuardarEstimacion.Visible = True
         Else
             GvEstimaciones.DataSource = Nothing
+            BtnGuardarEstimacion.Visible = False
         End If
         GvEstimaciones.DataBind()
 
@@ -358,16 +376,46 @@ Partial Class Contratos_ContratoAvance
             End If
         End If
 
-
-
-
     End Sub
 
     Private Sub BtnGuardarEstimacion_Click(sender As Object, e As EventArgs) Handles BtnGuardarEstimacion.Click
 
         Dim ObjContratos As New ClsContratos()
+        Dim ErrorProceso As Boolean = False
+        Dim NuemeroEstimacion As Integer = -1
+        ObjContratos.IniciaTransacSQL()
 
 
+        If ObjContratos.AddContratosAvanceEstimacion(CveContratoEstimacion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+
+
+            NuemeroEstimacion = ObjContratos.NumeroEstimacionNueva
+
+            For Each GvRow As GridViewRow In GvEstimaciones.Rows
+
+                If GvRow.DataKey("CveContratoAvance").ToEntero > 0 Then
+                    If Not ObjContratos.UpdateContratosAvanceEstimacion(GvRow.DataKey("CveContratoAvance").ToEntero, ObjContratos.CveEstimacionNueva, UsuarioActual.CveEmpresa) Then
+                        ErrorProceso = True
+                        Exit For
+                    End If
+                End If
+            Next
+
+        Else
+            ErrorProceso = True
+        End If
+
+        'AddContratosAvanceEstimacion
+        'UpdateContratosAvanceEstimacion
+
+
+
+        If Not ErrorProceso Then
+            ObjContratos.Commit()
+            Alert($"Estimación {NuemeroEstimacion} agregada correctamente.")
+        Else
+            ObjContratos.RollBack()
+        End If
 
         ObjContratos.Dispose()
 

Contratos/RepContratosAvances.aspx

@@ -1,124 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepContratosAvances.aspx.vb" Inherits="RepContratosAvances" %>
-
-<%@ 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">
-    Reporte de Contratos
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <asp:Panel ID="PnlFiltros" runat="server" DefaultButton="CmdConsultar">
-                <div class="portlet solid grey-cascade portlet-filter" style="">
-                    <div class="portlet-title portlet-filterT" style="">
-                        <div class="titlefiltros caption ">
-                            <ul class="list-inline" id="TrProgramar" runat="server">
-                                <li>Cliente:
-                                <asp:DropDownList ID="DdlCliente" runat="server" AutoPostBack="true" DataTextField="NombreComercial" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;"></asp:DropDownList>
-                                </li>
-                                <li>Contratos:
-                                <asp:DropDownList ID="DdlContrato" runat="server" AutoPostBack="true" DataTextField="NumeroContrato" DataValueField="CveContrato" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"></asp:DropDownList>
-                                </li>
-                                <li style="display: none;">Sección:
-                                <asp:DropDownList ID="DdlSeccion" runat="server" AutoPostBack="false" DataTextField="Seccion" DataValueField="CveSeccion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"></asp:DropDownList>
-                                </li>
-                                <li>Partida:
-                                <asp:DropDownList ID="DdlClasificacion" runat="server" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>
-                                </li>
-                                <li>Productos y Servicios:
-                                <asp:DropDownList ID="DdlPS" runat="server" AutoPostBack="true" DataTextField="PS" DataValueField="CvePS" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 150px !important;"></asp:DropDownList>
-                                </li>
-                            </ul>
-                        </div>
-                        <div class="tools">
-                            <asp:Button ID="CmdConsultar" runat="server" Text="Consultar" class="btn btn-primary" CausesValidation="true" ValidationGroup="GrConsulta" />
-                        </div>
-                    </div>
-                </div>
-            </asp:Panel>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <table class="table table-striped table-advance table-hover">
-                <thead>
-                    <tr class="Titulos">
-                        <th width="60px">#</th>
-                        <th width="300px">
-                            <asp:LinkButton ID="LbSubSeccion" runat="server" CausesValidation="false" Text="Cliente/ Contrato / Partida" /></th>
-                        <th width="120px">
-                            <asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="false" Text="Contratado" /></th>
-                        <th width="120px">
-                            <asp:LinkButton ID="LinkButton4" runat="server" CausesValidation="false" Text="Actual" /></th>
-                        <th width="120px">
-                            <asp:LinkButton ID="LinkButton5" runat="server" CausesValidation="false" Text="Por Estimar" /></th>
-                        <th width="120px">
-                            <asp:LinkButton ID="LinkButton2" runat="server" CausesValidation="false" Text="Ejecutado" /></th>
-                        <th width="120px">
-                            <asp:LinkButton ID="LinkButton3" runat="server" CausesValidation="false" Text="Obra Faltante" /></th>
-                    </tr>
-                </thead>
-            </table>
-            <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Estimaciones con los Filtros seleccionados" DataKeyNames="CveContrato" ShowHeader="false" SelectedRowStyle-BackColor="#CCFF66" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
-                <Columns>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:Literal ID="LitEst" runat="server" Text='<%# Eval("CveContrato")%>' />
-                        </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Center"></ItemStyle>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HplAgrupador" CssClass="Texto" runat="server" Text='<%# Eval("Agrupador") %>' NavigateUrl='<%# Eval("CveContrato", "ContratosDetalle.aspx?CveContrato={0}&Op=2")%>'></asp:HyperLink>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HplContratado" CssClass="Texto" runat="server" Text='<%# Eval("Contratado", "{0:N2}")%>'></asp:HyperLink>
-                        </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HplActual" CssClass="Texto" runat="server" Text='<%# Eval("LoQueEstoyHaciendo", "{0:N2}")%>'></asp:HyperLink>
-                        </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HPlPorEstimar" CssClass="Texto" runat="server" Text='<%# Eval("PorEstimar", "{0:N2}")%>'></asp:HyperLink>
-                        </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HplEjecutado" CssClass="Texto" runat="server" Text='<%# Eval("Ejecutado", "{0:N2}")%>'></asp:HyperLink>
-                        </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HplOFA" CssClass="Texto" runat="server" Text='<%# Eval("OFA", "{0:N2}")%>'></asp:HyperLink>
-                        </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
-                    </asp:TemplateField>
-                </Columns>
-                <RowStyle CssClass="Texto" />
-                <AlternatingRowStyle CssClass="TextoAlterno" />
-                <HeaderStyle CssClass="Titulos" />
-            </asp:GridView>
-            <br />
-        </ContentTemplate>
-    </asp:UpdatePanel>
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
-

Contratos/RepContratosObraAvances.aspx

@@ -0,0 +1,169 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepContratosObraAvances.aspx.vb" Inherits="RepContratosObraAvances" %>
+
+<%@ 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">
+    Reporte Contratos Avance
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    
+    <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            
+            
+                <div class="portlet solid  grey-cascade portlet-filter"   style="">                     
+                    <div class="portlet-title portlet-filterT smalltitle" >
+
+                        <div class="tools">
+                            <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" CausesValidation="true" ValidationGroup="GrConsulta" />
+                        </div>
+
+                        <div class="titlefiltros  caption">
+                            <div class="row">
+
+                                <div class="col-md-1">
+                                    Fecha Inicio:
+                                </div>
+                                <div class="col-md-1">
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                        <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrConsulta"></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="GrConsulta"></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">
+                                    Fecha Fin:
+                                </div>
+                                <div class="col-md-1">
+                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                        <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrConsulta"></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="GrConsulta"></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 class="col-md-1">
+                                    Cliente:
+                                </div>
+                                <div class="col-md-1">
+                                    <asp:DropDownList ID="DdlCliente" runat="server"   DataTextField="NombreComercial" DataValueField="CveCliente" Class="select2me" Width="100PX"   ></asp:DropDownList>
+                                </div>
+
+                                <div class="col-md-1">
+                                    Contrato:
+                                </div>
+                                <div class="col-md-1">
+                                    <asp:DropDownList ID="DdlContrato" runat="server"  DataTextField="NumeroContrato" DataValueField="CveContrato" Class="select2me" Width="100PX" ></asp:DropDownList>
+                                </div>
+
+
+                           </div>
+                            
+                        </div>
+                      
+                    </div>
+                </div>
+            
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+
+            <div class="row">
+
+                <div class="col-md-12" style="text-align:right!important">
+                  <div style="display: inline-block">
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                </div>
+
+                </div>
+            </div>
+               
+            
+
+            <div class="row">
+                <div class="col-md-12">
+
+                <asp:GridView ID="GVDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron contratos con los Filtros seleccionados" 
+                         DataKeyNames="CveContrato,NumeroContrato" ShowHeader="True" 
+                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"  GridLines="None">
+                <Columns>
+                    <asp:TemplateField HeaderText="Fecha I.">
+                        <ItemTemplate>
+                            <asp:Label ID="LitEst" runat="server" Text='<%# Eval("FechaInicial", "{0:dd/MM/yyyy}")%>' ></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center"></ItemStyle>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Cliente">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplCliente" CssClass="Texto" runat="server" Text='<%# Eval("Nombre") %>' NavigateUrl='<%# Eval("CveCliente", "../Ventas/Clientes.aspx?CveCliente={0}")%>' Target="_blank" ></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="# Contrato">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplContratado" CssClass="Texto" runat="server" Text='<%# Eval("NumeroContrato")%>'   Target="_blank" ></asp:HyperLink>
+                        </ItemTemplate>                        
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Descripción">
+                        <ItemTemplate>
+                            <asp:Label ID="LblDescripcion" CssClass="Texto" runat="server" Text='<%# Eval("DescripcionContrato")%>'> </asp:Label>
+                        </ItemTemplate>                        
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Importe">
+                        <ItemTemplate>
+                            <asp:Label ID="LblImporte" CssClass="Texto" runat="server" Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Avance %" >
+                        <ItemTemplate>
+                            <asp:Label ID="LblIAvancePorcentaje"  runat="server" Text='<%# Eval("AvancePorcentaje", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Avance $">
+                        <ItemTemplate>
+                            <asp:Label ID="HplOFA" CssClass="Texto" runat="server" Text='<%# Eval("AvanceImporte", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+                </Columns>                                
+            </asp:GridView>
+                </div>
+            </div>
+           
+            <br />
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Contratos/RepContratosObraAvances.aspx.vb

@@ -0,0 +1,80 @@
+Imports Extensiones
+Imports System.Data
+
+Partial Class RepContratosObraAvances
+    Inherits ClsPaginas
+
+
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaClientes()
+            CargaContratos()
+            'CargaDatos()
+
+        End If
+    End Sub
+
+
+    Private Sub CargaDatos()
+
+        Dim Con As New ClsContratos
+
+        If Con.GetContratosObraRepAvances(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GVDatos.DataSource = Con.DtResultados
+        Else
+            GVDatos.DataSource = Nothing
+        End If
+
+        Con.Dispose()
+
+        GVDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+#Region "C O M B O S"
+
+
+    Private Sub CargaContratos()
+        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31)	")
+        DdlContrato.DataBind()
+        DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaClientes()
+        Dim dt As DataTable = Nothing
+        Dim Cli As New ClsClientes
+        If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+            dt = Cli.DtResultados
+        End If
+        Cli.Dispose()
+        DdlCliente.DataSource = dt
+        DdlCliente.DataBind()
+        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+#End Region
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim HplContratado As HyperLink = e.Row.FCHyperLink("HplContratado")
+
+            HplContratado.NavigateUrl = $"./RepContratosObraAvancesDetalle.aspx?CveContrato={e.Row.DataKey("CveContrato")}&NumeroContrato={e.Row.DataKey("NumeroContrato")}"
+
+
+        End If
+
+    End Sub
+
+    Protected Sub CmdConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+
+
+
+End Class

Contratos/RepContratosObraAvancesDetalle.aspx

@@ -0,0 +1,179 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepContratosObraAvancesDetalle.aspx.vb" Inherits="RepContratosObraAvancesDetalle" %>
+
+<%@ 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">
+    Reporte Contratos Avance Detalle
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+<%--    <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            
+            
+                <div class="portlet solid  grey-cascade portlet-filter"   style="">                     
+                    <div class="portlet-title portlet-filterT smalltitle" >
+
+                        <div class="tools">
+                            <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" CausesValidation="true" ValidationGroup="GrConsulta" />
+                        </div>
+
+                        <div class="titlefiltros  caption">
+                            <div class="row">
+
+                                <div class="col-md-1">
+                                    Fecha Inicio:
+                                </div>
+                                <div class="col-md-1">
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                        <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrConsulta"></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="GrConsulta"></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">
+                                    Fecha Fin:
+                                </div>
+                                <div class="col-md-1">
+                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                        <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrConsulta"></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="GrConsulta"></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 class="col-md-1">
+                                    Cliente:
+                                </div>
+                                <div class="col-md-1">
+                                    <asp:DropDownList ID="DdlCliente" runat="server"   DataTextField="NombreComercial" DataValueField="CveCliente" Class="select2me" Width="100PX"   ></asp:DropDownList>
+                                </div>
+
+                                <div class="col-md-1">
+                                    Contrato:
+                                </div>
+                                <div class="col-md-1">
+                                    <asp:DropDownList ID="DdlContrato" runat="server"  DataTextField="NumeroContrato" DataValueField="CveContrato" Class="select2me" Width="100PX" ></asp:DropDownList>
+                                </div>
+
+
+                           </div>
+                            
+                        </div>
+                      
+                    </div>
+                </div>
+            
+        </ContentTemplate>
+    </asp:UpdatePanel>--%>
+
+
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="row">
+
+                  <div class="col-md-3" style="text-align:left!important"> 
+                     <strong><asp:Label runat="server" ID="LblNumeroContrato"></asp:Label></strong>
+                  </div>
+
+                <div class="col-md-3" style="text-align:right!important">
+                  <div style="display: inline-block">
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                </div>
+
+                </div>
+            </div>
+               
+            
+
+            <div class="row">
+                <div class="col-md-6">
+
+                <asp:GridView ID="GVDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron contratos con los Filtros seleccionados" 
+                         DataKeyNames="CveEstimacion,NumeroEstimacion" ShowHeader="True" 
+                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"  GridLines="None">
+                <Columns>
+                      <asp:TemplateField HeaderText="# Estimación">
+                        <ItemTemplate>                            
+                            <asp:HyperLink ID="HplNumeroEstimacion" CssClass="Texto" runat="server" Text='<%# Eval("NumeroEstimacion") %>' Target="_blank" ></asp:HyperLink>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center"></ItemStyle>
+                    </asp:TemplateField>
+
+                    <asp:TemplateField HeaderText="Fecha">
+                        <ItemTemplate>
+                            <asp:Label ID="LblFecha" runat="server" Text='<%# Eval("FechaEstimacion", "{0:dd/MM/yyyy}")%>' ></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center"></ItemStyle>
+                    </asp:TemplateField>                    
+                    
+                    <asp:TemplateField HeaderText="Avance %" >
+                        <ItemTemplate>
+                            <asp:Label ID="LblIAvancePorcentaje"  runat="server" Text='<%# Eval("AvancePorcentaje", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="Avance acumulado %" >
+                        <ItemTemplate>
+                            <asp:Label ID="LblIAvancePorcentajeAcumulado"  runat="server" Text='<%# Eval("AvanceAcumuladoPorcentaje", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+
+                    <asp:TemplateField HeaderText="Avance $">
+                        <ItemTemplate>
+                            <asp:Label ID="HplOFA" CssClass="Texto" runat="server" Text='<%# Eval("AvanceImporte", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="Facturado">
+                        <ItemTemplate>
+                            <asp:Label ID="LblFacturado" CssClass="Texto" runat="server" Text='<%# Eval("Facturado")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center"></ItemStyle>
+                    </asp:TemplateField>
+                </Columns>                                
+            </asp:GridView>
+                </div>
+            </div>
+           
+            <br />
+
+
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Contratos/RepContratosObraAvancesDetalle.aspx.vb

@@ -0,0 +1,100 @@
+Imports Extensiones
+Imports System.Data
+
+Partial Class RepContratosObraAvancesDetalle
+    Inherits ClsPaginas
+
+
+    Property CveContrato As Integer
+
+        Get
+            If ViewState("CveContrato") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveContrato").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveContrato") = value
+        End Set
+
+
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+
+            CveContrato = If(Request("CveContrato") IsNot Nothing AndAlso Request("CveContrato").ToString.ToEntero > 0, Request("CveContrato").ToString.ToEntero, -1)
+            LblNumeroContrato.Text = If(Request("NumeroContrato") IsNot Nothing AndAlso Request("NumeroContrato").ToString.Length > 0, $"Numero Contrato: {Request("NumeroContrato").ToString}", "")
+
+            If CveContrato > 0 Then
+                CargaDatos()
+            End If
+        End If
+    End Sub
+
+
+    Private Sub CargaDatos()
+
+        Dim Con As New ClsContratos
+
+        If Con.GetContratosObraRepAvancesDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
+            GVDatos.DataSource = Con.DtResultados
+
+            If Con.DtResultados.Rows.Count = 0 Then
+                Alert("No se encontraron estimaciones.", TipoMensaje.MsgAdvertencia)
+            End If
+        Else
+            GVDatos.DataSource = Nothing
+
+        End If
+
+        Con.Dispose()
+
+        GVDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+    '#Region "C O M B O S"
+
+
+    '    Private Sub CargaContratos()
+    '        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31)	")
+    '        DdlContrato.DataBind()
+    '        DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
+    '    End Sub
+
+    '    Private Sub CargaClientes()
+    '        Dim dt As DataTable = Nothing
+    '        Dim Cli As New ClsClientes
+    '        If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+    '            dt = Cli.DtResultados
+    '        End If
+    '        Cli.Dispose()
+    '        DdlCliente.DataSource = dt
+    '        DdlCliente.DataBind()
+    '        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+    '    End Sub
+
+    '#End Region
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim HplNumeroEstimacion As HyperLink = e.Row.FCHyperLink("HplNumeroEstimacion")
+            HplNumeroEstimacion.NavigateUrl = $"./RepContratosObraAvancesPartida.aspx?CveEstimacion={e.Row.DataKey("CveEstimacion")}&NumeroEstimacion={ e.Row.DataKey("NumeroEstimacion")}&CveContrato={ CveContrato }"
+
+            ' NavigateUrl='<%# Eval("CveEstimacion", "RepContratosObraAvancesPartida.aspx?CveEstimacion={0}")%>'
+        End If
+
+    End Sub
+
+    'Protected Sub CmdConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+    '    CargaDatos()
+    'End Sub
+
+
+End Class

Contratos/RepContratosObraAvancesPartida.aspx

@@ -0,0 +1,213 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepContratosObraAvancesPartida.aspx.vb" Inherits="RepContratosObraAvancesPartida" %>
+
+<%@ 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">
+   Reporte Contratos Avance por partida
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+
+<%--    <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:Panel ID="PnlFiltros" runat="server" DefaultButton="CmdConsultar">
+                <div class="portlet solid grey-cascade portlet-filter" style="">
+                    <div class="portlet-title portlet-filterT" style="">
+                        <div class="titlefiltros caption ">
+                            <ul class="list-inline" id="TrProgramar" runat="server">
+                                <li>Cliente:
+                                <asp:DropDownList ID="DdlCliente" runat="server" AutoPostBack="true" DataTextField="NombreComercial" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;"></asp:DropDownList>
+                                </li>
+                                <li>Contratos:
+                                <asp:DropDownList ID="DdlContrato" runat="server" AutoPostBack="true" DataTextField="NumeroContrato" DataValueField="CveContrato" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"></asp:DropDownList>
+                                </li>
+                                <li style="display: none;">Sección:
+                                <asp:DropDownList ID="DdlSeccion" runat="server" AutoPostBack="false" DataTextField="Seccion" DataValueField="CveSeccion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"></asp:DropDownList>
+                                </li>
+                                <li>Partida:
+                                <asp:DropDownList ID="DdlClasificacion" runat="server" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>
+                                </li>
+                                <li>Productos y Servicios:
+                                <asp:DropDownList ID="DdlPS" runat="server" AutoPostBack="true" DataTextField="PS" DataValueField="CvePS" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 150px !important;"></asp:DropDownList>
+                                </li>
+                            </ul>
+                        </div>
+                        <div class="tools">
+                            <asp:Button ID="CmdConsultar" runat="server" Text="Consultar" class="btn btn-primary" CausesValidation="true" ValidationGroup="GrConsulta" />
+                        </div>
+                    </div>
+                </div>
+            </asp:Panel>
+        </ContentTemplate>
+    </asp:UpdatePanel>--%>
+
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+
+            <div class="row">
+                  
+                <div class="col-md-3" style="text-align:left!important"> 
+                    <strong> <asp:Label runat="server" ID="LblEstimacion"></asp:Label></strong>
+                  </div>
+
+                <div class="col-md-3" style="text-align:right!important">
+                  <div style="display: inline-block">
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                </div>
+
+                </div>
+            </div>
+               
+            
+
+            <div class="row">
+                <div class="col-md-6">
+
+                <asp:GridView ID="GVDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron contratos con los Filtros seleccionados" 
+                         DataKeyNames="CveContrato,CveEstimacion,Fecha,PS,CveContratoDetalle" ShowHeader="True" 
+                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"  GridLines="None">
+                <Columns>
+                    <asp:TemplateField HeaderText="Producto">
+                        <ItemTemplate>
+                            <asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS")%>' ></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left"></ItemStyle>
+                    </asp:TemplateField>
+
+                       <asp:TemplateField HeaderText="PU" >
+                        <ItemTemplate>
+                            <asp:Label ID="LblPU"  runat="server" Text='<%# Eval("PU", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="Avance $">
+                        <ItemTemplate>
+                            <asp:Label ID="LblAvanceImporte" CssClass="Texto" runat="server" Text='<%# Eval("AvanceImporte", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+
+                    <asp:TemplateField HeaderText="Avance Anterior$">
+                        <ItemTemplate>
+                            <asp:Label ID="LblAvanceImporteAnterior" CssClass="Texto" runat="server" Text='<%# Eval("AvanceImporteAnterior", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+                    
+                    <asp:TemplateField HeaderText="Avance Acumulado $">
+                        <ItemTemplate>
+                            <asp:Label ID="LblAvanceAcumulado" CssClass="Texto" runat="server" Text='<%# Eval("AvanceAcumulado", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+                      <asp:TemplateField HeaderText=" ">
+                          <ItemTemplate> 
+                              <asp:LinkButton ID="LnkAnexo"  runat="server" OnClick="GetAnexos" AlternateText="Agregar Anexo" CssClass="btn btn-circle btn-sm btn-success anexo" Text="<i class='fa fa-folder'></i>" />
+                          </ItemTemplate>
+                      </asp:TemplateField>
+
+                 <%--   <asp:TemplateField HeaderText="Cliente">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplCliente" CssClass="Texto" runat="server" Text='<%# Eval("Nombre") %>' NavigateUrl='<%# Eval("CveCliente", "../Ventas/Clientes.aspx?CveCliente={0}")%>' Target="_blank" ></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="# Contrato">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="HplContratado" CssClass="Texto" runat="server" Text='<%# Eval("NumeroContrato")%>' NavigateUrl='<%#  Eval("CveContrato", "RepContratosObraAvancesDetalle.aspx?CveContrato={0}")  %>' Target="_blank" ></asp:HyperLink>
+                        </ItemTemplate>                        
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Descripción">
+                        <ItemTemplate>
+                            <asp:Label ID="LblDescripcion" CssClass="Texto" runat="server" Text='<%# Eval("DescripcionContrato")%>'> </asp:Label>
+                        </ItemTemplate>                        
+                    </asp:TemplateField>
+
+                   
+                    <asp:TemplateField HeaderText="Avance %" >
+                        <ItemTemplate>
+                            <asp:Label ID="LblIAvancePorcentaje"  runat="server" Text='<%# Eval("AvancePorcentaje", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Avance $">
+                        <ItemTemplate>
+                            <asp:Label ID="HplOFA" CssClass="Texto" runat="server" Text='<%# Eval("AvanceImporte", "{0:N2}")%>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right"></ItemStyle>
+                    </asp:TemplateField>--%>
+
+
+                </Columns>                                
+            </asp:GridView>
+                </div>
+            </div>
+           
+            <br />
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+        <div id="ModalAnexos" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+
+            <asp:UpdatePanel ID="UpModalAnexos" UpdateMode="Conditional" runat="server">
+                <ContentTemplate>
+
+                    <!-- Modal content-->
+                    <div class="modal-content">
+                        <div class="modal-header ">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label runat="server" ID="LblTituloModalAnexo"></asp:Label></h4>
+                        </div>
+
+                        <div class="modal-body">
+                            <div class="row">
+
+                                <div class="col-md-12" style="text-align:center!important">
+                                <asp:GridView ID="GvAnexos" AutoGenerateColumns="false" runat="server" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron archivos" Width="100"
+                                    DataKeyNames="Archivo" CssClass="table GVEstimacion table-advance table-hover" GridLines ="None">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Anexos">
+                                            <ItemTemplate>
+
+                                                <asp:LinkButton ID="LnkArchivo" runat="server" OnClick="LnkArchivo_Click"></asp:LinkButton>
+
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+
+                                    </div>
+                            </div>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:UpdatePanel runat="server">
+                                <ContentTemplate>
+                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Contratos/RepContratosObraAvancesPartida.aspx.vb

@@ -0,0 +1,150 @@
+Imports Extensiones
+Imports System.Data
+
+Partial Class RepContratosObraAvancesPartida
+    Inherits ClsPaginas
+
+
+
+    Property CveEstimacion As Integer
+
+        Get
+            If ViewState("CveEstimacion") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveEstimacion").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstimacion") = value
+        End Set
+
+
+    End Property
+
+
+
+    Property CveContrato As Integer
+
+        Get
+            If ViewState("CveContrato") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveContrato").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveContrato") = value
+        End Set
+
+
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+
+            CveEstimacion = If(Request("CveEstimacion") IsNot Nothing AndAlso Request("CveEstimacion").ToString.ToEntero > 0, Request("CveEstimacion").ToString.ToEntero, -1)
+            CveContrato = If(Request("CveContrato") IsNot Nothing AndAlso Request("CveContrato").ToString.ToEntero > 0, Request("CveContrato").ToString.ToEntero, -1)
+
+            LblEstimacion.Text = If(Request("NumeroEstimacion") IsNot Nothing AndAlso Request("NumeroEstimacion").ToString.Length > 0, $"Numero Estimacion: {Request("NumeroEstimacion").ToString}", "")
+
+
+            If CveEstimacion > 0 Then
+                CargaDatos()
+            End If
+        End If
+    End Sub
+
+
+    Private Sub CargaDatos()
+
+        Dim Con As New ClsContratos
+
+        If Con.GetContratosObraRepAvancesPartida(CveEstimacion, UsuarioActual.CveEmpresa) Then
+            GVDatos.DataSource = Con.DtResultados
+
+            If Con.DtResultados.Rows.Count = 0 Then
+                Alert("No se encontraron partidas.", TipoMensaje.MsgAdvertencia)
+            End If
+        Else
+            GVDatos.DataSource = Nothing
+        End If
+
+        Con.Dispose()
+
+        GVDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+        End If
+
+    End Sub
+
+
+    Protected Sub GetAnexos(sender As Object, e As System.EventArgs)
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+
+        LblTituloModalAnexo.Text = "Anexo " & GvRow.DataKey("PS")
+
+        'Get the button that raised the event
+        'Dim CveContratoDetalle As Integer = gvr.DataKey("CveContratoDetalle").ToString.ToEntero
+        Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
+        Dim CveEstimacion As Integer = GvRow.DataKey("CveEstimacion").ToEntero
+        Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToEntero
+
+        Dim objContrato As New ClsContratos
+        If objContrato.GetContratosAvanceAnexos(CveContratoDetalle, Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then
+            GvAnexos.DataSource = objContrato.DtResultados
+            GvAnexos.DataBind()
+            GvAnexos.Visible = True
+        Else
+            GvAnexos.Visible = False
+        End If
+
+        objContrato.Dispose()
+
+        UpModalAnexos.Update()
+
+        RegistraScript("$('#ModalAnexos').modal('show');")
+
+    End Sub
+
+    Protected Sub GvAnexos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvAnexos.RowDataBound
+
+        If e.Row.RowIndex > -1 Then
+            Dim Archivo As String = e.Row.DBCampo("Archivo").ToString
+            Dim start As Integer = Len(Archivo.Split("-"c)(0))
+            Dim LnkArchivo As LinkButton = e.Row.FCLinkButton("LnkArchivo")
+
+            LnkArchivo.Text = Archivo.Substring(start + 1)
+            'link.NavigateUrl = String.Format("/Empresas/{0}/Contrato/{1}/Anexos/{2}", UsuarioActual.CveEmpresa, CveContrato, Archivo)
+
+            ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkArchivo)
+        End If
+
+    End Sub
+
+    Protected Sub LnkArchivo_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+        Dim Archivo As String = GvRow.DataKey("Archivo").ToString
+
+        Response.ContentType = "application/octet-stream"
+        Response.AppendHeader("Content-Disposition", $"attachment; filename={Archivo}")
+        Response.TransmitFile($"{UsuarioActual.Empresa.Ruta}\Contrato\{CveContrato}\Anexos\{Archivo}")
+        Response.End()
+
+    End Sub
+
+
+End Class

Empresas/2/Formatos/Factura.rdlc

@@ -28,10 +28,10 @@
         <Width>2.24597in</Width>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
-          <BackgroundColor>#eb831f</BackgroundColor>
+          <BackgroundColor>#bdd7ee</BackgroundColor>
           <PaddingLeft>2pt</PaddingLeft>
           <PaddingRight>2pt</PaddingRight>
           <PaddingTop>2pt</PaddingTop>
@@ -80,10 +80,10 @@
         <ZIndex>1</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
-          <BackgroundColor>#eb831f</BackgroundColor>
+          <BackgroundColor>#bdd7ee</BackgroundColor>
           <PaddingLeft>2pt</PaddingLeft>
           <PaddingRight>2pt</PaddingRight>
           <PaddingTop>2pt</PaddingTop>
@@ -116,7 +116,7 @@
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <PaddingLeft>2pt</PaddingLeft>
@@ -152,10 +152,10 @@
         <ZIndex>3</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
-          <BackgroundColor>#eb831f</BackgroundColor>
+          <BackgroundColor>#bdd7ee</BackgroundColor>
           <PaddingLeft>2pt</PaddingLeft>
           <PaddingRight>2pt</PaddingRight>
           <PaddingTop>2pt</PaddingTop>
@@ -184,7 +184,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Jesús Julían Moreno Quintana</Value>
+                <Value>Jesús Julián Moreno Quintana</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>8pt</FontSize>
@@ -213,24 +213,6 @@
               <TextAlign>Center</TextAlign>
             </Style>
           </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Paseo Florido, 62-A, Col.: Nueva Galicia, C.P.: 83245,</Value>
-                <Style>
-                  <FontStyle>Normal</FontStyle>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                  <TextDecoration>None</TextDecoration>
-                  <Color>DimGray</Color>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
           <Paragraph>
             <TextRuns>
               <TextRun>
@@ -286,7 +268,7 @@
         <Source>External</Source>
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>5.04488in</Top>
+        <Top>6.00738in</Top>
         <Left>0.04026in</Left>
         <Height>0.95455in</Height>
         <Width>1.49755in</Width>
@@ -308,6 +290,7 @@
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>9pt</FontSize>
                   <FontWeight>Normal</FontWeight>
+                  <Format>dd/MM/yyyy</Format>
                   <Color>DimGray</Color>
                 </Style>
               </TextRun>
@@ -325,7 +308,7 @@
         <ZIndex>6</ZIndex>
         <Style>
           <Border>
-            <Color>#4f81bd</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <PaddingLeft>2pt</PaddingLeft>
@@ -363,7 +346,7 @@
         <ZIndex>7</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <PaddingLeft>2pt</PaddingLeft>
@@ -398,7 +381,7 @@
         <ZIndex>8</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <TopBorder>
@@ -441,7 +424,7 @@
         <ZIndex>9</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <TopBorder>
@@ -486,7 +469,7 @@
         <ZIndex>10</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <TopBorder>
@@ -530,7 +513,7 @@
         <ZIndex>11</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <TopBorder>
@@ -575,7 +558,7 @@
         <ZIndex>12</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>None</Style>
           </Border>
           <BottomBorder>
@@ -619,7 +602,7 @@
         <ZIndex>13</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <TopBorder>
@@ -658,7 +641,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox54</rd:DefaultName>
-        <Top>5.02273in</Top>
+        <Top>5.98523in</Top>
         <Left>1.64412in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
@@ -680,7 +663,7 @@
           <RightBorder>
             <Style>None</Style>
           </RightBorder>
-          <BackgroundColor>#eb831f</BackgroundColor>
+          <BackgroundColor>#bdd7ee</BackgroundColor>
           <PaddingLeft>2pt</PaddingLeft>
           <PaddingRight>2pt</PaddingRight>
           <PaddingTop>2pt</PaddingTop>
@@ -708,7 +691,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox54</rd:DefaultName>
-        <Top>5.21718in</Top>
+        <Top>6.17968in</Top>
         <Left>1.64412in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
@@ -718,7 +701,7 @@
             <Color>White</Color>
             <Style>Solid</Style>
           </Border>
-          <BackgroundColor>#eb831f</BackgroundColor>
+          <BackgroundColor>#bdd7ee</BackgroundColor>
           <PaddingLeft>2pt</PaddingLeft>
           <PaddingRight>2pt</PaddingRight>
           <PaddingTop>2pt</PaddingTop>
@@ -746,7 +729,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox54</rd:DefaultName>
-        <Top>5.41573in</Top>
+        <Top>6.37823in</Top>
         <Left>1.64412in</Left>
         <Height>0.19444in</Height>
         <Width>4.03672in</Width>
@@ -756,7 +739,7 @@
             <Color>White</Color>
             <Style>Solid</Style>
           </Border>
-          <BackgroundColor>#eb831f</BackgroundColor>
+          <BackgroundColor>#bdd7ee</BackgroundColor>
           <PaddingLeft>2pt</PaddingLeft>
           <PaddingRight>2pt</PaddingRight>
           <PaddingTop>2pt</PaddingTop>
@@ -784,7 +767,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox54</rd:DefaultName>
-        <Top>5.62134in</Top>
+        <Top>6.58384in</Top>
         <Left>1.64412in</Left>
         <Height>0.19445in</Height>
         <Width>4.03672in</Width>
@@ -794,7 +777,7 @@
             <Color>White</Color>
             <Style>Solid</Style>
           </Border>
-          <BackgroundColor>#eb831f</BackgroundColor>
+          <BackgroundColor>#bdd7ee</BackgroundColor>
           <PaddingLeft>2pt</PaddingLeft>
           <PaddingRight>2pt</PaddingRight>
           <PaddingTop>2pt</PaddingTop>
@@ -821,7 +804,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox58</rd:DefaultName>
-        <Top>5.01023in</Top>
+        <Top>5.97273in</Top>
         <Left>5.70142in</Left>
         <Height>0.18056in</Height>
         <Width>2.22448in</Width>
@@ -856,7 +839,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox59</rd:DefaultName>
-        <Top>5.20739in</Top>
+        <Top>6.16989in</Top>
         <Left>5.69622in</Left>
         <Height>0.16667in</Height>
         <Width>2.22969in</Width>
@@ -890,7 +873,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox60</rd:DefaultName>
-        <Top>5.4144in</Top>
+        <Top>6.3769in</Top>
         <Left>5.69622in</Left>
         <Height>0.16939in</Height>
         <Width>2.22714in</Width>
@@ -924,7 +907,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox61</rd:DefaultName>
-        <Top>5.62405in</Top>
+        <Top>6.58655in</Top>
         <Left>5.70142in</Left>
         <Height>0.17784in</Height>
         <Width>2.22193in</Width>
@@ -946,7 +929,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Regímen: Regímen General de Ley Personas Morales; Condiciones de pago: </Value>
+                <Value>Régimen: Régimen General de Ley Personas Morales; Condiciones de pago: </Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -993,12 +976,20 @@
                   <Color>DimGray</Color>
                 </Style>
               </TextRun>
+              <TextRun>
+                <Value>.</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
             </TextRuns>
             <Style />
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox62</rd:DefaultName>
-        <Top>5.82251in</Top>
+        <Top>6.78501in</Top>
         <Left>1.53781in</Left>
         <Height>0.29498in</Height>
         <Width>6.38809in</Width>
@@ -1031,7 +1022,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox63</rd:DefaultName>
-        <Top>6.03585in</Top>
+        <Top>7.14943in</Top>
         <Left>2.5423in</Left>
         <Height>0.25in</Height>
         <Width>3.69856in</Width>
@@ -1097,7 +1088,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de AD Sistemas, Análisis y Diseño de Sistemas, a su vencimiento  el  </Value>
+                    <Value> Por éste pagaré prometo (emos) pagar incondicionalmente a la orden de AD Sistemas, Análisis y Diseño de Sistemas, a su vencimiento  el  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -1169,7 +1160,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 AD Sistemas, Análisis y Diseño de Sistemas 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 AD Sistemas, Análisis y Diseño de Sistemas o tenedor, desde el día siguiente a cobrar el 10% mensual de interés moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -1813,8 +1804,8 @@
           </Line>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>16.20868cm</Top>
+        <Top>18.94447cm</Top>
-        <Left>0.13016cm</Left>
+        <Left>0.04721cm</Left>
         <Height>4.04843cm</Height>
         <Width>20.06179cm</Width>
         <ZIndex>24</ZIndex>
@@ -1874,10 +1865,10 @@
                       <rd:DefaultName>Textbox34</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -1910,10 +1901,10 @@
                       <rd:DefaultName>Textbox53</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -1946,10 +1937,10 @@
                       <rd:DefaultName>Textbox79</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -1982,10 +1973,10 @@
                       <rd:DefaultName>Textbox84</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -2031,10 +2022,10 @@
                       <rd:DefaultName>Textbox87</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -2070,7 +2061,7 @@
                       <rd:DefaultName>Cantidad1</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
                         <TopBorder>
@@ -2110,7 +2101,7 @@
                       <rd:DefaultName>UM1</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
                         <TopBorder>
@@ -2151,7 +2142,7 @@
                       <rd:DefaultName>PS1</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
                         <TopBorder>
@@ -2195,7 +2186,7 @@
                       <rd:DefaultName>PU1</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>None</Style>
                         </Border>
                         <PaddingLeft>2pt</PaddingLeft>
@@ -2230,7 +2221,7 @@
                       <rd:DefaultName>Textbox88</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>Solid</Style>
                         </Border>
                         <TopBorder>
@@ -2272,7 +2263,7 @@
                       <rd:DefaultName>Textbox81</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>None</Style>
                         </Border>
                         <TopBorder>
@@ -2305,7 +2296,7 @@
                       <rd:DefaultName>Textbox82</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>None</Style>
                         </Border>
                         <TopBorder>
@@ -2338,7 +2329,7 @@
                       <rd:DefaultName>Textbox83</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>None</Style>
                         </Border>
                         <TopBorder>
@@ -2371,7 +2362,7 @@
                       <rd:DefaultName>Textbox86</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>None</Style>
                         </Border>
                         <TopBorder>
@@ -2404,7 +2395,7 @@
                       <rd:DefaultName>Textbox89</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Color>#bdd7ee</Color>
                           <Style>None</Style>
                         </Border>
                         <TopBorder>
@@ -2495,7 +2486,7 @@
         <ZIndex>26</ZIndex>
         <Style>
           <Border>
-            <Color>#eb831f</Color>
+            <Color>#bdd7ee</Color>
             <Style>Solid</Style>
           </Border>
           <TopBorder>
@@ -2558,7 +2549,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -2595,7 +2586,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -2632,7 +2623,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -2825,8 +2816,7 @@
                       <rd:DefaultName>Importe</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Style>None</Style>
-                          <Style>Solid</Style>
                         </Border>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
@@ -2880,10 +2870,11 @@
                     <rd:DefaultName>ImpuestoLocal</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>#eb831f</Color>
+                        <Color>White</Color>
                         <Style>Solid</Style>
+                        <Width>1.25pt</Width>
                       </Border>
-                      <BackgroundColor>#eb831f</BackgroundColor>
+                      <BackgroundColor>#bdd7ee</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -2946,12 +2937,8 @@
                       <rd:DefaultName>Textbox128</rd:DefaultName>
                       <Style>
                         <Border>
-                          <Color>#eb831f</Color>
+                          <Style>None</Style>
-                          <Style>Solid</Style>
                         </Border>
-                        <RightBorder>
-                          <Width>1pt</Width>
-                        </RightBorder>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -3004,7 +2991,7 @@
                         <RightBorder>
                           <Style>Solid</Style>
                         </RightBorder>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
@@ -3098,7 +3085,7 @@
                           <Style>Solid</Style>
                           <Width>1pt</Width>
                         </RightBorder>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
@@ -3192,7 +3179,7 @@
                           <Style>Solid</Style>
                           <Width>1pt</Width>
                         </RightBorder>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
@@ -3287,7 +3274,7 @@
                           <Style>Solid</Style>
                           <Width>1pt</Width>
                         </RightBorder>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
@@ -3382,7 +3369,7 @@
                           <Style>Solid</Style>
                           <Width>1pt</Width>
                         </RightBorder>
-                        <BackgroundColor>#eb831f</BackgroundColor>
+                        <BackgroundColor>#bdd7ee</BackgroundColor>
                         <VerticalAlign>Middle</VerticalAlign>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
@@ -3539,30 +3526,197 @@
           <Border>
             <Style>None</Style>
           </Border>
-          <BackgroundColor>#eb831f</BackgroundColor>
+          <BackgroundColor>#bdd7ee</BackgroundColor>
           <PaddingLeft>2pt</PaddingLeft>
           <PaddingRight>2pt</PaddingRight>
           <PaddingTop>2pt</PaddingTop>
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Image Name="Image1">
+      <Textbox Name="Textbox6">
-        <Source>Embedded</Source>
+        <CanGrow>true</CanGrow>
-        <Value>Logo</Value>
+        <KeepTogether>true</KeepTogether>
-        <Sizing>FitProportional</Sizing>
+        <Paragraphs>
-        <Top>0.07652cm</Top>
+          <Paragraph>
-        <Left>0.13016cm</Left>
+            <TextRuns>
-        <Height>2.76239cm</Height>
+              <TextRun>
-        <Width>3.72665cm</Width>
+                <Value>AD Sistemas, análisis y diseño de sistemas</Value>
+                <Style>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Jesús Julián Moreno Quintana</Value>
+                <Style>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>BBVA Bancomer</Value>
+                <Style>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>01 2760 0261 1276 8759</Value>
+                <Style>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>26 1127 6875</Value>
+                <Style>
+                  <FontStyle>Normal</FontStyle>
+                  <FontFamily>Calibri</FontFamily>
+                  <FontSize>11pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                  <TextDecoration>None</TextDecoration>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox5</rd:DefaultName>
+        <Top>12.7053cm</Top>
+        <Left>10.16136cm</Left>
+        <Height>2.37271cm</Height>
+        <Width>9.55228cm</Width>
         <ZIndex>32</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
           </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
         </Style>
-      </Image>
+      </Textbox>
+      <Textbox Name="Textbox5">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Nombre Comercial</Value>
+                <Style>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Beneficiario</Value>
+                <Style>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Banco</Value>
+                <Style>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Clabe</Value>
+                <Style>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cuenta</Value>
+                <Style>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox5</rd:DefaultName>
+        <Top>12.7053cm</Top>
+        <Left>0.50677cm</Left>
+        <Height>2.37271cm</Height>
+        <Width>9.55228cm</Width>
+        <ZIndex>33</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>20.41057cm</Height>
+    <Height>22.9929cm</Height>
     <Style />
   </Body>
   <Width>20.22041cm</Width>
@@ -3991,9 +4145,8 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
     <ReportParameter Name="Fecha">
-      <DataType>String</DataType>
+      <DataType>DateTime</DataType>
       <Nullable>true</Nullable>
-      <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
     <ReportParameter Name="DomicilioSucursal">

Inventarios/KardexAlmacenHorizontal.aspx

@@ -159,7 +159,9 @@
                         </div>
                         <label class="col-md-1 truncate">Almacén:</label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
+                            <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" 
+                                    DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
+                            <%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
                         </div>
                         <label class="col-md-1 truncate">Tipo Almacen:</label>
                         <div class="col-md-1">

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -53,7 +53,7 @@ Partial Class Inventarios_KardexAlmacen
 
         DdlTipoAlmacen.SelectedValueExist(1)
 
-        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValueExist(Request("CveAlmacen").ToString)
+        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
         CargaClasificaciones()
     End Sub
 
@@ -136,11 +136,11 @@ Partial Class Inventarios_KardexAlmacen
         Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
         ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         Dim FechaF As Date = TxtFechaF.Text.ToDate
-        Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
+        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
         Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
 
-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1054,7 +1054,7 @@ Partial Class Inventarios_TraspasoAlmacen
             'DdlClasificacion.SelectedValue = "-1"
             'DdlClasificacion_SelectedIndexChanged(DdlClasificacion, EventArgs.Empty)
 
-            If ChkEmitirTimbrado.Checked Then CveMovimientoTimbrado = CveMovimientoSalida : Timbrar()
+            If ChkEmitirTimbrado.Checked AndAlso ChkTransitorio.Checked Then CveMovimientoTimbrado = CveMovimientoSalida : Timbrar()
 
             Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")
 
@@ -1072,21 +1072,21 @@ Partial Class Inventarios_TraspasoAlmacen
 
             LimpiaMovimiento()
 
-        Else
+            Else
             ObjInventario.RollBack()
             Alert(TextoError, TipoMensaje.MsgError)
             RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
-        End If
+            End If
 
-        ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
+            ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
 
-        'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
+            'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
-        If ErrorExistencia Then
+            If ErrorExistencia Then
-            CargaGvDatos()
+                CargaGvDatos()
-        End If
+            End If
-        ObjConta.Dispose()
+            ObjConta.Dispose()
-        ObjInventario.Dispose()
+            ObjInventario.Dispose()
-    End Sub
+            End Sub
 
     Function ConsumoInterno(TipoAlmacenOrigen As Integer, TipoAlmacenDestino As Integer) As Boolean
         Dim Retorno As Boolean = False

Ventas/ActualizarPrecios.aspx.vb

@@ -200,17 +200,21 @@ Partial Class Ventas_ActualizarPrecios
             Exit Sub
         End If
         Dim Correcto As Boolean = False
-
+        Dim TieneError As Boolean = False
         'Dim Importe As Decimal = If(TxtImporte.Text = "", -1, TxtImporte.Text.ToDecimal)
         Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal)
 
         Dim ObjPS As New ClsProductosServicios
+        ObjPS.IniciaTransacSQL()
 
         For Each row As GridViewRow In GVPrecios.Rows
 
             If row.FCCheckBox("chkPS").Checked Then
                 Correcto = ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, DdlPrecioLista.SelectedValue.ToEntero, Porcentaje, row.DataKey("CvePS").ToEntero, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal)
-                If Not Correcto Then
+
+                If Correcto Then
+                    TieneError = ActualizarPreciosFranquicia(ObjPS, row)
+                Else
                     Exit Sub
                 End If
             End If
@@ -221,6 +225,11 @@ Partial Class Ventas_ActualizarPrecios
             Alert("Los Precios de lista de los Productos/Servicios se actualizaron correctamente")
         End If
 
+        If TieneError Then
+            ObjPS.RollBack()
+        Else
+            ObjPS.Commit()
+        End If
 
         ObjPS.Dispose()
         BtnConsultar_Click(Nothing, Nothing)
@@ -517,4 +526,29 @@ Partial Class Ventas_ActualizarPrecios
             e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
         End If
     End Sub
+
+    Private Function ActualizarPreciosFranquicia(ObjPS As ClsProductosServicios, row As GridViewRow) As Boolean
+        Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137)
+        Dim Franquicias = FranquiciasStr.Split(","c)
+        Dim Porcentaje As Decimal = If(TxtPorcentaje.Text = "", -1, TxtPorcentaje.Text.ToDecimal)
+        Dim Codigo As String = row.DataKey("Codigo")
+        For Each Franquicia In Franquicias
+            Dim CveFranquicia As Integer = Franquicia.ToEntero
+            Dim CvePS As Integer = GlobalDTPS(CveFranquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo LIKE '%{0}%'", Codigo)).ToEntero
+            Dim CvePrecioLisa As Integer = GlobalDTPrecioListas(CveFranquicia).FiltroPrimeroValor("CvePrecioLista", String.Format("PrecioLista = '{0}'", DdlPrecioLista.SelectedItem.Text)).ToEntero
+            Dim EmpresaFranquicia As String = GlobalDTEmpresas(CveEmpresa:=CveFranquicia).FiltroPrimeroValor("Empresa")
+            If CvePS <= 0 Then
+                Alert(String.Format("El producto '{0}' no se encuentra en la Franquicia '{1}'", row.DataKey("PS"), EmpresaFranquicia), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If CvePrecioLisa <= 0 Then
+                Alert(String.Format("El precio lista '{0}' no existe en la Franquicia '{1}'", DdlPrecioLista.SelectedItem.Text, EmpresaFranquicia), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If Not ObjPS.UpdatePSPreciosLista(row.FCTextBox("TxtPrecio").Text.ToDecimal, CvePrecioLisa, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, If(RblTipo.SelectedValue = "Imp", True, False), PrecioMinimo:=row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal) Then
+                Return True
+            End If
+        Next
+        Return False
+    End Function
 End Class

Ventas/ProductosServicios.aspx.vb

@@ -2865,7 +2865,7 @@ Partial Class ProductosyServicios
     End Function
 
     Private Function GuardarProductosEquivalenteEnFranquicia(ObjPS As ClsProductosServicios, Agregar As Boolean) As Boolean
-        Dim EmpresasFranquicia = New Integer() {152}
+        Dim EmpresasFranquicia = ObtenerFranquiciasInt()
         For Each Franquicia As Integer In EmpresasFranquicia
             Dim CvePSPagina As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("Codigo = '{0}'", TxtCodigo.Text.Trim)).ToEntero
             Dim CvePSAdicional As Integer = GlobalDTPS(Franquicia).FiltroPrimeroValor("CvePS", String.Format("PS = '{0}'", DdlPSAdicional.SelectedItem.Text)).ToEntero
@@ -2893,4 +2893,16 @@ Partial Class ProductosyServicios
         Next
         Return False
     End Function
+
+    Private Function ObtenerFranquiciasInt() As Integer()
+        Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(137)
+        Dim Franquicias = FranquiciasStr.Split(","c)
+        Dim ReturnFranquicias(Franquicias.Length) As Integer
+        Dim Contador As Integer = 0
+        For Each Franquicia In Franquicias
+            ReturnFranquicias(Contador) = Franquicia.ToEntero
+            Contador += 1
+        Next
+        Return ReturnFranquicias
+    End Function
 End Class