Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Ventas/CatPS.aspx.vb

@@ -262,7 +262,7 @@ Partial Class CatPS
     End Sub
 
     Protected Sub LBExcelPersonalizado_Click(Sender As Object, e As EventArgs) Handles LBExcelPersonalizado.Click
-        ExportToExcelGembox(GvDatos, "Catálogo de Productos y Servicios", UsuarioActual, "", "", "Catálogo de Productos y Servicios", "", -1)
+        ExportToExcelGembox(GvDatos, "Catálogo de Productos y Servicios", UsuarioActual, "Catálogo de Productos y Servicios")
     End Sub
 
     Public Overrides Sub VerifyRenderingInServerForm(control As Control)

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -906,8 +906,20 @@ Partial Class Ventas_RepProductosServiciosDetalle
                 If Drow("TipoDocumento").ToString.Trim <> String.Empty Then
                     Archivo = String.Format("{0}PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta.Replace("\", "/"), Drow("TipoDocumento").ToString, Drow("SerieFolio").ToString)
                     If File.Exists(Archivo) Then
+
                         archiveZip.CreateEntryFromFile(Archivo, Drow("SerieFolio").ToString & ".pdf")
-                        ' Exit For
+
+                        If UsuarioActual.CveRol = 1 Then
+                            Archivo = String.Format("{0}XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta.Replace("\", "/"), Drow("TipoDocumento").ToString, Drow("SerieFolio").ToString)
+                            If File.Exists(Archivo) Then
+                                archiveZip.CreateEntryFromFile(Archivo, Drow("SerieFolio").ToString & ".xml")
+                                ' Exit For
+                            Else
+                                HuboInexistentes = True
+                                SBInexistentes.AppendFormat("Tipo {0}, Folio {1} - {2}<br />", Drow("TipoDocumento").ToString, SerieFolio, Archivo)
+                            End If
+                        End If
+
                     Else
                         HuboInexistentes = True
                         SBInexistentes.AppendFormat("Tipo {0}, Folio {1} - {2}<br />", Drow("TipoDocumento").ToString, SerieFolio, Archivo)

Ventas/RepRemisiones.aspx

@@ -271,6 +271,14 @@
                             <asp:Literal ID="LtlSubTotal" runat="server" Text='<%# Eval("SubTotal", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right" Visible="false">
+                        <HeaderTemplate>
+                            <asp:Label Text="Descuento" runat="server" CausesValidation="false"> </asp:Label>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlDescuento" runat="server" Text='<%# Eval("Descuento", "{0:N2}") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                         <HeaderTemplate>
                             <asp:Label Text="IVA" runat="server" CausesValidation="false"> </asp:Label>

Ventas/RepRemisiones.aspx.vb

@@ -5,9 +5,8 @@ Imports System.Data
 Imports Microsoft.Reporting.WebForms
 Imports Extensiones
 Partial Class RepRemisiones
-    Inherits ClsPaginas
-    Private Shared missing As Object = System.Reflection.Missing.Value
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
     Private Property FechaI As String
         Get
@@ -96,6 +95,7 @@ Partial Class RepRemisiones
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         End If
+        GvDatos.Columns(7).Visible = ObjVentas.DtResultados.SUMD("Descuento") > 0
         ObjVentas.Dispose()
 
         GvDatos.DataBind()
@@ -131,17 +131,17 @@ Partial Class RepRemisiones
 #End Region
 
 #Region "CARGA COMBOS FILTRO"
-    Private Sub CargaCliente()
-        'CargaClientes
-        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
-        If EsWS Then
-            DdlClientes.setEsWebService(True)
-        Else
-            DdlClientes.setEsWebService(False)
-            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-            DdlClientes.DataBind()
-            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        End If
+    Private Sub CargaCliente()
+        'CargaClientes
+        'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        'If EsWS Then
+        DdlClientes.setEsWebService(True)
+        ' Else
+        'DdlClientes.setEsWebService(False)
+        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+        'DdlClientes.DataBind()
+        'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        'End If
 
     End Sub
     Private Sub CargaSucursales()

Ventas/RepVentaDetalle.aspx.vb

@@ -876,7 +876,8 @@ Partial Class RepVentaDetalle
         'D E S C A R G A   I O N I C !
         Dim DescargaZIP As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile()
         Using DescargaZIP
-
+            DescargaZIP.UseZip64WhenSaving = Ionic.Zip.Zip64Option.AsNecessary
+
             For Each gvr As GridViewRow In GvDatos.Rows
                 If gvr.DataKey("CveVenta").ToEntero > 0 Then
                     Select Case gvr.DataKey("TipoDocumento").ToString

Ventas/Ventas.aspx

@@ -496,7 +496,8 @@
                                                 <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
                                         </span>
-
+                                        <asp:LinkButton ID="LnkEditarDir" runat="server" OnClick="LnkEditarDir_Click" AlternateText="Editar Dirección" Visible="false" ToolTip="Editar Dirección" CausesValidation="False" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" /> 
+                                        <asp:LinkButton ID="LnkAplicarDir" runat="server" OnClick="LnkAplicarDir_Click" AlternateText="Actualizar Dirección" Visible="false" ToolTip="Actualizar Dirección" CausesValidation="False" CssClass="btn btn-circle btn-xs blue" Text="<i class='fa fa-check'></i>" /> 
                                         <asp:LinkButton ID="LnkOtraDireccion" runat="server" Text="Otra dirección?" Visible="false"></asp:LinkButton>
                                     </table>
                                 </td>

Ventas/Ventas.aspx.vb

@@ -4673,6 +4673,7 @@ Partial Class Ventas
                     ChkDireccionEnvio.Enabled = False
                     DdlDireccionEnvio.Visible = True
                     trDireccionEnvio.Visible = True
+                    If UsuarioActual.TienePermisoProceso(333) Then LnkEditarDir.Visible = True
                 End If
 
                 'ESTATUS FACTURA
@@ -5766,7 +5767,7 @@ Partial Class Ventas
                 End If
 
                 'HABILITA LA OPCION DE DIRECCION DE ENVIO
-                If UsuarioActual.CveEmpresa.Contiene(1, 72, 119) Then
+                If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140) Then
                     trDireccionEnvio.Visible = True
                     CargaDireccionesEnvio()
                 End If
@@ -32632,5 +32633,28 @@ Partial Class Ventas
         Public Property CveVenta As Integer
         Public Property FolioFiscal As String
     End Class
+
+    Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs)
+        DdlDireccionEnvio.Enabled = True
+        LnkEditarDir.Visible = False
+        LnkAplicarDir.Visible = True
+    End Sub
+
+    Protected Sub LnkAplicarDir_Click(sender As Object, e As EventArgs)
+        Dim ProcesoOK As Boolean = True
+
+        Dim ObjVentas As New ClsVentas()
+        If Not ObjVentas.UpdateDireccionEnvioVenta(CveVenta, DdlDireccionEnvio.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = False
+        End If
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            Alert("Dirección Actualizada correctamente.", ModExtensiones.TipoMensaje.ToastInformacion)
+            LnkAplicarDir.Visible = False
+            LnkEditarDir.Visible = True
+        End If
+
+    End Sub
 End Class