From 30003c811297b811af406b3a2520eaa90459a840 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 25 Sep 2019 13:59:12 -0700 Subject: [PATCH 01/13] Muestra condiciones de pago - Contado en Cotizacion --- Ventas/Ventas.aspx | 8 ++--- Ventas/Ventas.aspx.vb | 83 +++++++++++++++++++++++-------------------- 2 files changed, 48 insertions(+), 43 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 61fab4d79..2ffbcee2f 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2952,14 +2952,14 @@ -
+
-
- - Meses +
+ + MSI 3M 6M 9M diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 926400c13..0bf601e81 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2436,7 +2436,7 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then DivMesesSinIntereses.Visible = True - DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-3") + DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") DivContadoOtros.Visible = True End If @@ -16143,7 +16143,7 @@ Partial Class Ventas Case 1 'CREDITO TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString Case 2 'CONTADO - If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then DivContado.Visible = True TxtImporteContado.Text = TxtTotal.Text End If @@ -22595,50 +22595,55 @@ Partial Class Ventas #Region " EMITIR DOCUMENTO NUEVO " Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) - Dim FolioFijo As Integer = 0 - 'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION - If EraCotizacion = 1 Then - If Not PreparaFacturarCotizacion() Then - EraCotizacion = 0 - DdlTipoComprobante.SelectedValue = "Cot" - Exit Sub + If GvPagos.Rows.Count > 0 And GvPagos IsNot Nothing Then + Dim FolioFijo As Integer = 0 + + 'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION + If EraCotizacion = 1 Then + If Not PreparaFacturarCotizacion() Then + EraCotizacion = 0 + DdlTipoComprobante.SelectedValue = "Cot" + Exit Sub + End If End If - End If - 'CARGA LO PENDIENTE POR FACTURAR DE REMISION - If DdlTipoComprobante.SelectedValue = "Rem" Then - If Not PreparaFacturarRemision() Then - DdlTipoComprobante.SelectedValue = "Rem" - Exit Sub + 'CARGA LO PENDIENTE POR FACTURAR DE REMISION + If DdlTipoComprobante.SelectedValue = "Rem" Then + If Not PreparaFacturarRemision() Then + DdlTipoComprobante.SelectedValue = "Rem" + Exit Sub + End If End If - End If - 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2 - If DdlTipoComprobante.SelectedValue = "Pd2" Then - If Not PreparaFacturarPedido() Then - DdlTipoComprobante.SelectedValue = "Pd2" - Exit Sub + 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2 + If DdlTipoComprobante.SelectedValue = "Pd2" Then + If Not PreparaFacturarPedido() Then + DdlTipoComprobante.SelectedValue = "Pd2" + Exit Sub + End If End If + + 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION + If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización + FolioFijo = TxtFolio.Text.ToEntero + ViewState("FolioActual") = FolioFijo + ViewState("EstablecioFolio") = True + TxtFolio.Text = FolioFijo.ToString + End If + + Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue + DdlTipoComprobante.SelectedValue = TipoDoctoNuevo + TxtFecha.Text = Now.ToString + TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString + TxtFechaEjecucion.Text = Now.ToString + + + If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO + EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO + Else + Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia) End If - 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION - If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización - FolioFijo = TxtFolio.Text.ToEntero - ViewState("FolioActual") = FolioFijo - ViewState("EstablecioFolio") = True - TxtFolio.Text = FolioFijo.ToString - End If - - Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue - DdlTipoComprobante.SelectedValue = TipoDoctoNuevo - TxtFecha.Text = Now.ToString - TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString - TxtFechaEjecucion.Text = Now.ToString - - - If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO - EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO - End Sub #End Region From d93718fb2bc1e5a5882c2a22612f5d6f494f760d Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 25 Sep 2019 14:33:01 -0700 Subject: [PATCH 02/13] --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 2ffbcee2f..93e5d8659 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2952,7 +2952,7 @@
-
+
From d8d3f6890de4990737b787f443c14337f09d7c70 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 25 Sep 2019 14:46:42 -0700 Subject: [PATCH 03/13] --- Ventas/Ventas.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0bf601e81..6d798bf11 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -22595,7 +22595,9 @@ Partial Class Ventas #Region " EMITIR DOCUMENTO NUEVO " Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) - If GvPagos.Rows.Count > 0 And GvPagos IsNot Nothing Then + If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then + Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia) + Else Dim FolioFijo As Integer = 0 'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION @@ -22640,8 +22642,6 @@ Partial Class Ventas If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO - Else - Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia) End If End Sub From 4b1c4142d2862d5ec33ff0b78744697051f1ffca Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 25 Sep 2019 14:55:21 -0700 Subject: [PATCH 04/13] --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6d798bf11..6ac219c9d 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -22595,7 +22595,7 @@ Partial Class Ventas #Region " EMITIR DOCUMENTO NUEVO " Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) - If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then + If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And RBLPago.SelectedValue.ToEntero = 2 Then Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia) Else Dim FolioFijo As Integer = 0 From 159b599f7aa01d555678afe86925850b10510b40 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 25 Sep 2019 18:25:40 -0500 Subject: [PATCH 05/13] checkpoint de los puntos principales con implementar los estatus de orden servicio --- App_Code/ClsGenerales.vb | 2 +- OS/Asignaciones.aspx | 4 +- OS/Asignaciones.aspx.vb | 1 + OS/CatEstatusOrdenServicio.aspx.vb | 2 +- OS/OrdenesServicios.aspx.vb | 68 ++++++++++++++++++------------ 5 files changed, 47 insertions(+), 30 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 53081a2e4..86122f871 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -117,7 +117,7 @@ Public Class ClsGenerales SqlAdapter.Fill(Data) Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error registrar el cierre de conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try CveConexion = 0 End If diff --git a/OS/Asignaciones.aspx b/OS/Asignaciones.aspx index 9d347427f..ea189147a 100644 --- a/OS/Asignaciones.aspx +++ b/OS/Asignaciones.aspx @@ -155,8 +155,8 @@ Ordenes Sin Asignar
- - + +
diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index f3cbf201b..f54cc4ea9 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -48,6 +48,7 @@ Partial Class OS_Asignaciones BtnAsignar.Visible = False End If End If + ObjEstatusPermisos.Dispose() End If End Sub diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index cead5cc0d..71ccfd3a3 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -191,7 +191,7 @@ Partial Class OS_CatEstatusOrdenServicio Protected Sub CargaGridEstatusUsuarios() GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) GvEstatusUsuarios.DataBind() - UPPEmp.Update() + 'UPPEmp.Update() End Sub Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index a86041d35..19c6aa3e4 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -222,6 +222,14 @@ Partial Class OS_OrdenesServicios ViewState("TmpDTCuentaEquipo") = value End Set End Property + Private Property EstatusOSDelUsuario As DataTable + Get + Return CType(ViewState("EstatusOSDelUsuario"), DataTable) + End Get + Set(value As DataTable) + ViewState("EstatusOSDelUsuario") = value + End Set + End Property Private Property MensajeAlert As StringBuilder Get Return CType(ViewState("MensajeAlert"), StringBuilder) @@ -263,6 +271,16 @@ Partial Class OS_OrdenesServicios CreaDtSolicitarMateriales() CveSub = -1 'Carga estatus + Dim ObjEstatusPermisos As New ClsOS + If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados + Dim PermisoEstatus As New DataTable + PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1") + If PermisoEstatus.Rows.Count = 0 Then + UpGuardar.Visible = False + End If + End If + ObjEstatusPermisos.Dispose() CargaEstatusOS(2) 'Carga cliente @@ -298,7 +316,7 @@ Partial Class OS_OrdenesServicios 'Carga OS If CveOS > 0 Then CargaDatos() - PermisosSegunEstatus() + 'PermisosSegunEstatus() CargaDetalles() CargaMateriales() @@ -324,15 +342,6 @@ Partial Class OS_OrdenesServicios hdnEsThickbox.Value = "S" hdnClientIDLink.Value = "NoDefinido" - Dim ObjEstatusPermisos As New ClsOS - If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Dim PermisoEstatus As New DataTable - PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1") - If PermisoEstatus.Rows.Count = 0 Then - UpGuardar.Visible = False - End If - End If - ObjEstatusPermisos.Dispose() End If End Sub @@ -367,13 +376,13 @@ Partial Class OS_OrdenesServicios TmpDT.AcceptChanges() End Sub Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged - Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "CveEstatusOrdenServicio ASC") + Dim tipoDeEstatusSeleccionado As String = EstatusOSDelUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)).Item("TipoEstatusTexto").ToString - Select Case TipoEstatus.ToEntero - Case 2 + Select Case tipoDeEstatusSeleccionado + Case "Inicial" 'Proceso - Case 3 + Case "Terminado" 'Terminada 'Checar que todos los detalles esten terminados para poder cambiar a terminada If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then @@ -382,18 +391,23 @@ Partial Class OS_OrdenesServicios 'Regresar a estatus Atendiendo 'DdlEstatusOS.SelectedValue = "2" End If - Case 4 - 'Cancelada - Case 5 - 'Entregada - Guardar(True) + ' Case 4 + ' 'Cancelada + ' Case 5 + ' 'Entregada + ' Guardar(True) + Case "Cancelada" + Dim CanceladoOrdenMinimo As String = EstatusOSDelUsuario.FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5", "Orden ASC").ToString + DdlEstatusOS.SelectedValue = CanceladoOrdenMinimo + + 'DdlEstatusOS.SelectedIndex = CanceladoOrdenMinimo End Select - 'CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero) - PermisosSegunEstatus() + ''CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero) + 'PermisosSegunEstatus() - GvPS.DataSource = TmpDT - GvPS.DataBind() + 'GvPS.DataSource = TmpDT + 'GvPS.DataBind() End Sub #End Region @@ -647,9 +661,9 @@ Partial Class OS_OrdenesServicios End Sub Private Sub CargaEstatusOS(ValorSeleccionado As Integer) DdlEstatusOS.Items.Clear() - DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) + DdlEstatusOS.DataSource = EstatusOSDelUsuario DdlEstatusOS.DataBind() - DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "CveEstatusOrdenServicio ASC") + DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC") End Sub Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList) Objeto.Items.Clear() @@ -1455,7 +1469,9 @@ Partial Class OS_OrdenesServicios Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero - If DetallesPendientes = 0 Then + Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero + + If DetallesPendientes = 0 AndAlso TipoEstatusSeleccionado = 2 Then 'Se estatus de OS a TERMINADO DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC")) DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs) From be8573b488f598641d000d8a07f28dea01bb58f8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 26 Sep 2019 11:03:44 -0700 Subject: [PATCH 06/13] s --- Ashx/SIGWeb.ashx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 752e8074c..ae2cd9e34 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -219,7 +219,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero Dim objInv As New ClsInventarios - If objInv.GetExistenciasPS(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then + If objInv.GetExistenciasProducto(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then ' limpio los almacenes donde no tiene ningun producto existencia For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1 @@ -300,7 +300,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If - If usuario.Empresa.Funcionalidad(558) = 1 Then + If usuario.Empresa.Funcionalidad(558) = "1" Then Try Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0") From 46ce6ba6de9b941fef373c309194dc9c4d759f78 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 26 Sep 2019 11:17:22 -0700 Subject: [PATCH 07/13] Funcionalidad de llantera correcta --- Ashx/SIGWeb.ashx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 752e8074c..8e86a783f 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -300,7 +300,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If - If usuario.Empresa.Funcionalidad(558) = 1 Then + If usuario.Empresa.Funcionalidad(558).ToEntero = 1 Then Try Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0") From 4b27b46d111285b0358146b89a4641e2a1731fdc Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 26 Sep 2019 11:26:54 -0700 Subject: [PATCH 08/13] Revert "Funcionalidad de llantera correcta" This reverts commit 46ce6ba6de9b941fef373c309194dc9c4d759f78. --- Ashx/SIGWeb.ashx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 8e86a783f..752e8074c 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -300,7 +300,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If - If usuario.Empresa.Funcionalidad(558).ToEntero = 1 Then + If usuario.Empresa.Funcionalidad(558) = 1 Then Try Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0") From 8e93735281140aa8889c30de76af953988ab8a64 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 26 Sep 2019 14:56:55 -0700 Subject: [PATCH 09/13] Funcionalidad que registra salida de almacen en automatico --- Ventas/Ventas.aspx.vb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6ac219c9d..c98f83d31 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1813,7 +1813,7 @@ Partial Class Ventas 'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();") 'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante 'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();") - TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios + TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1" TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") TxtCantidadPyME.Attributes.Add("onkeypress", "cambiaFoco('TxtPrecioPyME')") @@ -5705,6 +5705,10 @@ Partial Class Ventas Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then + If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then + e.Row.FCCheckBox("cbInv").Checked = True + End If + 'SERIE ALMACEN If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then If CveVenta > 0 Then @@ -10328,7 +10332,7 @@ Partial Class Ventas Dim OcurrioError As Boolean = False Try - If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then + If (UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1") AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then If RemisionesLista.Count > 0 Then For Each CveRemision As Integer In RemisionesLista From 70d0f69c355cc0c22157ebdc52a92e39fdbfb672 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 26 Sep 2019 18:58:18 -0700 Subject: [PATCH 10/13] Cambios nominas e inventarios --- App_Code/ClsInventarios.vb | 24 ++++++ App_Code/ClsLeyendasFiscales.vb | 2 +- App_Code/ClsMetodosPagos.vb | 2 +- App_Code/ClsRH.vb | 10 ++- Inventarios/InventarioFisicoDetalle.aspx | 39 +++++++++ Inventarios/InventarioFisicoDetalle.aspx.vb | 92 ++++++++++++-------- RH/Personal.aspx | 95 ++++++++++++++++++++- RH/Personal.aspx.vb | 37 ++++++++ 8 files changed, 259 insertions(+), 42 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 9e75b20fa..af57333b1 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2443,6 +2443,30 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetInventarioFisicoContador(CveInventarioFisico As Integer, CveUsuario As Integer, CodigoBarras As String) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Inv_InventarioFisicoContadorGET") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al Obtener los detalles del Inventario Físico(Contador).", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al Obtener los detalles del Inventario Físico(Contador).", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function #End Region #Region "I N V E N T A R I O - F I S I C O - R E S U L T A D O" diff --git a/App_Code/ClsLeyendasFiscales.vb b/App_Code/ClsLeyendasFiscales.vb index 7da70a2dd..55c873e76 100644 --- a/App_Code/ClsLeyendasFiscales.vb +++ b/App_Code/ClsLeyendasFiscales.vb @@ -39,7 +39,7 @@ Public Class ClsLeyendasFiscales Try SqlConexion.Open() Catch ex As Exception - Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) End Try SqlAdapter = New SqlDataAdapter("PA_LeyendasFiscalesGet", SqlConexion) ConexionAdd() diff --git a/App_Code/ClsMetodosPagos.vb b/App_Code/ClsMetodosPagos.vb index dfb99b1f4..59097d1df 100644 --- a/App_Code/ClsMetodosPagos.vb +++ b/App_Code/ClsMetodosPagos.vb @@ -41,7 +41,7 @@ Public Class ClsMetodosPagos Try SqlConexion.Open() Catch ex As Exception - Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) End Try SqlAdapter = New SqlDataAdapter("", SqlConexion) ConexionAdd() diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 245553772..7aa66e67c 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2086,19 +2086,25 @@ Public Class ClsRH Return Retorno End Function - Public Function AddConcepto(CvePersonal As Integer, CveConcepto As Integer, Importe As Double, TipoAplicacion As Integer, NoPagos As Integer, SaldoIni As Double, CveUsuario As Integer) As Boolean + Public Function AddConcepto(CvePersonal As Integer, CveConcepto As Integer, Importe As Double, TipoAplicacion As Integer, NoPagos As Integer, SaldoIni As Double, CveUsuario As Integer, Optional CveSistema As Integer = -1, Optional Descripcion01 As String = "", Optional Descripcion02 As String = "", Optional strFInicioAplicacion As String = "", Optional strFFinAplicacion As String = "", Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False - SqlDataAdapter("PA_RH_PersonalConceptosAddUpd") With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto + .Add("@CveSistema", SqlDbType.Int).Value = CveSistema + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Importe", SqlDbType.Money).Value = Importe .Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion .Add("@NoPagos", SqlDbType.Int).Value = NoPagos .Add("@SaldoIni", SqlDbType.Money).Value = SaldoIni .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Descripcion01", SqlDbType.VarChar).Value = Descripcion01 + .Add("@Descripcion02", SqlDbType.VarChar).Value = Descripcion02 + .Add("@strFInicioAplicacion", SqlDbType.VarChar).Value = strFInicioAplicacion + .Add("@strFFinAplicacion", SqlDbType.VarChar).Value = strFFinAplicacion + .Add("@Estatus", SqlDbType.Int).Value = Estatus End With Try diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index 097783418..2a55c0a31 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -244,6 +244,45 @@ + + +
+ +
+
+
+ +
+
+ Consultar Producto + +
+
+
+
+ +
+ +
+
+ +
+
+
+ <%----%> +
+

