From 5c36795ac05e0cf95dc82fd263db6c7e83ffb10d Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 14 Jan 2020 11:11:33 -0700 Subject: [PATCH 1/3] - --- App_Code/ClsContabilidad.vb | 2 ++ Inventarios/ResguardoMaterial.aspx.vb | 6 ++++-- OC/OC.aspx.vb | 2 +- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 597854f57..75aaea0c6 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5778,6 +5778,8 @@ Public Class ClsContabilidad ValorPolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@Valor").Value.ToString.ToEntero MensajePolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@MsgSalida").Value.ToString ValorDiferencia = SqlAdapter.SelectCommand.Parameters("@Diferencia").Value.ToString + Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString + If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza") Catch ex As Exception OnError("Ocurrió un error al validar la PrePoliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index 5311877ee..272fa5234 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -945,10 +945,12 @@ Partial Class Inventarios_ResguardoMaterial Dim Fecha As DateTime = TxtFechaVigencia.Text.Trim().ToDateTime() Dim FechaI As DateTime = Fecha Dim FechaF As DateTime = Fecha.AddHours(22) - - TieneError = Not ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + If Fecha > MinFecha Then + TieneError = Not ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe) + End If + Return Not TieneError End Function diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index d77b1c6be..0ac68a0f0 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2240,7 +2240,7 @@ Partial Class OC End If 'Valida que tenga proveedore - If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then + If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC") AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) TieneError = True End If From a67928092d928825e8639c54c942bcc61ba340d3 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 14 Jan 2020 11:12:25 -0700 Subject: [PATCH 2/3] -- se activo que saque de apartados cuando es pedido --- Inventarios/RecepcionEntrega.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index f53f4291d..88bc69fb7 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -1640,7 +1640,7 @@ Partial Class Inventarios_RecepcionEntrega Dim CantidadSaldo As Decimal = 0 - If CveVendedor > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(146) = "1" Or CveCliente > 0) AndAlso TipoDocto <> "Ped" Then 'no debe considerar cuando es pedido de contrato + If CveVendedor > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(146) = "1" Or CveCliente > 0) Then 'no debe considerar cuando es pedido de contrato If TipoMovimiento = 1 Then ' SI ES DEVOLUCION NO APLICA APARTADO ' SALIDA POR TRASPASO DE LOS ALMACENES DE APARTADO For Each Dr As DataRow In DtDatos.Rows From 813860beb9eef90ed0f5551df660e0c9f6aa2397 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 14 Jan 2020 18:48:11 -0700 Subject: [PATCH 3/3] -- devoluciones que tome concepto 40 --- Inventarios/RecepcionEntrega.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 88bc69fb7..d6f6cf9ab 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -625,10 +625,10 @@ Partial Class Inventarios_RecepcionEntrega Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString.Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9") Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString Case "Ing", "Ped" - Filtro = "CveConcepto = 3" + Filtro = "CveConcepto IN (3,40)" Case "Dev" 'cuand es devolucionventa=1, es cancelación de la devolución - If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto = 3" + If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto IN (3,40)" Case Else Filtro = "CveConcepto = 9" End Select