--Puntos biosistemas

Ventas/Ventas.aspx.vb

@@ -10909,6 +10909,14 @@ Partial Class Ventas
                     End If
                 End If
 
+                'SI NO VIENE DE REMISION, MARCAR COMO SURTIDA
+                If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then
+                    'MARCAR VENTA ANTERIOR
+                    If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
+                        ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura")
+                    End If
+                End If
+
                 'SI ES AMORTIZACION 3.3
                 Dim ListaNotasCreditoGeneradas As New List(Of Modelos.Factura)
                 Dim NCDescuento As Boolean = ((ListaNCDesc IsNot Nothing AndAlso ListaNCDesc.Count > 0) OrElse (ListaNCBonificacion IsNot Nothing AndAlso ListaNCBonificacion.Count > 0))
@@ -14761,6 +14769,13 @@ Partial Class Ventas
                         End If
                     End If
 
+                    'SI NO VIENE DE REMISION, MARCAR COMO SURTIDA
+                    If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then
+                        If Not ObjInventario.UpdateEstatusAlmacen(ObjVentas.CveVentaDetalle, 1) Then
+                            ErrorList.Add("No se pudo actualizar el movimiento de almacen de la factura")
+                        End If
+                    End If
+
                     Dim TmpDr As DataRow = TmpDTDetalle.Select($"Consec = {Row("Consec").ToString()}")(0)
                     TmpDr("CveVentaDetalle") = ObjVentas.CveVentaDetalle
 
@@ -24903,7 +24918,7 @@ Partial Class Ventas
                 'SI ES CREDITO EL METODO DE PAGO DEBE SER PPD
                 If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
                     DdlMetodoPago33.SelectedValueExist("3")
-                    DdlMetodoPago33.Enabled = False
+                    DdlMetodoPago33.Enabled = UsuarioActual.TienePermisoProceso(408)
 
                     If Me.CveVenta > 0 AndAlso (Not Me.EsCreaApartirDe) AndAlso (Not Me.ModalidadEdicion) AndAlso Me.CveMetodoPago33Venta > 0 Then
                         DdlMetodoPago33.SelectedValueExist(Me.CveMetodoPago33Venta)
@@ -24945,7 +24960,7 @@ Partial Class Ventas
                 'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE
                 If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
                     DdlMetodoPago33.SelectedValueExist("1")
-                    DdlMetodoPago33.Enabled = False
+                    DdlMetodoPago33.Enabled = UsuarioActual.TienePermisoProceso(408)
 
                     If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
                         DdlFormaPago33.Enabled = True