Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsMovimientos.vb

@@ -248,7 +248,8 @@ Public Class ClsMovimientos
                            Gpo As Integer, CveResponsable As Integer,
                            TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
                            Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
-                           Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1, Optional CveMoneda As Integer = -1) As Boolean
+                           Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1, Optional CveMoneda As Integer = -1,
+                           Optional TieneLineaAdicional As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         'Data = New DataTable
@@ -283,6 +284,7 @@ Public Class ClsMovimientos
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+            .Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional
         End With
 
         Try
@@ -333,7 +335,7 @@ Public Class ClsMovimientos
                                   CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
                                   Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
                                   Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1,
-                                  Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean
+                                  Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1, Optional TieneLineaAdicional As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DS = New DataSet
@@ -376,6 +378,7 @@ Public Class ClsMovimientos
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
             .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
+            .Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional
         End With
 
         Try

App_Code/ClsVentas.vb

@@ -400,7 +400,7 @@ Public Class ClsVentas
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
                              Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
                              Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1",
-                             Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False) As Boolean
+                             Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -499,7 +499,7 @@ Public Class ClsVentas
 
             .Add("@DevolucionImportePagado", SqlDbType.Money).Value = DevolucionImportePagado
             .Add("@EsGarantia", SqlDbType.Bit).Value = EsGarantia
-
+            .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
         'SqlTypes.SqlDateTime.Null
@@ -5603,6 +5603,50 @@ Public Class ClsVentas
 
     End Function
 
+    Public Function GetLineasAdicionalesSaldo(CveLineaAdicional As Integer, CveCliente As Integer, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Optional ConSaldo As Integer = -1) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_LineasAdicionalesSaldoGet")
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@ConSaldo", SqlDbType.Int).Value = ConSaldo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error obtener las lineas de adicionales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+
+    End Function
+
+    Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_LineasAdicionalesVentaUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error actualizar la linea adicional.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
     Public Function AddLineasAdicionales(LineaAdicional As String, CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, Importe As Decimal,
                                          CveMoneda As Integer, FechaVencimiento As Date, CveUsuario As Integer, CveClasificacionPS As Integer, CveEstatus As Integer) As Boolean
 

Contabilidad2/RepAnexoCatalogoAnual.aspx

@@ -56,16 +56,16 @@
                             <ul class="list-inline" style="font-size: 12px;">
                                 <li>Ejercicio Inicio:              
                                    
-                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
                                 <li>Ejercicio Fin:              
                                    
-                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
                                 <li>
                                     <label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
 
-                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server"  CssClass="select2me">
                                         <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
@@ -83,7 +83,7 @@
                                 </li>
                                 <li>SubProyecto:              
                                    
-                                    <asp:DropDownList ID="DdlSubProyecto" Width="230px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" Width="180px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
                                 <li>Divisor:              
                                    
@@ -93,6 +93,18 @@
                                         <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
                                     </asp:DropDownList>
                                 </li>
+                                 <li>Cuenta:
+                                </li>
+                                <li>
+                                    <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
+                                </li>
+
                             </ul>
                         </div>
                     </div>

Contabilidad2/RepAnexoCatalogoAnual.aspx.vb

@@ -139,7 +139,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
 
             DdlPeriodo.SelectedValueExist(Periodo)
 
-            CargaDatos()
+            If CveCuenta > 0 Then
+                DdlCuentas.SelectedValueExist(CveCuenta)
+                CargaDatos()
+            End If
 
         End If
     End Sub
@@ -159,8 +162,20 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
             DdlEjercicio.DataSource = Nothing
             DdlEjercicio2.DataSource = Nothing
         End If
+
+        Dim strGlobal As String = ""
+
+        If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+            DdlCuentas.DataSource = Conta.DtResultados
+        End If
+
+
         Conta.Dispose()
 
+        DdlCuentas.DataBind()
+
         DdlEjercicio.DataBind()
         DdlEjercicio2.DataBind()
 
@@ -181,8 +196,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
     Private Sub CargaDatos()
 
 
-        If CveCuenta <= -1 Then
+        If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
-            Alert("No hay una cuenta expecificada.", TipoMensaje.MsgAdvertencia)
+            Alert("Debe de seleccionar una cuenta.")
             Exit Sub
         End If
 

Contabilidad2/RepAnexoCatalogoCC.aspx

@@ -88,6 +88,20 @@
                                         <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
                                     </asp:DropDownList>
                                 </li>
+
+                                    <li>Cuenta:
+                            </li>
+                            <li>
+                                <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
+                            </li>
+
+
                             </ul>
                         </div>
                     </div>

Contabilidad2/RepAnexoCatalogoCC.aspx.vb

@@ -108,7 +108,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
             DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
             DdlPeriodo.SelectedValueExist(Periodo)
 
-            CargaDatos()
+
+            If CveCuenta > 0 Then
+                DdlCuentas.SelectedValueExist(CveCuenta)
+                CargaDatos()
+            End If
+
+
 
         End If
     End Sub
@@ -126,17 +132,37 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
         Else
             DdlEjercicio.DataSource = Nothing
         End If
+
+        Dim strGlobal As String = ""
+
+        If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+            DdlCuentas.DataSource = Conta.DtResultados
+        End If
+
+
         Conta.Dispose()
 
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(Now.Year.ToString)
 
+        DdlCuentas.DataBind()
+
         'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
         'DdlSubProyecto.DataBind()
         'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         'DdlSubProyecto.SelectedValue = "-1"
 
+
+
+
+
     End Sub
+
+
+
+
 #End Region
 
 
@@ -147,6 +173,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
 
     Private Sub CargaDatos()
 
+
+        If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+            Alert("Debe de seleccionar una cuenta.")
+            Exit Sub
+        End If
+
         DTHeaders = New DataTable
         DTDatos = New DataTable
         Dim Conta As New ClsContabilidad

Contabilidad2/RepAnexoCatalogoMensual.aspx

@@ -56,16 +56,17 @@
                             <asp:Button ID="BtnCargaAsignados" runat="server" Text="Consultar" class="btn btn-default" />
                         </div>
                         <div class="titlefiltros caption ">
+
                             <ul class="list-inline" style="font-size: 12px;">
                                 <li>Ejercicio:              
                                    
-                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 250px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 100px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
 
                                 <li>
-                                    <label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
+                                    <label class="col-md-1" style="width: 80px;" runat="server" id="LiPeriodoLbl">Periodo: </label>
 
-                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                    <asp:DropDownList ID="DdlPeriodo" runat="server"   CssClass="select2me">
                                         <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
@@ -83,7 +84,7 @@
                                 </li>
                                 <li>SubProyecto:              
                                    
