+
+
+
+
+
+
+
-
+
+
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 0a4a9ebf9..8bdefd9e1 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -403,6 +403,15 @@ Partial Class Inventarios_RecepcionAlmacen
End Set
End Property
+ 'Private Property DtDocumentos As DataTable
+ ' Get
+ ' Return CType(ViewState("DtDocumentos"), DataTable)
+ ' End Get
+ ' Set(value As DataTable)
+ ' ViewState("DtDocumentos") = value
+ ' End Set
+ 'End Property
+
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -1010,6 +1019,10 @@ Partial Class Inventarios_RecepcionAlmacen
DivTraspasoDevolucion.Visible = True
End If
+ If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+ DivDocumentos.Visible = True
+ End If
+
DtDatosDetalle = Nothing
CreaDtDetalle()
DtDatosLoteDetalle = Nothing
@@ -1127,6 +1140,8 @@ Partial Class Inventarios_RecepcionAlmacen
ObjInventario.Dispose()
CargaGVInv()
+
+ UpDocumentos.Update()
End Sub
Private Sub CargaImportacionSurtir(pCveImportacion As Integer)
@@ -2180,6 +2195,14 @@ Partial Class Inventarios_RecepcionAlmacen
End If
+ If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+ Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
+ If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
+ Alert("Es necesario agregar un documento.", TipoMensaje.MsgAdvertencia)
+ Return False
+ End If
+ End If
+
Return True
End Function
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
@@ -2758,41 +2781,45 @@ Partial Class Inventarios_RecepcionAlmacen
tCveAlmacen = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen").ToEntero()
End If
- If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
- DtPSVirtual = ObjInventario.DtResultados
- End If
+ Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
- If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
- 'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero()
-
- Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
-
- Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
-
- CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
- FolioVirtual = ObjInventario.Folio
-
- For Each RowUsado As DataRow In DtPSVirtual.Rows
- Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
- Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
- Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
- Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
- ErrorMovInv = True
- Exit For
- End If
- Next
-
- If SumarImporteUsados Then
- If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
- ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
- End If
+ 'VERIFICA SI TIENE ALMACEN VIRTUAL
+ If CveAlmacenVirtual > 0 Then
+ If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
+ DtPSVirtual = ObjInventario.DtResultados
End If
- Else
- ErrorMovInv = True
+ If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
+
+ Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
+
+
+ CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
+ FolioVirtual = ObjInventario.Folio
+
+ For Each RowUsado As DataRow In DtPSVirtual.Rows
+ Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+ Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
+ Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
+ Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+ ErrorMovInv = True
+ Exit For
+ End If
+ Next
+
+ If SumarImporteUsados Then
+ If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
+ ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
+ End If
+ End If
+
+ Else
+ ErrorMovInv = True
+ End If
End If
+
End If
'DEVENGAR AC
@@ -3452,6 +3479,15 @@ Partial Class Inventarios_RecepcionAlmacen
ErrorMovInv = True
End If
End If
+
+ 'DOCUMENTOS RELACIONADOS AL MOVIMIENTO
+ If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+ If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then
+ ErrorMovInv = True
+ Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError)
+ End If
+ End If
+
Catch ex As Exception
OnError("Ocurrió un error al guardar RA.", ex)
ErrorMovInv = True
@@ -3865,6 +3901,18 @@ Partial Class Inventarios_RecepcionAlmacen
HLFolio.NavigateUrl = "#"
LbProveedor.Text = ""
LbDescripcionCompra.Text = ""
+ DivDocumentos.Visible = False
+
+ 'If DtDocumentos IsNot Nothing Then
+ ' DtDocumentos.Clear()
+ ' TxtDocumento.Text = ""
+
+ ' 'GvDocumentos.DataSource = DtDocumentos
+ ' 'GvDocumentos.DataBind()
+ 'End If
+
+ UpDocumentos.Update()
+
UpDatosCompra.Update()
CargaPendientes()
@@ -4521,6 +4569,131 @@ Partial Class Inventarios_RecepcionAlmacen
#End Region
+ 'Protected Sub BtnGuardarDocumento_Click(sender As Object, e As EventArgs)
+
+ ' Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
+ ' If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
+ ' Alert("No se agregó ningun archivo", TipoMensaje.MsgAdvertencia)
+ ' Exit Sub
+ ' End If
+
+ ' If DtDocumentos Is Nothing Then
+ ' DtDocumentos = New DataTable()
+
+ ' Dim column As DataColumn = New DataColumn("No")
+ ' column.DataType = Type.GetType("System.Int32")
+ ' With column
+ ' .AutoIncrement = True
+ ' .AutoIncrementSeed = 1
+ ' .AutoIncrementStep = 1
+ ' End With
+
+ ' DtDocumentos.Columns.Add(column)
+ ' DtDocumentos.Columns.Add("DocumentoOrignal", GetType(String))
+ ' DtDocumentos.Columns.Add("Documento", GetType(String))
+ ' DtDocumentos.Columns.Add("FileExtension", GetType(String))
+ ' End If
+
+ ' Dim row As DataRow = DtDocumentos.NewRow()
+
+ ' Dim archivo = Filesgral.FirstOrDefault()
+
+ ' row("DocumentoOrignal") = archivo.filenameO
+ ' row("Documento") = archivo.filename
+ ' row("FileExtension") = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, archivo.filename))
+
+ ' DtDocumentos.Rows.Add(row)
+
+ ' 'GvDocumentos.DataSource = DtDocumentos
+ ' 'GvDocumentos.DataBind()
+
+ ' UpDocumentos.Update()
+
+ ' RegistraScript("$('#ModalBitacoraDoc').modal('hide');")
+ 'End Sub
+ 'Protected Sub LnkEliminarDoc_Click(sender As Object, e As EventArgs)
+ ' Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton)
+
+ ' If DtDocumentos.Rows.Count > 0 And lnkRemove.CommandArgument.ToString.Length > 0 Then
+ ' Dim i As Integer
+ ' i = lnkRemove.CommandArgument.ToString.ToEntero
+ ' Dim Drs As DataRow() = DtDocumentos.Select(String.Format("No = {0}", i))
+ ' If Drs.Count > 0 Then
+
+ ' Drs(0).Delete()
+ ' End If
+ ' DtDocumentos.AcceptChanges()
+ ' End If
+
+ ' 'GvDocumentos.EditIndex = -1
+
+ ' 'GvDocumentos.DataSource = DtDocumentos
+ ' 'GvDocumentos.DataBind()
+ 'End Sub
+
+ Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
+ Dim Retorno = True
+ Dim Archivo As System.IO.FileInfo = Nothing
+
+ Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
+
+ Dim archivoOriginal = Filesgral.FirstOrDefault()
+ Dim Bitacora As String = ""
+
+ If Not String.IsNullOrEmpty(TxtObservaciones.Text) Then
+ Bitacora = TxtObservaciones.Text
+ Else
+ Bitacora = "Documento Relacionado"
+ End If
+
+ If ObjEventoBitacora.AddEventoBitacora(Bitacora, String.Format(".{0}", archivoOriginal.Extencion), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
+ Try
+ If archivoOriginal.filename <> "" Then
+ Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, archivoOriginal.filename))
+ If Archivo.Exists() Then
+ File.Move(Archivo.ToString, String.Format("{0}OI\OI{1}{2}", UsuarioActual.Empresa.Ruta, ObjEventoBitacora.CveEvento.ToString, Archivo.Extension))
+ Else
+ Retorno = False
+ End If
+ End If
+ Catch ex As Exception
+ Retorno = False
+ End Try
+ Else
+ Retorno = False
+ End If
+
+ Return Retorno
+ End Function
+
+ 'Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
+ ' Dim Retorno = True
+ ' Dim Archivo As System.IO.FileInfo = Nothing
+
+ ' For Each Dr As DataRow In DtDocumentos.Rows
+ ' If ObjEventoBitacora.AddEventoBitacora("Documento Relacionado", Dr("FileExtension").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoAlmacen:=CveMovimiento) Then
+ ' Try
+ ' If Dr("Documento").ToString <> "" Then
+ ' Archivo = New System.IO.FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, Dr("Documento").ToString))
+ ' If Archivo.Exists() Then
+ ' File.Move(Archivo.ToString, String.Format("{0}OI\OI{1}{2}", UsuarioActual.Empresa.Ruta, ObjEventoBitacora.CveEvento.ToString, Archivo.Extension))
+ ' Else
+ ' Retorno = False
+ ' End If
+ ' End If
+ ' Catch ex As Exception
+ ' Retorno = False
+ ' Exit For
+ ' End Try
+ ' Else
+ ' Retorno = False
+ ' Exit For
+ ' End If
+ ' Next
+
+ ' Return Retorno
+ 'End Function
+
End Class
Public Class MMovimientoAlmacen
diff --git a/Inventarios/RepAlmacenCompras.aspx.vb b/Inventarios/RepAlmacenCompras.aspx.vb
index 8cf23b1a7..7b62d23a6 100644
--- a/Inventarios/RepAlmacenCompras.aspx.vb
+++ b/Inventarios/RepAlmacenCompras.aspx.vb
@@ -72,7 +72,7 @@ Partial Class Inventarios_RepAlmacenCompras
'Llena Almacen
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlAlmacen.DataBind()
- DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
#End Region
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 4639c8aea..021418dfa 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -867,7 +867,7 @@ Partial Class Inventarios_TraspasoAlmacen
'VIRTUAL SALIDA
- If RealizarMovimientoVirtual Then
+ If RealizarMovimientoVirtual AndAlso CveAlmacenVirtualSalida > 0 Then
'If TipoAlmacenOrigen = 27 Then
' CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
@@ -1702,6 +1702,7 @@ Partial Class Inventarios_TraspasoAlmacen
' CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
'End If
+ 'VERIFICA SI TIENE ALMACEN VIRTUAL ASIGNADA
If CveAlmacenVirtual > 0 Then
Dim dtvirtual As DataTable = Nothing
@@ -1729,9 +1730,9 @@ Partial Class Inventarios_TraspasoAlmacen
TextoError = "No se pudo registrar el movimiento virtual"
ErrorMovInv = True
End If
- Else
- TextoError = "La Sucursal no tiene creado un almacen virtual"
- ErrorMovInv = True
+ 'Else
+ ' TextoError = "La Sucursal no tiene creado un almacen virtual"
+ ' ErrorMovInv = True
End If
End If
@@ -1964,9 +1965,9 @@ Partial Class Inventarios_TraspasoAlmacen
TextoError = "No se pudo registrar el movimiento virtual"
ErrorMovInv = True
End If
- Else
- TextoError = "La Sucursal no tiene creado un almacen virtual"
- ErrorMovInv = True
+ 'Else
+ ' TextoError = "La Sucursal no tiene creado un almacen virtual"
+ ' ErrorMovInv = True
End If
End If
diff --git a/Ventas/RepRecuperacion.aspx b/Ventas/RepRecuperacion.aspx
index 645a536bf..6e0db6b77 100644
--- a/Ventas/RepRecuperacion.aspx
+++ b/Ventas/RepRecuperacion.aspx
@@ -100,6 +100,7 @@
+
diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb
index 85efd930c..70e2d6926 100644
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -48,7 +48,7 @@ Partial Class Ventas_RepRecuperacion
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CargaCombos()
- CargaDatos()
+ 'CargaDatos()
End If
End Sub
@@ -75,6 +75,8 @@ Partial Class Ventas_RepRecuperacion
'Carga Vendedor
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind()
+ DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
+
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
@@ -177,7 +179,20 @@ Partial Class Ventas_RepRecuperacion
DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"))
- e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
+ e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
+
+
+ If DdlGrupo.SelectedValue.ToEntero = 16 Then
+ If e.Row.DBCampo("GPO").Contains("Total") Then
+ e.Row.CssClass = "Totales"
+ Else
+ If e.Row.DBCampo("CveCliente") = "" Then
+ e.Row.CssClass = "SubTotales"
+ End If
+ End If
+
+
+ End If
End If
End Sub
diff --git a/Ventas/RepRecuperacionDetalle.aspx b/Ventas/RepRecuperacionDetalle.aspx
index 9de83215a..b674b640d 100644
--- a/Ventas/RepRecuperacionDetalle.aspx
+++ b/Ventas/RepRecuperacionDetalle.aspx
@@ -16,10 +16,10 @@
- Generar PDF
+ PDF
- Exporta Excel
+ Excel
Ver Dlls en pesos
diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb
index 61fe62f14..586baddf7 100644
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -112,7 +112,8 @@ Partial Class Ventas_RepRecuperacionDetalle
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
DdlVendedor.Attributes.Add("disabled", "disabled")
DdlVendedor.Enabled = False
- End If
+ End If
+ DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
'Carga Usuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 8f5e3b4e2..01a3a63ea 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -274,7 +274,8 @@ Partial Class RepVentaDetalle
DdlGrupo.Items.Insert(10, New ListItem("Año Ejec.", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Mes Ejec.", "12"))
DdlGrupo.Items.Insert(12, New ListItem("Año/Mes Ejec.", "13"))
- DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14"))
+ DdlGrupo.Items.Insert(13, New ListItem("Fecha Ejec.", "14"))
+ DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21"))
DdlGrupo.DataBind()
End Sub
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 3826e9a93..affcda2f5 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -252,6 +252,7 @@ Partial Class Ventas_RepVentas
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+ DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
diff --git a/Ventas/RepVentasUtilidad.aspx b/Ventas/RepVentasUtilidad.aspx
index a514f9b50..d21808115 100644
--- a/Ventas/RepVentasUtilidad.aspx
+++ b/Ventas/RepVentasUtilidad.aspx
@@ -99,7 +99,7 @@
-
+ <%----%>
diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb
index 1d7fc16cd..04c8477c2 100644
--- a/Ventas/RepVentasUtilidad.aspx.vb
+++ b/Ventas/RepVentasUtilidad.aspx.vb
@@ -5,8 +5,8 @@ Imports System.Data
Imports System.Drawing
Imports Extensiones
Imports Microsoft.Reporting.WebForms
-Imports CrystalDecisions.CrystalReports.Engine
-Imports CrystalDecisions.Shared
+'Imports CrystalDecisions.CrystalReports.Engine
+'Imports CrystalDecisions.Shared
Partial Class Ventas_RepVentasUtilidad
Inherits ClsPaginas
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b0dd83db2..1fc29203d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1255,6 +1255,15 @@ Partial Class Ventas
ViewState("PermiteCredito") = value
End Set
End Property
+
+ Private Property CreditoDisponible As Double
+ Get
+ Return If(IsNothing(ViewState("CreditoDisponible")), 0, ViewState("CreditoDisponible")).ToString().ToDecimal
+ End Get
+ Set(value As Double)
+ ViewState("CreditoDisponible") = value
+ End Set
+ End Property
Private Property DtAnticipoAmortizacion As DataTable
Get
Return CType(ViewState("DtAnticipoAmortizacion"), DataTable)
@@ -18435,7 +18444,7 @@ Partial Class Ventas
'SI LA REMISION SE SURTIO CON USADOS UTILIZAR ESTE MOVIMIENTO
If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
- Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND (CveTipoAlmacen = 24 AND CveConcepto = 2) AND CveVenta > 0")
+ Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND (CveTipoAlmacen = 1 AND CveConcepto IN (3,8)) AND CveVenta > 0")
If RowMovimiento IsNot Nothing Then
CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
@@ -18450,7 +18459,7 @@ Partial Class Ventas
'SI NO SE SURTIO LA REMSION CON USADOS, UTILIZAR EL MOVIMIENTO DE SALIDA DEL INGRESO
If CveMovimientoReferencia <= 0 Then
If ObjInventario.GetInv_Mov(ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then
- Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ( (CveTipoAlmacen = 1 AND CveConcepto = 3) OR (CveTipoAlmacen = 10 AND CveConcepto = 40) ) AND CveVenta > 0")
+ Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ( (CveTipoAlmacen = 1 AND CveConcepto IN (3,8)) OR (CveTipoAlmacen = 10 AND CveConcepto = 40) ) AND CveVenta > 0")
If RowMovimiento IsNot Nothing Then
CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
@@ -18466,121 +18475,8 @@ Partial Class Ventas
End If
End If
-
- If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
- DtPSVirtual = ObjInventario.DtResultados.Copy()
- Else
- OcurrioError = True
- End If
-
- If Not OcurrioError AndAlso DtPSVirtual.Rows.Count > 0 Then
-
- CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, ObjFactura.CveVenta, -1, -1, Modulo:="Vta/VV", CveMovimientoRelacionado:=CveMovimientoReferencia)
-
- If CveMovimientoVirtual > 0 Then
- For Each RowUsado As DataRow In DtPSVirtual.Rows
- Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
- Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
- Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
- Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
- OcurrioError = True
- Exit For
- End If
- Next
- Else
- OcurrioError = True
- End If
-
- 'Agregamos las PrePolizas
- If Not OcurrioError Then
- If CveMovimientoVirtual > 0 Then
- 'OcurrioError = Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoInventario, CveAlmacen)
- If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
- Dim DtCostos = ObjInventario.DtResultados.Copy
- Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"})
- Dim IdCtaContable As Integer = 0
- Dim CveCuenta As Integer = 0
- Dim ValorInventario As Decimal
- Dim TotalCostoAcumulado As Decimal = 0D
- Dim Cont As Integer = 1
- Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
-
- For Each RowInv As DataRow In DtCostosDistinct.Rows
- ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
- IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
- CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
- TotalCostoAcumulado += ValorInventario
-
- 'cuando es el último movimiento y hay diferencias en los importes
- If Cont = DtCostosDistinct.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
- ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
- End If
-
- Try
- 'If ValorInventario <> 0 Then
- If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
- OcurrioError = True
- Exit For
- End If
- 'End If
- Catch ex As Exception
- OcurrioError = True
- Alert("Error inesperado (15148). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
- End Try
- Cont += 1
- Next
-
- If Not OcurrioError Then
- IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacenVirtual)).ToEntero()
- If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
- OcurrioError = True
- End If
- End If
- Else
- OcurrioError = True
- End If
- End If
- End If
-
- End If
-
- Catch ex As Exception
- OnError("Ocurrió un error al generar el almacen virtual.", ex)
- OcurrioError = True
- End Try
-
- Return Not OcurrioError
-
- End Function
- Private Function GenerarMovimientoAlmacenVirtualConsignacion(CveVenta As Integer, CveAlmacenContrato As Integer, ByRef ObjInventario As ClsInventarios, ObjFactura As Modelos.Factura, Optional ByRef ObjConta As ClsContabilidad = Nothing) As Boolean
- Dim OcurrioError As Boolean = False
-
- If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
- Try
- Dim CveMovimientoVirtual As Integer = -1
- Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenContrato).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
-
- Dim CveConceptoMovimientoVirtual As Integer = 37
- Dim DtPSVirtual As DataTable = Nothing
- Dim DtTamanios As DataTable = Nothing
- Dim CveMovimientoReferencia As Integer = -1
- Dim CveSubProyecto As Integer = -1
-
-
- If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
- Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ((CveTipoAlmacen = 24 AND CveConcepto = 2) OR (CveTipoAlmacen = 17 AND CveConcepto = 8)) AND CveVenta > 0")
-
- If RowMovimiento IsNot Nothing Then
- CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
- Else
- OcurrioError = True
- End If
-
- Else
- OcurrioError = True
- End If
+ 'SI TIENE ALMACEN VIRTUAL ASIGNADO GENERA EL MOVIMIENTO VIRTUAL
+ If CveAlmacenVirtual > 0 Then
If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
DtPSVirtual = ObjInventario.DtResultados.Copy()
@@ -18660,6 +18556,125 @@ Partial Class Ventas
End If
End If
+ End If
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al generar el almacen virtual.", ex)
+ OcurrioError = True
+ End Try
+
+ Return Not OcurrioError
+
+ End Function
+ Private Function GenerarMovimientoAlmacenVirtualConsignacion(CveVenta As Integer, CveAlmacenContrato As Integer, ByRef ObjInventario As ClsInventarios, ObjFactura As Modelos.Factura, Optional ByRef ObjConta As ClsContabilidad = Nothing) As Boolean
+ Dim OcurrioError As Boolean = False
+
+ If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+ Try
+ Dim CveMovimientoVirtual As Integer = -1
+ Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenContrato).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
+
+ Dim CveConceptoMovimientoVirtual As Integer = 37
+ Dim DtPSVirtual As DataTable = Nothing
+ Dim DtTamanios As DataTable = Nothing
+ Dim CveMovimientoReferencia As Integer = -1
+ Dim CveSubProyecto As Integer = -1
+ 'SI TIENE UN ALMACEN VIRTUAL GENERA EL MOVIMIENTO
+ If CveAlmacenVirtual > 0 Then
+
+ If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
+ Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ((CveTipoAlmacen = 24 AND CveConcepto = 2) OR (CveTipoAlmacen = 17 AND CveConcepto = 8)) AND CveVenta > 0")
+
+ If RowMovimiento IsNot Nothing Then
+ CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
+ Else
+ OcurrioError = True
+ End If
+
+ Else
+ OcurrioError = True
+ End If
+
+ If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
+ DtPSVirtual = ObjInventario.DtResultados.Copy()
+ Else
+ OcurrioError = True
+ End If
+
+ If Not OcurrioError AndAlso DtPSVirtual.Rows.Count > 0 Then
+
+ CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, ObjFactura.CveVenta, -1, -1, Modulo:="Vta/VV", CveMovimientoRelacionado:=CveMovimientoReferencia)
+
+ If CveMovimientoVirtual > 0 Then
+ For Each RowUsado As DataRow In DtPSVirtual.Rows
+ Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+ Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+ Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
+ Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
+ OcurrioError = True
+ Exit For
+ End If
+ Next
+ Else
+ OcurrioError = True
+ End If
+
+ 'Agregamos las PrePolizas
+ If Not OcurrioError Then
+ If CveMovimientoVirtual > 0 Then
+ 'OcurrioError = Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoInventario, CveAlmacen)
+ If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+ Dim DtCostos = ObjInventario.DtResultados.Copy
+ Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"})
+ Dim IdCtaContable As Integer = 0
+ Dim CveCuenta As Integer = 0
+ Dim ValorInventario As Decimal
+ Dim TotalCostoAcumulado As Decimal = 0D
+ Dim Cont As Integer = 1
+ Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
+
+ For Each RowInv As DataRow In DtCostosDistinct.Rows
+ ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
+ IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
+ CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
+ TotalCostoAcumulado += ValorInventario
+
+ 'cuando es el último movimiento y hay diferencias en los importes
+ If Cont = DtCostosDistinct.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
+ ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
+ End If
+
+ Try
+ 'If ValorInventario <> 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+ OcurrioError = True
+ Exit For
+ End If
+ 'End If
+ Catch ex As Exception
+ OcurrioError = True
+ Alert("Error inesperado (15148). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
+ End Try
+ Cont += 1
+ Next
+
+ If Not OcurrioError Then
+ IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacenVirtual)).ToEntero()
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
+ OcurrioError = True
+ End If
+ End If
+ Else
+ OcurrioError = True
+ End If
+ End If
+ End If
+
+ End If
+
+ End If
Catch ex As Exception
OnError("Ocurrió un error al generar el almacen virtual.", ex)
@@ -22823,29 +22838,32 @@ Partial Class Ventas
Dim dtvirtual As DataTable = Nothing
Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenOrigenContrato).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
Dim CveMovimientoVirtualSalida As Integer
+ 'SI TIENE UN ALMACEN VIRTUAL ASIGNADO GENERA EL MOVIMIENTO VIRTUAL
+ If CveAlmacenVirtual > 0 Then
+ If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalidaGeneral, UsuarioActual.CveEmpresa) Then
- If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalidaGeneral, UsuarioActual.CveEmpresa) Then
+ dtvirtual = ObjInventario.DtResultados
- dtvirtual = ObjInventario.DtResultados
+ If dtvirtual.Rows.Count > 0 Then
+ CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", Modulo:="VV2", CveMovimientoRelacionado:=CveMovimientoSalidaGeneral)
+ 'FolioVirtualSalida = ObjInventario.Folio
- If dtvirtual.Rows.Count > 0 Then
- CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="", Modulo:="VV2", CveMovimientoRelacionado:=CveMovimientoSalidaGeneral)
- 'FolioVirtualSalida = ObjInventario.Folio
+ For Each RowVirtual As DataRow In dtvirtual.Rows
+ Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+ Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
+ Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+ Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
- For Each RowVirtual As DataRow In dtvirtual.Rows
- Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
- Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
- Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
- Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
-
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
- Return False
- End If
- Next
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+ Return False
+ End If
+ Next
+ End If
+ Else
+ Return False
End If
- Else
- Return False
End If
+
End If
Else
Return False
@@ -28223,6 +28241,7 @@ Partial Class Ventas
DTPSTemp.Columns.Add("CveSubProyecto", GetType(Integer))
DTPSTemp.Columns.Add("SubProyecto", GetType(String))
+
For Each DrowPartidas As DataRow In TmpDTCalculo
Dim CveTamanioTemp As Integer = DrowPartidas("CveTamaño").ToString().ToEntero()
@@ -28283,6 +28302,10 @@ Partial Class Ventas
End If
Next
+ If DTPSTemp IsNot Nothing AndAlso DTPSTemp.Rows.Count > 0 Then
+ DTPSTemp = DTPSTemp.Select().OrderBy(Function(row) row("PU")).CopyToDataTable()
+ End If
+
For Each drowPsTamaños As DataRow In DTPSTemp.Rows
Modalidad = "A"
If drowPsTamaños("PU").ToString().ToDecimal > 0 Then