Commit inicial Ventas Productivo

AIMMGM/Pagos.aspx.vb

@@ -0,0 +1,218 @@
+
+Imports ClosedXML.Excel
+Imports Extensiones
+Imports System.Data
+
+Partial Class AIMMGM_Pagos
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+            Dim Cliente As New ClsClientes
+            If Cliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, 43, -1) Then
+                DdlCliente.DataSource = Cliente.DtResultados
+            End If
+            Cliente.Dispose()
+
+            DdlCliente.DataBind()
+            DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+            CargaDatos()
+        End If
+
+        'Alert(GeneraContrasena)
+
+    End Sub
+
+    Sub CargaDatos()
+        Dim Aprobacion As Integer = -1
+        Dim AIM As New ClsAIMMGM
+
+        If TxtAprobacion.Text.Trim <> "" Then Aprobacion = TxtAprobacion.Text.ToEntero
+        If AIM.GetPagos(DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, Aprobacion:=Aprobacion) Then
+            GvPagos.DataSource = AIM.DtResultados
+
+        End If
+
+        AIM.Dispose()
+        GvPagos.DataBind()
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Protected Sub GvPagos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPagos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("Archivo") <> "" Then
+                e.Row.FCHyperLink("ImgArchivo").NavigateUrl = String.Format("/Empresas/{0}/Documentos/{1}", UsuarioActual.CveEmpresa, e.Row.DBCampo("Archivo"))
+            End If
+        End If
+
+    End Sub
+
+    Protected Sub LnkValidar_Click(sender As Object, e As EventArgs)
+        Dim Lnk As LinkButton = CType(sender, LinkButton)
+        Dim gvr As GridViewRow = CType(Lnk.NamingContainer, GridViewRow)
+
+        If Lnk.CommandArgument.ToEntero > 0 Then
+
+            Dim AIM As New ClsAIMMGM
+            If AIM.GetPagos(-1, -1, Lnk.CommandArgument.ToEntero) Then
+                If AIM.DtResultados.Rows.Count > 0 Then
+                    Dim dr As DataRow = AIM.DtResultados.Rows(0)
+                    EnviaCorreo(dr("Mail").ToString, dr("Importe").ToString.ToDouble, dr("Fecha").ToString.ToDate)
+
+                    If gvr.FCCheckBox("ChkRequiereFactura").Checked Then
+                        AIM.UpdateEstatus(2, 1, Lnk.CommandArgument.ToEntero)
+                    Else
+                        AIM.UpdateEstatus(4, 1, Lnk.CommandArgument.ToEntero)
+                    End If
+
+                End If
+            End If
+
+            AIM.Dispose()
+            CargaDatos()
+        End If
+
+    End Sub
+
+    Private Sub EnviaCorreo(Correo As String, Importe As Double, Fecha As Date)
+        Dim strSQL As New StringBuilder
+        strSQL.Append(" <html> ")
+        strSQL.Append(" <head></head> ")
+        strSQL.Append(" <body>  ")
+        strSQL.Append(" <img src='http://expominson2014.com/CorreoEncabezado.jpg'><br /> ")
+        strSQL.Append("  ")
+        strSQL.Append(" <p class=MsoNormal style='margin-top:15.0pt;margin-right:0cm;margin-bottom: ")
+        strSQL.Append(" 7.5pt;margin-left:0cm;line-height:normal;mso-outline-level:3'><b><span ")
+        strSQL.Append(" style='font-size:14.5pt;font-family:""Century Gothic"",""sans-serif"";mso-fareast-font-family: ")
+        strSQL.Append(" ""Times New Roman"";mso-bidi-font-family:""Times New Roman"";color:#2A4A7E; ")
+        strSQL.Append(" mso-fareast-language:ES-MX'>SONORA 2014: Minería Moderna, Ejemplo de Industria ")
+        strSQL.Append(" Responsable</span></b><b><span style='font-size:14.5pt;font-family:""Century Gothic"",""sans-serif""; ")
+        strSQL.Append(" mso-fareast-font-family:""Times New Roman"";mso-bidi-font-family:""Times New Roman""; ")
+        strSQL.Append(" color:#89BCDC;mso-fareast-language:ES-MX'><o:p></o:p></span></b></p> ")
+        strSQL.Append(" <br> ")
+        strSQL.Append(" <br> ")
+        strSQL.Append(" <p class=MsoNormal style='margin-top:9.0pt;margin-right:0cm;margin-bottom:9.0pt; ")
+        strSQL.Append(" margin-left:0cm;text-align:justify;line-height:normal'><span style='font-size: ")
+        strSQL.Append(" 12.0pt;font-family:""Century Gothic"",""sans-serif"";mso-fareast-font-family:""Times New Roman""; ")
+        strSQL.Append(" mso-bidi-font-family:""Times New Roman"";color:#2C2C25;mso-fareast-language:ES-MX'>Estimado Cliente <br> ")
+        strSQL.AppendFormat(" El Pago por ${0} con fecha {1} ha sido validado. ", Importe.FormatoNumero(), Fecha.ToShortDateString())
+        strSQL.Append("  <br><br> Muchas gracias por su Pago.")
+        strSQL.Append("  ")
+        strSQL.Append(" <br><br> ")
+
+        strSQL.Append(" </span></p></body></html> ")
+
+
+
+        'Dim ObjMail As New ClsSisMail()
+        Dim Emp As New Empresa
+        Dim ObjEmp As New ClsSisEmpresas
+
+        If ObjEmp.GetEmpresas(43, "-1", "-1", "-1", "-1") Then
+            Emp = ObjEmp.Empresa
+        End If
+        ObjEmp.Dispose()
+
+        'If ObjMail.Mandacorreo(Emp, Correo, "ExpominSon 2014: Comprobante de Pago validado", "", "", {""}, strSQL.ToString) Then
+
+
+        'End If
+    End Sub
+
+    Protected Sub BtnSolicitarFactura_Click(sender As Object, e As EventArgs) Handles BtnSolicitarFactura.Click
+        'solicitar la facturas de los pagos pendientes que no se han facturado
+
+        Dim AIM As New ClsAIMMGM
+        Dim dt As DataTable
+        If AIM.GetPagos(DdlCliente.SelectedValue.ToEntero, 2) Then
+            dt = AIM.DtResultados.FiltraParametros("Facturado = 0 and RequiereFactura = 1")
+            ' GvE.Caption = String.Format("<table style='width:100%; background-color:#ADD8E6;'><tr><td>{0}</td></tr></table>", Now.ToLongDateString)
+            GvE.CaptionAlign = TableCaptionAlign.Left
+            GvE.DataSource = dt
+            GvE.DataBind()
+
+
+            If GvE IsNot Nothing AndAlso GvE.Rows.Count > 0 Then
+                Dim NombreArchivoXLSX As String = "Listado"
+                Dim dtt As New DataTable(NombreArchivoXLSX)
+                Dim i As Integer = 0
+                Dim ArrColumnasVisibles As New List(Of Integer) 'solo recorro las columnas visibles
+
+                For Each cell As TableCell In GvE.HeaderRow.Cells
+                    If GvE.Columns(i).Visible Then
+                        dtt.Columns.Add(HttpUtility.HtmlDecode(TextoCelda(cell)))
+                        ArrColumnasVisibles.Add(i)
+                    End If
+                    i += 1
+                Next
+                i = 0
+
+                For Each row As GridViewRow In GvE.Rows
+                    dtt.Rows.Add()
+                    i = 0
+                    For Each j As Integer In ArrColumnasVisibles
+
+                        dtt.Rows(dtt.Rows.Count - 1)(i) = TextoCelda(row.Cells(j))
+                        i = i + 1
+
+                    Next
+                Next
+                Dim Archivoxlsx As String = String.Format("{0}/Empresas/{1}/Documentos/{2}.xlsx", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, NombreArchivoXLSX)
+                Using wb As New XLWorkbook()
+                    wb.Worksheets.Add(dtt)
+                    wb.SaveAs(Archivoxlsx)
+
+                End Using
+
+                For Each dr As DataRow In AIM.DtResultados.Rows
+                    AIM.UpdateEstatus(3, 1, dr("CvePago").ToString.ToEntero)
+                Next
+
+                EnviaSolicitud("contabilidad2010@aimmgm.org.mx", Archivoxlsx)
+                Alert("Facturas Solicitadas", TipoMensaje.MsgInformacion)
+            Else
+                Alert("No hay pagos que facturar", TipoMensaje.MsgInformacion)
+            End If
+
+
+
+        End If
+
+        AIM.Dispose()
+    End Sub
+
+
+    Private Sub EnviaSolicitud(Correo As String, Adjunto As String)
+        Dim strSQL As New StringBuilder
+        strSQL.Append(" <html> ")
+        strSQL.Append(" <head></head> ")
+        strSQL.Append(" <body>  ")
+        strSQL.Append(" <span style='font-size: ")
+        strSQL.Append(" 12.0pt;font-family:""Century Gothic"",""sans-serif"";mso-fareast-font-family:""Times New Roman""; ")
+        strSQL.Append(" mso-bidi-font-family:""Times New Roman"";color:#2C2C25;mso-fareast-language:ES-MX'>Hola gracias por elaborar la facturas con los datos anexos<br /><br />  Atentamente<br /><br /> AIMMGM, AC Distrito Sonora")
+        strSQL.Append(" </span></p> </body></html> ")
+
+        Dim ObjMail As New ClsSisMail()
+        Dim Emp As New Empresa
+        Dim ObjEmp As New ClsSisEmpresas
+
+        If ObjEmp.GetEmpresas(43, "-1", "-1", "-1", "-1") Then
+            Emp = ObjEmp.Empresa
+        End If
+        ObjEmp.Dispose()
+
+        'If ObjMail.Mandacorreo(Emp, Correo, "Solicitud de Factura", Adjunto, "", {"admonaimmgm@gmail.com", "facturacion@aimmgm.org.mx"}, strSQL.ToString) Then
+
+
+        'End If
+        'If ObjMail.Mandacorreo(Emp, Correo, "Solicitud de Factura", Adjunto, "", {"rene.molina@gmail.com", "rene.molina@adsistemas.mx"}, strSQL.ToString) Then
+
+
+        'End If
+    End Sub
+
+End Class