diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index c1a58b3fb..07ef0da67 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -6708,6 +6708,53 @@ Public Class ClsContabilidad
End Function
+
+
+ Public Function GetLibroMayorSIG(CveCuentaPadre As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_LibroMayorSIGGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveCuentaPadre ", SqlDbType.Int).Value = CveCuentaPadre
+ .Add("@FechaI", SqlDbType.Date).Value = FechaInicio
+ .Add("@FechaF", SqlDbType.Date).Value = FechaFin
+ .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el reporte de Libro Mayor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+
+ Public Function GetLibroDiarioSIG(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_LibroDiarioSIGGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@FechaI", SqlDbType.Date).Value = FechaInicio
+ .Add("@FechaF", SqlDbType.Date).Value = FechaFin
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el reporte de Libro Diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+
#Region "IDisposable Support"
' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean)
diff --git a/App_Code/ClsPV.vb b/App_Code/ClsPV.vb
index 382f34065..62724f041 100644
--- a/App_Code/ClsPV.vb
+++ b/App_Code/ClsPV.vb
@@ -152,53 +152,53 @@ Public Class ClsPV
End Function
'Reporte de Compras
- Public Function GetRepPVCompras(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_PV_ComprasGetRep")
+ 'Public Function GetRepPVCompras(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer) As Boolean
+ ' Dim Retorno As Boolean = False
+ ' DataAdapter("PA_PV_ComprasGetRep")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
- .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
- .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
- .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
- .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- .Add("@GPO", SqlDbType.Int).Value = Gpo
- End With
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+ ' .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+ ' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ ' .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+ ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ ' .Add("@GPO", SqlDbType.Int).Value = Gpo
+ ' End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener el Reporte de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = True
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al obtener el Reporte de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
'Reporte de Ventas VS Compras
- Public Function GetRepPVVentasCompras(FechaI As String, FechaF As String, CveSubProyecto As Integer, CveEmpresa As Integer, Gpo As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_PV_VentasComprasGetRep")
+ 'Public Function GetRepPVVentasCompras(FechaI As String, FechaF As String, CveSubProyecto As Integer, CveEmpresa As Integer, Gpo As Integer) As Boolean
+ ' Dim Retorno As Boolean = False
+ ' DataAdapter("PA_PV_VentasComprasGetRep")
- With SqlAdapter.SelectCommand.Parameters
- '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
- .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
- .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
- .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- .Add("@GPO", SqlDbType.Int).Value = Gpo
- End With
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ ' .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+ ' .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+ ' .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ ' .Add("@GPO", SqlDbType.Int).Value = Gpo
+ ' End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener el Reporte de Ventas y Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = True
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al obtener el Reporte de Ventas y Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
#Region "IDisposable Support"
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index e3b6570c4..875e14c20 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5538,9 +5538,9 @@ Public Class ClsPaginas
PaginaDict.Add("/Proveedores/LogInProveedores.aspx".ToUpper(), -1)
'Punto de Venta
- PaginaDict.Add("/PV/PVRepVentas.aspx".ToUpper(), 270)
- PaginaDict.Add("/PV/PVRepCompras.aspx".ToUpper(), 272)
- PaginaDict.Add("/PV/PVRepVentasCompras.aspx".ToUpper(), 273)
+ 'PaginaDict.Add("/PV/PVRepVentas.aspx".ToUpper(), 270)
+ 'PaginaDict.Add("/PV/PVRepCompras.aspx".ToUpper(), 272)
+ 'PaginaDict.Add("/PV/PVRepVentasCompras.aspx".ToUpper(), 273)
PaginaDict.Add("/Contratos/ContratoObra.aspx".ToUpper(), 911)
PaginaDict.Add("/Contratos/RepContratosObraAvances.aspx".ToUpper(), 914)
@@ -5999,7 +5999,7 @@ Public Class ClsPaginas
Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)
'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA
- If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") Then
+ If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") AndAlso Not RutaReporte.Contains("AC/Reportes/") Then
bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "")
End If
diff --git a/Contabilidad/LibroDiario.aspx b/Contabilidad/LibroDiario.aspx
index c1e178af6..1c7f57634 100644
--- a/Contabilidad/LibroDiario.aspx
+++ b/Contabilidad/LibroDiario.aspx
@@ -3,7 +3,7 @@
diff --git a/Contabilidad/LibroMayor.aspx.vb b/Contabilidad/LibroMayor.aspx.vb
index d3df61d1e..d605ab9d5 100644
--- a/Contabilidad/LibroMayor.aspx.vb
+++ b/Contabilidad/LibroMayor.aspx.vb
@@ -44,9 +44,17 @@ Partial Class Contabilidad_LibroMayor
If UsuarioActual.Empresa.UsaAC Then
BtnConsultar.Enabled = True
Else
- Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
+
+ If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+ BtnConsultar.Enabled = True
+ Else
+ Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
+ End If
+
End If
+
+
End If
End Sub
@@ -70,13 +78,32 @@ Partial Class Contabilidad_LibroMayor
FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
- Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
- If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then
- DtDatos = ObjConta.DtResultados
+ '140
+ Dim CvecuentaPadre As Integer = 57416 '140
+
+ If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+
+ Dim ObjConta As New ClsContabilidad
+ If ObjConta.GetLibroMayorSIG(CvecuentaPadre, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
+ DtDatos = ObjConta.DtResultados
+ Else
+ DtDatos = Nothing
+ End If
+ ObjConta.Dispose()
+
+
Else
- DtDatos = Nothing
+ Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+ If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then
+ DtDatos = ObjConta.DtResultados
+ Else
+ DtDatos = Nothing
+ End If
+ ObjConta.Dispose()
End If
- ObjConta.Dispose()
+
+
If DtDatos IsNot Nothing Then
ImgExcel.Visible = True
@@ -159,6 +186,7 @@ Partial Class Contabilidad_LibroMayor
#Region " IMPRIMIR "
#End Region
+
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
diff --git a/Contabilidad/RepOrigenAplicacion.aspx b/Contabilidad/RepOrigenAplicacion.aspx
index 0d6a3eae7..004174006 100644
--- a/Contabilidad/RepOrigenAplicacion.aspx
+++ b/Contabilidad/RepOrigenAplicacion.aspx
@@ -235,6 +235,8 @@
+
+
@@ -275,6 +277,52 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad/RepOrigenAplicacion.aspx.vb b/Contabilidad/RepOrigenAplicacion.aspx.vb
index ded0f81d4..12fd1f715 100644
--- a/Contabilidad/RepOrigenAplicacion.aspx.vb
+++ b/Contabilidad/RepOrigenAplicacion.aspx.vb
@@ -89,6 +89,9 @@ Partial Class Contabilidad_RepOrigenAplicacion
TdFI.Visible = False
tdTipoReporte.Visible = False
+ GvOrigenAplicacionSIG.Visible = True
+ GvDatos.Visible = False
+
End If
End If
@@ -162,25 +165,26 @@ Partial Class Contabilidad_RepOrigenAplicacion
Dim AnioAnteior As Integer = AnioActual - 1
- GvDatos.Columns(1).Visible = True
- GvDatos.Columns(2).Visible = True
+ GvOrigenAplicacionSIG.Columns(1).Visible = True
+ GvOrigenAplicacionSIG.Columns(2).Visible = True
- GvDatos.Columns(1).HeaderText = AnioAnteior.ToString
- GvDatos.Columns(2).HeaderText = AnioActual.ToString
+ GvOrigenAplicacionSIG.Columns(1).HeaderText = AnioAnteior.ToString
+ GvOrigenAplicacionSIG.Columns(2).HeaderText = AnioActual.ToString
Dim ObjConta As New ClsContabilidad
-
+ 'GvOrigenAplicacionSIG
If ObjConta.GetRepOrigenAplicacion(TxtFechaAl.Text.ToDate, UsuarioActual.CveEmpresa) Then
- GvDatos.DataSource = ObjConta.DtResultados
+ GvOrigenAplicacionSIG.DataSource = ObjConta.DtResultados
If ObjConta.DtResultados.Rows.Count > 0 Then
LnkExcel.Visible = True
End If
Else
- GvDatos.DataSource = Nothing
+ GvOrigenAplicacionSIG.DataSource = Nothing
End If
ObjConta.Dispose()
- GvDatos.DataBind()
+ GvOrigenAplicacionSIG.DataBind()
+
Else
@@ -214,6 +218,31 @@ Partial Class Contabilidad_RepOrigenAplicacion
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+ 'Titulo y Sumatoria de cambios
+ If e.Row.DBCampo("Orden3").ToString.ToEntero = 10 Or e.Row.DBCampo("Orden3").ToString.ToEntero = 30 Then
+ e.Row.FCLabel("LbNombre").Font.Bold = True
+ End If
+
+ 'CUENTAS
+ If e.Row.DBCampo("Orden3").ToString.ToEntero = 20 Then
+ e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
+ End If
+
+ 'TOTAL
+ If e.Row.DBCampo("Nombre").ToString.Trim = "" Then
+ e.Row.Attributes.Add("style", "border-top: 1px solid; margin-top:10px;")
+ e.Row.FCLabel("LbNombre").Font.Bold = True
+ e.Row.FCLabel("LbNombre").Font.Italic = True
+ e.Row.FCLabel("LbNombre").Text = "TOTAL"
+ End If
+
+ End If
+ End Sub
+
+
+ Protected Sub GvOrigenAplicacionSIG_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOrigenAplicacionSIG.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
'Titulo y Sumatoria de cambios
@@ -251,6 +280,12 @@ Partial Class Contabilidad_RepOrigenAplicacion
End If
End Sub
+
+
+
+
+
+
#End Region
diff --git a/Contabilidad/RepPolizasCuadre.aspx b/Contabilidad/RepPolizasCuadre.aspx
index cad8bb655..d5017bbd8 100644
--- a/Contabilidad/RepPolizasCuadre.aspx
+++ b/Contabilidad/RepPolizasCuadre.aspx
@@ -12,44 +12,50 @@
-