AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-03-20 07:24:46 -07:00
parent ebf4aaa176 7028b44eeb
commit 3b1c96791a
24 changed files with 570 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

256
App_Code/ClsContPAQi.vb
View File

@@ -6603,18 +6603,18 @@ Public Class ClsContPAQi
#End Region #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" #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 Dim Retorno = False
If Not FNC_Total() Then If Not FNC_Total_Segmento() Then
Return Retorno Return Retorno
End If End If
If Not FNC_Cargos() Then If Not FNC_Cargos_Segmento() Then
Return Retorno Return Retorno
End If End If
If Not FNC_Abonos() Then If Not FNC_Abonos_Segmento() Then
Return Retorno Return Retorno
End If End If
@@ -6659,12 +6659,12 @@ Public Class ClsContPAQi
StrSQL.Append(" ) ") StrSQL.Append(" ) ")
StrSQL.Append(" INSERT INTO #TEMP ") StrSQL.Append(" INSERT INTO #TEMP ")
'StrSQL.AppendLine(" -- SE LLENA LA TABLA TEMPORAL CON EL ARBOL DEL WITH CON JOINS DE CUENTAS SUPERIORES ") '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_Segmento(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(" FROM (")
StrSQL.Append(" SELECT C.Id, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Orden,") 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_Total_Segmento(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), 0) AS Cargos,") StrSQL.Append(" ISNULL (dbo.FNC_Cargos_Segmento(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Cargos,")
StrSQL.Append(" ISNULL (dbo.FNC_Abonos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Abonos,") StrSQL.Append(" ISNULL (dbo.FNC_Abonos_Segmento(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Abonos,")
StrSQL.Append(" Level as Nivel,") 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 (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,") 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,18 @@ 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 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 TiposPolizas TP ON MP.TipoPol = TP.Codigo")
StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id") StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id")
StrSQL.Append(" WHERE (MP.IdSegNeg = @IdSegNeg OR ( @IdSegNeg =-1 OR MP.IdSegNeg IS NULL)) ")
StrSQL.Append(" UNION") 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.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(" 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 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 TiposPolizas TP ON MP.TipoPol = TP.Codigo")
StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id") StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id")
StrSQL.Append(" WHERE (MP.IdSegNeg = @IdSegNeg OR ( @IdSegNeg =-1 OR MP.IdSegNeg IS NULL)) ")
StrSQL.Append(" ) AS T") StrSQL.Append(" ) AS T")
StrSQL.Append(" ) TT") StrSQL.Append(" ) TT")
'StrSQL.AppendLine(" --PRIMER GROUPING SON LAS CABECERAS Y TOTALES DE LAS CUENTAS, SEGUNDO GROUPING SON LOS MOVIMIENTOS DE LAS CUENTAS") 'StrSQL.AppendLine(" --PRIMER GROUPING SON LAS CABECERAS Y TOTALES DE LAS CUENTAS, SEGUNDO GROUPING SON LOS MOVIMIENTOS DE LAS CUENTAS")
@@ -6777,6 +6783,7 @@ Public Class ClsContPAQi
.Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@FechaF", SqlDbType.Date).Value = FechaF
.Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg
End With End With
Try Try
@@ -11035,7 +11042,7 @@ Public Class ClsContPAQi
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ")
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.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; ")
StrSQL.Append(" RETURN @Total; ") StrSQL.Append(" RETURN @Total; ")
StrSQL.Append(" END; ") StrSQL.Append(" END; ")
@@ -11104,7 +11111,7 @@ Public Class ClsContPAQi
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ") StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ")
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ") StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.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; ")
StrSQL.Append(" RETURN @Total; ") StrSQL.Append(" RETURN @Total; ")
StrSQL.Append(" END; ") StrSQL.Append(" END; ")
@@ -11198,6 +11205,233 @@ Public Class ClsContPAQi
#End Region #End Region
#Region "Funciones con Segmento"
Public Function FNC_Total_Segmento() As Boolean
Dim Retorno = False
StrSQL.Clear()
StrSQL.Append(" IF OBJECT_ID ('FNC_Total_Segmento') IS NOT NULL DROP FUNCTION FNC_Total_Segmento")
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
Try
SqlAdapter.SelectCommand.ExecuteNonQuery()
Catch ex As Exception
Me.OnError("Ocurrió un error al eliminar la funcion FNC_Total_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
StrSQL.Clear()
StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Total_Segmento] ")
StrSQL.Append(" ( ")
StrSQL.Append(" @IdCtaSup INT, ")
StrSQL.Append(" @FechaI DATE, ")
StrSQL.Append(" @FechaF DATE, ")
StrSQL.Append(" @CveMoneda INT = 1, ")
StrSQL.Append(" @IdSegNeg INT =-1 ")
StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS FLOAT ")
StrSQL.Append(" AS ")
StrSQL.Append(" BEGIN ")
StrSQL.Append(" ")
StrSQL.Append(" DECLARE ")
StrSQL.Append(" @Total FLOAT, ")
StrSQL.Append(" @TipoCuenta VARCHAR(1), ")
StrSQL.Append(" @FechaFF DATE; ")
StrSQL.Append(" ")
StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ")
StrSQL.Append(" ")
StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ")
StrSQL.Append(" ( ")
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
StrSQL.Append(" FROM Asociaciones a ")
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ")
StrSQL.Append(" ")
StrSQL.Append(" UNION ALL ")
StrSQL.Append(" ")
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
StrSQL.Append(" FROM Asociaciones a ")
StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ")
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
StrSQL.Append(" ) ")
StrSQL.Append(" SELECT @Total = SUM (CASE ")
StrSQL.Append(" WHEN @TipoCuenta IN ('A', 'B', 'E', 'G') THEN CASE WHEN p.TipoMovto = 1 THEN CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) * -1 ELSE CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) END ")
StrSQL.Append(" WHEN @TipoCuenta IN ('B', 'D', 'F', 'H', 'C') THEN CASE WHEN p.TipoMovto = 0 THEN CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) * -1 ELSE CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) END ")
StrSQL.Append(" ELSE 0 ")
StrSQL.Append(" END ")
StrSQL.Append(" ) ")
StrSQL.Append(" FROM Estructura e ")
StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ")
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 AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ")
StrSQL.Append(" RETURN @Total; ")
StrSQL.Append(" END; ")
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
Try
SqlAdapter.SelectCommand.ExecuteNonQuery()
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al crear la funcion FNC_Total_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function FNC_Cargos_Segmento() As Boolean
Dim Retorno = False
StrSQL.Clear()
StrSQL.Append(" IF OBJECT_ID ('FNC_Cargos_Segmento') IS NOT NULL DROP FUNCTION FNC_Cargos_Segmento")
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
Try
SqlAdapter.SelectCommand.ExecuteNonQuery()
Catch ex As Exception
Me.OnError("Ocurrió un error al eliminar la funcion FNC_Cargos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
StrSQL.Clear()
StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Cargos_Segmento] ")
StrSQL.Append(" ( ")
StrSQL.Append(" @IdCtaSup INT, ")
StrSQL.Append(" @FechaI DATE, ")
StrSQL.Append(" @FechaF DATE, ")
StrSQL.Append(" @CveMoneda INT = 1, ")
StrSQL.Append(" @IdSegNeg INT =-1 ")
StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS FLOAT ")
StrSQL.Append(" AS ")
StrSQL.Append(" BEGIN ")
StrSQL.Append(" ")
StrSQL.Append(" DECLARE @Total FLOAT; ")
StrSQL.Append(" DECLARE @TipoCuenta VARCHAR(1); ")
StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ")
StrSQL.Append(" ")
StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ")
StrSQL.Append(" ( ")
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
StrSQL.Append(" FROM Asociaciones a ")
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ")
StrSQL.Append(" ")
StrSQL.Append(" UNION ALL ")
StrSQL.Append(" ")
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
StrSQL.Append(" FROM Asociaciones a ")
StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ")
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
StrSQL.Append(" ) ")
StrSQL.Append(" SELECT @Total = SUM (CASE WHEN p.TipoMovto = 0 THEN CAST (ISNULL (CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY), 0)AS MONEY) ELSE 0 END) ")
StrSQL.Append(" FROM Estructura e ")
StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ")
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 AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ")
StrSQL.Append(" RETURN @Total; ")
StrSQL.Append(" END; ")
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
Try
SqlAdapter.SelectCommand.ExecuteNonQuery()
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al crear la funcion FNC_Cargos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function FNC_Abonos_Segmento() As Boolean
Dim Retorno = False
StrSQL.Clear()
StrSQL.Append(" IF OBJECT_ID ('FNC_Abonos_Segmento') IS NOT NULL DROP FUNCTION FNC_Abonos_Segmento")
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
Try
SqlAdapter.SelectCommand.ExecuteNonQuery()
Catch ex As Exception
Me.OnError("Ocurrió un error al eliminar la funcion FNC_Abonos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
StrSQL.Clear()
StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Abonos_Segmento] ")
StrSQL.Append(" ( ")
StrSQL.Append(" @IdCtaSup INT, ")
StrSQL.Append(" @FechaI DATE, ")
StrSQL.Append(" @FechaF DATETIME, ")
StrSQL.Append(" @CveMoneda INT = 1 , ")
StrSQL.Append(" @IdSegNeg INT =-1 ")
StrSQL.Append(" ) ")
StrSQL.Append(" RETURNS FLOAT ")
StrSQL.Append(" AS ")
StrSQL.Append(" BEGIN ")
StrSQL.Append(" ")
StrSQL.Append(" DECLARE @Total FLOAT; ")
StrSQL.Append(" DECLARE @TipoCuenta VARCHAR(1); ")
StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ")
StrSQL.Append(" ")
StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ")
StrSQL.Append(" ( ")
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
StrSQL.Append(" FROM Asociaciones a ")
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ")
StrSQL.Append(" ")
StrSQL.Append(" UNION ALL ")
StrSQL.Append(" ")
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
StrSQL.Append(" FROM Asociaciones a ")
StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ")
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
StrSQL.Append(" ) ")
StrSQL.Append(" SELECT @Total = SUM (CASE WHEN p.TipoMovto = 1 THEN CAST (ISNULL (CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY), 0)AS MONEY) ELSE 0 END) ")
StrSQL.Append(" FROM Estructura e ")
StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ")
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 AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ")
StrSQL.Append(" RETURN @Total; ")
StrSQL.Append(" END; ")
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
Try
SqlAdapter.SelectCommand.ExecuteNonQuery()
Retorno = True
Catch ex As Exception
Me.OnError("Ocurrió un error al crear la funcion FNC_Abonos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
#Region " IDisposable Support " #Region " IDisposable Support "
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)

