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/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index ddfc4d03c..707282855 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -106,7 +106,7 @@ Partial Class Bancos_CuentasBancariasDetalle DDlCuentaContable.DataSource = ObjContabilidad.DtResultados DDlCuentaContable.DataBind() DDlCuentaContable.Items.Insert(0, New ListItem("Selecione", "-1")) - DDlCuentaContable.DataTextField = "Cuenta" + DDlCuentaContable.DataTextField = "CtaCodigo" DDlCuentaContable.DataValueField = "CveCuenta" End If End Using diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs index 61470b145..038100bf5 100644 --- a/Bancos/PrestamoPersonal.aspx.cs +++ b/Bancos/PrestamoPersonal.aspx.cs @@ -106,15 +106,15 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas txtFechaF.Text = DateTime.Now.ToShortDateString(); TxtImporte.Attributes.Add("disabled", "disabled"); - if (UsuarioActual.Empresa.Funcionalidad(281).ToEntero() == 1) - { - TxtFechaPrestamo.Enabled = false; - ImgCalendarioPrestamo.Visible = false; + //if (UsuarioActual.Empresa.Funcionalidad(281).ToEntero() == 1) + //{ + // TxtFechaPrestamo.Enabled = false; + // ImgCalendarioPrestamo.Visible = false; - TxtFechaDocumento.Enabled = false; - ImgCalendario.Visible = false; + // TxtFechaDocumento.Enabled = false; + // ImgCalendario.Visible = false; - } + //} } 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/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index f53ec254c..17a24c725 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -498,7 +498,7 @@ Cargo - +
ME: TC:
@@ -508,7 +508,7 @@ Abono - +
ME:
 diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index c482c796d..e66322f35 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -381,9 +381,17 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("EsComplementaria", Type.GetType("System.Boolean")) .Add("TC", Type.GetType("System.Decimal")) - - End With + + + If Not DtMovimientos.Columns.Contains("Cargo") Then + DtMovimientos.Columns.Add("Cargo", Type.GetType("System.Decimal")) + DtMovimientos.Columns.Add("Abono", Type.GetType("System.Decimal")) + End If + + + DtMovimientos.AcceptChanges() + End Sub 'Private Sub CargaNomina() @@ -517,9 +525,16 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.Columns.Add("ContadoObservaciones", GetType(String)) DtMovimientos.Columns.Add("ContadoImporte", GetType(Decimal)) - End If + If Not DtMovimientos.Columns.Contains("Cargo") Then + DtMovimientos.Columns.Add("Cargo", GetType(Decimal)) + DtMovimientos.Columns.Add("Abono", GetType(Decimal)) + End If + + + + GvPrePoliza.DataBind() If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then @@ -1015,6 +1030,11 @@ Partial Class ContabilidadC_RegPrePolizaS Dim MsgError As String = "" Dim CveIE As Integer Dim FolioIE As String = "" + Dim ContRegInsertados As Integer = 0 + + Dim TmpCargo As Decimal = 0D + Dim TmpAbono As Decimal = 0D + Dim DifCargoAbono As Decimal = 0D Try @@ -1032,7 +1052,6 @@ Partial Class ContabilidadC_RegPrePolizaS FolioPoliza = ObjMov.FolioPoliza - 'inserto las compras que voy a pagarDdlSaldos For Each gvr As GridViewRow In GvMov.Rows 'If gvr.DataKey("IDCuenta").ToEntero > 0 Then @@ -1056,20 +1075,28 @@ Partial Class ContabilidadC_RegPrePolizaS ImporteME = 0 TipoCambio = 1 + If gvr.DataKey("TipoMovto").ToDouble > 0 Then Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble + TmpAbono = TmpAbono + Importe TipoMovto = True + If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal End If + Else + Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble + TmpCargo = TmpCargo + Importe TipoMovto = False + If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal End If + End If If gvr.DataKey("CveConcepto").ToEntero <> 30 Then @@ -1100,6 +1127,8 @@ Partial Class ContabilidadC_RegPrePolizaS ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then + ContRegInsertados = ContRegInsertados + 1 + Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For @@ -1108,6 +1137,7 @@ Partial Class ContabilidadC_RegPrePolizaS If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then MensajeAlert.AppendFormat("

Folio Bancario: {1}", CveIE, FolioIE) End If + Next If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaInsertada, 1) Then @@ -1124,40 +1154,48 @@ Partial Class ContabilidadC_RegPrePolizaS MsgError = "No se pudo insertar la póliza" End If Catch ex As Exception - MsgError = "Error" + MsgError = $"Error {ex.Message}" End Try - If MsgError = "" Then - 'MENSAJE IE - 'If CveIE Then - ' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") - 'Else - ' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()") - 'End If - - Alert(If(MensajeAlert.ToString = "", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""") - - - ObjIE.Commit() - If Conta IsNot Nothing Then Conta.Commit() - - UPPDocumento.Update() - - TxtConcepto.Text = "" - GvMov.DataBind() - TxtFechaDocumento.Text = "" - - Else - Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) - ObjIE.RollBack() - If Conta IsNot Nothing Then Conta.RollBack() + If ContRegInsertados = 0 Then + MsgError = $"No se insertaron registros (Revise que los importes de los registros contengan valores)" End If - ObjIE.Dispose() - ObjMov.Dispose() - If Conta IsNot Nothing Then Conta.Dispose() - End If + + If MsgError = "" Then + 'MENSAJE IE + + 'If CveIE Then + ' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") + 'Else + ' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()") + 'End If + + Alert(If(MensajeAlert.ToString = "", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""") + + + ObjIE.Commit() + If Conta IsNot Nothing Then Conta.Commit() + + UPPDocumento.Update() + + TxtConcepto.Text = "" + 'GvMov.DataBind() + DdlPlantilla_SelectedIndexChanged(Nothing, Nothing) + + TxtFechaDocumento.Text = "" + + Else + Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) + ObjIE.RollBack() + If Conta IsNot Nothing Then Conta.RollBack() + End If + + ObjIE.Dispose() + ObjMov.Dispose() + If Conta IsNot Nothing Then Conta.Dispose() + End If End Sub Private Sub ActualizarPrePoliza() @@ -2004,7 +2042,6 @@ Partial Class ContabilidadC_RegPrePolizaS If Rows.Count > 0 Then Dim dr As DataRow = Rows(0) - dr("ContadoTipoTransaccion") = DdlTipoTransaccion.SelectedValue.ToEntero dr("ContadoCuenta") = DdlCuenta.SelectedValue.ToEntero dr("ContadoNumeroFolio") = TxtDocumentoFolio.Text @@ -2012,9 +2049,33 @@ Partial Class ContabilidadC_RegPrePolizaS dr("ContadoBeneficiario") = TxtDocumentoBeneficiario.Text dr("ContadoObservaciones") = TxtDocumentoObservaciones.Text End If + DtMovimientos.AcceptChanges() + + If Not DtMovimientos.Columns.Contains("Cargo") Then + DtMovimientos.Columns.Add("Cargo", GetType(Decimal)) + DtMovimientos.Columns.Add("Abono", GetType(Decimal)) + End If + + Dim IndexX As Integer = 0 + For Each PGvRow As GridViewRow In GvMov.Rows + + If PGvRow.RowType = DataControlRowType.DataRow Then + + DtMovimientos.Rows(IndexX)("Cargo") = PGvRow.FCTextBox("TxtCargo").Text.ToDecimal + DtMovimientos.Rows(IndexX)("Abono") = PGvRow.FCTextBox("TxtAbono").Text.ToDecimal + + IndexX = IndexX + 1 + End If + Next + GvMov.DataSource = DtMovimientos GvMov.DataBind() + + + + + 'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero 'CveCuenta = DdlCuenta.SelectedValue.ToEntero 'Folio = TxtDocumentoFolio.Text @@ -2793,6 +2854,12 @@ Partial Class ContabilidadC_RegPrePolizaS End If + + If Not DtMovimientos.Columns.Contains("Cargo") Then + DtMovimientos.Columns.Add("Cargo", GetType(Decimal)) + DtMovimientos.Columns.Add("Abono", GetType(Decimal)) + End If + GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() 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..f3ffed8e0 100644 --- a/Contabilidad/RepOrigenAplicacion.aspx.vb +++ b/Contabilidad/RepOrigenAplicacion.aspx.vb @@ -84,11 +84,14 @@ Partial Class Contabilidad_RepOrigenAplicacion If UsuarioActual.Empresa.TipoContabilidad = 1 Then - TabMensual.Enabled = False - TabAnual.Enabled = False + TabMensual.Visible = False + TabAnual.Visible = False 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 @@ -
-
-
- -
-
- -
- - -
- - -
- -
- - - - - - - - - - - - - - -
+ + + +
+
+
+ +
+
+
+ +
+ + +
+ +
+ + + + + + + + + + + + + + +
+
+
- -
-
-
+ + + + + + + @@ -87,7 +93,9 @@ <%-- FechaMovto Mensaje CveIE CveCompra CveVenta CvePrePoliza FolioPoliza--%> - + diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index ad1698125..e34b0a8e5 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -1836,7 +1836,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 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("PorcentajeAcumulado") = "100.00" diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 1b2cda7de..771436235 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -931,7 +931,7 @@ calibri 8pt Normal - #,0.00;(#,0.00);'-' + #,0.00;(#,0.00) @@ -951,7 +951,6 @@ 2pt - true @@ -1811,31 +1810,28 @@ Normal + + - - =Parameters!Fecha.Value - - - - true - true - - - - - VERSION 3.3 - - - - - - - Textbox5 - 2.32303cm - 17.39754cm - 0.6cm - 3.32021cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - true 20.92547cm 0.13424cm - 2.97096cm + 2.25247cm 20.89818cm 42 @@ -3945,8 +3905,44 @@ + + true + true + + + + + VERSION 3.3 + + + + + + + Textbox5 + 23.28377cm + 17.70088cm + 0.6cm + 3.32021cm + 45 + + + 2pt + 2pt + 2pt + 2pt + + - 27.70336cm + 27.49699cm - Reparto de Utilidades + PTU @@ -88,11 +85,22 @@ + + + + + + + + + + + diff --git a/PV/PVRepCompras.aspx b/PV/PVRepCompras.aspx deleted file mode 100644 index 74c5ff043..000000000 --- a/PV/PVRepCompras.aspx +++ /dev/null @@ -1,180 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PVRepCompras.aspx.vb" Inherits="PV_PVRepCompras" %> - - - - - - - - -
  • - Imprimir - <%----%> -
    • -
  • - Generar - <%----%> -
    • -
  • - Personalizar - <%----%> -
    • -     -     - <%-- - - --%> -     - - Reporte de Compras - - - - - - -
    -
    -
    -
      -
    • Proveedor: - - - -
      • -
    • Responsable: - - - -
      • -
    • Moneda: - - - -
      • -
    -
    -
    - - - -
    -
    - -
    -     -     -
    - - - - - - -
     
    - - - - - Grupo - - - - - - - - - -     -     - - - - - -     - - diff --git a/PV/PVRepCompras.aspx.vb b/PV/PVRepCompras.aspx.vb deleted file mode 100644 index 667d6845b..000000000 --- a/PV/PVRepCompras.aspx.vb +++ /dev/null @@ -1,307 +0,0 @@ -Option Explicit On -Option Strict On - -Imports Extensiones -Imports System.Data - -Partial Class PV_PVRepCompras - Inherits ClsPaginas - -#Region "Propiedades" - 'Local - Private Property TmpDT As DataTable - Get - Return CType(ViewState("TmpDT"), DataTable) - End Get - Set(value As DataTable) - ViewState("TmpDT") = value - End Set - End Property -#End Region - - Protected Sub Page_Init(sender As Object, e As EventArgs) Handles Me.Init - CreaGrid() - End Sub - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - CargaCombos() - 'ImgPersonalizar.Attributes.Add("onclick", "javascript:$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") - End If - End Sub - - Private Sub CargaCombos() - 'CargaProveedores - 'Dim ObjProveedores As New ClsCompProveedores - 'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then - ' DdlProveedores.DataSource = ObjProveedores.DtResultados - 'Else - ' DdlProveedores.DataSource = Nothing - 'End If - 'ObjProveedores.Dispose() - DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedores.DataBind() - - 'CargaUsuarios - DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlUsuario.DataBind() - - DdlMonedas.DataSource = GlobalDTMonedas() - DdlMonedas.DataBind() - - End Sub - - Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click - CargaDatos() - UPDatos.Update() - End Sub - - Private Sub CreaGrid() - Dim TotalAncho As Integer = 150 - Dim TotalAnchoSucursal As Integer = 0 - Dim SucursalTitulo As String = "" - - TmpDT = New DataTable - TmpDT.Columns.Add("GPO", GetType(String)) - - Dim ObjCompras As New ClsPV() - - Dim FechaI, FechaF As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - If ObjCompras.GetRepPVCompras(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero) Then - Dim gv As New GridView - - For Each Col As DataColumn In ObjCompras.DtResultados.Columns - If Col.ColumnName.Split(CChar("_")).Length = 3 AndAlso Col.ColumnName.Substring(0, 2).ToUpper = "T_" Then - Dim Sucursal As String = Col.ColumnName.Split(CChar("_"))(1).ToUpper() - Dim Categoria As String = Col.ColumnName.Split(CChar("_"))(2).ToUpper() - - - Dim bfield As New TemplateField - ' Dim iTemplate As System.Web.UI.ITemplate - bfield.HeaderText = Categoria - 'bfield.FooterText = Row("CveEstatus").ToString - bfield.ItemStyle.HorizontalAlign = HorizontalAlign.Right - - If Sucursal = "TOTAL" Or Categoria = "TOTAL" Then - bfield.ItemStyle.Width = 97 - TotalAnchoSucursal = TotalAnchoSucursal + 100 - TotalAncho = TotalAncho + 100 - Else - bfield.ItemStyle.Width = 87 - TotalAnchoSucursal = TotalAnchoSucursal + 90 - TotalAncho = TotalAncho + 90 - End If - - bfield.ItemTemplate = New GridViewTemplate(ListItemType.Item, Col.ColumnName) - gv.Columns.Add(bfield) - - TmpDT.Columns.Add(Col.ColumnName, GetType(Integer)) - - If SucursalTitulo <> Sucursal And Categoria.ToUpper = "TOTAL" Then - SucursalTitulo = Sucursal - Dim Celda As New HtmlTableCell() - Celda.InnerText = SucursalTitulo - Celda.Attributes.Add("class", "Titulos") - Celda.Attributes.Add("style", "border-width: 1px;border-right-style: solid;") - Celda.Width = TotalAnchoSucursal.ToString - tblSucursales.Rows(0).Cells.Add(Celda) - TotalAnchoSucursal = 0 - End If - End If - Next - - For Each Columna In gv.Columns - GvDatos.Columns.Add(CType(Columna, DataControlField)) - Next - GvDatos.Width = TotalAncho - Else - GvDatos.DataSource = Nothing - End If - ObjCompras.Dispose() - UPDatos.Update() - End Sub - - Private Sub CargaDatos() - Dim ObjCompras As New ClsPV() - - Dim FechaI, FechaF As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - 'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero - If ObjCompras.GetRepPVCompras(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero) Then - GvDatos.DataSource = ObjCompras.DtResultados - tblSucursales.Visible = True - Else - GvDatos.DataSource = Nothing - End If - ObjCompras.Dispose() - GvDatos.DataBind() - - End Sub - - Public Class GridViewTemplate - Implements ITemplate - 'A variable to hold the type of ListItemType. - Private _templateType As ListItemType - - 'A variable to hold the column name. - Private _columnName As String - - 'Constructor where we define the template type and column name. - Public Sub New(type As ListItemType, colname As String) - 'Stores the template type. - _templateType = type - - 'Stores the column name. - _columnName = colname - End Sub - - Private Sub ITemplate_InstantiateIn(container As System.Web.UI.Control) Implements ITemplate.InstantiateIn - Select Case _templateType - Case ListItemType.Header - 'Creates a new label control and add it to the container. - Dim lbl As New Label() - 'Allocates the new label object. - lbl.Text = _columnName - 'Assigns the name of the column in the lable. - container.Controls.Add(lbl) - 'Adds the newly created label control to the container. - Exit Select - - Case ListItemType.Item - 'Creates a new text box control and add it to the container. - Dim ltl1 As New Literal - - ltl1.ID = String.Format("ltl{0}", _columnName) - AddHandler ltl1.DataBinding, AddressOf ltl_DataBinding - - 'Creates a column with size 4. - container.Controls.Add(ltl1) - 'Adds the newly created textbox to the container. - Exit Select - - Case ListItemType.EditItem - 'As, I am not using any EditItem, I didnot added any code here. - Exit Select - - Case ListItemType.Footer - Dim chkColumn As New CheckBox() - chkColumn.ID = Convert.ToString("Chk") & _columnName - container.Controls.Add(chkColumn) - Exit Select - End Select - End Sub - - Private Sub hdn_DataBinding(sender As Object, e As EventArgs) - Dim hidden As HiddenField = DirectCast(sender, HiddenField) - Dim row As GridViewRow = DirectCast(hidden.NamingContainer, GridViewRow) - Dim value As String = DataBinder.Eval(row.DataItem, _columnName).ToString() - hidden.Value = If(value Is Nothing OrElse value = String.Empty, "-1", value) - End Sub - - Private Sub ltl_DataBinding(sender As Object, e As EventArgs) - Dim ltl As Literal = DirectCast(sender, Literal) - Dim row As GridViewRow = DirectCast(ltl.NamingContainer, GridViewRow) - Dim celda As DataControlFieldCell = DirectCast(ltl.Parent, DataControlFieldCell) - Dim value As String = DataBinder.Eval(row.DataItem, _columnName).ToString() - ltl.Text = value.FormatoNumero - End Sub - - ''' - ''' This is the event, which will be raised when the binding happens. - ''' - ''' - ''' - Private Sub tb1_DataBinding(sender As Object, e As EventArgs) - Dim txtdata As TextBox = DirectCast(sender, TextBox) - Dim container As GridViewRow = DirectCast(txtdata.NamingContainer, GridViewRow) - Dim dataValue As Object = DataBinder.Eval(container.DataItem, _columnName) - If dataValue Is DBNull.Value Then - txtdata.Text = dataValue.ToString() - End If - End Sub - End Class - - Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - Dim Css As String = "Texto" - If e.Row.RowIndex = 0 Then - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - e.Row.CssClass = "Totales" - Css = "Totales" - End If - - 'If e.Row.DBCampo("Orden") = "" Then - ' e.Row.BackColor = Drawing.Color.LightGray - 'End If - - Dim FechaI, FechaF As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - - Dim Liga As String = String.Format("/Compras/RepComprasDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&FechaI={7}&FechaF={8}&CveMoneda={9}", - DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), FechaI, FechaF, e.Row.DBCampo("CveMoneda")) - - e.Row.FCLiteral("LtlGrupo").Text = String.Format("{2}", Css, Liga, e.Row.FCLiteral("LtlGrupo").Text) - End If - End Sub - - Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkRetIVA.Checked Then - GvDatos.Columns(6).Visible = True - Else - GvDatos.Columns(6).Visible = False - End If - - If ChkRetISR.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkMinSub.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkAVGSub.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkMaxSub.Checked Then - GvDatos.Columns(11).Visible = True - Else - GvDatos.Columns(11).Visible = False - End If - - If ChkMinTot.Checked Then - GvDatos.Columns(12).Visible = True - Else - GvDatos.Columns(12).Visible = False - End If - - If ChkAvgTot.Checked Then - GvDatos.Columns(13).Visible = True - Else - GvDatos.Columns(13).Visible = False - End If - - If ChkMaxTot.Checked Then - GvDatos.Columns(14).Visible = True - Else - GvDatos.Columns(14).Visible = False - End If - - UPDatos.Update() - End Sub - - Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click - GvDatos.ExportToExcel("ReporteCompras" & Now.ToShortDateString) - End Sub - -End Class diff --git a/PV/PVRepVentas.aspx b/PV/PVRepVentas.aspx deleted file mode 100644 index b443b2a01..000000000 --- a/PV/PVRepVentas.aspx +++ /dev/null @@ -1,229 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PVRepVentas.aspx.vb" Inherits="PV_PVRepVentas" %> - - - - - - - - -
  • - Imprimir - <%----%> -
    • -
  • - Generar - <%----%> -
    • -
  • - Personalizar - <%----%> -
    • -     -     - <%-- - - --%> -     - - Reporte de Ventas - - - - - - -
    -
    -
    -
      -
    • Cliente: - - - -
      • -
    • Sucursal: - - - -
      • -
    • Vendedor: - - - -
      • -
    • Usuario: - - - -
      • -
    -
    -
    - - - -
    -
    - -
    -     -     -
    -
    -
    - - - - - - -
     
    - - - - - Grupo - - - - - - - - - -     -     - - - - - -
    -
    -     - - diff --git a/PV/PVRepVentas.aspx.vb b/PV/PVRepVentas.aspx.vb deleted file mode 100644 index cc0205015..000000000 --- a/PV/PVRepVentas.aspx.vb +++ /dev/null @@ -1,365 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports Extensiones - -Partial Class PV_PVRepVentas - Inherits ClsPaginas - -#Region "Propiedades" - 'Local - Private Property TmpDT As DataTable - Get - Return CType(ViewState("TmpDT"), DataTable) - End Get - Set(value As DataTable) - ViewState("TmpDT") = value - End Set - End Property -#End Region - - Protected Sub Page_Init(sender As Object, e As EventArgs) Handles Me.Init - CreaGrid() - End Sub - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - ' If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") - CargaCombos() - 'ImgPersonalizar.Attributes.Add("onclick", "javascript:$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") - End If - End Sub - - Private Sub CargaCombos() - 'CargaClientes - Dim ObjClientes As New ClsClientes - If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - DdlClientes.DataSource = ObjClientes.DtResultados - Else - DdlClientes.DataSource = Nothing - End If - ObjClientes.Dispose() - DdlClientes.DataBind() - - 'CargaSucursales - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() - DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlSubProyectoEjecucion.DataBind() - - 'Vendedor - - 'CargaUsuarios - DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlUsuario.DataBind() - - 'CargaEstatus - DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(" CveEstatusFactura NOT IN (1, 4, 5) ") - DdlEstatus.DataBind() - DdlEstatus.Items.Add(New ListItem("Canceladas", "4")) - 'If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then - ' DdlEstatus.SelectedIndex = 2 - 'Else - DdlEstatus.SelectedIndex = 1 - 'End If - End Sub - - Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click - CargaDatos() - ConfiguraEmpresa() - UPDatos.Update() - End Sub - - Private Sub CreaGrid() - Dim TotalAncho As Integer = 150 - Dim TotalAnchoSucursal As Integer = 0 - Dim SucursalTitulo As String = "" - - TmpDT = New DataTable - TmpDT.Columns.Add("GPO", GetType(String)) - - Dim ObjVentas As New ClsPV() - - Dim FechaI, FechaF, FechaIEjec, FechaFEjec As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1") - FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1") - If ObjVentas.GetRepPVVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue, - DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero) Then - Dim gv As New GridView - - For Each Col As DataColumn In ObjVentas.DtResultados.Columns - If Col.ColumnName.Split(CChar("_")).Length >= 3 AndAlso Col.ColumnName.Substring(0, 2).ToUpper = "T_" Then - Dim Sucursal As String = Col.ColumnName.Split(CChar("_"))(1).ToUpper() - Dim Categoria As String = Col.ColumnName.Split(CChar("_"))(2).ToUpper() - ' Dim CveSucursal As Integer = Col.ColumnName.Split(CChar("_"))(3).ToEntero - - - Dim bfield As New TemplateField - ' Dim iTemplate As System.Web.UI.ITemplate - bfield.HeaderText = Categoria - 'bfield.FooterText = Row("CveEstatus").ToString - bfield.ItemStyle.HorizontalAlign = HorizontalAlign.Right - - If Sucursal = "TOTAL" Or Categoria = "TOTAL" Then - bfield.ItemStyle.Width = 97 - TotalAnchoSucursal = TotalAnchoSucursal + 100 - TotalAncho = TotalAncho + 100 - Else - bfield.ItemStyle.Width = 87 - TotalAnchoSucursal = TotalAnchoSucursal + 90 - TotalAncho = TotalAncho + 90 - End If - - bfield.ItemTemplate = New GridViewTemplate(ListItemType.Item, Col.ColumnName) - ' bfield.ItemTemplate - gv.Columns.Add(bfield) - - TmpDT.Columns.Add(Col.ColumnName, GetType(Integer)) - - If SucursalTitulo <> Sucursal And Categoria.ToUpper = "TOTAL" Then - SucursalTitulo = Sucursal - Dim Celda As New HtmlTableCell() - 'Celda.InnerHtml = String.Format("{0}", SucursalTitulo) - Celda.InnerText = SucursalTitulo - 'Celda.BorderColor = "White" - 'Celda.BgColor = "Gray" - Celda.Attributes.Add("class", "Titulos") - Celda.Attributes.Add("style", "border-width: 1px;border-right-style: solid;") - Celda.Width = TotalAnchoSucursal.ToString - tblSucursales.Rows(0).Cells.Add(Celda) - TotalAnchoSucursal = 0 - End If - End If - Next - - For Each Columna In gv.Columns - GvDatos.Columns.Add(CType(Columna, DataControlField)) - Next - GvDatos.Width = TotalAncho - Else - GvDatos.DataSource = Nothing - End If - ObjVentas.Dispose() - UPDatos.Update() - End Sub - - Private Sub CargaDatos() - Dim ObjVentas As New ClsPV() - - Dim FechaI, FechaF, FechaIEjec, FechaFEjec As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1") - FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1") - If ObjVentas.GetRepPVVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue, - DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero) Then - GvDatos.DataSource = ObjVentas.DtResultados - tblSucursales.Visible = True - Else - GvDatos.DataSource = Nothing - End If - ObjVentas.Dispose() - GvDatos.DataBind() - - End Sub - - Private Sub ConfiguraEmpresa() - 'If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(6).Visible = False - 'If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(7).Visible = False - End Sub - - Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkRetIVA.Checked Then - GvDatos.Columns(6).Visible = True - Else - GvDatos.Columns(6).Visible = False - End If - - If ChkRetISR.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkMinSub.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkAVGSub.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkMaxSub.Checked Then - GvDatos.Columns(11).Visible = True - Else - GvDatos.Columns(11).Visible = False - End If - - If ChkMinTot.Checked Then - GvDatos.Columns(12).Visible = True - Else - GvDatos.Columns(12).Visible = False - End If - - If ChkAvgTot.Checked Then - GvDatos.Columns(13).Visible = True - Else - GvDatos.Columns(13).Visible = False - End If - - If ChkMaxTot.Checked Then - GvDatos.Columns(14).Visible = True - Else - GvDatos.Columns(14).Visible = False - End If - - UPDatos.Update() - End Sub - - Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click - GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString) - End Sub - - - 'Region "TEMPLATE" - Public Class GridViewTemplate - Implements ITemplate - 'A variable to hold the type of ListItemType. - Private _templateType As ListItemType - - 'A variable to hold the column name. - Private _columnName As String - - - 'Constructor where we define the template type and column name. - Public Sub New(type As ListItemType, colname As String) - 'Stores the template type. - _templateType = type - - 'Stores the column name. - _columnName = colname - - End Sub - - Private Sub ITemplate_InstantiateIn(container As System.Web.UI.Control) Implements ITemplate.InstantiateIn - Select Case _templateType - Case ListItemType.Header - 'Creates a new label control and add it to the container. - Dim lbl As New Label() - 'Allocates the new label object. - lbl.Text = _columnName - 'Assigns the name of the column in the lable. - container.Controls.Add(lbl) - 'Adds the newly created label control to the container. - Exit Select - - Case ListItemType.Item - 'Creates a new text box control and add it to the container. - Dim ltl1 As New Literal - ltl1.ID = String.Format("ltl{0}", _columnName) - AddHandler ltl1.DataBinding, AddressOf ltl_DataBinding - - 'AddHandler hdn1.DataBinding, AddressOf hdn_DataBinding - - 'Creates a column with size 4. - container.Controls.Add(ltl1) - 'Adds the newly created textbox to the container. - Exit Select - - Case ListItemType.EditItem - 'As, I am not using any EditItem, I didnot added any code here. - Exit Select - - Case ListItemType.Footer - Dim chkColumn As New CheckBox() - chkColumn.ID = Convert.ToString("Chk") & _columnName - container.Controls.Add(chkColumn) - Exit Select - End Select - End Sub - - Private Sub hdn_DataBinding(sender As Object, e As EventArgs) - Dim hidden As HiddenField = DirectCast(sender, HiddenField) - Dim row As GridViewRow = DirectCast(hidden.NamingContainer, GridViewRow) - Dim value As String = DataBinder.Eval(row.DataItem, _columnName).ToString() - hidden.Value = If(value Is Nothing OrElse value = String.Empty, "-1", value) - End Sub - - Private Sub ltl_DataBinding(sender As Object, e As EventArgs) - Dim ltl As Literal = DirectCast(sender, Literal) - Dim row As GridViewRow = DirectCast(ltl.NamingContainer, GridViewRow) - Dim celda As DataControlFieldCell = DirectCast(ltl.Parent, DataControlFieldCell) - Dim value As String = DataBinder.Eval(row.DataItem, _columnName).ToString() - ltl.Text = value.FormatoNumero - End Sub - - ''' - ''' This is the event, which will be raised when the binding happens. - ''' - ''' - ''' - Private Sub tb1_DataBinding(sender As Object, e As EventArgs) - Dim txtdata As TextBox = DirectCast(sender, TextBox) - Dim container As GridViewRow = DirectCast(txtdata.NamingContainer, GridViewRow) - Dim dataValue As Object = DataBinder.Eval(container.DataItem, _columnName) - If dataValue Is DBNull.Value Then - txtdata.Text = dataValue.ToString() - End If - End Sub - End Class - - Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - Dim Css As String = "Texto" - If e.Row.RowIndex = 0 Then - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - ' e.Row.Cells(0).Width = Unit.Pixel(150) - e.Row.CssClass = "Totales" - Css = "Totales" - End If - - Dim FechaI, FechaF As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - - Dim Liga As String = String.Format("/Ventas/RepVentaDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSucursal={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&FechaI={10}&FechaF={11}&IVA={12}&CveCorte={13}", - 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("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("GPO_IVA"), e.Row.DBCampo("CveCorte")) - - e.Row.FCLiteral("LtlGrupo").Text = "" & e.Row.FCLiteral("LtlGrupo").Text & "" - 'e.Row.FCLiteral("LtlCantidad").Text = "" & e.Row.FCLiteral("LtlCantidad").Text & "" - - For Each Col As DataColumn In DirectCast(e.Row.DataItem, System.Data.DataRowView).Row.Table.Columns - If Col.ColumnName.Split(CChar("_")).Count = 4 Then - Dim CveSubProyecto As Integer = Col.ColumnName.Split(CChar("_"))(3).ToEntero - Liga = String.Format("/Ventas/RepVentaDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente={5}&CveSucursal={6}&Vendedor={7}&CveUsuario={8}&CveEstatusFactura={9}&FechaI={10}&FechaF={11}&IVA={12}&CveCorte={13}", - DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveCliente"), CveSubProyecto, - e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("GPO_IVA"), e.Row.DBCampo("CveCorte")) - - e.Row.FCLiteral(String.Format("ltl{0}", Col.ColumnName)).Text = "" & e.Row.FCLiteral(String.Format("ltl{0}", Col.ColumnName)).Text & "" - End If - Next - - 'If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "" - 'If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = "" - 'If e.Row.DBCampo("Amortizacion").ToDouble = 0 Then e.Row.FCLiteral("LtlAmortizacion").Text = "" - 'If e.Row.DBCampo("IVA").ToDouble = 0 Then e.Row.FCLiteral("LtlIVA").Text = "" - 'If e.Row.DBCampo("RetIVA").ToDouble = 0 Then e.Row.FCLiteral("LtlRetIVA").Text = "" - 'If e.Row.DBCampo("RetISR").ToDouble = 0 Then e.Row.FCLiteral("LtlRetISR").Text = "" - 'If e.Row.DBCampo("Total").ToDouble = 0 Then e.Row.FCLiteral("LtlTotal").Text = "" - 'If e.Row.DBCampo("MAX_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlMaxSubTotal").Text = "" - 'If e.Row.DBCampo("AVG_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGSubTotal").Text = "" - 'If e.Row.DBCampo("MIN_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlMinSubTotal").Text = "" - 'If e.Row.DBCampo("MAX_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlMaxTotal").Text = "" - 'If e.Row.DBCampo("AVG_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGTotal").Text = "" - 'If e.Row.DBCampo("MIN_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlMinTotal").Text = "" - End If - End Sub -End Class diff --git a/PV/PVRepVentasCompras.aspx b/PV/PVRepVentasCompras.aspx deleted file mode 100644 index 22e249b8d..000000000 --- a/PV/PVRepVentasCompras.aspx +++ /dev/null @@ -1,164 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PVRepVentasCompras.aspx.vb" Inherits="PV_PVRepVentasCompras" %> - - - - - - - - - - - - Reporte de Ventas y Compras - - - - - - -
    -
    -
    -
      -
    • Sucursal - - - -
      • -
    • Fecha Inicial: - -   - - - - - - -
      • -
    • Fecha Final: - -   - - - - - - -
      • -
    • Grupo: - - - - - - - - -
      • -
    -
    -
    - -
    -
    -
    -     -     -
    - - - - - - -
     
    - - - - - Grupo - - - - - - - - Ventas - - - - - - - - - Compras - - - - - - - - - - -     -     - - - - - -     - - diff --git a/PV/PVRepVentasCompras.aspx.vb b/PV/PVRepVentasCompras.aspx.vb deleted file mode 100644 index c26b12cc3..000000000 --- a/PV/PVRepVentasCompras.aspx.vb +++ /dev/null @@ -1,238 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports Extensiones - -Partial Class PV_PVRepVentasCompras - Inherits ClsPaginas - -#Region "Propiedades" - 'Local - Private Property TmpDT As DataTable - Get - Return CType(ViewState("TmpDT"), DataTable) - End Get - Set(value As DataTable) - ViewState("TmpDT") = value - End Set - End Property -#End Region - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - ' If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") - CargaCombos() - ImgPersonalizar.Attributes.Add("onclick", "javascript:$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") - End If - End Sub - - Private Sub CargaCombos() - 'CargaSucursales - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() - End Sub - - Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click - CargaDatos() - ConfiguraEmpresa() - UPDatos.Update() - End Sub - - Private Sub CargaDatos() - Dim ObjVentas As New ClsPV() - - Dim FechaI, FechaF As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - - If ObjVentas.GetRepPVVentasCompras(FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero) Then - GvDatos.DataSource = ObjVentas.DtResultados - tblSucursales.Visible = True - Else - GvDatos.DataSource = Nothing - End If - ObjVentas.Dispose() - GvDatos.DataBind() - - End Sub - - Private Sub ConfiguraEmpresa() - 'If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(6).Visible = False - 'If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(7).Visible = False - End Sub - - Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkRetIVA.Checked Then - GvDatos.Columns(6).Visible = True - Else - GvDatos.Columns(6).Visible = False - End If - - If ChkRetISR.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkMinSub.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkAVGSub.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkMaxSub.Checked Then - GvDatos.Columns(11).Visible = True - Else - GvDatos.Columns(11).Visible = False - End If - - If ChkMinTot.Checked Then - GvDatos.Columns(12).Visible = True - Else - GvDatos.Columns(12).Visible = False - End If - - If ChkAvgTot.Checked Then - GvDatos.Columns(13).Visible = True - Else - GvDatos.Columns(13).Visible = False - End If - - If ChkMaxTot.Checked Then - GvDatos.Columns(14).Visible = True - Else - GvDatos.Columns(14).Visible = False - End If - - UPDatos.Update() - End Sub - - Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click - GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString) - End Sub - - - 'Region "TEMPLATE" - Public Class GridViewTemplate - Implements ITemplate - 'A variable to hold the type of ListItemType. - Private _templateType As ListItemType - - 'A variable to hold the column name. - Private _columnName As String - - - 'Constructor where we define the template type and column name. - Public Sub New(type As ListItemType, colname As String) - 'Stores the template type. - _templateType = type - - 'Stores the column name. - _columnName = colname - - End Sub - - Private Sub ITemplate_InstantiateIn(container As System.Web.UI.Control) Implements ITemplate.InstantiateIn - Select Case _templateType - Case ListItemType.Header - 'Creates a new label control and add it to the container. - Dim lbl As New Label() - 'Allocates the new label object. - lbl.Text = _columnName - 'Assigns the name of the column in the lable. - container.Controls.Add(lbl) - 'Adds the newly created label control to the container. - Exit Select - - Case ListItemType.Item - 'Creates a new text box control and add it to the container. - Dim ltl1 As New Literal - ltl1.ID = String.Format("ltl{0}", _columnName) - AddHandler ltl1.DataBinding, AddressOf ltl_DataBinding - - 'AddHandler hdn1.DataBinding, AddressOf hdn_DataBinding - - 'Creates a column with size 4. - container.Controls.Add(ltl1) - 'Adds the newly created textbox to the container. - Exit Select - - Case ListItemType.EditItem - 'As, I am not using any EditItem, I didnot added any code here. - Exit Select - - Case ListItemType.Footer - Dim chkColumn As New CheckBox() - chkColumn.ID = Convert.ToString("Chk") & _columnName - container.Controls.Add(chkColumn) - Exit Select - End Select - End Sub - - Private Sub hdn_DataBinding(sender As Object, e As EventArgs) - Dim hidden As HiddenField = DirectCast(sender, HiddenField) - Dim row As GridViewRow = DirectCast(hidden.NamingContainer, GridViewRow) - Dim value As String = DataBinder.Eval(row.DataItem, _columnName).ToString() - hidden.Value = If(value Is Nothing OrElse value = String.Empty, "-1", value) - End Sub - - Private Sub ltl_DataBinding(sender As Object, e As EventArgs) - Dim ltl As Literal = DirectCast(sender, Literal) - Dim row As GridViewRow = DirectCast(ltl.NamingContainer, GridViewRow) - Dim celda As DataControlFieldCell = DirectCast(ltl.Parent, DataControlFieldCell) - Dim value As String = DataBinder.Eval(row.DataItem, _columnName).ToString() - ltl.Text = value.FormatoNumero - End Sub - - ''' - ''' This is the event, which will be raised when the binding happens. - ''' - ''' - ''' - Private Sub tb1_DataBinding(sender As Object, e As EventArgs) - Dim txtdata As TextBox = DirectCast(sender, TextBox) - Dim container As GridViewRow = DirectCast(txtdata.NamingContainer, GridViewRow) - Dim dataValue As Object = DataBinder.Eval(container.DataItem, _columnName) - If dataValue Is DBNull.Value Then - txtdata.Text = dataValue.ToString() - End If - End Sub - End Class - - Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - Dim Css As String = "Texto" - If e.Row.RowIndex = 0 Then - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(0).Width = Unit.Pixel(150) - e.Row.Cells(1).Width = Unit.Pixel(100) - e.Row.Cells(2).Width = Unit.Pixel(100) - - e.Row.CssClass = "Totales" - - - Css = "Totales" - End If - - Dim FechaI, FechaF As String - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") - - Dim LigaV As String = String.Format("/Ventas/RepVentaDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveCliente=-1&CveSucursal={5}&Vendedor=-1&CveUsuario=-1&CveEstatusFactura=-1&FechaI={6}&FechaF={7}&IVA=-1&CveCorte=-1", - DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveSucursal"), FechaI, FechaF) - Dim LigaC As String = String.Format("/Compras/RepComprasDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor=-1&CveUsuario=-1&FechaI={5}&FechaF={6}", - DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), FechaI, FechaF) - - e.Row.FCLiteral("LtlVentas").Text = "" & e.Row.FCLiteral("LtlVentas").Text & "" - e.Row.FCLiteral("LtlCompras").Text = String.Format("{2}", Css, LigaC, e.Row.FCLiteral("LtlCompras").Text) - End If - End Sub -End Class -