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:
Rene Molina
2019-09-30 10:57:41 -07:00
parent ec8b2ee287 f887fe8684
commit a04c34a609
18 changed files with 464 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

160
AC/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -215,7 +215,7 @@
</Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -323,7 +323,7 @@
</Paragraphs>
<rd:DefaultName>ImporteAnterior1</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -375,10 +375,17 @@
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
<Operator>Equal</Operator>
<FilterExpression>=Fields!Orden.Value</FilterExpression>
<Operator>Like</Operator>
<FilterValues>
<FilterValue DataType="Integer">1</FilterValue>
<FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00011*", "011*")</FilterValue>
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue DataType="Integer">3</FilterValue>
</FilterValues>
</Filter>
</Filters>
@@ -538,7 +545,7 @@
</Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -647,7 +654,7 @@
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -696,10 +703,17 @@
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
<Operator>Equal</Operator>
<FilterExpression>=Fields!Orden.Value</FilterExpression>
<Operator>Like</Operator>
<FilterValues>
<FilterValue DataType="Integer">2</FilterValue>
<FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00012*", "012*")</FilterValue>
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue DataType="Integer">3</FilterValue>
</FilterValues>
</Filter>
</Filters>
@@ -720,13 +734,13 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>5.4cm</Width>
<Width>5.10007cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.1825cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.8753cm</Width>
<Width>2.17523cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -863,7 +877,7 @@
</Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -972,7 +986,7 @@
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1021,12 +1035,19 @@
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
<Operator>Equal</Operator>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue DataType="Integer">3</FilterValue>
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!Orden.Value</FilterExpression>
<Operator>Like</Operator>
<FilterValues>
<FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00021*", "021*")</FilterValue>
</FilterValues>
</Filter>
</Filters>
<Top>2.6512cm</Top>
<Left>10.88047cm</Left>
@@ -1045,13 +1066,13 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>5.4cm</Width>
<Width>5.14411cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.1825cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.8753cm</Width>
<Width>2.13119cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -1185,7 +1206,7 @@
</Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1291,7 +1312,7 @@
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1340,10 +1361,17 @@
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
<Operator>Equal</Operator>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue DataType="Integer">4</FilterValue>
<FilterValue DataType="Integer">3</FilterValue>
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!Orden.Value</FilterExpression>
<Operator>Like</Operator>
<FilterValues>
<FilterValue>=IIf(Parameters!CveEmpresa.Value = 48, "00022*", "022*")</FilterValue>
</FilterValues>
</Filter>
</Filters>
@@ -1432,13 +1460,13 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>5.44404cm</Width>
<Width>5.18815cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.13846cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.8753cm</Width>
<Width>2.13119cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -1454,7 +1482,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>CAPITRAL CONTABLE</Value>
<Value>CAPITAL CONTABLE</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -1574,7 +1602,7 @@
</Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1682,7 +1710,7 @@
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1731,13 +1759,10 @@
</FilterValues>
</Filter>
<Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
<Operator>In</Operator>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue DataType="Integer">5</FilterValue>
<FilterValue DataType="Integer">6</FilterValue>
<FilterValue DataType="Integer">7</FilterValue>
<FilterValue DataType="Integer">8</FilterValue>
<FilterValue DataType="Integer">3</FilterValue>
</FilterValues>
</Filter>
</Filters>
@@ -1777,7 +1802,7 @@
<Top>7.52554cm</Top>
<Left>10.92451cm</Left>
<Height>0.6cm</Height>
<Width>9.14911cm</Width>
<Width>9.41376cm</Width>
<ZIndex>7</ZIndex>
<Style>
<Border>
@@ -1852,7 +1877,7 @@
<Width>2.55292cm</Width>
<ZIndex>9</ZIndex>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1945,7 +1970,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Variables!TotalPatrimonioHAnterior.Value</Value>
<Value>=Variables!TotalPatrimonioHAnterior.Value + Variables!TotalPatrimonioCAnterior.Value</Value>
<Style>
<FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize>
@@ -1961,12 +1986,12 @@
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>10.22837cm</Top>
<Left>20.1786cm</Left>
<Left>17.77089cm</Left>
<Height>0.6cm</Height>
<Width>0.15967cm</Width>
<Width>2.56738cm</Width>
<ZIndex>12</ZIndex>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1985,7 +2010,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Variables!TotalPatrimonioHActual.Value</Value>
<Value>=Variables!TotalPatrimonioHActual.Value + Variables!TotalPatrimonioCActual.Value</Value>
<Style>
<FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize>
@@ -2003,7 +2028,7 @@
<Top>10.22837cm</Top>
<Left>14.06207cm</Left>
<Height>0.6cm</Height>
<Width>5.94014cm</Width>
<Width>3.63827cm</Width>
<ZIndex>13</ZIndex>
<Style>
<Border>
@@ -2038,9 +2063,9 @@
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top>
<Left>10.88929cm</Left>
<Left>10.77464cm</Left>
<Height>0.6cm</Height>
<Width>4.57974cm</Width>
<Width>4.55974cm</Width>
<ZIndex>14</ZIndex>
<Style>
<Border>
@@ -2075,12 +2100,12 @@
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top>
<Left>20.1786cm</Left>
<Left>17.82243cm</Left>
<Height>0.6cm</Height>
<Width>0.15967cm</Width>
<Width>2.51584cm</Width>
<ZIndex>15</ZIndex>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -2115,9 +2140,9 @@
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>11.31317cm</Top>
<Left>15.46903cm</Left>
<Left>15.33438cm</Left>
<Height>0.6cm</Height>
<Width>4.53318cm</Width>
<Width>2.48805cm</Width>
<ZIndex>16</ZIndex>
<Style>
<Border>
@@ -2189,12 +2214,12 @@
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>6.57056cm</Top>
<Left>20.1786cm</Left>
<Left>17.77089cm</Left>
<Height>0.6cm</Height>
<Width>0.19495cm</Width>
<Width>2.60266cm</Width>
<ZIndex>18</ZIndex>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -2231,7 +2256,7 @@
<Top>6.57056cm</Top>
<Left>14.06207cm</Left>
<Height>0.6cm</Height>
<Width>5.94014cm</Width>
<Width>3.63827cm</Width>
<ZIndex>19</ZIndex>
<Style>
<Border>
@@ -2549,7 +2574,7 @@
</Paragraphs>
<rd:DefaultName>ImporteAnterior</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -2658,7 +2683,7 @@
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Visibility>
<Hidden>true</Hidden>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,False,True)</Hidden>
</Visibility>
<Style>
<Border>
@@ -2700,10 +2725,10 @@
<DataSetName>DataSet1</DataSetName>
<Filters>
<Filter>
<FilterExpression>=Fields!TipoCuenta.Value</FilterExpression>
<Operator>Equal</Operator>
<FilterExpression>=Fields!CtaMayor.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue DataType="Integer">9</FilterValue>
<FilterValue DataType="Integer">3</FilterValue>
</FilterValues>
</Filter>
</Filters>
@@ -2712,6 +2737,9 @@
<Height>1.65cm</Height>
<Width>10.70896cm</Width>
<ZIndex>25</ZIndex>
<Visibility>
<Hidden>=IIf(Parameters!CveEmpresa.Value = 48,True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -3022,10 +3050,10 @@
</ReportParameters>
<Variables>
<Variable Name="TotalActivoActual">
<Value>=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")</Value>
<Value>=Sum(iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE", Fields!ImporteActual.Value, 0) , "DataSet1")</Value>
</Variable>
<Variable Name="TotalActivoAnterior">
<Value>=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")</Value>
<Value>=Sum(iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE", Fields!ImporteAnterior.Value, 0), "DataSet1")</Value>
</Variable>
<Variable Name="TotalPasivoActual">
<Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Fields!ImporteActual.Value, 0), "DataSet1")</Value>
@@ -3035,22 +3063,22 @@
<Writable>true</Writable>
</Variable>
<Variable Name="TotalPatrimonioCActual">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO CONTRIBUIDO" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
</Variable>
<Variable Name="TotalPatrimonioHActual">
<Value>=Variables!TotalPatrimonioCActual.Value</Value>
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO GENERADO" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
</Variable>
<Variable Name="TotalPatrimonioCAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO CONTRIBUIDO" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
</Variable>
<Variable Name="TotalPatrimonioHAnterior">
<Value>=Variables!TotalPatrimonioCAnterior.Value</Value>
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PATRIMONIO GENERADO" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
</Variable>
<Variable Name="TotalpasivoYHaciendaActual">
<Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value>
<Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value+Variables!TotalPatrimonioCActual.Value</Value>
</Variable>
<Variable Name="TotalpasivoYHaciendaAnterior">
<Value>=Variables!TotalPatrimonioHAnterior.Value+ Variables!TotalPasivoAnterior.Value</Value>
<Value>=Variables!TotalPasivoAnterior.Value+Variables!TotalPatrimonioHAnterior.Value+Variables!TotalPatrimonioCAnterior.Value</Value>
</Variable>
</Variables>
<rd:ReportUnitType>Cm</rd:ReportUnitType>

4
App_Code/ClsContPAQi.vb
View File

@@ -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 ")

2
App_Code/ClsGenerales.vb
View File

@@ -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

24
App_Code/ClsInventarios.vb
View File

@@ -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"

2
App_Code/ClsLeyendasFiscales.vb
View File

@@ -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()

2
App_Code/ClsMetodosPagos.vb
View File

@@ -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()

10
App_Code/ClsRH.vb
View File

@@ -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

4
Ashx/SIGWeb.ashx
View File

@@ -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")

39
Inventarios/InventarioFisicoDetalle.aspx
View File

@@ -244,6 +244,45 @@
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpBuscar" runat="server" RenderMode="Inline" ViewStateMode="Inherit" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-3">
<asp:Panel ID="Panel1" runat="server" DefaultButton="BtnBuscarCodVarras">
<div class="portlet smmallpadding light bordered" id="Div2" runat="server">
<div class="portlet-title">
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="caption uppercase" style="position: relative;">
<i class="fa fa-info-circle"></i>Consultar Producto
</div>
</div>
<div class="portlet-body">
<div class="row" style="margin-top: 5px;">
<label class="col-sm-4">Código.Barras</label>
<div class="col-sm-4">
<asp:TextBox runat="server" CssClass="form-control" ID="TxtConCodigoVarras"></asp:TextBox>
</div>
<div class="col-sm-4">
<asp:Button ID="BtnBuscarCodVarras" OnClick="BtnBuscarCodVarras_Click" runat="server" Text="Consultar" class="btn btn-primary" Enabled="true" />
</div>
</div>
<div class="row" style="margin-top: 5px;">
<%--<label class="col-sm-4 "> </label>--%>
<div class="col-sm-12" style="text-align: center">
<h4>
<asp:Label ID="LblContador" CssClass="bold" runat="server" Text=""></asp:Label>
</h4>
</div>
</div>
</div>
</div>
</asp:Panel>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<asp:UpdatePanel ID="UPPInventario" runat="server" UpdateMode="Conditional">
<ContentTemplate>

92
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -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 <b>{SerieLote}</b> 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

4
OS/Asignaciones.aspx
View File

@@ -155,8 +155,8 @@
<span class="caption-subject bold uppercase">Ordenes Sin Asignar</span>
<div class="row" id="DivAsignar" runat="server" style="margin-left: 15px;">
<asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" DataValueField="CveUsuario"></asp:DropDownList>
<asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" />
<asp:DropDownList ID="DdlTecnico" CssClass="form-control input-sm select2me" runat="server" DataTextField="Nombre" Visible="true" DataValueField="CveUsuario"></asp:DropDownList>
<asp:Button ID="BtnAsignar" CssClass="btn btn-primary" runat="server" Text="Asignar" ValidationGroup="Asignar" Visible="true" />
</div>
</div>
<div class="actions">

1
OS/Asignaciones.aspx.vb
View File

@@ -48,6 +48,7 @@ Partial Class OS_Asignaciones
BtnAsignar.Visible = False
End If
End If
ObjEstatusPermisos.Dispose()
End If
End Sub

2
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -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

68
OS/OrdenesServicios.aspx.vb
View File

@@ -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)

