diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 19a737a7f..622e12946 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -2241,7 +2241,7 @@ Public Class ClsOC #End Region #Region " OC X VINCULAR COMPRA " - Public Function GetPendietePorSurtirOC(FechaI As String, FechaF As String, CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1) As Boolean + Public Function GetPendietePorSurtirOC(FechaI As String, FechaF As String, CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1, Optional Gpo As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_ComprasPendientesPorSurtirGet") @@ -2255,6 +2255,7 @@ Public Class ClsOC .Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveOC", SqlDbType.Int).Value = CveOC + .Add("@Gpo", SqlDbType.Int).Value = Gpo End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 18be4490a..837f097a5 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -602,7 +602,7 @@ Public Class ClsVentas Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1, Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1, Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha, - Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1") As Boolean + Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -643,6 +643,7 @@ Public Class ClsVentas .Add("@Episodio", SqlDbType.VarChar).Value = Episodio .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega .Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try @@ -657,7 +658,7 @@ Public Class ClsVentas Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, - Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -678,6 +679,8 @@ Public Class ClsVentas .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir .Add("@Paciente", SqlDbType.VarChar).Value = Paciente .Add("@Episodio", SqlDbType.VarChar).Value = Episodio + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With Try @@ -835,12 +838,13 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean + Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date, CveUsuarioModifico As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasFechaVencimientoUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try SqlAdapter.Fill(Data) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index ebd03c200..5f2389ec7 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -342,7 +342,9 @@ - + + + @@ -453,7 +455,7 @@ % Desc. - + @@ -789,6 +791,10 @@ } + function DescuenoMasivo(txt) { + $(".selDescuento").val(txt.value); + $(".selDescuento").trigger("keyup"); + } diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index d27e7066e..411c95aaa 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -324,6 +324,7 @@ Partial Class Bancos_ProveedoresAbonar If UsuarioActual.TienePermisoProceso(361) Then 'GvCxP.Columns(11).Visible = True chkaplicaDescuento.Visible = True + chkaplicaDescuentoMasivo.Visible = True End If @@ -1673,10 +1674,15 @@ Partial Class Bancos_ProveedoresAbonar GvCxP.Columns(11).Visible = chkaplicaDescuento.Checked UPCompras.Update() - End Sub + Protected Sub chkaplicaDescuentoMasivo_CheckedChanged(sender As Object, e As EventArgs) + + GvCxP.Columns(11).Visible = chkaplicaDescuentoMasivo.Checked + TxtDescuenoMasivo.Visible = chkaplicaDescuentoMasivo.Checked + UPCompras.Update() + End Sub Private Sub tmpValida() diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index ba1ff75c1..2605aa006 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -315,7 +315,7 @@ Partial Class Inventarios_Kardex End If Dim ObjOC As New ClsOC If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, tCveSubProyectos, UsuarioActual.CveEmpresa) Then - GvOC.DataSource = ObjOC.DtResultados.Copy + GvOC.DataSource = ObjOC.DtResultados.Copy.FiltraParametros("", "Fecha Desc") LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString() End If ObjOC.Dispose() diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 90f797949..9800d6589 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -9,9 +9,23 @@ Imports Telerik.Web.UI Partial Class Inventarios_KardexAlmacenHorizontal Inherits ClsPaginas + Private Property TienePermisoKardex As Boolean + Get + If ViewState("TienePermisoKardex") Is Nothing Then + ViewState("TienePermisoKardex") = False + End If + + Return Boolean.Parse(ViewState("TienePermisoKardex").ToString) + End Get + Set(value As Boolean) + ViewState("TienePermisoKardex") = value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then 'TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString + TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False) TxtFechaF.Text = NowADS().ToShortDateString CargaCombos() ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) @@ -241,7 +255,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal Dim Celda As String = Cells.Text If IsNumeric(Celda) Then Dim CveAlmacen2 As Integer = -1 - If Index >= 5 Then + If Index >= 4 Then Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c) If Array.Length > 1 Then CveAlmacen2 = Array(1).ToEntero @@ -270,7 +284,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) Else Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) - If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 Then + If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 AndAlso TienePermisoKardex Then Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={txtFechaI.Text}&FechaF={TxtFechaF.Text}") Cells.Text = String.Format("{0}", Celda.FormatoNumero(), Liga2) End If diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 4b1cda15a..58d7d5db7 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -734,6 +734,7 @@ Partial Class OC_OC DdlSubProyectoGral.DataBind() DdlSubProyectoGral.Items.Insert(0, New ListItem("-", "-1")) DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto) + DdlSubProyectoEntrega.SelectedValueExist(UsuarioActual.CveSubProyecto) ModalidadSubProyectoGeneral = True TdProyectoSubPrpyectoDdl.Visible = False TdProyectoSubPrpyecto.Visible = False @@ -4117,7 +4118,8 @@ Partial Class OC_OC If e.Row.RowType = DataControlRowType.DataRow Then - If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then + 'If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then + If TienePermisoKardex AndAlso (e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate) Then e.Row.FCLabel("LblPS").Visible = False e.Row.FCHyperLink("HlPS").Visible = True e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}" diff --git a/OC/RepOCxSurtir.aspx b/OC/RepOCxSurtir.aspx index 148aeb4e3..447d01ca5 100644 --- a/OC/RepOCxSurtir.aspx +++ b/OC/RepOCxSurtir.aspx @@ -10,6 +10,22 @@ + + + +
  • + Generar PDF +
    • +
  • + Exportar Excel +
    • + +     + + + + +     @@ -57,6 +73,13 @@
    +
    Grupo:
    +
    + + Detallado + Por Orden de Compra + +
    @@ -84,6 +107,7 @@
    + @@ -95,6 +119,18 @@ + + + + + + + + + + + +
    diff --git a/OC/RepOCxSurtir.aspx.vb b/OC/RepOCxSurtir.aspx.vb index 5e0c376cc..1b4eafdc7 100644 --- a/OC/RepOCxSurtir.aspx.vb +++ b/OC/RepOCxSurtir.aspx.vb @@ -1,10 +1,41 @@ Option Explicit On Option Strict On +Imports System.Activities.Expressions +Imports System.Data Imports Extensiones +Imports Microsoft.Reporting.WebForms + + Partial Class OC_RepOCxSurtir Inherits ClsPaginas + + Property DtDatos As DataTable + Get + If ViewState("DtDatos") Is Nothing Then + ViewState("DtDatos") = New DataTable + End If + Return DirectCast(ViewState("DtDatos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + + Property DtDatosPorOC As DataTable + Get + If ViewState("DtDatosPorOC") Is Nothing Then + ViewState("DtDatosPorOC") = New DataTable + End If + Return DirectCast(ViewState("DtDatosPorOC"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDatosPorOC") = value + End Set + End Property + + Protected Sub OC_RepOCxSurtir_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then InicializaValores() @@ -71,20 +102,44 @@ Partial Class OC_RepOCxSurtir End Sub Private Sub CargaDatos() Dim ObjOC As New ClsOC + GvDatos.DataSource = Nothing + GvDatosPorOC.DataSource = Nothing + GvDatos.Visible = False + GvDatosPorOC.Visible = False + DtDatos = New DataTable + DtDatosPorOC = New DataTable 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 ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjOC.DtResultados - Else - GvDatos.DataSource = Nothing + If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, + Gpo:=DdlGrupo.SelectedValue.ToEntero) Then + + If DdlGrupo.SelectedValue.ToEntero = 1 Then + GvDatos.DataSource = ObjOC.DtResultados + DtDatos = ObjOC.DtResultados + GvDatos.Visible = True + Else + GvDatosPorOC.DataSource = ObjOC.DtResultados + DtDatosPorOC = ObjOC.DtResultados + GvDatosPorOC.Visible = True + End If + + End If - GvDatos.DataBind() ObjOC.Dispose() + If DdlGrupo.SelectedValue.ToEntero = 1 Then + GvDatos.DataBind() + Else + GvDatosPorOC.DataBind() + End If + + + UpDatos.Update() + End Sub Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound @@ -103,7 +158,105 @@ Partial Class OC_RepOCxSurtir End If End Sub + Private Sub GvDatosPorOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosPorOC.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CveOrdenCompra") = "" Then + e.Row.CssClass = "Totales" + 'e.Row.Cells(3).Visible = False + 'e.Row.Cells(2).ColumnSpan = 2 + 'ElseIf e.Row.DBCampo("CodigoPS") = "" Then + ' e.Row.CssClass = "SubTotales2" + Else + 'e.Row.Cells(0).Text = "" + 'e.Row.Cells(1).Text = "" + 'e.Row.Cells(2).Text = "" + End If + End If + End Sub + #End Region + +#Region " IMPRIMIR " + + Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + 'GvDatos.ExportToExcel("ReporteComprasDetalles" & NowADS().ToShortDateString) + GenerarPDF("EXCEL") + End Sub + + Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) + GenerarPDF("PDF") + End Sub + Private Sub GenerarPDF(Opcion As String) + Dim FechaI = If(TxtFechaI.Text = "" Or TxtFechaI.Text = "__/__/____", "-1", TxtFechaI.Text) + Dim FechaF = If(TxtFechaF.Text = "" Or TxtFechaF.Text = "__/__/____", "-1", TxtFechaF.Text) + 'Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $" Proveedor: {DdlProveedores.SelectedText}") + 'Dim Capturo = If(DDlUsuarioCaptura.SelectedValue = "-1", "", $" Capturó: {DDlUsuarioCaptura.SelectedItem.Text}") + Dim Grupo = DdlGrupo.SelectedItem.Text + Dim FechaIn As String = $" Fecha Inicio: {TxtFechaI.Text}" + Dim FechaFn As String = $" Fecha Fin: {TxtFechaF.Text}" + If TxtFechaI.Text = "" Then FechaIn = "" + If TxtFechaF.Text = "" Then FechaFn = "" + + 'Dim Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlProyecto.SelectedItem.Text}") + 'Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $" SubProyecto: {DdlSubProyecto.GetSelectedText}") + 'Dim TipoGasto = If(DdlTipoGasto.GetSelectedText = "", "", $" Tipo Gasto: {DdlTipoGasto.GetSelectedText}") + 'Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $" Tipo de Proveedor: {DdlTipoProveedor.SelectedItem.Text}") + 'Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $" Tipo de Documento: {DdlTipoDocto.SelectedItem.Text}") + + Dim FechaIF, FechaFF As String + FechaIF = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1") + FechaFF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1") + Dim FechaICapturaF, FechaFCapturaF As String + 'FechaICapturaF = If(IsDate(TxtFechaICaptura.Text.Trim()), TxtFechaICaptura.Text.Trim(), "-1") + 'FechaFCapturaF = If(IsDate(TxtFechaFCaptura.Text.Trim()), TxtFechaFCaptura.Text.Trim(), "-1") + + 'Dim FechaCIn As String = $" Fecha Inicio Captura: {TxtFechaICaptura.Text.Trim()}" + 'Dim FechaCFn As String = $" Fecha Fin Captura: {TxtFechaFCaptura.Text.Trim()}" + + 'If Not IsDate(TxtFechaICaptura.Text.Trim()) Then FechaCIn = "" + 'If Not IsDate(TxtFechaFCaptura.Text.Trim()) Then FechaCFn = "" + + If DdlGrupo.SelectedValue.ToEntero = 1 Then + + Else + + End If + + If (DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 AndAlso DdlGrupo.SelectedValue.ToEntero = 1) Or (DtDatosPorOC IsNot Nothing AndAlso DtDatosPorOC.Rows.Count > 0 AndAlso DdlGrupo.SelectedValue.ToEntero = 2) Then + + 'For Each Dr As DataRow In DtDatos.Rows + ' Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString + 'Next + + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("FechaInicio", FechaI)) + params.Add(New ReportParameter("FechaFin", FechaF)) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", NowADS().ToString)) + params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo}{FechaIn}{FechaFn}")) + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + + Dim NombreArchivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepOCxSurtir.rdlc", "RepOCxSurtirPorOC.rdlc") + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)) + If Archivo.Exists Then + ImprimirPDF(Archivo.FullName, If(DdlGrupo.SelectedValue.ToEntero = 1, DtDatos, DtDatosPorOC), params, "OrdenesdeCompraporvincular ", Opcion) + Else + ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", If(DdlGrupo.SelectedValue.ToEntero = 1, DtDatos, DtDatosPorOC), params, "OrdenesdeCompraporvincular", Opcion) + End If + + Else + Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + End If + + End Sub +#End Region + + End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 7d49af125..2ce45e6cc 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -24153,7 +24153,8 @@ Partial Class Ventas CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, - FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero(), FolioRemision:=TxtFolioRemision.Text.Trim) Then + FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero(), FolioRemision:=TxtFolioRemision.Text.Trim, + CveUsuarioModifico:=UsuarioActual.CveUsuario) Then OcurrioError = True End If @@ -33367,7 +33368,8 @@ Partial Class Ventas Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim.ToUpper(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, - TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then + TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), + CveUsuarioModifico:=UsuarioActual.CveUsuario) Then MensajeError = "Ocurrió un error al actualizar la información de la cotización" OcurrioError = True End If @@ -35365,7 +35367,7 @@ Partial Class Ventas Exit Sub End If - If Not ObjVentas.UpdateFechaVencimientoVenta(CveVenta, TxtFechaPago.Text.ToDate) Then + If Not ObjVentas.UpdateFechaVencimientoVenta(CveVenta, TxtFechaPago.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then ErrorTrans = True End If @@ -36876,7 +36878,7 @@ Partial Class Ventas If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, - Episodio:=TxtEpisodio.Text) Then + Episodio:=TxtEpisodio.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then TieneError = True End If