diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index ccbbfd441..e905fcd03 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -468,7 +468,9 @@ Public Class ClsContPAQi StrSQL.Append(" EjercicioAsignado, PeriodoAsignado, IETUDeducible, IETUModificado,IETUAcreditable, IdConceptoIETU,UUID)") StrSQL.Append(" VALUES (@IdDevIVA, @RowVersion, @IdPoliza, @IdCuenta, ISNULL ((SELECT MAX (NumDev) FROM DevolucionesIVA WHERE IdPoliza = @IdPoliza), 0) + 1, @IdProveedor, @PorIVA, @SubTotal + @IVA, @SubTotal, @IVA, CASE WHEN @IVA > 0 THEN 1 ELSE 0 END, CASE WHEN @IVA = 0 THEN 1 ELSE 0 END,") StrSQL.Append(" 0, @Serie, @Folio, @Referencia, 0, 0, @SubTotal + @IVA, @RetIVA, @RetISR, @SubTotal + @IVA - @RetIVA - @RetISR,") - StrSQL.Append(" YEAR(@FechaMov), MONTH(@FechaMov),@SubTotal, 0,0,1,@UUID);") + StrSQL.Append(" YEAR(@FechaMov), MONTH(@FechaMov),@SubTotal, 0,0,1,@UUID); ") + + StrSQL.Append(" EXEC PA_UpdateId 'Id_DevolucionIVA'; ") StrSQL.Append(" END TRY") @@ -582,7 +584,7 @@ Public Class ClsContPAQi VALUES (@IdMovDev, @RowVersion, @IdPoliza, ISNULL ((SELECT MAX (NumMovto) FROM MovimientosImpuestos WHERE IdPoliza = @IdPoliza), 0) + 1, @IdPersona, 0,YEAR(@FechaMov), MONTH(@FechaMov), @IdCuenta, 0, 1, 0, @Serie, @Folio, @Referencia, @UUID, 2, 0, 1, @TipoMovimiento, 1, @Impuesto, 2,'', @TasaOCuota, @SubTotal, - @ImpImpuesto, @ImpImpuesto,0, @IVANoAcred, 0, 0, 0, 0, 0, @GuidMov, @GuidMovPadre, 0, + @ImpImpuesto, (@ImpImpuesto + @SubTotal),0, @IVANoAcred, 0, 0, 0, 0, 0, @GuidMov, @GuidMovPadre, 0, @ConceptoIVA, @SubconceptoIVA, 0, @ProporcionDIOT, @DeducibleDIOT); EXEC PA_UpdateId 'Id_MovimientoImpuesto'; diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8f709f32e..944f482ba 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5867,7 +5867,7 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddCuentasGlobales(CveConceptoContable As Integer, CveCuenta As Integer, TipoGlobal As Integer, CveEmpresa As Integer) As Boolean + Public Function AddCuentasGlobales(CveConceptoContable As Integer, CveCuenta As Integer, TipoGlobal As Integer, CveEmpresa As Integer, PorcentajeImpuesto As Decimal, CveColectiva As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasGlobalesAdd") @@ -5877,6 +5877,8 @@ Public Class ClsContabilidad .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@TipoGlobal", SqlDbType.Int).Value = TipoGlobal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto + .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva End With Try diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e70e86699..0b28c1fba 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -94,6 +94,8 @@ Public Class ClsInventarios Public Property CveOrdenCompra As Integer Public Property CveOrdenCompraLiga As Integer Public Property FolioOC As String + Public Property DescripcionOC As String + Public Property CvePS As Integer Public Property CveEntregaForanea As Integer Public Property CvePaqueteriaGuia As Integer @@ -852,6 +854,7 @@ Public Class ClsInventarios CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero CveOrdenCompraLiga = dr("CveOrdenCompraLiga").ToString.ToEntero FolioOC = dr("FolioOC").ToString + DescripcionOC = dr("DescripcionOC").ToString FolioInterno = dr("VentaAnticipo").ToString CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1) CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 3a7756ca7..833a4b715 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1785,7 +1785,7 @@ Public Class ClsNominas #End Region #Region "ClsNominasSaatConceptos" - Public Function GetConceptos() As Boolean + Public Function GetConceptoSAT() As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_Sat_ConceptosGet") @@ -3468,6 +3468,28 @@ Public Class ClsNominas End Try Return retorno End Function + + + Public Function GetFonacotSaldos(CveEmpresa As Integer, CvePersonal As Integer, CveFonacot As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GetFonacotSaldos", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveFonacot", SqlDbType.Int).Value = CveFonacot + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los saldos Fonacot.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los saldos Fonacot.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1, Optional EsAcumulado As Integer = 0) As Integer Dim retorno As Integer = 0 DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 262651cb4..0bc7b8015 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -918,7 +918,7 @@ Public Class ClsPaginas Dim AppNombre As String = "GlobalDTNomSatConceptos" If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then Using ObjNom As New ClsNominas() - If ObjNom.GetConceptos() Then Application(AppNombre) = ObjNom.DtResultados + If ObjNom.GetConceptoSAT() Then Application(AppNombre) = ObjNom.DtResultados End Using End If GlobalDTNomSatConceptos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) @@ -8326,7 +8326,7 @@ Public Class ClsPaginas End Function #End Region #Region "PDF NOMINA" - Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String, Optional indemnizacion As Boolean = False) As Byte() + Public Function GeneraPDFNomina(CvePersonal As Integer, CvePeriodo As Integer, CveEmpresa As Integer, RutaEmpresa As String) As Byte() Dim Retorno As Byte() = Nothing Using ObjNomina As New ClsNominas Using ObjPersonal As New ClsRH @@ -8344,7 +8344,7 @@ Public Class ClsPaginas Dim DTDeducciones As Data.DataTable Dim DTDeducciones2 As New Data.DataTable Dim Ruta As String = UsuarioActual.Empresa.Ruta - Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }{If(indemnizacion, "F", "")}-{ObjNomina.Folio}.xml" + Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }-{ObjNomina.Folio}.xml" Dim FechaEmision, FechaCertificacion As DateTime Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String FolioFiscal = "" @@ -8468,12 +8468,12 @@ Public Class ClsPaginas Dim ajusteindemnizacion As Double = 0 'PERCECIONES - DEDUCCIONES If ObjNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then - Dim filtrop As String = " AND CveSistema NOT IN(10,11,32)" - Dim friltrod As String = " AND CveSistema <>47" - If indemnizacion Then - filtrop = "AND CveSistema IN(10,11,32)" - friltrod = " AND CveSistema =47" - End If + Dim filtrop As String = "" '" AND CveSistema NOT IN(10,11,32)" + Dim friltrod As String = "" '" AND CveSistema <>47" + 'If indemnizacion Then + ' filtrop = "AND CveSistema IN(10,11,32)" + ' friltrod = " AND CveSistema =47" + 'End If DTPercepciones = ObjNomina.DtResultados.FiltraParametros($"((Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND ((Importe <>0 AND EsPadre = 1 AND EsFormula =0) OR Imprimir =1)) {filtrop}") DTDeducciones = ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND ((Importe >0 AND EsPadre = 1 AND EsFormula =0) OR Imprimir =1) ) {friltrod}") DTDeducciones2 = ObjNomina.DtResultados.FiltraParametros($"(Tipo = 'D' AND (( Importe >0 AND EsPadre = 1 AND EsFormula =0) OR Imprimir =1) ){friltrod}") @@ -8535,7 +8535,7 @@ Public Class ClsPaginas RptParametro.Add(New ReportParameter("Cantidad", "1")) RptParametro.Add(New ReportParameter("Unidad", "ACT")) RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA")) - RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString())) + RptParametro.Add(New ReportParameter("Total", ObjNomina.Total.ToString())) RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDecimal.Texto2Letras)) RptParametro.Add(New ReportParameter("Clave", "84111505")) cQr = GeneraQRSAT(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 42765c4be..e7aa74343 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3924,6 +3924,7 @@ Namespace Modelos DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) If DT.Rows.Count > 0 Then + Dim CondicionesPago As Integer = If(ObjFactura.CondicionesPago = 0, 2, ObjFactura.CondicionesPago) 'Se agrega movimiento separado por la cuenta de ventas (ER) For Each Row2 As DataRow In DT.Rows importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador) @@ -3934,7 +3935,7 @@ Namespace Modelos If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal, CveColectiva:=CondicionesPago) Then ErrorPrepoliza = True Else ObjFactura.SeGuardoPrePoliza = True @@ -4334,7 +4335,7 @@ Namespace Modelos Next End If - If ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2) Then + If Not ErrorPrepoliza AndAlso ObjConta.ValidacionesPrePoliza(ObjFactura.CvePrePoliza, UsuarioActual, Opcion:=2) Then If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre = 2 Then ErrorList.Add(ObjConta.MensajePolizaDescuadre) @@ -5805,7 +5806,7 @@ Namespace Modelos End If 'CUANDO SE CANCELA, Y TIENE RELACIONADA UNA REMISIÓN, Y ESTA NO SE CANCELARÁ. DEBE DE HACER EN AUTOMÁTICO LOS MOVIMIENTOS AL ALMACEN DE ENTREGA POR ADELANTADO - Dim RevivirRemisiones As Boolean = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count)) + Dim RevivirRemisiones As Boolean = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (ListaRemisionesCancelar IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count)) 'REMISION YA SE DEBE HACER POR EL PROCESO DE DEVOLUCION DE ALMACEN If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen <> 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not (RealizarDevolucionAlmacen.Contiene(1, 2)) And RevivirRemisiones = False Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index cd5dbd416..45306e38b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1362,6 +1362,8 @@ Partial Class Compras_Compras Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + + If Not IsPostBack Then 'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip") 'ImgBtnBuscarOC.Attributes.Add("data-placement", "top") @@ -17609,10 +17611,15 @@ Partial Class Compras_Compras If TxtDescuento.Text.ToDouble > 0 Then TrDescuento.Visible = True If ActualizaTotales And (UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0) Then - TxtTotal.Text = Total.ToString.FormatoNumero() - If CveCompra > 0 AndAlso CveCompraFactura = 0 Then + + If Not (CveFactura > 0 And CveCompra <= 0) Then + TxtTotal.Text = Total.ToString.FormatoNumero() + ElseIf CveCompra > 0 AndAlso CveCompraFactura = 0 Then 'Compra manual que ya estaba registrada + TxtTotal.Text = Total.ToString.FormatoNumero() TxtIVA.Text = IVA.ToString.FormatoNumero() End If + + End If Else diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index b518789fa..7baf5230f 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -238,7 +238,7 @@ Partial Class PopUpVerFactura Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1 - GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion) + GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa) End If If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then imprimirpallet2(Request("CvePallet").ToString.ToEntero()) @@ -1741,6 +1741,7 @@ Partial Class PopUpVerFactura If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero() + Nombre = ObjVta.DtResultados.FiltroPrimeroValor("UsuarioNombre").ToString End If End Using End If @@ -1761,7 +1762,7 @@ Partial Class PopUpVerFactura If RowInfo IsNot Nothing Then Fecha = RowInfo("FechaInicial").ToString - Nombre = RowInfo("Nombre").ToString + End If End If @@ -2887,6 +2888,7 @@ Partial Class PopUpVerFactura Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente") + Dim Ruta As String = "" Dim Supervisor As String = "" @@ -2910,6 +2912,8 @@ Partial Class PopUpVerFactura Dim CveMoneda As Integer = ObjInventarios.CveMoneda Dim FolioVenta As String = ObjInventarios.FolioVenta Dim FolioOC As String = ObjInventarios.FolioOC + Dim DescripcionOC As String = ObjInventarios.DescripcionOC + Dim FolioInterno As String = ObjInventarios.FolioInterno Dim CveCliente As Integer = ObjInventarios.CveCliente @@ -3090,7 +3094,7 @@ Partial Class PopUpVerFactura PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo, - Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente) + Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente, DescripcionOC:=DescripcionOC) End Sub Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera @@ -3109,7 +3113,8 @@ Partial Class PopUpVerFactura EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "", - Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "") + Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "", + Optional DescripcionOC As String = "") Select Case CveConcepto @@ -3158,7 +3163,7 @@ Partial Class PopUpVerFactura If UsuarioActual.CveEmpresa.Contiene(4, 145) Then params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) End If - If UsuarioActual.CveEmpresa.Contiene(119, 199, 201) Then + If UsuarioActual.CveEmpresa.Contiene(119, 199, 201, 13) Then params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC)) @@ -3171,12 +3176,16 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) End If + If UsuarioActual.CveEmpresa.Contiene(13) Then + params.Add(New ReportParameter("DescripcionOC", DescripcionOC)) + End If + Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN" If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE" If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL" 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201, 13) Then params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", ConceptoFormato)) params.Add(New ReportParameter("Almacen", Almacen)) diff --git a/Compras/RepComplementoPago.aspx b/Compras/RepComplementoPago.aspx index 2eeab0a77..121bcdb3d 100644 --- a/Compras/RepComplementoPago.aspx +++ b/Compras/RepComplementoPago.aspx @@ -136,9 +136,9 @@ <%--0--%> - + <%--1--%> - + <%--2--%> @@ -149,7 +149,7 @@ <%--3--%> <%--4--%> - + <%--5--%> <%--6--%> diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index cf4bf2ab6..ed3cd252a 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/Compras/RepComplementoPago.aspx.vb @@ -105,9 +105,9 @@ Partial Class Compras_RepComplementoPago GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked If ChkFolioFiscal.Checked Then - GvDatos.Columns(0).ItemStyle.Width = 15% + 'GvDatos.Columns(0).ItemStyle.Width = 15% Else - GvDatos.Columns(0).ItemStyle.Width = 30% + 'GvDatos.Columns(0).ItemStyle.Width = 30% End If UpDatos.Update() @@ -240,7 +240,7 @@ Partial Class Compras_RepComplementoPago SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto) - GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) + GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Reporte de Complementos Pago de Compras", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) diff --git a/Contabilidad/CatCuentasAsignaciones.aspx b/Contabilidad/CatCuentasAsignaciones.aspx index 01910855b..e64e0933e 100644 --- a/Contabilidad/CatCuentasAsignaciones.aspx +++ b/Contabilidad/CatCuentasAsignaciones.aspx @@ -103,7 +103,7 @@
@@ -111,7 +111,7 @@ - + @@ -238,7 +238,7 @@
- +
@@ -261,7 +261,21 @@ - + +
+
+
+ + +
+
+
+
+ + + +
+
diff --git a/Contabilidad/CatCuentasAsignaciones.aspx.vb b/Contabilidad/CatCuentasAsignaciones.aspx.vb index f708e4802..9096f48eb 100644 --- a/Contabilidad/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad/CatCuentasAsignaciones.aspx.vb @@ -203,7 +203,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones RegistraScript("$('#ModalCat').modal();") End If - End Sub Private Sub RecargaConcepto(CveConceptoContable As Integer) @@ -268,10 +267,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjG As New ClsGenerales If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then DdlColectivas.DataSource = ObjG.DtResultados + DdlGlobalColectiva.DataSource = ObjG.DtResultados End If ObjG.Dispose() DdlColectivas.DataBind() + DdlGlobalColectiva.DataBind() DdlColectivas.Items.Insert(0, New ListItem("-", "-1")) + DdlGlobalColectiva.Items.Insert(0, New ListItem("-", "-1")) If OpAgregar Then DdlColectivas.Enabled = True @@ -303,8 +305,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Protected Sub EliminarRowGlobal(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim ObjConta As New ClsContabilidad - If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveConceptoContable").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then - Alert("se elimino correctamente") + If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveCuentaGlobal").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then + Alert("Se elimino correctamente") End If CargaDatosSistema() UpDatos.Update() @@ -401,7 +403,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ErrorString As String = "" Dim ObjConta As New ClsContabilidad - If Not ObjConta.AddCuentasGlobales(DdlConceptoGlobal.SelectedValue.ToEntero, DdlCuentaGlobal.SelectedValue.ToEntero, DdlTipoGlobal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If Not ObjConta.AddCuentasGlobales(DdlConceptoGlobal.SelectedValue.ToEntero, DdlCuentaGlobal.SelectedValue.ToEntero, DdlTipoGlobal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtGlobalPorcentajeIVA.Text.ToDecimal, DdlGlobalColectiva.SelectedValue.ToEntero) Then ErrorString = "Error al agregar" End If ObjConta.Dispose() @@ -432,4 +434,46 @@ Partial Class Contabilidad2_CatCuentasAsignaciones ObjConta.Dispose() DdlCuentaGlobal.DataBind() End Sub + + Protected Sub DdlConceptoGlobal_SelectedIndexChanged(sender As Object, e As EventArgs) + RecargaConceptoGlobal(DdlConceptoGlobal.SelectedValue.ToEntero) + End Sub + + Private Sub RecargaConceptoGlobal(CveConceptoContable As Integer) + Dim Dr As DataRow = GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimero("") + + If Dr IsNot Nothing Then + + 'divCliente.Visible = Boolean.Parse(Dr("AplicaCliente").ToString) + 'divProveedor.Visible = Boolean.Parse(Dr("AplicaProveedor").ToString) + 'divPersonal.Visible = Boolean.Parse(Dr("AplicaPersonal").ToString) + divGlobalPorcentajeIVA.Visible = Boolean.Parse(Dr("AplicaImpuesto").ToString) + 'divClasificacion.Visible = Boolean.Parse(Dr("AplicaClasificacion").ToString) + 'divBancos.Visible = Boolean.Parse(Dr("AplicaBancos").ToString) + 'divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString) + 'divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString) + 'divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString) + 'divCredito.Visible = Boolean.Parse(Dr("AplicaCredito").ToString) + divGlobalColectiva.Visible = Boolean.Parse(Dr("AplicaColectiva").ToString) + + If Dr("AplicaColectiva").ToString = "True" Then + Dim dtt As DataTable = Nothing + Dim ObjG As New ClsGenerales + If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then + dtt = ObjG.DtResultados + End If + If ObjG.GetColectivas(0, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then + dtt.Merge(ObjG.DtResultados) + End If + DdlGlobalColectiva.DataSource = dtt + ObjG.Dispose() + + DdlGlobalColectiva.DataBind() + DdlGlobalColectiva.Items.Insert(0, New ListItem("-", "-1")) + DdlGlobalColectiva.Enabled = True + + End If + End If + + End Sub End Class diff --git a/Empresas/141/Formatos/Cotizacion.rdlc b/Empresas/141/Formatos/Cotizacion.rdlc index a770ec337..a3d62ba51 100644 --- a/Empresas/141/Formatos/Cotizacion.rdlc +++ b/Empresas/141/Formatos/Cotizacion.rdlc @@ -1906,47 +1906,43 @@ - Sonora + Sonora: - : Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Obregón IV (644) 688-3937 -  Navojoa (642) 422-9852 ʹ + Rodríguez (662) 213-0388 - Camino del seri (662) 220-3070 - Colosio (662) 260-8088 - Colosio II (662) 118-9939 - Veracruz (662) 210-0041 - Monteverde (662) 688-1512 - Morelos (662) 211-0805 - Palo Verde (662) 436-3254 - Perisur (662) 254-4849 - Portillo (662) 688-5349 - Progreso (662) 310-5781 - Reforma (662) 213-8724 - Sahuaro (662) 216-1471 - Solidaridad (662) 216-0935 - Quiroga (662) 261-0838 - Guaymas (622) 222-2417 - Nogales (631) 319-0093 - San Luis Rio Colorado (653) 596-1799 - Agua Prieta (633) 688-0080 - Caborca (637) 372-4214 - Magdalena (632) 322-4080 - Cananea (645) 332-2040 - Obregón (644) 412-2002 - Obregón II (644) 413-1543 - Obregón III (644) 413-4501 - Navojoa (642) 422-9852 – - Sinaloa + Sinaloa: - : Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 – Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - + Mochis (668) 817-0209 - Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Guamúchil (673) 688-0108 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Sanalona (667) 713-6671 - Tres Ríos (667) 211-4696 - La Primavera (667) 304-2060 - Corredor Automotriz (667) 715-5004 - Del Valle (667) 721-5577 - Mazatlán (669) 910-2122 - @@ -1957,18 +1953,16 @@ 7pt Bold None - #000000 - : Tijuana (664) 622-5221 ʹ- Tijuana II (664) 626-2615 - Tijuana III (664) 906-0917 - Tijuana IV (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 – Tecate (665) 5212080 - Ensenada (646) 172-4075 ʹ Ensenada II (646) 176-2703 - + : Tijuana (664) 622-5221 – Tijuana II (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali II (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 – Ensenada II (646) 176-2703 - @@ -1979,18 +1973,16 @@ 7pt Bold None - #000000 - : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 + : La Paz (612) 146-3656 - La Paz II (612) 121-3185 - Los Cabos (624) 688 3552 - San José del Cabo (624) 247-4739 @@ -2046,6 +2038,21 @@ 2pt + + Embedded + ID5 + FitProportional + 11.02339cm + 0.17151cm + 0.96488cm + 3.75909cm + 17 + + + + true true @@ -2073,7 +2080,103 @@ 0.19008cm 0.40655cm 12.88812cm - 17 + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + ID4 + FitProportional + 11.02339cm + 4.34941cm + 0.91769cm + 3.03541cm + 19 + + + + + + Embedded + ID1 + FitProportional + 11.02339cm + 7.56121cm + 0.97656cm + 4.16281cm + 20 + + + + + + Embedded + ID6 + FitProportional + 11.02339cm + 11.90634cm + 1.01184cm + 3.76809cm + 21 + + + + + + Embedded + ID3 + FitProportional + 11.37021cm + 15.67443cm + 0.93046cm + 5.37042cm + 22 + + + + + + true + true + + + + + DESCARGA NUESTRA APLICACIÓN + + + + + + + Textbox60 + 10.83195cm + 15.67443cm + 0.50299cm + 5.42547cm + 23 @@ -2127,7 +2230,7 @@ 17.09066cm 0.64028cm 3.90165cm - 18 + 24 @@ -2272,7 +2375,7 @@ 0.16383cm 2.44366cm 15.5106cm - 19 + 25 @@ -2307,7 +2410,7 @@ 6.24049in 0.21875in 0.94607in - 20 + 26 @@ -2342,7 +2445,7 @@ 6.24048in 0.21875in 0.94607in - 21 + 27 @@ -2377,7 +2480,7 @@ 6.24048in 0.21875in 0.94607in - 22 + 28 @@ -2412,7 +2515,7 @@ 6.24048in 0.21875in 0.94607in - 23 + 29 @@ -2448,7 +2551,7 @@ 6.24048in 0.21875in 0.94607in - 24 + 30 @@ -2484,7 +2587,7 @@ 7.18656in 0.21875in 0.98426in - 25 + 31 @@ -2519,7 +2622,7 @@ 7.18656in 0.20486in 0.98425in - 26 + 32 @@ -2554,7 +2657,7 @@ 7.18656in 0.19899in 0.98425in - 27 + 33 @@ -2590,7 +2693,7 @@ 7.18656in 0.19284in 0.98425in - 28 + 34 @@ -2626,7 +2729,7 @@ 7.18656in 0.19596in 0.98425in - 29 + 35 @@ -2661,7 +2764,7 @@ 4.32565cm 0.82021cm 7.93893cm - 30 + 36 @@ -2691,7 +2794,7 @@ 0.19009cm 0.05496cm 20.88652cm - 31 + 37 @@ -2703,72 +2806,6 @@ 2pt - - true - true - - - - - DESCARGA NUESTRA APLICACIÓN - - - - - - - Textbox60 - 10.83195cm - 15.67443cm - 0.50299cm - 5.42547cm - 32 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - ID3 - FitProportional - 11.37021cm - 15.67443cm - 0.93046cm - 5.37042cm - 33 - - - - - - Embedded - logofacturas3 - FitProportional - 11.05641cm - 0.12912cm - 0.80243cm - 15.36892cm - 34 - - - - 15.93202cm