-                                    <asp:DropDownList ID="DdlSubProyecto" Width="230px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" Width="180px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
                                 <li>Divisor:              
                                    
@@ -102,6 +103,20 @@
                                     </asp:DropDownList>
                                 </li>
 
+                                <li>Cuenta:
+                                </li>
+                                <li>
+                                    <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="true" Width="350px">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
+
+
+                                </li>
+
+
+
                                   
                                 
 

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -72,8 +72,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             DdlPeriodo.SelectedValueExist(Periodo)
             DdlTri.SelectedValueExist(TRCU)
 
+            If CveCuenta > 0 Then
+                DdlCuentas.SelectedValueExist(CveCuenta)
+                CargaDatos()
+            End If
+
+
 
-            CargaDatos()
 
         End If
     End Sub
@@ -85,14 +90,28 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
     End Sub
     Private Sub CargaCombos()
 
+
+
         Dim Conta As New ClsContabilidad
         If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then
             DdlEjercicio.DataSource = Conta.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
         End If
+
+        Dim strGlobal As String = ""
+
+        If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+            DdlCuentas.DataSource = Conta.DtResultados
+        End If
+
+
         Conta.Dispose()
 
+        DdlCuentas.DataBind()
+
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(Now.Year.ToString)
 
@@ -101,6 +120,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
 
+
+
     End Sub
 #End Region
 
@@ -110,9 +131,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         CargaDatos()
     End Sub
     Private Sub CargaDatos()
+
+
+        If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+            Alert("Debe de seleccionar una cuenta.")
+            Exit Sub
+        End If
+
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
+        If Conta.GetAnexoCatalogoMensual(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
             GvMensual2.DataSource = Conta.DtResultados
         Else
             GvMensual2.DataSource = Nothing

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -782,27 +782,66 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
             Next
 
-            Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")
+            Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            Dim Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            Dim Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
+            Dim Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            Dim Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
+            Dim Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
+            Dim Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            Dim Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            Dim Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            Dim Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            Dim Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+            Dim Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")).ToDecimal
 
-            Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")
-            Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")
-            Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")
-            Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")
 
-            Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")
+            Row.Item("Enero") = Enero
-            Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")
+            Row.Item("Febrero") = Febrero
-            Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")
+            Row.Item("Marzo") = Marzo
+            Row.Item("Abril") = Abril
+            Row.Item("Mayo") = Mayo
+            Row.Item("Junio") = Junio
+            Row.Item("Julio") = Julio
+            Row.Item("Agosto") = Agosto
+            Row.Item("Septiembre") = Septiembre
+            Row.Item("Octubre") = Octubre
+            Row.Item("Noviembre") = Noviembre
+            Row.Item("Diciembre") = Diciembre
+            Row.Item("Tri1") = Tri1
+            Row.Item("Tri2") = Tri2
+            Row.Item("Tri3") = Tri3
+            Row.Item("Tri4") = Tri4
+            Row.Item("Cua1") = Cua1
+            Row.Item("Cua2") = Cua2
+            Row.Item("Cua3") = Cua3
+
+            Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / TotalAnterior, 0)
 
 
             Row.Item("Nombre") = "TOTAL INGRESOS"
@@ -835,27 +874,66 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Next
 
 
-            Row.Item("Enero") = DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")
+            Dim Enero As Decimal = (DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Febrero") = DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")
+            Dim Febrero As Decimal = (DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Marzo") = DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")
+            Dim Marzo As Decimal = (DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Abril") = DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")
+            Dim Abril As Decimal = (DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Mayo") = DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")
+            Dim Mayo As Decimal = (DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Junio") = DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")
+            Dim Junio As Decimal = (DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Julio") = DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")
+            Dim Julio As Decimal = (DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Agosto") = DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")
+            Dim Agosto As Decimal = (DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Septiembre") = DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")
+            Dim Septiembre As Decimal = (DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Octubre") = DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")
+            Dim Octubre As Decimal = (DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")
+            Dim Noviembre As Decimal = (DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")).ToDecimal
-            Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")
+            Dim Diciembre As Decimal = (DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Tri1 As Decimal = (DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Tri2 As Decimal = (DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Tri3 As Decimal = (DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Tri4 As Decimal = (DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Cua1 As Decimal = (DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Cua2 As Decimal = (DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")).ToDecimal
+            Dim Cua3 As Decimal = (DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")).ToDecimal
 
-            Row.Item("Tri1") = DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")
+            Row.Item("Enero") = Enero
-            Row.Item("Tri2") = DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")
+            Row.Item("Febrero") = Febrero
-            Row.Item("Tri3") = DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")
+            Row.Item("Marzo") = Marzo
-            Row.Item("Tri4") = DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")
+            Row.Item("Abril") = Abril
+            Row.Item("Mayo") = Mayo
+            Row.Item("Junio") = Junio
+            Row.Item("Julio") = Julio
+            Row.Item("Agosto") = Agosto
+            Row.Item("Septiembre") = Septiembre
+            Row.Item("Octubre") = Octubre
+            Row.Item("Noviembre") = Noviembre
+            Row.Item("Diciembre") = Diciembre
+            Row.Item("Tri1") = Tri1
+            Row.Item("Tri2") = Tri2
+            Row.Item("Tri3") = Tri3
+            Row.Item("Tri4") = Tri4
+            Row.Item("Cua1") = Cua1
+            Row.Item("Cua2") = Cua2
+            Row.Item("Cua3") = Cua3
+
+            Row.Item("PorcentajeEnero") =  If(Enero <> 0, Enero * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeJulio") =  If(Julio <> 0, Julio * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / TotalAnterior, 0)
 
-            Row.Item("Cua1") = DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")
-            Row.Item("Cua2") = DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")
-            Row.Item("Cua3") = DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")
 
             Row.Item("Nombre") = "TOTAL GASTOS"
             Row.Item("ImporteActual") = TotalActual
@@ -876,34 +954,72 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             Row = DTTotalesMesH.NewRow
 
-            Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)")
+            Dim ImporteAcumuladoTotal As Decimal = (DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")
+            Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Enero", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)")
+            Dim Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")
+            Dim Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Marzo", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)")
+            Dim Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")
+            Dim Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Mayo", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)")
+            Dim Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")
+            Dim Julio As Decimal = (DtIngresosMesH.SUM("Julio", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Julio", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)")
+            Dim Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")
+            Dim Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Septiembre", "Not CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)")
+            Dim Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")).ToDecimal
-            Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")
+            Dim Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Noviembre", "Not CtaMayor in (-1,3,4)")).ToDecimal
+            Dim Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")).ToDecimal
+            Dim Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)")).ToDecimal
+            Dim Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)")).ToDecimal
+            Dim Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)")).ToDecimal
+            Dim Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)")).ToDecimal
+            Dim Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)")).ToDecimal
+            Dim Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)")).ToDecimal
+            Dim Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")).ToDecimal
 
-            Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Enero") = Enero
-            Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Febrero") = Febrero
-            Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Marzo") = Marzo
-            Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Abril") = Abril
-
+            Row.Item("Mayo") = Mayo
-            Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Junio") = Junio
-            Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Julio") = Julio
-            Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("Agosto") = Agosto
+            Row.Item("Septiembre") = Septiembre
+            Row.Item("Octubre") = Octubre
+            Row.Item("Noviembre") = Noviembre
+            Row.Item("Diciembre") = Diciembre
+            Row.Item("Tri1") = Tri1
+            Row.Item("Tri2") = Tri2
+            Row.Item("Tri3") = Tri3
+            Row.Item("Tri4") = Tri4
+            Row.Item("Cua1") = Cua1
+            Row.Item("Cua2") = Cua2
+            Row.Item("Cua3") = Cua3
 
             Row.Item("Nombre") = "Resultados del Ejercicio:"
-            'Row.Item("ImporteActual") = TotalActual.ToString
-            'Row.Item("PorcentajeActual") = "100.00"
             Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString
-            'Row.Item("PorcentajeAcumulado") = "100.00"
+
-            'Row.Item("CtaMayor") = -1
+
+
+            Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / ImporteAcumuladoTotal, 0)
+
+            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / ImporteAcumuladoTotal, 0)
 
             DTTotalesMesH.Rows.Add(Row)
 
