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

-- activación de eliminar

Browse Source 
-- envio de parametro para aplicar devolución
This commit is contained in:
rrene
2021-03-09 19:32:07 -07:00
parent 5ac0f2c907
commit 0d77883d18
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Bancos/IE.aspx.vb
View File

@@ -767,12 +767,12 @@ Partial Class Bancos_IE
If TabCancelacion.Visible Then 'If TabCancelacion.Visible Then
LnkCancelar.Visible = False ' LnkCancelar.Visible = False
LnkCancelarComplemento.Visible = False ' LnkCancelarComplemento.Visible = False
LnkEliminar.Visible = False ' 'LnkEliminar.Visible = False
LnkCancelarComplementoImporte.Visible = False ' LnkCancelarComplementoImporte.Visible = False
End If 'End If
UppEliminarIE.Update() UppEliminarIE.Update()
@@ -4490,14 +4490,17 @@ Partial Class Bancos_IE
GeneraCancelacionEnCero = True GeneraCancelacionEnCero = True
End If End If
Dim TipoMovimiento As Integer = 1
If ChkGeneraCancelacion.Checked AndAlso GeneraCancelacionEnCero Then If ChkGeneraCancelacion.Checked AndAlso GeneraCancelacionEnCero Then
GeneraCancelacionEnCero = False GeneraCancelacionEnCero = False
TipoMovimiento = 2
End If End If
Dim CvePrePolizaCancelacion As Integer = 0 Dim CvePrePolizaCancelacion As Integer = 0
If Not GeneraCancelacionEnCero Then If Not GeneraCancelacionEnCero Then
'CANCELA IE MES ANTERIOR 'CANCELA IE MES ANTERIOR
CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero) CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, TipoMovimiento:=TipoMovimiento, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
If CvePrePolizaCancelacion <= 0 Then If CvePrePolizaCancelacion <= 0 Then
ErrorCancelar = True ErrorCancelar = True
MensajeError = "Error al cancelar IE MES ANTERIOR" MensajeError = "Error al cancelar IE MES ANTERIOR"