From 6ad8903d393099ee8092dfda9d6a0bdc024195d9 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 15 May 2024 10:57:03 -0700
Subject: [PATCH] EMD - solicitar anticipo de OC, error,  y permite duplicar la
 solicitud

---
 OC/OC.aspx    |  2 +-
 OC/OC.aspx.vb | 36 +++++++++++++++++++++++++++---------
 2 files changed, 28 insertions(+), 10 deletions(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index c754747cb..a91d86f88 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -2239,7 +2239,7 @@
                         <div class="row">
                             <label class="col-md-2">Solicitar a:</label>
                             <div class="col-md-9">
-                                <asp:DropDownList ID="DdlSAUsuario" CssClass="form-control input-sm select2me" DataTextField="Nombre" DataValueField="CveUsuario" runat="server" Width="100%"></asp:DropDownList>
+                                <asp:DropDownList ID="DdlSAUsuario" CssClass="form-control input-sm select2me" DataTextField="Nombre" DataValueField="CveUsuario" runat="server" Width="100%" CausesValidation="true"></asp:DropDownList>
                                 <asp:RequiredFieldValidator ID="RFVSAUsuario" runat="server" InitialValue="-1" ControlToValidate="DdlSAUsuario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Usuario''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalSolicitarAnticipo"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VCESAUsuario" runat="server" HighlightCssClass="vco" TargetControlID="RFVSAUsuario" Width="300px"></ajax:ValidatorCalloutExtender>
                             </div>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 40d6360bd..4b2a682fc 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -5464,28 +5464,46 @@ Partial Class OC_OC
         End If
 
     End Sub
+
     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)
+
         If DdlMetodoPago.SelectedValue.ToEntero = 0 Then
+
             DtPara = GlobalDTUsuarios(DdlSAUsuarioContado.SelectedValue.ToString.ToEntero, CveEmpresaActual)
+
+            If DtPara Is Nothing Then
+                DtPara = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
+            End If
+
         End If
 
-        Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
-        Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto
+        Try
+            If DtPara IsNot Nothing AndAlso DtPara.Rows.Count > 0 Then
+
+                Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
+                Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto
 
 
-        If ImporteAnticipo = 0 Then
-            ImporteAnticipo = TxtSAImporte.Text.ToDecimal
-        End If
+                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)
+                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)
+
+            End If
+        Catch ex As Exception
+
+        End Try
+
     End Sub
+
     Private Sub EnviaCorreoSolicitudAnticipoCancelado()
         'If Not CveIEAnticipo > 0 Then 'SI NO SE HA REALIZADO EL ANTICIPO NOTIFICA QUE SE HA CANCELADO
         Dim ObjOC As New ClsOC