@@ -921,93 +1037,179 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If DdlTri.SelectedValue.ToEntero = 0 Then 'ocultar trimestre cuatrimestre
 
-            GvIngresosMesH.Columns(4).Visible = False
+            GvIngresosMesH.Columns(7).Visible = False
-            GvIngresosMesH.Columns(9).Visible = False
+            GvIngresosMesH.Columns(8).Visible = False
-            GvIngresosMesH.Columns(14).Visible = False
+            GvIngresosMesH.Columns(11).Visible = False
-            GvIngresosMesH.Columns(18).Visible = False
-
-            GvGastosMesH.Columns(4).Visible = False
-            GvGastosMesH.Columns(9).Visible = False
-            GvGastosMesH.Columns(14).Visible = False
-            GvGastosMesH.Columns(18).Visible = False
-
-            GvTotalesMesH.Columns(4).Visible = False
-            GvTotalesMesH.Columns(9).Visible = False
-            GvTotalesMesH.Columns(14).Visible = False
-            GvTotalesMesH.Columns(18).Visible = False
-
-            GvIngresosMesH.Columns(6).Visible = False
             GvIngresosMesH.Columns(12).Visible = False
-            GvIngresosMesH.Columns(19).Visible = False
+            GvIngresosMesH.Columns(17).Visible = False
+            GvIngresosMesH.Columns(18).Visible = False
+            GvIngresosMesH.Columns(23).Visible = False
+            GvIngresosMesH.Columns(24).Visible = False
+            GvIngresosMesH.Columns(27).Visible = False
+            GvIngresosMesH.Columns(28).Visible = False
+            GvIngresosMesH.Columns(35).Visible = False
+            GvIngresosMesH.Columns(36).Visible = False
+            GvIngresosMesH.Columns(37).Visible = False
+            GvIngresosMesH.Columns(38).Visible = False
 
-            GvGastosMesH.Columns(6).Visible = False
+            GvGastosMesH.Columns(7).Visible = False
+            GvGastosMesH.Columns(8).Visible = False
+            GvGastosMesH.Columns(11).Visible = False
             GvGastosMesH.Columns(12).Visible = False
-            GvGastosMesH.Columns(19).Visible = False
+            GvGastosMesH.Columns(17).Visible = False
+            GvGastosMesH.Columns(18).Visible = False
+            GvGastosMesH.Columns(23).Visible = False
+            GvGastosMesH.Columns(24).Visible = False
+            GvGastosMesH.Columns(27).Visible = False
+            GvGastosMesH.Columns(28).Visible = False
+            GvGastosMesH.Columns(35).Visible = False
+            GvGastosMesH.Columns(36).Visible = False
+            GvGastosMesH.Columns(37).Visible = False
+            GvGastosMesH.Columns(38).Visible = False
 
-            GvTotalesMesH.Columns(6).Visible = False
+
+            GvTotalesMesH.Columns(7).Visible = False
+            GvTotalesMesH.Columns(8).Visible = False
+            GvTotalesMesH.Columns(11).Visible = False
             GvTotalesMesH.Columns(12).Visible = False
-            GvTotalesMesH.Columns(19).Visible = False
+            GvTotalesMesH.Columns(17).Visible = False
+            GvTotalesMesH.Columns(18).Visible = False
+            GvTotalesMesH.Columns(23).Visible = False
+            GvTotalesMesH.Columns(24).Visible = False
+            GvTotalesMesH.Columns(27).Visible = False
+            GvTotalesMesH.Columns(28).Visible = False
+            GvTotalesMesH.Columns(35).Visible = False
+            GvTotalesMesH.Columns(36).Visible = False
+            GvTotalesMesH.Columns(37).Visible = False
+            GvTotalesMesH.Columns(38).Visible = False
+
+            'GvTotalesMesH.Columns(4).Visible = False
+            'GvTotalesMesH.Columns(9).Visible = False
+            'GvTotalesMesH.Columns(14).Visible = False
+            'GvTotalesMesH.Columns(18).Visible = False
+
+            'GvTotalesMesH.Columns(6).Visible = False
+            'GvTotalesMesH.Columns(12).Visible = False
+            'GvTotalesMesH.Columns(19).Visible = False
 
 
         ElseIf DdlTri.SelectedValue.ToEntero = 1 Then 'Mostrar  Trimestre
 
 
-            GvIngresosMesH.Columns(4).Visible = True
+            GvIngresosMesH.Columns(7).Visible = True
-            GvIngresosMesH.Columns(9).Visible = True
+            GvIngresosMesH.Columns(8).Visible = True
-            GvIngresosMesH.Columns(14).Visible = True
+            GvIngresosMesH.Columns(17).Visible = True
             GvIngresosMesH.Columns(18).Visible = True
-
+            GvIngresosMesH.Columns(27).Visible = True
-            GvGastosMesH.Columns(4).Visible = True
+            GvIngresosMesH.Columns(28).Visible = True
-            GvGastosMesH.Columns(9).Visible = True
+            GvIngresosMesH.Columns(35).Visible = True
-            GvGastosMesH.Columns(14).Visible = True
+            GvIngresosMesH.Columns(36).Visible = True
+            GvGastosMesH.Columns(7).Visible = True
+            GvGastosMesH.Columns(8).Visible = True
+            GvGastosMesH.Columns(17).Visible = True
             GvGastosMesH.Columns(18).Visible = True
