append blank
Publicado por andres (42 intervenciones) el 03/12/2003 02:28:43
Hola mi problema es el siguiente_:
Ya puedo utilizar mi sistema en red pero al momento que encuentra un append blank me genera el siguiente error
cannot update the cursor, por ejemplo en este codigo me lo marca
Ya puedo utilizar mi sistema en red pero al momento que encuentra un append blank me genera el siguiente error
cannot update the cursor, por ejemplo en este codigo me lo marca
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
select * from tb_transm where f_fecha = fecha2 into cursor curplan
selec curplan
Do While !EOF()
horini = c_horini cliente = c_cliente version1 = c_version canal = c_canal duracion = c_duracion transm = c_transmselect tb_transm
if flock()
***aqui me lo marca ******************************
append blank
**********************************************************
Replace f_fecha With fecha3
Replace c_horini With horini
Replace c_cliente With cliente
Replace c_version With version1
Replace c_canal With canal
Replace c_duracion With duracion
Replace c_transm With transm
unlock
wait window "Registro grabado" timeout 1.5
thisform.refreshelse
wait window "No se grabo el registro" timeout 2endif
select curplan
Skip
Enddo
Valora esta pregunta


0
