diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 4ca4f9f33..e20a44fc5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -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" Protected Sub BtnAplicarRemisionNC_Click(sender As Object, e As EventArgs) + 'LIMPIAR DATOS Me.AplicaRNCXDetalle = False Me.AplicaRNCBonificacionXDetalle = False @@ -36550,6 +36551,16 @@ Partial Class Ventas ListaNCBonificacion.Clear() 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 ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())