-
+            GvGastosMesH.Columns(27).Visible = True
-            GvTotalesMesH.Columns(4).Visible = True
+            GvGastosMesH.Columns(28).Visible = True
-            GvTotalesMesH.Columns(9).Visible = True
+            GvGastosMesH.Columns(35).Visible = True
-            GvTotalesMesH.Columns(14).Visible = True
+            GvGastosMesH.Columns(36).Visible = True
+            GvTotalesMesH.Columns(7).Visible = True
+            GvTotalesMesH.Columns(8).Visible = True
+            GvTotalesMesH.Columns(17).Visible = True
             GvTotalesMesH.Columns(18).Visible = True
+            GvTotalesMesH.Columns(27).Visible = True
+            GvTotalesMesH.Columns(28).Visible = True
+            GvTotalesMesH.Columns(35).Visible = True
+            GvTotalesMesH.Columns(36).Visible = True
 
-            GvIngresosMesH.Columns(6).Visible = False
+            GvIngresosMesH.Columns(11).Visible = False
             GvIngresosMesH.Columns(12).Visible = False
-            GvIngresosMesH.Columns(19).Visible = False
+            GvIngresosMesH.Columns(23).Visible = False
-
+            GvIngresosMesH.Columns(24).Visible = False
-            GvGastosMesH.Columns(6).Visible = False
+            GvIngresosMesH.Columns(37).Visible = False
+            GvIngresosMesH.Columns(38).Visible = False
+            GvGastosMesH.Columns(11).Visible = False
             GvGastosMesH.Columns(12).Visible = False
-            GvGastosMesH.Columns(19).Visible = False
+            GvGastosMesH.Columns(23).Visible = False
-
+            GvGastosMesH.Columns(24).Visible = False
-            GvTotalesMesH.Columns(6).Visible = False
+            GvGastosMesH.Columns(37).Visible = False
+            GvGastosMesH.Columns(38).Visible = False
+            GvTotalesMesH.Columns(11).Visible = False
             GvTotalesMesH.Columns(12).Visible = False
-            GvTotalesMesH.Columns(19).Visible = False
+            GvTotalesMesH.Columns(23).Visible = False
+            GvTotalesMesH.Columns(24).Visible = False
+            GvTotalesMesH.Columns(37).Visible = False
+            GvTotalesMesH.Columns(38).Visible = False
+
+
+            'GvTotalesMesH.Columns(4).Visible = True
+            'GvTotalesMesH.Columns(9).Visible = True
+            'GvTotalesMesH.Columns(14).Visible = True
+            'GvTotalesMesH.Columns(18).Visible = True
+
+
+            'GvTotalesMesH.Columns(6).Visible = False
+            'GvTotalesMesH.Columns(12).Visible = False
+            'GvTotalesMesH.Columns(19).Visible = False
 
         ElseIf DdlTri.SelectedValue.ToEntero = 2 Then 'Mostrar Cuatrimestre 
 
-            GvIngresosMesH.Columns(4).Visible = False
+            GvIngresosMesH.Columns(7).Visible = False
-            GvIngresosMesH.Columns(9).Visible = False
+            GvIngresosMesH.Columns(8).Visible = False
-            GvIngresosMesH.Columns(14).Visible = False
+            GvIngresosMesH.Columns(17).Visible = False
             GvIngresosMesH.Columns(18).Visible = False
-
+            GvIngresosMesH.Columns(27).Visible = False
-            GvGastosMesH.Columns(4).Visible = False
+            GvIngresosMesH.Columns(28).Visible = False
-            GvGastosMesH.Columns(9).Visible = False
+            GvIngresosMesH.Columns(35).Visible = False
-            GvGastosMesH.Columns(14).Visible = False
+            GvIngresosMesH.Columns(36).Visible = False
+            GvGastosMesH.Columns(7).Visible = False
+            GvGastosMesH.Columns(8).Visible = False
+            GvGastosMesH.Columns(17).Visible = False
             GvGastosMesH.Columns(18).Visible = False
-
+            GvGastosMesH.Columns(27).Visible = False
-            GvTotalesMesH.Columns(4).Visible = False
+            GvGastosMesH.Columns(28).Visible = False
-            GvTotalesMesH.Columns(9).Visible = False
+            GvGastosMesH.Columns(35).Visible = False
-            GvTotalesMesH.Columns(14).Visible = False
+            GvGastosMesH.Columns(36).Visible = False
+            GvTotalesMesH.Columns(7).Visible = False
+            GvTotalesMesH.Columns(8).Visible = False
+            GvTotalesMesH.Columns(17).Visible = False
             GvTotalesMesH.Columns(18).Visible = False
+            GvTotalesMesH.Columns(27).Visible = False
+            GvTotalesMesH.Columns(28).Visible = False
+            GvTotalesMesH.Columns(35).Visible = False
+            GvTotalesMesH.Columns(36).Visible = False
 
 
-            GvIngresosMesH.Columns(6).Visible = True
+
+
+            GvIngresosMesH.Columns(11).Visible = True
             GvIngresosMesH.Columns(12).Visible = True
-            GvIngresosMesH.Columns(19).Visible = True
+            GvIngresosMesH.Columns(23).Visible = True
-
+            GvIngresosMesH.Columns(24).Visible = True
-            GvGastosMesH.Columns(6).Visible = True
+            GvIngresosMesH.Columns(37).Visible = True
+            GvIngresosMesH.Columns(38).Visible = True
+            GvGastosMesH.Columns(11).Visible = True
             GvGastosMesH.Columns(12).Visible = True
-            GvGastosMesH.Columns(19).Visible = True
+            GvGastosMesH.Columns(23).Visible = True
-
+            GvGastosMesH.Columns(24).Visible = True
-            GvTotalesMesH.Columns(6).Visible = True
+            GvGastosMesH.Columns(37).Visible = True
+            GvGastosMesH.Columns(38).Visible = True
+            GvTotalesMesH.Columns(11).Visible = True
             GvTotalesMesH.Columns(12).Visible = True
-            GvTotalesMesH.Columns(19).Visible = True
+            GvTotalesMesH.Columns(23).Visible = True
+            GvTotalesMesH.Columns(24).Visible = True
+            GvTotalesMesH.Columns(37).Visible = True
+            GvTotalesMesH.Columns(38).Visible = True
+
+
+            'GvTotalesMesH.Columns(4).Visible = False
+            'GvTotalesMesH.Columns(9).Visible = False
+            'GvTotalesMesH.Columns(14).Visible = False
+            'GvTotalesMesH.Columns(18).Visible = False
+
+
+            'GvTotalesMesH.Columns(6).Visible = True
+            'GvTotalesMesH.Columns(12).Visible = True
+            'GvTotalesMesH.Columns(19).Visible = True
 
         End If
 