3
App_Code/ClsInventarios.vb
View File

@@ -869,7 +869,7 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Inv_MovimientosPorPersonalGet") DataAdapter("PA_Inv_MovimientosPorPersonalGet")
@@ -879,6 +879,7 @@ Public Class ClsInventarios
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@Tipo", SqlDbType.Int).Value = Tipo
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

3
App_Code/Timbrado.vb
View File

@@ -3425,10 +3425,11 @@ Public Class Timbrado
swmili = sw.ElapsedMilliseconds swmili = sw.ElapsedMilliseconds
sw.Start() sw.Start()
Me.UUID = FolioFiscal
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
'Actualiza Estatus Factura 'Actualiza Estatus Factura
If Ventas.CveVenta > 0 Then If Ventas.CveVenta > 0 Then
Using ObjVentas As New ClsVentas() Using ObjVentas As New ClsVentas()

BIN
Bin/ADSNetLibrary.dll
View File

Binary file not shown.

2
Contabilidad/RepAnexoCatalogo.aspx.vb
View File

@@ -282,7 +282,7 @@ Partial Class AC_RepAnexoCatalogo
e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
End If 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 If
End Sub End Sub
#End Region #End Region

39
Contabilidad/RepAnexoCatalogoSegmento.aspx.vb
View File

