diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b10065036..8b3e8406f 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -1027,7 +1027,7 @@ - + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 691ca691f..f5ff23ac0 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -362,6 +362,10 @@ Partial Class ContabilidadC_RegPrePolizaS GvMov.Columns(5).Visible = False End If + 'Estan ocultas por que no estan funcionando OIC 2024-09-04 + GvComplementoPagos.Columns(4).Visible = False + GvComplementoPagos.Columns(6).Visible = False + End If End Sub @@ -2148,13 +2152,12 @@ Partial Class ContabilidadC_RegPrePolizaS dtt = ObjBancos.DtResultados If dtt.Rows.Count > 0 Then UpComplementoPagos.Visible = True - 'GvComplementoPagos.Columns(7).Visible = True ' si tiene el permiso para eliminar IE o editar IE - If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(6).Visible = True + 'If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(6).Visible = True Else DVGenerarComplementoModal.Visible = True End If - GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "SerieFolioPago", "FechaComplemento", "Importe", "CveIE"}) + GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "SerieFolioPago", "FechaComplemento", "Importe", "CveIE", "RFCReceptor", "CvePAC"}) End If ObjBancos.Dispose() @@ -2239,7 +2242,7 @@ Partial Class ContabilidadC_RegPrePolizaS Str.AppendFormat("Folio: {0}  ", Banco.ComplementoSerieFolio) Str.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) Str.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) - MandaCorreo(Banco.ComplementoSerieFolio, Banco.CobranzaCorreo) + 'MandaCorreo(Banco.ComplementoSerieFolio, Banco.CobranzaCorreo) End If Else Banco.RollBack() @@ -2255,7 +2258,8 @@ Partial Class ContabilidadC_RegPrePolizaS 'If e.Row.DataKey("Tipo") = "Ing" Then e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) - e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + 'e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + 'End If End If diff --git a/Contratos/ModificarPresupuesto.aspx.vb b/Contratos/ModificarPresupuesto.aspx.vb index 1e8aaf511..13a9e9a43 100644 --- a/Contratos/ModificarPresupuesto.aspx.vb +++ b/Contratos/ModificarPresupuesto.aspx.vb @@ -334,6 +334,8 @@ Partial Class Contratos_ModificarPresupuesto Dim CvePresupuesto = DdlPresupuesto.SelectedValue.ToEntero Dim CveClasificacion As Integer = DdlModalClasificacion.SelectedValue.ToEntero + Dim dt As DataTable = GlobalDTTiposGastos(UsuarioActual.CveEmpresa, 1) + If CveClasificacion > 0 Then Dim ObjCont As New ClsContratos diff --git a/Contratos/Presupuestos.aspx b/Contratos/Presupuestos.aspx index fbebd008b..1a76b526f 100644 --- a/Contratos/Presupuestos.aspx +++ b/Contratos/Presupuestos.aspx @@ -288,6 +288,16 @@ + + + + + + Total: + + + + diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index caa64a63f..34205ee7a 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/Contratos/Presupuestos.aspx.vb @@ -126,7 +126,10 @@ Partial Class Contratos_Presupuestos End If If e.Row.RowType = DataControlRowType.Footer Then Dim Importe As Decimal = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL") + Dim AmpReduc As Decimal = DtClasificaciones.SUM("AmpReduc", "CveAgrupador IS NOT NULL") + e.Row.FCLabel("LblTotal").Text = String.Format("{0:C}", Importe) + e.Row.FCLabel("LblAmpReducFoot").Text = String.Format("{0:C}", AmpReduc) End If End Sub diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index ef6cf4e23..83fa9dd0f 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -74,11 +74,19 @@ Partial Class Contratos_RepPresupuestos Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() - If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then + + If UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110) Then + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1) + Else + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, -1, DdlProyecto.SelectedValue.ToEntero, -1) + End If + + 'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) End If DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.DataBind() + UpFiltros.Update() End Sub Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs) CargaDatos() diff --git a/Ventas/RepPedidosSTF.aspx b/Ventas/RepPedidosSTF.aspx index 9393f1d83..48ff40fa4 100644 --- a/Ventas/RepPedidosSTF.aspx +++ b/Ventas/RepPedidosSTF.aspx @@ -116,38 +116,77 @@ -
- - - - -
- + +
+ + + + + +
+ + + + + + + + + + + + + + - - - - - - - - + + + + + + + + + + + + + + + + +
+ + +
+ - + - - - - -
-
-
- -
-
- + + + + + + + + + + + +
+ +
+
+ +
+
+ + @@ -175,5 +214,16 @@ + diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb index c07a59176..a7acaaf1e 100644 --- a/Ventas/RepPedidosSTF.aspx.vb +++ b/Ventas/RepPedidosSTF.aspx.vb @@ -7,10 +7,42 @@ Imports Extensiones Partial Class Ventas_RepPedidosSTF Inherits ClsPaginas + Public Property DTProductosEdicion As DataTable + Get + If ViewState("DTProductosEdicion") Is Nothing Then + ViewState("DTProductosEdicion") = New DataTable + End If + Return DirectCast(ViewState("DTProductosEdicion"), DataTable) + End Get + Set(value As DataTable) + ViewState("DTProductosEdicion") = value + End Set + End Property + + Public Property DatosGV As DataTable + Get + If ViewState("DatosGV") Is Nothing Then + ViewState("DatosGV") = New DataTable + End If + Return DirectCast(ViewState("DatosGV"), DataTable) + End Get + Set(value As DataTable) + ViewState("DatosGV") = value + End Set + End Property + + + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + CargaCombos() + CargaProductosEdicion() + End If + End Sub Private Sub CargaCombos() @@ -34,6 +66,8 @@ Partial Class Ventas_RepPedidosSTF Protected Sub CargaDatos() + DatosGV = New DataTable + Dim Opcion As Integer = 1 Dim FechaInicio As Date = MinFecha Dim FechaFin As Date = MaxFecha @@ -43,8 +77,10 @@ Partial Class Ventas_RepPedidosSTF FechaInicio = txtFechaI.Text.ToDate FechaFin = txtFechaF.Text.ToDate Dim ObjVentas As New ClsVentas + If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then GvE.DataSource = ObjVentas.DtResultados + End If ObjVentas.Dispose() GvE.DataBind() @@ -53,7 +89,9 @@ Partial Class Ventas_RepPedidosSTF FechaFin = txtFechaF.Text.ToDate Dim ObjVentas As New ClsVentas If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then - GvDatos.DataSource = ObjVentas.DtResultados + DatosGV = ObjVentas.DtResultados + GvDatos.DataSource = DatosGV + End If ObjVentas.Dispose() GvDatos.DataBind() @@ -61,19 +99,94 @@ Partial Class Ventas_RepPedidosSTF End Sub + + + + Private Sub CargaProductosEdicion() + + DTProductosEdicion = New DataTable + Dim ObjVentas As ClsVentas = New ClsVentas() + If ObjVentas.GetPSSubProyectosVendedores(UsuarioActual.CveEmpresa) Then + DTProductosEdicion = ObjVentas.DtResultados.FiltraParametros($" CveVendedor = {UsuarioActual.CveVendedor}") + End If + ObjVentas.Dispose() + + End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CveVendedor") = "" OrElse e.Row.DBCampo("CvePS") = "" Then e.Row.FCCheckBox("Chk").Visible = False + If e.Row.DBCampo("CveVendedor") = "" OrElse e.Row.DBCampo("CvePS") = "" Then + e.Row.FCCheckBox("Chk").InputAttributes.Add("onclick", $"seleccionVenta('{e.Row.FCCheckBox("Chk").ClientID}','{e.Row.DataKey("CveVenta")}')") + e.Row.FCLinkButton("imgE").Visible = False + Else + e.Row.FCCheckBox("Chk").InputAttributes.Add("class", e.Row.DataKey("CveVenta")) + End If + If e.Row.DBCampo("TipoRenglon") = "1" Then e.Row.CssClass = "SubTotales" End If + + If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then + If e.Row.DBCampo("CveVendedor") = "" OrElse e.Row.DBCampo("CvePS") = "" Then + Else + + e.Row.FCDropDownList("DdlPS").DataSource = DTProductosEdicion + e.Row.FCDropDownList("DdlPS").DataBind() + e.Row.FCDropDownList("DdlPS").SelectedValueExist(e.Row.DBCampo("CvePS")) + + End If + End If + End Sub + + + Protected Sub GvDatos_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing + GvDatos.EditIndex = e.NewEditIndex + CargaGvDatos() + End Sub + + Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit + GvDatos.EditIndex = -1 + + CargaGvDatos() + End Sub + + Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating + + + Dim Cantidad As Decimal = GvDatos.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDecimal + Dim CvePSNuevo As Integer = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlPS").SelectedValue.ToEntero + Dim PSNuevo As String = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlPS").SelectedItem.Text + Dim PU As Decimal = DTProductosEdicion.FiltroPrimeroValor("Precio", $"CvePS = {CvePSNuevo}").ToDecimal + + DatosGV.Rows(GvDatos.EditIndex)("Cantidad") = Cantidad + DatosGV.Rows(GvDatos.EditIndex)("CvePS") = CvePSNuevo + DatosGV.Rows(GvDatos.EditIndex)("CodigoPS") = PSNuevo + + DatosGV.AcceptChanges() + + GvDatos.EditIndex = -1 + + GvDatos.DataSource = DatosGV + GvDatos.DataBind() + UPDatos.Update() + + End Sub + + Private Sub CargaGvDatos() + GvDatos.DataSource = DatosGV + GvDatos.DataBind() + UPDatos.Update() + End Sub + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) CargaDatos() UPDatos.Update() End Sub + + Protected Sub BtnEntregar_Click(sender As Object, e As EventArgs) 'validar que están seleccionados Dim TmpDTRemis As New DataTable @@ -86,9 +199,12 @@ Partial Class Ventas_RepPedidosSTF TmpDTRemis.Columns.Add("PU", GetType(Decimal)) TmpDTRemis.Columns.Add("CveVendedor", GetType(Decimal)) TmpDTRemis.Columns.Add("GastosEnvio", GetType(Decimal)) + TmpDTRemis.Columns.Add("Observacion", GetType(String)) 'agruparo por cliente + For Each gvr As GridViewRow In GvDatos.Rows - If gvr.FCCheckBox("chk").Checked Then + + If gvr.DataKey("CveVendedor").ToEntero > 0 AndAlso gvr.DataKey("CvePS").ToEntero > 0 AndAlso gvr.FCCheckBox("chk").Checked Then Dim drp As DataRow = TmpDTRemis.NewRow drp("CvePS") = gvr.DataKey("CvePS").ToEntero drp("Cantidad") = gvr.DataKey("Cantidad").ToDecimal @@ -99,6 +215,8 @@ Partial Class Ventas_RepPedidosSTF drp("CveVendedor") = gvr.DataKey("CveVendedor").ToEntero drp("CveVentaDetalle") = gvr.DataKey("CveVentaDetalle").ToEntero drp("GastosEnvio") = gvr.DataKey("GastosEnvio").ToDecimal + drp("Observacion") = gvr.DataKey("SerieFolio") + TmpDTRemis.Rows.Add(drp) End If Next @@ -120,7 +238,7 @@ Partial Class Ventas_RepPedidosSTF For Each dr As DataRow In TmpDTRemis.FiltraParametros($"CveCliente ={drt("CveCliente")} AND CveVendedor = {drt("CveVendedor")} AND CveSubProyecto = {drt("CveSubProyecto")}").Rows If ObjFactura IsNot Nothing Then - If Not ObjFactura.AgregarPS(dr("CvePS").ToString.ToEntero, dr("Cantidad").ToString.ToDecimal, dr("PU").ToString.ToDecimal, 0, "", CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, CveVentaDetallePadre:=dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjFactura.AgregarPS(dr("CvePS").ToString.ToEntero, dr("Cantidad").ToString.ToDecimal, dr("PU").ToString.ToDecimal, 0, dr("Observacion").ToString, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, CveVentaDetallePadre:=dr("CveVentaDetalle").ToString.ToEntero) Then Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia) TieneError = True Exit For @@ -133,8 +251,8 @@ Partial Class Ventas_RepPedidosSTF Next If drt("GastosEnvio").ToString.ToDecimal > 0 Then - Dim tCvePSEnvio As Integer = usuarioactual.empresa.Funcionalidad(160).toentero - If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, "", CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then + Dim tCvePSEnvio As Integer = usuarioactual.empresa.Funcionalidad(160).ToEntero + If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, drt("Observacion").ToString, CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then TieneError = True End If End If