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

IE Modal Complementos se elimina opcion de regenerar complemento

Browse Source
This commit is contained in:
rakcsle
2022-06-29 11:13:01 -07:00
parent 42fc3afdb9
commit d0bfe6a679
2 changed files with 5 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
Bancos/IE.aspx.vb
View File

@@ -5735,9 +5735,7 @@ Partial Class Bancos_IE
Dim ObjBancos As New ClsBancos
If UsuarioActual.CveRol = 1 Then
GvComplementoPagos.Columns(7).Visible = True
End If
DVGenerarComplementoModal.Visible = False
@@ -5752,7 +5750,7 @@ Partial Class Bancos_IE
GvComplementoPagos.DataSource = Nothing
End If
GvComplementoPagos.Columns(8).Visible = False
GvComplementoPagos.Columns(7).Visible = False
Else
If CveIE > 0 Then
If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
@@ -5775,7 +5773,7 @@ Partial Class Bancos_IE
End If
End If
GvComplementoPagos.Columns(8).Visible = True
GvComplementoPagos.Columns(7).Visible = True
End If
ObjBancos.Dispose()
@@ -5829,7 +5827,6 @@ Partial Class Bancos_IE
GvComplementoPagos.Columns(6).Visible = False
GvComplementoPagos.Columns(7).Visible = False
GvComplementoPagos.Columns(8).Visible = False
GvComplementoPagos.Columns(9).Visible = False
End If
@@ -5846,41 +5843,6 @@ Partial Class Bancos_IE
End Sub
Protected Sub imgRegenerar_Click(sender As Object, e As EventArgs)
Dim gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
Dim FolioFiscalPadre As String = gvr.DataKey("FolioFiscal")
If FolioFiscalPadre <> "" Then
Dim Str As New StringBuilder
Dim ObjBanco As New ClsBancos
ObjBanco.IniciaTransacSQL()
If ObjBanco.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, FolioFiscalPadre, EsRegeneracion:=True) Then
ObjBanco.Commit()
Str.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjBanco.ComplementoSerieFolio)
Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML &nbsp;<i class="" fa fa-file""></i></i></a>&nbsp;&nbsp;", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
Str.AppendFormat("<a class="" texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF &nbsp;<i class="" fa fa-ad-pdf""></i></i></i></a>&nbsp;", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%"))))
'Str.Append($"<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveID={gvr.DataKey("CveIE")}'>{gvr.DataKey("Folio")}</a> &nbsp; {gvr.DataKey("NombreCliente")}<br>")
PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False, True)
Alert(Str.ToString, TipoMensaje.MsgInformacion)
CargaComplementosPago()
Else
Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), ObjBanco.Mensaje)
Alert(Str.ToString, TipoMensaje.MsgError)
ObjBanco.RollBack()
End If
ObjBanco.Dispose()
Else
Alert("El complemento no tiene Folio Fiscal", TipoMensaje.MsgError)
End If
End Sub
Private Function VerificaComplementos(Validos As Boolean) As Boolean
Dim ObjBancos As New ClsBancos
Dim Retorno As Boolean = False