@@ -18,6 +18,20 @@ Partial Class AC_RepAnexoCatalogoSegmento
ViewState("DtDatos") = value ViewState("DtDatos") = value
End Set End Set
End Property End Property
Private Property DTCabeceras As DataTable
Get
DTCabeceras = DirectCast(ViewState("DTCabeceras"), DataTable)
End Get
Set(ByVal value As DataTable)
ViewState("DTCabeceras") = value
End Set
End Property
Private Property FechaInicio As Date Private Property FechaInicio As Date
Get Get
FechaInicio = ViewState("FechaInicio").ToString.ToDate FechaInicio = ViewState("FechaInicio").ToString.ToDate
@@ -225,7 +239,7 @@ Partial Class AC_RepAnexoCatalogoSegmento
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim DTCabeceras As New DataTable 'Dim DTCabeceras As New DataTable
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
If ObjConta.GetEstadoActividadesSegmentoDetalle(FechaInicio, FechaFin, IdCuenta, Segmentos) Then If ObjConta.GetEstadoActividadesSegmentoDetalle(FechaInicio, FechaFin, IdCuenta, Segmentos) Then
@@ -250,17 +264,15 @@ Partial Class AC_RepAnexoCatalogoSegmento
CType(GvDatos.Columns(IndexGV), BoundField).DataField = Dr("id").ToString CType(GvDatos.Columns(IndexGV), BoundField).DataField = Dr("id").ToString
GvDatos.Columns(IndexGV).HeaderText = Dr("Nombre").ToString GvDatos.Columns(IndexGV).HeaderText = Dr("Nombre").ToString
GvDatos.Columns(IndexGV).Visible = True GvDatos.Columns(IndexGV).Visible = True
CType(GvDatos.Columns(IndexGV), BoundField).DataField = Dr("id").ToString CType(GvDatos.Columns(IndexGV), BoundField).DataField = Dr("id").ToString
GvDatos.Columns(IndexGV).HeaderText = Dr("Nombre").ToString GvDatos.Columns(IndexGV).HeaderText = Dr("Nombre").ToString
IndexActual = IndexActual + 1 IndexActual = IndexActual + 1
If IndexGV >= 200 Then If IndexGV >= 200 Then
Exit For Exit For
End If End If
Next Next
@@ -292,6 +304,25 @@ Partial Class AC_RepAnexoCatalogoSegmento
End If End If
Dim IndexActual As Integer = 0
For Each Dr As DataRow In DTCabeceras.Rows
Dim IndexGV As Integer = 3 + IndexActual
e.Row.Cells(IndexGV).Text = $"<a class='Texto' target='_blank' href='/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={e.Row.DBCampo("IdCuenta").ToEntero}&FI{TxtFechaDel.Text}&FF={TxtFechaAl.Text}&IdSegNeg={ Dr("id").ToString}'>{e.Row.Cells(IndexGV).Text }</a>"
IndexActual = IndexActual + 1
If IndexGV >= 200 Then
Exit For
End If
Next
End If End If
End Sub End Sub
#End Region #End Region

