@@ -475,15 +475,18 @@
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/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 442153439..e6d65eee3 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1862,6 +1862,8 @@ Partial Class Bancos_ProveedoresAbonar
Dim MsgError As String = ""
Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
+ Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
+
For Each gr As GridViewRow In GvCxP.Rows
If gr.FCCheckBox("Chk").Checked Then
Dim IdCtaContable As Integer = CtaProveedor
@@ -1894,19 +1896,19 @@ Partial Class Bancos_ProveedoresAbonar
If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then
IdCtaContable = IdCtaContComplementaria
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
MsgError = "No se pudo insertar la póliza"
End If
IdCtaContable = IdCtaProveedorExtranjera
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Saldo, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Saldo, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
Else
If CveMoneda > 1 Then
IdCtaContable = IdCtaProveedorExtranjera
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCCompra), ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCCompra), ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
End If
@@ -1925,7 +1927,7 @@ Partial Class Bancos_ProveedoresAbonar
Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, gr.DataKey("SerieFolio").ToString, 14, ConceptoPartida, Now, IdCtaContable:=IdCtaIVAXAcreditar, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IVA, IVA * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra)), PorcentajeImpuesto:=PorcentajeImpuesto) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, gr.DataKey("SerieFolio").ToString, 14, ConceptoPartida, Now, IdCtaContable:=IdCtaIVAXAcreditar, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IVA, IVA * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra)), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
@@ -1942,7 +1944,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, gr.DataKey("SerieFolio").ToString, 25, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IEPS, IEPS * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra))) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, gr.DataKey("SerieFolio").ToString, 25, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IEPS, IEPS * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra)), Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
@@ -1955,7 +1957,7 @@ Partial Class Bancos_ProveedoresAbonar
If Saldo < 0 Then
tcvecon = 211
End If
- If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, gr.DataKey("SerieFolio").ToString, tcvecon, ConceptoPartida, Now, IdCtaContable:=UsuarioActual.Empresa.IdCuentaOtrosIngresos, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCPago), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+ If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, gr.DataKey("SerieFolio").ToString, tcvecon, ConceptoPartida, Now, IdCtaContable:=UsuarioActual.Empresa.IdCuentaOtrosIngresos, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCPago), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
End If
@@ -1971,11 +1973,11 @@ Partial Class Bancos_ProveedoresAbonar
End If
If TCCompra > TCPago Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
Else
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If
End If
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 383c5a74a..21057b1ce 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -195,10 +195,14 @@ Partial Class Bancos_RepEgresosSinComprobante
Next
End Sub
- Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
+ Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
+
Dim ObjConta As New ClsContabilidad
Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
+
+ Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
+
Dim CvePrePoliza As Integer = 0
Dim MsgError As String = ""
Try
@@ -235,13 +239,13 @@ Partial Class Bancos_RepEgresosSinComprobante
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1,
gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
- ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then
+ ImporteMX:=gr.DataKey("Saldo").ToDecimal, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
- ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
+ ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
End If
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index e64ab4230..48968f247 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4090,6 +4090,10 @@ Partial Class Compras_Compras
'------------------ INICIA VALIDACIONES ------------------
+ If Not ValidaSeleccionAnticipo() Then
+ Alert("El proveedor tiene anticipos sin aplicar, favor de especiar uno.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
Dim TotalRealDevolucion As Decimal = 0
@@ -20563,8 +20567,40 @@ Partial Class Compras_Compras
End Sub
+
+ Private Function ValidaSeleccionAnticipo() As Boolean
+
+ Dim Respuesta As Boolean
+
+ If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+ If GVAnticipos.Rows.Count > 0 Then
+
+ For Each GVRow As GridViewRow In GVAnticipos.Rows
+ If GVRow.FCCheckBox("Chk").Checked AndAlso GVRow.FCTextBox("TxtAnticipo").Text.ToDecimal > 0 Then
+ Respuesta = True
+ Exit For
+ Else
+ Respuesta = False
+ End If
+ Next
+
+ Else
+ Respuesta = True
+ End If
+
+ Else
+ Respuesta = True
+ End If
+
+ Return Respuesta
+
+ End Function
+
End Class
+
+
+
Public Class MMensajeDevolucion
Public Property CveMovimiento As Integer
Public Property TieneError As Boolean
diff --git a/Compras/RepAnt-NC-EXCDetalle.aspx b/Compras/RepAnt-NC-EXCDetalle.aspx
index 7b6df6250..a28303a5e 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..86452b3ce 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--%>
@@ -332,7 +334,7 @@
<%--7--%>
- Total
+ Importe Docto
@@ -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/15/Formatos/Factura.rdlc b/Empresas/15/Formatos/Factura.rdlc
index 82cab18f5..15b8dc996 100644
--- a/Empresas/15/Formatos/Factura.rdlc
+++ b/Empresas/15/Formatos/Factura.rdlc
@@ -1388,7 +1388,7 @@
true
- 22.18718cm
+ 22.50468cm
0.0208cm
2.10099cm
20.06179cm
@@ -2861,7 +2861,7 @@
DsOC
- 5.47765cm
+ 5.79515cm
0.11516cm
2.29418cm
19.94648cm
@@ -3286,7 +3286,7 @@
true
- 14.78471cm
+ 15.10221cm
0.04257cm
3.74574cm
20.109cm
@@ -4352,7 +4352,7 @@
true
- 7.94557cm
+ 8.26307cm
0.11516cm
6.80033cm
20.03641cm
@@ -4403,7 +4403,7 @@
Textbox8
- 20.99452cm
+ 21.31202cm
0.07003cm
1.01627cm
9.87342cm
@@ -4864,7 +4864,7 @@
true
- 18.54456cm
+ 18.86206cm
0.00547cm
2.25247cm
20.1554cm
@@ -4898,7 +4898,7 @@
Textbox19
1.13294in
0.12202cm
- 0.22222in
+ 0.34722in
1.06031in
16
- 24.28817cm
+ 24.92317cm