diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index c1f2e0bf7..3d8ea68b8 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -619,7 +619,7 @@ Public Class CFDIComplementoPago TRetenciones = tRetorno.GroupBy(Function(t) New With {Key t.Impuesto}) _ .Select(Function(t) New CFDIRetenciones With {.Impuesto = t.Key.Impuesto, .Importe = t.Sum(Function(tt) tt.Importe), - .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ + .ImporteMN = t.Sum(Function(tt) tt.ImporteMN).TruncateDecimal}) _ .OrderBy(Function(x) x.Impuesto).ToList End If @@ -640,7 +640,7 @@ Public Class CFDIComplementoPago End If Next Next - 'ya generado todos los registros posibles, los agrupo y los sumo + 'ya generado todos los registros posibles, los agrupo y los sumo If tRetorno.Count > 0 Then TTraslados = tRetorno.GroupBy(Function(t) New With {Key t.TipoFactor, Key t.Impuesto, Key t.TasaOCuota}) _ .Select(Function(t) New CFDITraslados With {.Impuesto = t.Key.Impuesto, @@ -648,7 +648,7 @@ Public Class CFDIComplementoPago .TasaOCuota = t.Key.TasaOCuota, .Base = t.Sum(Function(tt) tt.Base), .Importe = t.Sum(Function(tt) tt.Importe), - .BaseMN = t.Sum(Function(tt) tt.BaseMN), + .BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ .OrderBy(Function(x) x.Impuesto).ToList diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 179dee26f..65340c487 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -773,8 +773,6 @@ Public Class ClsBancos BancoNumCuentaMoneda = Data.Rows(0)("BancoNumCuentaMoneda").ToString IdCtaContable = Data.Rows(0)("IdCtaContable").ToString.ToEntero IdCtaContableComplementaria = Data.Rows(0)("IdCtaContableComplementaria").ToString.ToEntero - CveCuentaConta = Data.Rows(0)("IdCtaContableSIG").ToString.ToEntero - CveCuentaContaComplementaria = Data.Rows(0)("IdCtaContableComplementariaSIG").ToString.ToEntero CveCuentaDeposito = Data.Rows(0)("CveCuentaDeposito").ToString.ToEntero DepositoBanco = Data.Rows(0)("DepositoBanco").ToString DepositoCuenta = Data.Rows(0)("DepositoCuenta").ToString diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 5750cf281..5c4bd2ae9 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -3182,6 +3182,24 @@ Public Class ClsCompras Return Retorno End Function + + Public Function UpdateFechaCompra(CveCompra As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasFechaUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la fecha de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function GetRepEvaluacionesProveedores(CveEmpresa As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, Evaluado As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_RepEvaluacionesProveedoresGet") @@ -3338,7 +3356,6 @@ Public Class ClsCompras End Function - End Class diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index e14cd2203..5c93b72e4 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -291,7 +291,7 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, - Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1) As Boolean + Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -316,6 +316,8 @@ Public Class ClsContabilidad .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + .Add("@CveIE", SqlDbType.Int).Value = CveIE + End With Try @@ -1012,15 +1014,15 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, Referencia As String, CveConceptoContable As Integer, Concepto As String, IdCtaContable As Integer, + Public Function AddPrePolizasDetalle(CvePrePoliza As Integer, TipoMovimiento As Boolean, Importe As Decimal, ImporteMN As Decimal, Referencia As String, CveConceptoContable As Integer, Concepto As String, IdCtaContable As Integer, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1, Optional CveCompra As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveMovimientoAlmacen As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCreditoDetalle As Integer = -1, - Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteMX As Decimal = 0, Optional ImporteME As Decimal = 0, + Optional CveOC As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveVentaAmortizacion As Integer = -1, Optional CveCompraAmortizacion As Integer = -1, Optional ImporteME As Decimal = 0, Optional CvePrePolizaOriginal As Integer = -1, Optional CveIEDevolucion As Integer = -1, Optional CveCredito As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional Contabilizable As Boolean = True, Optional TipoCambio As Decimal = 1, Optional CveOCDetalle As Integer = -1, Optional TipoCambioPago As Decimal = 1, Optional PorcentajeImpuesto As Decimal = 0, Optional CveNominaMovtoPermanente As Integer = -1) As Boolean Dim Retorno As Boolean = False Retorno = AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe, Referencia, CveConceptoContable, Concepto, New DateTime(1900, 1, 1), IdCtaContable, -1, CveIE, CveVenta, CveCompra, CveSubProyecto, CveCliente, CveProveedor, CvePersonal, - CveMovimientoAlmacen, CveActivoFijo, CveColectiva, CveCreditoDetalle, CveOC, CveClasificacion, CveVentaAmortizacion, CveCompraAmortizacion, ImporteMX, ImporteME, CvePrePoliza, CveIEDevolucion, CveCredito, CveCuenta, CveTipoGasto, Contabilizable, + CveMovimientoAlmacen, CveActivoFijo, CveColectiva, CveCreditoDetalle, CveOC, CveClasificacion, CveVentaAmortizacion, CveCompraAmortizacion, ImporteMN, ImporteME, CvePrePoliza, CveIEDevolucion, CveCredito, CveCuenta, CveTipoGasto, Contabilizable, TipoCambio, CveOCDetalle, TipoCambioPago, PorcentajeImpuesto, CveNominaMovtoPermanente) Return Retorno End Function @@ -5816,26 +5818,6 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetAlmacenContable(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean - Dim Retorno = False - - DataAdapter("PA_Conta_AlmacenRepGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio - .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener el almacén contable", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean Dim Retorno = False diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 8d10ef979..90c5be8f7 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -4059,7 +4059,7 @@ Public Class ClsGenerales Dim Retorno As Boolean = False - DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet") + DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2") With SqlAdapter.SelectCommand.Parameters diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 926d626e3..426551bb0 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -63,6 +63,8 @@ Public Class ClsInventarios Public Property FolioRelacionado As Integer Public Property TieneRelacionado As Integer Public Property ConceptoRelacionado As String + Public Property CveMovimientoVirtual As Integer + Public Property FolioVirtual As Integer Public Property Folio As Integer Public Property IDPoliza As Integer Public Property CvePrePoliza As Integer @@ -826,6 +828,9 @@ Public Class ClsInventarios FolioRelacionado = dr("FolioRelacionado").ToString.ToEntero TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1) ConceptoRelacionado = dr("ConceptoRelacionado").ToString + CveMovimientoVirtual = dr("CveMovimientoVirtual").ToString.ToEntero + FolioVirtual = dr("FolioVirtual").ToString.ToEntero + TipoCambio = dr("TipoCambio").ToString.ToDouble FolioVenta = dr("FolioVenta").ToString CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero @@ -1715,7 +1720,7 @@ Public Class ClsInventarios #Region " INVENTARIOS - REPORTES " - Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As String, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean + Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As String, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1, Optional Tipo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepExistenciasCostosGet") With SqlAdapter.SelectCommand.Parameters @@ -1730,8 +1735,10 @@ Public Class ClsInventarios .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@Tipo", SqlDbType.Int).Value = Tipo End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception @@ -5903,6 +5910,164 @@ Public Class ClsInventarios End Function #End Region + + +#Region "VIGENCIA COMPUESTOS" + + + Public Function AddCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, RegistroRSCO As String, FechaVigencia As Date, VigenciaIndeterminada As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO + .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia + .Add("@VigenciaIndeterminada", SqlDbType.Bit).Value = VigenciaIndeterminada + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("IX_Inv_CveCompuestoCveProveedorFechaVigneciaCveEmpresa") Then + Alert($"Ya existe un RSCO con los datos especificados (proveedor, compuesto, Fecha de vigencia).", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("UNIX_Inv_RegistroRSCO") Then + Alert($"El RSCO {RegistroRSCO} ya se encuentra registrado.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar la vigencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar la vigencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateCompuestosVigencia(CveCompuestoVigencia As Integer, CveCompuesto As Integer, CveProveedor As Integer, RegistroRSCO As String, FechaVigencia As Date, VigenciaIndeterminada As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompuestoVigencia", SqlDbType.Int).Value = CveCompuestoVigencia + .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO + .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia + .Add("@VigenciaIndeterminada", SqlDbType.Bit).Value = VigenciaIndeterminada + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("IX_Inv_CveCompuestoCveProveedorFechaVigneciaCveEmpresa") Then + Alert($"Ya existe un RSCO con los datos especificados (proveedor, compuesto, Fecha de vigencia).", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("UNIX_Inv_RegistroRSCO") Then + Alert($"El RSCO {RegistroRSCO} ya se encuentra registrado.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al actualizar la vigencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al actualizar el RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function RemoveCompuestosVigencia(CveCompuestoVigencia As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompuestoVigencia", SqlDbType.Int).Value = CveCompuestoVigencia + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al eliminar el RSCO.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al eliminar el RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function GetCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaGet") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener los RSCO", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function RepCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaRep") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener los RSCO", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + +#End Region + #Region " IDisposable Support " ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b7cf23d3c..d5147673d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4857,7 +4857,7 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad2/RepSituacionFinanciera.aspx".ToUpper(), 586) PaginaDict.Add("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx".ToUpper(), 587) - PaginaDict.Add("/Contabilidad2/RepAlmacenConta.aspx".ToUpper(), 539) + PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoMensual.aspx".ToUpper(), 589) PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoAnual.aspx".ToUpper(), 593) @@ -5603,6 +5603,8 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1) PaginaDict.Add("/Agropecuaria/CierreCultivo.aspx".ToUpper(), 1326) + PaginaDict.Add("/Inventarios/RegRSCO.aspx".ToUpper(), 1327) + PaginaDict.Add("/Inventarios/RepRSCO.aspx".ToUpper(), 1328) PaginaDict.Add("/testApi.aspx".ToUpper(), -1) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index dd9049057..91fbf3097 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5121,7 +5121,7 @@ Public Class ClsVentas #Region " U S A D O S " - Public Function AddVentaUsado(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Optional CveBCI As Integer = -1, Optional CveModeloAuto As Integer = -1) As Boolean + Public Function AddVentaUsado(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Optional CveBCI As Integer = -1, Optional CveModeloAuto As Integer = -1, Optional CveVentaDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUsadosAdd", CommandType.StoredProcedure) @@ -5133,6 +5133,7 @@ Public Class ClsVentas .Add("@PU", SqlDbType.Money).Value = PU .Add("@CveBCI", SqlDbType.Int).Value = CveBCI .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto + .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 37ac787cc..06c40941f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1578,10 +1578,14 @@ Namespace Modelos End If If DtRecepcionUsados IsNot Nothing Then - If DtRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}").Length > 0 Then - Dim rowInv As DataRow = DtRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}")(0) - rowInv("CveVentaDetalle") = ObjVentas.CveVentaDetalle - End If + Try + If DtRecepcionUsados.Select($"ConsecUsado={Row("Consec").ToString.ToEntero}").Length > 0 Then + Dim rowUsados As DataRow = DtRecepcionUsados.Select($"ConsecUsado={Row("Consec").ToString.ToEntero}")(0) + rowUsados("CveVentaDetalle") = ObjVentas.CveVentaDetalle + End If + Catch ex As Exception + GuardaLog("Ocurrió un error al relacionar los usados. " & ex.ToString()) + End Try End If If DtPolizasVirtuales IsNot Nothing Then @@ -2138,7 +2142,7 @@ Namespace Modelos If factura.TipoDocto.Contiene("Rem") Then If factura.DtRecepcionUsados IsNot Nothing Then For Each drow As DataRow In factura.DtRecepcionUsados.Rows - If Not ObjVentas.AddVentaUsado(factura.CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero) Then + If Not ObjVentas.AddVentaUsado(factura.CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero, CveVentaDetalle:=drow("CveVentaDetalle").ToString.ToEntero) Then Resultado = False Exit For End If @@ -2213,11 +2217,12 @@ Namespace Modelos End Function - Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios) As Integer + Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Integer Dim CveMovimiento As Integer = -1 Try Dim CveConceptoSalidaUsado As Integer = 45 - CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, + Dim tFecha As DateTime = Now + CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, tFecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, factura.CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:="", CvePersonal:=-1, CveCliente:=factura.CveCliente, CveClienteSucursal:=-1, Modulo:="M/CU") If CveMovimiento <= 0 Then CveMovimiento = -1 @@ -2229,11 +2234,34 @@ Namespace Modelos If DtMovimientosEntrada IsNot Nothing Then For Each Dr As DataRow In DtMovimientosEntrada.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then CveMovimiento = -1 Exit For End If Next + + If CveMovimiento > 0 Then + Dim Concepto As String = "Cancelación Usado" & factura.SerieFolio + Dim CvePrePoliza = ObjConta.AddPrePolizas("Mod/CancSalUsados", 74, DtMovimientosEntrada.SUMD("Total"), DtMovimientosEntrada.SUMD("Total"), 1, tFecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero + Dim tCveConcepto As Integer = 278 + Dim ValorInventario As Decimal = 0 + Dim MovAlmacen As Boolean = False 'debe quedar como el anterior, pero negativo + + For Each RowInv As DataRow In DtMovimientosEntrada.Rows + ValorInventario = DtMovimientosEntrada.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, -ValorInventario, Concepto, tCveConcepto, Concepto, tFecha, -1, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=-ValorInventario, CveSubProyecto:=tCveSubProyecto) Then + CveMovimiento = -1 + Exit For + End If + Next + + If CveMovimiento > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, -DtMovimientosEntrada.SUMD("Total").RoundSQL, Concepto, 68, Concepto, tFecha, -1, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=-DtMovimientosEntrada.SUMD("Total").RoundSQL) Then + CveMovimiento = -1 + End If + End If + DtMovimientosEntrada.Dispose() DtMovimientosEntrada = Nothing End If @@ -2470,7 +2498,7 @@ Namespace Modelos Dim TipoMovto68 = TipoMovimiento 'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS If ValorMultiplicador = -1 Then - CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario) + CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario, ObjConta) Else CveMovimientoReferencia = CveMovimiento End If @@ -4305,7 +4333,7 @@ Namespace Modelos Dim TipoMovto68 As Boolean = True Dim TipoMovto69 As Boolean = False - If CveConcepto.Contiene(18) Then + If CveConcepto.Contiene(18, 9) Then TipoMovto68 = False TipoMovto69 = True End If @@ -5585,7 +5613,7 @@ Namespace Modelos End If If Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then - If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario) <= 0 Then + If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then ErrorCancelar = True MensajeError = "Ocurrió un error al cancelar los usados. Por favor vuelva a intentar." End If @@ -5691,7 +5719,7 @@ Namespace Modelos 'CANCELAR MOVIMIENTOS DE USADOS SI TIENE If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then - If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario) <= 0 Then + If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then ErrorCancelar = True MensajeError = "Ocurrió un error al cancelar los movimientos de usados." End If diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 94e8e4207..8c9a35137 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1166,8 +1166,8 @@ Public Class Timbrado .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal, .Impuesto = drp("TipoImpuesto").ToString, .Importe = drp("Importe").ToString().ToDecimal.RoundSQL, - .BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 2), - .ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 2) + .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(6), + .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(6) } ) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 2c1abbc0b..782584b41 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -100,7 +100,7 @@ Public Class E119 : Implements IHttpHandler Try Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) 'OBTENER EXISTENCIAS - If Metodo = "ConsultaBASF_POG" Then + If Metodo = "BASF_POG40" Then context.Response.ContentType = "application/json" Dim Auth = ValidarSolicitud(context) diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb index 2c0a54b49..d1c1b01fc 100644 --- a/Bancos/DepositoTerminal.aspx.vb +++ b/Bancos/DepositoTerminal.aspx.vb @@ -29,23 +29,7 @@ Partial Class Bancos_DepositoTerminal Set(value As Integer) ViewState("IdCuentaBancariaComplementaria") = value End Set - End Property - Private Property CveCuentaBancaria As Integer - Get - Return ViewState("CveCuentaBancaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancaria") = value - End Set - End Property - Private Property CveCuentaBancariaComplementaria As Integer - Get - Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancariaComplementaria") = value - End Set - End Property + End Property Private Property IdCuentaCliente As Integer Get Return ViewState("IdCuentaCliente").ToString.ToEntero @@ -154,9 +138,6 @@ Partial Class Bancos_DepositoTerminal If dr IsNot Nothing Then IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero - - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero - CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero Else IdCuentaBancaria = 0 IdCuentaBancariaComplementaria = 0 @@ -258,9 +239,8 @@ Partial Class Bancos_DepositoTerminal Dim tipoCambioVenta As Decimal Dim tipoCambioActual As Decimal Dim tipoCambioManual As Decimal - Dim CuentasContablesInvalidas As New StringBuilder - Dim CuentasContablesInvalidasSIG As New StringBuilder - + Dim CuentasContablesInvalidas As New StringBuilder + If ObjContabilidad.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then dtConceptos = ObjContabilidad.DtResultados End If @@ -455,7 +435,7 @@ Partial Class Bancos_DepositoTerminal End If Next - If IdCuentaBancariaComplementaria > 0 OrElse CveCuentaBancariaComplementaria > 0 Then + If IdCuentaBancariaComplementaria > 0 Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then MsgError = "No se pudo insertar la póliza" End If diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index aa9da1968..97b6df623 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -194,8 +194,7 @@ Partial Class Bancos_DepositosCaja Dim Fecha As Date = TxtFecha.Text.ToDate Dim IdCuentaBancariaOrigen As Integer = 0 Dim IdCuentaBancariaDestino As Integer = 0 - Dim CveCuentaBancariaOrigen As Integer = 0 - Dim CveCuentaBancariaDestino As Integer = 0 + Dim CveCuentaBancariaOrigen As Integer = 0 Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero @@ -215,14 +214,12 @@ Partial Class Bancos_DepositosCaja If drOrigen IsNot Nothing Then CveMoneda = drOrigen("CveMoneda").ToString.ToEntero - IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero - CveCuentaBancariaOrigen = drOrigen("IdCtaContableSIG").ToString.ToEntero + IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero End If If drDestino IsNot Nothing Then CveMoneda = drDestino("CveMoneda").ToString.ToEntero - IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero - CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero + IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero End If NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 30ed7e51e..0e1eb9aa6 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -1416,13 +1416,13 @@ - + <%-- - + --%> diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 3b8fcc2f5..0a8ec268e 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -3802,7 +3802,7 @@ Partial Class Bancos_IE If Not Conta.AddMovimiento(IDPoliza, IDCtaBeneficiario, False, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento" Else - MsgError = "No se insertó el encabezado" + 'MsgError = "No se insertó el encabezado" End If If MsgError = "" Then @@ -3830,7 +3830,7 @@ Partial Class Bancos_IE End If Else - MsgError = "No se insertó el encabezado" + MsgError = "No se insertó el encabezado (IE)" End If End If @@ -5735,9 +5735,7 @@ Partial Class Bancos_IE Dim ObjBancos As New ClsBancos - If UsuarioActual.CveRol = 1 Then - GvComplementoPagos.Columns(7).Visible = True - End If + DVGenerarComplementoModal.Visible = False @@ -5752,7 +5750,7 @@ Partial Class Bancos_IE GvComplementoPagos.DataSource = Nothing End If - GvComplementoPagos.Columns(8).Visible = False + GvComplementoPagos.Columns(7).Visible = False Else If CveIE > 0 Then If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then @@ -5775,7 +5773,7 @@ Partial Class Bancos_IE End If End If - GvComplementoPagos.Columns(8).Visible = True + GvComplementoPagos.Columns(7).Visible = True End If ObjBancos.Dispose() @@ -5829,7 +5827,6 @@ Partial Class Bancos_IE GvComplementoPagos.Columns(6).Visible = False GvComplementoPagos.Columns(7).Visible = False GvComplementoPagos.Columns(8).Visible = False - GvComplementoPagos.Columns(9).Visible = False End If @@ -5846,41 +5843,6 @@ Partial Class Bancos_IE End Sub - Protected Sub imgRegenerar_Click(sender As Object, e As EventArgs) - Dim gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow) - Dim FolioFiscalPadre As String = gvr.DataKey("FolioFiscal") - - If FolioFiscalPadre <> "" Then - Dim Str As New StringBuilder - Dim ObjBanco As New ClsBancos - ObjBanco.IniciaTransacSQL() - - If ObjBanco.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, FolioFiscalPadre, EsRegeneracion:=True) Then - ObjBanco.Commit() - Str.AppendFormat("Folio: {0}  ", ObjBanco.ComplementoSerieFolio) - Str.AppendFormat("XML    ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) - Str.AppendFormat("PDF   ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) - 'Str.Append($"{gvr.DataKey("Folio")}   {gvr.DataKey("NombreCliente")}
") - PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False, True) - Alert(Str.ToString, TipoMensaje.MsgInformacion) - CargaComplementosPago() - Else - Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), ObjBanco.Mensaje) - Alert(Str.ToString, TipoMensaje.MsgError) - ObjBanco.RollBack() - End If - - ObjBanco.Dispose() - Else - Alert("El complemento no tiene Folio Fiscal", TipoMensaje.MsgError) - End If - - End Sub - - - - - Private Function VerificaComplementos(Validos As Boolean) As Boolean Dim ObjBancos As New ClsBancos Dim Retorno As Boolean = False diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 05aaf5ef2..0ee519115 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1060,7 +1060,6 @@ Partial Class Bancos_PopIEVentas IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero If dr("UsaTarjeta").ToString = "True" Then CargaGridTarjetas() diff --git a/Bancos/RegistroPagoIntermediario.aspx.vb b/Bancos/RegistroPagoIntermediario.aspx.vb index e5a3caf42..9a0407f84 100644 --- a/Bancos/RegistroPagoIntermediario.aspx.vb +++ b/Bancos/RegistroPagoIntermediario.aspx.vb @@ -22,14 +22,6 @@ Partial Class Bancos_PagosIntermediarios ViewState("IdCuentaBancaria") = value End Set End Property - Private Property CveCuentaBancaria As Integer - Get - Return ViewState("CveCuentaBancaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancaria") = value - End Set - End Property Private Property CveMoneda As Integer Get Return ViewState("CveMoneda").ToString.ToEntero @@ -89,7 +81,6 @@ Partial Class Bancos_PagosIntermediarios If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero End If If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then @@ -215,7 +206,7 @@ Partial Class Bancos_PagosIntermediarios End If Next - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaBancaria) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio) Then MsgError = "No se pudo insertar la póliza" End If diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index adcf61749..cc60528a8 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -330,12 +330,10 @@ Partial Class Bancos_Transferencias If RowCuentaOrigen IsNot Nothing Then IdCtaContableOrigen = RowCuentaOrigen("IdCtaContable").ToString.ToEntero IDCtaContableComplementariaOrigen = RowCuentaOrigen("IDCtaContableComplementaria").ToString.ToEntero - CveCuentaOrigen = RowCuentaOrigen("IdCtaContableSIG").ToString.ToEntero End If If RowCuentaDestino IsNot Nothing Then IdCtaContableDestino = RowCuentaDestino("IdCtaContable").ToString.ToEntero IDCtaContableComplementariaDestino = RowCuentaDestino("IDCtaContableComplementaria").ToString.ToEntero - CveCuentaDestino = RowCuentaDestino("IdCtaContableSIG").ToString.ToEntero End If 'Conta ContPAQ diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 198291fb2..f0da08cbc 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -288,32 +288,50 @@
-
- Fecha Factura: -
-
+ + + + + + + + + +
Fecha Factura: + - - - - - - - - - - - - - + +
+ + + + + +
Descripción:
@@ -2804,7 +2822,7 @@
-
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1d54b6c32..86232be4d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -385,14 +385,6 @@ Partial Class Compras_Compras ViewState("IdCuentaBancaria") = value End Set End Property - Private Property CveCuentaBancaria As Integer - Get - Return ViewState("CveCuentaBancaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancaria") = value - End Set - End Property Private Property IdCuentaBancariaComplementaria As Integer Get Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero @@ -401,14 +393,6 @@ Partial Class Compras_Compras ViewState("IdCuentaBancariaComplementaria") = value End Set End Property - Private Property CveCuentaBancariaComplementaria As Integer - Get - Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancariaComplementaria") = value - End Set - End Property Private Property IvaAcumulado As Double Get Return ViewState("IvaAcumulado").ToString.ToDouble @@ -1210,11 +1194,9 @@ Partial Class Compras_Compras CompraSaldo = 0 ViewState("CvePersonal") = -1 IdCuentaBancaria = 0 - CveCuentaBancaria = 0 End If IdCuentaBancariaComplementaria = 0 - CveCuentaBancariaComplementaria = 0 'If UsuarioActual.TienePermisoProceso(259) Then DivEsNoDeducible.Visible = True @@ -1444,6 +1426,7 @@ Partial Class Compras_Compras DivEsNoDeducible.Visible = True DivActualizarVincular.Visible = True + DVModalAnticipoFechaEjecucion.Visible = True Else @@ -1899,6 +1882,8 @@ Partial Class Compras_Compras ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216) CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216) + + TxtSubTotal.Enabled = False TxtDescuento.Enabled = False TxtSubTotal2.Enabled = False @@ -2901,6 +2886,16 @@ Partial Class Compras_Compras ImgFecha.Enabled = False CEFecha.Enabled = False + + If UsuarioActual.TienePermisoProceso(342) Then + TxtFecha.Enabled = True + ImgFecha.Enabled = True + CEFecha.Enabled = True + LnkActualziarFechadecompra.Visible = True + End If + + + DdlProveedor.Enabled = False DdlProveedorSucursal.Enabled = False DdlEstatus.Enabled = False @@ -9323,14 +9318,16 @@ Partial Class Compras_Compras End If End If - If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}" - 'Agregamos el Opuesto del 22 -> 15 - If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then - ErrorMovtosCxP = 1 - Exit For - End If - End If + + + 'If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}" + ''Agregamos el Opuesto del 22 -> 15 + 'If ImporteMovimiento <> 0 Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then + ' ErrorMovtosCxP = 1 + ' Exit For + ' End If + 'End If End If End If @@ -9421,15 +9418,7 @@ Partial Class Compras_Compras End If - If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}" - 'Agregamos el Opuesto del 23 -> 16 - If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=-1, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, CveSubProyecto:=CveSubProyectoAnticipo) Then - ErrorMovtosCxP = 1 - Exit For - End If - End If End If End If @@ -12864,9 +12853,7 @@ Partial Class Compras_Compras If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero - CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero If dr("UsaTarjeta").ToString = "True" Then CargaGridTarjetas() Else @@ -12891,7 +12878,6 @@ Partial Class Compras_Compras If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero EstaAsociadoACajaChica = True End If @@ -21142,6 +21128,21 @@ Partial Class Compras_Compras Private Sub ChkAliasFlexible_CheckedChanged(sender As Object, e As EventArgs) Handles ChkAliasFlexible.CheckedChanged TxtPSAlias.Enabled = ChkAliasFlexible.Checked End Sub + + Protected Sub LnkActualziarFechadecompra_Click(sender As Object, e As EventArgs) + + + Dim ObjCompra As New ClsCompras + + + If ObjCompra.UpdateFechaCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then + Alert("Fecha Actualizada Correctamente") + End If + + + ObjCompra.Dispose() + + End Sub End Class Public Class MMensajeDevolucion diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 3c9bf20ce..0b6f58bdc 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -529,7 +529,7 @@ Partial Class Compras_ReembolsosComprobaciones CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones2", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) IdPoliza = drp("IdPoliza").ToString.ToEntero Else - If UsuarioActual.CveEmpresa = 141 Then + If UsuarioActual.CveEmpresa = 141 AndAlso CvePrePolizaComprobacion > 0 Then CvePrePolizaIERegistrado = CvePrePolizaComprobacion Else CvePrePolizaIERegistrado = drp("CvePrePoliza").ToString.ToEntero @@ -1197,21 +1197,20 @@ Partial Class Compras_ReembolsosComprobaciones MsgError = "No se pudo simplificar los movimientos" Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) End If - If Not ObjMov.PrePolizaSimplificacion(CvePrePolizaExcedente, UsuarioActual.CveEmpresa) Then + If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso Not ObjMov.PrePolizaSimplificacion(CvePrePolizaExcedente, UsuarioActual.CveEmpresa) Then MsgError = "No se pudo simplificar los movimientos" Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) End If End If - - If ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1) Then + If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/ReembolsosComprobaciones | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaPago}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre End If End If - If ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaExcedente, 1) Then + If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaExcedente, 1) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/ReembolsosComprobaciones | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaExcedente}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre diff --git a/Compras/RepPagado.aspx b/Compras/RepPagado.aspx index b5dfcc606..621d4d3ec 100644 --- a/Compras/RepPagado.aspx +++ b/Compras/RepPagado.aspx @@ -61,8 +61,7 @@
Proveedor:
- - +
Fecha Inicial:
diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs index b5dafa73c..5a0ea0a4f 100644 --- a/Compras/RepPagado.aspx.cs +++ b/Compras/RepPagado.aspx.cs @@ -42,9 +42,10 @@ public partial class Compras_RepPagado : ClsPaginas DdlMoneda.DataBind(); //Carga Proveedor - DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); - DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1")); - DdlProveedor.DataBind(); + DdlProveedores.setEsWebService(true); + DdlProveedores.Attributes.Add("data-metodo", "getproveedores"); + DdlProveedores.SelectedText = "Todos"; + DdlProveedores.SelectedValue = "-1"; //Carga Usuarios DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); @@ -163,7 +164,7 @@ public partial class Compras_RepPagado : ClsPaginas private void CargaDatos() { ClsCompras ObjComp = new ClsCompras(); - if (ObjComp.GetRepPagado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), + if (ObjComp.GetRepPagado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(), DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(), DdlMoneda.SelectedValue.ToEntero(),TxtFechaICompra.Text.ToDate(),TxtFechaFCompra.Text.ToDate(),CveTipoProveedor: DdlTipoProveedor.SelectedValue.ToEntero(), @@ -229,8 +230,8 @@ public partial class Compras_RepPagado : ClsPaginas StrFiltro.AppendFormat(" SubProyecto: {0}", DdlSubProyecto.SelectedItem.Text); if (DdlGrupo.SelectedValue != "-1") StrFiltro.AppendFormat(" Grupo: {0}", DdlGrupo.SelectedItem.Text); - if (DdlProveedor.SelectedValue != "-1") - StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedor.SelectedItem.Text); + if (DdlProveedores.SelectedValue != "-1") + StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedores.txtText.Value); if (DdlUsuario.SelectedValue != "-1") StrFiltro.AppendFormat(" Registro: {0}", DdlUsuario.SelectedItem.Text); if (DdlResponsable.SelectedValue != "-1") @@ -251,12 +252,14 @@ public partial class Compras_RepPagado : ClsPaginas } System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); List para = new List(); para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); para.Add(new ReportParameter("Filtros", StrFiltro.ToString())); + if (Imagen.Exists) { para.Add(new ReportParameter("LogoPath", logouri)); @@ -265,6 +268,7 @@ public partial class Compras_RepPagado : ClsPaginas { para.Add(new ReportParameter("LogoPath", "")); } + ImprimirPDF(RutaPDF,DtPagado, para, "RepPagado" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion); } diff --git a/Compras/RepPagadoDetalle.aspx b/Compras/RepPagadoDetalle.aspx index 4a831abc4..261f6c69b 100644 --- a/Compras/RepPagadoDetalle.aspx +++ b/Compras/RepPagadoDetalle.aspx @@ -47,9 +47,8 @@
Proveedor:
-
- - +
+
Fecha Inicial:
diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs index 326d99ed8..098d3662b 100644 --- a/Compras/RepPagadoDetalle.aspx.cs +++ b/Compras/RepPagadoDetalle.aspx.cs @@ -47,9 +47,10 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas DdlMoneda.DataBind(); //Carga Proveedor - DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); - DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1")); - DdlProveedor.DataBind(); + DdlProveedores.setEsWebService(true); + DdlProveedores.Attributes.Add("data-metodo", "getproveedores"); + DdlProveedores.SelectedText = "Todos"; + DdlProveedores.SelectedValue = "-1"; //Carga Usuarios DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); @@ -87,7 +88,24 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas DdlGrupo.SelectedValueExist(Request["Grupo"] == null ? "-1" : Request["Grupo"].ToString()); DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString()); DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString()); - DdlProveedor.SelectedValueExist(Request["CveProveedor"] == null ? "-1" : Request["CveProveedor"].ToString()); + + + if (Request["CveProveedor"] != null && Request["CveProveedor"].ToString().ToEntero() > 0) + { + + DataRow DrowProveedor; + int CveProveedor = Request["CveProveedor"].ToString().ToEntero(); + + DrowProveedor = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor).Rows[0]; + + + DdlProveedores.txtText.Value = DrowProveedor["RazonSocial"].ToString(); + DdlProveedores.txtValue.Value = CveProveedor.ToString(); + } + + + + DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString()); DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString()); DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString()); @@ -204,7 +222,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas private void CargaDatos() { ClsCompras ObjComp = new ClsCompras(); - if (ObjComp.GetRepPagadoDetalle(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), + if (ObjComp.GetRepPagadoDetalle(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(), DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(), DdlMoneda.SelectedValue.ToEntero(),ChkMesSeleccionado.Checked,GPO, TxtFechaICompra.Text.ToDate(), TxtFechaFCompra.Text.ToDate(), Tipo, CveTipoProveedor: DdlTipoProveedor.SelectedValue.ToEntero(), @@ -260,8 +278,8 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas StrFiltro.AppendFormat(" SubProyecto: {0}", DdlSubProyecto.SelectedItem.Text); if (DdlGrupo.SelectedValue != "-1") StrFiltro.AppendFormat(" Grupo: {0}", DdlGrupo.SelectedItem.Text); - if (DdlProveedor.SelectedValue != "-1") - StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedor.SelectedItem.Text); + if (DdlProveedores.SelectedValue != "-1") + StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedores.txtText.Value); if (DdlUsuario.SelectedValue != "-1") StrFiltro.AppendFormat(" Registro: {0}", DdlUsuario.SelectedItem.Text); if (DdlResponsable.SelectedValue != "-1") diff --git a/Compras/RepPagadoPeriodo.aspx b/Compras/RepPagadoPeriodo.aspx index 3cc0b24ea..1b9988cdc 100644 --- a/Compras/RepPagadoPeriodo.aspx +++ b/Compras/RepPagadoPeriodo.aspx @@ -64,8 +64,10 @@
Proveedor:
- - + <%-- + --%> + +
Fecha Inicial:
diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs index c514e6827..89e3b951d 100644 --- a/Compras/RepPagadoPeriodo.aspx.cs +++ b/Compras/RepPagadoPeriodo.aspx.cs @@ -50,9 +50,10 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas DdlMoneda.DataBind(); //Carga Proveedor - DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); - DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1")); - DdlProveedor.DataBind(); + DdlProveedores.setEsWebService(true); + DdlProveedores.Attributes.Add("data-metodo", "getproveedores"); + DdlProveedores.SelectedText = "Todos"; + DdlProveedores.SelectedValue = "-1"; //Carga Usuarios DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); @@ -278,8 +279,8 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas StrFiltro.AppendFormat(" SubProyecto: {0}", DdlSubProyecto.SelectedItem.Text); if (DdlGrupo.SelectedValue != "-1") StrFiltro.AppendFormat(" Grupo: {0}", DdlGrupo.SelectedItem.Text); - if (DdlProveedor.SelectedValue != "-1") - StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedor.SelectedItem.Text); + if (DdlProveedores.SelectedValue != "-1") + StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedores.txtText.Value); if (DdlUsuario.SelectedValue != "-1") StrFiltro.AppendFormat(" Registro: {0}", DdlUsuario.SelectedItem.Text); if (DdlResponsable.SelectedValue != "-1") @@ -332,7 +333,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas { if (RblTipoCambio.SelectedValue.ToEntero() == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; } ClsCompras ObjCompras = new ClsCompras(); - if(ObjCompras.GetRepPagadoPeriodo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), + if(ObjCompras.GetRepPagadoPeriodo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(), DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(), DdlMoneda.SelectedValue.ToEntero(), TxtFechaICompra.Text.ToDate(), TxtFechaFCompra.Text.ToDate(), TipoCambio, TCEspecifico)){ diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index d0a48c42f..153b98772 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -69,9 +69,16 @@
  • Bitácora Facturas
    • -
  • +
  • Vinculación Masiva Complementos
    • + +
  • + Personalizar +
    • + + + @@ -196,6 +203,7 @@ + @@ -260,6 +268,14 @@ + + <%--Folio Fiscal 11--%> + + + + + + <%----%> @@ -372,6 +388,13 @@ + + <%-- Folio Fiscal 9 --%> + + + + + @@ -485,6 +508,12 @@ + + <%-- Folio Fiscal 9 --%> + + + + @@ -898,6 +927,36 @@
    + + + + + + +