10
Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx
View File

@@ -83,9 +83,15 @@
</div> </div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>> <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="row"> <div class="row">
<label class="col-md-2" style="margin-left:10px; width: 90px;">Moneda:</label> <label class="col-md-1" style="margin-left:10px; width: 90px;">Moneda:</label>
<div class="col-md-1"> <div class="col-md-1">
<asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" style="margin-top:10%; width:140%"> <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" style="margin-top:10%">
</asp:DropDownList>
</div>
<label class="col-md-1 truncate" style="width: 90px; padding-right: 2px;">Segmento de negocio</label>
<div class="col-md-2">
<asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlSegmentoNegocio" runat="server" DataTextField="Nombre" DataValueField="Id" Width="100%">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>

49
Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

@@ -52,6 +52,21 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
ViewState("IdCuenta") = value ViewState("IdCuenta") = value
End Set End Set
End Property 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 Private Property TotalPadre As Boolean
Get Get
TotalPadre = CBool(ViewState("TotalPadre")) TotalPadre = CBool(ViewState("TotalPadre"))
@@ -78,14 +93,19 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
Dim ErrorParametros = True Dim ErrorParametros = True
CargaTipoCuentas() CargaTipoCuentas()
CargaMoneda()
CargaSegmentosNegocio()
TxtCuenta.Enabled = False 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("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 If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
IdCuenta = Request("ID").ToEntero 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 HdnCveCuenta.Value = IdCuenta.ToString
FechaFin = Request("FF").ToDate FechaFin = Request("FF").ToDate
@@ -113,6 +133,8 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
End If End If
End If End If
DdlSegmentoNegocio.SelectedValueExist(IdSegNeg)
End If End If
End If End If
@@ -128,6 +150,27 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
End If End If
End Sub 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) Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
@@ -178,7 +221,7 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa, 60) 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 'DtTotales = DtDatos.Clone
DtDatos = ObjConta.DtResultados DtDatos = ObjConta.DtResultados
CargaGrid() CargaGrid()

BIN
Documentacion/140/AMERICA.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/CRONOS.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/DIENER.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/FULLPOWER.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/LTH.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/LTHAGM.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/LTHESPECIALES.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/LTHHEAVYDUTY.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/LTHHI-TEC.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/LTHSUV-VAN-MINIVAN.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/LTHTAXI.pdf Normal file
View File

Binary file not shown.

BIN
Documentacion/140/OPTIMA.pdf Normal file
View File

Binary file not shown.

150
Inicio.aspx
View File

