Pago electronico por grupos, actualizar estatus al generar layout, bloque en proveeedores aboar cuando no hat

This commit is contained in:
Rakcsle Supertramp
2020-04-07 15:33:54 -07:00
parent e9aa95995e
commit 0d27c67db1
3 changed files with 834 additions and 791 deletions

View File

@@ -1496,6 +1496,34 @@ Public Class ClsGenerales
Return Retorno
End Function
Public Function UpdateCuentasDepositosEstatusPagoElectronicoGrupos(CveCuentaDeposito As Integer, EstatusPagoElectronicoGrupos As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_CuentasDepositosUpdateEstatusPagoElectronicoGrupos")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuentaDeposito", SqlDbType.VarChar).Value = CveCuentaDeposito
.Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
#Region "T I P O - C A M B I O"

View File

@@ -166,7 +166,7 @@
</asp:UpdatePanel>
</div>
<div class="col-md-6">
<%-- <div class="col-md-6">
<div class="portlet light smmallpadding bordered">
<div class="portlet-title">
@@ -216,7 +216,7 @@
</div>
</div>
</div>
</div>--%>
</div>

File diff suppressed because it is too large Load Diff