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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-05-09 21:56:36 -07:00
parent 519b59057b 3c493fd563
commit f789f1f207
5 changed files with 305 additions and 850 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
App_Code/ClsNominas.vb
View File

@@ -323,20 +323,7 @@ Public Class ClsNominas
End Try End Try
Return retorno Return retorno
End Function End Function
Public Function GetNominasSinTimbrar() As Boolean
Dim retorno As Boolean = False
DTSet = New DataSet()
DataAdapter("PA_Nom_NominasSinTimbrar", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al NominasSinTimbrar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function PersonalISRAnual(CvePersonal As Integer, cveEmpresa As Integer, Ejercicio As Integer) As Boolean Public Function PersonalISRAnual(CvePersonal As Integer, cveEmpresa As Integer, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DTSet = New DataSet() DTSet = New DataSet()

1124
GPS/PalletEtiquetaCaja.rdlc
View File

File diff suppressed because it is too large Load Diff

BIN
GPS/vssver2.scc
View File

Binary file not shown.

14
Inicio.aspx.vb
View File

@@ -92,13 +92,13 @@ Partial Class Inicio
End If End If
If UsuarioActual.CveUsuario = 100 Then If UsuarioActual.CveUsuario = 100 Then
Using objnom As New ClsNominas 'Using objnom As New ClsNominas
If objnom.GetNominasSinTimbrar() AndAlso objnom.DtResultados.Rows.Count > 0 Then ' If objnom.GetNominasSinTimbrar() AndAlso objnom.DtResultados.Rows.Count > 0 Then
GVNomPendientesxTimbrar.DataSource = objnom.DtResultados ' GVNomPendientesxTimbrar.DataSource = objnom.DtResultados
GVNomPendientesxTimbrar.DataBind() ' GVNomPendientesxTimbrar.DataBind()
RegistraScript("$('#NominasSinTimbrar').modal();", "tikNominasSinTimbrar") ' RegistraScript("$('#NominasSinTimbrar').modal();", "tikNominasSinTimbrar")
End If ' End If
End Using 'End Using
Using objventas As New ClsVentas Using objventas As New ClsVentas
If objventas.GETVentasPendientesdeTimbrar(UsuarioActual.CveEmpresa) AndAlso objventas.DtResultados.Rows.Count > 0 Then If objventas.GETVentasPendientesdeTimbrar(UsuarioActual.CveEmpresa) AndAlso objventas.DtResultados.Rows.Count > 0 Then
GVVtasPendientesxTimbrarSAT.DataSource = objventas.DtResultados GVVtasPendientesxTimbrarSAT.DataSource = objventas.DtResultados

2
vwd.webinfo
View File

@@ -480,6 +480,8 @@