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

unificación de GlobalDT Estados,Municipios

Browse Source 
cambios en para carta porte
This commit is contained in:
rrene
2021-12-12 09:12:20 -07:00
parent d58d6d0451
commit 09365748de
21 changed files with 215 additions and 277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
RH/Personal.aspx.vb
View File

@@ -1282,7 +1282,7 @@ Partial Class RH_Personal
End Sub
Private Sub CargaEstados(pCvePais As Integer)
DdlEstados.DataSource = GlobalDTGralEstados(pCvePais)
DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais)
DdlEstados.DataBind()
End Sub
@@ -4456,22 +4456,22 @@ Partial Class RH_Personal
Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)
Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString().ToEntero()
Dim Total As Decimal = gvr.DataKey("Total").ToString().ToDecimal
Dim RFCReceptor As String = gvr.DataKey("RFC").ToString()
'Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
'Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
'Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString().ToEntero()
'Dim Total As Decimal = gvr.DataKey("Total").ToString().ToDecimal
'Dim RFCReceptor As String = gvr.DataKey("RFC").ToString()
Dim Obj As New Timbrado
'Dim Obj As New Timbrado
If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
Dim ObjNomina As New ClsNominas()
ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", Now, CveNomina)
ObjNomina.Dispose()
Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
End If
'If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
' Dim ObjNomina As New ClsNominas()
' ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", Now, CveNomina)
' ObjNomina.Dispose()
' Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
'End If
Obj = Nothing
'Obj = Nothing
End Sub