FoxPro/Visual FoxPro - PROBLEMA CON registro en tablas

   
Vista:

PROBLEMA CON registro en tablas

Publicado por ALEX CHINCHILLA (1 intervención) el 26/04/2012 22:10:11
Buenas!! mi problema es que logro guardar datos en una tabla pero de manera inadecuada
es decir ingreso un valor en la fila 1 y columna 1 campo impr100 pero a la hora que ingreso un valor en el campo impr150 que esta en la columna 2 me lo ingresa abajo del registro de la columna 1
es decir fila 2 y columna 2 y yo quiero que ingrese en la primera fila. de antemano gracias un ejemplo de lo que me pasa.

impr100__________ impr150 _________ impr200

1
__________________ 2
_________________________________3

le puse guiones porque no me dejaba solo asi
y yo lo necesito asi!


impr100 impr150 impr200
1 2 3


select notas
IF thisform.combo1.Value="Q 1.00"
IF thisform.text7.value>0
insert into notas(impr100) values (thisform.text7.value)
thisform.grid1.Refresh
thisform.refresh
ELSE
WAIT window"Ingrese una Cantidad"
ENDIF
ENDIF

IF thisform.combo1.Value="Q 1.50"
IF thisform.text7.value>0
insert into notas(impr150) values (thisform.text7.value)
thisform.grid1.Refresh
thisform.refresh
ELSE
WAIT window"Ingrese una Cantidad"
ENDIF
endif

IF thisform.combo1.Value="Q 2.00"
IF thisform.text7.value>0
insert into notas(impr200) values (thisform.text7.value)
thisform.grid1.Refresh
thisform.refresh
ELSE
WAIT window"Ingrese una Cantidad"
ENDIF
endif
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
Imágen de perfil de Mauricio

PROBLEMA CON registro en tablas

Publicado por Mauricio (1368 intervenciones) el 27/04/2012 03:14:10
Me parece que el problema es porque el insert de los 3 campos lo haces en 3 if diferentes, si lo hicieras en un solo if, te quedaria como lo deseas:
STORE 0 to vimp100, vimp150, vimpr200
*
select notas
IF thisform.combo1.Value="Q 1.00"
IF thisform.text7.value>0
.....vimp100 = thisform.text7.value

ELSE
WAIT window"Ingrese una Cantidad"
RETURN 0
ENDIF
ENDIF
*
IF thisform.combo1.Value="Q 1.50"
IF thisform.text7.value>0
.....vimp150 = thisform.text7.value
ELSE
WAIT window"Ingrese una Cantidad"
RETURN 0
ENDIF
endif
*
IF thisform.combo1.Value="Q 2.00"
IF thisform.text7.value>0
.....vimp200 = thisform.text7.value
ELSE
WAIT window"Ingrese una Cantidad"
RETURN 0
ENDIF
endif
*
IF vimp100 > 0 OR vimp150> 0 OR vimpr200>0
insert into notas(impr100, impr150, impr200) values (vimp100, vimp150 vimpr200)
thisform.grid1.Refresh
thisform.refresh
ENDIF
* Pruebalo asi. Suerte!!
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