diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 10b6cbae5..751a1df63 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -7286,15 +7286,16 @@ Public Class ClsContPAQi Dim Retorno As Boolean = False StrSQL.Clear() - StrSQL.Append(" SELECT P.Id, P.Fecha, T.Nombre AS TipoPol, P.Concepto, P.Cargos, P.Abonos, P.Folio ") + StrSQL.Append(" SELECT P.Id, P.Fecha, T.Nombre AS TipoPol, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ") StrSQL.Append(" FROM [dbo].[Polizas] P ") StrSQL.Append(" LEFT JOIN TiposPolizas T ON T.Id = P.TipoPol ") StrSQL.Append(" LEFT JOIN MovimientosPoliza M ON M.IdPoliza = P.Id ") + StrSQL.Append(" LEFT JOIN [SERVIDOR].[Ventas].dbo.Conta_PrePolizas PP on P.Id = PP.IdPoliza") StrSQL.Append(" WHERE P.Ejercicio = @Ejercicio ") StrSQL.Append(" AND P.Periodo = @Periodo ") StrSQL.Append(" AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ") StrSQL.Append(" AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ") - StrSQL.Append(" GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio ") + StrSQL.Append(" GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ") StrSQL.Append(" ORDER BY P.Folio ") SqlDataAdapter(StrSQL.ToString, CommandType.Text) diff --git a/Contabilidad/FiltraPolizas.aspx b/Contabilidad/FiltraPolizas.aspx index f14fbb7d1..8e3013f59 100644 --- a/Contabilidad/FiltraPolizas.aspx +++ b/Contabilidad/FiltraPolizas.aspx @@ -171,6 +171,14 @@ + + + + + + + + diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx index 48cbb6308..351e9ce1e 100644 --- a/Contabilidad/RegPrePoliza.aspx +++ b/Contabilidad/RegPrePoliza.aspx @@ -70,16 +70,16 @@
  • - Cargar Excel + Cargar Excel
  • Crear Complemento de Pago
  • - Imprmir PDF's + Paquete Egresos
  • - Cargar Comprobante + Cargar Comprobante
  • diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index a92d266e1..63b45e73e 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -1843,7 +1843,7 @@ Partial Class ContabilidadC_RegPrePoliza End If Catch ex As Exception - Alert("Error") + Alert("Error al descargar el paquete", TipoMensaje.MsgError) End Try End Sub Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String @@ -1857,11 +1857,8 @@ Partial Class ContabilidadC_RegPrePoliza 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - Try - - - Dim dtVC As DataTable - Dim dr As DataRow + Dim dtVC As DataTable + Dim dr As DataRow dtVC = ObjConta.DtResultados dr = dtVC.Rows(0) Dim ruta As String = "" @@ -1895,9 +1892,6 @@ Partial Class ContabilidadC_RegPrePoliza End If Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString) - Catch ex As Exception - Alert("ggg") - End Try End If