diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 2a6016ebd..dcb5e33bb 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1472,7 +1472,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional CveMarca As Integer = -1) As Boolean + Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional Marcas As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") @@ -1491,7 +1491,7 @@ Public Class ClsInventarios .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias .Add("@Orden", SqlDbType.Int).Value = Orden - .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@Marcas", SqlDbType.VarChar).Value = Marcas End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 114ccffa6..3a91601be 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3963,7 +3963,7 @@ Public Class ClsVentas #End Region - Public Function RepIngresos(CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, TipoDocto As String, Cves_Subprotectos As String) As Boolean + Public Function RepIngresos(CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, TipoDocto As String, Cves_Subprotectos As String, Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Ventas_RepIngresos", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters @@ -3972,6 +3972,8 @@ Public Class ClsVentas .Add("@TipoDoc", SqlDbType.VarChar).Value = TipoDocto .Add("@Cves_Subprotectos", SqlDbType.VarChar).Value = Cves_Subprotectos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio + .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico End With Try SqlAdapter.Fill(Data) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 6699f469a..a137a7432 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -3295,6 +3295,7 @@ Partial Class Bancos_IE Else ObjIE.RollBack() + Alert(MsgError, TipoMensaje.MsgAdvertencia) End If If Msg.ToString <> "" Then @@ -3331,6 +3332,7 @@ Partial Class Bancos_IE End If End If + Msg.Clear() RecargaGlobalCuentasBancarias() ObjIE.Dispose() ObjMov.Dispose() @@ -4905,6 +4907,16 @@ Partial Class Bancos_IE CveEventoPrincipal = ObjOI.CveEvento End If + If CveEvento = 0 Then + ObjOI.Dispose() + Return "Ocurrió un error al obtener el evento relacionado" + End If + + If CveEventoPrincipal = 0 Then + ObjOI.Dispose() + Return "Ocurrió un error al obtener el evento relacionado ppal." + End If + If Not ObjOI.UpdateEstatusEvento(3, -1, CveEvento, UsuarioActual.CveUsuario) Then ObjOI.Dispose() Return "Ocurrió un error al actualizar el estatus de anticipo de la OC/REQ. Por favor actualice y vuelva a intentar." diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 116d4501f..887e726ba 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -57,13 +57,6 @@ - <%-- - -
- -
- - --%> @@ -74,7 +67,7 @@ "> - +<%-- --%>
@@ -121,14 +114,6 @@
- <%--
> -
-
Moneda:
-
- -
-
-
--%> @@ -164,8 +149,6 @@ - - @@ -175,9 +158,6 @@ - - - @@ -392,10 +372,10 @@ return false; } - function PlaySound() { - var sound = document.getElementById("audio"); - sound.play() - } + //function PlaySound() { + // var sound = document.getElementById("audio"); + // sound.play() + //} function FechaGeneral(lnk, FechaDocumento) { debugger; diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 95c0d7ad0..6bd36841f 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -79,9 +79,9 @@ Partial Class Bancos_RepCortes UPDatos.Update() End If ObjPuntoVenta.Dispose() - End Sub + End Sub #End Region - + #Region "G V - D A T O S " Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -89,30 +89,48 @@ Partial Class Bancos_RepCortes e.Row.CssClass = "SubTotales2" End If End If - End Sub - - 'Protected Sub GvD_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvD.RowCommand - ' If e.CommandArgument.ToString.ToEntero > 0 Then - - - ' End If - - ' Dim Vent As New ClsPuntoVenta - ' If Vent.GetCortesDetalleVentas(16200, 61) Then - ' Alert(Vent.DtResultados.Rows.Count.ToString) - ' GvD.DataSource = Vent.DtResultados - ' GvD.DataBind() - ' 'RegistraScript("$get") - ' divDetalle.Visible = True - ' End If - - ' Vent.Dispose() - - 'End Sub + End Sub + Protected Sub GvP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvP.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("MetodoPago").ToString = "Total" Then + e.Row.CssClass = "SubTotales" + End If + End If + End Sub + + Protected Sub GvD_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvD.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CveVenta").ToString = "" Then + e.Row.CssClass = "Totales" + End If + End If + End Sub + + + + + 'Protected Sub GvD_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvD.RowCommand + ' If e.CommandArgument.ToString.ToEntero > 0 Then + + + ' End If + + ' Dim Vent As New ClsPuntoVenta + ' If Vent.GetCortesDetalleVentas(16200, 61) Then + ' Alert(Vent.DtResultados.Rows.Count.ToString) + ' GvD.DataSource = Vent.DtResultados + ' GvD.DataBind() + ' 'RegistraScript("$get") + ' divDetalle.Visible = True + ' End If + + ' Vent.Dispose() + + 'End Sub #End Region - + #Region "BOTONES" - + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() End Sub diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index 992beb0e6..f51a57272 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -75,9 +75,8 @@
Proveedor:
- - - + +
Clasificaciones:
@@ -395,7 +394,7 @@ - + @@ -423,7 +422,7 @@ - + diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 1627468e6..d35433c2c 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -234,12 +234,18 @@ Partial Class RepCxPDetalle #Region "CARGAS" Private Sub CargaCombos() - DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedores.DataBind() - Dim Proveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero + CargaProveedores() + Dim CveProveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero + + DdlProveedores.SelectedValue = CveProveedor + Me.CveProveedor = CveProveedor + + If DdlProveedores.SelectedValue.ToEntero > 0 Then + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString + Else + DdlProveedores.SelectedText = "-" + End If - DdlProveedores.SelectedValueExist(Proveedor) - CveProveedor = Proveedor CveProveedorClasificacion = IfNull(Request("CveProveedorClasificacion"), -1).ToString.ToEntero Dim ProveedorClasificacion As Integer = IfNull(Request("CveProveedorClasificacion"), -1).ToString.ToEntero @@ -447,12 +453,26 @@ Partial Class RepCxPDetalle 'End If 'End If 'ObjEmpresa.Dispose() - End Sub - + End Sub + #End Region - + + Private Sub CargaProveedores() + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Seleccione" + DdlProveedores.SelectedValue = "-1" + Else + DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedores.DataBind() + DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + + End Sub + #Region "GRIDVIEW" - + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -659,7 +679,7 @@ Partial Class RepCxPDetalle params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) 'PARA REPORTE Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}") - Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $" Proveedor: {DdlProveedores.SelectedItem.Text}") + Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $" Proveedor: {DdlProveedores.SelectedText}") Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $" Grupo: {DdlGrupo.SelectedItem.Text}") Dim FechaIn As String = If(txtFechaI.Text = "", "", $" Fecha Inicio: {txtFechaI.Text}") Dim FechaFn As String = If(txtFechaF.Text = "", "", $" Fecha Fin: {txtFechaF.Text}") diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index dea3762d5..f6675b947 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -550,11 +550,9 @@
- - - + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index f68fe8254..9b8cfecce 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2838,24 +2838,21 @@ Partial Class Compras_eFacturas BtnVincularPago.Visible = False End If + For Each GvRowF As GridViewRow In GVPDocumentosRelacionadosPagos.Rows - - - For Each drow As DataRow In ObjCompras.DtResultados.FiltraParametros("CveIE > 0 AND FechaDocumento IS NOT NULL", "", {"FechaDocumento"}).Rows - - Dim FechaDocumento As Date = drow("FechaDocumento").ToString.ToDate + Dim FechaDocumento As Date = GvRowF.DataKey("FechaPago").ToString.ToDate + Dim FechaDoRecibo As Date = GvRowF.DataKey("Fecha").ToString.ToDate Dim FT1 As Date = FechaDocumento.AddDays(-6) Dim FT2 As Date = FechaDocumento.AddDays(7) - If Not (FechaPago >= FT1 And FechaPago < FT2) Then + If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then BtnVincularPago.Visible = False MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. " Exit For End If - Next If MSGComplemento.Trim.Length > 0 Then diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 755a29f7a..62c309b16 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -213,7 +213,7 @@ Partial Class AC2_RepAnexoCatalogo CargaGrid() Else DtDatos = Nothing - Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError) + Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo.", TipoMensaje.MsgError) End If ObjConta.Dispose() diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9fa13cac4..ffcf00fcc 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -629,7 +629,7 @@ Partial Class Inventarios_EntradasSalidas End If If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then - Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) + Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) If dr IsNot Nothing Then DdlAlmacen.Items.Insert(0, New ListItem(dr("Almacen").ToString, dr("CveAlmacen").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString DdlAlmacen.Enabled = False diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index f7338501b..f72ee33b9 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -1,254 +1,256 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacen" %> - - - - - - - - - - Kardex Almacén Horizontal - - - - - - -
  • - Generar Excel -
    • -     - - - - - - - -
    -
    -
    - - "> - -
    -
    -
    -
    Proveedor
    -
    - -
    - -
    - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    -
    -
    - - - - -
    - - -
    -
    - -
    - - - - -
    -
    -
    -
    -
    > -
    - -
    - - - -
    - -
    - - - -
    - -
    - -
    - -
    - - - -
    - -
    - - - - - - <%----%> -
    -
    - - -
    - - - - - - -
    -     -
    -
    -     -     -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - + +
    - - - -
    -
    - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacen" %> + + + + + + + + + + Kardex Almacén Horizontal + + + + + + +
  • + Generar Excel +
    • +     + + + + + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Proveedor
    +
    + +
    + +
    + +
    + +
    +
    +
    + + + + +
    + + +
    +
    + +
    + + + + +
    +
    +
    +
    +
    > +
    + +
    + + + +
    + +
    + + + +
    + +
    + +
    + +
    + + + +
    + +
    + + + + + + <%----%> +
    +
    + + +
    + + + + + + +
    +
    +
    + +
    + + + +
    +
    +
    +     +
    +
    +     +     +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + - -
    + + + +
    +
    + + + + + + Código - - -
    - -
    -     -     - - + + + +
    + +
    +     +     + + Producto - - -
    - -
    -     -     -     -     -     -     -
    -     - - - + +     + +
    + +
    +     +     +     +     +     +     +
    +     + + + diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index f3ca82ff8..2b5325e8f 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -22,9 +22,6 @@ Partial Class Inventarios_KardexAlmacen ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1") End If End Sub - Private Function isWithFamily() As Boolean - Return (UsuarioActual.CveEmpresa = 66) - End Function Private Sub CargaCombos() CargaFuncionalidad105() @@ -55,25 +52,21 @@ Partial Class Inventarios_KardexAlmacen End Sub Private Sub CargaClasificaciones() - Dim CveClasificacion = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1") - - If isWithFamily() Then - DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") - Else - Dim ObjClasificaciones As New ClsClasificaciones - If UsuarioActual.Empresa.UsaAC Then - If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then - DdlClasificacion.DataSource = ObjClasificaciones.DtResultados - DdlClasificacion.DataBind() - End If - Else - If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then - DdlClasificacion.DataSource = ObjClasificaciones.DtResultados - DdlClasificacion.DataBind() - End If - End If - ObjClasificaciones.Dispose() - End If + Dim CveClasificacion = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1") + + Dim ObjClasificaciones As New ClsClasificaciones + If UsuarioActual.Empresa.UsaAC Then + If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then + DdlClasificacion.DataSource = ObjClasificaciones.DtResultados + DdlClasificacion.DataBind() + End If + Else + If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then + DdlClasificacion.DataSource = ObjClasificaciones.DtResultados + DdlClasificacion.DataBind() + End If + End If + ObjClasificaciones.Dispose() DdlClasificacion.DataBind() DdlClasificacion.SelectedValueExist(CveClasificacion) @@ -139,8 +132,9 @@ Partial Class Inventarios_KardexAlmacen Dim FechaF As Date = TxtFechaF.Text.ToDate Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) + Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM) - If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then + If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas) Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) diff --git a/Ventas/RepIngresos.aspx b/Ventas/RepIngresos.aspx index 3a763c711..460a9e479 100644 --- a/Ventas/RepIngresos.aspx +++ b/Ventas/RepIngresos.aspx @@ -68,6 +68,9 @@
  • Excel
    • +
  • + Ver Dlls en pesos +
    • @@ -122,11 +125,11 @@
    -
    +
    - + @@ -134,14 +137,13 @@ - <%-- + <%-- --%> -
    @@ -162,7 +164,7 @@ + DataKeyNames="Importe,Descuento,Amortizacion,IVA,IEPS,ImpuestoLocal,Total" OnRowDataBound="GVRepIngresos_RowDataBound"> @@ -208,6 +210,42 @@ + + + + + diff --git a/Ventas/RepIngresos.aspx.vb b/Ventas/RepIngresos.aspx.vb index 021cd086b..9bb39a6f6 100644 --- a/Ventas/RepIngresos.aspx.vb +++ b/Ventas/RepIngresos.aspx.vb @@ -70,10 +70,31 @@ Partial Class Ventas_RepIngresos ViewState("DtDatos") = value End Set End Property + + Private Property TipoCambio As Integer + Get + Return ViewState("TipoCambio").ToString.ToEntero + End Get + + Set(value As Integer) + ViewState("TipoCambio") = value + End Set + End Property + Private Property TCEspecifico As Decimal + Get + Return ViewState("TCEspecifico").ToString.ToDecimal + End Get + + Set(value As Decimal) + ViewState("TCEspecifico") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then + TCEspecifico = -1 + TipoCambio = 1 CveSubProyecto = -1 TxtFechaInicio.Text = String.Format("01/01/{0}", Now.Year) DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) @@ -82,17 +103,21 @@ Partial Class Ventas_RepIngresos End If End Sub - Protected Sub CargaRepIngresos(Optional tipoReporte As Integer = -1) - Dim ObjRepI As New ClsVentas() - + Protected Sub CargaRepIngresos(Optional tipoReporte As Integer = -1) Dim Cves_Subprotectos As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM) - Dim TiposDoc As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) - - - - ObjRepI.RepIngresos(UsuarioActual.CveEmpresa, If(RsFechaI = "-1", MinFecha, RsFechaI.ToDate), If(RsFechaF = "-1", MaxFecha, RsFechaF.ToDate), TiposDoc, Cves_Subprotectos) - GVRepIngresos.DataSource = ObjRepI.DtResultados - DtDatos = ObjRepI.DtResultados + Dim TiposDoc As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) + + If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then + TCEspecifico = TxtEspecifico.Text.ToDecimal + Else + TCEspecifico = -1 + End If + + Dim ObjRepI As New ClsVentas() + If ObjRepI.RepIngresos(UsuarioActual.CveEmpresa, If(RsFechaI = "-1", MinFecha, RsFechaI.ToDate), If(RsFechaF = "-1", MaxFecha, RsFechaF.ToDate), TiposDoc, Cves_Subprotectos, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico) Then + GVRepIngresos.DataSource = ObjRepI.DtResultados + DtDatos = ObjRepI.DtResultados + End If ObjRepI.Dispose() GVRepIngresos.DataBind() upDatosRepI.Update() @@ -147,9 +172,26 @@ Partial Class Ventas_RepIngresos #End Region Protected Sub GVRepIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("ConceptoContable").Contiene("INGRESOS", "ANTICIPOS") Then + If e.Row.DBCampo("TipoAmortizacion") = "" Then e.Row.CssClass = "Totales" + ElseIf e.Row.DBCampo("TipoAmortizacion") <> "" AndAlso e.Row.DBCampo("CveConceptoContable") = "-1" Then + e.Row.CssClass = "SubTotales" End If End If End Sub + Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged + TipoCambio = RblTipoCambio.SelectedValue.ToEntero + If TipoCambio = 3 Then + LiEspecifico.Visible = True + TCEspecifico = GlobalTipoCambio(Now).ToDecimal + TxtEspecifico.Text = TCEspecifico.ToString + Else + LiEspecifico.Visible = False + End If + UpBodyTipoCambio.Update() + End Sub + Private Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) Handles BtnTipoCambio.Click + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio")) + LnkFiltrar_Click(LnkFiltrar, EventArgs.Empty) + End Sub End Class diff --git a/vwd.webinfo b/vwd.webinfo index bfda47f43..a280964b8 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -23,6 +23,8 @@ + + \ No newline at end of file