diff --git a/AC/RegNomina.aspx b/AC/RegNomina.aspx index db1709f12..4c71060cf 100644 --- a/AC/RegNomina.aspx +++ b/AC/RegNomina.aspx @@ -107,7 +107,7 @@ - + P. Empleados: diff --git a/AC/RegNomina.aspx.vb b/AC/RegNomina.aspx.vb index 38dda7c00..a85fa5425 100644 --- a/AC/RegNomina.aspx.vb +++ b/AC/RegNomina.aspx.vb @@ -379,6 +379,7 @@ Partial Class AC_RegNomina Dim IdCtaServicioMedico As Integer = 643 Dim IdCtaPension As Integer = 643 Dim IdCtaISRAsimilados As Integer = 4442 + Dim IdCtaPrestamoEmpleados As Integer = 4477 Dim Importe As Double Dim MsgError As String = "" @@ -617,6 +618,9 @@ Partial Class AC_RegNomina Importe = TxtISRAsimilados.Text.ToDouble If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaISRAsimilados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True + 'Registro Prestamo Empleados + Importe = TxtPrestamoEmpleados.Text.ToDouble + If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaPrestamoEmpleados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True ''Registro del Mov Devolución 'Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index d251f6f23..bf6801a61 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -286,8 +286,18 @@ Public Class ClsContabilidad Try SqlAdapter.Fill(Data) Retorno = True + Catch ex As Exception - OnError("Ocurrió un error al Actualizar la Prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + If ex.Message.Contains("CuentasResultados_SubProyectos") Then + OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + If ex.Message.Contains("concepto de bancos con un importe diferente") Then + OnError("No se puede editar el valor del bancos con un valor diferente a movimiento registrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + OnError("Ocurrió un error al Actualizar la Prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If + End If + End Try Return Retorno diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 55c6e7eca..43c95d644 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -174,7 +174,7 @@ Public Class ClsGenerales Return retorno End Function - Public Function RepConciliacionSatGET(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String) As Boolean + Public Function RepConciliacionSATGet(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RepConciliacionSatGET", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 23ac5b7b2..9da716735 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -277,6 +277,49 @@ Public Class ClsNominas End Try Return retorno End Function + Public Function ComparativoSATNominasGet(cveEmpresa As Integer, xml As String, FechaInicio As DateTime, FechaFin As DateTime, CveTipoPeriodo As Integer) As Boolean + Dim retorno As Boolean = False + DTSet = New DataSet() + DataAdapter("[PA_Nom_ComparativoSATNominasGet]", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@xml", SqlDbType.Xml).Value = xml + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@TipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo + End With + Try + SqlAdapter.Fill(DTSet) + If DTSet.Tables.Count > 0 Then + Data = DTSet.Tables(0) + End If + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Percepciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function ReportedeNominasGet(cveEmpresa As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveTipoPeriodo As Integer) As Boolean + Dim retorno As Boolean = False + DTSet = New DataSet() + DataAdapter("[PA_Nom_ReportedeNominasGet]", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@TipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo + End With + Try + SqlAdapter.Fill(DTSet) + If DTSet.Tables.Count > 0 Then + Data = DTSet.Tables(0) + End If + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Percepciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function ReportedePercepcionesDeduccionesGet(cveEmpresa As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveTipoPeriodo As Integer) As Boolean Dim retorno As Boolean = False DTSet = New DataSet() diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2d8747e86..2ab65b1a4 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3866,6 +3866,7 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/SolicitudesSAT.aspx".ToUpper(), 717) PaginaDict.Add("/Nomina/CatConceptos2.aspx".ToUpper(), -1) + PaginaDict.Add("/Nomina/NomTimbrados.aspx".ToUpper(), 920) PaginaDict.Add("/Nomina/Aguinaldo.aspx".ToUpper(), -1) PaginaDict.Add("/Nomina/RepInversiondeNomina.aspx".ToUpper(), 906) PaginaDict.Add("/RH/DiasFestivos.aspx".ToUpper(), -1) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e4abc4166..d79c9bae5 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5020,7 +5020,23 @@ Public Class ClsVentas Return Retorno End Function + Public Function GetRNCRelacionadas(CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_RNCRelacionadasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las ventas con usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function #End Region diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 830ed6140..ec641de26 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2962,6 +2962,80 @@ Namespace Modelos End If Next End If + + If UsuarioActual.Empresa.Funcionalidad(344) = "1" Then + Dim ListaNC As List(Of Modelos.Factura) = New List(Of Factura) + Dim DtRNCRelacionas As DataTable = Nothing + + If ObjVentas.GetRNCRelacionadas(CveVenta) Then + DtRNCRelacionas = ObjVentas.DtResultados.Copy + End If + + If DtRNCRelacionas IsNot Nothing Then + For Each RowRNC As DataRow In DtRNCRelacionas.Rows + ListaNC.Add(New Modelos.Factura(UsuarioActual, RowRNC("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa) With {.TotalRemNCAplicado = RowRNC("ImporteAplicado").ToString().ToDecimal()}) + Next + End If + + If ListaNC IsNot Nothing Then + For Each ObjRNC As Modelos.Factura In ListaNC + If ObjRNC.TipoDocto = "RNC" Then + importeMovimiento = ObjRNC.TotalRemNCAplicado + importeMX = importeMovimiento * tipoCambio * Multiplicador + FechaMovimiento = ObjFactura.FechaPago + CveSubProyectoContabilizar = CveSubProyectoVenta + If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + + If tipoCambio = 1 Then + IdCtaContable = ObjFactura.Cliente.IdCtaContClientes + Else + IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera + End If + + IdCtaContableCliente = IdCtaContable + + Dim CveMovimiento As Integer = -1 + Dim CveAlmacen As Integer = -1 + + If ObjInventario IsNot Nothing AndAlso ObjInventario.GetInv_Mov(ObjRNC.CveVenta, UsuarioActual.CveEmpresa) Then + CveMovimiento = ObjInventario.DtResultados.FiltroPrimeroValor("CveMovimiento", "CvePS IS NULL AND CveConcepto = 42").ToEntero() + CveAlmacen = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CvePS IS NULL AND CveConcepto = 42").ToEntero() + End If + + 'VERIFICA SI TIENE MOVIMIENTO DE ENTRADA DE USADO + If CveMovimiento > 0 AndAlso CveAlmacen > 0 Then + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjRNC.CveVenta, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + + Dim SubTotalCalculado As Decimal = (importeMovimiento / (1D + ObjRNC.PorcentajeIVA)).ToDecimal + + Dim Importe318 As Decimal = (SubTotalCalculado * ObjRNC.PorcentajeIVA).RoundSQL(2).ToDecimal() + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjRNC.CveVenta, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, SubTotalCalculado, Referencia, 150, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=ObjRNC.CveVenta, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=ObjRNC.DtDetalle.MAX("CveClasificacion").ToEntero(), CveSubProyecto:=ObjRNC.CveSubProyecto, ImporteMX:=SubTotalCalculado, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, Contabilizable:=False) Then + ErrorPrepoliza = True + End If + + Else + If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjRNC.CveVenta, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjRNC.CveVenta, CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + Else + ErrorPrepoliza = True + End If + End If + + importeMovimiento = 0 + End If + Next + End If + End If Else If ObjFactura.DtAnticipos IsNot Nothing Then For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows @@ -4910,7 +4984,7 @@ Namespace Modelos 'CANCELA PREPOLIZA If Not ErrorCancelar Then ErrorCancelar = ProcesoPrepolizas(ObjFactura, ObjConta, -1, ObjFactura.DtDetalle, ObjAC, -1, ObjBancos, ObjVentas, ObjEventos, DtRemisionesRelacionadas:=DtRemisionesRelacionadas, SeCancelaRemisionProceso:=SeCancelaRemisionProceso, - CancelarRemisiones:=CancelarRemisiones, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveEstatusRefacturacion:=CveEstatusRefacturacion) + CancelarRemisiones:=CancelarRemisiones, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveEstatusRefacturacion:=CveEstatusRefacturacion, ObjInventario:=ObjInventario) MensajeError = "Ocurrió un error al generar la prepoliza de cancelación." End If diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index a7455d22e..ecc119d3f 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -1183,7 +1183,7 @@ - + diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index a9e212a80..ded3f6e3a 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2845,7 +2845,7 @@ Partial Class Bancos_IE 'Agregamos el IVA If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If End If @@ -2853,7 +2853,7 @@ Partial Class Bancos_IE 'Agregamos complementaria Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=0) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If @@ -2869,7 +2869,7 @@ Partial Class Bancos_IE 'Agregamos complementaria Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If Else @@ -3561,7 +3561,7 @@ Partial Class Bancos_IE 'Agregamos complementaria Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If End If @@ -4339,8 +4339,15 @@ Partial Class Bancos_IE Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs) RegistraScript("$('#DivCancelarIE').modal('hide');") + Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True) + + If Not ExistenComplementosVigentes Then + CancelarIE() + Else + Alert("No se puede cancelar documento con complementos de pago vigentes", TipoMensaje.MsgError) + End If + - CancelarIE() End Sub Private Sub CancelarIE(Optional CancelarComplemento As Boolean = False) @@ -4350,8 +4357,8 @@ Partial Class Bancos_IE Exit Sub End If - If ChkConciliado.Checked Then - Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError) + If ChkConciliado.Checked AndAlso TxtFechaCancelacion.Text.ToDate < TxtFechaAplicado.Text.ToDate.FirstDayOfMonth.AddMonths(1) Then + Alert("El documento conciliado, no se puede cancelar con la fecha especificada.", TipoMensaje.MsgError) Exit Sub End If @@ -5973,7 +5980,7 @@ Partial Class Bancos_IE 'TxtFechaDesconciliado.Text = Now.ToShortDateString 'UpDesconciliar.Update() 'RegistraScript("$('#DModalDesconciliar').modal()") - Dim fechaCancelacion As String = DateTime.Now.AddMonths(1).FirstDayOfMonth.ToShortDateString + Dim fechaCancelacion As String = TxtFechaAplicado.Text.ToDate.AddMonths(1).FirstDayOfMonth.ToShortDateString RVTxtFechaCancelacion.MinimumValue = fechaCancelacion CalendarioCancelacion.StartDate = fechaCancelacion.ToDate UpEliminarCotizacion.Update() @@ -6451,13 +6458,12 @@ Partial Class Bancos_IE Protected Sub LnkCancelarComplemetno_Click(sender As Object, e As EventArgs) If ChkConciliado.Checked Then - Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgAdvertencia) + Alert("El documento se encuentra conciliado, no se puede cancelar.", TipoMensaje.MsgAdvertencia) Exit Sub End If Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow) - CveComplementoPagoCancelar = GvRow.DataKey("CveComplementoPago").ToEntero FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString '' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC @@ -6467,8 +6473,6 @@ Partial Class Bancos_IE Dim ObjCancelacion As New Timbrado Dim ObjBanco As New ClsBancos - - If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 0f8a67eae..5a804b329 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1538,7 +1538,6 @@ Partial Class Bancos_PopIECompras Dim ImporteMovimientoNoDeducible As Decimal = 0 Dim ImporteMXNoDeducible As Decimal = 0 Dim IdCtaContable As Integer = 0 - Dim CveCuenta As Integer = 0 Dim ConceptoMovimiento = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, TxtObservaciones.Text, TxtFolio.Text.Trim) Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim TimpocambioGeneral As Decimal = 1 @@ -1899,8 +1898,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -1932,8 +1931,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -1966,8 +1965,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2000,8 +1999,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2033,9 +2032,9 @@ Partial Class Bancos_PopIECompras ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) - End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + End If + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2069,8 +2068,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2103,8 +2102,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2156,17 +2155,7 @@ Partial Class Bancos_PopIECompras ' End If ' End If - ' 'Conta SIG - ' If CveCuentaRetISR <> 0 Then - ' CveCuenta = CveCuentaRetISR - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - ' End If - ' End If - ' End If - ' End If + 'Case 23 'Ret ISR Acreditable ' If MovimientoPagar.ConceptoRetISR = 1 Then ' If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then @@ -2201,16 +2190,6 @@ Partial Class Bancos_PopIECompras ' End If ' End If - ' 'Conta SIG - ' If CveCuentaRetISR <> 0 Then - ' CveCuenta = CveCuentaRetISR - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - ' End If - ' End If - ' End If ' End If 'Case 243 'Ret ISR X Acreditar Terceros y Arrendamiento ' If MovimientoPagar.ConceptoRetISR = 2 Then @@ -2246,16 +2225,7 @@ Partial Class Bancos_PopIECompras ' End If ' End If - ' 'Conta SIG - ' If CveCuentaRetISR <> 0 Then - ' CveCuenta = CveCuentaRetISR - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - ' End If - ' End If - ' End If + ' End If 'Case 244 'Ret ISR Acreditable Terceros y Arrendamiento ' If MovimientoPagar.ConceptoRetISR = 2 Then @@ -2291,16 +2261,7 @@ Partial Class Bancos_PopIECompras ' End If ' End If - ' 'Conta SIG - ' If CveCuentaRetISR <> 0 Then - ' CveCuenta = CveCuentaRetISR - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - ' End If - ' End If - ' End If + ' End If Case 14 'Iva por Acreditar If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then @@ -2331,8 +2292,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = MovimientoPagar.IVA ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2355,8 +2316,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IVAPorPagar * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2409,8 +2370,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IVADeducible) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2433,8 +2394,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2517,7 +2478,6 @@ Partial Class Bancos_PopIECompras If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjMov.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero - CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero End If End If @@ -2559,8 +2519,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = MovimientoPagar.IVA ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2582,8 +2542,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2603,7 +2563,6 @@ Partial Class Bancos_PopIECompras If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjMov.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If @@ -2745,7 +2704,6 @@ Partial Class Bancos_PopIECompras If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjMov.DtResultados.Rows.Count > 0 Then IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If @@ -2828,7 +2786,6 @@ Partial Class Bancos_PopIECompras ' If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero ' End If ' End If Case 25 'IEPS por Acreditar @@ -2888,7 +2845,6 @@ Partial Class Bancos_PopIECompras If CveMoneda <> 1 OrElse CveMonedaCompra <> 1 Then IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) TimpocambioGeneral = TCImpuestos '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra @@ -2914,7 +2870,6 @@ Partial Class Bancos_PopIECompras If CveMoneda <> 1 OrElse CveMonedaCompra <> 1 Then IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra If tipoCambioPago > tipoCambioCompra AndAlso CveMonedaCompra = 2 Then diff --git a/Bin/ClosedXML.dll b/Bin/ClosedXML.dll index 4065a321f..0bdfccd36 100644 Binary files a/Bin/ClosedXML.dll and b/Bin/ClosedXML.dll differ diff --git a/Bin/DocumentFormat.OpenXml.dll b/Bin/DocumentFormat.OpenXml.dll index 1698758e5..7978b0462 100644 Binary files a/Bin/DocumentFormat.OpenXml.dll and b/Bin/DocumentFormat.OpenXml.dll differ diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 545597a2c..220803b63 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -102,31 +102,31 @@ Partial Class Compras_ReembolsosComprobaciones ObjPersonal.Dispose() - DdlPersonal.DataBind() + DdlPersonal.DataBind() - CargaTipoTransaccion() + CargaTipoTransaccion() - If UsuarioActual.Empresa.Funcionalidad(506) = "1" Then - CbPermitirExcedente.Visible = True - Else - CbPermitirExcedente.Visible = False - End If + If UsuarioActual.Empresa.Funcionalidad(506) = "1" Then + CbPermitirExcedente.Visible = True + Else + CbPermitirExcedente.Visible = False + End If ' If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then 'rowComisiones.Visible = True ' End If If UsuarioActual.CveEmpresa = 119 Then - ChkReembolsarSinBancos.Visible = True - End If - - TxtFechaPrePoliza.Text = Date.Now.ToShortDateString - - 'CargaCuentasDiferencia() - - 'TableDiferencia.Visible = False + ChkReembolsarSinBancos.Visible = True End If + TxtFechaPrePoliza.Text = Date.Now.ToShortDateString + + 'CargaCuentasDiferencia() + + 'TableDiferencia.Visible = False + End If + End Sub #Region " FILTROS " @@ -799,7 +799,7 @@ Partial Class Compras_ReembolsosComprobaciones End If Else 'Agrego el IVA - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then MsgError = "Detalle" End If 'Agrego el IVA @@ -1129,7 +1129,7 @@ Partial Class Compras_ReembolsosComprobaciones End If Else 'Agrego el IVA - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then MsgError = "Detalle" End If diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index ec1965253..6dac63827 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -518,7 +518,7 @@ Partial Class ContabilidadC_RegPrePoliza 'Asignamos los Subproyectos e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlSubProyecto").DataBind() - 'e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) + e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto")) 'Asignamos los Tipos de Gasto diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 11d26abf9..f579a6d2d 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -206,7 +206,7 @@ - +
@@ -519,8 +519,6 @@ Cuenta
- <%----%> - <%--
--%> @@ -740,7 +738,7 @@ Cuenta:
-
+

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index e9f305103..4042bfc7b 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1,5 +1,4 @@ - - + Imports System.Data Imports Extensiones Imports System.Linq @@ -625,12 +624,12 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub CargaCuentasContables() Dim ObjConta As New ClsContabilidad If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then - DdlCtaContable.DataSource = ObjConta.DtResultados + DdlCuentaContableE.DataSource = ObjConta.DtResultados DtCuentasContables = ObjConta.DtResultados End If ObjConta.Dispose() - DdlCtaContable.DataBind() - DdlCtaContable.Items.Insert(0, New ListItem("Sin Asignar", "0")) + DdlCuentaContableE.DataBind() + DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) End Sub Private Sub CargaTiposGasto() @@ -729,20 +728,20 @@ Partial Class ContabilidadC_RegPrePolizaS IdCuenta = 0 CodigoCuenta = "" NombreCuenta = "" - If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) - If drr IsNot Nothing Then - IdCuenta = drt("IdCtaContable").ToString.ToEntero - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - End If - EsComodin = 0 - End If + 'If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables + ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) + ' If drr IsNot Nothing Then + ' IdCuenta = drt("IdCtaContable").ToString.ToEntero + ' CodigoCuenta = drr("CuentaFormato").ToString() + ' NombreCuenta = drr("Nombre").ToString() + ' 'Cuenta = drr("Nombre").ToString() + ' End If + ' EsComodin = 0 + 'End If Dim dr As DataRow = DtMovimientos.NewRow - dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta + dr("CodigoCuenta") = drt("Codigo").ToString & "
" & drt("Nombre").ToString dr("Cuenta") = Cuenta 'TxtCuentaContable.Text dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) dr("Concepto") = TxtObservaciones.Text @@ -838,7 +837,7 @@ Partial Class ContabilidadC_RegPrePolizaS e.Row.FCLinkButton("ImgBancos").Visible = True If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And - e.Row.DataKey("ContadoImporte").ToEntero > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then + e.Row.DataKey("ContadoImporte").ToDecimal > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" End If End If @@ -902,10 +901,13 @@ Partial Class ContabilidadC_RegPrePolizaS CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString, gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario" - If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then - FolioIE = ObjIE.Folio + If CveIE < 0 Then + MsgError = "No se pudo registrar movimiento bancario" + Exit For End If + 'If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then + ' FolioIE = ObjIE.Folio + 'End If End If @@ -1045,7 +1047,7 @@ Partial Class ContabilidadC_RegPrePolizaS ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, - CvePersonal:=row.DataKey("CvePersonal").ToEntero) Then + CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero) Then OcurrioError = True Exit For End If @@ -1123,7 +1125,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaTipoGastoE() DdlTipoGastoE.SelectedValueExist(CveTipoGasto) CargaCtaContableE() - DdlCtaContableE.SelectedValueExist(CveCuenta) + DdlCuentaContableE.SelectedValueExist(CveCuenta) If Cargo <> 0 Then TxtCargoE.Text = Cargo @@ -1160,12 +1162,12 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub CargaCtaContableE() Dim ObjConta As New ClsContabilidad If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then - DdlCtaContableE.DataSource = ObjConta.DtResultados + DdlCuentaContableE.DataSource = ObjConta.DtResultados End If ObjConta.Dispose() - DdlCtaContableE.DataBind() - DdlCtaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) + DdlCuentaContableE.DataBind() + DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) End Sub Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then @@ -1266,7 +1268,8 @@ Partial Class ContabilidadC_RegPrePolizaS If DtMovimientos Is Nothing Then CreaDT() If CvePrePoliza > 0 Then Dim dr As DataRow = DtMovimientos.NewRow - dr("IdCtaContable") = DdlCtaContableE.SelectedValue + dr("IdCtaContable") = DdlCuentaContableE.SelectedValue + dr("CveCuenta") = DdlCuentaContableE.SelectedValue dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue dr("Concepto") = TxtConceptoE.Text @@ -1351,7 +1354,9 @@ Partial Class ContabilidadC_RegPrePolizaS If Rows.Count > 0 Then Dim dr As DataRow = Rows(0) - dr("IdCtaContable") = DdlCtaContableE.SelectedValue + dr("IdCtaContable") = DdlCuentaContableE.SelectedValue + dr("CveCuenta") = DdlCuentaContableE.SelectedValue + dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue dr("Concepto") = TxtConceptoE.Text @@ -1366,8 +1371,6 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, "")) - dr("CveCuenta") = DdlCtaContableE.SelectedValue.ToEntero - dr("CodigoNombreCuenta") = DdlCtaContableE.SelectedItem.Text dr("Modificado") = True @@ -1445,10 +1448,10 @@ Partial Class ContabilidadC_RegPrePolizaS Dim dr As DataRow = Rows(0) Dim CodigoCuenta As String = "" Dim NombreCuenta As String = "" - dr("CveCuenta") = DdlCtaContable.SelectedValue + dr("CveCuenta") = DdlCuentaContable.SelectedValue - If DdlCtaContable.SelectedValue.ToEntero > 0 Then - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue)) + If DdlCuentaContable.SelectedValue.ToEntero > 0 Then + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaContable.SelectedValue)) If drr IsNot Nothing Then CodigoCuenta = drr("CuentaFormato").ToString() NombreCuenta = drr("Nombre").ToString() @@ -1472,7 +1475,6 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveClasificacion") = -1 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero dr("CveVenta") = DdlVentas.SelectedValue.ToEntero - dr("CveCuenta") = DdlCtaContable.SelectedValue.ToEntero End If GvMov.DataSource = DtMovimientos GvMov.DataBind() @@ -1484,7 +1486,8 @@ Partial Class ContabilidadC_RegPrePolizaS If CvePrePoliza > 0 Then Dim dr As DataRow = DtMovimientos.NewRow - dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue + dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue + dr("CveCuenta") = DdlCuentaContable.SelectedValue dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text dr("CveConceptoContable") = DdlConceptosContables.SelectedValue dr("Concepto") = TxtDescripcion.Text @@ -1517,10 +1520,10 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CodigoCuenta As String = "" Dim NombreCuenta As String = "" - dr("CveCuenta") = DdlCtaContable.SelectedValue + dr("CveCuenta") = DdlCuentaContable.SelectedValue - If DdlCtaContable.SelectedValue.ToEntero > 0 Then - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue)) + If DdlCuentaContable.SelectedValue.ToEntero > 0 Then + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaContable.SelectedValue)) If drr IsNot Nothing Then CodigoCuenta = drr("CuentaFormato").ToString() NombreCuenta = drr("Nombre").ToString() @@ -1716,7 +1719,7 @@ Partial Class ContabilidadC_RegPrePolizaS If DrM IsNot Nothing Then HdnCve.Value = idMov.ToString - DdlCtaContable.SelectedValue = DrM("CveCuenta") + DdlCuentaContable.SelectedValue = DrM("CveCuenta") TxtReferencia.Text = DrM("Referencia") TxtObservaciones.Text = DrM("Concepto") ' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto") @@ -2024,7 +2027,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveClasificacion As Integer = -1 Dim CveCuentaExcel As Integer = -1 Dim ObjConta2 As New ClsContabilidad - Dim FolioExcel As Integer = -1 + Dim FolioExcel As Long = -1 Dim TipoMov As Integer = -1 Dim CveBancoCuenta As Integer = -1 If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then @@ -2040,17 +2043,34 @@ Partial Class ContabilidadC_RegPrePolizaS End If If CveConceptoContable = 30 Then + Dim objconta3 As New ClsContabilidad objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa) If objconta3.DtResultados.Rows.Count > 0 Then Dim rowcc As DataRow = objconta3.DtResultados.Rows(0) CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero() DdlCuenta.SelectedValue = CveBancoCuenta + Else + CveBancoCuenta = 0 End If + objconta3.Dispose() + + If CveBancoCuenta = 0 Then + Alert(String.Format("La cuenta {0} no está vinculada a una cuenta bancaria administrativa favor de verificar el archivo.", Row("Cuenta").ToString), TipoMensaje.MsgAdvertencia) + DtMovimientos.Clear() + Exit For + End If + TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero - FolioExcel = Row("Folio").ToString + FolioExcel = Row("Folio").ToString.ToEntero CveTipoTransaccion = TipoMov CveCuenta = CveBancoCuenta + 'carga el consecutivo + + If FolioExcel = 0 Then + FolioExcel = SiguienteFolioBancos(CveBancoCuenta, TipoMov) + End If + Folio = FolioExcel ImporteDocumento = IIf(Row("Abono").ToString.ToEntero > 0, Row("Abono").ToString, Row("Cargo").ToString) Observaciones = Row("Referencia").ToString @@ -2062,7 +2082,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If - 'sino viene el cveconcepto, busca por le nombre del concepto If CveConceptoContable = 0 Then Alert(String.Format("El concepto {0} no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo"))) @@ -2110,8 +2129,8 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveCuenta") = CveCuentaExcel dr("ContadoTipoTransaccion") = CveTipoTransaccion - dr("ContadoCuenta") = CveCuenta - dr("ContadoNumeroFolio") = Folio + dr("ContadoCuenta") = CveBancoCuenta + dr("ContadoNumeroFolio") = FolioExcel dr("ContadoImporte") = ImporteDocumento dr("ContadoBeneficiario") = Beneficiario dr("ContadoObservaciones") = Observaciones @@ -2135,6 +2154,63 @@ Partial Class ContabilidadC_RegPrePolizaS #End Region +#Region "Siguiente Folio" + Public Property ArregloCuentasFolios As DataTable + Get + + If ViewState("ArregloCuentasFolios") Is Nothing Then + Dim dt = New DataTable("CuentasBancos") + With dt.Columns + .Add("CveCuenta", Type.GetType("System.Int32")) + .Add("CveTipoTransaccion", Type.GetType("System.Int32")) + .Add("Folio", Type.GetType("System.Double")) + End With + ViewState("ArregloCuentasFolios") = dt + End If + + Return CType(ViewState("ArregloCuentasFolios"), DataTable) + End Get + Set(value As DataTable) + ViewState("ArregloCuentasFolios") = value + End Set + End Property + + + + Public Function SiguienteFolioBancos(CveCuentaBancos As Integer, CveTipoTransaccionBancos As Integer) As String + Dim Retorno As String = "0" + + Dim Folio As Long = ArregloCuentasFolios.FiltroPrimeroValor("Folio", String.Format("CveCuenta = {0} and CveTipoTransaccion = {1}", CveCuentaBancos, CveTipoTransaccionBancos)).ToLong + + If Folio = 0 Then + Dim Banco As New ClsBancos + Folio = Banco.GetNextFolio(CveCuentaBancos, CveTipoTransaccionBancos) + Banco.Dispose() + End If + + Folio += 1 + + Dim a As DataRow() = ArregloCuentasFolios.Select(String.Format("CveCuenta = {0} and CveTipoTransaccion = {1}", CveCuentaBancos, CveTipoTransaccionBancos)) + + If a.Count = 0 Then + Dim dr As DataRow = ArregloCuentasFolios.NewRow + dr("Folio") = Folio + dr("CveCuenta") = CveCuentaBancos + dr("CveTipoTransaccion") = CveTipoTransaccionBancos + ArregloCuentasFolios.Rows.Add(dr) + Else + a(0)("Folio") = Folio 'actualizo el folio + End If + + ArregloCuentasFolios.AcceptChanges() + + Return Folio + End Function +#End Region + + + + #Region "Paquete Egresos" Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs) ImprimirPolizaPDF(IdPoliza) diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 5b28459b6..8b6561580 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -134,7 +134,7 @@ public partial class Nomina_Finiquito : ClsPaginas HypCodigo.Text = drow["Codigo"].ToString(); HypEmpleado.Text = drow["NombreCompleto"].ToString(); - HypCodigo.NavigateUrl =$"/RH/Personal.aspx?CvePersonal={drow["CvePersonal"]}"; + HypCodigo.NavigateUrl = $"/RH/Personal.aspx?CvePersonal={drow["CvePersonal"]}"; LblPuesto.Text = drow["Puesto"].ToString(); LblSalario.Text = drow["SalarioDiario"].ToString(); LtlAreaGeografica.Text = drow["AreaGeografica"].ToString(); @@ -147,7 +147,7 @@ public partial class Nomina_Finiquito : ClsPaginas FechaInicio = LblFechaAlta.Text.ToDateTime(); TxtFechaBaja.Text = string.Format("{0:dd/MM/yyyy}", da["FechaFin"]); { - if(da["CveMotivoBaja"].ToString() == "") + if (da["CveMotivoBaja"].ToString() == "") { chkIndemnizacion.Checked = true; chkSeparacionUnica.Checked = true; @@ -158,18 +158,19 @@ public partial class Nomina_Finiquito : ClsPaginas chkIndemnizacion.Checked = da["ValIndemnizacion"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); chkSeparacionUnica.Checked = da["ValSeparacionunica"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); chkPrimaantiguedad.Checked = da["ValPrimadeantiguedad"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); - } + } } DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]); - TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}" ; + TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}"; ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE"); CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero(); - if (CvePeriodoIndemnizacion > 0) + if (CvePeriodoFiniquito > 0) { LnkCancelar.Visible = true; + LnkSimular.Visible = false; using (ClsNominas onom = new ClsNominas()) { loadsobrerecibo(onom); @@ -208,17 +209,17 @@ public partial class Nomina_Finiquito : ClsPaginas { decimal retorno = 0; - decimal mes =12; - retorno =(fechafin.Year -fechainicio.Year ) - (fechafin.Month > fechainicio.Month ? 0 : (fechafin.Month == fechainicio.Month && fechafin.Day > fechainicio.Day ? 0 : 1)); - retorno +=(((fechafin.Month == fechainicio.Month && fechafin.Day > fechainicio.Day ? fechainicio.Month : fechafin.Month + (fechafin.Month > fechainicio.Month ? 0 : 12)) - fechainicio.Month) / mes); - /* DateTime zeroTime = new DateTime(1, 1, 1); - TimeSpan span; - if (fechainicio < fechafin) - { - span = fechafin - fechainicio; - decimal years = (zeroTime + span).Year - 1; - retorno = Math.Round(years + (span.TotalDays.ToString().ToDecimal() / 365), 4); - }*/ + decimal mes = 12; + retorno = (fechafin.Year - fechainicio.Year) - (fechafin.Month > fechainicio.Month ? 0 : (fechafin.Month == fechainicio.Month && fechafin.Day > fechainicio.Day ? 0 : 1)); + retorno += (((fechafin.Month == fechainicio.Month && fechafin.Day > fechainicio.Day ? fechainicio.Month : fechafin.Month + (fechafin.Month > fechainicio.Month ? 0 : 12)) - fechainicio.Month) / mes); + /* DateTime zeroTime = new DateTime(1, 1, 1); + TimeSpan span; + if (fechainicio < fechafin) + { + span = fechafin - fechainicio; + decimal years = (zeroTime + span).Year - 1; + retorno = Math.Round(years + (span.TotalDays.ToString().ToDecimal() / 365), 4); + }*/ return retorno; } @@ -232,7 +233,7 @@ public partial class Nomina_Finiquito : ClsPaginas { using (ClsNominas onom = new ClsNominas()) { - if (onom.DeleteNom_NominasDetalles(SRCveConcepto, CvePersonal, CvePeriodoIndemnizacion)) + if (onom.DeleteNom_NominasDetalles(SRCveConcepto, CvePersonal, CvePeriodoFiniquito)) { Alert("el importe sera tomado del calculo y no del valor fijo"); } @@ -294,7 +295,7 @@ public partial class Nomina_Finiquito : ClsPaginas } protected void DdlmcConceptos_SelectedIndexChanged(object sender, EventArgs e) - { + { int CveConcepto = DdlmcConceptos.SelectedValue.ToEntero(); TxtmcImporte.Text = ""; TxtmcImporteGrabado.Text = ""; @@ -806,7 +807,7 @@ public partial class Nomina_Finiquito : ClsPaginas double percepcionesindem = 0; double deduccionesindem = 0; foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows) - { + { int CveConcepto = row["CveConcepto"].ToString().ToEntero(); string Concepto = row["Concepto"].ToString(); string Codigo = row["Codigo"].ToString(); @@ -902,15 +903,15 @@ public partial class Nomina_Finiquito : ClsPaginas SubTotales.CveConceptoP = 0; SubTotales.ConceptoP = "Total Percepciones"; SubTotales.EstatusP = -2; - SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal))- percepcionesindem; + SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal)) - percepcionesindem; ///Alert(SubTotales.ImporteP.ToString()); - + SubTotales.CveConceptoD = 0; SubTotales.ConceptoD = "Total Deducciones"; SubTotales.EstatusD = -2; - SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal))- deduccionesindem; - + SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal)) - deduccionesindem; + double neto = SubTotales.ImporteP - SubTotales.ImporteD; NConcepto Totales = new NConcepto(); Totales.CveConceptoD = 0; @@ -1026,14 +1027,14 @@ public partial class Nomina_Finiquito : ClsPaginas SubTotales.CveConceptoP = 0; SubTotales.ConceptoP = "Total Percepciones"; SubTotales.EstatusP = -2; - SubTotales.ImporteP = percepcionesindem; + SubTotales.ImporteP = percepcionesindem; ///Alert(SubTotales.ImporteP.ToString()); SubTotales.CveConceptoD = 0; SubTotales.ConceptoD = "Total Deducciones"; SubTotales.EstatusD = -2; - SubTotales.ImporteD = deduccionesindem; + SubTotales.ImporteD = deduccionesindem; double neto = SubTotales.ImporteP - SubTotales.ImporteD; NConcepto Totales = new NConcepto(); @@ -1062,15 +1063,15 @@ public partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) { - if (continuar =ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), -1, DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked,chkIndemnizacion.Checked ,chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) + if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), -1, DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) { DataRow da = ObjPersonal.DtResultados.Rows[0]; CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); - CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero(); + CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero(); } if (continuar) { - continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa,diasindemnizacion:Txtdiasindemnizacion.Text.ToEntero()); + continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero()); } if (continuar) { @@ -1081,7 +1082,7 @@ public partial class Nomina_Finiquito : ClsPaginas ObjPersonal.RollBack(); } if (continuar) - { loadsobrerecibo(onom); } + { loadsobrerecibo(onom);LnkCancelar.Visible = true; LnkSimular.Visible = false; } } } @@ -1291,7 +1292,9 @@ public partial class Nomina_Finiquito : ClsPaginas { if (onom.RemoveFiniquito(CvePersonal, UsuarioActual.CveEmpresa, CvePersonalAltas)) { + loadsobrerecibo(onom); Alert("se ha eliminado el proceso de finiquito"); + UPDatos.Update(); } } } @@ -1310,7 +1313,7 @@ public partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) { - if (continuar =ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), -1, DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) + if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), -1, DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) { DataRow da = ObjPersonal.DtResultados.Rows[0]; CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); @@ -1335,7 +1338,7 @@ public partial class Nomina_Finiquito : ClsPaginas } UPDatos.Update(); } - + protected void BtnAceptarMC_Click(object sender, EventArgs e) { @@ -1356,7 +1359,7 @@ public partial class Nomina_Finiquito : ClsPaginas objNomina.IniciaTransacSQL(); if (continuar) { - if (objNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodoIndemnizacion, -1, UsuarioActual.CveEmpresa)) + if (objNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodoFiniquito, -1, UsuarioActual.CveEmpresa)) { if (objNomina.DtResultados.Rows.Count > 0) { @@ -1364,7 +1367,7 @@ public partial class Nomina_Finiquito : ClsPaginas } else { - if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoIndemnizacion, Total, 0, 0, Total, CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina", + if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoFiniquito, Total, 0, 0, Total, CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina", "", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, false)) { CveNomina = objNomina.CveNomina; @@ -1389,7 +1392,7 @@ public partial class Nomina_Finiquito : ClsPaginas if (continuar) { - if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoIndemnizacion, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true)) + if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoFiniquito, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true)) { continuar = false; } @@ -1424,6 +1427,7 @@ public partial class Nomina_Finiquito : ClsPaginas Alert("Debe seleccionar un concepto.", TipoMensaje.MsgAdvertencia); } } + UPDatos.Update(); } diff --git a/Nomina/NomTimbrados.aspx b/Nomina/NomTimbrados.aspx new file mode 100644 index 000000000..e2178613e --- /dev/null +++ b/Nomina/NomTimbrados.aspx @@ -0,0 +1,207 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="NomTimbrados.aspx.cs" Inherits="Nomina_NomTimbrados" %> + + + + + + + + Reporte SAT + + + + + + + + + + + +
+
+
+
+ + + + + +
+
+ + + + + +
+
+ +
+
+ + + + + +
+
+
+ +
+
+
+
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Nomina/NomTimbrados.aspx.cs b/Nomina/NomTimbrados.aspx.cs new file mode 100644 index 000000000..b43e87d9f --- /dev/null +++ b/Nomina/NomTimbrados.aspx.cs @@ -0,0 +1,667 @@ +using System; +using System.Collections.Generic; +using System.IO; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using System.Data; +using Extensiones; +using System.Xml; + +public partial class Nomina_NomTimbrados : ClsPaginas +{ + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + TxtRpdFechaInicio.Text = string.Format(" {0:dd/MM/yyyy}", DateTime.Now.AddMonths(-1).FirstDayOfMonth()); + TxtRpdFechaFin.Text = string.Format(" {0:dd/MM/yyyy}", DateTime.Now.AddMonths(-1).LastDayOfMonth()); + // readTimbres(); + } + } + public DataTable initxmldatatable() + { + DataTable dt = new DataTable(); + dt.Columns.Add("NOMBREReceptor", typeof(String)); + dt.Columns.Add("nrnumseguridadsocial", typeof(String)); + dt.Columns.Add("RFCReceptor", typeof(String)); + dt.Columns.Add("nrcurp", typeof(String)); + dt.Columns.Add("nrnumempleado", typeof(String)); + dt.Columns.Add("SERIE", typeof(String)); + dt.Columns.Add("FOLIO", typeof(String)); + dt.Columns.Add("TIPODECOMPROBANTE", typeof(String)); + dt.Columns.Add("TOTAL", typeof(decimal)); + dt.Columns.Add("SUBTOTAL", typeof(decimal)); + dt.Columns.Add("DESCUENTO", typeof(decimal)); + dt.Columns.Add("RFCEmisor", typeof(String)); + /*I nomina12:nomina*/ + dt.Columns.Add("tiponomina", typeof(String)); + dt.Columns.Add("fechapago", typeof(DateTime)); + dt.Columns.Add("fechainicialpago", typeof(DateTime)); + dt.Columns.Add("fechafinalpago", typeof(DateTime)); + dt.Columns.Add("numdiaspagados", typeof(Int32)); + dt.Columns.Add("totalpercepciones", typeof(decimal)); + dt.Columns.Add("totaldeducciones", typeof(decimal)); + dt.Columns.Add("totalotrospagos", typeof(decimal)); + /*E nomina12:nomina*/ + + /*I nomina12:emisor*/ + dt.Columns.Add("registropatronal", typeof(String)); + dt.Columns.Add("rfcpatronorigen", typeof(String)); + /*E nomina12:emisor*/ + + /*I nomina12:receptor*/ + dt.Columns.Add("nrfechainiciorellaboral", typeof(DateTime)); + dt.Columns.Add("nrantiguedad", typeof(String));//antigüedad + dt.Columns.Add("nrtipocontrato", typeof(String)); + dt.Columns.Add("nrsindicalizado", typeof(String)); + dt.Columns.Add("nrtipojornada", typeof(String)); + dt.Columns.Add("nrtiporegimen", typeof(String)); + dt.Columns.Add("nrdepartamento", typeof(String)); + dt.Columns.Add("nrpuesto", typeof(String)); + dt.Columns.Add("nrriesgopuesto", typeof(String)); + dt.Columns.Add("nrperiodicidadpago", typeof(String)); + dt.Columns.Add("nrbanco", typeof(String)); + dt.Columns.Add("nrcuentabancaria", typeof(String)); + dt.Columns.Add("nrsalariobasecotapor", typeof(decimal)); + dt.Columns.Add("nrsalariodiariointegrado", typeof(decimal)); + dt.Columns.Add("nrclaveentfed", typeof(String)); + /*E nomina12:receptor*/ + + /*I nomina12:percepciones*/ + dt.Columns.Add("totalsueldos", typeof(decimal)); + dt.Columns.Add("totalgravado", typeof(decimal)); + dt.Columns.Add("totalexento", typeof(decimal)); + /*E nomina12:percepciones*/ + + /*I nomina12:deducciones*/ + dt.Columns.Add("totalotrasdeducciones", typeof(decimal)); + dt.Columns.Add("totalimpuestosretenidos", typeof(decimal)); + /*E nomina12:deducciones*/ + + + dt.Columns.Add("uuid", typeof(String)); + dt.Columns.Add("fechatimbrado", typeof(DateTime)); + /*I nomina12:otrospagos*/ + //dt.Columns.Add("", typeof(decimal)); + /*E nomina12:otrospagos*/ + + return dt; + } + public string readTimbres() + { + string ruta = string.Format("{0}XML\\Nomina\\", UsuarioActual.Empresa.Ruta); + + string keyComprobante = "cfdi:Comprobante"; + string keyCfdiRelacionados = "cfdi:CfdiRelacionados".ToUpper(); + string keyEmisor = "cfdi:Emisor".ToUpper(); + string keyReceptor = "cfdi:Receptor".ToUpper(); + string keyConceptos = "cfdi:Conceptos".ToUpper(); + string keyImpuestos = "cfdi:Impuestos".ToUpper(); + string keyComplemento = "cfdi:Complemento".ToUpper(); + string[] PrimerNivel = new string[] { keyCfdiRelacionados, keyEmisor, keyReceptor, keyConceptos, keyImpuestos, keyComplemento }; + XmlReaderSettings settings = new XmlReaderSettings(); + settings.ConformanceLevel = ConformanceLevel.Fragment; + settings.IgnoreWhitespace = true; + settings.IgnoreComments = true; + DataTable dt = initxmldatatable(); + foreach (string txtName in System.IO.Directory.GetFiles(ruta, "*.xml")) + { + DataRow drow = dt.NewRow(); + bool canread = true; + using (XmlReader xtr = XmlReader.Create(txtName, settings)) + { + while (canread = xtr.Read()) + { + + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == keyComprobante.ToUpper()) + { + int Nivel = xtr.Depth; + bool cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "SERIE": drow["SERIE"] = xtr.Value; break; + case "FOLIO": drow["FOLIO"] = xtr.Value; break; + case "SUBTOTAL": drow["SUBTOTAL"] = xtr.Value; break; + case "TOTAL": drow["TOTAL"] = xtr.Value; break; + case "DESCUENTO": drow["DESCUENTO"] = xtr.Value; break; + case "TIPODECOMPROBANTE": drow["TIPODECOMPROBANTE"] = xtr.Value; break; + } + switch (xtr.Name.ToUpper()) + { + //case "XMLNS:CFDI": xmlCFDI.comprobante.xmlns_cfdi = xtr.Value; break; + //case "XMLNS:XSI": xmlCFDI.comprobante.xmlns_xsi = xtr.Value; break; + //case "XSI:SCHEMALOCATION": xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value; break; + //case "VERSION": xmlCFDI.comprobante.Version = xtr.Value; break; + //case "SERIE": xmlCFDI.comprobante.Serie = xtr.Value; break; + //case "FOLIO": xmlCFDI.comprobante.Folio = xtr.Value; break; + //case "FECHA": xmlCFDI.comprobante.Fecha = xtr.Value; break; + //case "MONEDA": xmlCFDI.comprobante.Moneda = xtr.Value; break; + //case "SUBTOTAL": decimal SubTotal = 0; decimal.TryParse(xtr.Value, out SubTotal); xmlCFDI.comprobante.SubTotal = SubTotal; break; + //case "TOTAL": decimal Total = 0; decimal.TryParse(xtr.Value, out Total); xmlCFDI.comprobante.Total = Total; break; + //case "DESCUENTO": decimal Descuento = 0; decimal.TryParse(xtr.Value, out Descuento); xmlCFDI.comprobante.Descuento = Descuento; break; + //case "TIPOCAMBIO": decimal TipoCambio = 0; decimal.TryParse(xtr.Value, out TipoCambio); xmlCFDI.comprobante.TipoCambio = TipoCambio; break; + //case "TIPODECOMPROBANTE": xmlCFDI.comprobante.TipoDeComprobante = xtr.Value; break; + //case "FORMAPAGO": xmlCFDI.comprobante.FormaPago = xtr.Value; break; + //case "FORMADEPAGO": xmlCFDI.comprobante.FormaPago = xtr.Value; break; + //case "METODOPAGO": xmlCFDI.comprobante.MetodoPago = xtr.Value; break; + //case "METODODEPAGO": xmlCFDI.comprobante.MetodoPago = xtr.Value; break; + //case "CONDICIONESDEPAGO": xmlCFDI.comprobante.CondicionesDePago = xtr.Value; break; + //case "LUGAREXPEDICION": xmlCFDI.comprobante.LugarExpedicion = xtr.Value; break; + //case "CONFIRMACION": xmlCFDI.comprobante.Confirmacion = xtr.Value; break; + //case "NOCERTIFICADO": xmlCFDI.comprobante.NoCertificado = xtr.Value; break; + //case "SELLO": xmlCFDI.comprobante.Sello = xtr.Value; break; + //case "CERTIFICADO": xmlCFDI.comprobante.Certificado = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + cont = xtr.MoveToFirstAttribute(); + + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > Nivel) + { + if (PrimerNivel.Contains(xtr.Name.ToUpper())) + { + if (xtr.NodeType == XmlNodeType.Element && xtr.Name == keyCfdiRelacionados) + { + int cDepth = xtr.Depth; + + string TipoRelacion = null; + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "TIPORELACION": TipoRelacion = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepth) + { + //if (xtr.Name == "cfdi:CfdiRelacionado") + //{ + // CFDIRelacionado cfdir = new CFDIRelacionado(); + // cfdir.TipoRelacion = TipoRelacion; + // cfdir.UUID = xtr.GetAttribute("UUID"); + // xmlCFDI.cFDIRelacionados.Add(cfdir); + //} + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == keyEmisor.ToUpper()) + { + + + int curentNivel = xtr.Depth; + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + //case "REGIMENFISCAL": xmlCFDI.emisor.RegimenFiscal = xtr.Value; break; + //case "NOMBRE": xmlCFDI.emisor.Nombre = xtr.Value; break; + case "RFC": drow["RFCEmisor"] = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + while ((canread = xtr.Read()) && !(xtr.NodeType == XmlNodeType.Element && curentNivel >= xtr.Depth)) { }//continua hasta que no tenga nodos y (el nodo sea tipo elemnto y ete en el mismo nivel) + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == keyReceptor.ToUpper()) + { + int curentNivel = xtr.Depth; + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "RFC": drow["RFCReceptor"] = xtr.Value; break; + case "NOMBRE": drow["NOMBREReceptor"] = xtr.Value; break; + //case "RESIDENCIAFISCAL": xmlCFDI.receptor.ResidenciaFiscal = xtr.Value; break; + //case "NUMREGIDTRIB": xmlCFDI.receptor.NumRegIdTrib = xtr.Value; break; + //case "USOCFDI": xmlCFDI.receptor.UsoCFDI = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + + while ((canread = xtr.Read()) && !(xtr.NodeType == XmlNodeType.Element && curentNivel >= xtr.Depth)) { }//continua hasta que no tenga nodos y (el nodo sea tipo elemnto y ete en el mismo nivel) + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == keyConceptos.ToUpper()) + { + int cDepth = xtr.Depth; + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepth) + { + if (xtr.Name == "cfdi:Concepto") + { + int cDepthb = xtr.Depth; + //CFDIConcepto concepto = new CFDIConcepto(); + + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + //case "CLAVEPRODSERV": concepto.ClaveProdServ = xtr.Value; break; + //case "NOIDENTIFICACION": concepto.NoIdentificacion = xtr.Value; break; + //case "CANTIDAD": concepto.Cantidad = xtr.Value; break; + //case "CLAVEUNIDAD": concepto.ClaveUnidad = xtr.Value; break; + //case "UNIDAD": concepto.Unidad = xtr.Value; break; + //case "VALORUNITARIO": decimal ValorUnitario = 0; decimal.TryParse(xtr.Value, out ValorUnitario); concepto.ValorUnitario = ValorUnitario; ; break; + //case "IMPORTE": decimal Importe = 0; decimal.TryParse(xtr.Value, out Importe); concepto.Importe = Importe; ; break; + //case "DESCUENTO": decimal DDescuento = 0; decimal.TryParse(xtr.Value, out DDescuento); concepto.Descuento = DDescuento; ; break; + //case "DESCRIPCION": concepto.Descripcion = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepthb) + { + if (xtr.NodeType == XmlNodeType.Element && xtr.Name == "cfdi:Impuestos") + { + int cDepthc = xtr.Depth; + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepthc) + { + if (xtr.Name == "cfdi:Traslado" || xtr.Name == "cfdi:Retencion") + { + //CFDIConceptoImpuesto impuesto = new CFDIConceptoImpuesto(); + //impuesto.Impuesto = xtr.GetAttribute("Impuesto"); + //impuesto.Tipo = xtr.LocalName; + //decimal Base = 0; + //decimal.TryParse(xtr.GetAttribute("Base"), out Base); + //impuesto.Base = Base; + //impuesto.TipoFactor = xtr.GetAttribute("TipoFactor"); + //decimal tasaOCuota = 0; + //decimal.TryParse(xtr.GetAttribute("TasaOCuota"), out tasaOCuota); + //impuesto.TasaOCuota = impuesto.TipoFactor == "Tasa" ? (tasaOCuota * 100).ToString("N4") : xtr.GetAttribute("TasaOCuota"); + //decimal ImImporte = 0; + //decimal.TryParse(xtr.GetAttribute("Importe"), out ImImporte); + //impuesto.Importe = ImImporte; + + //concepto.Impuestos.Add(impuesto); + } + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + + } + } + else + { + bool rednew = true; + if (xtr.NodeType == XmlNodeType.Element && xtr.Name == "cfdi:InformacionAduanera") + { + //concepto.NumeroPedimento = xtr.GetAttribute("NumeroPedimento"); + rednew = false; while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name == "cfdi:CuentaPredial") + { + //concepto.CuentaPredial = xtr.GetAttribute("CuentaPredial"); + rednew = false; while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + if (rednew) { while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } } + + } + } + + //xmlCFDI.conceptos.Add(concepto); + } + } + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == keyImpuestos.ToUpper()) + { + int cDepth = xtr.Depth; + + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepth) + { + //CFDIImpuesto impuest = new CFDIImpuesto(); + //if (xtr.Name == "cfdi:Traslado" || xtr.Name == "cfdi:Retencion" && xmlCFDI.comprobante.Version != null) + //{ + // impuest.Tipo = xtr.LocalName == "Traslado" ? "Traslados" : (xtr.LocalName == "Retencion" ? "Retenciones" : ""); + // impuest.Impuesto = xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("Impuesto") : xtr.GetAttribute("impuesto"); + // impuest.TipoFactor = xtr.GetAttribute("TipoFactor"); + // impuest.TasaOCuota = xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("TasaOCuota") : xtr.GetAttribute("tasa"); + // decimal ImImporte = 0; + // decimal.TryParse((xmlCFDI.comprobante.Version == "3.3" ? xtr.GetAttribute("Importe") : xtr.GetAttribute("importe")), out ImImporte); + // impuest.Importe = ImImporte; + // xmlCFDI.Impuestos.Add(impuest); + //} + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + + } + } + if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == keyComplemento.ToUpper()) + { + int cDepth = xtr.Depth; + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > cDepth) + { + //string version = xmlCFDI.comprobante.Version != null ? xmlCFDI.comprobante.Version : ""; + if (xtr.NodeType == XmlNodeType.Element && xtr.LocalName.ToUpper() == "TimbreFiscalDigital".ToUpper()) + { + + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "UUID": drow["uuid"] = xtr.Value; break; + case "FECHATIMBRADO": drow["fechatimbrado"] = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + //xmlCFDI.complemento.xmlns_tfd = xtr.GetAttribute("xmlns:tfd"); + //xmlCFDI.complemento.xsi_schemaLocation = xtr.GetAttribute("xsi:schemaLocation"); + //xmlCFDI.complemento.Version = xtr.GetAttribute("Version"); + //xmlCFDI.complemento.UUID = xtr.GetAttribute("UUID"); + //xmlCFDI.complemento.FechaTimbrado = xtr.GetAttribute("FechaTimbrado"); + //xmlCFDI.complemento.RfcProvCertif = xtr.GetAttribute("RfcProvCertif"); + //xmlCFDI.complemento.SelloCFD = version == "3.3" ? xtr.GetAttribute("SelloCFD") : xtr.GetAttribute("selloCFD"); + //xmlCFDI.complemento.NoCertificadoSAT = version == "3.3" ? xtr.GetAttribute("NoCertificadoSAT") : xtr.GetAttribute("noCertificadoSAT"); + //xmlCFDI.complemento.SelloSAT = version == "3.3" ? xtr.GetAttribute("SelloSAT") : xtr.GetAttribute("selloSAT"); + + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.LocalName == "Pagos") + { + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + //xmlCFDI.complemento.Pagos = new CFDIPago(); + int depthpagos = xtr.Depth; + bool conts = xtr.MoveToFirstAttribute(); + while (conts) + { + + decimal Base = 0; + switch (xtr.Name.ToUpper()) + { + //case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break; + //case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break; + //case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value; break; + //case "MONEDAP": xmlCFDI.complemento.Pagos.MonedaP = xtr.Value; break; + //case "MONTO": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.Monto = Base; break; + //case "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break; + //case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break; + //case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break; + //case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break; + //case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break; + //case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break; + //case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break; + } + conts = xtr.MoveToNextAttribute(); + } + conts = xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + while (canread && xtr.Depth > depthpagos) + { + //CFDIPagoDoctoRelacionado objpago = new CFDIPagoDoctoRelacionado(); + conts = xtr.MoveToFirstAttribute(); + while (conts) + { + + decimal Basep = 0; + switch (xtr.Name.ToUpper()) + { + //case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break; + //case "SERIE": objpago.Serie = xtr.Value; break; + //case "FOLIO": objpago.Folio = xtr.Value; break; + //case "MONEDADR": objpago.MonedaDR = xtr.Value; break; + //case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break; + //case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; break; + //case "IMPSALDOANT": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoAnt = Basep; break; + //case "IMPPAGADO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpPagado = Basep; break; + //case "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break; + + } + conts = xtr.MoveToNextAttribute(); + } + conts = xtr.MoveToFirstAttribute(); + //xmlCFDI.complemento.Pagos.doctosRelacionados.Add(objpago); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == "nomina12:Nomina".ToUpper()) + { + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "TIPONOMINA": drow["tiponomina"] = xtr.Value; break; + case "FECHAPAGO": drow["fechapago"] = xtr.Value; break; + case "FECHAINICIALPAGO": drow["fechainicialpago"] = xtr.Value; break; + case "FECHAFINALPAGO": drow["fechafinalpago"] = xtr.Value; break; + case "NUMDIASPAGADOS": drow["numdiaspagados"] = xtr.Value; break; + case "TOTALPERCEPCIONES": drow["totalpercepciones"] = xtr.Value; break; + case "TOTALDEDUCCIONES": drow["totaldeducciones"] = xtr.Value; break; + case "TOTALOTROSPAGOS": drow["totalotrospagos"] = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == "nomina12:emisor".ToUpper()) + { + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "REGISTROPATRONAL": drow["registropatronal"] = xtr.Value; break; + case "RFCPATRONORIGEN": drow["rfcpatronorigen"] = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.Name.ToUpper() == "nomina12:Receptor".ToUpper()) + { + + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "CURP": drow["nrcurp"] = xtr.Value; break; + case "NUMSEGURIDADSOCIAL": drow["nrnumseguridadsocial"] = xtr.Value; break; + case "FECHAINICIORELLABORAL": drow["nrfechainiciorellaboral"] = xtr.Value; break; + case "ANTIGÜEDAD": drow["nrantiguedad"] = xtr.Value; break; + case "TIPOCONTRATO": drow["nrtipocontrato"] = xtr.Value; break; + case "SINDICALIZADO": drow["nrsindicalizado"] = xtr.Value; break; + case "TIPOJORNADA": drow["nrtipojornada"] = xtr.Value; break; + case "TIPOREGIMEN": drow["nrtiporegimen"] = xtr.Value; break; + case "NUMEMPLEADO": drow["nrnumempleado"] = xtr.Value; break; + case "DEPARTAMENTO": drow["nrdepartamento"] = xtr.Value; break; + case "PUESTO": drow["nrpuesto"] = xtr.Value; break; + case "RIESGOPUESTO": drow["nrriesgopuesto"] = xtr.Value; break; + case "PERIODICIDADPAGO": drow["nrperiodicidadpago"] = xtr.Value; break; + case "BANCO": drow["nrbanco"] = xtr.Value; break; + case "CUENTABANCARIA": drow["nrcuentabancaria"] = xtr.Value; break; + case "SALARIOBASECOTAPOR": drow["nrsalariobasecotapor"] = xtr.Value; break; + case "SALARIODIARIOINTEGRADO": drow["nrsalariodiariointegrado"] = xtr.Value; break; + case "CLAVEENTFED": drow["nrclaveentfed"] = xtr.Value; break; + case "": drow[""] = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.Name == "nomina12:Percepciones") + { + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "TOTALSUELDOS": drow["totalsueldos"] = xtr.Value; break; + case "TOTALGRAVADO": drow["totalgravado"] = xtr.Value; break; + case "TOTALEXENTO": drow["totalexento"] = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.Name == "nomina12:Percepcion") + { + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.Name == "nomina12:Deducciones") + { + cont = xtr.MoveToFirstAttribute(); + while (cont) + { + switch (xtr.Name.ToUpper()) + { + case "TOTALOTRASDEDUCCIONES": drow["totalotrasdeducciones"] = xtr.Value; break; + case "TOTALIMPUESTOSRETENIDOS": drow["totalimpuestosretenidos"] = xtr.Value; break; + } + cont = xtr.MoveToNextAttribute(); + } + xtr.MoveToFirstAttribute(); + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + + } + else if (xtr.NodeType == XmlNodeType.Element && xtr.Name == "nomina12:Deduccion") + { + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + else + { + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + + } + } + } + } + else + { + //si no entro en ninguna de los anteriores no se debe ciclar + while ((canread = xtr.Read()) && xtr.NodeType != XmlNodeType.Element) { } + } + } + } + } + } + dt.Rows.Add(drow); + //using (StreamReader sr = new StreamReader(txtName)) + //{ + // sb.AppendLine(txtName.ToString()); + // sb.AppendLine("= = = = = ="); + // sb.Append(sr.ReadToEnd()); + // sb.AppendLine(); + // sb.AppendLine(); + //} + } + dt.TableName = "satxml"; + //GVNominasXmlsat.DataSource = dt; + //GVNominasXmlsat.DataBind(); + + + System.Xml.Linq.XDocument doc = new System.Xml.Linq.XDocument(); + System.Xml.Linq.XElement element = new System.Xml.Linq.XElement("XmlNominas"); + foreach (DataRow item in dt.Rows) + { + + System.Xml.Linq.XElement elementrow = new System.Xml.Linq.XElement("nom"); + foreach (DataColumn col in dt.Columns) + { + System.Xml.Linq.XElement elementcol = new System.Xml.Linq.XElement(col.ColumnName); + if (col.DataType ==typeof(DateTime )) + { + if (item[col.ColumnName] == null) { } else + { + elementcol.Value =string.Format("{0:yyyy/MM/dd HH}:{0:mm}:{0:ss}", item[col.ColumnName]); + + } + } + else + { + elementcol.Value = item[col.ColumnName].ToString(); + + } + //elementrow.SetAttributeValue(new System.Xml.Linq.XName() {LocalName(col.ColumnName) }, item[col.ColumnName]); + elementrow.Add(elementcol); + } + element.Add(elementrow); + } + doc.Add(element); + + + // new System.Xml.Linq.XDocument(new System.Xml.Linq.XElement("XmlNominas", dt.Rows.Select(x => new System.Xml.Linq.XElement("XmlNomina", x)))); + + //System.IO.StringWriter writer = new System.IO.StringWriter(); + //dt.WriteXml(writer, XmlWriteMode.WriteSchema, false); + return doc.ToString(); + } + + public void loadinfo() + { + string xml =readTimbres(); + using (ClsNominas onom = new ClsNominas()) + { + if (onom.ComparativoSATNominasGet(UsuarioActual.CveEmpresa, xml, TxtRpdFechaInicio.Text.ToDateTime(), TxtRpdFechaFin.Text.ToDateTime(), DdlTipoPeriodo.SelectedValue.ToEntero()) ) + { + GVNominasXmlsat.DataSource = onom.DtResultados ; + GVNominasXmlsat.DataBind(); + } + } + Updatos.Update(); + } + + + //public bool AddUnoaUnoCuestionario(string Cuestionario, string Comentario, int CveUsuario, List ListPreguntas, int CveEmpresa) + //{ + // bool retorno = false; + + // System.Xml.Linq.XDocument xmlPreguntas = null; + // if (ListPreguntas != null && ListPreguntas.Count > 0) + // xmlPreguntas = new System.Xml.Linq.XDocument(new System.Xml.Linq.XElement("Preguntas", ListPreguntas.Select(x => new System.Xml.Linq.XElement("CveUnoaUnoPregunta", x)))); + // DataAdapter("PA_OI_UnoaUnoCuestionarioAdd", CommandType.StoredProcedure); + // { + // var withBlock = SqlAdapter.SelectCommand.Parameters; + // withBlock.Add("@Cuestionario", SqlDbType.VarChar).Value = (Cuestionario); + // withBlock.Add("@Comentario", SqlDbType.VarChar).Value = (Comentario); + // withBlock.Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario); + // withBlock.Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa); + // withBlock.Add("@xmlPreguntas", SqlDbType.Xml).Value = xmlPreguntas == null ? DBNull.Value : (object)xmlPreguntas.ToString(); + // } + // try + // { + // SqlAdapter.Fill(Data); + // retorno = true; + // } + // catch (Exception ex) + // { + // OnError("Ocurrió un error al agregar el cuestionario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()); + // } + // return retorno; + //} + + + + protected void LnkConsultar_Click(object sender, EventArgs e) + { + loadinfo(); + } + + protected void GVNominasXmlsat_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + if (e.Row.DataKey("Tipo") == "1") + { + e.Row.CssClass = "SubTotales"; + } + } + } +} \ No newline at end of file diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 369061bf9..f0db650f5 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -9,6 +9,10 @@ content: "\f1c1"; } + label.compoonenlabel { + padding-top: 5px; + } + .lblforchk { font-size: 13px; color: #888888; @@ -252,19 +256,19 @@
- +
- +
- +
@@ -272,16 +276,6 @@
- -
- - - -
-
- - -
@@ -310,19 +304,25 @@
- +
- +
- Fecha Pago: + +
+ + + +
+ Fecha Pago:
@@ -341,7 +341,7 @@
- +
@@ -349,6 +349,10 @@
+
+ + +
@@ -592,33 +596,65 @@
- +
-
- - - - +
+
+
+ + + + +
+
+
+
+ + +
+
-
- - -
-
- +
+
+
+ -
-
- +
+
+
+
+ +
+
+
+
+ + + + +
+
-
- - - - +
+ +
+ + + + +
+ + +
+ + + + +
+
@@ -2330,7 +2366,8 @@ Neto a pagar - + + diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index c689f3b71..4a3e7887a 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -195,7 +195,13 @@ public partial class Nomina_Nomina2 : ClsPaginas LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100); TxtPeriodo.Text = $"{DateTime.Now:yyyyMM}"; CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto); + CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto); divddlproyeto.Visible = DdlProyecto.Visible; + PnlProyecto.Visible = DdlProyecto.Visible; + if (PnlProyecto.Visible) + { + PnlSubProyecto.CssClass = "col-md-6"; + } cargaEjercicios(); CargaTiposPeriodo(); cargaPeriodos(); @@ -4900,7 +4906,7 @@ public partial class Nomina_Nomina2 : ClsPaginas using (ClsRH objpersonal = new ClsRH()) { - if (objpersonal.AddAsistencia(CvePersonal, -1, -1, fecha, DdlTipoAsistencias.SelectedValue.ToEntero(), TxtPorPago.Text.Trim().ToDouble(), TxtHorasDobles.Text.Trim().ToDouble(), + if (objpersonal.AddAsistencia(CvePersonal, -1, DdlAsisSubProyecto.SelectedValue.ToEntero(), fecha, DdlTipoAsistencias.SelectedValue.ToEntero(), TxtPorPago.Text.Trim().ToDouble(), TxtHorasDobles.Text.Trim().ToDouble(), TxtHorasTriples.Text.Trim().ToDouble(), DdlMotivoHoraExtra.SelectedValue.ToEntero(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { @@ -4915,6 +4921,7 @@ public partial class Nomina_Nomina2 : ClsPaginas DateTime fecha = TxtasisFecha.Text.ToDate(); DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal={0}", CvePersonal)); TxtPersonal.Text = drow["nombre"].ToString(); + DdlAsisSubProyecto.SelectedValueExist("-1"); if (DdlTipoAsistencias.Items.Count == 1) { DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); @@ -4935,6 +4942,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { DataRow dr = objpersonal.DtResultados.Rows[0]; DdlTipoAsistencias.SelectedValueExist(dr["CveAsistenciasInasistencias"].ToString()); + DdlAsisSubProyecto.SelectedValueExist(dr["CveSubProyecto"].ToString()); TxtPorPago.Text = dr["PorcentajePago"].ToString(); TxtHorasDobles.Text = dr["HorasDobles"].ToString(); TxtHorasTriples.Text = dr["HorasTriples"].ToString(); diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index b6e71a423..db8a6a6e8 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -845,27 +845,27 @@ Partial Class OC 'Nuevo Proceso que permite modificar detalles 'If Not UsuarioActual.TienePermisoProceso(131) Then If GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows.Count > 0 Then - Dim Dr As DataRow - Dr = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus))(0) - If UsuarioActual.TienePermisoProceso(203) And Dr("TipoTermino").ToString.ToEntero = 3 And Dr("Tipo").ToString = "OC" Then - CargaClasificaciones() - DesHabilitar() - GvD.Columns(9).Visible = True - LbAgregar.Enabled = True - txtPrecioUnitario.Enabled = True - DdlProyecto.Enabled = True - DdlSubProyecto.Enabled = True - TxtObsPS.Enabled = True - CboUnidadMedida.Enabled = True - DdlClasificacion.Enabled = True - DdlP2.Enabled = True - TxtCant.Enabled = True - BtnGuardar.Enabled = True - BtnCancelar.Enabled = True - ElseIf Dr("TipoTermino").ToString.ToEntero = 3 And Dr("Tipo").ToString = "OC" Then - DesHabilitar() - End If + Dim Dr As DataRow + Dr = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus))(0) + If (UsuarioActual.TienePermisoProceso(203)) AndAlso Dr("TipoTermino").ToString.ToEntero = 3 AndAlso Dr("Tipo").ToString = "OC" Then + CargaClasificaciones() + If Not UsuarioActual.TienePermisoProceso(131) Then DesHabilitar() + GvD.Columns(9).Visible = True + LbAgregar.Enabled = True + txtPrecioUnitario.Enabled = True + DdlProyecto.Enabled = True + DdlSubProyecto.Enabled = True + TxtObsPS.Enabled = True + CboUnidadMedida.Enabled = True + DdlClasificacion.Enabled = True + DdlP2.Enabled = True + TxtCant.Enabled = True + BtnGuardar.Enabled = True + BtnCancelar.Enabled = True + ElseIf Dr("TipoTermino").ToString.ToEntero = 3 And Dr("Tipo").ToString = "OC" AndAlso Not UsuarioActual.TienePermisoProceso(131) Then + DesHabilitar() End If + End If 'End If 'NO PERMITE REGISTRAR PS @@ -3594,9 +3594,6 @@ Partial Class OC If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then - - - If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then Dim Str As String = e.Row.DBCampo("SubProyecto") @@ -3609,7 +3606,6 @@ Partial Class OC 'comente esta linea, RMF: 2015.04.20 'If DtEstatusUsuarios.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto"))).Rows.Count = 0 Then e.Row.FCImageButton("ImgEdit").Visible = False : e.Row.FCImageButton("ImgDelete").Visible = False - If TipoOC = "OC" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraPadre")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraPadre")) Then GvD.Columns(10).Visible = True lblTipoPadreHijo.Visible = True @@ -3623,10 +3619,6 @@ Partial Class OC 'CveAFVinculado e.Row.FCLiteral("LitMaq").Text = String.Format("{1}", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("CodigoAF")) - - - - 'CveCompraDetalle Vinculada Dim ObjOC As New ClsOC If ObjOC.GetOCVinculadasPendientes(e.Row.DBCampo("CveOrdenCompraDetalle").ToEntero) Then @@ -3680,8 +3672,6 @@ Partial Class OC If e.Row.DBCampo("CveClasificacionOG").ToString.ToEntero > 0 Then e.Row.FCDropDownList("DdlAC5").SelectedValue = e.Row.DBCampo("CveClasificacionOG") End If - - 'CLASIFICACION If isWithFamily() Then e.Row.FCLabel("LblClasificacion").Text = e.Row.DBCampo("SubFamilia") @@ -3693,7 +3683,7 @@ Partial Class OC Drr = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus))(0) If Drr IsNot Nothing AndAlso UsuarioActual.TienePermisoProceso(203) AndAlso Drr("TipoTermino").ToString.ToEntero = 3 AndAlso Drr("Tipo").ToString = "OC" Then If e.Row.DataKey("CveCompra").ToEntero > 0 Then - If Not UsuarioActual.CveUsuario = 100 Then '[IPP] PARA PODER EDITAR + If e.Row.DBCampo("CantidadNoEditable").ToDouble >= e.Row.DBCampo("Cantidad").ToDouble Then '[IPP] PARA PODER EDITAR e.Row.FCLinkButton("imgE").Enabled = False e.Row.FCLinkButton("imgE").ToolTip = "El concepto no se puede editar porque ya esta asignado a una compra" e.Row.FCLinkButton("imgD").Enabled = False @@ -3709,7 +3699,6 @@ Partial Class OC e.Row.FCLinkButton("imgD").Attributes.Remove("Data-toggle") e.Row.FCLinkButton("imgD").Attributes.Add("Data-toggle", "tooltip") End If - End If @@ -3729,6 +3718,14 @@ Partial Class OC FiltroClasificacion = String.Format("CveClasificacion = {0}", e.Row.DBCampo("CveClasificacion")) End If + If CveOrdenCompra > 0 AndAlso (e.Row.DBCampo("CantidadVinculadaCompra").ToDouble > 0 OrElse e.Row.DBCampo("CantidadSurtidaAlmacen").ToDouble > 0 OrElse e.Row.DBCampo("CantidadVinculada").ToDouble > 0) Then + e.Row.FCDropDownList("DdlPS").Enabled = False + e.Row.FCDropDownList("DdlClasificacion").Enabled = False + e.Row.FCDropDownList("CboUnidadMedidaEdit").Enabled = False + e.Row.FCTextBox("TxtImporteEdit").Enabled = False + e.Row.FCTextBox("TxtDescuentoEdit").Enabled = False + End If + 'DDL PS If e.Row.DBCampo("CveClasificacion").ToString() <> "" Then e.Row.FCDropDownList("DdlPS").DataSource = GlobalDTPS(CveEmpresaActual).FiltraParametros(FiltroClasificacion, "PS") @@ -3781,8 +3778,6 @@ Partial Class OC End If End If - - If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then 'empresa agricola e.Row.FCDropDownList("DdlCultivosCuadroEdit").Visible = True e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto").ToEntero}") diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index a30525de5..6fee14312 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -6440,6 +6440,13 @@ Partial Class RH_Personal RegistraScript("$('#Dmodamodificarsalario').modal()") UpModSalario.Update() End Sub + + Protected Sub UpdatePersonalAlta_Click(sender As Object, e As EventArgs) + + End Sub + Protected Sub DeletePersonalAlta_Click(sender As Object, e As EventArgs) + + End Sub Protected Sub LnkDescargaFormatoParametros_Click(sender As Object, e As EventArgs) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 7259b1ff1..f45fe6f78 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6151,6 +6151,23 @@ Partial Class Ventas End Sub Private Sub CargaRestriccionesCreditoCliente(Optional Alertas As Boolean = False, Optional CveVenta As Integer = -1) + 'RMF. validacion temporal + 'verifica si tiene autorizaciones de Nota de crédito autorizadas + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then ' si es empresa de acumuladores + Dim ObjVentas As New ClsVentas + + If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, CveEstatus:=1) Then + Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='Egs'", Orderby:="TipoAutorizacion") + + If RowAutorizacion IsNot Nothing Then + DdlTipoComprobante.SelectedValueExistInsert("Egs", "Egresos") + End If + + End If + + ObjVentas.Dispose() + End If + If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1 Then RBLPago.SelectedValue = "2" RBLPago.Items(0).Enabled = False @@ -6182,7 +6199,6 @@ Partial Class Ventas If PorcentajeCredito > 80 Then TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%" If UsuarioActual.Empresa.Funcionalidad(597) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then - 'If LblRFC.Text.Trim <> "XAXX010101000" Then Dim Vta As New ClsVentas Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa) @@ -6271,7 +6287,25 @@ Partial Class Ventas LnkOCs.Visible = False Else - If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia) + 'RMF. codigo temporal para pruebas + If Alertas AndAlso UsuarioActual.CveEmpresa = 140 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1937, 2275) AndAlso Now.Hour > 5 AndAlso Now.Hour < 9 Then + Dim Vta As New ClsVentas + Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa) + Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón:

{0}", Vta.SerieVenta) + Vta.Dispose() + If Opcion > 0 Then + LnkSolicitarCredito.Visible = True + Alert(OpcionMsg, TipoMensaje.MsgAdvertencia) + End If + Else + 'este codigo no es temporal + If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia) + If UsuarioActual.CveEmpresa = 140 Then + LnkSolicitarCredito.Visible = True + DdlTipoAutorizacion.SelectedValueExist("1") + End If + + End If End If End If UPPCreditoDisponible.Update() @@ -8240,7 +8274,7 @@ Partial Class Ventas Dim GeneroDescuentoProntoPago As Boolean = False 'SOLO GENERAR NC POR DESCUENTO PRONTO PAGO SI EL PAGO ES DE CONTADO - If RBLPago.SelectedValue = "2" AndAlso ObjFactura.DescuentoProntoPago > 0 Then + If ErrorList.Count = 0 AndAlso RBLPago.SelectedValue = "2" AndAlso ObjFactura.DescuentoProntoPago > 0 Then Dim ImportePagado = DtPagos.SUM("Importe").ToString().ToDecimal Dim ImporteRNC As Decimal = LblDescuentosRNC.Text.ToDecimal() diff --git a/vwd.webinfo b/vwd.webinfo index 9a8ca7cdf..847b634a6 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -264,6 +264,8 @@ + +