Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git
This commit is contained in:
Antonio Gonzalez
@@ -2514,16 +2514,18 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
|
||||
|
||||
If Dep.DtResultados.Rows.Count > 0 Then
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'")
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados '.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'")
|
||||
Else
|
||||
Alert("El proveedor no tiene cuentas deposito registradas.")
|
||||
End If
|
||||
|
||||
If Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'").Rows.Count > 0 Then
|
||||
trCuentaDeposito.Visible = True
|
||||
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
|
||||
Else
|
||||
BtnIEGuardar.Enabled = False
|
||||
Alert("El proveedor no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
'If Dep.DtResultados.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND Estatus ='True'").Rows.Count > 0 Then
|
||||
' trCuentaDeposito.Visible = True
|
||||
' DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
|
||||
'Else
|
||||
' BtnIEGuardar.Enabled = False
|
||||
' Alert("El proveedor no tiene ninguna cuenta deposito registrada ", TipoMensaje.MsgAdvertencia)
|
||||
'End If
|
||||
|
||||
Else
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
|
||||
|
||||
@@ -558,7 +558,7 @@
|
||||
<asp:UpdatePanel ID="UpDatosAnualH" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvIngresosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<asp:GridView ID="GvIngresosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvIngresosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
@@ -597,6 +597,32 @@
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
|
||||
<%-- <asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" DataNavigateUrlFields="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto" DataNavigateUrlFormatString="/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" Target="_blank" />--%>
|
||||
|
||||
|
||||
<%--<asp:TemplateField HeaderText="Período Actual">
|
||||
<ItemTemplate>
|
||||
@@ -617,7 +643,7 @@
|
||||
</asp:GridView>
|
||||
<br />
|
||||
<br />
|
||||
<asp:GridView ID="GvGastosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<asp:GridView ID="GvGastosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvGastosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField>
|
||||
@@ -631,7 +657,7 @@
|
||||
<HeaderStyle HorizontalAlign="Left" Width="400px" />
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
@@ -678,7 +704,7 @@
|
||||
</asp:GridView>
|
||||
<br />
|
||||
<br />
|
||||
<asp:GridView ID="GvTotalesAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvTotalesAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<asp:GridView ID="GvTotalesAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvTotalesAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField>
|
||||
@@ -692,6 +718,8 @@
|
||||
<ItemStyle HorizontalAlign="Left" Width="400px" />
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
|
||||
@@ -771,7 +799,7 @@
|
||||
<asp:UpdatePanel ID="UpDatosSubProyectoH" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true"
|
||||
<asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true"
|
||||
CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"
|
||||
Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
@@ -842,7 +870,7 @@
|
||||
</asp:GridView>
|
||||
<br />
|
||||
<br />
|
||||
<asp:GridView ID="GvGastosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvGastosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<asp:GridView ID="GvGastosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvGastosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField>
|
||||
@@ -913,7 +941,7 @@
|
||||
</asp:GridView>
|
||||
<br />
|
||||
<br />
|
||||
<asp:GridView ID="GvTotalesSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvTotalesSubProyectoH_RowDataBound" ShowHeader="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<asp:GridView ID="GvTotalesSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvTotalesSubProyectoH_RowDataBound" ShowHeader="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField>
|
||||
|
||||
@@ -740,19 +740,33 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
e.Row.ControlStyle.Font.Bold = True
|
||||
End If
|
||||
|
||||
'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
'End If
|
||||
|
||||
'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
|
||||
'End If
|
||||
|
||||
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
|
||||
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
|
||||
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
|
||||
e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
|
||||
|
||||
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
End If
|
||||
|
||||
'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
|
||||
'End If
|
||||
|
||||
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
|
||||
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
@@ -766,17 +780,29 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
|
||||
'e.Row.CssClass = "SubTotales"
|
||||
e.Row.ControlStyle.Font.Bold = True
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
|
||||
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
|
||||
|
||||
e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
|
||||
|
||||
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
|
||||
End If
|
||||
|
||||
'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
'End If
|
||||
|
||||
'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
|
||||
'End If
|
||||
|
||||
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
|
||||
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
@@ -822,7 +848,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
|
||||
If DtDatosAnualH IsNot Nothing Then
|
||||
CargaGridsAnualH()
|
||||
SumaTotalesAnualH()
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -855,12 +881,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
|
||||
CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
|
||||
CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
|
||||
GvIngresosAnualH.Columns(IndexGv).Visible = True
|
||||
|
||||
|
||||
'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
|
||||
'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
|
||||
GvIngresosAnualH.Columns(IndexGv).Visible = True
|
||||
|
||||
|
||||
CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
|
||||
CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
|
||||
'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
|
||||
'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
|
||||
GvTotalesAnualH.Columns(IndexGv).Visible = True
|
||||
|
||||
IndexMax = IndexData
|
||||
@@ -925,9 +956,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
If IndexData >= 13 Then
|
||||
|
||||
If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
|
||||
'HyperLinkField
|
||||
|
||||
CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
|
||||
CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
|
||||
'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"}
|
||||
'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}"
|
||||
|
||||
'CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
|
||||
'CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
|
||||
|
||||
GvGastosAnualH.Columns(IndexGv).Visible = True
|
||||
IndexMax = IndexData
|
||||
Else
|
||||
@@ -944,14 +982,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
Next
|
||||
|
||||
|
||||
For Each dr As DataRow In DtGastosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
|
||||
For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows
|
||||
TotalActual += dr("ImporteActual").ToString.ToDouble
|
||||
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
|
||||
Next
|
||||
|
||||
IndexData = 13
|
||||
For IndexData = 13 To IndexMax
|
||||
Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
|
||||
Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
|
||||
Next
|
||||
|
||||
Row.Item("Nombre") = "TOTAL GASTOS"
|
||||
@@ -973,28 +1011,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
|
||||
Row = DTTotalesAnualH.NewRow
|
||||
|
||||
'Row.Item("Enero") = DtIngresosAnualH.SUM("Enero", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Enero", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Febrero") = DtIngresosAnualH.SUM("Febrero", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Febrero", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Marzo") = DtIngresosAnualH.SUM("Marzo", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Marzo", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Abril") = DtIngresosAnualH.SUM("Abril", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Abril", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Mayo") = DtIngresosAnualH.SUM("Mayo", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Mayo", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Junio") = DtIngresosAnualH.SUM("Junio", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Junio", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Julio") = DtIngresosAnualH.SUM("Julio", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Julio", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Agosto") = DtIngresosAnualH.SUM("Agosto", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Agosto", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Septiembre") = DtIngresosAnualH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Octubre") = DtIngresosAnualH.SUM("Octubre", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Octubre", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Noviembre") = DtIngresosAnualH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
|
||||
'Row.Item("Diciembre") = DtIngresosAnualH.SUM("Diciembre", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
|
||||
|
||||
IndexData = 13
|
||||
For IndexData = 13 To IndexMax
|
||||
Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
|
||||
Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
|
||||
Next
|
||||
|
||||
Row.Item("Nombre") = "Resultados del Ejercicio:"
|
||||
Row.Item("Nombre") = "Resultados del Ejercicio"
|
||||
'Row.Item("ImporteActual") = TotalActual.ToString
|
||||
'Row.Item("PorcentajeActual") = "100.00"
|
||||
Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
|
||||
Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)")
|
||||
'Row.Item("PorcentajeAcumulado") = "100.00"
|
||||
'Row.Item("CtaMayor") = -1
|
||||
|
||||
@@ -1015,21 +1041,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SumaTotalesAnualH()
|
||||
''Llena Lb´s Totales
|
||||
''*********************************************************************************
|
||||
'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
|
||||
'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
|
||||
|
||||
'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
|
||||
'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
|
||||
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
|
||||
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
|
||||
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
|
||||
@@ -1041,14 +1059,25 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
e.Row.ControlStyle.Font.Bold = True
|
||||
End If
|
||||
|
||||
'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
'End If
|
||||
|
||||
'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
|
||||
'End If
|
||||
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
|
||||
Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
|
||||
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
|
||||
|
||||
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
|
||||
Dim IndiceInicio As Integer = 1
|
||||
Dim IndiceMax As Integer = 1 + CountDinamico
|
||||
For IndiceInicio = 1 To IndiceMax
|
||||
Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
|
||||
Dim Importe As String = e.Row.Cells(IndiceInicio).Text
|
||||
e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
|
||||
Next IndiceInicio
|
||||
|
||||
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
|
||||
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
|
||||
@@ -1069,14 +1098,22 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
e.Row.ControlStyle.Font.Bold = True
|
||||
End If
|
||||
|
||||
'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
'End If
|
||||
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
|
||||
Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
|
||||
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
|
||||
'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
|
||||
'End If
|
||||
|
||||
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
|
||||
Dim IndiceInicio As Integer = 1
|
||||
Dim IndiceMax As Integer = 1 + CountDinamico
|
||||
For IndiceInicio = 1 To IndiceMax
|
||||
Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
|
||||
Dim Importe As String = e.Row.Cells(IndiceInicio).Text
|
||||
e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{Importe}</a>"
|
||||
Next IndiceInicio
|
||||
|
||||
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
|
||||
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
|
||||
@@ -1339,14 +1376,31 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
e.Row.ControlStyle.Font.Size = 13
|
||||
End If
|
||||
|
||||
'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
|
||||
'End If
|
||||
|
||||
'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
|
||||
' e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
|
||||
'End If
|
||||
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
|
||||
'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
|
||||
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
|
||||
|
||||
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
|
||||
Dim IndiceInicio As Integer = 1
|
||||
Dim IndiceMax As Integer = 1 + CountDinamico
|
||||
|
||||
Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth
|
||||
|
||||
For IndiceInicio = 1 To IndiceMax
|
||||
|
||||
Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
|
||||
Dim Importe As String = e.Row.Cells(IndiceInicio).Text
|
||||
|
||||
|
||||
|
||||
e.Row.Cells(IndiceInicio).Text = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{Importe}</a>"
|
||||
Next IndiceInicio
|
||||
|
||||
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={-1}"
|
||||
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
|
||||
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
|
||||
|
||||
@@ -1550,28 +1550,53 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Else
|
||||
Dim CveMovimientoDetalleSalida As Integer = 0
|
||||
Dim importe As Double = 0
|
||||
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
|
||||
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
|
||||
CveMovimientoDetalleSalida = Dr("CveMovimientoDetalle").ToString.ToEntero
|
||||
Dim Cantidad As Double = Dr("Cantidad").ToString.ToDouble
|
||||
Dim PrecioUnitario As Double = Dr("PU").ToString.ToDouble
|
||||
If CveMovimientoDetalleSalida <= 0 Then
|
||||
ErrorMovInv = True
|
||||
TextoError = "Ocurrió un error al guardar los movimientos de salida"
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PrecioUnitario, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
|
||||
ErrorMovInv = True
|
||||
TextoError = "Ocurrió un error al guardar los movimientos de entrada"
|
||||
Exit For
|
||||
For Each GvRow As GridViewRow In GvDatosRecepcion.Rows
|
||||
If GvRow.RowType = DataControlRowType.DataRow Then
|
||||
Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
|
||||
'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR
|
||||
If CvePS > 0 Then
|
||||
CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToString.ToEntero
|
||||
Dim Cantidad As Double = GvRow.DataKey("Cantidad").ToString.ToDouble
|
||||
Dim PrecioUnitario As Double = GvRow.DataKey("PU").ToString.ToDouble
|
||||
If CveMovimientoDetalleSalida <= 0 Then
|
||||
ErrorMovInv = True
|
||||
TextoError = "Ocurrió un error al guardar los movimientos de salida"
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, GvRow.DataKey("CveAF").ToEntero, -1, GvRow.DataKey("SerieLote").ToString, Lote:=GvRow.DataKey("Lote"), Batch:=GvRow.DataKey("Batch"), CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
|
||||
ErrorMovInv = True
|
||||
TextoError = "Ocurrió un error al guardar los movimientos de entrada"
|
||||
Exit For
|
||||
End If
|
||||
importe += Cantidad * PrecioUnitario
|
||||
End If
|
||||
importe += Cantidad * PrecioUnitario
|
||||
Next
|
||||
Else
|
||||
ErrorMovInv = True
|
||||
TextoError = "Ocurrió un error al obtener los movimientos de salida"
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
'If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
|
||||
' For Each Dr As DataRow In ObjInventario.DtResultados.Rows
|
||||
' CveMovimientoDetalleSalida = Dr("CveMovimientoDetalle").ToString.ToEntero
|
||||
' Dim Cantidad As Double = Dr("Cantidad").ToString.ToDouble
|
||||
' Dim PrecioUnitario As Double = Dr("PU").ToString.ToDouble
|
||||
' If CveMovimientoDetalleSalida <= 0 Then
|
||||
' ErrorMovInv = True
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos de salida"
|
||||
' Exit For
|
||||
' End If
|
||||
|
||||
' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PrecioUnitario, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
|
||||
' ErrorMovInv = True
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos de entrada"
|
||||
' Exit For
|
||||
' End If
|
||||
' importe += Cantidad * PrecioUnitario
|
||||
' Next
|
||||
'Else
|
||||
' ErrorMovInv = True
|
||||
' TextoError = "Ocurrió un error al obtener los movimientos de salida"
|
||||
'End If
|
||||
|
||||
If Not ErrorMovInv Then
|
||||
Dim ImporteDecimal As Decimal = importe.ToDecimal.RoundSQL
|
||||
|
||||
@@ -269,6 +269,9 @@
|
||||
function Ir(v) {
|
||||
gotourl('/Ventas/Ventas.aspx?CveVenta=' + v);
|
||||
}
|
||||
function IrPV(v) {
|
||||
gotourl('/Ventas/PV.aspx?CveVenta=' + v);
|
||||
}
|
||||
Sys.Application.add_load(function (s, e) {
|
||||
|
||||
});
|
||||
|
||||
@@ -159,6 +159,10 @@ Partial Class PopUpBuscarFolio
|
||||
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
|
||||
|
||||
Dim Liga As String = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveVenta"))
|
||||
If UsuarioActual.CveEmpresa = 140 AndAlso e.Row.DBCampo("TipoDocto").Contiene("Rem") Then
|
||||
Liga = String.Format("<a class='Texto' href='javascript:IrPV(""{0}"");'>", e.Row.DBCampo("CveVenta"))
|
||||
End If
|
||||
|
||||
e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:27px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
|
||||
e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
|
||||
e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString)
|
||||
|
||||
@@ -133,8 +133,8 @@
|
||||
<div class="col-md-4">
|
||||
<asp:DropDownList ID="DdlTipoAplicacion" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="350px">
|
||||
<asp:ListItem Value ="-1">Seleccione</asp:ListItem>
|
||||
<asp:ListItem Value ="Descuento">Descuento</asp:ListItem>
|
||||
<asp:ListItem Value ="PU">PU</asp:ListItem>
|
||||
<asp:ListItem Value ="1">Descuento</asp:ListItem>
|
||||
<asp:ListItem Value ="2">PU</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -192,6 +192,7 @@ Partial Class Ventas_Promociones
|
||||
ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False)
|
||||
DdlMoneda.SelectedValueExist(Dr("CveMoneda").ToString)
|
||||
DdlMarca.SelectedValueExist(Dr("CveMarca").ToString)
|
||||
DdlTipoAplicacion.SelectedValueExist(Dr("TipoAplicacion").ToString)
|
||||
|
||||
If ObjVentas.GetPromocionesDetalle(CvePromocion, UsuarioActual.CveEmpresa) Then
|
||||
TempDT = ObjVentas.DtResultados
|
||||
|
||||
@@ -14315,6 +14315,8 @@ Partial Class Ventas
|
||||
Dim TipoPromo As Integer = 0
|
||||
Dim TotalPromocion As Decimal = 0
|
||||
Dim PromocionPorcentaje As Decimal = 0
|
||||
Dim PUModificado As Decimal = 0
|
||||
Dim SeAjustoPU As Boolean = False
|
||||
Dim PUPromocion As Decimal = 0
|
||||
Dim CantMinima As Integer = 0
|
||||
Dim CveMarcaPS As Integer = 0
|
||||
@@ -14322,6 +14324,7 @@ Partial Class Ventas
|
||||
Dim CveRinTamañoPS As Integer = 0
|
||||
Dim CvePromocionDetalle As Integer = 0
|
||||
Dim IncluyeImpuestos As Boolean = False
|
||||
Dim TipoAplicacion As Integer = 1 ' 1 - descuento, 2 en PU
|
||||
Dim ObjDescuento As New Descuentos
|
||||
|
||||
Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
|
||||
@@ -14356,6 +14359,7 @@ Partial Class Ventas
|
||||
PromocionPorcentaje = dr("Promocion").ToString.ToDecimal
|
||||
PUPromocion = dr("PUPromocion").ToString.ToDecimal
|
||||
CvePromocionDetalle = dr("CvePromocionDetalle").ToString.ToEntero
|
||||
TipoAplicacion = dr("TipoAplicacion").ToString.ToEntero
|
||||
|
||||
If CantMinima > 0 Then
|
||||
Cant = Math.Floor(TxtCantidad.Text.ToDecimal / CantMinima).ToEntero
|
||||
@@ -14363,11 +14367,17 @@ Partial Class Ventas
|
||||
|
||||
End If
|
||||
|
||||
TotalPromocion = Math.Round(PUPromocion * Cant / (1 + If(IncluyeImpuestos, PorcentajeIVA, 1)), 6)
|
||||
|
||||
TotalPromocion = Math.Round(PUPromocion * Cant / (1 + If(IncluyeImpuestos, PorcentajeIVA, 0)), 6)
|
||||
|
||||
If TipoPromo = 1 Then 'Promocion por Importe $
|
||||
Descuento = Descuento + TotalPromocion
|
||||
If TipoAplicacion = 2 Then
|
||||
Descuento = 0
|
||||
SeAjustoPU = True
|
||||
PUModificado = PUPromocion
|
||||
Else
|
||||
Descuento = Descuento + PU - TotalPromocion
|
||||
End If
|
||||
|
||||
ElseIf TipoPromo = 2 Then 'Promocion por %
|
||||
Descuento = Descuento + ((PU * PromocionPorcentaje / 100) * Cantidad)
|
||||
ElseIf TipoPromo = 3 Then 'Promocion por Cantidad
|
||||
@@ -14426,6 +14436,10 @@ Partial Class Ventas
|
||||
|
||||
ObjDescuento.ImporteDescuento = Descuento
|
||||
ObjDescuento.CvePromocionDetalle = CvePromocionDetalle
|
||||
If SeAjustoPU Then
|
||||
ObjDescuento.PU = PUModificado
|
||||
ObjDescuento.EsPUModificado = True
|
||||
End If
|
||||
|
||||
Return ObjDescuento
|
||||
End Function
|
||||
@@ -14449,6 +14463,9 @@ Partial Class Ventas
|
||||
Dim Cantidad As Decimal = TxtCantidad.Text.ToDecimal
|
||||
Dim PU As Decimal = If(CvePSAmortizacion > 0, TxtPrecio.Text.Trim.ToDecimal * -1, TxtPrecio.Text.Trim.ToDecimal)
|
||||
Dim ObjDescuento As Descuentos = CalcularDescuentos(CvePS, Cantidad, PU)
|
||||
If ObjDescuento.EsPUModificado Then
|
||||
PU = ObjDescuento.PU
|
||||
End If
|
||||
|
||||
AgregarProductoServicio(Cantidad, DdlUnidadMedida.SelectedValue.ToEntero, DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text,
|
||||
CvePS, "", TxtObsPS.Text.Trim, PU, ObjDescuento.ImporteDescuento,
|
||||
@@ -25264,5 +25281,7 @@ Partial Class Ventas
|
||||
Partial Class Descuentos
|
||||
Public ImporteDescuento As Decimal = 0
|
||||
Public CvePromocionDetalle As Integer = -1
|
||||
Public PU As Decimal = 0
|
||||
Public EsPUModificado As Boolean = False
|
||||
End Class
|
||||
End Class
|
||||
Reference in New Issue
Block a user