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

desaplicar pago de anticipo de compra

Browse Source
This commit is contained in:
rrene
2023-01-31 09:08:37 -07:00
parent 6fe17b78f9
commit 4ad1d89087
1 changed files with 46 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -225,13 +225,21 @@ Partial Class PopUpAuxiliar
e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarCompra" e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarCompra"
e.Row.FCLinkButton("imgD").Visible = False e.Row.FCLinkButton("imgD").Visible = False
If e.Row.DBCampo("CveConceptoContable").Contiene("272") Then If e.Row.DBCampo("CveConceptoContable").Contiene("272") Then
e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveCompraAmortizacion")) e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}|{3}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveIE"))
Else Else
e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra")) e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}|{3}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE"))
End If End If
End If
If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("21") Then 'desaplicar anticipo de compra
e.Row.FCLinkButton("LnkDesAplicar").Visible = True
e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarAnticipoCompra"
e.Row.FCLinkButton("imgD").Visible = False
e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE"))
End If
If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then
e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Bancos/IE.aspx?CveIE={e.Row.DBCampo("CveReferencia").ToEntero}" e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Bancos/IE.aspx?CveIE={e.Row.DBCampo("CveReferencia").ToEntero}"
'If e.Row.DBCampo("CveReferencia").ToEntero > 0 Then 'If e.Row.DBCampo("CveReferencia").ToEntero > 0 Then
' e.Row.Cells(10).Text = "" ' e.Row.Cells(10).Text = ""
@@ -519,6 +527,40 @@ Partial Class PopUpAuxiliar
End If End If
If e.CommandName = "DesAplicarAnticipoCompra" Then
Dim CvePrePoliza, CveCompra, CveIE As Integer
Dim TieneError = False
Dim St As String() = e.CommandArgument.ToString.Split("|"c)
If St.Length > 0 Then
CvePrePoliza = St(0).ToEntero
CveCompra = St(1).ToEntero
CveIE = St(2).ToEntero
End If
If CvePrePoliza > 0 Then
Dim Conta As New ClsContabilidad()
Conta.IniciaTransacSQL()
If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
TieneError = True
End If
If Not TieneError AndAlso Not Conta.DesAplicarPago(CvePrePoliza, 21, CveCompra, CveIE) Then
TieneError = True
End If
If Not TieneError Then
Conta.Commit()
Alert("Pago Desaplicado.", TipoMensaje.ToastInformacion)
Else
Conta.RollBack()
Alert("Pago no fue desaplicado.", TipoMensaje.ToastError)
End If
End If
End If
End Sub End Sub
End Class End Class