- mejoras

2024-09-28 08:14:41 -07:00
parent e41bf7fc5d
commit 6481bf7a41
1 changed files with 1 additions and 1 deletions
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3154,7 +3154,7 @@ Partial Class OS_OrdenesServicios
                    End If
                    'asigno la cveventa, como concluido
                    If ProcesoOK Then
-                        If Not ObjOS.UpdateVentaOS(CveVenta, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
+                        If Not ObjOS.UpdateVentaOS(CveVentaPedido, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
                            ProcesoOK = False
                        End If
                    End If