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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-10-11 16:06:18 -07:00
parent c70e0c63e7 1335590a96
commit 8cba252775
3 changed files with 67 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
App_Code/ClsPaginas.vb
View File

@@ -11024,5 +11024,63 @@ Public Class ClsPaginas
End Function
#End Region
Public Shared Sub EnviaNotificacionSMS(Tipo As Integer, tEmpresa As Empresa, CveOS As Integer, Folio As String, FechaCirugía As DateTime, Hospital As String, Medico As String, Procedimiento As String, Tecnico As String, Vendedor As String, Remision As String, ListaPS As List(Of GenericaCantidadProducto), CorreoDestino As String)
Dim ObjMail As New ClsSisMail()
Dim Asunto As String = ""
Dim Contenido As New StringBuilder
Contenido.Append("<html>")
Contenido.Append("<head>")
Contenido.Append("<meta charset='UTF-8'>")
Contenido.Append("</head>")
Contenido.Append(" <body style='width:800px'>")
'Contenido.Append("<div>")
'Contenido.Append($"<img src='http://sms.adssistemas.mx/Empresas/186/Logo.png' style='width:200px'></img>")
'Contenido.Append("</div>")
Select Case Tipo
Case 6
Asunto = "Tu pedido ha sido entregado"
Contenido.AppendFormat(" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
Case 9
Asunto = "Material Utilizado en tu CX"
Contenido.AppendFormat(" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
Case 10
Asunto = "Material por recolectar; Remisión: " & Remision
Contenido.AppendFormat(" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
Case 11
Asunto = "Sin material por recolectar ; Remisión " & Remision
Contenido.AppendFormat(" <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>OS: <a href='https://sms.adssistemas.mx/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/></p>", CveOS, Folio)
Case 12
Asunto = "Remisión por facturar ### (folio de Remisión)"
Contenido.AppendFormat("Remisión: <a href='https://sms.adssistemas.mx/Ventas/Vetas.aspx?CveVenta={0}'>{1}</a><br/>", CveOS, Folio)
End Select
Contenido.AppendFormat("Fecha y hora de cx: {0}<br/>", FechaCirugía.ToString("dd/MM/yyyy HH:mm"))
Contenido.AppendFormat("Hospital: {0}<br/>", Hospital)
Contenido.AppendFormat("Médico: {0}<br/>", Medico)
Contenido.AppendFormat("Procedimiento: {0}<br/>", Procedimiento)
If Tecnico <> "" Then Contenido.AppendFormat("Técnico: {0}<br/>", Tecnico)
Contenido.AppendFormat("Vendedor: {0}<br/>", Vendedor)
Contenido.AppendFormat("Remisión: {0}<br/>", Remision)
If ListaPS.Count > 0 Then
Contenido.Append(" <div style='width:100%;text-align:left'>")
Contenido.Append(" <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>")
Contenido.AppendFormat("<b>Productos.</b><br/>", Remision)
For Each ps As GenericaCantidadProducto In ListaPS
Contenido.AppendFormat("<tr><td style='width:25%'>{0}</td><td style='width:75%'>{1}</td></tr>", ps.Cantidad.FormatoNumero(0), ps.Producto)
Next
Contenido.Append(" </table>")
Contenido.Append(" </div>")
Else
Contenido.AppendFormat("<b>Sin material sobrante.</b><br/>", Remision)
End If
Contenido.AppendFormat("Remisión: {0}<br/>", Remision)
Contenido.Append(" </body>")
Contenido.Append("</html>")
If ObjMail.SendMail(tEmpresa, CorreoDestino, Asunto, Contenido.ToString) Then
End If
End Sub
End Class

5
App_Code/modExtensiones.vb
View File

@@ -4094,6 +4094,11 @@ Namespace Extensiones
End Class
Public Class GenericaCantidadProducto
Public Property Cantidad As Decimal
Public Property Producto As String
End Class
#End Region

12
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -4766,21 +4766,17 @@ Partial Class Inventarios_RecepcionAlmacen
Dim CantidadSeleccionadaOriginal As Decimal = dr1("CantidadSeleccionada").ToString.ToDecimal
dr1("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > dr1("CantidadF").ToString.ToDecimal, dr1("CantidadF").ToString.ToDecimal, CantidadSeleccionadaOriginal)
CantidadSeleccionadaOriginal = CantidadSeleccionadaOriginal - dr1("CantidadF").ToString.ToDecimal
Dim CostoIndirectoOriginal As Decimal = dr1("CostoIndirecto").ToString.ToDecimal
dr1("CostoIndirecto") = (CostoIndirectoOriginal * dr1("CantidadF").ToString.ToDecimal) / CantidadFOriginal
Dim CostoIndirectoExtranjeroOriginal As Decimal = dr1("CostoIndirectoExtranjero").ToString.ToDecimal
dr1("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr1("CantidadF").ToString.ToDecimal) / CantidadFOriginal
DtInv.AcceptChanges()
Dim CostoIndirectoOriginal As Decimal = dr1("CostoIndirecto").ToString.ToDecimal
Dim CostoIndirectoExtranjeroOriginal As Decimal = dr1("CostoIndirectoExtranjero").ToString.ToDecimal
dr("CantidadC") = Cantidad.ToDecimal
dr("CantidadF") = Cantidad.ToDecimal
dr("CantidadS") = (CantidadSOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal
dr("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > 0, CantidadSeleccionadaOriginal, 0)
dr("Seleccionado") = If(CantidadSeleccionadaOriginal > 0, True, False)
dr("CostoIndirecto") = (CostoIndirectoOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal
dr("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal
dr("CostoIndirecto") = CostoIndirectoOriginal
dr("CostoIndirectoExtranjero") = CostoIndirectoExtranjeroOriginal
DtInv.Rows.InsertAt(dr, Index)
DtInv.AcceptChanges()