From 46751fa0b30e7ce891ef8d8a0143389fd9f4c400 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 24 Sep 2024 12:35:57 -0700 Subject: [PATCH 1/2] =?UTF-8?q?--=20par=C3=A1metro=20de=20cveventadetalle,?= =?UTF-8?q?=20en=20tipoventa=20=3D5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/OrdenesServicios.aspx.vb | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index e105ebc35..d116062a3 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -5,14 +5,6 @@ Imports Extensiones Imports System.IO Imports System.Data Imports System.Data.SqlClient -Imports System.Diagnostics -Imports System.ServiceModel.Security -Imports RVCFDI.RVLTimbrado -Imports Microsoft.Owin.Security.Provider -Imports Telerik.Web.UI -Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI - - Partial Class OS_OrdenesServicios Inherits ClsPaginas @@ -3125,7 +3117,8 @@ Partial Class OS_OrdenesServicios Dim Lote As String = GVRow.DataKey("Lote") Dim CveUM As Integer = GVRow.DataKey("CveUM").ToEntero Dim FechaCaducidad As DateTime = GVRow.DataKey("FechaCaducidad").ToDate - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then + Dim CveVentaDetalle As Integer = GVRow.DataKey("CveVentaDetalle").ToEntero + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle) Then Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia) ProcesoOK = False Exit For @@ -3705,14 +3698,8 @@ Partial Class OS_OrdenesServicios Try Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then - - Dim SWatch As New Stopwatch - SWatch.Start() - Dim DevAlm As Boolean = True - ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion - resp = ObjFacturaCancelacion.CancelarFactura(2, New List(Of Integer), CveMotivoCancelacion:=CveMotivoCancelacion, Motivo:="Cancelacion de Orden de servicio") If resp.HuboError Then From 6280462890d8ef5eca6448759d9d9269e5262530 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 24 Sep 2024 17:51:30 -0700 Subject: [PATCH 2/2] =?UTF-8?q?--=20correcci=C3=B3n=20para=20registro=20en?= =?UTF-8?q?=20bit=C3=A1cora,=20cuando=20es=20por=20OC.=20no=20encontraba?= =?UTF-8?q?=20el=20archivo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 37 ++++------------------------ 1 file changed, 5 insertions(+), 32 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index e57a4b2d6..f55a1f55e 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3,11 +3,9 @@ Option Explicit On Imports System.Data Imports System.IO -Imports System.Text Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms -Imports Org.BouncyCastle.Asn1.X509 Partial Class Inventarios_RecepcionAlmacen Inherits ClsPaginas @@ -2969,11 +2967,8 @@ Partial Class Inventarios_RecepcionAlmacen End If End If End If - End If - End If - Next If Not ErrorMovInv Then @@ -2981,7 +2976,6 @@ Partial Class Inventarios_RecepcionAlmacen ErrorMovInv = True End If End If - End If End If @@ -3614,11 +3608,8 @@ Partial Class Inventarios_RecepcionAlmacen MensajeError = "Error al contabilizar los conceptos contables" End If End If - End If - End If - Else ErrorMovInv = True MensajeError = "Error al obtener movimientos" @@ -3633,11 +3624,6 @@ Partial Class Inventarios_RecepcionAlmacen Dim ProveedorNombre As String = "" Dim SerieFolio As String = "" - 'Dim DrAlmO, DrAlmD As DataRow - 'Dim CveSucursalOrigen, CveSucursalDestino As Integer - 'Dim TipoAlmacenOrigen, TipoAlmacenDestino As Integer - 'Dim CveSubProyectoOrigen, CveSubProyectoDestino As Integer - If ObjCompras.GetCompras(CveCompraSurtir, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then 'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate Fecha = TxtFecha.Text.ToDate @@ -3654,7 +3640,6 @@ Partial Class Inventarios_RecepcionAlmacen Else ErrorMovInv = True End If - 'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {CveAlmacenDevolucionProveedor}").ToEntero() 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO: @@ -3672,7 +3657,6 @@ Partial Class Inventarios_RecepcionAlmacen Else ErrorMovInv = True End If - End If 'AGREGA SALDOS A OC SURTIDAS @@ -3702,7 +3686,7 @@ Partial Class Inventarios_RecepcionAlmacen ErrorMovInv = True End Try - If Not ErrorMovInv Then + If Not ErrorMovInv AndAlso ArchivoBitacora <> "" Then RenombrarBitacoras() End If @@ -3725,8 +3709,7 @@ Partial Class Inventarios_RecepcionAlmacen Msg.AppendFormat("
La Orden de Compra se dividió en los siguientes productos:
{0}", MensajeOC) End If If UsuarioActual.CveEmpresa.Contiene(1, 119, 186) Then - Msg.AppendFormat("
Imprimir Etiqueta Individual ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad"))) - 'Msg.AppendFormat("
Imprimir Etiqueta Por Caja ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja"))) + Msg.AppendFormat("
Imprimir Etiqueta Individual ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad"))) 'Msg.AppendFormat("
Imprimir Etiqueta Por Caja ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja"))) End If 'SI GENERO UN TRASPASO AL ALMACEN DE DEVOLUCION @@ -3738,7 +3721,6 @@ Partial Class Inventarios_RecepcionAlmacen Msg.AppendFormat("
Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) End If - 'If CveMovtoSalidaDirecta > 0 Then ' Msg.AppendFormat("

Movimientos de control:
") ' link = String.Format("{1}", CveMovtoSalidaDirecta, FolioSalidaDirecta) @@ -3760,8 +3742,6 @@ Partial Class Inventarios_RecepcionAlmacen link = String.Format("{1}", MovtosSalidaDirecta(ind), FoliosSalidaDirecta(ind)) Msg.AppendFormat("
Movimiento de Salida Folio: {0}", link) Next - - End If 'APARTADO @@ -3784,7 +3764,6 @@ Partial Class Inventarios_RecepcionAlmacen 'CONTABILIDAD Msg.Append(MensajeContabilidad) - Alert(Msg.ToString, TipoMensaje.MsgInformacion) If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then @@ -3793,7 +3772,6 @@ Partial Class Inventarios_RecepcionAlmacen BtnGuardar.Visible = True End If Limpia() - Else ObjInventario.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() @@ -3809,10 +3787,7 @@ Partial Class Inventarios_RecepcionAlmacen End Sub Private Sub RenombrarBitacoras() - - Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss") - Dim fib As New FileInfo(ArchivoBitacora) Dim fibd As New FileInfo(ArchivoBitacoraDetalle) @@ -4277,18 +4252,16 @@ Partial Class Inventarios_RecepcionAlmacen CveOCSurtir = CveOC LbProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString HLFolio.Text = ObjOC.DtResultados.Rows(0)("Folio").ToString - If UsuarioActual.TienePermisoProceso(201) Then - HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}" - End If + If UsuarioActual.TienePermisoProceso(201) Then HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}" LbDescripcionCompra.Text = ObjOC.DtResultados.Rows(0)("Descripcion").ToString - CveMoneda = ObjOC.DtResultados.Rows(0)("CveMoneda").ToString.ToEntero lbDescripcion.Text = ObjOC.DtResultados.Rows(0)("Descripcion").ToString TotalCompraOC = ObjOC.DtResultados.Rows(0)("SubTotal").ToString.ToDecimal - 'TipoCambio = ObjOC.DtResultados.Rows(0)("TipoCambio").ToString.ToDecimal TipoCambio = 0 TipoMovimiento = 1 + ArchivoBitacora = String.Format("{0}Temp\RecepcionOCDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveOCSurtir) + ArchivoBitacoraDetalle = String.Format("{0}Temp\RecepcionOCDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveOCSurtir) If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then DtDatosDetalle = Nothing