Cambios en los reportes

Ventas/ActualizarPrecios.aspx.vb

@@ -316,7 +316,26 @@ Partial Class Ventas_ActualizarPrecios
             Exit Sub
         End If
 
-        DtExcel.TableName = DdlPrecioLista.SelectedItem.Text
+
+        If DdlPrecioLista.SelectedItem IsNot Nothing Then
+            Dim worksheetName As String = DdlPrecioLista.SelectedItem.Text
+
+            Const invalidCharsRegex As String = "[/\\*'?[\]:]+"
+            Const maxLength As Integer = 31
+            Dim safeName As String = Regex.Replace(worksheetName, invalidCharsRegex, " ").Replace("  ", " ").Trim()
+
+            If String.IsNullOrEmpty(safeName) Then
+                safeName = "Precios"   ' cannot be empty
+            ElseIf safeName.Length > maxLength Then
+                safeName = safeName.Substring(0, maxLength)
+            End If
+
+            DtExcel.TableName = safeName
+        Else
+            DtExcel.TableName = "Precios"
+        End If
+
+
         DtExcel.Columns("Codigo").ColumnName = "Código"
         DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)

Ventas/Clientes.aspx

@@ -5037,6 +5037,9 @@
                         </div>
                     </div>
                 </ContentTemplate>
+                <Triggers>
+                    <asp:PostBackTrigger ControlID="BtnDescargar" />
+                </Triggers>
             </asp:UpdatePanel>
         </div>
     </div>

Ventas/Clientes.aspx.vb

@@ -1763,7 +1763,7 @@ Partial Class Clientes
                     DivPortletSucursales.Visible = False
                     DivPortletDireccionEnvio.Visible = False
                     DivPortletAsignaciones.Visible = False
-                    DivPortletBitacora.Visible = False
+                    'DivPortletBitacora.Visible = False
                     BtnEliminar.Visible = False
 
                     DivProtletRegistrar.Visible = True

Ventas/PV.aspx.vb

@@ -1867,7 +1867,7 @@ Partial Class PV
                 For Each Row As DataRow In TmpDT.FiltraParametros("EliminarDB = False").Rows
                     Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero()
                     If CveVentaDetalle > 0 Then
-                        If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal(), Row("ImporteIEPS").ToString.ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then
+                        If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal(), Row("ImporteIEPS").ToString.ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("ImporteIVA").ToString.ToDecimal(), Row("PorcentajeIVA").ToString().ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then
                             OcurrioError = True
                             Exit For
                         End If