envío de correo
This commit is contained in:
@@ -2855,7 +2855,7 @@ Partial Class OS_OrdenesServicios
|
||||
Private Sub CargaTecnico()
|
||||
DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
||||
DdlTecnico.DataBind()
|
||||
DdlTecnico.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTecnico.Items.Insert(0, New ListItem("-", "-1"))
|
||||
|
||||
DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
||||
DdlUsuarioAtendio.DataBind()
|
||||
@@ -3101,6 +3101,10 @@ Partial Class OS_OrdenesServicios
|
||||
Dim GenerarRemisionMovimientos As Boolean = False
|
||||
Dim AplicaDevolucion As Boolean = False
|
||||
|
||||
Dim ListMaterialesUtil As New List(Of GenericaCantidadProducto)
|
||||
Dim ListMaterialesDev As New List(Of GenericaCantidadProducto)
|
||||
Dim Respuesta As New RespuestaFacturacion()
|
||||
|
||||
If DdlTipoVenta.SelectedValue = "5" Then 'Consignación - Uso Material
|
||||
'genera una salida de almacen.
|
||||
Dim Fecha As DateTime = ClsPaginas.NowADS()
|
||||
@@ -3197,6 +3201,7 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
If CantidadDev > 0 AndAlso CveVentaDetalle > 0 Then
|
||||
AplicaDevolucion = True
|
||||
ListMaterialesDev.Add(New GenericaCantidadProducto With {.Cantidad = CantidadDev, .Producto = GvRow.DataKey("CodigoPS")})
|
||||
If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then
|
||||
ProcesoOK = False
|
||||
GenerarRemisionMovimientos = False
|
||||
@@ -3223,7 +3228,6 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim Respuesta As New RespuestaFacturacion()
|
||||
Dim DtVentaDetalle As New DataTable
|
||||
Dim CveMovimientoSalida, CveMovimientoEntrada As Integer
|
||||
Dim ImporteAlmacen As Decimal
|
||||
@@ -3268,6 +3272,7 @@ Partial Class OS_OrdenesServicios
|
||||
Dim CvePS As Integer = drr("CvePS").ToString.ToEntero
|
||||
Dim CveUM As Integer = drr("CveUM").ToString.ToEntero
|
||||
Dim PU As Decimal = drr("PU").ToString.ToDecimal
|
||||
ListMaterialesUtil.Add(New GenericaCantidadProducto With {.Cantidad = Cantidad, .Producto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PSCodigo")})
|
||||
|
||||
If Cantidad > 0 Then
|
||||
Dim CveVentaDetalle As Integer = drr("CveVentaDetalle").ToString.ToEntero 'DtVentaDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePadre = {GvRow.DataKey("CveVentaDetalle")}").ToEntero
|
||||
@@ -3384,17 +3389,24 @@ Partial Class OS_OrdenesServicios
|
||||
Alert("El material utilizado se guardó correctamente")
|
||||
End If
|
||||
End If
|
||||
Dim Contenido As String = $" OS #{LblFolio.Text}<br/> Hospital: {If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text)} <br/>Folio {LblFolio.Text}<br/>"
|
||||
'genera notificación
|
||||
If AplicaDevolucion Then 'notif a almacen
|
||||
EnviaNotificacion("listado productos")
|
||||
End If
|
||||
|
||||
|
||||
RegistraScript("$('#DivModalMaterialUtilizado').modal('hide');")
|
||||
CargaEventoBitacora()
|
||||
CargaEventoBitacora()
|
||||
Dim CorreoDestino As String = "rene.molina@adssistemas.mx"
|
||||
'genera notificación
|
||||
If AplicaDevolucion Then 'notif a almacen de devolución
|
||||
EnviaNotificacionSMS(10, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlTecnico.SelectedItem.Text, "vendedor", TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)
|
||||
Else
|
||||
ObjV.RollBack()
|
||||
EnviaNotificacionSMS(11, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlTecnico.SelectedItem.Text, "vendedor", TxtFolioRemisionModal.Text, ListMaterialesDev, CorreoDestino)
|
||||
End If
|
||||
If ListMaterialesUtil.Count > 0 Then 'notif a almacen de mat utilizado
|
||||
EnviaNotificacionSMS(9, UsuarioActual.Empresa, CveOS, LblFolio.Text, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlTecnico.SelectedItem.Text, "vendedor", TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino)
|
||||
End If
|
||||
If Respuesta IsNot Nothing Then 'notif de remisión generada
|
||||
EnviaNotificacionSMS(12, UsuarioActual.Empresa, Respuesta.CveVenta, Respuesta.SerieFolio, TxtFechaCita.Text.ToDateTime, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedItem.Text, LblCliente.Text), DdlMedico.SelectedItem.Text, DdlProcedimiento.SelectedItem.Text, DdlTecnico.SelectedItem.Text, "vendedor", TxtFolioRemisionModal.Text, ListMaterialesUtil, CorreoDestino)
|
||||
End If
|
||||
Else
|
||||
ObjV.RollBack()
|
||||
Alert("Se presento un error al guardar el material", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
@@ -3402,28 +3414,6 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub EnviaNotificacion(Contenido As String)
|
||||
Dim ObjMail As New ClsSisMail()
|
||||
Dim Asunto As String = "Notificación de recolección de Producto"
|
||||
Dim CorreoDestino As String = ""
|
||||
|
||||
If ObjMail.SendMail(UsuarioActual.Empresa, CorreoDestino, Asunto, Contenido) Then
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub EnviaNotificacionSMS(Tipo As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, Medico As String, Procedimiento As String, Técnico As String, Vendedor As String, Remision As String, dtMaterial As DataTable)
|
||||
Dim ObjMail As New ClsSisMail()
|
||||
Dim Asunto As String = "Notificación de recolección de Producto"
|
||||
Dim CorreoDestino As String = ""
|
||||
|
||||
If ObjMail.SendMail(UsuarioActual.Empresa, CorreoDestino, Asunto, Contenido) Then
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function GuardarArchivoConfirmacion(ByRef transaccion As SqlTransaction, CveOSActual As Integer, CveVentaRemisionGenerada As Integer) As Boolean
|
||||
Dim respuesta As Boolean = False
|
||||
@@ -3497,8 +3487,6 @@ Partial Class OS_OrdenesServicios
|
||||
Dim CveSubProyectoPedido As Integer = -1
|
||||
Dim CveMoneda As Integer = -1
|
||||
Dim tCveVendedor As Integer = -1
|
||||
|
||||
|
||||
Dim CountDetalles As Integer = 0
|
||||
Dim PuEnCero As Boolean = False
|
||||
|
||||
@@ -3534,8 +3522,6 @@ Partial Class OS_OrdenesServicios
|
||||
Return Respuesta
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If ObjVentas.GetVenta(CvePedido, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
|
||||
Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Copy().Rows(0)
|
||||
CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero
|
||||
@@ -3743,4 +3729,4 @@ Partial Class OS_OrdenesServicios
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user