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

-- option explicit

Browse Source
This commit is contained in:
rrene
2023-09-18 09:04:21 -07:00
parent a66043a7ba
commit 98017286c9
3 changed files with 98 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/ProductosServicios.aspx.vb
View File

@@ -1869,10 +1869,10 @@ Partial Class ProductosyServicios
CargaGvPSAdicionales()
End Sub
Private Sub GvPSAdicionales_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvPSAdicionales.RowDeleting
Dim TieneError = False
Dim TieneError As Boolean = False
Dim CvePSAdicional = GvPSAdicionales.Rows(e.RowIndex).DataKey("CvePSAdicional").ToEntero
Dim PSAdicional = GvPSAdicionales.Rows(e.RowIndex).DataKey("PS").ToString
Dim CvePSAdicional As Integer = GvPSAdicionales.Rows(e.RowIndex).DataKey("CvePSAdicional").ToEntero
Dim PSAdicional As String = GvPSAdicionales.Rows(e.RowIndex).DataKey("PS").ToString
Dim ObjProductosServicios As New ClsProductosServicios()
If Not ObjProductosServicios.RemovePSAdicionales(CvePS, CvePSAdicional) Then
@@ -1912,7 +1912,7 @@ Partial Class ProductosyServicios
Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click
Dim ObjProductosServicios As New ClsProductosServicios()
ObjProductosServicios.IniciaTransacSQL()
Dim TieneError = False
Dim TieneError As Boolean = False
If CvePSAdicional < 0 Then
If Not ObjProductosServicios.AddPSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then