diff --git a/AF/OrdenTrabajo.aspx b/AF/OrdenTrabajo.aspx index d11bfb317..55c220d37 100644 --- a/AF/OrdenTrabajo.aspx +++ b/AF/OrdenTrabajo.aspx @@ -138,6 +138,9 @@
+
+ +
Baja @@ -289,7 +292,7 @@ - + @@ -317,7 +320,7 @@ diff --git a/AF/OrdenTrabajo.aspx.vb b/AF/OrdenTrabajo.aspx.vb index 17c74f7c4..70cbcf6f1 100644 --- a/AF/OrdenTrabajo.aspx.vb +++ b/AF/OrdenTrabajo.aspx.vb @@ -33,14 +33,21 @@ Partial Class AF_OrdenTrabajo Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then + CargaCombos() If Request("CveOrdenTrabajo") IsNot Nothing Then CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero + + DVFechaFin.Visible = True Tab.Visible = True + CargaDatos() + + + End If - CargaCombos() + End If End Sub @@ -95,10 +102,7 @@ Partial Class AF_OrdenTrabajo #End Region #Region " CARGA DATOS " - 'Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs) - ' CargaDatos() - 'End Sub #End Region @@ -107,6 +111,40 @@ Partial Class AF_OrdenTrabajo Private Sub CargaDatos() + + + Dim ObjAF As New ClsAF + + If ObjAF.GetOrdenesTrabajo(CveOrdenTrabajo, -1, -1, -1, -1, -1, MinFecha, MaxFecha, Nothing, -1, UsuarioActual.CveEmpresa) Then + + If ObjAF.DtResultados IsNot Nothing AndAlso ObjAF.DtResultados.Rows.Count > 0 Then + + LblFolio.Text = $"Folio OT: {ObjAF.DtResultados(0)("Folio").ToString}" + + DdlSubProyecto.SelectedValueExist(ObjAF.DtResultados(0)("CveSubProyecto").ToString) + DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString) + DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString) + TxtServicio.Text = ObjAF.DtResultados(0)("Servicio").ToString + DdlPrioridad.SelectedValueExist(ObjAF.DtResultados(0)("Prioridad").ToString) + txtFechaI.Text = ObjAF.DtResultados(0)("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy") + + If ObjAF.DtResultados(0)("FechaFin").ToString.Length > 0 Then + txtFechaF.Text = ObjAF.DtResultados(0)("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy") + End If + + 'txtFechaFinReal.Text "" + DdlOrdenesTrabajoEstatus.SelectedValueExist(ObjAF.DtResultados(0)("CveEstatusOT").ToString) + + + + Else + Alert("No se encontro la orden de rtabajo", TipoMensaje.MsgAdvertencia) + End If + End If + + ObjAF.Dispose() + + CargaMaterial() CargaActividades() CargaCheckList() @@ -152,6 +190,71 @@ Partial Class AF_OrdenTrabajo Else + Dim ObjAF As New ClsAF + ObjAF.IniciaTransacSQL() + Dim ErrorProceso As Boolean = False + + + Dim FechaFinal As Date = MaxFecha + Dim FechaFinReal As Date = MaxFecha + + + If txtFechaF.Text.ToDate > MinFecha Then + FechaFinal = txtFechaF.Text.ToDate + End If + + If Not ObjAF.UpdateOrdenesTrabajo(CveOrdenTrabajo, DdlTipoServicio.SelectedValue.ToEntero, DdlAF.SelectedValue.ToEntero, TxtServicio.Text.Trim, DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, txtFechaI.Text.ToDate, FechaFinal, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + ErrorProceso = True + End If + + If Not ErrorProceso Then + For Each GvRow As GridViewRow In GvActividades.Rows + + Dim Chk As CheckBox = GvRow.FCCheckBox("Chk") + Dim TxtObservaciones As TextBox = GvRow.FCTextBox("TxtObservaciones") + Dim CveOrdenTrabajoActividad As Integer = GvRow.DataKey("CveOrdenTrabajoActividad").ToEntero + + If Not ObjAF.UpdateOrdenesTrabajoActividades(CveOrdenTrabajoActividad, "-1", If(Chk.Checked, 1, 0), TxtObservaciones.Text, UsuarioActual.CveEmpresa) Then + ErrorProceso = True + Exit For + End If + + Next + End If + + + If Not ErrorProceso Then + For Each GvRow As GridViewRow In GvCheckList.Rows + + Dim Chk As CheckBox = GvRow.FCCheckBox("Chk") + Dim TxtObservaciones As TextBox = GvRow.FCTextBox("TxtObservaciones") + Dim CveOrdenTrabajoCheckList As Integer = GvRow.DataKey("CveOrdenTrabajoCheckList").ToEntero + Dim RBL As RadioButtonList = GvRow.FCRadioButtonList("RDLSINOND") + Dim Estatus As Integer = 0 + + If RBL.SelectedValue.ToEntero > 0 Then + Estatus = RBL.SelectedValue.ToEntero + End If + + If CveOrdenTrabajoCheckList > 0 Then + + If Not ObjAF.UpdateOrdenesTrabajoCheckList(CveOrdenTrabajoCheckList, "-1", If(Chk.Checked, 1, 0), TxtObservaciones.Text, Estatus, UsuarioActual.CveEmpresa) Then + ErrorProceso = True + Exit For + End If + + End If + Next + End If + + + If Not ErrorProceso Then + ObjAF.Commit() + Alert($"Orden de trabajo actualizada correctamente.") + Else + ObjAF.RollBack() + End If + End If @@ -161,165 +264,6 @@ Partial Class AF_OrdenTrabajo -#Region "DESCARGA EXCEL" - - 'Public Sub ExportToExcelG(Gv1 As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional filtros As String = "") - - - - ' For Each GvRow As GridViewRow In Gv1.Rows - - ' Dim IDX_LIMPIAR As Integer = 1 - - ' For IDX_LIMPIAR = 1 To 15 - ' GvRow.Cells(IDX_LIMPIAR).Text = GvRow.FCTextBox($"TxtMetrica{IDX_LIMPIAR}").Text - ' Next - - ' If GvRow.FCDropDownList("DDLPersonal").SelectedValue.ToEntero > 0 Then - ' GvRow.Cells(16).Text = GvRow.FCDropDownList("DDLPersonal").SelectedItem.Text - ' Else - ' GvRow.Cells(16).Text = "" - ' End If - - ' Next - - - - ' Dim sw1 As New StringWriter() - ' Dim htw1 As New HtmlTextWriter(sw1) - ' Gv1.RenderControl(htw1) - - ' Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault - ' Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString())) - - ' htmlStream1.Position = 0 - ' Dim sr1 As New StreamReader(htmlStream1) - ' Dim myStr1 = sr1.ReadToEnd() - - ' sr1.Dispose() - ' htmlStream1.Dispose() - ' sw1.Dispose() - - ' Dim HtmlCompleto As String = myStr1 - - - ' HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") - - ' Dim asd As String = "" - - - ' Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) - - ' GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet()) - - ' Dim excel As GemBox.Spreadsheet.ExcelFile - - ' excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) - - ' If Usuario IsNot Nothing Then - ' Dim TotalRowHeader As Integer = 8 - ' Dim TotalRowFooter As Integer = 2 - - ' Dim worksheet = excel.Worksheets(0) - ' worksheet.Rows.InsertEmpty(0, TotalRowHeader) - ' Dim celdasConTexto = worksheet.GetUsedCellRange(True) - ' celdasConTexto.Style.Font.Name = "Calibri Light" - - ' Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) - ' RangoNombreEmpresa.Merged = True - ' RangoNombreEmpresa.Value = Usuario.Empresa.Empresa - ' RangoNombreEmpresa.Style.Font.Size = 18 * 20 - ' RangoNombreEmpresa.Style.Font.Name = "Calibri Light" - ' RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - ' RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - - ' Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex) - ' RangoFiltros.Merged = True - ' RangoFiltros.Value = filtros - ' RangoFiltros.Style.Font.Size = 15 * 20 - ' RangoFiltros.Style.Font.Name = "Calibri Light" - ' RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left - ' RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - - ' Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) - ' RangoTitulo.Merged = True - ' RangoTitulo.Value = Titulo - ' RangoTitulo.Style.Font.Size = 20 * 20 - ' RangoTitulo.Style.Font.Name = "Calibri Light" - ' RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - ' RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - ' For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - ' worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20 - ' worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - ' worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - ' worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - ' worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - - - - - ' If i > 0 Then - ' Try - ' worksheet.Columns(i).AutoFit(1) - ' Catch ex As Exception - ' End Try - ' End If - - ' Next - - ' Dim IndexEndTable As Integer = Gv1.Rows.Count + 4 + TotalRowHeader + TotalRowFooter - - ' worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió" - ' worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre - - ' worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión" - ' worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy") - - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) - - ' If Imagen.Exists Then - ' Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) - ' Using sr As New StreamReader(Ruta) - ' Dim ms As New MemoryStream() - ' sr.BaseStream.CopyTo(ms) - ' worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) - ' End Using - ' End If - - ' End If - - - - - ' Dim memoryStream As New MemoryStream() - ' excel.Save(memoryStream, SaveOptions.XlsxDefault) - ' ReporteBytes = memoryStream.ToArray() - ' memoryStream.Dispose() - - 'End Sub - - - 'Protected Sub LnkDescargaReporte_Click(sender As Object, e As EventArgs) - - - ' Response.ContentType = "application/force-download" - ' Response.AppendHeader("Content-Disposition", $"attachment;filename=RegistroRevision{Now.ToString("yyyyMMddmmss")}.xlsx") - ' Response.BinaryWrite(ReporteBytes) - ' Response.End() - - 'End Sub - - - 'Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) - 'End Sub - -#End Region - - #Region "FOLIOS" @@ -435,6 +379,17 @@ Partial Class AF_OrdenTrabajo End Sub Protected Sub GvActividades_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + Dim Chk As CheckBox = e.Row.FCCheckBox("Chk") + + If Boolean.Parse(e.Row.DataKey("Terminado")) Then + Chk.Checked = True + Else + Chk.Checked = False + End If + End If + + End Sub Protected Sub GvCheckList_RowDataBound(sender As Object, e As GridViewRowEventArgs) @@ -447,13 +402,15 @@ Partial Class AF_OrdenTrabajo If e.Row.DataKey("CveOrdenTrabajoCheckList").ToEntero = 0 Then e.Row.FCLiteral("LtlNROW").Text = e.Row.DataKey("CheckListActividadGrupo").ToString - e.Row.Attributes.Add("style", "background-color:#DDD") Chk.Visible = False RDLSINOND.Visible = False TxtObservaciones.Visible = False Else + Dim Estatus As String = e.Row.DataKey("Estatus") + + RDLSINOND.SelectedValuesIfExist(Estatus) If Boolean.Parse(e.Row.DataKey("Terminado")) Then Chk.Checked = True @@ -464,9 +421,6 @@ Partial Class AF_OrdenTrabajo End If - - - End If End Sub diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 09c6e2dce..201458f77 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -4279,6 +4279,41 @@ Public Class ClsAF + Public Function UpdateOrdenesTrabajo(CveOrdenTrabajo As Integer, CveTipoServicio As Integer, CveAF As Integer, Servicio As String, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_OrdenesTrabajoUpdate") + + With SqlAdapter.SelectCommand.Parameters + + + .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo + .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@Servicio", SqlDbType.VarChar).Value = Servicio + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Prioridad", SqlDbType.Int).Value = Prioridad + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal + .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT + .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 orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function Public Function GetOrdenesTrabajoMateriales(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean @@ -4330,6 +4365,35 @@ Public Class ClsAF End Function + + Public Function UpdateOrdenesTrabajoActividades(CveOrdenTrabajoActividad As Integer, Valor As String, Terminado As Integer, Observaciones As String, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_OrdenesTrabajoActividadesUpdate") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveOrdenTrabajoActividad", SqlDbType.Int).Value = CveOrdenTrabajoActividad + .Add("@Valor", SqlDbType.VarChar).Value = Valor + .Add("@Terminado", SqlDbType.Int).Value = Terminado + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + Public Function GetOrdenesTrabajoCheckList(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4355,6 +4419,35 @@ Public Class ClsAF End Function + Public Function UpdateOrdenesTrabajoCheckList(CveOrdenTrabajoCheckList As Integer, Valor As String, Terminado As Integer, Observaciones As String, Estatus As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_OrdenesTrabajoCheckListUpdate") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveOrdenTrabajoCheckList", SqlDbType.Int).Value = CveOrdenTrabajoCheckList + .Add("@Valor", SqlDbType.VarChar).Value = Valor + .Add("@Terminado", SqlDbType.Int).Value = Terminado + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el check list", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + #End Region #End Region diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index b9f29edb9..af063505a 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -3130,7 +3130,7 @@ Public Class ClsBancos Retorno = True Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Then + If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then Alert("Ya existe un registro con el mismo Folio", TipoMensaje.MsgAdvertencia) Else Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 055d4bf36..10ec25ddd 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1682,13 +1682,13 @@ Public Class ClsProductosServicios End Try Return Retorno - End Function + End Function #End Region - - + + #Region "Precios Lista" Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1, - Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1") As Boolean + Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1", Optional CveModelo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PSPrecioListaGet") With SqlAdapter.SelectCommand.Parameters @@ -1699,6 +1699,7 @@ Public Class ClsProductosServicios .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@Estado", SqlDbType.Int).Value = Estado .Add("@Marcas", SqlDbType.VarChar).Value = Marcas + .Add("@CveModelo", SqlDbType.Int).Value = CveModelo End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index f64700eb6..1a5c1befa 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -12,7 +12,7 @@ - + @@ -28,7 +28,7 @@ - + @@ -46,7 +46,7 @@ - + @@ -64,7 +64,7 @@ - + @@ -87,7 +87,7 @@ - + @@ -111,7 +111,7 @@ - + @@ -137,7 +137,7 @@ - + @@ -153,7 +153,7 @@ - + @@ -170,7 +170,7 @@ - + @@ -179,7 +179,7 @@ - + @@ -215,7 +215,7 @@ - + @@ -240,7 +240,7 @@ - + @@ -256,7 +256,7 @@ - + @@ -294,6 +294,25 @@ + + + + + + + + + + + + + + + + + + + diff --git a/App_Code/DtDatos.xss b/App_Code/DtDatos.xss index e0a664890..7c380feb0 100644 --- a/App_Code/DtDatos.xss +++ b/App_Code/DtDatos.xss @@ -4,21 +4,23 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 53b55b73a..abbd281cd 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -18001,8 +18001,13 @@ Partial Class Compras_Compras Private Sub ReclasificaSubProyecto() If Not GvPS.Rows.Count > 0 Then - Alert("No hay partidas para reclasificar el SubProyecto", TipoMensaje.MsgAdvertencia) - Exit Sub + + If CveCompra <> Nothing And CveCompra > 0 Then + Alert("No hay partidas para reclasificar el SubProyecto", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If If Not DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index 5e60f096a..6c146f4f5 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -145,7 +145,7 @@ - + diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 7c6df76ed..dae766096 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -25,6 +25,16 @@ public partial class Contabilidad_RepIVA : ClsPaginas get { return DtIVAAcreditable = (DataTable)ViewState["DtIVAAcreditable"]; } set { ViewState["DtIVAAcreditable"] = value; } } + private DataTable DtIEPSA + { + get { return DtIVAAcreditable = (DataTable)ViewState["DtIEPSA"]; } + set { ViewState["DtIEPSA"] = value; } + } + private DataTable DtIVAA + { + get { return DtIVAAcreditable = (DataTable)ViewState["DtIVAA"]; } + set { ViewState["DtIVAA"] = value; } + } private double TCEspecifico { get { return TCEspecifico = (double)ViewState["TCEspecifico"]; } @@ -72,11 +82,13 @@ public partial class Contabilidad_RepIVA : ClsPaginas if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { GvIEPSA.DataSource = ObjCont.DtResultados; + DtIEPSA = ObjCont.DtResultados; } if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { GvIVAA.DataSource = ObjCont.DtResultados; + DtIVAA = ObjCont.DtResultados; } } @@ -205,7 +217,8 @@ public partial class Contabilidad_RepIVA : ClsPaginas para.Add(new CrystalParametro("Excel", Formato)); string Ruta = (ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}"); Ruta.GuardaLogAD(); - ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); + ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); + //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); } else { diff --git a/Empresas/Grales/Formatos/RepIVA.rpt b/Empresas/Grales/Formatos/RepIVA.rpt index d3b3d6240..a9b34948e 100644 Binary files a/Empresas/Grales/Formatos/RepIVA.rpt and b/Empresas/Grales/Formatos/RepIVA.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt index d29e92534..af959d4b5 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fe3846255..7b394c0fd 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1234,6 +1234,10 @@ Partial Class OC If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero + 'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO' + If CveConfianzaProveedor <= 0 Then + CveConfianzaProveedor = 2 + End If End If 'Anticipos @@ -5335,9 +5339,17 @@ Partial Class OC If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If Objeto.DtResultados.Rows.Count > 0 Then - Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero() - ChkCotizacion.Checked = CveConfianzaProveedor > 0 - ChkCotizacion.Enabled = CveConfianzaProveedor <= 0 + If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then + Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero() + 'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO' + If CveConfianzaProveedor <= 0 Then + CveConfianzaProveedor = 2 + End If + + ChkCotizacion.Checked = CveConfianzaProveedor > 0 + ChkCotizacion.Enabled = CveConfianzaProveedor <= 0 + End If + End If End If diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index e11bc84a5..7fa9d0f4f 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -54,6 +54,7 @@
+
@@ -67,6 +68,11 @@ Incativos
+ +
+ + +
diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 0bb9d3497..88f56a0be 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -66,6 +66,7 @@ Partial Class Ventas_ActualizarPrecios CargaPreciosLista() CargaProveedores() CargarMarcas() + CargarModelos() End Sub Public Sub CargaDDlClasif() DDlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) @@ -141,6 +142,20 @@ Partial Class Ventas_ActualizarPrecios DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) End Sub + Private Sub CargarModelos() + If UsuarioActual.Empresa.Funcionalidad(558).ToString = "1" Then + lblModelo.visible = True + DdlModelo.Visible = True + Dim ObjGeneral As New ClsGenerales + If ObjGeneral.GetModelos(UsuarioActual.CveEmpresa) Then + DdlModelo.DataSource = ObjGeneral.DtResultados + End If + ObjGeneral.Dispose() + DdlModelo.DataBind() + DdlModelo.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + + End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Dim objPS As New ClsProductosServicios Dim CveProveedor As Integer = -1 @@ -156,7 +171,7 @@ Partial Class Ventas_ActualizarPrecios End If If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS, - CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas) Then + CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas, CveModelo:=DdlModelo.SelectedValue.ToEntero) Then GVPrecios.DataSource = objPS.DtResultados End If objPS.Dispose()