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

Ventas Medicas Cambios OS

Browse Source
This commit is contained in:
rakcsle
2023-11-14 16:13:12 -07:00
parent 685a11abcf
commit 87ed685bbd
5 changed files with 55 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
OS/Asignaciones.aspx.vb
View File

@@ -249,7 +249,7 @@ Partial Class OS_Asignaciones
Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero).Rows(0)("Correo").ToString
If Not TieneError Then
MandaCorreOS(row.DataKey("CveOS").ToEntero, CorreoAsignado)
MandaCorreOS(row.DataKey("CveOS").ToEntero, CorreoAsignado, TrasaccionSql:=ObjOS.IniciaTransacSQL)
End If
@@ -279,11 +279,11 @@ Partial Class OS_Asignaciones
UpOS.Update()
End Sub
Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String)
Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String, ByRef TrasaccionSql As SqlClient.SqlTransaction)
Dim ObjOS As New ClsOS()
Dim ObjOS As New ClsOS(TrasaccionSql)
Dim params As New List(Of ReportParameter)
Dim CveFolio = ""