@@ -1358,7 +1560,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         Dim IDX_LIMPIAR As Integer = 1
 
-        For IDX_LIMPIAR = 1 To 25
+        For IDX_LIMPIAR = 1 To 37
 
             GvIngresosAnualH.Columns(IDX_LIMPIAR).Visible = False
             GvGastosAnualH.Columns(IDX_LIMPIAR).Visible = False
@@ -1377,35 +1579,34 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                 If IndexData >= 13 Then
 
-                    If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
+                    If dCoumn.ColumnName.ToEntero > 0 AndAlso dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
 
                         CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
-
-
-                        listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
-
-                        listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
-                        '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 + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}"
+                        CType(GvIngresosAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
+                        GvIngresosAnualH.Columns(IndexGv + 1).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
+                        CType(GvTotalesAnualH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}"
+                        CType(GvTotalesAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
+                        GvTotalesAnualH.Columns(IndexGv + 1).Visible = True
+
+                        listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
+                        listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
 
                         IndexMax = IndexData
                     Else
-                        GvIngresosAnualH.Columns(IndexGv).Visible = False
+                        'GvIngresosAnualH.Columns(IndexGv).Visible = False
-                        GvTotalesAnualH.Columns(IndexGv).Visible = False
+                        'GvTotalesAnualH.Columns(IndexGv).Visible = False
                     End If
 
 
 
-                    IndexGv = IndexGv + 1
+                    IndexGv = IndexGv + 2
                 End If
 
                 IndexData = IndexData + 1
@@ -1423,8 +1624,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = 13
             For IndexData = 13 To IndexMax
                 Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+                Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
             Next
 
+
+
             Row.Item("Nombre") = "TOTAL INGRESOS "
             Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")  'TotalActual.ToString
             Row.Item("PorcentajeActual") = "100.00"
@@ -1465,23 +1669,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                         CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
                         CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
+                        GvGastosAnualH.Columns(IndexGv).Visible = True
+
+                        CType(GvGastosAnualH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}"
+                        CType(GvGastosAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
+                        GvGastosAnualH.Columns(IndexGv + 1).Visible = True
+
                         listaCamposaniosGastos.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()})
 
-                        '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
                         GvGastosAnualH.Columns(IndexGv).Visible = False
                     End If
 
+                    IndexGv = IndexGv + 2
 
-
-                    IndexGv = IndexGv + 1
                 End If
 
                 IndexData = IndexData + 1
@@ -1496,9 +1698,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             IndexData = 13
             For IndexData = 13 To IndexMax
-
+                Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
-                Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
+                Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtGastosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
-
             Next
 
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1525,6 +1726,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             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($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
             Next
 
             Row.Item("Nombre") = "Resultados del Ejercicio"
@@ -1548,8 +1750,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     End Sub
 
-
-
     Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             setgraficaCCAnual(e, listaCamposanios)
@@ -1670,9 +1870,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     Protected Sub GvTotalesAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
-        If e.Row.RowType = DataControlRowType.Header Then
+        'If e.Row.RowType = DataControlRowType.Header Then
-            e.Row.Attributes.Add("style", "display:none")
+        '    e.Row.Attributes.Add("style", "display:none")
-        End If
+        'End If
 
         If e.Row.RowType = DataControlRowType.DataRow Then
             setgraficaCCAnual(e, listaCamposaniosTotal)
@@ -1784,24 +1984,53 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             For Each dColumn As DataColumn In DtIngresosSubProyectoH.Columns
 
+
+
+
+
                 If IndexData >= 13 Then
 
                     If IndexSubProyecto <= IndexSubProyectoMax Then
 
                         If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
+
                             CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
                             GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
 
                             CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
                             GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
 
+                            CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
+                            GvGastosSubProyectoH.Columns(IndexGv).Visible = True
+
                             If IndexSubProyecto <= IndexSubProyectoMax Then
+
                                 Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
+
+                                If dColumn.ColumnName = "SinSubProyecto" Then
+                                    TxtSub = "Sin SubProyecto"
+                                End If
+
+
                                 CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
-                                CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
+                                    CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
-                                CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
+                                    CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
-                            End If
+
-                            listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
+                                    CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
+                                    CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
+                                    CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
+
+                                    If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then
+                                        CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
+                                        GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True
+                                        CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
+                                        GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True
+                                        CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
+                                        GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True
+                                    End If
+
+                                End If
+                                listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
                         End If
 
                     Else
@@ -1814,16 +2043,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                     End If
 
-                    IndexGv = IndexGv + 1
+                    IndexGv = IndexGv + 2
                     IndexSubProyecto = IndexSubProyecto + 1
                     IndexMax = IndexMax + 1
 
                 End If
                 IndexData = IndexData + 1
+
+                If dColumn.ColumnName = "SinSubProyecto" Then
+                    Exit For
+                End If
+
             Next
 
 
-            For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
+            For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows
                 TotalActual += dr("ImporteActual").ToString.ToDouble
                 TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
             Next
@@ -1831,14 +2065,18 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = 13
             For IndexData = 13 To IndexTotales
                 If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
-                    Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+                    Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
+                    Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
                 End If
             Next
 
+
+
+
             Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")   'TotalActual.ToString
+            Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "Not CtaMayor In (3,4)")   'TotalActual.ToString
             Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
+            Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "Not CtaMayor In (3,4)") 'TotalAnterior.ToString
             Row.Item("PorcentajeAcumulado") = "100.00"
             Row.Item("CtaMayor") = -1
             Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
@@ -1859,67 +2097,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         Row = DtGastosSubProyectoH.NewRow
 
-        If DtGastosSubProyectoH.Rows.Count > 1 Then
-
-            IndexData = 0
-            IndexGv = 1
-            IndexMax = 0
-            IndexSubProyecto = 0
-
-            For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
-                If IndexData >= 13 Then
-                    If IndexSubProyecto <= IndexSubProyectoMAx Then
-                        If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
-                            CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                            GvGastosSubProyectoH.Columns(IndexGv).Visible = True
-                            CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                            GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
-                        End If
-
-                    Else
-                        If IndexGv < DtIngresosSubProyectoH.Columns.Count AndAlso IndexGv < GvIngresosSubProyectoH.Columns.Count Then
-                            GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
-                            GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
-                        Else
-                            Exit For
-                        End If
-                    End If
-
-                    IndexGv = IndexGv + 1
-                    IndexSubProyecto = IndexSubProyecto + 1
-                End If
-                IndexData = IndexData + 1
-            Next
-
-            For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
-                TotalActual += dr("ImporteActual").ToString.ToDouble
-                TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
-            Next
-
-            IndexData = 13
-            For IndexData = 13 To IndexTotales
-                If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
-                    Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
-                End If
-            Next
-
-            Row.Item("Nombre") = "TOTAL GASTOS"
-            Row.Item("ImporteActual") = TotalActual
-            Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero
-            Row.Item("ImporteAcumulado") = TotalAnterior.ToString
-            Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
-            Row.Item("CtaMayor") = -1
-            Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico")
-
-            DtGastosSubProyectoH.Rows.Add(Row)
-        Else
-            Row.Item("Nombre") = "TOTAL GASTOS"
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
-            Row.Item("CtaMayor") = -1
-            DtGastosSubProyectoH.Rows.Add(Row)
-        End If
-
         If DtIngresosSubProyectoH.Rows.Count > 0 Then
 
             Row = DTTotalesSubProyectoH.NewRow
