AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- mejoras

Browse Source
This commit is contained in:
rrene
2024-09-28 08:14:41 -07:00
parent e41bf7fc5d
commit 6481bf7a41
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OS/OrdenesServicios.aspx.vb
View File

@@ -3154,7 +3154,7 @@ Partial Class OS_OrdenesServicios
End If End If
'asigno la cveventa, como concluido 'asigno la cveventa, como concluido
If ProcesoOK Then 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 ProcesoOK = False
End If End If
End If End If