Retro EMD - Mejoras Propuestas - Sayri

OC/OC.aspx.vb

@@ -5399,7 +5399,7 @@ Partial Class OC_OC
         End If
 
     End Sub
-    Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer)
+    Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, Optional ImporteAnticipo As Decimal = 0)
         Dim Param As New List(Of String)
 
         Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
@@ -5409,7 +5409,14 @@ Partial Class OC_OC
 
         Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
         Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto
-        Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedText))
+
+
+        If ImporteAnticipo = 0 Then
+            ImporteAnticipo = TxtSAImporte.Text.ToDecimal
+        End If
+
+
+        Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), ImporteAnticipo.ToString, DdlProveedores.SelectedText))
         Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
         Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
         Hilo.Start(Param)
@@ -8922,7 +8929,7 @@ Partial Class OC_OC
         End If
 
         If Not TieneError Then
-            EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento)
+            EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento, TxtSAImporteContado.Text.ToDecimal)
             'LIMPIA
             DdlSAUsuarioContado.SelectedValue = "-1"
             TxtSAImporteContado.Text = ""