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:29:09 -07:00
parent bc3b76b415
commit 06999ef50a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
OC/OC.aspx.vb
View File

@@ -3591,11 +3591,11 @@ Partial Class OC_OC
If CveEstatusFinalError > 0 Then If CveEstatusFinalError > 0 Then
Dim objOrdenCompra As New ClsOC Dim objOrdenCompra As New ClsOC
objOrdenCompra.IniciaTransacSQL() objOrdenCompra.IniciaTransacSQL()
Dim TieneError = False Dim TieneError As Boolean = False
'AC 'AC
Dim ObjAC As ClsContPAQi = Nothing Dim ObjAC As ClsContPAQi = Nothing
Dim PolizaCancelacion = -1 Dim PolizaCancelacion As Integer = -1
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjAC.IniciaTransacSQL() ObjAC.IniciaTransacSQL()
@@ -3655,8 +3655,8 @@ Partial Class OC_OC
' > 0: GENERO POLIZA DE CANCELACION ' > 0: GENERO POLIZA DE CANCELACION
' < 0: ERROR ' < 0: ERROR
Dim ErrorCancelar = False Dim ErrorCancelar As Boolean = False
Dim IdPolizaNueva = 0 Dim IdPolizaNueva As Integer = 0
If IDPolizaPresupuestal > 0 Then If IDPolizaPresupuestal > 0 Then
Dim dt As DataTable Dim dt As DataTable