Ingresar de nuevo un dato de una tabla
Publicado por Pablo (2 intervenciones) el 14/09/2017 19:51:15
Hola a Todos!!
Tengo un problema con un programa de VFP 9.0
Hice un programa el cual tiene una base de datos pero cuando ingreso un dato nuevo lo guarda, por ejemplo:
Ancho Largo
20 10
15 5
Cuando vuelvo a ingresar Datos copiados ya no los guarda porque ya los guarde.... entonces no es necesario....
Pero cuando quiero ingresar UN solo dato copiado por ejemplo:
Ancho Largo
20 50
No me deja Guardar..... Porque ya esta el de "Ancho" Guardado.... y lo que necesito es que me guarde datos sin importar que aya 1 ya registrado.....
ESTA ES LA PROGRAMACIÓN QUE PUSE EN "TIMER" por que los guarda automaticamente......
SI LA PUDIERAN REVISAR Y DECIRME ALGUNA FORMA DE HACERLO O ALGUN CONSEJO LES ESTARE MUY AGRADECIDO!!
De ante mano GRACIAS!!!
Tengo un problema con un programa de VFP 9.0
Hice un programa el cual tiene una base de datos pero cuando ingreso un dato nuevo lo guarda, por ejemplo:
Ancho Largo
20 10
15 5
Cuando vuelvo a ingresar Datos copiados ya no los guarda porque ya los guarde.... entonces no es necesario....
Pero cuando quiero ingresar UN solo dato copiado por ejemplo:
Ancho Largo
20 50
No me deja Guardar..... Porque ya esta el de "Ancho" Guardado.... y lo que necesito es que me guarde datos sin importar que aya 1 ya registrado.....
ESTA ES LA PROGRAMACIÓN QUE PUSE EN "TIMER" por que los guarda automaticamente......
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
SELECT Datos3
IF thisform.text5.Value=0
ELSE
IF thisform.text6.Value=0
ELSE
LOCATE FOR n5 = thisform.text5.Value
LOCATE FOR n6 = thisform.text6.Value
IF FOUND()
ELSE
LOCATE FOR n5=thisform.text5.Value
IF .not. FOUND()
thisform.Refreshthisform.timer1.Interval=5000
APPEND BLANK
replace n5 WITH thisform.text5.Value
replace n6 WITH thisform.text6.Value
replace total3 WITH thisform.text35.Value
replace fecha3 WITH DATE()
co=thisform.text5.Value
LOCATE FOR n5=coDO CASE
CASE FOUND()
thisform.text5.SetFocus
thisform.RefreshENDCASE
LOCATE FOR n6=thisform.text6.Value
IF .not. FOUND()
thisform.Refreshthisform.timer1.Interval=5000
APPEND BLANK
replace n5 WITH thisform.text5.Value
replace n6 WITH thisform.text6.Value
replace total3 WITH thisform.text35.Value
replace fecha3 WITH DATE()
co2=thisform.text6.Value
LOCATE FOR n6=co2DO CASE
CASE FOUND()
thisform.text6.SetFocus
thisform.RefreshENDCASE
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
SI LA PUDIERAN REVISAR Y DECIRME ALGUNA FORMA DE HACERLO O ALGUN CONSEJO LES ESTARE MUY AGRADECIDO!!
De ante mano GRACIAS!!!
Valora esta pregunta
0
