+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb
new file mode 100644
index 000000000..64dd89557
--- /dev/null
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -0,0 +1,485 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class General_RepIndicadorResumen
+ Inherits ClsPaginas
+#Region "propiedades"
+
+ Private Property VxP As DataTable
+ Get
+
+ If ViewState("VxP") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("VxP"), DataTable)
+ End If
+
+ End Get
+ Set(value As DataTable)
+ ViewState("VxP") = value
+ End Set
+ End Property
+ Private Property CxP As DataTable
+ Get
+
+ If ViewState("CxP") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("CxP"), DataTable)
+ End If
+
+ End Get
+ Set(value As DataTable)
+ ViewState("CxP") = value
+ End Set
+ End Property
+ Private Property CxP192 As DataTable
+ Get
+
+ If ViewState("CxP192") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("CxP192"), DataTable)
+ End If
+
+ End Get
+ Set(value As DataTable)
+ ViewState("CxP192") = value
+ End Set
+ End Property
+
+ Private Property CCxC As DataTable
+ Get
+
+ If ViewState("CCxC") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("CCxC"), DataTable)
+ End If
+
+ End Get
+ Set(value As DataTable)
+ ViewState("CCxC") = value
+ End Set
+ End Property
+ Private Property CPxP As DataTable
+ Get
+
+ If ViewState("CPxP") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("CPxP"), DataTable)
+ End If
+
+ End Get
+ Set(value As DataTable)
+ ViewState("CPxP") = value
+ End Set
+ End Property
+
+ Private Property DtColor As DataTable
+ Get
+
+ If ViewState("DtColor") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("DtColor"), DataTable)
+ End If
+
+ End Get
+ Set(value As DataTable)
+ ViewState("DtColor") = value
+ End Set
+ End Property
+
+#End Region
+
+ Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+ If Not IsPostBack Then
+ CargaCombos()
+ CargaDatos()
+ End If
+ End Sub
+
+
+ Private Sub CargaCombos()
+
+ 'Carga SubProyectos
+ DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+ DdlSubProyecto.DataBind()
+ DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ TxtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
+ TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
+
+ CreaDataTableColor()
+ End Sub
+
+
+ Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
+ CargaDatos()
+ End Sub
+
+
+ Private Sub CargaDatos()
+
+ Dim ObjVentas As New ClsVentas
+ Dim ObjCompras As New ClsCompras
+ Dim ObjMovtos As New ClsMovimientos()
+
+ If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1,
+ -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then
+ VxP = ObjVentas.DtResultados
+ GvVxP.DataSource = VxP
+ Else
+ GvVxP.DataSource = Nothing
+ VxP = Nothing
+ End If
+
+ If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
+ UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
+ CxP192 = ObjCompras.DtResultados
+ GvCxP192.DataSource = CxP192
+ Else
+ GvCxP192.DataSource = Nothing
+ CxP192 = Nothing
+ End If
+
+ If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
+ UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=1) Then
+ CxP = ObjCompras.DtResultados
+ GvCxP.DataSource = CxP
+ Else
+ GvCxP.DataSource = Nothing
+ CxP = Nothing
+ End If
+
+ Dim FechaCorte As String = $"31/12/{Now.Year}"
+
+ If ObjMovtos.GetCxC(TxtFechaI.Text, TxtFechaF.Text, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, 1, -1,
+ "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+
+ CCxC = ObjMovtos.DtResultados
+ GvCCxC.DataSource = CCxC
+ Else
+ GvCCxC.DataSource = Nothing
+ CCxC = Nothing
+ End If
+
+ If ObjMovtos.GetCxP(TxtFechaI.Text, TxtFechaF.Text, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, 1, -1,
+ "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+
+ CPxP = ObjMovtos.DtResultados
+ GvCPxP.DataSource = CPxP
+ Else
+ GvCPxP.DataSource = Nothing
+ CPxP = Nothing
+ End If
+
+ ObjVentas.Dispose()
+ ObjCompras.Dispose()
+ ObjMovtos.Dispose()
+
+ GvVxP.DataBind()
+ GvCxP192.DataBind()
+ GvCxP.DataBind()
+ GvCCxC.DataBind()
+ GvCPxP.DataBind()
+
+ ' Mostrar gráficos solo si hay datos en su respectiva tabla
+ If GvVxP.Rows.Count > 0 Then
+ UPGraficaVxP.Visible = True
+ Else
+ UPGraficaVxP.Visible = False
+ End If
+ If GvCxP.Rows.Count > 0 Then
+ UPGraficaCxP.Visible = True
+ Else
+ UPGraficaCxP.Visible = False
+ End If
+ If GvCxP192.Rows.Count > 0 Then
+ UPGraficaCxP192.Visible = True
+ Else
+ UPGraficaCxP192.Visible = False
+ End If
+ If GvCCxC.Rows.Count > 0 Then
+ UPGraficaCCxC.Visible = True
+ Else
+ UPGraficaCCxC.Visible = False
+ End If
+ If GvCPxP.Rows.Count > 0 Then
+ UPGraficaCPxP.Visible = True
+ Else
+ UPGraficaCPxP.Visible = False
+ End If
+
+ ' Si no había datos en ninguna tabla no cargar función de gráficos
+ If (GvVxP.Rows.Count = 0 AndAlso GvCxP.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCCxC.Rows.Count = 0 AndAlso GvCPxP.Rows.Count = 0) Then Exit Sub
+ GraficasPastel()
+ 'GraficasBarras()
+ End Sub
+ Protected Sub GvVxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvVxP.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DBCampo("Orden") = "" Then
+ e.Row.CssClass = "Totales"
+ End If
+ End If
+ End Sub
+ Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DBCampo("Orden") = "" Then
+ e.Row.CssClass = "Totales"
+ End If
+ End If
+ End Sub
+ Protected Sub GvCCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCCxC.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DBCampo("Orden") = "" Then
+ e.Row.CssClass = "Totales"
+ End If
+ End If
+ End Sub
+ Protected Sub GvCPxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCPxP.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DBCampo("Orden") = "" Then
+ e.Row.CssClass = "Totales"
+ End If
+ End If
+ End Sub
+ Private Sub CreaDataTableColor()
+ DtColor = New DataTable
+ DtColor.Columns.Add("Color")
+ Dim RowColor As DataRow = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#FF0F00"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#FF6600"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#FF9E01"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#FCD202"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#F8FF01"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#B0DE09"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#04D215"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#0D8ECF"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#0D52D1"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#2A0CD0"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#8A0CCF"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#CD0D74"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#754DEB"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#DDDDDD"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#999999"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#333333"
+ DtColor.Rows.Add(RowColor)
+ RowColor = Nothing
+ RowColor = DtColor.NewRow()
+ RowColor("Color") = "#000000"
+ DtColor.Rows.Add(RowColor)
+ End Sub
+
+ Private Sub GraficasPastel()
+
+ Dim DtVxP, DtCxP, DtCxP192, DtCCxC, DtCPxP As New DataTable
+ Dim RowColorIndex As Integer = 0
+
+ 'Ventas x Producto
+ DtVxP.Reset()
+ DtVxP.Columns.Add("Texto")
+ DtVxP.Columns.Add("Valor")
+ DtVxP.Columns.Add("Color")
+ DtVxP.Columns.Add("Moneda")
+ RowColorIndex = 0
+ For Each Dr As DataRow In VxP.Rows
+ If Not Dr("Orden").ToString = "" Then
+ Dim Row As DataRow = Nothing
+ Row = DtVxP.NewRow()
+ Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
+ Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ Row("Moneda") = Dr("Moneda").ToString
+ DtVxP.Rows.Add(Row)
+ RowColorIndex += 1
+ If RowColorIndex = 17 Then
+ RowColorIndex = 0
+ End If
+ End If
+ Next
+ Dim query_vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+
+ 'Compras x Producto TipoProveedor=1
+ DtCxP.Reset()
+ DtCxP.Columns.Add("Texto")
+ DtCxP.Columns.Add("Valor")
+ DtCxP.Columns.Add("Color")
+ DtCxP.Columns.Add("Moneda")
+ RowColorIndex = 0
+ For Each Dr As DataRow In CxP.Rows
+ If Not Dr("Orden").ToString = "" Then
+ Dim Row As DataRow = Nothing
+ Row = DtCxP.NewRow()
+ Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
+ Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ Row("Moneda") = Dr("Moneda").ToString
+ DtCxP.Rows.Add(Row)
+ RowColorIndex += 1
+ If RowColorIndex = 17 Then
+ RowColorIndex = 0
+ End If
+ End If
+ Next
+ Dim query_cxp = From s In DtCxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+
+ 'Compras x Producto ProveedorClasificacion=192
+ DtCxP192.Reset()
+ DtCxP192.Columns.Add("Texto")
+ DtCxP192.Columns.Add("Valor")
+ DtCxP192.Columns.Add("Color")
+ DtCxP192.Columns.Add("Moneda")
+ RowColorIndex = 0
+ For Each Dr As DataRow In CxP192.Rows
+ If Not Dr("Orden").ToString = "" Then
+ Dim Row As DataRow = Nothing
+ Row = DtCxP192.NewRow()
+ Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
+ Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ Row("Moneda") = Dr("Moneda").ToString
+ DtCxP192.Rows.Add(Row)
+ RowColorIndex += 1
+ If RowColorIndex = 17 Then
+ RowColorIndex = 0
+ End If
+ End If
+ Next
+ Dim query_cxp192 = From s In DtCxP192.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+
+ 'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CCxC.Rows))
+
+ 'Cuentas por cobrar x Cliente
+ DtCCxC.Reset()
+ DtCCxC.Columns.Add("Texto")
+ DtCCxC.Columns.Add("Valor")
+ DtCCxC.Columns.Add("Color")
+ DtCCxC.Columns.Add("Moneda")
+ RowColorIndex = 0
+ For Each Dr As DataRow In CCxC.Rows
+ If Not Dr("Orden").ToString = "" Then
+ Dim Row As DataRow = Nothing
+ Row = DtCCxC.NewRow()
+ Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ Row("Valor") = Dr("Saldo").ToString.FormatoNumero
+ Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ Row("Moneda") = Dr("Moneda").ToString
+ DtCCxC.Rows.Add(Row)
+ RowColorIndex += 1
+ If RowColorIndex = 17 Then
+ RowColorIndex = 0
+ End If
+ End If
+ Next
+ Dim query_ccxc = From s In DtCCxC.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+
+ 'Cuentas por pagar x Proveedor
+ DtCPxP.Reset()
+ DtCPxP.Columns.Add("Texto")
+ DtCPxP.Columns.Add("Valor")
+ DtCPxP.Columns.Add("Color")
+ DtCPxP.Columns.Add("Moneda")
+ RowColorIndex = 0
+ For Each Dr As DataRow In CPxP.Rows
+ If Not Dr("Orden").ToString = "" Then
+ Dim Row As DataRow = Nothing
+ Row = DtCPxP.NewRow()
+ Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ Row("Valor") = Dr("Saldo").ToString.FormatoNumero
+ Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ Row("Moneda") = Dr("Moneda").ToString
+ DtCPxP.Rows.Add(Row)
+ RowColorIndex += 1
+ If RowColorIndex = 17 Then
+ RowColorIndex = 0
+ End If
+ End If
+ Next
+ Dim query_cpxp = From s In DtCPxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+
+ 'Serializar datos agrupándolos en su respectivo DataTable, todos en un solo JSON
+ Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp})
+ 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}})
+ 'Alert(json)
+ RegistraScript($"CargaGraficasPastel({json})", "22")
+ UPPMov.Update()
+ End Sub
+ Private Sub GraficasBarras()
+ 'Dim Dt As New DataTable()
+ 'Dt.Columns.Add("Texto")
+ 'Dt.Columns.Add("Valor")
+ 'Dt.Columns.Add("Color")
+ 'Dt.Columns.Add("Moneda")
+ 'Dim RowColorIndex As Integer = 0
+ 'For Each Dr As DataRow In VxC.Rows
+ ' If Not Dr("Orden").ToString = "" Then
+ ' Dim Row As DataRow = Nothing
+ ' Row = Dt.NewRow()
+ ' Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
+ ' Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
+ ' Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+ ' Row("Moneda") = Dr("Moneda").ToString
+ ' Dt.Rows.Add(Row)
+ ' RowColorIndex += 1
+ ' If RowColorIndex = 17 Then
+ ' RowColorIndex = 0
+ ' End If
+ ' End If
+ 'Next
+
+ 'Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
+ 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
+ 'RegistraScript($"CargaGraficasBarras({json})", "22")
+ 'UPPMov.Update()
+ End Sub
+End Class
diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index c2c8e6347..b5069e9dd 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -609,6 +609,12 @@
+
+
+
+
+
+
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index cbccac8d7..3b1b0db67 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1460,6 +1460,9 @@ Partial Class Inventarios_TraspasoAlmacen
End Sub
Private Sub CargaRecepcion()
+ DivRealizarDevolucion.Visible = False
+ ChkRealizarDevolucion.Checked = False
+
Dim Dtt As DataTable = Nothing
FolioBusqueda = If(TxtFolioRecepcion.Text = "", -1, TxtFolioRecepcion.Text.ToEntero)
@@ -1506,6 +1509,11 @@ Partial Class Inventarios_TraspasoAlmacen
If UsuarioActual.TienePermisoProceso(290) Then
BtnCancelarTraspaso.Visible = True
End If
+
+ If UsuarioActual.Empresa.Funcionalidad(162) = "1" Then
+ DivRealizarDevolucion.Visible = True
+ ChkRealizarDevolucion.Checked = True
+ End If
End If
@@ -1518,6 +1526,7 @@ Partial Class Inventarios_TraspasoAlmacen
UpDatosRecepcion.Update()
UPDivCodigoSeriePSRecepcion.Update()
+ UPDatosAlmacen.Update()
End Sub
Protected Sub GvDatosRecepcion_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosRecepcion.RowDataBound
@@ -1815,6 +1824,225 @@ Partial Class Inventarios_TraspasoAlmacen
End Sub
+ Private Class MCancelacionTraspaso
+ Public Property TieneError As Boolean = False
+ Public Property MsgError As String = ""
+ Public Property CveMovimientoEntrada As Integer = -1
+ Public Property FolioEntrada As Integer = 0
+ Public Property CveMovimientoSalidaTransitorio As Integer = -1
+ Public Property FolioSalidaTransitorio As Integer = 0
+ End Class
+
+ Private Function CancelarTraspaso(ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, CveAlmacenDestino As Integer, Fecha As DateTime) As MCancelacionTraspaso
+ Dim Retorno As New MCancelacionTraspaso()
+ Dim ErrorMovInv As Boolean = False
+ Try
+ Dim CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenDestino, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+ Observaciones:=TxtObservacionesRecepcion.Text.Trim, Recibio:=TxtRecibio.Text, CveAlmacenDestino:=CveAlmacenDestino,
+ CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/C")
+ If CveMovimientoEntrada <= 0 Then
+ Retorno.MsgError = "No se pudo generar el movimiento"
+ ErrorMovInv = True
+ End If
+
+ Retorno.CveMovimientoEntrada = CveMovimientoEntrada
+ Retorno.FolioEntrada = ObjInventario.Folio
+
+ 'AGREGAMOS LA SALIDA
+ Dim CveMovimientoSalidaTransitorio = ObjInventario.AddMovimiento(CveAlmacenTransitorio, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+ Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=CveAlmacenDestino,
+ CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G12")
+
+ Retorno.CveMovimientoSalidaTransitorio = CveMovimientoSalidaTransitorio
+
+ Dim CvePrePoliza As Integer = -1
+ Dim Concepto As String = TxtObservacionesRecepcion.Text
+ If Concepto = "" Then Concepto = "Cancelación Traspaso"
+
+ If Not ErrorMovInv Then
+ Retorno.FolioSalidaTransitorio = ObjInventario.Folio
+ CvePrePoliza = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ If CvePrePoliza <= 0 Then
+ Retorno.MsgError = "No se pudo generar la Poliza para la cancelación"
+ ErrorMovInv = True
+ End If
+ End If
+
+ If CveMovimientoEntrada <= 0 And Not ErrorMovInv Then
+ Retorno.MsgError = "No se pudo generar el movimiento de entrada correctamente"
+ ErrorMovInv = True
+ Else
+ Dim CveMovimientoDetalleSalida As Integer = 0
+ Dim importe As Double = 0
+
+ Dim Dtt As DataTable = Nothing
+
+ FolioBusqueda = TxtFolioRecepcion.Text.ToEntero
+
+ If ObjInventario.GetMovimientosTransitorios(DdlAlmacenRecepcion.SelectedValue.ToEntero, -1, DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero, -1, FolioBusqueda, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+ Dtt = ObjInventario.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4"))
+ Else
+ Dtt = Nothing
+ End If
+
+ If Dtt IsNot Nothing Then
+ For Each GvRow As DataRow In Dtt.Rows
+ Dim CvePS As Integer = GvRow("CvePS").ToString().ToEntero
+ 'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR
+ If CvePS > 0 Then
+ CveMovimientoDetalleSalida = GvRow("CveMovimientoDetalle").ToString.ToEntero
+ Dim Cantidad As Decimal = GvRow("Cantidad").ToString.ToDecimal
+ Dim PrecioUnitario As Decimal = GvRow("PU").ToString.ToDecimal
+ If CveMovimientoDetalleSalida <= 0 Then
+ ErrorMovInv = True
+ Retorno.MsgError = "Ocurrió un error al guardar los movimientos de salida"
+ Exit For
+ End If
+
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow("CveUM").ToString().ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow("Serie").ToString, Lote:=GvRow("Lote").ToString(), FechaCaducidad:=GvRow("FechaCaducidad").ToString().ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
+ ErrorMovInv = True
+ Retorno.MsgError = "Ocurrió un error al guardar los movimientos de entrada"
+ Exit For
+ End If
+ 'MOV, Alm, Transito
+ If GvRow("CveMovimientoDetalleTransitorio").ToString.ToEntero > 0 Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, Cantidad, GvRow("CveUM").ToString.ToEntero, CvePS, PrecioUnitario, CveSeccionAlmacen:=-3, Serie:=GvRow("Serie").ToString, Lote:=GvRow("Lote").ToString, FechaCaducidad:=GvRow("FechaCaducidad").ToString().ToDate, CveMovimientoDetalleEntrada:=GvRow("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
+ ErrorMovInv = True
+ Retorno.MsgError = "Ocurrió un error al guardar los movimientos de salida"
+ Exit For
+ End If
+ Else
+ CveMovimientoSalidaTransitorio = 0
+ End If
+ importe += Cantidad * PrecioUnitario
+ End If
+ Next
+ Else
+ ErrorMovInv = True
+ Retorno.MsgError = "Ocurrió un error al guardar los movimientos de salida"
+ End If
+
+
+ 'VIRTUAL ENTRADA
+
+ If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+
+ Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
+ Dim CveAlmacenVirtualSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenTransitorio).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
+
+ 'SI EL ALMACEN ORIGEN ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
+ 'Dim CveAlmacenVirtual As Integer = -1
+ 'If CveTipoAlmacenOrigen = 27 Then
+ ' CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+ 'Else
+ ' CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+ 'End If
+
+ Dim CveMovimientoVirtualEntrada As Integer = -1
+ Dim CveMovimientoVirtualSalida As Integer = -1
+
+ 'VERIFICA SI TIENE ALMACEN VIRTUAL ASIGNADA
+ If CveAlmacenVirtual > 0 And CveAlmacenVirtualSalida > 0 Then
+
+ Dim dtvirtual As DataTable = Nothing
+ Dim importePoliza As Decimal = 0
+
+ If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
+ dtvirtual = ObjInventario.DtResultados
+ If dtvirtual.Rows.Count > 0 Then
+
+ CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2")
+
+ CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/C3")
+
+ Dim FolioVirtualEntrada = ObjInventario.Folio
+
+ For Each RowVirtual As DataRow In dtvirtual.Rows
+ Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+ Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
+ Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal()
+ Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+ Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal()
+
+
+ importePoliza = importePoliza + (CantidadUsado * PU)
+
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+ ErrorMovInv = True
+ Exit For
+ End If
+
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+ ErrorMovInv = True
+ Exit For
+ End If
+
+ Next
+ End If
+
+ 'Else
+ ' TextoError = "No se pudo registrar el movimiento virtual"
+ ' ErrorMovInv = True
+ End If
+
+
+ If Not ErrorMovInv AndAlso (CveMovimientoSalida > 0 And CveMovimientoVirtualEntrada > 0) Then
+
+ Dim CvePrePolizaMovVirtual As Integer = ObjConta.AddPrePolizas("TA/C2|TA/C3", 53, importePoliza, importePoliza, 1, TxtFecha.Text.ToDate, "TA/C2|TA/C3", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ If CvePrePolizaMovVirtual > 0 Then
+ If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaMovVirtual, True, importePoliza, importePoliza, 68, TxtObservacionesRecepcion.Text, TxtObservacionesRecepcion.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoVirtualSalida, Contabilizable:=False) Then
+ ErrorMovInv = True
+ End If
+
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaMovVirtual, False, importePoliza, importePoliza, 68, TxtObservacionesRecepcion.Text, TxtObservacionesRecepcion.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoVirtualEntrada, Contabilizable:=False) Then
+ ErrorMovInv = True
+ End If
+ Else
+ ErrorMovInv = True
+ End If
+
+ End If
+ 'Else
+ ' TextoError = "La Sucursal no tiene creado un almacen virtual"
+ ' ErrorMovInv = True
+ End If
+
+ End If
+
+ If Not ErrorMovInv Then
+ Dim ImporteDecimal As Decimal = importe.ToDecimal.RoundAD
+ Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
+
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
+ CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImporteDecimal, Contabilizable:=False) Then
+ ErrorMovInv = True
+ Retorno.MsgError = "Ocurrió un error al cancelar el traspaso"
+ End If
+
+ If CveMovimientoSalidaTransitorio > 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
+ CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, ImporteMX:=ImporteDecimal, Contabilizable:=False) Then
+ ErrorMovInv = True
+ Retorno.MsgError = "Ocurrió un error al cancelar el traspaso"
+ End If
+ End If
+
+ End If
+
+ End If
+
+ Catch ex As Exception
+ ErrorMovInv = True
+ Retorno.MsgError = "Ocurrió un error al cancelar el traspaso"
+ OnError("Ocurrió un erro al cancelar el traspaso", ex)
+ End Try
+
+ Retorno.TieneError = ErrorMovInv
+
+ Return Retorno
+ End Function
+
Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
If GvDatosRecepcion.Rows.Count > 0 Then
'Valida Movimientos
@@ -2039,6 +2267,13 @@ Partial Class Inventarios_TraspasoAlmacen
End If
End If
+ Dim CancelacionTraspaso As MCancelacionTraspaso = Nothing
+ If UsuarioActual.Empresa.Funcionalidad(162) = "1" AndAlso ChkRealizarDevolucion.Checked AndAlso Not ErrorMovInv Then
+ CancelacionTraspaso = CancelarTraspaso(ObjInventario, ObjConta, GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, TxtFechaRecepcion.Text.ToDateTime())
+ If CancelacionTraspaso IsNot Nothing Then
+ ErrorMovInv = CancelacionTraspaso.TieneError
+ End If
+ End If
If Not ErrorMovInv Then
@@ -2053,6 +2288,9 @@ Partial Class Inventarios_TraspasoAlmacen
Mensaje.AppendFormat(" Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("
Folio Virtual {2} Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
+ If CancelacionTraspaso IsNot Nothing Then
+ If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("