diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 4c5f48563..48190a254 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -4417,6 +4417,7 @@ Public Class ClsContabilidad
End With
Try
+ SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(DSet)
Retorno = True
Catch ex As Exception
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 232f88953..19c44dfe0 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -6015,6 +6015,25 @@ Public Class ClsInventarios
#End Region
+ Public Function GetProductoPorSerie(Serie As String, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Inv_ProductoPorSerieGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@Serie", SqlDbType.VarChar).Value = Serie
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al consultar los productos por serie.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
#Region " IDisposable Support "
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx
index fce33e0af..00b5d13c2 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx
@@ -53,7 +53,7 @@
Ejercicio:
-
+
@@ -92,7 +92,8 @@
Cuenta:
-
+
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
index 50a086700..4e321c5c7 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
@@ -183,7 +183,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
DTDatos = New DataTable
Dim Conta As New ClsContabilidad
- If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
+ If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
DTHeaders = Conta.DSResultados.Tables(0)
DTDatos = Conta.DSResultados.Tables(1)
@@ -279,7 +279,6 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
Index = 4
For Each DRow As DataRow In DTHeaders.Rows
-
Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal
'Dim Anio As Integer = DRow("SubProyecto").ToString.ToEntero
@@ -292,7 +291,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
If Importe <> 0 Then
- e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
+ e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
End If
'If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index 86a562758..5f9ffb583 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -1131,62 +1131,61 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
+
<%--
@@ -1222,62 +1221,61 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
+
<%--
@@ -1314,61 +1312,61 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index 762a25374..495f43f65 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -389,6 +389,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DVTri.Visible = True
+
+
End If
If TAB.ActiveTabIndex = 2 Then
@@ -404,8 +406,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
LiEjercicioDdl2.Visible = True
LiEjercicioLbl2.Visible = True
- LiPeriodoDdl.Visible = True
- LiPeriodoLbl.Visible = True
+ LiPeriodoDdl.Visible = False
+ LiPeriodoLbl.Visible = False
LiDivisorDdl.Visible = True
LiDivisorLbl.Visible = True
@@ -413,6 +415,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
LblTri.Visible = False
DVTri.Visible = False
+ DdlPeriodo.SelectedValueExist(12)
+
End If
If TAB.ActiveTabIndex = 3 Then
@@ -425,8 +429,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
LiEjercicioDdl2.Visible = False
LiEjercicioLbl2.Visible = False
- LiPeriodoDdl.Visible = True
- LiPeriodoLbl.Visible = True
+
LiDivisorDdl.Visible = True
LiDivisorLbl.Visible = True
@@ -434,6 +437,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
LblTri.Visible = False
DVTri.Visible = False
+ LiPeriodoDdl.Visible = False
+ LiPeriodoLbl.Visible = False
+ DdlPeriodo.SelectedValueExist(12)
+
End If
UpFiltros.Update()
@@ -1751,16 +1758,14 @@ 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)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
- 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
- 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
- 'e.Row.CssClass = "SubTotales3"
e.Row.ControlStyle.Font.Bold = True
End If
@@ -1776,14 +1781,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
- For IndiceInicio = 1 To IndiceMax
+ For IndiceInicio = 1 To IndiceMax Step 2
Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
- 'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
Next IndiceInicio
- 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
@@ -1794,7 +1797,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
- For IndiceInicio = 1 To IndiceMax
+ For IndiceInicio = 1 To IndiceMax Step 2
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
@@ -1836,7 +1839,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
- For IndiceInicio = 1 To IndiceMax
+ For IndiceInicio = 1 To IndiceMax Step 2
Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"{If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}"
@@ -1853,7 +1856,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
- For IndiceInicio = 1 To IndiceMax
+ For IndiceInicio = 1 To IndiceMax Step 2
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
@@ -1862,7 +1865,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If
- If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+ If e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
End If
@@ -1877,6 +1880,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCCAnual(e, listaCamposaniosTotal)
e.Row.Attributes.Add("style", "Font-weight: bold")
+
+
+
+
End If
End Sub
@@ -1893,6 +1900,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next
e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
End Sub
+
#End Region
@@ -2258,6 +2266,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCC(e)
e.Row.Attributes.Add("style", "Font-weight: bold")
+
+ Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+ Dim IndiceInicio As Integer = 1
+ Dim IndiceMax As Integer = 1 + CountDinamico
+ For IndiceInicio = 1 To IndiceMax Step 2
+ Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
+ Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+ e.Row.Cells(IndiceInicio).Text = $""
+ Next IndiceInicio
+
End If
End Sub
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx
index c4ddc02d5..e091a6eb0 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx
@@ -36,7 +36,7 @@