From 0749c4d61674b05a6638b30d79e093eff8a2d2c3 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 4 Oct 2019 13:41:01 -0700 Subject: [PATCH 1/4] --- Compras/Compras.aspx.vb | 14 ++++++++------ Contabilidad/RepIVA.aspx.cs | 34 +++++++++++++++++----------------- 2 files changed, 25 insertions(+), 23 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 56add2947..1bf975aa1 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6208,7 +6208,7 @@ Partial Class Compras_Compras Case 176 Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").Rows - If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count = 1 Then + If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count >= 1 Then Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC: {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString} Inv:{ObjOC.DtResultados.FiltroPrimeroValor("FolioAlmacen").ToString}" Importe176 = ObjOC.DtResultados.FiltroPrimeroValor("Importe176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN176").ToDecimal * Dr("Cantidad").ToString.ToDecimal Importe228 = ObjOC.DtResultados.FiltroPrimeroValor("Importe228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN228").ToDecimal * Dr("Cantidad").ToString.ToDecimal @@ -15327,11 +15327,13 @@ Partial Class Compras_Compras TotalFlete = 0 TotalAlmacen = 0 - 'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo - For Each Dr2 As DataRow In DtInv.Rows - TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2) - ListaConsecutivas.Add(Dr2("Consec").ToString) - Next + If DtInv IsNot Nothing Then + 'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo + For Each Dr2 As DataRow In DtInv.Rows + TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2) + ListaConsecutivas.Add(Dr2("Consec").ToString) + Next + End If 'sino hay producto en almacen para aplciarle un servicio, no se debe de amrcar como costo indirecto 'esto aplica cuando la factura solo trae un concepto, y es el de servicio diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 333e3a3a9..35d16ec11 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -68,26 +68,26 @@ public partial class Contabilidad_RepIVA : ClsPaginas { GvT.DataSource = ObjCont.DtResultados; DtIVATrasladado = ObjCont.DtResultados; - if(ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) - { - GvIEPSA.DataSource = ObjCont.DtResultados; - } + //if(ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + //{ + // GvIEPSA.DataSource = ObjCont.DtResultados; + //} - if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) - { - GvIVAA.DataSource = ObjCont.DtResultados; - } + //if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + //{ + // GvIVAA.DataSource = ObjCont.DtResultados; + //} } - if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico)) - { - GvA.DataSource = ObjCont.DtResultados; - DtIVAAcreditable = ObjCont.DtResultados; - if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) - { - GvIVA2.DataSource = ObjCont.DtResultados; - } - } + //if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico)) + //{ + // GvA.DataSource = ObjCont.DtResultados; + // DtIVAAcreditable = ObjCont.DtResultados; + // if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + // { + // GvIVA2.DataSource = ObjCont.DtResultados; + // } + //} ObjCont.Dispose(); GvT.DataBind(); GvA.DataBind(); From ae509d8fd03ca86ea304dba8ba41418cfd942211 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 4 Oct 2019 18:19:32 -0700 Subject: [PATCH 2/4] . --- Contabilidad/RepIVA.aspx.cs | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 35d16ec11..3f8e11bff 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -68,26 +68,26 @@ public partial class Contabilidad_RepIVA : ClsPaginas { GvT.DataSource = ObjCont.DtResultados; DtIVATrasladado = ObjCont.DtResultados; - //if(ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) - //{ - // GvIEPSA.DataSource = ObjCont.DtResultados; - //} + if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + { + GvIEPSA.DataSource = ObjCont.DtResultados; + } + + if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + { + GvIVAA.DataSource = ObjCont.DtResultados; + } - //if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) - //{ - // GvIVAA.DataSource = ObjCont.DtResultados; - //} - } - //if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico)) - //{ - // GvA.DataSource = ObjCont.DtResultados; - // DtIVAAcreditable = ObjCont.DtResultados; - // if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) - // { - // GvIVA2.DataSource = ObjCont.DtResultados; - // } - //} + if (ObjCont.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico)) + { + GvA.DataSource = ObjCont.DtResultados; + DtIVAAcreditable = ObjCont.DtResultados; + if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + { + GvIVA2.DataSource = ObjCont.DtResultados; + } + } ObjCont.Dispose(); GvT.DataBind(); GvA.DataBind(); From 01f4e57579269b7905d4e901f780583c6520ab0d Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 4 Oct 2019 19:21:36 -0700 Subject: [PATCH 3/4] --- Inventarios/Kardex.aspx | 2 +- Inventarios/Kardex.aspx.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index a070a44f6..41e33fc52 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -326,7 +326,7 @@ ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" DataKeyNames="CveMovimiento,FechaMovto"> - + diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index f92c973c9..be1cdb2aa 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -355,7 +355,7 @@ Partial Class Inventarios_Kardex Protected Sub LnkEditarFecha_Click(sender As Object, e As EventArgs) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) CveMovimiento = gvRow.DataKey("CveMovimiento").ToEntero - TxtFecha.Text = gvRow.DataKey("FechaMovto").ToDateTime.ToLocalTime.ToString("yyyy-MM-ddTHH:mm") + TxtFecha.Text = gvRow.DataKey("FechaMovto").ToDateTime.ToString("yyyy-MM-ddTHH:mm") RegistraScript("$('#DModalEditarFecha').modal()") UpModalEditarFecha.Update() End Sub @@ -364,7 +364,7 @@ Partial Class Inventarios_Kardex Protected Sub BtnEditarFecha_Click(sender As Object, e As EventArgs) Dim ObjMov As New ClsMovimientos If ObjMov.UpdateMovimientoFecha(TxtFecha.Text.ToDateTime, CveMovimiento) Then - Alert("Actualizada correctamente." + TxtFecha.Text.ToDateTime.ToLocalTime.ToString("yyyy-MM-ddTHH:mm")) + Alert("Actualizada correctamente a : " + TxtFecha.Text.ToDateTime.ToString("yyyy-MM-dd HH:mm")) RegistraScript("$('#DModalEditarFecha').modal('hide')") CargaDatos() UPDatos.Update() From 0ad131aa45444e2df7d7edda7cdc912e6b7849ea Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 5 Oct 2019 17:03:03 -0500 Subject: [PATCH 4/4] =?UTF-8?q?Actualizacion=20sobre=20la=20asignacion=20y?= =?UTF-8?q?=20permisos=20en=20las=20ordenes=20de=20servicio=20mayormente?= =?UTF-8?q?=20todo=20enfocado=20a=20la=20l=C3=B3gica=20de=20subProyecto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsOS.vb | 28 ++++++- OS/Asignaciones.aspx.vb | 34 +++++++- OS/CatEstatusOrdenServicio.aspx | 53 +++++++----- OS/CatEstatusOrdenServicio.aspx.vb | 124 +++++++++++++++++++---------- OS/OrdenesServicios.aspx.vb | 13 +-- 5 files changed, 181 insertions(+), 71 deletions(-) diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index c425d7c80..565017490 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -1556,7 +1556,7 @@ Public Class ClsOS #End Region #Region "ESTATUS USUARIOS OS" - Public Function GetEstatusUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveEstatusUsuario As Integer = -1) As Boolean + Public Function GetEstatusUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatusUsuario As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_EstatusUsuariosGet") @@ -1564,6 +1564,7 @@ Public Class ClsOS .Add("@CveEstatusUsuario", SqlDbType.Int).Value = CveEstatusUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With Try SqlAdapter.Fill(Data) @@ -1574,7 +1575,7 @@ Public Class ClsOS Return Retorno End Function - Public Function RemoveEstatusUsuarios(CveEstatus As Integer, CveUsuario As Integer) As Boolean + Public Function RemoveEstatusUsuarios(CveEstatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_EstatusUsuariosRemove") @@ -1582,6 +1583,7 @@ Public Class ClsOS With SqlAdapter.SelectCommand.Parameters .Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With Try @@ -1599,7 +1601,7 @@ Public Class ClsOS Return Retorno End Function - Public Function AddEstatusUsuarios(CveEstatusOrdenServicio As Integer, CveUsuario As Integer, CveSubProyecto As Integer) As Boolean + Public Function AddEstatusUsuarios(CveEstatusOrdenServicio As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveUsuarioModifico As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_EstatusUsuarioAdd") @@ -1608,6 +1610,7 @@ Public Class ClsOS .Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatusOrdenServicio .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try @@ -1626,6 +1629,25 @@ Public Class ClsOS Return Retorno End Function + + Public Function GetSubProyectosEstatusInicial(CveUsuario As Integer, TipoEstatus As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OS_SubProyectoInicialGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@TipoEstatus", SqlDbType.Int).Value = TipoEstatus + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Estatus de Usuarios para Ordenes de servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function #End Region diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index f54cc4ea9..591aed260 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -17,12 +17,20 @@ Partial Class OS_Asignaciones ViewState("TmpDT") = value End Set End Property + + Private Property DtOSSubProyectos As DataTable + Get + Return CType(ViewState("DtOSSubProyectos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtOSSubProyectos") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then - CargaEstatusOS() - CargaUsuarios() + 'CargaUsuarios() CargaClientes() CargaSubProyecto() @@ -38,6 +46,7 @@ Partial Class OS_Asignaciones DivAsignacionPersona.Visible = False 'CargaOrdenesServiciosAsignadas() End If + CargarTecnico() Dim ObjEstatusPermisos As New ClsOS If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then @@ -79,6 +88,7 @@ Partial Class OS_Asignaciones FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") If ObjOS.GetOrdenesServiciosNoAsignadas(DdlCliente.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaI, FechaF) Then + DtOSSubProyectos = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) GvNA.DataSource = ObjOS.DtResultados TmpDT = ObjOS.DtResultados Else @@ -138,6 +148,26 @@ Partial Class OS_Asignaciones End If UPFiltros.Update() End Sub + Private Sub CargarTecnico() + Dim ObjOS As New ClsOS + Dim TecnicosSubProyectos As New DataTable + Dim TecnicosResultado As New DataTable + + If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then + TecnicosSubProyectos = ObjOS.DtResultados + End If + + For Each SubProyecto As DataRow In DtOSSubProyectos.Rows + Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto"))).Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero + Dim dtAuxiliar As New DataTable + dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"}) + TecnicosResultado.Merge(dtAuxiliar) + Next + DdlTecnico.DataSource = TecnicosResultado + DdlTecnico.DataBind() + DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1")) + ObjOS.Dispose() + End Sub #End Region #Region "BTN'S" diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx index fc7f2c5ef..f08ec053f 100644 --- a/OS/CatEstatusOrdenServicio.aspx +++ b/OS/CatEstatusOrdenServicio.aspx @@ -4,10 +4,11 @@