From 1f5d8b5c7a7af358437c27b3f7e85e6666a71ab3 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 May 2024 16:33:05 -0700 Subject: [PATCH] - --- OS/OrdenesServicios.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 120338480..bc6d50fc1 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3202,6 +3202,7 @@ Partial Class OS_OrdenesServicios For i = 0 To dtmat.Rows.Count - 1 If DtVentaDetalle.Rows(i)("CvePS").ToString = dtmat.Rows(i)("CvePS").ToString Then DtVentaDetalle.Rows(i)("CveVentaDetalle") = dtmat.Rows(i)("CveVentaDetalle") + DtVentaDetalle.Rows(i)("CveUM") = dtmat.Rows(i)("CveUM") End If Next End If @@ -3212,7 +3213,7 @@ Partial Class OS_OrdenesServicios If GenerarRemisionMovimientos AndAlso ProcesoOK Then - CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil") + CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil3") Dim Folio As Integer = ObjInventario.Folio If CveMovimientoSalida > 0 Then