--CyC, Soportes, formato de econo

Ventas/Ventas.aspx.vb

@@ -6024,7 +6024,7 @@ Partial Class Ventas
 
                         'ACTIVA EDITAR
                         'SOLO LA PUEDE EDITAR CON PROCESO | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
-                        If UsuarioActual.TienePermisoProceso(202) And TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
+                        If (UsuarioActual.TienePermisoProceso(202) OrElse UsuarioActual.TienePermisoProceso(302)) And TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
                             BtnPermisoEditarRemision.Visible = True
                         End If
 
@@ -6182,7 +6182,7 @@ Partial Class Ventas
                         End If
                     End If
 
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ped") Then BtnPermisoEditarRemision.Visible = True
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
 
                     'OCULTAR BOTON DE EDICION SI SE FACTURA COTIZACION DESDE URL
@@ -15921,6 +15921,7 @@ Partial Class Ventas
                                             Pago.TipoPago = "NC"
                                             Pago.CveClientePago = ObjFactura.CveCliente
                                             Pago.Referencia = Referencia
+                                            Pago.CveClienteNC = row2.DataKey("CveCliente").ToString().ToEntero()
 
                                             ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=True)
 
@@ -27148,12 +27149,24 @@ Partial Class Ventas
             SbCondiciones.Append("<br><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-La remisión está relacionada con otra factura.</b>")
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-            DivCanRem.Visible = False
+        If Extra.Trim().Length > 0 Then
+            SbCondiciones.AppendFormat("<br><b>*{0}</b>", Extra)
         End If
 
-        If Extra.Length > 0 Then
-            SbCondiciones.AppendFormat("<br><b>*{0}</b>", Extra)
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            DivCanRem.Visible = False
+            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
+                Using ObjVentas As New ClsVentas
+                    If ObjVentas.GetMovimientosDepositoCaja(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                        If ObjVentas.DtResultados.Rows.Count > 0 Then
+                            SbCondiciones.Append("<br><br><span style='color: red;font-size: medium;'><b>*No se puede cancelar debido a que tiene un deposito.</b></span>")
+                            BtnCancelarDocumento.Visible = False
+                        End If
+                    Else
+                        BtnCancelarDocumento.Visible = False
+                    End If
+                End Using
+            End If
         End If
 
         LbCancelarDescripcion.Text = SbCondiciones.ToString()