Autor: jose felix

Sub Main()

Me.usuarioRequerido = 0

‘If Ambiente.Tag = 115 Then
‘LlenaPartida “Z002”
‘ Script.RunForm “RECOMENDADOS”, Me, Ambiente, , True
‘End If

If Parent.KeyControl = 1 Then
Exit Sub
End If

If ArticuloTiempoAire = False Then
If Ambiente.Tag = 118 Then
If Question(“Esta seguro de querer dejar esta venta como pendiente”) Then
Me.BorraVenta = True
Me.FinalizaOperacion
Exit Sub
End If
End If
End If

‘If Ambiente.Tag = 115 Then
‘
‘End If

‘If Ambiente.Tag = 187 Then
‘ FinalizaOperacion
‘ CancelaProceso = True
‘ txtFields(4) = “”
‘End If

End Sub

Function ArticuloTiempoAire()
Dim rstPV

Set rstPV = Rst(“SELECT articulo FROM partvta WHERE venta = ” & Me.Venta & ” AND (articulo = ‘RMOVISTAR’ OR ” & _
“articulo = ‘RTELCEL’ OR articulo = ‘RIUSACELL’ OR articulo = ‘RUNEFON’ OR articulo = ‘RNEXTEL’)”, Ambiente.Connection)

If Not rstPV.EOF Then
ArticuloTiempoAire = True
Else
ArticuloTiempoAire = False
End If

rstPV.Close
Set rstPV = Nothing
End Function