From 16dc8cc9663123438b8b9fa3176bc1dd79cbb449 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 10 Mar 2020 19:49:26 -0700 Subject: [PATCH 1/7] Totalizadores en reporte de cortes --- Bancos/RepCortes.aspx | 30 +++--------------- Bancos/RepCortes.aspx.vb | 66 +++++++++++++++++++++++++--------------- 2 files changed, 47 insertions(+), 49 deletions(-) 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 From 6444292d6c728bb4448b2e5d5294170294c98f15 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 10 Mar 2020 19:50:00 -0700 Subject: [PATCH 2/7] seleccionar multiples marcas --- App_Code/ClsInventarios.vb | 4 +- Inventarios/KardexAlmacenHorizontal.aspx | 502 ++++++++++---------- Inventarios/KardexAlmacenHorizontal.aspx.vb | 40 +- 3 files changed, 271 insertions(+), 275 deletions(-) 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/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) From 99977215f084bdf4a605e0f9c11e5dae84b9d0e2 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 10 Mar 2020 20:17:03 -0700 Subject: [PATCH 3/7] Tipo de cambio en reporte de ingresos --- App_Code/ClsVentas.vb | 4 ++- Ventas/RepIngresos.aspx | 48 +++++++++++++++++++++++++--- Ventas/RepIngresos.aspx.vb | 64 +++++++++++++++++++++++++++++++------- 3 files changed, 99 insertions(+), 17 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 8d8369a89..0b43caa60 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/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 From 9c1f16f15d80c54e7004215c2279ea8ddf6607ed Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 10 Mar 2020 20:17:26 -0700 Subject: [PATCH 4/7] dropdownlost en cxp detalle --- Compras/RepCxPDetalle.aspx | 5 ++--- Compras/RepCxPDetalle.aspx.vb | 40 ++++++++++++++++++++++++++--------- 2 files changed, 32 insertions(+), 13 deletions(-) diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index 992beb0e6..a669e04cb 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -75,9 +75,8 @@
    Proveedor:
    - - - + +
    Clasificaciones:
    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}") From 52c108c0c416295e9c653356b74c64487ae53f99 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Mar 2020 10:28:27 -0700 Subject: [PATCH 5/7] -cambios --- Compras/RepCxPDetalle.aspx | 6 +++--- Contabilidad2/RepAnexoCatalogo.aspx.vb | 2 +- Inventarios/EntradasSalidas.aspx.vb | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index a669e04cb..f51a57272 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -75,7 +75,7 @@
    Proveedor:
    - +
    Clasificaciones:
    @@ -394,7 +394,7 @@ - + @@ -422,7 +422,7 @@ - + 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 From a4971085d90ce18ce7dce86c3794b2a09818824b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Mar 2020 13:31:21 -0700 Subject: [PATCH 6/7] - validacion --- Bancos/IE.aspx.vb | 12 ++++++++++++ vwd.webinfo | 2 ++ 2 files changed, 14 insertions(+) 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/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 From fc1c925eecabbf44d078453cc58388c21efa0faf Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Mar 2020 13:35:37 -0700 Subject: [PATCH 7/7] -ambios validacion de fechas entre pago XML y pago IE --- Compras/eFacturas.aspx | 6 ++---- Compras/eFacturas.aspx.vb | 11 ++++------- 2 files changed, 6 insertions(+), 11 deletions(-) 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