From 46751fa0b30e7ce891ef8d8a0143389fd9f4c400 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 24 Sep 2024 12:35:57 -0700 Subject: [PATCH] =?UTF-8?q?--=20par=C3=A1metro=20de=20cveventadetalle,=20e?= =?UTF-8?q?n=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