@@ -1927,12 +2104,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = 13
             For IndexData = 13 To IndexTotales
                 If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
-                    Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+                    Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
+                    Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
                 End If
             Next
 
             Row.Item("Nombre") = "Resultado del ejercicio"
-            Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+            Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")
             Row.Item("CtaMayor") = -2
             Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
 

CxC/RepCxC.aspx

@@ -351,6 +351,18 @@
                            </div>
 
                     </div>
+                    <div class="row">
+                        <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
+                            Linea Adicional:
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTieneLineaAdicional" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </div>
 
                 </div>
             </div>

CxC/RepCxC.aspx.vb

@@ -203,7 +203,7 @@ Partial Class RepCxC
                             "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
                             If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero,
                             CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                            TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=AplicaAnticipos, CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then
+                            TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=AplicaAnticipos, CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero()) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
@@ -384,53 +384,53 @@ Partial Class RepCxC
 
             Dim AplicaAnticipos As Integer = If(ChkAnticipos.Checked, 1, 0)
 
-            Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga1 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga2 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga3 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga4 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente{26}&AplicaAnticiposPagados={27}",
+            Dim Liga5 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente{26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga6 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga7 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga8 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga9 As String = String.Format("/CxC/RepCxCDetalle.aspx.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga10 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim Liga11 As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
-            Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}",
+            Dim LigaTot As String = String.Format("/CxC/RepCxCDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSubProyecto={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&IVA={10}&FechaI={11}&FechaF={12}&CveResponsable={13}&TipoDocto={14}&TipoCambio={15}&TCEspecifico={16}&FechaVI={17}&FechaVF={18}&CveClienteSucursal={19}&FechaCorte={20}&CveCobranzaEstatus={21}&CveClienteClasificacion={22}&LimiteCredito={23}&TipoCliente={24}&CveMoneda={25}&EstatusCliente={26}&AplicaAnticiposPagados={27}&TieneLineaAdicional={28}",
                                                DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos)
+                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), FechaVI, FechaVF, CveClienteSucursal, txtCorteA.Text, CveCobranzaEstatus, CveClienteClasificacion, e.Row.DBCampo("LimiteCredito"), If(DdlGrupo.SelectedValue.ToEntero = 12, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), e.Row.DBCampo("CveMoneda"), DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticipos, DdlTieneLineaAdicional.SelectedValue.ToEntero())
 
             e.Row.FCHyperLink("HplSaldo").NavigateUrl = LigaTot
 

CxC/RepCxCDetalle.aspx

@@ -317,7 +317,18 @@
                            </div>
 
                       </div>
-
+                        <div class="row">
+                            <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
+                                Linea Adicional:
+                            </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlTieneLineaAdicional" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
                    
 
                 </div>

CxC/RepCxCDetalle.aspx.vb

@@ -425,6 +425,8 @@ Partial Class RepCxCDetalle
         End If
 
         If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
+
+        DdlTieneLineaAdicional.SelectedValueExist(If(Request("TieneLineaAdicional") IsNot Nothing, Request("TieneLineaAdicional").ToString, "-1").ToString)
     End Sub
     Private Function CargaDatos() As DataSet
 
@@ -455,7 +457,7 @@ Partial Class RepCxCDetalle
                                    RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF,
                                    FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero,
                                    CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
-                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0)) Then
+                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero()) Then
 
             GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0)
 

Empresas/32/Formatos/Factura.rdlc

@@ -593,7 +593,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!PS.Value</Value>
+                                  <Value>=Fields!PS.Value &amp; " " &amp; Fields!Obs.Value</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                   </Style>
@@ -1529,6 +1529,14 @@
                       <FontWeight>Normal</FontWeight>
                     </Style>
                   </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!DomicilioSucursal.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>7.5pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
                 </TextRuns>
                 <Style>
                   <TextAlign>Center</TextAlign>

Nomina/Nomina.aspx.cs

@@ -7226,14 +7226,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
         libro.Cell(Fila, 19).Value = "SIG";//RetiroSIG
         libro.Cell(Fila, 20).Value = "SUA";//RetiroSUA
         libro.Cell(Fila, 21).Value = "SIG";//RetiroSIG
