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

--FIX limpieza en aplicacion de RNC

Browse Source
This commit is contained in:
JPerez
2025-05-29 12:53:34 -07:00
parent 205cdbcef0
commit 2e29200732
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Ventas/Ventas.aspx.vb
View File

@@ -36535,6 +36535,7 @@ Partial Class Ventas
#Region "D E S C U E N T O S X R E M I S I O N D E N O T A D E C R E D I T O" #Region "D E S C U E N T O S X R E M I S I O N D E N O T A D E C R E D I T O"
Protected Sub BtnAplicarRemisionNC_Click(sender As Object, e As EventArgs) Protected Sub BtnAplicarRemisionNC_Click(sender As Object, e As EventArgs)
'LIMPIAR DATOS
Me.AplicaRNCXDetalle = False Me.AplicaRNCXDetalle = False
Me.AplicaRNCBonificacionXDetalle = False Me.AplicaRNCBonificacionXDetalle = False
@@ -36550,6 +36551,16 @@ Partial Class Ventas
ListaNCBonificacion.Clear() ListaNCBonificacion.Clear()
End If End If
TxtImportesRemisionesNC.Text = "0.00"
TxtNCImporte.Text = "0.00"
For Each gvr As GridViewRow In GvCxC.Rows
If gvr.RowType = DataControlRowType.DataRow Then
gvr.FCCheckBox("ChkCxC").Checked = False
gvr.FCTextBox("TxtImporte").Text = ""
End If
Next
Dim TotalRemNCAplicado As Decimal = 0 Dim TotalRemNCAplicado As Decimal = 0
Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())