From 75db760faff714f5003302690075576c1754ad06 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 3 Aug 2024 10:18:22 -0700 Subject: [PATCH 1/2] Timbrado Emision complemento base e importe Cambio Round 2 a 6 Caso Emp 119 CveIE 2931362 pago de pesos en dolares --- App_Code/Timbrado.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 3084bd295..cf3172550 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -924,8 +924,8 @@ Public Class Timbrado .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal, .Impuesto = drp("TipoImpuesto").ToString, .Importe = drp("Importe").ToString().ToDecimal.RoundSQL, - .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(2), - .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(2) + .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(6), 'OIC 2024-08-03 cambio Round 2 a 6 Caso Emp 119 CveIE 2931362 pago de pesos en dolares + .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(6) 'OIC 2024-08-03 cambio Round 2 a 6 Caso Emp 119 CveIE 2931362 pago de pesos en dolares } ) From 85af9f250e1f42c22981677d8a1ce72030e19805 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 3 Aug 2024 11:42:03 -0700 Subject: [PATCH 2/2] solicitudes de traspaso validar existencia al agregar solicitud --- Inventarios/TrasladoSolicitud.aspx | 3 +- Inventarios/TrasladoSolicitud.aspx.vb | 58 +++++++++++++++++++-------- 2 files changed, 44 insertions(+), 17 deletions(-) diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 16da8dd39..dcf9b466e 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -199,7 +199,8 @@ - + + diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index fb6602a54..f0633a349 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -1,5 +1,6 @@ Imports System.Data Imports ClosedXML.Excel.XLPredefinedFormat +Imports DocumentFormat.OpenXml.Math Imports Extensiones Imports Telerik.Web.UI.ComboBox.ComboBoxStyles @@ -165,6 +166,10 @@ Partial Class Inventarios_TrasladoSolicitud TempDT.Columns.Add("Serie", Type.GetType("System.String")) TempDT.Columns.Add("Lote", Type.GetType("System.String")) TempDT.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime")) + TempDT.Columns.Add("Existencia", Type.GetType("System.Decimal")) + + + TempDT.Columns.Add() End Sub @@ -180,6 +185,8 @@ Partial Class Inventarios_TrasladoSolicitud Exit Sub End If + + 'If ObjInventario.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=TxtLote.Text.ToString, FechaCaducidad:=TxtCaducidad.Text.ToString) >= TxtCantidad.Text.ToDouble Then TxtCantidad.Text = "" @@ -200,14 +207,47 @@ Partial Class Inventarios_TrasladoSolicitud Private Function AddPSTemporal() As Boolean + + + 'Dim CveUsuarioAutoriza As Integer = -1 + Dim EstatusAlmacen As Integer = 2 + 'VERIFICA EXISTENCIAS + Dim ObjInventarios As New ClsInventarios + Dim Existencia As Decimal = 0 + Dim TieneErrorExistencia As Boolean = False + Dim MensajeExistencia As New StringBuilder + MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos:
") + 'Dim CodigoPS As String = "" + Dim CveUnidadMedida As Integer = GlobalDTPS(UsuarioActual.CveEmpresa, DdlProductoServicio.SelectedValue.ToEntero).FiltroPrimeroValor("CveUnidadMedida").ToEntero + + + 'CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=Row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "") + Existencia = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=NowADS.ToString("yyyy/MM/dd 23:59")) + + If Existencia - (TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {CveUnidadMedida}") + TxtCantidad.Text.Trim.ToDecimal) <= 0 Then + MensajeExistencia.AppendFormat("
- {0}. Existencia: {1}", DdlProductoServicio.SelectedText, Existencia) + TieneErrorExistencia = True + End If + + If TieneErrorExistencia Then + Alert(MensajeExistencia.ToString, TipoMensaje.MsgAdvertencia) + ObjInventarios.Dispose() + Return False + End If + ObjInventarios.Dispose() + + + Dim TieneError As Boolean = False + Dim Row As DataRow = TempDT.NewRow() Dim Lote As String = "-1" Dim FechaCaducidad As Date = MinFecha - Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble + Row("Cantidad") = TxtCantidad.Text.Trim.ToDecimal Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero Row("CodigoPS") = DdlProductoServicio.SelectedText Row("Precio") = 0 - 'Row("CveUM") = DdlUM.SelectedValue.ToEntero + Row("CveUM") = CveUnidadMedida + Row("Existencia") = Existencia 'Row("UnidadMedida") = DdlUM.SelectedItem.Text Row("Observaciones") = "" Row("Lote") = "-1" @@ -249,20 +289,6 @@ Partial Class Inventarios_TrasladoSolicitud Dim CodigoPS As String = "" - ''Aqui poner permiso para poder evitar permiso de traslado - 'If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then - - ' If ObjInventarios.DtResultados.Rows.Count > 0 Then - - ' CveUsuarioAutoriza = If(ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero > 0, ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero, -1) - ' If CveUsuarioAutoriza > 0 Then - ' EstatusAlmacen = 1 - ' End If - - ' Else - ' CveUsuarioAutoriza = -1 - ' End If - 'End If