diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 8675d287e..cde50be93 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1715,7 +1715,7 @@ Public Class ClsInventarios #Region " INVENTARIOS - REPORTES " - Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As String, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean + Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As String, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1, Optional Tipo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepExistenciasCostosGet") With SqlAdapter.SelectCommand.Parameters @@ -1730,8 +1730,10 @@ Public Class ClsInventarios .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@Tipo", SqlDbType.Int).Value = Tipo End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception diff --git a/Empresas/158/Formatos/Factura.rdlc b/Empresas/158/Formatos/Factura.rdlc index 76fb63973..a9d80f6d4 100644 --- a/Empresas/158/Formatos/Factura.rdlc +++ b/Empresas/158/Formatos/Factura.rdlc @@ -152,6 +152,10 @@ SATClaveProdServ System.String + + CodigoObjetoImpuesto + System.String + DsOC @@ -1211,11 +1215,42 @@ Left + + + + Reg.fiscal: + + + + + + + + =Parameters!RegimenFiscalCodigo.Value + + + + + Textbox2 0.05159in 4.31439cm - 1.62208in + 1.91375in 3.20861in 1 + + + . + + + + - - Regimen General de Ley Personas Morales - - - - - - + + + + + + Textbox30 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + @@ -2468,6 +2548,39 @@ + + + + true + true + + + + + =Fields!CodigoObjetoImpuesto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -2647,7 +2760,6 @@ 2pt - true @@ -2665,6 +2777,7 @@ + @@ -2681,7 +2794,7 @@ 2.25503in 0.04048in 0.34081in - 8.22304in + 8.24013in 6 - - true - true - - - - - VERSION 3.3 - - - - - - - Textbox5 - 2.32303cm - 17.39754cm - 0.6cm - 3.32021cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - true 14.85441cm 0.10282cm - 2.97096cm + 2.25247cm 20.89818cm 14 @@ -4273,6 +4350,50 @@ + + true + true + + + + + VERSION + + + + =Parameters!CFDIVersion.Value + + + + + + + Textbox5 + 17.28327cm + 17.34759cm + 0.65292cm + 3.68516cm + 22 + + + 2pt + 2pt + 2pt + 2pt + + 31.01581cm - 21.12144cm + 21.03275cm 0.63499cm @@ -4892,6 +5013,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx index 043217bfd..3c5fd4a1c 100644 --- a/Inventarios/RepEntradasSalidas.aspx +++ b/Inventarios/RepEntradasSalidas.aspx @@ -212,11 +212,11 @@ DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,Codigo2,PS" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - - + + - + diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index 42a793120..415e18606 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -304,7 +304,7 @@ Partial Class Inventarios_ReporteEntradasSalidas e.Row.CssClass = "Totales" Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) 'e.Row.Cells(0).Text = $"{e.Row.DataKey("Codigo")}" - e.Row.Cells(4).Text = $"{e.Row.DataKey("PS")}" + e.Row.Cells(4).Text = $"{e.Row.DataKey("PS")}" 'e.Row.Cells(4).Text = $"{e.Row.DataKey("PS")}" Else diff --git a/Inventarios/RepExistenciasCostos.aspx b/Inventarios/RepExistenciasCostos.aspx index 5df327151..607edb4a9 100644 --- a/Inventarios/RepExistenciasCostos.aspx +++ b/Inventarios/RepExistenciasCostos.aspx @@ -109,6 +109,21 @@ +
+ +
Opción:
+
+ + + + + + + +
+ + +
diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb index 6b6945618..d09aab823 100644 --- a/Inventarios/RepExistenciasCostos.aspx.vb +++ b/Inventarios/RepExistenciasCostos.aspx.vb @@ -70,7 +70,8 @@ Partial Class Inventarios_RepExistenciasCostos If(Request("FechaF").ToString.Trim <> "-1", Request("FechaF").ToString.Trim.ToDate, MaxFecha), CveAlmacen, IIf(Request("CVECLASIFICACION") Is Nothing, -1, Request("CveClasificacion").ToEntero), - IIf(Request("CvePersonal") Is Nothing, -1, Request("CvePersonal").ToEntero) + IIf(Request("CvePersonal") Is Nothing, -1, Request("CvePersonal").ToEntero), + IIf(Request("Tipo") Is Nothing, -1, Request("Tipo").ToEntero) ) Panel1.Visible = False Else @@ -173,10 +174,10 @@ Partial Class Inventarios_RepExistenciasCostos Dim fechaI As Date = If(TxtFechaI.Text <> "", TxtFechaI.Text.ToDateTime, MinFecha) Dim fechaF As Date = If(TxtFechaF.Text <> "", TxtFechaF.Text.ToDateTime, MaxFecha) - CargaDatos(CvePS, CveProveedor, CveMoneda, CveConcepto, fechaI, fechaF, CveAlmacen, CveClasificacion, DdlPersonal.SelectedValue.ToEntero) + CargaDatos(CvePS, CveProveedor, CveMoneda, CveConcepto, fechaI, fechaF, CveAlmacen, CveClasificacion, DdlPersonal.SelectedValue.ToEntero, DdlMovs.SelectedValue.ToEntero) End Sub - Protected Sub CargaDatos(CvePS As Integer, CveProveedor As Integer, CveMoneda As Integer, CveConcepto As Integer, FechaI As Date, FechaF As Date, CveAlmacen As String, CveClasificacion As Integer, CvePersonal As Integer) + Protected Sub CargaDatos(CvePS As Integer, CveProveedor As Integer, CveMoneda As Integer, CveConcepto As Integer, FechaI As Date, FechaF As Date, CveAlmacen As String, CveClasificacion As Integer, CvePersonal As Integer, Tipo As Integer) If CvePS > 0 Then LnkKardex.Visible = True LnkKardex.NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CvePS={0}", CvePS) @@ -184,7 +185,7 @@ Partial Class Inventarios_RepExistenciasCostos Dim ObjInventarios As New ClsInventarios - If ObjInventarios.RepExistenciasCostos(FechaI, FechaF, CveMoneda, CveProveedor, CveConcepto, CvePS, UsuarioActual.CveEmpresa, CveAlmacen, UsuarioActual.CveUsuario, CveClasificacion, CvePersonal) Then + If ObjInventarios.RepExistenciasCostos(FechaI, FechaF, CveMoneda, CveProveedor, CveConcepto, CvePS, UsuarioActual.CveEmpresa, CveAlmacen, UsuarioActual.CveUsuario, CveClasificacion, CvePersonal, Tipo) Then DtData = ObjInventarios.DtResultados GvM.DataSource = DtData FechaInicial = FechaI