+ +

+
+ +
+
+
+ +
+ +
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index ba4af4ee1..33153f984 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -277,42 +277,44 @@ Partial Class Inventarios_InventarioFisicoDetalle If SerieLote <> "" And (SerieLote.ToUpper = dr("Codigo").ToString.ToUpper Or SerieLote.ToUpper = dr("CodigoBarras").ToString.ToUpper) Then Alert($"La serie indicada {SerieLote} coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Exit Sub - End If - - - Dim Inventarios As New ClsInventarios + End If + + Dim Consulto As Boolean = False - If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then - If GvIFDUltimoRegistrado.Rows.Count > 0 Then - GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now - GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString - GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString - GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString - GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim - GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim - Else - Consulto = True - If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then - If Inventarios.DtResultados.Rows.Count > 0 Then - GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable - Else - GvIFDUltimoRegistrado.DataSource = Nothing - End If - Else - Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError) - RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") - End If - End If - TxtCodigoBarras.Text = "" - TxtCodigoSerie.Text = "" - TxtCodigo.Text = "" - TxtCantidadProducto.Text = "1" - RegistraScript("playsonidito('beep-07.wav')") - Else - TxtCodigoSerie.Text = "" - End If - TxtCodigoBarras.Focus() - Inventarios.Dispose() + Using Inventarios As New ClsInventarios + + If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then + If GvIFDUltimoRegistrado.Rows.Count > 0 Then + GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now + GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString + GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString + GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString + GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim + GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim + Else + Consulto = True + If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then + If Inventarios.DtResultados.Rows.Count > 0 Then + GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable + Else + GvIFDUltimoRegistrado.DataSource = Nothing + End If + Else + Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError) + RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") + End If + End If + TxtCodigoBarras.Text = "" + TxtCodigoSerie.Text = "" + TxtCodigo.Text = "" + TxtCantidadProducto.Text = "1" + RegistraScript("playsonidito('beep-07.wav')") + Else + TxtCodigoSerie.Text = "" + End If + TxtCodigoBarras.Focus() + End Using + If Consulto Then GvIFDUltimoRegistrado.DataBind() Else TxtCodigoBarras.Text = "" @@ -469,4 +471,24 @@ Partial Class Inventarios_InventarioFisicoDetalle #End Region + Protected Sub BtnBuscarCodVarras_Click(sender As Object, e As EventArgs) + Dim CodigoBarras As String = If(TxtConCodigoVarras.Text.Trim <> "", TxtConCodigoVarras.Text.Trim, "-1").Replace("'", "''") + LblContador.Text = "No se encontraron resultados" + Using Inventarios As New ClsInventarios + If Inventarios.GetInventarioFisicoContador(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero, CodigoBarras) Then + 'Cantidad,@CodigoBarras CodigoBarras + If (Inventarios.DtResultados.Rows.Count > 0) Then + Dim drow As DataRow = Inventarios.DtResultados.Rows(0) + If (drow("Cantidad").ToString().ToDouble() > 0) Then + LblContador.Text = String.Format("Contador={0:##,###.##}", drow("Cantidad")) + Else + + End If + End If + End If + End Using + UpBuscar.Update() + ' UsuarioActual.CveUsuario + ' + End Sub End Class diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 0d84775c0..3b139a670 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1248,12 +1248,16 @@
-
+
- + Conceptos
+
+ + +
@@ -1261,7 +1265,9 @@
- + Aplica @@ -1309,6 +1315,10 @@ + + + + @@ -1331,6 +1341,85 @@
+ +
+
+
+ + Infonavit +
+
+ + +
+
+
+ +
+
+
+
+
+
+
+ + +
+
+
+
+ + +
+
+
+
+
+
+ + + + + + + + +
+
+
+
+ + +
+
+
+
+
+
+ + + + + +
+
+ + + +
+
+
+
+ +
+
+
+ +
+
+
+
+
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index f77aa2fbb..c26034a1b 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -2036,6 +2036,17 @@ Partial Class RH_Personal Dim ObjPersonal As New ClsRH If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then GVConceptos.DataSource = ObjPersonal.DtResultados + Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3") + If Not IsNothing(frow) Then + TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe")) + DdlInfoTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString()) + + Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero + TxtInfoDescripcion.Text = String.Format("{0}", frow("Descripcion02")) + TxtInfoNumCredito.Text = String.Format("{0}", frow("Descripcion01")) + TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion")) + ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE") + End If Else GVConceptos.DataSource = Nothing End If @@ -2093,6 +2104,32 @@ Partial Class RH_Personal End If End Sub + Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs) + Dim importe As Decimal = TxtInfoValor.Text.ToDecimal() + Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero + Dim NoPagos As Integer = 0 + Dim SaldoIni As Decimal = 0 + Dim descripcion02 As String = TxtInfoDescripcion.Text + Dim descripcion01 As String = TxtInfoNumCredito.Text + Dim fecha As String = TxtInfoFechaInicio.Text.Replace("_", "") + Dim estatus As Integer = If(ChkInfo.Checked, 1, 0) + If fecha.Length > 8 Then + fecha = fecha.ToDateTime().ToString("yyyy/MM/dd") + Else + fecha = "" + End If + Dim OcurrioError As Boolean = False + Using ObjPersonal As New ClsRH + + If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 3, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then + OcurrioError = True + End If + End Using + If Not OcurrioError Then + Alert("Se actualizo el calculo de infonavit") + CarcaConceptosNomina() + End If + End Sub Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click If CvePersonal > 0 Then Dim ObjPersonal As New ClsRH From 9388434fc7077dce0749c5e0332c690a9b0f6004 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Fri, 27 Sep 2019 10:30:03 -0700 Subject: [PATCH 11/13] --- Ventas/Ventas.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c98f83d31..57e1c6d3b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1813,7 +1813,7 @@ Partial Class Ventas 'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();") 'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante 'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();") - TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1" + TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") TxtCantidadPyME.Attributes.Add("onkeypress", "cambiaFoco('TxtPrecioPyME')") @@ -6193,7 +6193,7 @@ Partial Class Ventas End If If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then - Alert("Tiene que seleccionar un almacen", TipoMensaje.MsgAdvertencia) + Alert("Tiene que seleccionar un almacén para la salida de almacén", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -10332,7 +10332,7 @@ Partial Class Ventas Dim OcurrioError As Boolean = False Try - If (UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1") AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then + If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then If RemisionesLista.Count > 0 Then For Each CveRemision As Integer In RemisionesLista From ebb97cf5d41b7381a3c893a086a3880c1954b482 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Fri, 27 Sep 2019 11:30:04 -0700 Subject: [PATCH 12/13] --- Ventas/Ventas.aspx.vb | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 57e1c6d3b..59dacbbf0 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -4426,10 +4426,14 @@ Partial Class Ventas If CveVenta > 0 Then DivAlmacen.Visible = False Else + Dim DTAlmacen As DataTable ddlAlmacen.Items.Clear() - ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}") - ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) - ddlAlmacen.SelectedValue = "-1" + DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}") + ddlAlmacen.DataSource = DTAlmacen + If DTAlmacen Is Nothing Or DTAlmacen.Rows.Count = 0 Then + ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) + ddlAlmacen.SelectedValue = "-1" + End If ddlAlmacen.DataBind() If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").Rows.Count > 0 Then ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) From f887fe8684530a329551b37894719c39e5a7335c Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Fri, 27 Sep 2019 13:53:14 -0700 Subject: [PATCH 13/13] Correccion de formato de Situacion Financiera --- AC/Reportes/RepSituacionFinanciera.rdlc | 160 ++++++++++++++---------- App_Code/ClsContPAQi.vb | 4 +- 2 files changed, 96 insertions(+), 68 deletions(-) diff --git a/AC/Reportes/RepSituacionFinanciera.rdlc b/AC/Reportes/RepSituacionFinanciera.rdlc index 05411130d..750d7f2cc 100644 --- a/AC/Reportes/RepSituacionFinanciera.rdlc +++ b/AC/Reportes/RepSituacionFinanciera.rdlc @@ -215,7 +215,7 @@ ImporteAnterior - true + =IIf(Parameters!CveEmpresa.Value = 48,False,True) @@ -3022,10 +3050,10 @@ - =Sum(iif(Fields!Tipo.Value.ToString() = "A" OR Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9 , Fields!ImporteActual.Value, 0) , "DataSet1") + =Sum(iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE", Fields!ImporteActual.Value, 0) , "DataSet1") - =Sum( iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9 , Fields!ImporteAnterior.Value, 0), "DataSet1") + =Sum(iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE", Fields!ImporteAnterior.Value, 0), "DataSet1") =Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Fields!ImporteActual.Value, 0), "DataSet1") @@ -3035,22 +3063,22 @@ true - =Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" , Fields!ImporteActual.Value, 0),"DataSet1") + =Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO CONTRIBUIDO" , Fields!ImporteActual.Value, 0),"DataSet1") - =Variables!TotalPatrimonioCActual.Value + =Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO GENERADO" , Fields!ImporteActual.Value, 0),"DataSet1") - =Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" , Fields!ImporteAnterior.Value, 0),"DataSet1") + =Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO CONTRIBUIDO" , Fields!ImporteAnterior.Value, 0),"DataSet1") - =Variables!TotalPatrimonioCAnterior.Value + =Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO GENERADO" , Fields!ImporteAnterior.Value, 0),"DataSet1") - =Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value + =Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value+Variables!TotalPatrimonioCActual.Value - =Variables!TotalPatrimonioHAnterior.Value+ Variables!TotalPasivoAnterior.Value + =Variables!TotalPasivoAnterior.Value+Variables!TotalPatrimonioHAnterior.Value+Variables!TotalPatrimonioCAnterior.Value Cm diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index cbe00b5ee..2abd5de9e 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -3741,7 +3741,7 @@ Public Class ClsContPAQi StrSQL.Append(" ") StrSQL.Append(" SELECT * ") StrSQL.Append(" FROM ( ") - StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, D.Level, C.CtaMayor as TipoCuenta, ") + StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, D.Level, ") StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ") StrSQL.Append(" CASE ") StrSQL.Append(" WHEN @Tipo < 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, DATEADD(yy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ") @@ -3806,7 +3806,7 @@ Public Class ClsContPAQi StrSQL.Append(" ") StrSQL.Append(" SELECT * ") StrSQL.Append(" FROM ( ") - StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, Level, C.CtaMayor as TipoCuenta, ") + StrSQL.Append(" SELECT C.Id, C.Codigo, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Ct.Nombre as Sup, Orden, Level, ") StrSQL.Append(" CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalActual ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, @FechaI, @FechaF, @Tipo, @SegmentoNegocio), 0) END AS ImporteActual, ") StrSQL.Append(" CASE ") StrSQL.Append(" WHEN @Tipo < 0 AND @UsaAnterior > 0 THEN CASE WHEN C.Id = @IdCuentaAhorroDesahorro THEN @TotalAnterior ELSE ISNULL (dbo.FNC_TotalComplementaria(c.Id, DATEADD(yyyy,-1,@FechaI), DATEADD(yyyy,-1,@FechaF), @Tipo, @SegmentoNegocio), 0) END ")