From c1e871a0fb1d6b629cab264d7f1687d090229428 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 16 Mar 2022 21:16:21 -0700 Subject: [PATCH] Resguardo material, permitir consultar con empresa 140 --- App_Code/ClsContPAQi.vb | 32 +++++++----- App_Code/ClsInventarios.vb | 3 +- Contabilidad/RepAnexoCatalogo.aspx.vb | 2 +- .../RepMovimientosAuxiliaresCatalogo.aspx | 6 +++ .../RepMovimientosAuxiliaresCatalogo.aspx.vb | 49 +++++++++++++++++-- Inventarios/ResguardoMaterial.aspx | 8 +-- Inventarios/ResguardoMaterial.aspx.vb | 48 +++++++++++++----- 7 files changed, 115 insertions(+), 33 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 97ce501d7..040f69b24 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -6603,7 +6603,7 @@ Public Class ClsContPAQi #End Region #Region "M O V I M I E N T O S - A U X I L I A R E S - C A T A L O G O" - Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer) As Boolean + Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, Optional IdSegNeg As Integer = -1) As Boolean Dim Retorno = False If Not FNC_Total() Then @@ -6659,12 +6659,12 @@ Public Class ClsContPAQi StrSQL.Append(" ) ") StrSQL.Append(" INSERT INTO #TEMP ") 'StrSQL.AppendLine(" -- SE LLENA LA TABLA TEMPORAL CON EL ARBOL DEL WITH CON JOINS DE CUENTAS SUPERIORES ") - StrSQL.Append(" SELECT T.*, ISNULL (dbo.FNC_Total(T.Id, CAST('1900-01-01' AS DATE),@FechaF,@CveMoneda), 0) AS SaldoActual ") '-- CASE WHEN Tipo IN ('A','B') THEN ISNULL(T.SaldoInicial + T.Cargos - T.Abonos,0) ELSE ISNULL(T.SaldoInicial + T.Abonos - T.Cargos,0) END AS SaldoActual + StrSQL.Append(" SELECT T.*, ISNULL (dbo.FNC_Total(T.Id, CAST('1900-01-01' AS DATE),@FechaF,@CveMoneda,@IdSegNeg), 0) As SaldoActual ") '-- CASE WHEN Tipo IN ('A','B') THEN ISNULL(T.SaldoInicial + T.Cargos - T.Abonos,0) ELSE ISNULL(T.SaldoInicial + T.Abonos - T.Cargos,0) END AS SaldoActual StrSQL.Append(" FROM (") - StrSQL.Append(" SELECT C.Id, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Orden,") - StrSQL.Append(" ISNULL (dbo.FNC_Total(c.Id, CAST('1900-01-01' AS DATE),EOMONTH(@FechaI, -1 ),@CveMoneda), 0) AS SaldoInicial,") - StrSQL.Append(" ISNULL (dbo.FNC_Cargos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Cargos,") - StrSQL.Append(" ISNULL (dbo.FNC_Abonos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Abonos,") + StrSQL.Append(" Select C.Id, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Orden,") + StrSQL.Append(" ISNULL (dbo.FNC_Total(c.Id, CAST('1900-01-01' AS DATE),EOMONTH(@FechaI, -1 ),@CveMoneda,@IdSegNeg), 0) AS SaldoInicial,") + StrSQL.Append(" ISNULL (dbo.FNC_Cargos(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Cargos,") + StrSQL.Append(" ISNULL (dbo.FNC_Abonos(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Abonos,") StrSQL.Append(" Level as Nivel,") StrSQL.Append(" CASE WHEN ISNUMERIC (C.Codigo) = 1 THEN FORMAT (CAST (C.Codigo AS FLOAT), (SELECT REPLACE (Mascarilla, 'X', '0') FROM Parametros)) ELSE C.Codigo END AS Codigo,") StrSQL.Append(" CASE WHEN ISNUMERIC (CT.Codigo) = 1 THEN FORMAT (CAST (CT.Codigo AS FLOAT), (SELECT REPLACE (Mascarilla, 'X', '0') FROM Parametros)) ELSE CT.Codigo END AS CodigoSup, Ct.Nombre as Sup,") @@ -6743,12 +6743,16 @@ Public Class ClsContPAQi StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON T.ID = MP.IdCuenta AND MP.Fecha < CAST('0001-01-01' AS DATE)") StrSQL.Append(" LEFT JOIN TiposPolizas TP ON MP.TipoPol = TP.Codigo") StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id") + + StrSQL.Append(" UNION") StrSQL.AppendFormat(" SELECT T.*, MP.Concepto, MP.Fecha, TP.Nombre AS TipoPoliza, MP.Folio, MP.Id AS IdMovimientoPoliza, MP.Referencia, CASE WHEN MP.TipoMovto = 0 THEN MP.{0} ELSE 0 END, CASE WHEN MP.TipoMovto = 1 THEN MP.{0} ELSE 0 END, MP.IdPoliza, P.Concepto AS ConceptoPadre", If(CveMoneda = 1, "Importe", "ImporteME")) StrSQL.Append(" FROM #TEMP T") StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON T.ID = MP.IdCuenta AND CAST(MP.Fecha AS DATE) BETWEEN @FechaI AND @FechaF") StrSQL.Append(" LEFT JOIN TiposPolizas TP ON MP.TipoPol = TP.Codigo") StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id") + + StrSQL.Append(" ) AS T") StrSQL.Append(" ) TT") 'StrSQL.AppendLine(" --PRIMER GROUPING SON LAS CABECERAS Y TOTALES DE LAS CUENTAS, SEGUNDO GROUPING SON LOS MOVIMIENTOS DE LAS CUENTAS") @@ -6777,6 +6781,7 @@ Public Class ClsContPAQi .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg End With Try @@ -10997,7 +11002,8 @@ Public Class ClsContPAQi StrSQL.Append(" @IdCtaSup INT, ") StrSQL.Append(" @FechaI DATE, ") StrSQL.Append(" @FechaF DATE, ") - StrSQL.Append(" @CveMoneda INT = 1 ") + StrSQL.Append(" @CveMoneda INT = 1, ") + StrSQL.Append(" @IdSegNeg INT =-1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -11035,7 +11041,7 @@ Public Class ClsContPAQi StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ") - StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ") + StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ") StrSQL.Append(" RETURN @Total; ") StrSQL.Append(" END; ") @@ -11074,7 +11080,8 @@ Public Class ClsContPAQi StrSQL.Append(" @IdCtaSup INT, ") StrSQL.Append(" @FechaI DATE, ") StrSQL.Append(" @FechaF DATE, ") - StrSQL.Append(" @CveMoneda INT = 1 ") + StrSQL.Append(" @CveMoneda INT = 1, ") + StrSQL.Append(" @IdSegNeg INT =-1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -11104,7 +11111,7 @@ Public Class ClsContPAQi StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ") - StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ") + StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ") StrSQL.Append(" RETURN @Total; ") StrSQL.Append(" END; ") @@ -11144,7 +11151,8 @@ Public Class ClsContPAQi StrSQL.Append(" @IdCtaSup INT, ") StrSQL.Append(" @FechaI DATE, ") StrSQL.Append(" @FechaF DATETIME, ") - StrSQL.Append(" @CveMoneda INT = 1 ") + StrSQL.Append(" @CveMoneda INT = 1 , ") + StrSQL.Append(" @IdSegNeg INT =-1 ") StrSQL.Append(" ) ") StrSQL.Append(" RETURNS FLOAT ") StrSQL.Append(" AS ") @@ -11174,7 +11182,7 @@ Public Class ClsContPAQi StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ") - StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ") + StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ") StrSQL.Append(" RETURN @Total; ") StrSQL.Append(" END; ") diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e5d8cb414..77de3378d 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -869,7 +869,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetMovimientosDetallePorPersonal(CvePersonal As Integer, CveAlmacen As Integer, CveCliente As Integer, CveProveedor As Integer) As Boolean + Public Function GetMovimientosDetallePorPersonal(CvePersonal As Integer, CveAlmacen As Integer, CveCliente As Integer, CveProveedor As Integer, Optional Tipo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosPorPersonalGet") @@ -879,6 +879,7 @@ Public Class ClsInventarios .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@Tipo", SqlDbType.Int).Value = Tipo End With Try SqlAdapter.Fill(Data) diff --git a/Contabilidad/RepAnexoCatalogo.aspx.vb b/Contabilidad/RepAnexoCatalogo.aspx.vb index bb8aba1fe..3cd3a76cd 100644 --- a/Contabilidad/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad/RepAnexoCatalogo.aspx.vb @@ -282,7 +282,7 @@ Partial Class AC_RepAnexoCatalogo e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red End If - e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString) + e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}&IdSegNeg={3}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, DdlSegmentoNegocio.SelectedValue.ToEntero) End If End Sub #End Region diff --git a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx index 8dec8d81c..0aef2e969 100644 --- a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx +++ b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx @@ -88,6 +88,12 @@ + + +
+ + +
diff --git a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb index e9dbdeb0f..937506849 100644 --- a/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -52,6 +52,21 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo ViewState("IdCuenta") = value End Set End Property + + Private Property IdSegNeg As Integer + Get + If ViewState("IdSegNeg") Is Nothing Then + ViewState("IdSegNeg") = -1 + End If + + Return ViewState("IdSegNeg").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("IdSegNeg") = value + End Set + End Property + + Private Property TotalPadre As Boolean Get TotalPadre = CBool(ViewState("TotalPadre")) @@ -78,14 +93,19 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo Dim ErrorParametros = True CargaTipoCuentas() + CargaMoneda() + CargaSegmentosNegocio() + TxtCuenta.Enabled = False - DdlMoneda.DataSource = GlobalDTMonedas - DdlMoneda.DataBind() If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then + IdCuenta = Request("ID").ToEntero + + IdSegNeg = If(Request("IdSegNeg") IsNot Nothing AndAlso Request("IdSegNeg").ToString.ToEntero > 0, Request("IdSegNeg").ToString.ToEntero, -1) + HdnCveCuenta.Value = IdCuenta.ToString FechaFin = Request("FF").ToDate @@ -113,6 +133,8 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo End If End If + DdlSegmentoNegocio.SelectedValueExist(IdSegNeg) + End If End If @@ -128,6 +150,27 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo End If End Sub + + Private Sub CargaSegmentosNegocio() + Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa) + Dim strGlobal As String = "" + + If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then + DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados + DdlSegmentoNegocio.DataBind() + End If + ObjContpaq.Dispose() + DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSegmentoNegocio.SelectedValue = "-1" + End Sub + + + Private Sub CargaMoneda() + DdlMoneda.DataSource = GlobalDTMonedas + DdlMoneda.DataBind() + + End Sub + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) @@ -178,7 +221,7 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo Private Sub CargaDatos() Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa, 60) - If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero) Then + If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, DdlSegmentoNegocio.SelectedValue.ToEntero) Then 'DtTotales = DtDatos.Clone DtDatos = ObjConta.DtResultados CargaGrid() diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index c5ed23c79..968ab3772 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -52,8 +52,8 @@
-
-
+
+
"> @@ -377,7 +377,7 @@
-
+
Fecha
@@ -409,7 +409,7 @@
-
+
"> diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index a03b30b6c..34fa45956 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -635,29 +635,53 @@ Partial Class Inventarios_ResguardoMaterial #Region " CARGA RESGUARDOS PARA LIBERACION " Protected Sub BtnVerificarExistencias_Click(sender As Object, e As EventArgs) - If Not DdlProveedorLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 3 Then - Alert("Tiene que seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - If Not DdlPersonalLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 1 Then - Alert("Tiene que seleccionar un personal.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - If Not DdlClienteLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 2 Then - Alert("Tiene que seleccionar un cliente.", TipoMensaje.MsgAdvertencia) - Exit Sub + + If UsuarioActual.CveEmpresa <> 140 Then + + + If Not DdlProveedorLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 3 Then + Alert("Tiene que seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If Not DdlPersonalLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 1 Then + Alert("Tiene que seleccionar un personal.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If Not DdlClienteLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 2 Then + Alert("Tiene que seleccionar un cliente.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If CargaResguardos() + + + If UsuarioActual.CveEmpresa = 140 Then + + If DdlProveedorLiberacion.SelectedValue.ToEntero <= 0 Or DdlPersonalLiberacion.SelectedValue.ToEntero <= 0 Or DdlClienteLiberacion.SelectedValue.ToEntero <= 0 Then + DVInformacionMoviminetoLiberacion.Visible = False + BtnGuardarLiberacion.Visible = False + Else + DVInformacionMoviminetoLiberacion.Visible = True + BtnGuardarLiberacion.Visible = True + End If + + UpGenerales.Update() + End If + + End Sub Private Sub CargaResguardos() Dim ObjInventario As New ClsInventarios() Dim Existencias As Double = 0 - If ObjInventario.GetMovimientosDetallePorPersonal(DdlPersonalLiberacion.SelectedValue.ToEntero, DdlAlmacenLiberacion.SelectedValue.ToEntero, DdlClienteLiberacion.SelectedValue.ToEntero, DdlProveedorLiberacion.SelectedValue.ToEntero) Then + If ObjInventario.GetMovimientosDetallePorPersonal(DdlPersonalLiberacion.SelectedValue.ToEntero, DdlAlmacenLiberacion.SelectedValue.ToEntero, DdlClienteLiberacion.SelectedValue.ToEntero, DdlProveedorLiberacion.SelectedValue.ToEntero, DdlTipo.SelectedValue.ToEntero) Then DtMovimientosLiberacion = ObjInventario.DtResultados DtMovimientosLiberacion.Columns("No").AutoIncrement = True