diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index e7907959b..23f649d54 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5723,7 +5723,7 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1, + Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean Dim Retorno = False @@ -5732,6 +5732,7 @@ Public Class ClsContabilidad With SqlAdapter.SelectCommand.Parameters .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index c4c0b3881..52fd6dc07 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1628,7 +1628,7 @@ Public Class ClsInventarios End Function - Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer) As Boolean + Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ProductosCaducidadGet") @@ -1639,6 +1639,8 @@ Public Class ClsInventarios .Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index eb3f2fa7d..cf37bb840 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -362,14 +362,14 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) - ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago + 'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago - If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then - ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString - Else - ObjFactura.CveMetodoPago = 1 - ObjFactura.MetodoPago = "Efectivo" - End If + 'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then + ' ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString + 'Else + ' ObjFactura.CveMetodoPago = 1 + ' ObjFactura.MetodoPago = "Efectivo" + 'End If End If End If If ObjCliente.GetSucursales(CveCliente) Then diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index c711b21bb..6e2809470 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -171,7 +171,7 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then - If UsuarioActual.Empresa.TipoContabilizacion = 1 Then + If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS")) End If diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 762edbba8..ebbef86ba 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -146,7 +146,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjConta As New ClsContabilidad Dim ErrorString As String = "" If LbAgregar.Text = "Agregar" Then - If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero, + If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then ErrorString = "Error al agregar" diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc new file mode 100644 index 000000000..941582014 --- /dev/null +++ b/Empresas/141/Formatos/CHQ-7452.rdlc @@ -0,0 +1,1075 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 762d8f6c-e01d-487b-a956-1f482876fae3 + + + + + + DataSet + /* Local Query */ + + + + CODIGO + System.String + + + Cuenta + System.String + + + Cargo + System.String + + + Abono + System.String + + + + DataSet + C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite1\App_Code\DataSet.xsd + DataTable1 + + + + + + + + + + + + true + + + + + =Parameters!Tipo.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Beneficiario.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Folio.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Importe.Value + + + + + + + Textbox1 + 3.38128cm + 17.62925cm + 0.6cm + 3.12778cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Fecha.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ImporteLetra.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 2.22824cm + 2.98488cm + 0.99076cm + 8.50604cm + 7 + + + + + + true + 5.91016cm + 2.98488cm + 0.99076cm + 8.50604cm + 8 + + + + + + true + 6.9362cm + 2.98488cm + 0.99076cm + 8.50604cm + 9 + + + + + + true + 7.96224cm + 2.98488cm + 0.99076cm + 8.50604cm + 10 + + + + + + true + 8.98828cm + 2.98488cm + 0.99076cm + 8.50604cm + 11 + + + + + + + + + 3.21438cm + + + + + 0.44125cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + =Fields!CODIGO.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 12.24622cm + 0.61298cm + 0.8825cm + 3.21438cm + 12 + + + + + + + + + 9.3004cm + + + + + 0.44125cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + =Fields!Cuenta.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 12.24622cm + 4.42661cm + 0.8825cm + 9.3004cm + 13 + + + + + + + + + 2.5cm + + + + + 0.43958cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.43958cm + + + + + true + true + + + + + =IIF(Fields!Cargo.Value = 0,"",Fields!Cargo.Value) + + + + + + + Cuenta + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 12.24622cm + 14.89295cm + 0.87916cm + 2.5cm + 14 + + + + + + + + + 2.84396cm + + + + + 0.43958cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.43958cm + + + + + true + true + + + + + =IIF(Fields!Abono.Value = 0,"",Fields!Abono.Value) + + + + + + + Cuenta + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 12.24622cm + 17.6897cm + 0.87916cm + 2.84396cm + 15 + + + + + + 5.30706in + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + JOC + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FLR + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TotalCargo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TotalAbono.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0cm + 0cm + 0.13cm +