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

Ventas/Clientes.aspx.vb

@@ -788,7 +788,7 @@ Partial Class Clientes
                         UpAccionesCRM.Update()
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol = 1280 Then
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol.Contiene(1280, 1511) Then
                         DeshabilitarDatosClienteCajas()
                     End If
 

Ventas/RepVentasAutorizaciones.aspx

@@ -147,6 +147,7 @@
                     <asp:BoundField DataField="Moneda" HeaderText="Moneda" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" ItemStyle-Width="4%" />
                     <asp:BoundField DataField="NombreUsuario" HeaderText="Usuario"  />
                     <asp:BoundField DataField="NombreAutorizo" HeaderText="UsuarioAutorizo"   />
+                    <asp:HyperLinkField DataTextField="SerieFolioRemision" HeaderText="Remisión" DataNavigateUrlFields="CveVentaRemision" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"  />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

Ventas/Ventas.aspx.vb

@@ -11714,6 +11714,11 @@ Partial Class Ventas
             If ObjVentas.CveVenta > 0 And CvePedidoA > 0 And DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
                 If Not ObjCliente.UpdateEstatusPedido(CvePedidoA, 18, -1, UsuarioActual.CveUsuario, CveRemision:=factura.CveVenta) Then
                     ErrorList.Add("Ocurrió un error al actualizar el estatus del pedidoA")
+                Else
+                    'Remision
+                    If Not ObjEventos.AddEventoBitacora($"Remisionado de autorización en: <a href='/Ventas/Ventas.aspx?CveVenta={ObjFactura.CveVenta}' target='_blank' class='Texto'>{ObjFactura.Folio}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CvePedidoA) Then
+                        ErrorList.Add("Ocurrió un error al agregar bitácora de Autorización")
+                    End If
                 End If
             End If