FoxPro/Visual FoxPro - Ingresar de nuevo un dato de una tabla

   
Vista:

Ingresar de nuevo un dato de una tabla

Publicado por Pablo albertitourbinita@gmail.com (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......

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.Refresh
 
thisform.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=co
DO CASE
CASE FOUND()
thisform.text5.SetFocus
thisform.Refresh
ENDCASE
 
 
LOCATE FOR n6=thisform.text6.Value
 
IF .not. FOUND()
thisform.Refresh
 
thisform.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=co2
DO CASE
CASE FOUND()
thisform.text6.SetFocus
thisform.Refresh
ENDCASE
 
 
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ingresar de nuevo un dato de una tabla

Publicado por Fidel José (539 intervenciones) el 14/09/2017 23:30:51
Debes comprobar ambos valores al mismo tiempo

1
2
3
4
5
6
7
8
9
10
11
12
co1=thisform.text5.Value
co2=thisform.text6.Value
 
SELECT DATOS3
LOCATE FOR N5 = CO1 AND N6 = CO2
lFound = Found()
 
IF NOT LFOUND
        INSERT INTO DATOS3 (n5,n6) VALUES (co1,co2)
ELSE
       MESSAGEBOX("ya incluida")
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad