From dc6f0d269a9dd9256d49d90e6a5fc2fe62acf4d5 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 7 Sep 2022 08:32:12 -0700 Subject: [PATCH 01/21] =?UTF-8?q?Econo=20Compras=20=20error=20al=20registr?= =?UTF-8?q?ar=20factura=20de=20importaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a6f617e3a..e64ab4230 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4825,6 +4825,7 @@ Partial Class Compras_Compras CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero CompraActual.IdCtaContableProv = CtaProveedor CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria + CompraActual.EsImportacion = chkImportacion.Checked If CveImportacion > 0 Or CveFlete > 0 Then @@ -17922,6 +17923,10 @@ Partial Class Compras_Compras CalculaTotales(True, EsNoDeducible) End If + If CveCompra <= 0 And CveFactura <= 0 Then + CargaAnticipos(DdlProveedor.SelectedValue.ToEntero) + End If + End Sub Private Sub UpdatePS(Optional CveContratoDetalle As Integer = -1) Dim DrPS As DataRow = Nothing From 129a45f29a8299bc79e258b5c874e14f626136eb Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 8 Sep 2022 10:04:14 -0700 Subject: [PATCH 02/21] - --- Bancos/Devoluciones.aspx.cs | 4 +-- Bancos/IE.aspx | 47 ++------------------------- Bancos/IE.aspx.vb | 65 ++++--------------------------------- 3 files changed, 11 insertions(+), 105 deletions(-) diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index 1f602c371..9bcabe81d 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -579,9 +579,9 @@ public partial class Bancos_Devoluciones : ClsPaginas // OTROS INGRESOS if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0) { - int tcvecon = 78; + int tcvecon = 255; if (gvr.FCTextBox("TxtComision").Text.ToDecimal() > 0) - tcvecon = 255; + tcvecon = 78; if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, tcvecon, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE)) { diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 0e1eb9aa6..d5bbf5332 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -25,11 +25,7 @@ Complemento Pago - - -
  • - Actualizar Tipo Cambio -
    • +
  • PrePoliza
    • @@ -268,7 +264,7 @@ Clientes Proveedor - Viaticos - Personal + Viáticos @@ -1458,44 +1454,7 @@ - - <%-- ACTUALIZAR TIPO CAMBIO PREPOLIZA --%> - + +
    + +
    +
    + + + + + + + + +
    +
    + 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 From e496413589a08bb392f8e8e60da12f7d2eb25ce9 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 8 Sep 2022 14:59:00 -0700 Subject: [PATCH 07/21] -- cambio temporal para usuario claudia bdh --- Inventarios/RecepcionAlmacen.aspx.vb | 4 +++- Inventarios/TraspasoAlmacen.aspx.vb | 7 +++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 98e6ba9c4..70d75f8be 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -474,8 +474,10 @@ Partial Class Inventarios_RecepcionAlmacen CargaPermisos() If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True + Dim PermisoEspecialCambioFecha As Boolean = False + If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Then TxtFecha.Enabled = False ImgFecha.Visible = False diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 771a5a7f4..ebfe1f113 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -226,15 +226,14 @@ Partial Class Inventarios_TraspasoAlmacen CantidadTotal = 0 CvePS = 0 TipoSeccionAlmacen = 0 + Dim PermisoEspecialCambioFecha As Boolean = False + If UsuarioActual.CveUsuario = 1937 Then PermisoEspecialCambioFecha = True - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then - + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then TxtFecha.Enabled = False ImgFecha.Visible = False - TxtFechaRecepcion.Enabled = False ImgFechaRecepcion.Visible = False - End If Else From 420f12ab44ab23508cdf0c88c915a23bccefff7f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 8 Sep 2022 15:02:15 -0700 Subject: [PATCH 08/21] -- mejora en dev efectivo nc compra --- Bancos/IE.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index ec9d01588..2ed421cce 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2889,7 +2889,7 @@ Partial Class Bancos_IE Dim importeMX As Decimal Dim Multiplicador As Integer - Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero 'OTROS INGRESOS/EGRESOS Dim TCC As Decimal = 1 @@ -3136,7 +3136,7 @@ Partial Class Bancos_IE Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D Dim ReferenciaAplicar = ObjIE.Folio - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" From b3bdf46fb11f4a45b90fccf058caabb936fa1253 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 8 Sep 2022 15:03:12 -0700 Subject: [PATCH 09/21] =?UTF-8?q?--=20quitar=20c=C3=B3digo=20viejo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsBancos.vb | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 551fca6ab..84b511339 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1673,27 +1673,6 @@ Public Class ClsBancos Return Retorno End Function - Public Function UpdateBancos_IETipoCambio(TipoCambio As Double, CveIE As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Banc_IETipoCambioUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@TipoCambio", SqlDbType.Float).Value = TipoCambio - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .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 tipo cambio del IE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function Public Function UpdateBancosTipoCambioValuacion(TipoCambio As Decimal, CveIE As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False From b2f464c3cf8af449c2e597245055c433a4f87f89 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 8 Sep 2022 18:37:13 -0700 Subject: [PATCH 10/21] RepCxP Correciones --- Compras/RepAnt-NC-EXCDetalle.aspx | 3 +- Compras/RepAnt-NC-EXCDetalle.aspx.cs | 16 +- Compras/RepCxP.aspx.vb | 9 - Compras/RepCxPDetalle.aspx | 63 ++++--- Compras/RepCxPDetalle.aspx.vb | 89 +++++---- Empresas/Grales/Formatos/RepCxPDetalle.rdlc | 193 +++++++++++++++----- 6 files changed, 240 insertions(+), 133 deletions(-) diff --git a/Compras/RepAnt-NC-EXCDetalle.aspx b/Compras/RepAnt-NC-EXCDetalle.aspx index 7b6df6250..aa996826f 100644 --- a/Compras/RepAnt-NC-EXCDetalle.aspx +++ b/Compras/RepAnt-NC-EXCDetalle.aspx @@ -136,7 +136,7 @@ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" data-sort="true" Width="99%" DataKeyNames="CveProveedor,CveMoneda,Saldo,Folio,CveCompra,RazonSocial,CveCompraAmortizacion,SerieFolioAmortizacion,SerieFolio,Total, - Fecha,FechaAmortizacion,SubTotal,SubTotalAmortizacion,ImporteAmortizacion,CveIE,Tipo,SaldoAcumulativo"> + Fecha,FechaAmortizacion,SubTotal,SubTotalAmortizacion,ImporteAmortizacion,CveIE,Tipo,SaldoAcumulativo,Dias"> @@ -146,6 +146,7 @@ + diff --git a/Compras/RepAnt-NC-EXCDetalle.aspx.cs b/Compras/RepAnt-NC-EXCDetalle.aspx.cs index ef30fc45b..18d583117 100644 --- a/Compras/RepAnt-NC-EXCDetalle.aspx.cs +++ b/Compras/RepAnt-NC-EXCDetalle.aspx.cs @@ -181,7 +181,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas { e.Row.CssClass = "SubTotales3"; e.Row.Cells[2].Text = e.Row.DBCampo("Moneda").ToString(); - e.Row.Cells[4].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); + e.Row.Cells[5].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); } else if (e.Row.DataKey("CveProveedor").ToEntero() < 1) { @@ -198,21 +198,21 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas e.Row.Cells[2].Text = "Egresos X Comprobar"; break; } - e.Row.Cells[4].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); + e.Row.Cells[5].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); } else if (e.Row.DataKey("CveCompraAmortizacion").ToEntero() < 1 && e.Row.DataKey("CveCompra").ToEntero() < 1 && e.Row.DataKey("CveIE").ToEntero() < 1) { e.Row.CssClass = "Totales"; e.Row.Cells[2].Text = e.Row.DataKey("RazonSocial"); - e.Row.Cells[7].Text = ""; - e.Row.Cells[4].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); + e.Row.Cells[8].Text = ""; + e.Row.Cells[5].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); } else if (e.Row.DataKey("CveCompraAmortizacion").ToEntero() < 1 && e.Row.DataKey("CveCompra").ToEntero() > 0) { e.Row.CssClass = "SubTotales"; e.Row.Cells[2].Text = e.Row.DataKey("SerieFolio"); e.Row.Cells[3].Text = e.Row.DataKey("Fecha").ToDate().ToShortDateString(); - e.Row.Cells[4].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); + e.Row.Cells[5].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DataKey("CveCompra")}"; e.Row.Cells[2].Text = "" + e.Row.Cells[2].Text + ""; } @@ -221,7 +221,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas e.Row.CssClass = "SubTotales"; e.Row.Cells[2].Text = e.Row.DataKey("SerieFolio"); e.Row.Cells[3].Text = e.Row.DataKey("Fecha").ToDate().ToShortDateString(); - e.Row.Cells[4].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); + e.Row.Cells[5].Text = "$" + e.Row.DataKey("Total").FormatoNumero(); Liga = $"/Bancos/IE.aspx?&CveIE={e.Row.DataKey("CveIE")}"; e.Row.Cells[2].Text = "" + e.Row.Cells[2].Text + ""; } @@ -229,9 +229,9 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas { e.Row.Cells[2].Text = e.Row.DataKey("SerieFolioAmortizacion"); e.Row.Cells[3].Text = e.Row.DataKey("FechaAmortizacion").ToDate().ToShortDateString(); - e.Row.Cells[4].Text = "$" + e.Row.DataKey("ImporteAmortizacion").FormatoNumero(); e.Row.Cells[5].Text = "$" + e.Row.DataKey("ImporteAmortizacion").FormatoNumero(); - e.Row.Cells[6].Text = "$" + e.Row.DataKey("SaldoAcumulativo").FormatoNumero(); + e.Row.Cells[6].Text = "$" + e.Row.DataKey("ImporteAmortizacion").FormatoNumero(); + e.Row.Cells[7].Text = "$" + e.Row.DataKey("SaldoAcumulativo").FormatoNumero(); Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DataKey("CveCompraAmortizacion")}"; e.Row.Cells[2].Text = "" + e.Row.Cells[2].Text + ""; } diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index 4d85db105..53d703549 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -160,18 +160,9 @@ Partial Class Compras_RepCxP '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 diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index 19ca4835b..1c49878a4 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -261,17 +261,8 @@ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None"> <%--0--%> - - - Folio - - - - - - <%--1--%> - + Tipo Doc. @@ -279,6 +270,17 @@ + + <%--1--%> + + + + Folio + + + + + <%--2--%> @@ -340,6 +342,17 @@ <%--8--%> + + + + Moneda + + + + + + + <%--9--%> Saldo @@ -349,7 +362,7 @@ - <%--9--%> + <%--10--%> Fecha Venc. @@ -358,7 +371,8 @@ - <%--10--%> + + <%--11--%> Días Venc. @@ -367,7 +381,8 @@ - <%--11--%> + + <%--12--%> Proveedor @@ -376,7 +391,8 @@ - <%--12--%> + + <%--13--%> Cuenta @@ -385,7 +401,8 @@ - <%--13--%> + + <%--14--%> Observaciones @@ -394,13 +411,14 @@ - <%--14--%> + + <%--15--%> - <%--15--%> + <%--16--%> Descripción @@ -441,9 +459,9 @@ - - + + @@ -452,19 +470,20 @@ - - + + - + + diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 8f8cd00fc..84ad7bd28 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -332,23 +332,15 @@ Partial Class RepCxPDetalle Ddlmoneda.SelectedValueExist(CveMoneda) - GvDatos.Columns(10).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0) + GvDatos.Columns(11).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 @@ -416,9 +408,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(12).Visible = True + GvDatos.Columns(13).Visible = True Else - GvDatos.Columns(12).Visible = False + GvDatos.Columns(13).Visible = False End If DtDatos = TMP_DTDatos @@ -509,16 +501,7 @@ Partial Class RepCxPDetalle e.Row.CssClass = "Totales" ElseIf e.Row.DBCampo("RazonSocial") = "" Then e.Row.CssClass = "SubTotales" - 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 - - + End If Else If e.Row.DBCampo("RazonSocial") = "" And e.Row.DBCampo("SerieFolio") = "" Then e.Row.CssClass = "SubTotales" @@ -527,14 +510,14 @@ Partial Class RepCxPDetalle 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.FCLabel("LtlTipoDocto").ForeColor = Drawing.Color.White + e.Row.FCHyperLink("HplFolio").ForeColor = Drawing.Color.White If e.Row.DBCampo("CveMoneda") = "1" Then - e.Row.FCLabel("LtlTipoDocto").Text = "Total Pesos" + e.Row.FCHyperLink("HplFolio").Text = "Total Pesos" ElseIf e.Row.DBCampo("CveMoneda") = "2" Then - e.Row.FCLabel("LtlTipoDocto").Text = "Total Dólares" + e.Row.FCHyperLink("HplFolio").Text = "Total Dólares" Else - e.Row.FCLabel("LtlTipoDocto").Text = "Total" + e.Row.FCHyperLink("HplFolio").Text = "Total" End If End If @@ -542,12 +525,17 @@ Partial Class RepCxPDetalle End If + + If e.Row.DBCampo("CveCompra") = "" Then + e.Row.FCLabel("LblMoneda").Text = "" + End If + If e.Row.DBCampo("CveCompra") = "" And e.Row.DBCampo("Agrupador") <> "" Then - e.Row.FCLabel("LtlTipoDocto").Text = e.Row.DBCampo("Agrupador") + e.Row.FCHyperLink("HplFolio").Text = e.Row.DBCampo("Agrupador") e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left If e.Row.DBCampo("Agrupador").Length > 25 Then - e.Row.FCLabel("LtlTipoDocto").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25)) - End If + e.Row.FCHyperLink("HplFolio").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25)) + End If Else If (e.Row.DBCampo("TipoDocto").ToString = "Ant") Then @@ -586,20 +574,18 @@ Partial Class RepCxPDetalle #Region "PERSONALIZAR" Protected Sub MostrarOcultarColumnas() - If ChkFolio.Checked Then + If ChkTipoDocto.Checked Then GvDatos.Columns(0).Visible = True Else GvDatos.Columns(0).Visible = False End If - - - If ChkTipoDocto.Checked Then + If ChkFolio.Checked Then GvDatos.Columns(1).Visible = True Else GvDatos.Columns(1).Visible = False - End If - + End If + If ChkSubTotal.Checked Then GvDatos.Columns(3).Visible = True Else @@ -628,51 +614,60 @@ Partial Class RepCxPDetalle GvDatos.Columns(7).Visible = True Else GvDatos.Columns(7).Visible = False - End If - - If ChkSaldo.Checked Then + End If + + + If ChkMoneda.Checked Then GvDatos.Columns(8).Visible = True Else GvDatos.Columns(8).Visible = False End If - If ChkFechaVencimiento.Checked Then + + + If ChkSaldo.Checked Then GvDatos.Columns(9).Visible = True Else GvDatos.Columns(9).Visible = False - End If - - If ChkDiasVencidos.Checked Then + End If + + If ChkFechaVencimiento.Checked Then GvDatos.Columns(10).Visible = True Else GvDatos.Columns(10).Visible = False End If - If ChkProveedor.Checked Then + If ChkDiasVencidos.Checked Then GvDatos.Columns(11).Visible = True Else GvDatos.Columns(11).Visible = False End If - If ChkCuenta.Checked Then + If ChkProveedor.Checked Then GvDatos.Columns(12).Visible = True Else GvDatos.Columns(12).Visible = False End If - If ChkObservaciones.Checked Then + If ChkCuenta.Checked Then GvDatos.Columns(13).Visible = True Else GvDatos.Columns(13).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(14).Visible = True Else - GvDatos.Columns(14).Visible = False + GvDatos.Columns(14).Visible = False End If - GvDatos.Columns(15).Visible = ChkDescripcion.Checked + If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then + GvDatos.Columns(15).Visible = True + Else + GvDatos.Columns(15).Visible = False + End If + + GvDatos.Columns(16).Visible = ChkDescripcion.Checked Personalizo = 1 If Personalizo = 1 Then diff --git a/Empresas/Grales/Formatos/RepCxPDetalle.rdlc b/Empresas/Grales/Formatos/RepCxPDetalle.rdlc index b5758f5ea..750223686 100644 --- a/Empresas/Grales/Formatos/RepCxPDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepCxPDetalle.rdlc @@ -6,17 +6,20 @@ - 2.16611cm + 1.63217cm - 5.37696cm + 4.77075cm - 2.31479cm + 2.24172cm 2.4348cm + + 2.30119cm + 2.32401cm @@ -27,7 +30,7 @@ 1.4305cm - 8.07426cm + 6.98629cm 2.89369cm @@ -39,14 +42,14 @@ - + true true - Folio + Tipo Doc. - Textbox12 + Textbox5 - Textbox5 + Textbox12 + + + + + + Textbox13 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + @@ -544,40 +603,6 @@ 0.49417cm - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - - - - =IIF(Fields!SerieFolio.Value = "",IIF(Fields!Agrupador.Value = "","#67809F", "Silver"),"Transparent") - 2pt - 2pt - 2pt - 2pt - - - - @@ -587,8 +612,7 @@ - =IIF(Fields!TipoDocto.Value = "",IIF(Fields!Agrupador.Value = "", -IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupador.Value),Fields!TipoDocto.Value) + =Fields!SerieFolio.Value + + + + + + SerieFolio + + + =IIF(Fields!SerieFolio.Value = "",IIF(Fields!Agrupador.Value = "","#67809F", "Silver"),"Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -627,6 +687,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad @@ -685,6 +746,41 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad + + + + true + true + + + + + =IIF(Fields!SerieFolio.Value ="", "",Fields!Moneda.Value) + + + + + + + Moneda + + + =IIF(Fields!SerieFolio.Value = "",IIF(Fields!Agrupador.Value = "","#67809F", "Silver"),"Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -874,6 +970,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad + @@ -1324,6 +1421,10 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad Total System.Double + + Moneda + System.String + Saldo System.Double From a4e288a64c389c3639d97ee5081a39379e9d6ed6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 9 Sep 2022 09:27:16 -0700 Subject: [PATCH 11/21] IE correccion vista Folio OC --- Bancos/IE.aspx | 11 ++++--- Bancos/IE.aspx.vb | 7 +++-- Compras/RepCxPDetalle.aspx | 2 +- Empresas/Grales/Formatos/RepCxPDetalle.rdlc | 32 +++++++++++++++------ 4 files changed, 36 insertions(+), 16 deletions(-) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index a7a317c87..f3f596eb5 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -451,7 +451,7 @@
    +
    @@ -475,15 +475,18 @@
    -
    +
    + Folio OC: +
    - + + <%-- - + --%>
    diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index e5bbc8640..24f10ebf4 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -6759,12 +6759,15 @@ Partial Class Bancos_IE If objBanco.GetBancosOrdenCompra(CveIE, UsuarioActual.CveEmpresa) Then If objBanco.DtResultados.Rows.Count > 0 Then - GvBancosOrdenCompra.DataSource = objBanco.DtResultados + + + HLFFolioOC.Text = objBanco.DtResultados.Rows(0)("FolioOC").ToString + HLFFolioOC.NavigateUrl = $"~/OC/OC.aspx?OC={objBanco.DtResultados.Rows(0)("CveOrdenCompra").ToString}" DVBancosOrdenCompra.Visible = True End If End If objBanco.Dispose() - GvBancosOrdenCompra.DataBind() + End If diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index 1c49878a4..c15dc47e0 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -334,7 +334,7 @@ <%--7--%> - Total + Importe Docto diff --git a/Empresas/Grales/Formatos/RepCxPDetalle.rdlc b/Empresas/Grales/Formatos/RepCxPDetalle.rdlc index 750223686..22182d4e8 100644 --- a/Empresas/Grales/Formatos/RepCxPDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepCxPDetalle.rdlc @@ -6,7 +6,7 @@ - 1.63217cm + 1.30493cm 4.77075cm @@ -30,7 +30,7 @@ 1.4305cm - 6.98629cm + 7.31352cm 2.89369cm @@ -38,7 +38,7 @@ - 0.49417cm + 1.12241cm @@ -49,7 +49,21 @@ - Tipo Doc. + Tipo + + + + + + + + + Doc. @@ -995,7 +1009,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad - 0.49745in + 0.69201in + + + + + + Textbox1 + 0.07056cm + 0.08721cm + 0.58236cm + 24.93173cm + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 7.52675cm + + + 1.72965cm + + + 1.82148cm + + + 2.0553cm + + + 2.02375cm + + + 2.1825cm + + + 2.10313cm + + + 1.97083cm + + + 1.99729cm + + + 2.23542cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + Textbox16 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Anticipos + + + + + + + Textbox30 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + NC X Aplicar + + + + + + + Textbox33 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + Egresos X Comprobar + + + + + + + Textbox36 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Razon Social + + + + + + + Textbox18 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox6 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Aplicado + + + + + + + Textbox13 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox15 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox17 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Aplicado + + + + + + + Textbox19 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox21 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox23 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Aplicado + + + + + + + Textbox25 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox27 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + + + true + true + + + + + = IIF(Fields!RazonSocial.Value = "" ,IIF(CInt(Fields!CveMoneda.Value) = 1,"Total Pesos",IIF(CInt(Fields!CveMoneda.Value) = 2 ,"Total Dolares","Total Euros")),Fields!RazonSocial.Value) + + + + + + + RazonSocial1 + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!OriginalAnticipos.Value + + + + + + + OriginalAnticipos + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AplicadoAnticipos.Value + + + + + + + AplicadoAnticipos + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TotalAnticipos.Value + + + + + + + TotalAnticipos + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!OriginalNC.Value + + + + + + + OriginalNC + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AplicadoNC.Value + + + + + + + AplicadoNC + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TotalNC.Value + + + + + + + TotalNC + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!OriginalEXC.Value + + + + + + + OriginalEXC + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!AplicadoEXC.Value + + + + + + + AplicadoEXC + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TotalEXC.Value + + + + + + + TotalEXC + + + =IIF(Fields!RazonSocial.Value = "","LightSteelBlue","No Color" ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + After + + + + + + + DataSet1 + 0.82931cm + 0.06614cm + 1.66771cm + 25.6461cm + 1 + + + + + + 1.10617in + + + + + + + Textbox1 + 4.97857cm + 0.6cm + 14.68354cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Reporte de Anticipos - NCXAplicar - EXC Detalle + + + + + + + + + + + + + + + + Textbox2 + 0.63528cm + 4.94329cm + 0.52945cm + 14.68354cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.68085cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 23.64637cm + 0.68085cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, "Usuario: ", "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, Parameters!UsuarioImprimio.Value, "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, "Fecha Impresión: ", "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, Parameters!FechaImpresion.Value, "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21cm + 29.7cm + 1cm + 1cm + 0.5cm + 0.5cm + 0.13cm + + + + + + + Textbox1 + 0.07056cm + 0.08721cm + 0.58236cm + 19.58715cm + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.87888cm + + + 4.00748cm + + + 1.82225cm + + + 1.65333cm + + + 2.5cm + + + 2.5cm + + + 2.04545cm + + + 1.38875cm + + + 1.81208cm + + + + + 0.52062cm + + + + + true + true + + + + + + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Proveedor/Folio + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dias + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Aplicado + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Costo + + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.57354cm + + + + + true + true + + + + + =Fields!TipoColumna.Value + + + + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( Fields!TipoRow.Value = 3 AND Fields!CveProveedor.Value > 0 , Fields!RazonSocial.Value, + IIF(Fields!TipoRow.Value = 2 AND Fields!Tipo.Value > 0,(IIF(Fields!Tipo.Value= 1,"Anticipos",IIF(Fields!Tipo.Value= 2,"NC X Aplicar", IIF(Fields!Tipo.Value= 3,"Egresos X Comprobar",Fields!SerieFolio.Value)))) + ,Fields!SerieFolio.Value) +) + + + + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Dias.Value + + + + + + + Dias + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubTotal.Value + + + + + + + SubTotal + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAmortizacion.Value + + + + + + + ImporteAmortizacion + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Costo.Value + + + + + + + Costo + + + =IIF( Fields!TipoRow.Value = 1,"LightGrey", + IIF(Fields!TipoRow.Value = 2 ,"Gray", + IIF(Fields!TipoRow.Value = 3,"CornflowerBlue", + IIF(Fields!TipoRow.Value = 4 ,"Silver","Silver") + ) + ) + ) + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.82931cm + 0.06614cm + 1.09416cm + 19.60822cm + 1 + + + + + + 1.00033in + + + + + + + Textbox1 + 2.43857cm + 0.6cm + 14.68354cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Reporte de Anticipos - NCXAplicar - EXC Detalle + + + + + + + + + + + + + + + + Textbox2 + 0.63528cm + 2.40329cm + 0.52945cm + 14.68354cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 1.08126cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.40041cm + 16.97887cm + 0.68085cm + 2.06587cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, "Usuario: ", "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, Parameters!UsuarioImprimio.Value, "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, "Fecha Impresión: ", "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Globals.PageNumber = Globals.TotalPages, Parameters!FechaImpresion.Value, "") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + - 24.28817cm + 24.92317cm + true @@ -1439,6 +1440,10 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad Moneda System.String + + Abreviatura + System.String + Saldo System.Double From 2f1f9d08d2c27c6c4792e8a16d35ad2ea4c075ab Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Sep 2022 09:38:31 -0700 Subject: [PATCH 14/21] -- cta mon extranjera --- Bancos/ProveedoresAbonar.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index acb22ef22..442153439 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -851,7 +851,8 @@ Partial Class Bancos_ProveedoresAbonar CompraActual.EsImportacion = gvr.DataKey("EsImportacion") = "1" CompraActual.UsuarioActual = UsuarioActual CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero - CompraActual.IdCtaContableProv = CtaProveedor + CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda >= 2, IdCtaContMonedaExtranjera, CtaProveedor) + CompraActual.IdCtaContableProvComplementaria = IdCtaContComplementaria 'Importe de pago Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal From cd075ebdf027f79f3d3e61222d9ed72a772c8e40 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Sep 2022 10:30:06 -0700 Subject: [PATCH 15/21] -- TC en pago de compra --- App_Code/ClsPaginas.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a82d80cbb..c7f0c0d2d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9649,7 +9649,7 @@ Public Class ClsPaginas ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True End If @@ -9662,12 +9662,12 @@ Public Class ClsPaginas If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetIVA - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True End If @@ -9682,12 +9682,12 @@ Public Class ClsPaginas End If Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetISR - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR) Then ErrorMovtos = True 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR) Then ErrorMovtos = True End If @@ -9705,12 +9705,12 @@ Public Class ClsPaginas End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 25, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 25, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True End If From 469ad59bc2e3a6931ea44105dac84a6807c16ce9 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Sep 2022 10:31:16 -0700 Subject: [PATCH 16/21] personalizar PU Promedio --- Contabilidad2/RepSituacionFinanciera.aspx | 2 +- Inventarios/RepEntradasSalidas.aspx | 24 +- Inventarios/RepEntradasSalidas.aspx.vb | 423 +++++++++++----------- 3 files changed, 211 insertions(+), 238 deletions(-) diff --git a/Contabilidad2/RepSituacionFinanciera.aspx b/Contabilidad2/RepSituacionFinanciera.aspx index 448192f6a..658c61e07 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx +++ b/Contabilidad2/RepSituacionFinanciera.aspx @@ -57,7 +57,7 @@
    - +
    diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx index 3c5fd4a1c..fa4219179 100644 --- a/Inventarios/RepEntradasSalidas.aspx +++ b/Inventarios/RepEntradasSalidas.aspx @@ -14,9 +14,9 @@
  • Personalizar Columnas
    • -
  • + <%--
  • Generar Inventarios HP -
    • + --%>