diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx index fd6a6e5f5..4a40e98ba 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx +++ b/Acumuladores/EntradasUsadosResumenRep.aspx @@ -14,7 +14,7 @@
  • - +
    • @@ -81,7 +81,9 @@ + ShowFooter="False" DataKeyNames="CvePSCargo,CodigoPS,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual" + OnRowDataBound="GvAcum_RowDataBound" + > diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb index fb134f4fb..30d650c56 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb +++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb @@ -53,14 +53,25 @@ Partial Class Acumuladores_RepEntradasUsados Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Dim ObjAcum As New ClsAcumuladores + BtnImprimir.Visible = False + If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then GvAcum.DataSource = ObjAcum.DtResultados DatosEntradasUsados = ObjAcum.DtResultados + If DatosEntradasUsados IsNot Nothing AndAlso DatosEntradasUsados.Rows.Count > 0 Then + BtnImprimir.Visible = True + End If + End If + ObjAcum.Dispose() + GvAcum.DataBind() + UpAcciones.Update() + UpDatos.Update() + End Sub Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) @@ -163,4 +174,20 @@ Partial Class Acumuladores_RepEntradasUsados End Sub + + Protected Sub GvAcum_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("CvePSCargo").ToEntero <= 0 Then + + e.Row.CssClass = "Totales" + + End If + + + End If + + End Sub + End Class diff --git a/Agropecuaria/CierreCultivo.aspx b/Agropecuaria/CierreCultivo.aspx index 1766b5ce7..2f4819174 100644 --- a/Agropecuaria/CierreCultivo.aspx +++ b/Agropecuaria/CierreCultivo.aspx @@ -50,10 +50,7 @@
    -
    - - - + @@ -75,7 +72,8 @@
    + EmptyDataText="No se Encontraron datos" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None" + OnRowDataBound="GvDatos_RowDataBound" > @@ -102,21 +100,30 @@
    - +
    -
    + + + + - +
    + + +
    + + - - - @@ -127,9 +134,11 @@
    + +
    - +
    diff --git a/Agropecuaria/CierreCultivo.aspx.vb b/Agropecuaria/CierreCultivo.aspx.vb index cabf77d83..898524035 100644 --- a/Agropecuaria/CierreCultivo.aspx.vb +++ b/Agropecuaria/CierreCultivo.aspx.vb @@ -19,6 +19,20 @@ Partial Class Agrupecuaria_CierreCultivo End Property + Private Property DT_Datos_Cierre_Cuadros As DataTable + Get + + If ViewState("DT_Datos_Cierre_Cuadros") Is Nothing Then + ViewState("DT_Datos_Cierre_Cuadros") = New DataTable + End If + + Return DirectCast(ViewState("DT_Datos_Cierre_Cuadros"), DataTable) + + End Get + Set(ByVal value As DataTable) + ViewState("DT_Datos_Cierre_Cuadros") = value + End Set + End Property Private Sub Agrupecuaria_CierreCultivo_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -55,20 +69,40 @@ Partial Class Agrupecuaria_CierreCultivo Exit Sub End If + + + If Not DdlSubProyectoCierreCultivo.SelectedValue.ToEntero > 0 Then + Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + + DT_Datos_Cierre = Nothing + DT_Datos_Cierre_Cuadros = Nothing + Dim ObjGral As New ClsGenerales - If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjGral.DtResultados - DT_Datos_Cierre = ObjGral.DtResultados + 'se valida que se ejecute la consulta, que el resultado tenga dos tablas y que las dos tablas tengan por lo menos 1 registro + If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, DdlSubProyectoCierreCultivo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjGral.DSResultados.Tables.Count = 2 AndAlso + ObjGral.DSResultados.Tables(0).Rows.Count > 0 AndAlso ObjGral.DSResultados.Tables(1).Rows.Count > 0 Then + + DT_Datos_Cierre = ObjGral.DSResultados.Tables(0).FiltraParametros("", "Gpo") + DT_Datos_Cierre_Cuadros = ObjGral.DSResultados.Tables(1) + + + GvDatos.DataSource = DT_Datos_Cierre + Else GvDatos.DataSource = Nothing DT_Datos_Cierre = Nothing + DT_Datos_Cierre_Cuadros = Nothing End If OcultarmostrarControles(DT_Datos_Cierre) ObjGral.Dispose() GvDatos.DataBind() + UpDatos.Update() @@ -81,10 +115,12 @@ Partial Class Agrupecuaria_CierreCultivo Protected Sub LnkAccionesCerrarCultivo_Click(sender As Object, e As EventArgs) - + TxtModalConcepto.Text = "" + TxtmodalFechaCierreCultivo.Text = "" + UpModalCerrarCultivo.Update() RegistraScript("$('#DivModalCerrarCultivo').modal('show');") - UpModalCerrarCultivo.Update() + End Sub @@ -108,17 +144,79 @@ Partial Class Agrupecuaria_CierreCultivo Dim ObjConta As New ClsContabilidad() ObjConta.IniciaTransacSQL() Dim CvePrePoliza As Integer = -1 + Dim FolioPoliza As Integer = -1 Dim ErrorProceso As Boolean = False Dim CveSubProyecto As Integer = DdlSubProyectoCierreCultivo.SelectedValue.ToEntero - Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe") + Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe", "CveClasificacion > 0") + Dim CveClasificacionTotalitaria As Integer = DT_Datos_Cierre.Rows(0)("CveClasificacion").ToString.ToEntero ' se usa la primera clasificacion - CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 1, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, $"Cierre Temporada {DdlTemporada.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) + + Dim ConceptoTotales As String = $"{DdlTemporada.SelectedItem.Text}-{DdlSubProyectoCierreCultivo.SelectedItem.Text}" + + CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 53, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, TxtModalConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) + 'FolioPoliza = ObjConta.FolioPoliza If CvePrePoliza > 0 Then + Dim Orden As Integer = 1 + + For Each dRow As DataRow In DT_Datos_Cierre.Rows + + Dim ImporteMovimiento As Decimal = dRow("Importe").ToString.ToDecimal + Dim CveClasificacion As Integer = dRow("CveClasificacion").ToString.ToEntero + Dim Clasificacion As String = dRow("Clasificacion").ToString + Dim TipoMovimiento As Boolean = True + + Dim CveConceptoClasificaiones As Integer = 336 + Dim CveConceptoNominas As Integer = 336 + + Dim CveConceptoTotal As Integer = 69 + + + If CveClasificacion > 0 Then + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, ImporteMovimiento, Clasificacion, CveConceptoClasificaiones, Clasificacion, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then + ErrorProceso = True + Exit For + End If + + Else + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 0, ImporteCierre, ConceptoTotales, 69, ConceptoTotales, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, -1, ImporteMX:=ImporteCierre, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then + ErrorProceso = True + Exit For + End If + + End If + + Orden = Orden + 1 + Next + + + If Not ErrorProceso Then + + Dim ObjGral As New ClsGenerales(ObjConta.IniciaTransacSQL) + + + For Each dRow As DataRow In DT_Datos_Cierre_Cuadros.Rows + If Not ObjGral.UpdateCierreCultivos(dRow("CveCultivoCuadro").ToString.ToEntero, CvePrePoliza, UsuarioActual.CveEmpresa) Then + ErrorProceso = True + Exit For + End If + Next + + + + End If + + + + 'ObjConta.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) + Else ErrorProceso = True End If @@ -128,8 +226,9 @@ Partial Class Agrupecuaria_CierreCultivo ObjConta.RollBack() Else ObjConta.Commit() - + Alert($"Cultivo Cerrado correctamente Ver Pre Póliza") RegistraScript("$('#DivModalCerrarCultivo').modal('hide');") + CargaDatos() End If ObjConta.Dispose() @@ -137,4 +236,23 @@ Partial Class Agrupecuaria_CierreCultivo End Sub + + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + + If e.Row.DataKey("CveClasificacion").ToEntero <= 0 Then + + e.Row.Font.Bold = True + + End If + + End If + + End Sub + + Protected Sub BtnModalCerrarCultivo_Click(sender As Object, e As EventArgs) + CierraCultivo() + End Sub End Class 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 d530802bc..fb3ada64a 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -228,6 +228,8 @@ Public Class ClsContabilidad OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ElseIf ex.Message.Contains("CK_Conta_PrePolizas_Concepto") Then OnError("Ocurrio un error al registrar la póliza, el concepto o descripción no puede ir vacio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then + Alert("No se puede registrar la póliza, póliza duplicada, ya existe una póliza con los datos especificados.", TipoMensaje.MsgAdvertencia) Else OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End If @@ -289,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 @@ -314,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 @@ -1647,6 +1651,8 @@ Public Class ClsContabilidad If ex.Message.Contains("50015;") Then OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then + Alert("No se puede actualizar la póliza, póliza duplicada, ya existe una póliza con los datos especificados.", TipoMensaje.MsgAdvertencia) Else OnError("Ocurrió un error al actualizar prepoliza del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End If diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 73df9a9aa..90c5be8f7 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -15,6 +15,7 @@ Public Class ClsGenerales Private SqlCommand As SqlCommand Private SqlTransacc As SqlTransaction Private Data As DataTable + Private DSet As New DataSet Private disposedValue As Boolean = False 'REGISTRAR CONEXIONES ABIERTAS Private CveConexion As Integer = 0 @@ -50,6 +51,12 @@ Public Class ClsGenerales End Get End Property + Public ReadOnly Property DSResultados() As DataSet + Get + DSResultados = DSet + End Get + End Property + Public Property FolioInsertado As Integer Public Property SerieInsertada As String @@ -3623,18 +3630,40 @@ Public Class ClsGenerales End Function - Public Function GetCierreCultivos(CveTemporada As Integer, CveEmpresa As Integer) As Boolean + Public Function UpdateCierreCultivos(CveCultivoCuadro As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Agro_CierreCultivosGet") + DataAdapter("PA_Agro_CierreCultivosUpdate") With SqlAdapter.SelectCommand.Parameters - .Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada + .Add("@CveCultivoCuadro", SqlDbType.Int).Value = CveCultivoCuadro + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .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 pre póliza del cuadro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function GetCierreCultivos(CveTemporada As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Agro_CierreCultivosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(DSet) + Retorno = True Catch ex As Exception OnError($"Ocurrió un error al obtener los datos de cultivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try @@ -3644,7 +3673,6 @@ Public Class ClsGenerales End Function - #End Region @@ -4031,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..8675d287e 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5903,6 +5903,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 7b7e0e607..452aab6f8 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -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) @@ -8901,32 +8903,39 @@ Public Class ClsPaginas DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("ObjetoImpDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra001BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra001ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra001TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra001TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra001ImporteDR", GetType(Decimal)) + + DTConceptosPagoRelacionado.Columns.Add("Tra002BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra002ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra002TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra002TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra002ImporteDR", GetType(Decimal)) + DTConceptosPagoRelacionado.Columns.Add("Tra003BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra003ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra003TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra003TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra003ImporteDR", GetType(Decimal)) + DTConceptosPagoRelacionado.Columns.Add("Ret001BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret001ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret001TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret001TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret001ImporteDR", GetType(Decimal)) + DTConceptosPagoRelacionado.Columns.Add("Ret002BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret002ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret002TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret002TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret002ImporteDR", GetType(Decimal)) + DTConceptosPagoRelacionado.Columns.Add("Ret003BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret003ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret003TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret003TasaOCuotaDR", GetType(String)) @@ -8934,14 +8943,6 @@ Public Class ClsPaginas - '001 ISR - '002 IVA - '003 IEPS - 'Impuetos - 'Retenciones - - - Dim ObjBancos As New ClsBancos If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then Serie = ObjBancos.DtResultados.FiltroPrimeroValor("Serie") @@ -9114,12 +9115,15 @@ Public Class ClsPaginas Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces) For Each NodoTraslados As XmlNode In NodosTraslados + Dim BaseDR As String = ValorXML(NodoTraslados, "BaseDR") Dim ImpuestoDR As String = ValorXML(NodoTraslados, "ImpuestoDR") ' ImpuestoDR Dim TipoFactor As String = ValorXML(NodoTraslados, "TipoFactorDR") Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR") Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal If ImpuestoDR = "001" Then + + DrRelacionado("Tra001BaseDR") = BaseDR DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR DrRelacionado("Tra001TipoFactorDR") = TipoFactor DrRelacionado("Tra001TasaOCuotaDR") = TasaOCuotaDR @@ -9127,6 +9131,7 @@ Public Class ClsPaginas End If If ImpuestoDR = "002" Then + DrRelacionado("Tra002BaseDR") = BaseDR DrRelacionado("Tra002ImpuestoDR") = ImpuestoDR DrRelacionado("Tra002TipoFactorDR") = TipoFactor DrRelacionado("Tra002TasaOCuotaDR") = TasaOCuotaDR @@ -9134,6 +9139,7 @@ Public Class ClsPaginas End If If ImpuestoDR = "003" Then + DrRelacionado("Tra003BaseDR") = BaseDR DrRelacionado("Tra003ImpuestoDR") = ImpuestoDR DrRelacionado("Tra003TipoFactorDR") = TipoFactor DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR @@ -9143,12 +9149,14 @@ Public Class ClsPaginas For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces) + Dim BaseDR As String = ValorXML(NodoRetenciiones, "BaseDR") Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR") ' ImpuestoDR Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR") Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR") Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal If ImpuestoDR = "001" Then + DrRelacionado("Ret001BaseDR") = BaseDR DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR DrRelacionado("Ret001TipoFactorDR") = TipoFactor DrRelacionado("Ret001TasaOCuotaDR") = TasaOCuotaDR @@ -9156,6 +9164,7 @@ Public Class ClsPaginas End If If ImpuestoDR = "002" Then + DrRelacionado("Ret002BaseDR") = BaseDR DrRelacionado("Ret002ImpuestoDR") = ImpuestoDR DrRelacionado("Ret002TipoFactorDR") = TipoFactor DrRelacionado("Ret002TasaOCuotaDR") = TasaOCuotaDR @@ -9163,6 +9172,7 @@ Public Class ClsPaginas End If If ImpuestoDR = "003" Then + DrRelacionado("Ret003BaseDR") = BaseDR DrRelacionado("Ret003ImpuestoDR") = ImpuestoDR DrRelacionado("Ret003TipoFactorDR") = TipoFactor DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 8d06d1397..852ef415a 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -630,6 +630,7 @@ Public Class ClsSisEmpresas Return Retorno End Function + Public Function UpdateEmpresa(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, Banner As String, Estatus As Boolean, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean, @@ -768,6 +769,37 @@ Public Class ClsSisEmpresas Return Retorno End Function + + + Public Function UpdateEmpresasCertificados(ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, CveEmpresa As Integer) As Boolean + + + Dim Retorno As Boolean = False + + DataAdapter("PA_Sis_EmpresasCertificadosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@ArchivoKey", SqlDbType.VarChar).Value = ArchivoKey + .Add("@ArchivoCer", SqlDbType.VarChar).Value = ArchivoCer + .Add("@ArchivoPfx", SqlDbType.VarChar).Value = ArchivoPfx + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Alert("Ocurrió un error al actualizar los archivos de certificados", TipoMensaje.MsgAdvertencia) + Catch ex As Exception + OnError("Ocurrió un error al actualizar los archivos de certificados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + + Public Function UpdateEmpresaXWizard(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, Regimen As String, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, Buzon_Mail As String, Buzon_Server As String, Buzon_Puerto As Integer, Buzon_SSL As Boolean, Buzon_USR As String, Buzon_PWD As String, CveEmpresa As Integer, diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 198291fb2..7339893cb 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -288,32 +288,50 @@
    -
    - Fecha Factura: -
    -
    + + + + + + + + + +
    Fecha Factura: + - - - - - - - - - - - - - + +
    + + + + + +
    Descripción:
    diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1d54b6c32..3de4b8463 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1899,6 +1899,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 +2903,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 @@ -21142,6 +21154,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/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..cea78df58 100644 --- a/Compras/RepPagadoDetalle.aspx +++ b/Compras/RepPagadoDetalle.aspx @@ -48,8 +48,7 @@
    Proveedor:
    - - +
    Fecha Inicial:
    diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs index 326d99ed8..1ad46e4ff 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,9 @@ 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()); + 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()); 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 @@
    + + + + + + +