@@ -120,6 +120,8 @@
} }
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
@@ -275,6 +277,8 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6 col-sm-6"> <div class="col-md-6 col-sm-6">
<div class="portlet light calendar "> <div class="portlet light calendar ">
@@ -484,6 +488,152 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div>
</div>
</div>
<div class="col-md-6 col-sm-6" runat="server" id="DVDescargasBDH" visible="false">
<div class="portlet light ">
<div class="portlet-title">
<div class="caption">
<i class="fa fa-file-text-o font-red-sunglo"></i>
<span class="caption-subject font-red-sunglo bold uppercase">Documentos</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="reload" data-original-title="" title=""></a>
<a href="#" class="fullscreen" data-original-title="" title=""></a>
<a href="javascript:;" class="remove" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body">
<asp:UpdatePanel runat="server" ID="UpDocumentos" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc1" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="AMERICA.pdf"><i class="fa fa-download" aria-hidden="true"></i> AMERICA.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc1" NavigateUrl="~/Documentacion/140/AMERICA.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> AMERICA.pdf</asp:HyperLink>
</div>
</div>
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc2" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="CRONOS.pdf"><i class="fa fa-download" aria-hidden="true"></i> CRONOS.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc2" NavigateUrl="~/Documentacion/140/CRONOS.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> CRONOS.pdf</asp:HyperLink>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc3" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="DIENER.pdf"><i class="fa fa-download" aria-hidden="true"></i> DIENER.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc3" NavigateUrl="~/Documentacion/140/DIENER.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> DIENER.pdf</asp:HyperLink>
</div>
</div>
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc4" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="FULLPOWER.pdf"><i class="fa fa-download" aria-hidden="true"></i> FULL POWER.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc4" NavigateUrl="~/Documentacion/140/FULLPOWER.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> FULL POWER.pdf</asp:HyperLink>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc5" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHAGM.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH AGM.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc5" NavigateUrl="~/Documentacion/140/LTHAGM.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH AGM.pdf</asp:HyperLink>
</div>
</div>
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc6" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHESPECIALES.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH ESPECIALES.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc6" NavigateUrl="~/Documentacion/140/LTHESPECIALES.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH ESPECIALES.pdf</asp:HyperLink>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc7" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHHEAVYDUTY.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH HEAVY DUTY.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc7" NavigateUrl="~/Documentacion/140/LTHHEAVYDUTY.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH HEAVY DUTY.pdf</asp:HyperLink>
</div>
</div>
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc8" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHHI-TEC.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH HI-TEC.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc8" NavigateUrl="~/Documentacion/140/LTHHI-TEC.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH HI-TEC.pdf</asp:HyperLink>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc9" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHSUV-VAN-MINIVAN.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH SUV-VAN-MINIVAN.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc9" NavigateUrl="~/Documentacion/140/LTHSUV-VAN-MINIVAN.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH SUV-VAN-MINIVAN.pdf</asp:HyperLink>
</div>
</div>
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc10" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHTAXI.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH TAXI.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc10" NavigateUrl="~/Documentacion/140/LTHTAXI.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH TAXI.pdf</asp:HyperLink>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc11" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTH.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc11" NavigateUrl="~/Documentacion/140/LTH.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH.pdf</asp:HyperLink>
</div>
</div>
<div class="col-md-6">
<div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc12" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHAGM.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTHAGM.pdf</asp:LinkButton>--%>
<asp:HyperLink ID="LnkDoc12" NavigateUrl="~/Documentacion/140/LTHAGM.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTHAGM.pdf</asp:HyperLink>
</div>
</div>
</div>
</ContentTemplate>
<Triggers>
<%-- <asp:PostBackTrigger ControlID="LnkDoc1" />
<asp:PostBackTrigger ControlID="LnkDoc2" />
<asp:PostBackTrigger ControlID="LnkDoc3" />
<asp:PostBackTrigger ControlID="LnkDoc4" />
<asp:PostBackTrigger ControlID="LnkDoc5" />
<asp:PostBackTrigger ControlID="LnkDoc6" />
<asp:PostBackTrigger ControlID="LnkDoc7" />
<asp:PostBackTrigger ControlID="LnkDoc8" />
<asp:PostBackTrigger ControlID="LnkDoc9" />
<asp:PostBackTrigger ControlID="LnkDoc10" />
<asp:PostBackTrigger ControlID="LnkDoc11" />
<asp:PostBackTrigger ControlID="LnkDoc12" />--%>
</Triggers>
</asp:UpdatePanel>
</div> </div>
</div> </div>
</div> </div>

39
Inicio.aspx.vb
View File

