diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 70be6dfdb..9e75b20fa 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1541,7 +1541,7 @@ Public Class ClsInventarios End Function - Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, CveAlmacen As Integer, + Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String, CveFamilia As Integer, CveSubFamilia As Integer, CvePS As Integer, CveClasificacion As Integer, Tipo As Integer, Optional CveMarca As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1556,7 +1556,7 @@ Public Class ClsInventarios .Add("@FechaF", SqlDbType.VarChar).Value = FechaF .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia .Add("@CvePS", SqlDbType.Int).Value = CvePS diff --git a/Bancos/RepProgramarRecursos.aspx b/Bancos/RepProgramarRecursos.aspx index ead04bf6c..4867d2c07 100644 --- a/Bancos/RepProgramarRecursos.aspx +++ b/Bancos/RepProgramarRecursos.aspx @@ -372,7 +372,7 @@
- + diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 966a818bc..11c343b68 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -680,8 +680,8 @@ Partial Class Bancos_RepProgramarRecursos strBody.Append("
") strBody.Append("
") strBody.Append(" Compras Programadas ") - strBody.Append(" ") - strBody.Append(" ") + strBody.Append("
Serie-Folio FechaImporteImporte Programado
") + strBody.Append(" ") For Each gvr As GridViewRow In Gv.Rows If gvr.FCCheckBox("Chk").Checked Then @@ -689,8 +689,9 @@ Partial Class Bancos_RepProgramarRecursos Dim Importe = gvr.DataKey("Original").ToDouble.FormatoNumero() Dim ImporteProgramo = gvr.FCTextBox("TxtS").Text.ToDouble.FormatoNumero() Dim Fecha As String = gvr.DataKey("Fecha").ToDateTime().ToString("dd/MM/yyyy") + Dim Proveedor As String = gvr.DataKey("RazonSocial") - strBody.Append($"") + strBody.Append($"") End If Next diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index a241e0198..74573a093 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -163,10 +163,19 @@
Serie-FolioProveedorUsuario Programó FechaImporteImporte Programado
{SerieFolio}{Fecha}{Importe}{ImporteProgramo}
{SerieFolio}{Proveedor}{UsuarioActual.Nombre}{Fecha}{Importe}{ImporteProgramo}
- - <%-- --%> + + + Código + + +
+ +
+
+
Producto @@ -177,16 +186,6 @@ -<%-- - - Proveedor Fecha - - -
- -
-
-
--%>
diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx index 80fc47505..f74137b2a 100644 --- a/Inventarios/RepEntradasSalidas.aspx +++ b/Inventarios/RepEntradasSalidas.aspx @@ -56,7 +56,7 @@
Almacén
- +
Fecha Inicio
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index e29e4e47e..eaa14a3b6 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -209,13 +209,14 @@ Partial Class Inventarios_ReporteEntradasSalidas FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM) + Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then CveMarca = DdlMarca.SelectedValue.ToEntero End If If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, - DdlAlmacen.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, + Almacenes, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMovs.SelectedValue.ToEntero, CveMarca, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen, Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then dt = Reporte.DtResultados diff --git a/Site.master b/Site.master index eaf4f32ea..89a6083b8 100644 --- a/Site.master +++ b/Site.master @@ -78,6 +78,7 @@