diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index af57333b1..a0ca323b8 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1700,10 +1700,32 @@ Public Class ClsInventarios
End Try
Return Retorno
- End Function
+ End Function
+
+ Public Function RepTraspasoAlmacen(FechaI As String, FechaF As String, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Inv_RepTraspasoAlmacen")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+ .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+ .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen
+ .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino
+ .Add("@Recibido", SqlDbType.Bit).Value = Recibido
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el Reporte de Traspaso de Almacén.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
#End Region
-
+
#Region " INVENTARIOS - EXISTENCIAS "
Public Function GetExistenciasPS(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
@@ -1889,8 +1911,8 @@ Public Class ClsInventarios
Catch ex As Exception
OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
-
Return Retorno
+
End Function
Public Function GetExistenciasPSEmpaque(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
@@ -1965,11 +1987,11 @@ Public Class ClsInventarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region " INVENTARIOS - INVENTARIO FISICO "
-
+
Public Function AddInventarioFisico(CveEmpresa As Integer, InventarioFisico As String, Observaciones As String, Estatus As Integer, CveSubProyecto As Integer) As Boolean
Dim Retorno As Boolean = False
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 44c68fdc5..39e5d6f62 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4091,6 +4091,7 @@ Public Class ClsPaginas
' PaginaDict.Add("/Inventarios/RecepcionUsados.aspx".ToUpper(), 1202)
PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892)
+ PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
#End Region
#Region "MF"
PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801)
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 5f9f37585..bee517f36 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -1367,10 +1367,13 @@ Partial Class Compras_ReembolsosComprobaciones
If CvePrePolizaExcedente > 0 Then
Mensaje.AppendFormat("Abono Registrado Correctamente.
+
+
+
+
+ <%----%>
+
+
+
+
+
+
+
+
diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb
new file mode 100644
index 000000000..b946ac833
--- /dev/null
+++ b/Inventarios/RepTraspasoAlmacen.aspx.vb
@@ -0,0 +1,176 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Microsoft.Reporting.WebForms
+Imports Extensiones
+Partial Class RepTraspasoAlmacen
+ Inherits ClsPaginas
+ Private Shared missing As Object = System.Reflection.Missing.Value
+
+#Region "PROPIEDADES"
+ Private Property FechaI As String
+ Get
+ Return ViewState("FechaI").ToString
+ End Get
+ Set(value As String)
+ ViewState("FechaI") = value
+ End Set
+ End Property
+ Private Property FechaF As String
+ Get
+ Return ViewState("FechaF").ToString
+ End Get
+ Set(value As String)
+ ViewState("FechaF") = value
+ End Set
+ End Property
+ 'Private Property CveCliente As Integer
+ ' Get
+ ' Return ViewState("CveCliente").ToString.ToEntero
+ ' End Get
+ ' Set(value As Integer)
+ ' ViewState("CveCliente") = value
+ ' End Set
+ 'End Property
+ 'Private Property Sucursales As String
+ ' Get
+ ' Return ViewState("Sucursales").ToString
+ ' End Get
+ ' Set(value As String)
+ ' ViewState("Sucursales") = value
+ ' End Set
+ 'End Property
+ Private Property DtInventarios As DataTable
+ Get
+ Return DirectCast(ViewState("DtInventarios"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtInventarios") = value
+ End Set
+ End Property
+
+#End Region
+ Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+ If Not Page.IsPostBack Then
+ txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString
+ txtFechaF.Text = Now.ToShortDateString
+
+ CargaAlmacenOrigen()
+ CargaAlmacenDestino()
+ CargaDatos()
+ OrdenaDatos()
+
+ End If
+ End Sub
+
+#Region " C A R G A - D A T O S "
+ Public Sub CargaDatos()
+ Dim ObjInventarios As New ClsInventarios
+
+ FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+ FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+ 'CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+
+ 'Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
+
+ If ObjInventarios.RepTraspasoAlmacen(FechaI, FechaF, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then
+ GvDatos.DataSource = ObjInventarios.DtResultados
+ DtInventarios = ObjInventarios.DtResultados
+ GvDatos.DataBind()
+ UPDatos.Update()
+ End If
+
+ ObjInventarios.Dispose()
+ End Sub
+#End Region
+
+#Region "O R D E N A M I E N T O"
+ Private Sub OrdenaDatos()
+ 'If (GvDatos.Rows.Count > 0) Then
+ ' GvDatos.UseAccessibleHeader = True
+ ' GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+ ' RegistraScript("OrdenarGV();")
+ 'End If
+ End Sub
+#End Region
+
+#Region "G V - D A T O S "
+ Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+ 'Cuando es titulo
+ If e.Row.DBCampo("PS").ToString.Trim = "" Then
+ e.Row.CssClass = "Totales"
+
+ e.Row.Cells(0).Text = String.Format("Folio: {0} ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
+ e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
+ e.Row.Cells(3).Text = String.Format("Almacen Destino: {0} Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
+ End If
+
+ End If
+ End Sub
+#End Region
+
+#Region "CARGA COMBOS FILTRO"
+ Private Sub CargaAlmacenOrigen()
+ DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
+ DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Todos ", "-1"))
+ DdlAlmacenOrigen.SelectedValue = "-1"
+ DdlAlmacenOrigen.DataBind()
+ DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
+ End Sub
+ Private Sub CargaAlmacenDestino()
+ DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
+ DdlAlmacenDestino.DataBind()
+ DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))
+ DdlAlmacenDestino.SelectedValue = "-1"
+ End Sub
+#End Region
+
+#Region "IMPRESION"
+ Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+ Imprime("PDF")
+ End Sub
+ Private Sub Imprime(Formato As String)
+ If DtInventarios IsNot Nothing Then
+ Dim StrFiltro As New StringBuilder
+ If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToShortDateString)
+ If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text.ToDate.ToShortDateString)
+
+ If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Origen: {0}", DdlAlmacenOrigen.SelectedItem.Text)
+ If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Destino: {0}", DdlAlmacenDestino.SelectedItem.Text)
+ If ChkRecibido.Checked Then StrFiltro.AppendFormat(" Recibidos: Si") Else StrFiltro.AppendFormat(" Recibidos: No")
+
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ Dim FechaI, FechaF As String
+ FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
+ FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
+
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("FechaInicio", FechaI))
+ params.Add(New ReportParameter("FechaFin", FechaF))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
+ Else
+ Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+ End If
+ End Sub
+#End Region
+ Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+ CargaDatos()
+ End Sub
+
+ Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+ Imprime("Excel")
+ End Sub
+End Class
diff --git a/Nomina/ReportePTU.aspx.vb b/Nomina/ReportePTU.aspx.vb
index 8df351967..b79a05002 100644
--- a/Nomina/ReportePTU.aspx.vb
+++ b/Nomina/ReportePTU.aspx.vb
@@ -155,7 +155,7 @@ Partial Class Nomina_ReportePTU
If Not IsNothing(rowc) Then
CveConcepto = rowc("CveConcepto").ToString().ToEntero()
Else
- CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1)
+ CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0)
End If
If CveConcepto < 1 Then
continuar = False
diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx
index c613e70b4..ac8306322 100644
--- a/OS/CatEstatusOrdenServicio.aspx
+++ b/OS/CatEstatusOrdenServicio.aspx
@@ -78,7 +78,7 @@