+        libro.Cell(Fila, 22).Value = "Motivo";//Motivo
 
 
-        libro.Range(3, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+        libro.Range(3, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-        libro.Range(3, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+        libro.Range(3, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
-        libro.Range(4, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+        libro.Range(4, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-        libro.Range(4, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+        libro.Range(4, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
-        libro.Range(5, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+        libro.Range(5, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-        libro.Range(5, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+        libro.Range(5, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
 
         foreach (DataRow erow in DtSuaProcesado.Rows)
         {
@@ -7259,6 +7260,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             libro.Cell(Fila, 19).Value = erow["GuarderiaSIG"].ToString().ToDecimal();
             libro.Cell(Fila, 20).Value = erow["RetiroSUA"].ToString().ToDecimal();
             libro.Cell(Fila, 21).Value = erow["RetiroSIG"].ToString().ToDecimal();
+            libro.Cell(Fila, 22).Value = erow["Motivo"].ToString();
 
 
             decimal VSUA = erow["SalarioSUA"].ToString().ToDecimal(); decimal VSIG = erow["SalarioSIG"].ToString().ToDecimal();
@@ -7294,7 +7296,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         }
         libro.SheetView.Freeze(4, 1);
-        libro.Range(4, 20, Fila, 21).SetAutoFilter(true);
+        libro.Range(4, 1, Fila, 22).SetAutoFilter(true);
         libro.Range(5, 20, Fila, 21).SetDataType(ClosedXML.Excel.XLDataType.Number);
         //libro.Row(2).SetAutoFilter();
 

Ventas/Clientes.aspx

@@ -2104,6 +2104,7 @@
                                                         <asp:BoundField HeaderText="Fecha Venta" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                                                         <asp:BoundField HeaderText="Fecha Vencimiento" DataField="FechaVencimiento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                                                         <asp:BoundField HeaderText="Días Vencidos" DataField="DiasVencidos" DataFormatString="{0}" ItemStyle-HorizontalAlign="Center" />
+                                                        <asp:BoundField HeaderText="Linea Adicional" DataField="LineaAdicional" DataFormatString="{0}" ItemStyle-HorizontalAlign="Left" />
                                                         <asp:TemplateField HeaderText="Monto Venta" ItemStyle-HorizontalAlign="Right">
                                                             <ItemTemplate>
                                                                 <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;

Ventas/Ventas.aspx

@@ -3443,6 +3443,17 @@
                         </div>
                         <div class="portlet-body  formnombottom">
                             <table border="0" width="100%">
+                                <tr id="TrLineaAdicional" runat="server" visible="false">
+                                    <td align="left">Linea Adicional:</td>
+                                    <td align="left">
+                                        <asp:DropDownList ID="DdlLineaAdicional" DataTextField="InfoGeneral" DataValueField="CveLineaAdicional" AutoPostBack="true" CssClass=" form-control input-sm select2me" runat="server" Width="200px" OnSelectedIndexChanged="DdlLineaAdicional_SelectedIndexChanged">
+                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </td>
+                                    <td align="left">
+                                        <asp:LinkButton runat="server" Visible="false" ID="LnkUpdateLineaAdicional" OnClick="LnkUpdateLineaAdicional_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar la linea adicional de crédito de la factura?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Linea adicional" />
+                                    </td>
+                                </tr>
                                 <tr id="TrFormaEntrega" runat="server" visible="false">
                                     <td align="left">Forma de entrega:</td>
                                     <td align="left">

Ventas/Ventas.aspx.vb

@@ -2231,6 +2231,32 @@ Partial Class Ventas
             ViewState("ClienteRegimenFiscal") = value
         End Set
     End Property
+    Private Property CveLineaAdicionalVenta As Integer
+        Get
+            Return IfNull(ViewState("CveLineaAdicionalVenta"), "-1", ViewState("CveLineaAdicionalVenta")).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveLineaAdicionalVenta") = value
+        End Set
+    End Property
+
+    Private Property SaldoLineaAdicional As Decimal
+        Get
+            Return (IfNull(ViewState("ImporteLineaAdicional"), "0", ViewState("ImporteLineaAdicional"))).ToString().ToDecimal()
+        End Get
+        Set(value As Decimal)
+            ViewState("ImporteLineaAdicional") = value
+        End Set
+    End Property
+
+    Private Property CveClasificacionLineaAdicional As Integer
+        Get
+            Return IfNull(ViewState("CveClasificacionLineaAdicional"), "-1", ViewState("CveClasificacionLineaAdicional")).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveClasificacionLineaAdicional") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -4583,6 +4609,11 @@ Partial Class Ventas
             ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero()
 
             Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString().ToEntero()
+
+            If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
+                Me.CveLineaAdicionalVenta = DbRowVenta("CveLineaAdicional").ToString().ToEntero()
+            End If
+
             'CargaEncabezado
             If Not (CveRemision > 0 Or CveCotizacion > 0) Then
                 DdlTipoComprobante.SelectedValue = DbRowVenta("TipoDocto").ToString()
@@ -5637,6 +5668,10 @@ Partial Class Ventas
                 End If
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso Me.CveLineaAdicionalVenta > 0 Then
+                CalculaLineasAdicionales()
+            End If
+
             UpPS.Update()
             UpContado.Update()
             UpEstatus.Update()
@@ -6645,6 +6680,16 @@ Partial Class Ventas
         End If
         BloqueaCondiconesPago()
         DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
+
+        'If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
+        '    Using ObjVentas As New ClsVentas
+        '        If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, DdlMoneda.SelectedValue.ToEntero(), MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa) Then
+        '            If ObjVentas.DtResultados.Rows.Count > 0 Then
+        '                TrLineaAdicional.Visible = True
+        '            End If
+        '        End If
+        '    End Using
+        'End If
     End Sub
 
     Private Sub CargaRelacionadasPendientes()
@@ -8727,9 +8772,10 @@ Partial Class Ventas
             End If
         End If
 
+        'SI TIENE LINEA ADICIONAL NO VERIFICAR LIMITE DE CREDITO
         'SI NO TIENE AUTORIZACION VERIFICAR LIMITE DE CREDITO Y CANDADOS DE VENTA
         'No exceder el limite de credito, Si no tiene contrato limita el credito, si tiene no hace nada. Si no tiene remisiones tampoco hace nada.
-        If Me.CveAutorizacion <= 0 AndAlso (Not CveContrato > 0 Or CveContratoTipo.Contiene(28)) AndAlso (Not NuevaFactura = 1) AndAlso RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso RemisionesLista.Count <= 0 AndAlso TxtTotal.Text.ToDecimal > 0 AndAlso Not CvePedidoA > 0 Then
+        If DdlLineaAdicional.SelectedValue.ToEntero() <= 0 AndAlso Me.CveAutorizacion <= 0 AndAlso (Not CveContrato > 0 Or CveContratoTipo.Contiene(28)) AndAlso (Not NuevaFactura = 1) AndAlso RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso RemisionesLista.Count <= 0 AndAlso TxtTotal.Text.ToDecimal > 0 AndAlso Not CvePedidoA > 0 Then
             'If UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then
 
             If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
@@ -8782,6 +8828,30 @@ Partial Class Ventas
             'End If
         End If
 
+        'VALIDAR LINEAS ADICIONALES
+        If UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso DdlLineaAdicional.SelectedValue.ToEntero() > 0 Then
+            'VERIFICA QUE LA CLASIFICACION DE LOS PRODUCTOS DEBE SER LA MISMA DE LA LINEA ADICIONAL
+            If TmpDT IsNot Nothing AndAlso Me.CveClasificacionLineaAdicional > 0 Then
+                For Each Row As DataRow In TmpDT.FiltraParametros("", DistinctColumns:={"CveClasificacion", "Clasificacion"}).Rows
+                    If Me.CveClasificacionLineaAdicional <> Row("CveClasificacion").ToString().ToEntero() Then
+                        Alert($"La clasificación '{Row("Clasificacion")}' no pertenece a la linea adicional.", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                Next
+            End If
+
+            If Me.SaldoLineaAdicional <= 0 Then
+                Alert("El saldo de la linea adicional debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            'VERIFICA QUE EL SALDO DISPONIBLE SEA MENOR AL IMPORTE
+            If Me.SaldoLineaAdicional <= TxtTotal.Text.ToDecimal() Then
+                Alert("El saldo de la linea adicional debe ser mayor o igual al de la factura", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
 
         'VALIDA PRECIO AL AGREGAR A ALMACEN
         If Not UsuarioActual.TienePermisoProceso(169) Then
@@ -12559,7 +12629,8 @@ Partial Class Ventas
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
                            Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
-                           FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible) Then
+                           FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
+                           CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero()) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
@@ -17963,6 +18034,8 @@ Partial Class Ventas
                     ListaDescuentos.Add(ObjDescuento)
                 End If
 
+                CalculaLineasAdicionales()
+
                 CalculaTotalesVenta()
 
                 LimpiaAgregar()
@@ -17979,6 +18052,43 @@ Partial Class Ventas
 
     End Sub
 
+    Private Sub CalculaLineasAdicionales()
+        If DdlTipoComprobante.SelectedValue = "Ing" AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1"  Then
+            DdlLineaAdicional.DataSource = Nothing
+
+            Using ObjVentas As New ClsVentas
+                If CveVenta > 0 Then
+                    If ObjVentas.GetLineasAdicionalesSaldo(-1, CveCliente, -1, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, ConSaldo:=-1) Then
+                        If ObjVentas.DtResultados.Rows.Count > 0 Then
+                            TrLineaAdicional.Visible = True
+                            DdlLineaAdicional.DataSource = ObjVentas.DtResultados.FiltraParametros($"Saldo > 0 OR CveLineaAdicional = {Me.CveLineaAdicionalVenta}")
+                        End If
+                    End If
+                Else
+                    If ObjVentas.GetLineasAdicionalesSaldo(-1, CveCliente, -1, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, ConSaldo:=1) Then
+                        If ObjVentas.DtResultados.Rows.Count > 0 Then
+                            TrLineaAdicional.Visible = True
+                            DdlLineaAdicional.DataSource = ObjVentas.DtResultados
+                        End If
+                    End If
+                End If
+            End Using
+
+            DdlLineaAdicional.DataBind()
+            DdlLineaAdicional.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            If Me.CveLineaAdicionalVenta > 0 Then
+                DdlLineaAdicional.SelectedValueExist(CveLineaAdicionalVenta.ToString())
+                DdlLineaAdicional_SelectedIndexChanged(DdlLineaAdicional, EventArgs.Empty)
+                DdlLineaAdicional.Enabled = False
+                LnkUpdateLineaAdicional.Visible = True
+            End If
+
+        End If
+
+        UPCondicionesPago.Update()
+    End Sub
+
 
     Private Sub AgregarPSPYME()
         If Modalidad = "A" Then
@@ -18277,8 +18387,12 @@ Partial Class Ventas
             End If
 
             LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
-            TrRetIVA.Style.Add("display", "")
+            If LblRetIVA.Text.ToDecimal() > 0 Then
-            DdlTipoRetencion.Visible = True
+                TrRetIVA.Style.Add("display", "")
+                DdlTipoRetencion.Visible = True
+            Else
+                TrRetIVA.Style.Add("display", "none")
+            End If
 
 
             Row("IVA") = Row("PorcentajeIVA")
@@ -33288,13 +33402,15 @@ Partial Class Ventas
         TxtPedidoContrato.Enabled = True
         TxtObsAlmacen.Enabled = True
         RblPaqueteria.Enabled = True
-
+        DdlLineaAdicional.Enabled = True
+        LnkUpdateLineaAdicional.Visible = True
         'Acciones
         BtnEditar.Text = "Guardar"
 
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()
+        UPCondicionesPago.Update()
     End Sub
 
     Private Sub GuardarValoresEditados()
@@ -35153,5 +35269,57 @@ Partial Class Ventas
     End Sub
 
 
+    Protected Sub DdlLineaAdicional_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If DdlLineaAdicional.SelectedValue.ToEntero() > 0 Then
+            RBLPago.SelectedValue = "1"
+            RBLPago.Enabled = False
+
+            Using ObjVentas As New ClsVentas
+                If ObjVentas.GetLineasAdicionalesSaldo(DdlLineaAdicional.SelectedValue.ToEntero(), CveCliente, -1, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                    If ObjVentas.DtResultados.Rows.Count > 0 Then
+                        TxtFechaPago.Text = ObjVentas.DtResultados.Rows(0)("FechaVencimiento").ToString().ToDateTime().ToString("dd/MM/yyyy")
+                        Me.SaldoLineaAdicional = ObjVentas.DtResultados.Rows(0)("Saldo").ToString().ToDecimal()
+                        Me.CveClasificacionLineaAdicional = ObjVentas.DtResultados.Rows(0)("CveClasificacionPS").ToString().ToEntero()
+                    End If
+                End If
+            End Using
+        Else
+            Me.SaldoLineaAdicional = 0
+            Me.CveClasificacionLineaAdicional = 0
+        End If
+
+        UPCondicionesPago.Update()
+    End Sub
+    Protected Sub LnkUpdateLineaAdicional_Click(sender As Object, e As EventArgs)
+        'VALIDAR LINEAS ADICIONALES
+        If UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso DdlLineaAdicional.SelectedValue.ToEntero() > 0 Then
+            'VERIFICA QUE LA CLASIFICACION DE LOS PRODUCTOS DEBE SER LA MISMA DE LA LINEA ADICIONAL
+            If TmpDT IsNot Nothing AndAlso Me.CveClasificacionLineaAdicional > 0 Then
+                For Each Row As DataRow In TmpDT.FiltraParametros("", DistinctColumns:={"CveClasificacion", "Clasificacion"}).Rows
+                    If Me.CveClasificacionLineaAdicional <> Row("CveClasificacion").ToString().ToEntero() Then
+                        Alert($"La clasificación '{Row("Clasificacion")}' no pertenece a la linea adicional.", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                Next
+            End If
+
+            If Me.SaldoLineaAdicional <= 0 Then
+                Alert("El saldo de la linea adicional debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            'VERIFICA QUE EL SALDO DISPONIBLE SEA MENOR AL IMPORTE
+            If Me.SaldoLineaAdicional <= TxtTotal.Text.ToDecimal() Then
+                Alert("El saldo de la linea adicional debe ser mayor o igual al de la factura", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
+        Using ObjVentas As New ClsVentas
+            If ObjVentas.UpdateVentaLineaAdicional(DdlLineaAdicional.SelectedValue.ToEntero(), Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                Alert("Se actualizo la linea adicional de crédito de la venta")
+            End If
+        End Using
+    End Sub
 End Class
 

vwd.webinfo

@@ -560,6 +560,10 @@
     
   
     
+  
+    
+  
+