@@ -231,6 +231,11 @@ Partial Class Inicio
'Evaluacion del proveedor 'Evaluacion del proveedor
CargaEvaluacionProveedor() CargaEvaluacionProveedor()
If UsuarioActual.CveEmpresa = 140 Then
DVDescargasBDH.Visible = True
End If
End If End If
End Sub End Sub
@@ -1245,4 +1250,38 @@ Partial Class Inicio
End If End If
RegistraScript("$('#DvUnoaUno').modal('hide')") RegistraScript("$('#DvUnoaUno').modal('hide')")
End Sub End Sub
'Protected Sub LnkDecargaDoc_Click(sender As Object, e As EventArgs)
' Dim NombreArchivo As String = DirectCast(sender, LinkButton).Attributes("NombreArchivo")
' Dim filePath As String = $"{Server.MapPath("~")}\Documentacion\140\{DirectCast(sender, LinkButton).Attributes("NombreArchivo")}"
' Dim Archivo As New System.IO.FileInfo(filePath)
' Dim mimeType As String = Nothing
' If Archivo.Exists Then
' HttpContext.Current.Response.Buffer = True
' HttpContext.Current.Response.Clear()
' HttpContext.Current.Response.ClearContent()
' HttpContext.Current.Response.ContentType = mimeType
' HttpContext.Current.Response.AppendHeader("Content-disposition", "inline; filename=" & NombreArchivo)
' HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
' HttpContext.Current.Response.TransmitFile(filePath)
' HttpContext.Current.Response.Flush()
' HttpContext.Current.Response.SuppressContent = True
' HttpContext.Current.ApplicationInstance.CompleteRequest()
' HttpContext.Current.Response.End()
' Archivo = Nothing
' End If
'End Sub
End Class End Class

10
Inventarios/ResguardoMaterial.aspx
View File

@@ -52,8 +52,8 @@
<div class="row" style="margin-left: 0px; margin-right: 0px;"> <div class="row" style="margin-left: 0px; margin-right: 0px;">
<div class="col-md-6"> <div class="col-md-6" runat="server" >
<div class="portlet xspadding light bordered infomov"> <div class="portlet xspadding light bordered infomov" >
<div class="portlet-title"> <div class="portlet-title">
<div class="tools"> <div class="tools">
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a> <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
@@ -377,7 +377,7 @@
</div> </div>
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body" >
<div class="row"> <div class="row">
<div class="col-md-1" style="max-width: 100px">Fecha</div> <div class="col-md-1" style="max-width: 100px">Fecha</div>
<div class="col-md-2"> <div class="col-md-2">
@@ -409,7 +409,7 @@
<div class="row" style="margin-left: 0px; margin-right: 0px;"> <div class="row" style="margin-left: 0px; margin-right: 0px;">
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet smmallpadding light bordered infomov"> <div class="portlet smmallpadding light bordered infomov" runat="server" id ="DVInformacionMoviminetoLiberacion" >
<div class="portlet-title"> <div class="portlet-title">
<div class="tools"> <div class="tools">
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a> <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
@@ -494,7 +494,7 @@
<asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false"> <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" runat="server" Visible="false"></asp:TextBox> <asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" runat="server" Visible="false"></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false"> <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
<ItemTemplate> <ItemTemplate>

49
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -635,29 +635,54 @@ Partial Class Inventarios_ResguardoMaterial
#Region " CARGA RESGUARDOS PARA LIBERACION " #Region " CARGA RESGUARDOS PARA LIBERACION "
Protected Sub BtnVerificarExistencias_Click(sender As Object, e As EventArgs) 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) If UsuarioActual.CveEmpresa <> 140 Then
Exit Sub
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 End If
CargaResguardos() CargaResguardos()
If UsuarioActual.CveEmpresa = 140 Then
If (DdlTipo.SelectedValue.ToEntero = 1 And DdlPersonalLiberacion.SelectedValue.ToEntero <= 0) Or (DdlTipo.SelectedValue.ToEntero = 2 And DdlClienteLiberacion.SelectedValue.ToEntero <= 0) Or (DdlTipo.SelectedValue.ToEntero = 3 And DdlProveedorLiberacion.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 End Sub
Private Sub CargaResguardos() Private Sub CargaResguardos()
Dim ObjInventario As New ClsInventarios() Dim ObjInventario As New ClsInventarios()
Dim Existencias As Double = 0 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 = ObjInventario.DtResultados
DtMovimientosLiberacion.Columns("No").AutoIncrement = True DtMovimientosLiberacion.Columns("No").AutoIncrement = True