95
RH/Personal.aspx
View File

@@ -1248,12 +1248,16 @@
</div>
<div class="col-md-8">
<div class="portlet light bordered xspadding">
<div class="portlet light bordered xspadding" id="porletconceptos">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-user-following font-green"></i>
<i class="fa fa-bookmark font-green"></i>
<span class="caption-subject bold uppercase">Conceptos</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<asp:Button ID="BtnGuardarConceptos" runat="server" Text="Guardar Conceptos" class="btn btn-primary" />
@@ -1261,7 +1265,9 @@
</div>
</div>
<div class="portlet-body form">
<asp:GridView ID="GVConceptos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal,CveConcepto,CvePersonalConcepto,Obligatorio" Width="550px" CssClass="table table-striped table-advance table-hover" Style="text-align: center;" GridLines="None">
<asp:GridView ID="GVConceptos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal,CveConcepto,CvePersonalConcepto,Obligatorio"
data-height="300"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>Aplica</HeaderTemplate>
@@ -1309,6 +1315,10 @@
<asp:ListItem Text="Saldo" Value="1"></asp:ListItem>
<asp:ListItem Text="No. Pagos" Value="2"></asp:ListItem>
<asp:ListItem Text="Permanente" Value="2600"></asp:ListItem>
<asp:ListItem Text="Infonavit(Movto Permanente)" Value="5000"></asp:ListItem>
<asp:ListItem Text="Infonavit(Porcentaje)" Value="5001"></asp:ListItem>
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
</asp:DropDownList></td>
<td width="65px">
<asp:Literal ID="LtlNoPago" runat="server" Text='<%# If(IsNumeric(Eval("NoPago")), Eval("NoPago").ToString + "/", "")%>' Visible="false"></asp:Literal>
@@ -1331,6 +1341,85 @@
</div>
</div>
<div class="portlet light bordered xspadding" id="porletInfonavit">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-home font-green"></i>
<span class="caption-subject bold uppercase">Infonavit</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<asp:Button ID="BtnGuardarInfornavit" OnClick="BtnGuardarInfornavit_Click" runat="server" Text="Guardar" class="btn btn-primary" />
</div>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoNumCredito" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoNumCredito" runat="server" Text="Número de crédito"></asp:Label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoDescripcion" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoDescripcion" runat="server" Text="Descripción"></asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:Label AssociatedControlID="DdlInfoTipoAplicacion" runat="server" Text="Tipo Aplicación"></asp:Label>
<asp:DropDownList ID="DdlInfoTipoAplicacion" AutoPostBack="true" runat="server" Class="form-control select2me" width="100%">
<asp:ListItem Text="Infonavit(Movto Permanente)" Value="5000"></asp:ListItem>
<asp:ListItem Text="Infonavit(Porcentaje)" Value="5001"></asp:ListItem>
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtInfoValor" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoValor" runat="server" Text="Valor"></asp:Label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright " style="width: 120px !important; display: inline-block;">
<asp:TextBox CssClass="form-control" ID="TxtInfoFechaInicio" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label AssociatedControlID="TxtInfoFechaInicio" runat="server" Text="Fecha Inicio"></asp:Label>
<asp:RequiredFieldValidator runat="server" ID="REQFechaF" ControlToValidate="TxtInfoFechaInicio" ErrorMessage="Debe ingresar una fecha" ValidationGroup="vgEstFin" />
<ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtInfoFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFechaF" TargetControlID="TxtInfoFechaInicio" PopupButtonID="ImgFechaFEstFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div style="display: inline-block; vertical-align: top; padding-top: 10px;">
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaFEstFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
</div>
<div class="col-md-3">
<div class="form-group form-md-line-input input-iconright">
<asp:Label AssociatedControlID="ChkInfo" runat="server" Text="Estado (Activo)"></asp:Label>
</div>
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkInfo" CssClass="chksino" runat="server" Text =" " />
</div>
</div>
</div>
</div>
<div class="portlet box blue-hoki" style="width: 100%;">
<div class="portlet-title">
<div class="caption">

37
RH/Personal.aspx.vb
View File

@@ -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

8
Ventas/Ventas.aspx
View File

@@ -2952,14 +2952,14 @@
<asp:TextBox ID="TxtImporteCredito" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporteCredito" FilterType="Custom, Numbers" ValidChars=".," />
</div>
<div class="col-md-6" runat="server" id="DivDdlCuentaTarjetaCredito" >
<div class="col-md-6" runat="server" id="DivDdlCuentaTarjetaCredito" style="margin-right:-40px" >
<asp:DropDownList ID="DdlCuentaTarjetaCredito" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlCuentaTarjetaCredito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false">
<asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%">
<asp:ListItem Value="-1">Meses</asp:ListItem>
<div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false" style="text-align:right;">
<asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="80%">
<asp:ListItem Value="-1">MSI</asp:ListItem>
<asp:ListItem Value="3">3M</asp:ListItem>
<asp:ListItem Value="6">6M</asp:ListItem>
<asp:ListItem Value="9">9M</asp:ListItem>

99
Ventas/Ventas.aspx.vb
View File

@@ -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
@@ -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)
@@ -5705,6 +5709,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
@@ -6189,7 +6197,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
@@ -16143,7 +16151,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 +22603,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 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
'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
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