Layout Nomina ScotiaBank

OC/OC.aspx.vb

@@ -3976,6 +3976,8 @@ Partial Class OC_OC
     Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click
         Dim ObjEventos As New ClsOIEventos
 
+
+
         If CveEstatusFinalError > 0 Then
             Dim objOrdenCompra As New ClsOC
             objOrdenCompra.IniciaTransacSQL()
@@ -9499,6 +9501,10 @@ Partial Class OC_OC
 
         Dim Respuesta As Boolean = True
 
+        If TipoOC <> "OC" Then
+            Return True 'solo genera poliza de presupuesto si es OC
+        End If
+
         If UsuarioActual.Empresa.Funcionalidad(532).Contiene("2") Then
 
             Dim CveMonedaPresupuesto As Integer = DdlMoneda.SelectedValue.ToEntero