Publicado el Dejar un comentario

PuntoV007, Al cerrar el punto de venta

Sub Main()
For n = 1 To fg2.Rows – 1
If clEmpty(fg2.TextMatrix(n, 0)) Then
Exit For
End If

If UCase(Trim(fg2.TextMatrix(n, 0))) = “RTELCEL” OR UCase(Trim(fg2.TextMatrix(n, 0))) = “RMOVISTAR” OR _
UCase(Trim(fg2.TextMatrix(n, 0))) = “RIUSACELL” OR UCase(Trim(fg2.TextMatrix(n, 0))) = “RUNEFON” OR _
UCase(Trim(fg2.TextMatrix(n, 0))) = “RNEXTEL” Then
CancelaProceso = True
Exit For
End If
Next
End Sub

.

.

.

COMPRASO10 16:26:20 -2147217900:No hay suficiente memoria disponible en el grupo de búferes. in line 4 Error de sistema: -2147217900 No hay suficiente memoria disponible en el grupo de búferes.

Deja un comentario