From a2c8c8f3e121a3b3163911f81b5c52f4e7ad210c Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 8 Sep 2022 11:59:09 -0700 Subject: [PATCH] Cxp, Cxp Detalle IE OC --- App_Code/ClsBancos.vb | 20 +- App_Code/ClsMovimientos.vb | 3 +- Bancos/IE.aspx | 15 + Bancos/IE.aspx.vb | 27 ++ Compras/RepCxP.aspx | 2 +- Compras/RepCxP.aspx.vb | 85 +++-- Compras/RepCxPDetalle.aspx | 115 +++--- Compras/RepCxPDetalle.aspx.vb | 161 ++++++--- Empresas/15/Formatos/Factura.rdlc | 379 +++++++++++++++++++- Empresas/Grales/Formatos/RepCxPDetalle.rdlc | 143 ++++++-- 10 files changed, 772 insertions(+), 178 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 551fca6ab..7aac560f3 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4587,7 +4587,6 @@ Public Class ClsBancos Return Retorno End Function - #Region "N O T I F I C A C I O N E S D E P A G O P R O V E E D O R E S" Public Function NotificacionPago(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActual As Usuario) As Boolean @@ -4898,6 +4897,25 @@ Public Class ClsBancos #End Region + + Public Function GetBancosOrdenCompra(CveIE As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Banc_BancosOrdenCompraGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveIE", SqlDbType.Int).Value = CveIE + .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 ordenes de compra relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + #Region "reportes" Public Function GetPagosNoBancarios(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 4b90021f3..8d328c4bb 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -716,11 +716,12 @@ Public Class ClsMovimientos .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - .Add("@TipoAgrupacion", SqlDbType.Bit).Value = TipoAgrupacion + .Add("@TipoAgrupacion", SqlDbType.Int).Value = TipoAgrupacion End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 0e1eb9aa6..146aac8d0 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -477,6 +477,21 @@ +
+ +
+
+ + + + + + + + +
+
+ diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 60e52e7ed..0f85a6816 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -798,6 +798,9 @@ Partial Class Bancos_IE HlEvento.Visible = True HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveIE=" & CveIE & "&TB_iframe=true&height=370&width=600;" + CargaOCRelacionadas() + + Else 'Configuración de Modalidad Insert ImgAddObs.Visible = False @@ -6798,6 +6801,30 @@ Partial Class Bancos_IE Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString Calendario.EndDate = DateTime.Now + End Sub + + Private Sub CargaOCRelacionadas() + + DVBancosOrdenCompra.Visible = False + If CveIE > 0 Then + Dim objBanco As New ClsBancos + + If objBanco.GetBancosOrdenCompra(CveIE, UsuarioActual.CveEmpresa) Then + + If objBanco.DtResultados.Rows.Count > 0 Then + GvBancosOrdenCompra.DataSource = objBanco.DtResultados + DVBancosOrdenCompra.Visible = True + End If + End If + objBanco.Dispose() + GvBancosOrdenCompra.DataBind() + End If + + + + + + End Sub End Class \ No newline at end of file diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index bb70141e5..118bd0604 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -226,7 +226,7 @@ -
Sucursal:
+
:
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index 20d4ef2de..4d85db105 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -131,6 +131,7 @@ Partial Class Compras_RepCxP DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyecto.DataBind() + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro) DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa) DdlProveedoresClasificaciones.DataBind() @@ -158,6 +159,22 @@ Partial Class Compras_RepCxP 'End If 'ObjSisUsuarios.Dispose() + For Each lItem As ListItem In DdlGrupo.Items + + + + If lItem.Value.ToEntero = 9 Then + lItem.Text = LblSubProyectofiltro.Text & "-Sucursal" + End If + + If lItem.Value.ToEntero = 11 Then + lItem.Text = LblSubProyectofiltro.Text & " Proveedor" + End If + + + Next + + End Sub Private Sub CargaDatos() @@ -532,7 +549,7 @@ Partial Class Compras_RepCxP e.Row.Cells(3).BackColor = Drawing.Color.LightGray e.Row.Cells(17).BackColor = Drawing.Color.LightGray End If - If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then + If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3, 5) Then e.Row.Visible = False End If e.Row.FCHyperLink($"HplColumna1").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -620,9 +637,9 @@ Partial Class Compras_RepCxP If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-" Else If DdlGrupo.SelectedValue.ToEntero = 11 Then - If e.Row.DBCampo("CveSubProyecto") = "-1" Then + If e.Row.DBCampo("CveSubProyecto") = "-1" And e.Row.DBCampo("Orden") = "" Then e.Row.CssClass = "Totales" - ElseIf e.Row.DBCampo("Orden") = "" Then + ElseIf e.Row.DBCampo("Orden") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then e.Row.CssClass = "SubTotales" End If Else @@ -632,13 +649,13 @@ Partial Class Compras_RepCxP End If - If e.Row.DBCampo("Orden") <> "" Then + If e.Row.DBCampo("Orden") <> "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(1).BackColor = Drawing.Color.LightGray e.Row.Cells(17).BackColor = Drawing.Color.LightGray End If - If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3) Then + If DdlGrupo.SelectedValue = "10" AndAlso e.Row.RowIndex.Contiene(1, 3, 5) Then e.Row.Visible = False End If @@ -658,51 +675,51 @@ Partial Class Compras_RepCxP '/Bancos/RepProgramarRecursos.aspx --> Compras/RepCxPDetalle.aspx Dim LigaTot As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga8 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C9&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C10&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C11&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga12 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C12&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga13 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C13&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga14 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga15 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) Dim Liga16 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}", - e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) + e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto) @@ -719,7 +736,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC2").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -737,7 +754,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC3").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -755,7 +772,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC4").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -773,7 +790,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC5").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -791,7 +808,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC6").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -809,7 +826,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC7").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -827,7 +844,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC8").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -845,7 +862,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC9").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -863,7 +880,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC10").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -881,7 +898,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC11").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -899,7 +916,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC12").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero @@ -917,7 +934,7 @@ Partial Class Compras_RepCxP End If If e.Row.DBCampo("TC13").ToString.ToEntero = 2 And Not CargaColumnaVencido Then - If Not e.Row.DBCampo("Orden") = "" Then + If Not e.Row.DBCampo("Orden") = "" Or (DdlGrupo.SelectedValue.ToEntero = 11 And e.Row.DBCampo("CveSubProyecto") = "0") Then e.Row.Cells(ContadorColumna).BackColor = Drawing.Color.LightGray End If e.Row.FCHyperLink($"HplColumna{Contador}").Text = e.Row.DBCampo("vencido").ToString.FormatoNumero diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index 33b22246f..19ca4835b 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -216,7 +216,7 @@
-
Sucursal:
+
:
@@ -238,6 +238,15 @@
+ + + +
+
Moneda:
+
+ +
+
@@ -251,6 +260,27 @@ + <%--0--%> + + + Folio + + + + + + <%--1--%> + + + + Tipo Doc. + + + + + + + <%--2--%> Fecha @@ -259,14 +289,7 @@ - - - Folio - - - - - + <%--3--%> SubTotal @@ -276,6 +299,7 @@ + <%--4--%> IVA @@ -285,6 +309,7 @@ + <%--5--%> IEPS @@ -294,6 +319,7 @@ + <%--6--%> Descuento @@ -303,6 +329,7 @@ + <%--7--%> Total @@ -312,6 +339,7 @@ + <%--8--%> Saldo @@ -321,6 +349,7 @@ + <%--9--%> Fecha Venc. @@ -329,6 +358,7 @@ + <%--10--%> Días Venc. @@ -337,6 +367,7 @@ + <%--11--%> Proveedor @@ -345,6 +376,7 @@ + <%--12--%> Cuenta @@ -353,6 +385,7 @@ + <%--13--%> Observaciones @@ -361,11 +394,13 @@ + <%--14--%> + <%--15--%> Descripción @@ -402,51 +437,41 @@
- - - - - -
- + + + +
- - - + + + + + - - - + + + + + + - - - + + + + + + - - - - - - + + +
- - -
- - -
- - -
- -
- -
-
+ +
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index b76ed4db7..8f8cd00fc 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -272,6 +272,7 @@ Partial Class RepCxPDetalle DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0")) DdlSubProyecto.SelectedValueExist(CveSucursal) + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro) Dim TipoMoneda As Integer = IfNull(Request("TipoMoneda"), 1).ToString.ToEntero RblTipoCambio.SelectedValue = TipoMoneda.ToString @@ -324,7 +325,32 @@ Partial Class RepCxPDetalle Dim Comprobaciones = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero DdlComprobacion.SelectedValueExist(Comprobaciones) - GvDatos.Columns(9).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0) + + Ddlmoneda.DataSource = GlobalDTMonedas + Ddlmoneda.DataBind() + Ddlmoneda.Items.Insert(0, New ListItem("Todas", "-1")) + Ddlmoneda.SelectedValueExist(CveMoneda) + + + GvDatos.Columns(10).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0) + + + + For Each lItem As ListItem In DdlGrupo.Items + + + + If lItem.Value.ToEntero = 9 Then + lItem.Text = LblSubProyectofiltro.Text & "-Sucursal" + End If + + If lItem.Value.ToEntero = 11 Then + lItem.Text = LblSubProyectofiltro.Text & " Proveedor" + End If + + + Next + End Sub @@ -378,7 +404,7 @@ Partial Class RepCxPDetalle CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero If ObjMovtos.GetCxPDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, CveProveedorSucursal, CveUsuario, - DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, CveMoneda, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero, + DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero, Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3, -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto) Then @@ -390,9 +416,9 @@ Partial Class RepCxPDetalle If DdlGrupo.SelectedValue.ToEntero = 5 And UsuarioActual.Empresa.UsaContabilidad Then 'cuando es grupo por proveedor, se muestra la cuneta contable TMP_DTDatos = CargaCuentasContables(TMP_DTDatos) - GvDatos.Columns(11).Visible = True + GvDatos.Columns(12).Visible = True Else - GvDatos.Columns(11).Visible = False + GvDatos.Columns(12).Visible = False End If DtDatos = TMP_DTDatos @@ -479,65 +505,80 @@ Partial Class RepCxPDetalle If e.Row.RowType = DataControlRowType.DataRow Then If DdlGrupo.SelectedValue.ToEntero = 11 Then - If e.Row.DBCampo("CveSubProyecto") = "" Then + If e.Row.DBCampo("CveSubProyecto") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then e.Row.CssClass = "Totales" ElseIf e.Row.DBCampo("RazonSocial") = "" Then e.Row.CssClass = "SubTotales" - End If + End If + + + 'If e.Row.DBCampo("CveSubProyecto") = "-1" And e.Row.DBCampo("Orden") = "" Then + ' e.Row.CssClass = "Totales" + 'ElseIf e.Row.DBCampo("Orden") = "" And e.Row.DBCampo("CveSubProyecto") <> "0" Then + ' e.Row.CssClass = "SubTotales" + 'End If + + Else If e.Row.DBCampo("RazonSocial") = "" And e.Row.DBCampo("SerieFolio") = "" Then e.Row.CssClass = "SubTotales" End If - If e.Row.DBCampo("Agrupador") = "" Then + If e.Row.DBCampo("Agrupador") = "" And e.Row.DBCampo("TipoDocto") <> "Ant" Then e.Row.CssClass = "Totales" e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center - e.Row.FCHyperLink("HplFolio").ForeColor = Drawing.Color.White + e.Row.FCLabel("LtlTipoDocto").ForeColor = Drawing.Color.White If e.Row.DBCampo("CveMoneda") = "1" Then - e.Row.FCHyperLink("HplFolio").Text = "Total Pesos" + e.Row.FCLabel("LtlTipoDocto").Text = "Total Pesos" ElseIf e.Row.DBCampo("CveMoneda") = "2" Then - e.Row.FCHyperLink("HplFolio").Text = "Total Dólares" + e.Row.FCLabel("LtlTipoDocto").Text = "Total Dólares" Else - e.Row.FCHyperLink("HplFolio").Text = "Total" + e.Row.FCLabel("LtlTipoDocto").Text = "Total" End If + End If End If If e.Row.DBCampo("CveCompra") = "" And e.Row.DBCampo("Agrupador") <> "" Then - e.Row.FCHyperLink("HplFolio").Text = e.Row.DBCampo("Agrupador") + e.Row.FCLabel("LtlTipoDocto").Text = e.Row.DBCampo("Agrupador") e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left If e.Row.DBCampo("Agrupador").Length > 25 Then - e.Row.FCHyperLink("HplFolio").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25)) + e.Row.FCLabel("LtlTipoDocto").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25)) End If - Else - e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")) + Else + + If (e.Row.DBCampo("TipoDocto").ToString = "Ant") Then + e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveCompra")) + Else + e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra")) + End If If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then - Dim Str As New StringBuilder - Str.AppendFormat("Importe Almacen: ${0} ({1}%)
", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje")) - If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%)
", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje")) - If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%)
", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje")) - Str.AppendFormat(" Importes SIN IVA") + Dim Str As New StringBuilder + Str.AppendFormat("Importe Almacen: ${0} ({1}%)
", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje")) + If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%)
", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje")) + If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%)
", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje")) + Str.AppendFormat(" Importes SIN IVA") + + e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString) + Select Case e.Row.DBCampo("EstatusInventario").ToEntero + Case 1 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red + Case 2 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange + Case 3 + e.Row.FCLabel("LbEstatusInv").Text = "" + e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green + End Select + End If + End If - e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString) - Select Case e.Row.DBCampo("EstatusInventario").ToEntero - Case 1 - e.Row.FCLabel("LbEstatusInv").Text = "" - e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red - Case 2 - e.Row.FCLabel("LbEstatusInv").Text = "" - e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange - Case 3 - e.Row.FCLabel("LbEstatusInv").Text = "" - e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green - End Select - End If End If - - End If End Sub #End Region @@ -546,84 +587,92 @@ Partial Class RepCxPDetalle Protected Sub MostrarOcultarColumnas() If ChkFolio.Checked Then + GvDatos.Columns(0).Visible = True + Else + GvDatos.Columns(0).Visible = False + End If + + + + If ChkTipoDocto.Checked Then GvDatos.Columns(1).Visible = True Else GvDatos.Columns(1).Visible = False End If If ChkSubTotal.Checked Then - GvDatos.Columns(2).Visible = True - Else - GvDatos.Columns(2).Visible = False - End If - - If ChkIVA.Checked Then GvDatos.Columns(3).Visible = True Else GvDatos.Columns(3).Visible = False End If - If ChkIEPS.Checked Then + If ChkIVA.Checked Then GvDatos.Columns(4).Visible = True Else GvDatos.Columns(4).Visible = False End If - If ChkDescuento.Checked Then + If ChkIEPS.Checked Then GvDatos.Columns(5).Visible = True Else GvDatos.Columns(5).Visible = False End If - If ChkTotal.Checked Then + If ChkDescuento.Checked Then GvDatos.Columns(6).Visible = True Else GvDatos.Columns(6).Visible = False End If - If ChkSaldo.Checked Then + If ChkTotal.Checked Then GvDatos.Columns(7).Visible = True Else GvDatos.Columns(7).Visible = False End If - If ChkFechaVencimiento.Checked Then + If ChkSaldo.Checked Then GvDatos.Columns(8).Visible = True Else GvDatos.Columns(8).Visible = False - End If - - If ChkDiasVencidos.Checked Then + End If + + If ChkFechaVencimiento.Checked Then GvDatos.Columns(9).Visible = True Else GvDatos.Columns(9).Visible = False End If - If ChkProveedor.Checked Then + If ChkDiasVencidos.Checked Then GvDatos.Columns(10).Visible = True Else GvDatos.Columns(10).Visible = False End If - If ChkCuenta.Checked Then + If ChkProveedor.Checked Then GvDatos.Columns(11).Visible = True Else GvDatos.Columns(11).Visible = False End If - If ChkObservaciones.Checked Then + If ChkCuenta.Checked Then GvDatos.Columns(12).Visible = True Else GvDatos.Columns(12).Visible = False End If - If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then + If ChkObservaciones.Checked Then GvDatos.Columns(13).Visible = True Else - GvDatos.Columns(13).Visible = False + GvDatos.Columns(13).Visible = False End If - GvDatos.Columns(14).Visible = ChkDescripcion.Checked + If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then + GvDatos.Columns(14).Visible = True + Else + GvDatos.Columns(14).Visible = False + End If + + GvDatos.Columns(15).Visible = ChkDescripcion.Checked Personalizo = 1 If Personalizo = 1 Then @@ -697,7 +746,7 @@ Partial Class RepCxPDetalle params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Responsable}{Estatus}{Registro}{Clasificacion}{Sucursal}{TipoMoneda}")) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Empresas/15/Formatos/Factura.rdlc b/Empresas/15/Formatos/Factura.rdlc index 4708f4487..82cab18f5 100644 --- a/Empresas/15/Formatos/Factura.rdlc +++ b/Empresas/15/Formatos/Factura.rdlc @@ -1388,7 +1388,7 @@ true - 20.85368cm + 22.18718cm 0.0208cm 2.10099cm 20.06179cm @@ -2861,7 +2861,7 @@ DsOC - 4.14415cm + 5.47765cm 0.11516cm 2.29418cm 19.94648cm @@ -3286,7 +3286,7 @@ true - 13.45121cm + 14.78471cm 0.04257cm 3.74574cm 20.109cm @@ -4352,7 +4352,7 @@ true - 6.61207cm + 7.94557cm 0.11516cm 6.80033cm 20.03641cm @@ -4370,7 +4370,7 @@ - Moneda + Moneda: + + true + true + + + + + Regimen Fiscal: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!RegimenFiscalCodigo.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estado: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteEstado.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + País: + + + + + + + + + + + + + + + #c4d79b + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClientePais.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 23.58967cm + 24.28817cm - Textbox4 + Textbox12 - Textbox12 + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox4 @@ -507,7 +565,6 @@ - Fecha1 @@ -523,15 +580,15 @@ - + true true - =IIF(Fields!SerieFolio.Value = "",IIF(Fields!Agrupador.Value = "", -IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupador.Value),Fields!SerieFolio.Value) + =IIF(Fields!TipoDocto.Value = "",IIF(Fields!Agrupador.Value = "", +IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupador.Value),Fields!TipoDocto.Value) - SerieFolio1 + TipoDocto + + + =IIF(Fields!SerieFolio.Value = "",IIF(Fields!Agrupador.Value = "","#67809F", "Silver"),"Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha @@ -781,6 +873,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad + @@ -797,7 +890,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad 0.14111cm 0.17175cm 0.98834cm - 29.10806cm + 29.10807cm @@ -1221,7 +1314,11 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad SerieFolio - System.Double + System.String + + + TipoDocto + System.String Total