--Puntos biosistemas

App_Code/ClsInventarios.vb

@@ -6404,6 +6404,26 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+
+    Public Function ReplicarMovtoEmpresa(CveEmpresa As Integer, CveMovimiento As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_ReplicaMovtoInterEmpresa")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar los productos por ultimo costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #Region " IDisposable Support "
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)

App_Code/ClsPaginas.vb

@@ -7738,8 +7738,8 @@ Public Class ClsPaginas
         If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
             RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
         End If
-        Dim urlHost As String = "http://sig.adssistemas.mx:7998/"
+        'Dim urlHost As String = "http://sig.adssistemas.mx:7998/"
-        'Dim urlHost As String = "http://localhost:2202/"
+        Dim urlHost As String = "http://localhost:2202/"
         If EsProduccion Then
             urlHost = "http://192.200.113.178:6599/"
         End If

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