From 05a8a16a8ab4260902811b6da98a77e345c364b3 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 13 Feb 2020 10:00:55 -0700
Subject: [PATCH] imprimiendo el formato para telcel en la 72

---
 Ventas/Ventas.aspx    |  4 ++++
 Ventas/Ventas.aspx.vb | 45 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 49 insertions(+)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 7d7216312..0c7e15e77 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -352,6 +352,9 @@
             <li>
                 <asp:LinkButton runat="server" ID="LnkImprimirFormatoCicovisa" Visible="false" OnClick="LnkImprimirFormatoCicovisa_Click">Imprimir Formato Cicovisa</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkImprimirFormatoTelcel" Visible="false" OnClick="LnkImprimirFormatoTelcel_Click">Imprimir Formato Radio Movil DIPSA</asp:LinkButton>
+            </li>
             <li>
                 <asp:LinkButton runat="server" ID="LnkEnviarPolizaVirtual" Visible="false" OnClick="LnkEnviarPolizaVirtual_Click">Enviar Póliza Virtual</asp:LinkButton>
             </li>
@@ -364,6 +367,7 @@
             <asp:PostBackTrigger ControlID="BtnContabilizar" />
             <asp:PostBackTrigger ControlID="BtnContabilizar" />
             <asp:PostBackTrigger ControlID="LnkImprimirFormatoCicovisa" />
+            <asp:PostBackTrigger ControlID="LnkImprimirFormatoTelcel" />
             <%-- <asp:PostBackTrigger ControlID="LnkDescargarFacturaPrueba" />--%>
             <%--  <asp:PostBackTrigger ControlID="LbDescargarExcel" />--%>
         </Triggers>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f22ae9243..7d8a109e7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2056,6 +2056,10 @@ Partial Class Ventas
                     If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
                         LnkImprimirFormatoCicovisa.Visible = True
                     End If
+                    'HABILITA IMPRESION DE FORMATO TELCEL
+                    If UsuarioActual.CveEmpresa = 72 And CveCliente = 70869 And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
+                        LnkImprimirFormatoTelcel.Visible = True
+                    End If
 
                     If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
                         DivDevAlm.Visible = True
@@ -22120,6 +22124,47 @@ Partial Class Ventas
             ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
         End If
     End Sub
+
+    Protected Sub LnkImprimirFormatoTelcel_Click(sender As Object, e As EventArgs)
+        Dim ObjVentas As New ClsVentas
+        Dim ObjInventario As New ClsInventarios
+        Dim SerieFolio As String = ""
+        Dim PedidoContrato As String = ""
+        Dim EnvioContacto As String = ""
+        Dim EnvioDireccion As String = ""
+        Dim Guia As String = ""
+        If ObjInventario.GetPaqueteriaGuia(-1, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
+            If ObjInventario.DtResultados.Rows.Count > 0 Then
+                Guia = ObjInventario.DtResultados.Rows(0)("Guia").ToString
+            End If
+        End If
+        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
+                PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
+                EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
+                EnvioDireccion = $"{ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString}, NO. EXT: {ObjVentas.DtResultados.Rows(0)("EnvioNoExt").ToString}, COLONIA: {ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString}, CP: {ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString}"
+            End If
+        End If
+        Dim Dt As DataTable = Nothing
+        If ObjVentas.GetVentaDetalle(CveVenta) Then
+            Dt = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        ObjInventario.Dispose()
+        If Dt.Rows.Count > 0 Then
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
+            params.Add(New ReportParameter("SerieFolio", SerieFolio))
+            params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
+            params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
+            params.Add(New ReportParameter("Guia", Guia))
+            ImprimirPDF("Empresas/Grales/Formatos/Telcel.rdlc", Dt, params, String.Format("Formato RADIO MOVIL DIPSA S.A DE C.V. -{0}", Now.ToDateTime.ToShortDateString))
+        End If
+    End Sub
 #End Region
 
 #Region "REQUIERE  OC"