EMD - Mejoras Propuestas - Sayri, pendiente verificar correo

OC/OC.aspx.vb

@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports System.Data
+Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
 Imports GemBox.Spreadsheet
@@ -2820,6 +2821,15 @@ Partial Class OC_OC
             End If
 
 
+            If Not TieneError AndAlso DdlMetodoPago.SelectedValue.ToEntero = 0 AndAlso TipoOC = "OC" Then
+
+                If Not GeneraAnticpoContado(CveOrdenCompra, OC.IniciaTransacSQL()) Then
+                    TieneError = True
+                End If
+
+            End If
+
+
             If Not TieneError Then
                 If Conta IsNot Nothing Then Conta.Commit()
                 OC.Commit()
@@ -3207,6 +3217,15 @@ Partial Class OC_OC
 
 
 
+
+            'If Not TieneError AndAlso DdlMetodoPago.SelectedValue.ToEntero = 0 AndAlso TipoOC = "OC" Then
+
+            '    If Not GeneraAnticpoContado(CveOrdenCompra, OC.IniciaTransacSQL()) Then
+            '        TieneError = True
+            '    End If
+
+            'End If
+
             'COMMIT
             If Not TieneError Then
                 'If MonedaTexto <> DdlMoneda.SelectedItem.Text Then
@@ -3258,6 +3277,9 @@ Partial Class OC_OC
             End If
         End If
 
+
+
+
         'TERMINA TODO POR SI OCURRIÓ ALGO RARO
         If TieneError Then
             If OC IsNot Nothing Then OC.RollBack()
@@ -5379,7 +5401,12 @@ Partial Class OC_OC
     End Sub
     Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer)
         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)
+        End If
+
         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))
@@ -8846,4 +8873,80 @@ Partial Class OC_OC
 
     End Sub
 
+
+    Protected Sub DdlMetodoPago_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        DVAnticposContado.Visible = False
+
+        If DdlMetodoPago.SelectedValue.ToEntero = 0 Then
+            DVAnticposContado.Visible = True
+            DdlSAUsuarioContado.DataSource = GlobalDTUsuarios(-1, CveEmpresaActual).FiltraParametros("CvePlataforma = 1", "Nombre")
+            DdlSAUsuarioContado.DataBind()
+            DdlSAUsuarioContado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            'CargaAnticiposSolicitudesContado()
+        End If
+
+        UpPanelDVAnticiposContado.Update()
+    End Sub
+
+
+    Protected Function GeneraAnticpoContado(CveOrdenCompraContado As Integer, ByRef transaccionSql As SqlTransaction) As Boolean
+
+        Dim respuesta As Boolean = False
+
+        If TxtSAImporteContado.Text.ToDecimal > LblTotal.Text.ToDecimal Then
+            Alert("El importe solicitado supera el saldo de la orden de compra", TipoMensaje.MsgAdvertencia)
+            Return False
+        End If
+
+        Dim Descripcion As New StringBuilder
+        Descripcion.AppendFormat("Importe anticipo : ${0} ({1}%) - <a target=""_blank"" href=""/Bancos/IE.aspx?Opcion=EGSSINFACT&CveOC={2}"">Pagar anticipo</a> - <b>Observacion:</b> {2} ", TxtSAImporteContado.Text.FormatoNumero, TxtSAImPorcentajeContado.Text, CveOrdenCompraContado, TxtSAObservacionesContado.Text)
+        Descripcion.AppendFormat("Orden de compra : {0} - <a target=""_blank"" href=""/OC/OC.aspx?OC={1}"">Ir a la orden de compra</a> - <a target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={2}"">Imprimir OC</a>", Folio, CveOrdenCompraContado, Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompraContado)))
+
+
+        Dim Asunto As String = $"{lblFolio.Text} - Solicitud de anticipo "
+        Dim ObjOC As New ClsOC(transaccionSql)
+        Dim ObjOI As New ClsOIEventos(ObjOC.IniciaTransacSQL)
+        Dim TieneError As Boolean = False
+
+        If ObjOI.AddEventoTarea(Asunto, Descripcion.ToString, 1, UsuarioActual.CveUsuario, DdlSAUsuarioContado.SelectedValue.ToString.ToEntero, NowADS(), NowADS().AddMinutes(15), -1, 1, -1, "-1", -1, -1, -1, -1, -1, CveOrdenCompraContado.ToEntero, -1, -1, UsuarioActual.CveUsuario, -1, CveEmpresaActual) Then
+            If Not ObjOC.AddSolicitudAnticipo(CveOrdenCompraContado, TxtSAImporteContado.Text.ToDecimal, CveEmpresaActual) Then
+                TieneError = True
+            End If
+        Else
+            TieneError = True
+        End If
+
+        If Not ObjOI.AddEventoBitacora($"Solicitud de anticipo de orden de compra por ${TxtSAImporteContado.Text.FormatoNumero}", "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompraContado) Then
+            TieneError = True
+        End If
+
+        If Not TieneError Then
+            EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento)
+            'LIMPIA
+            DdlSAUsuarioContado.SelectedValue = "-1"
+            TxtSAImporteContado.Text = ""
+            TxtSAObservacionesContado.Text = ""
+            TxtSAImPorcentajeContado.Text = ""
+            Alert("La solicitud de anticipo ha sido enviada correctamente.", TipoMensaje.MsgInformacion)
+        Else
+            Alert("Ocurrió un error al hacer la solicitud de anticipo.", TipoMensaje.MsgError)
+        End If
+
+
+        If TieneError Then
+            respuesta = False
+        Else
+            respuesta = True
+        End If
+
+        Return respuesta
+
+    End Function
+
+
+
+
+
 End Class
+