FoxPro/Visual FoxPro - Ayuda formulario foxpro 9

   
Vista:

Ayuda formulario foxpro 9

Publicado por federico (4 intervenciones) el 04/08/2012 20:14:32
Hola que tal?? tengo una hacer un formulario en el cual cargo un pedido de mercaderia. Cada mercaderia tiene su codigo, entonces tengo una campo para ingresar el codigo. Mi problema es que no se como hacer para que cuando ingrese el codigo de la mercaderia en un campo del formulario aparezca el nombre de la mercaderia la cual le corresponde el codigo y tambien los precios. Para todo esto tengo una tabla con los codigos, los nombres y los precios de la mercaderia y otra tabla para poner el pedido.

Espero su respuesta queridos colegas. les agradezco desde ya!
saludos
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

Ayuda formulario foxpro 9

Publicado por alberto (399 intervenciones) el 04/08/2012 23:47:43
es simple amigo en el keypress del campo texbox pon este codigo y despues asignas los valores allados a los otros campos :

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
LPARAMETERS nKeyCode, nShiftAltCtrl
if lastkey()= 13
    IF EMPTY(THIS.Value)
THISFORM.Text3.lostfocus()
THISFORM.Text3.value=""
THISFORM.Text3.selstart=0
THISFORM.Text3.setfocus()
NODEFAULT
retur
    ENDIF
SELECT Articulo
set order to codint
set dele on
set near on
SEEK alltrim(THISFORM.Text3.Value)
if found()
THISFORM.Text3.Value=Codint
THISFORM.text8.Value=Desartic
THISFORM.text14.Value=codart
do case
   case THISFORM.optiongroup1.VALUE=1
THISFORM.Text10.Value=P_lista
THISFORM.Text11.Value=P_lista
   case THISFORM.optiongroup1.VALUE=2
THISFORM.Text10.Value=P_lista2
THISFORM.Text11.Value=P_lista2
   case THISFORM.optiongroup1.VALUE=3
THISFORM.Text10.Value=P_lista3
THISFORM.Text11.Value=P_lista3
endcase
THISFORM.Text7.Value=EXISAL
smi=articulo.stomin
iF THISFORM.Text7.Value <= smi
	=messagebox("STOCK BAJO MINIMO" + CHR(13)+ CHR(13)+ "Debe Reponer Mercadería",0+48,"Administrador del Sistema")
ENDIF
 
return
else
MESSAGEBOX("ARTICULO no encontrado","AVISO")
THISFORM.Text3.lostfocus()
THISFORM.Text3.value=""
THISFORM.Text3.selstart=0
THISFORM.Text3.setfocus()
nodefault
endif
endif

espero que sea lo que buscas
saludos
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

Ayuda formulario foxpro 9

Publicado por Luis (1 intervención) el 10/09/2012 00:22:50
Hola! me podrias enviar tu desarrollo para analizarlo y adecuarlo al mio? Fui programador con dbase III, fox y clipper en los años 80 y 90 por lo que estoy desactualizado pero quiero implementar un proyecto de carga de pedidos por los vendedores con 3 tablas: Clientes, Articulos y la que se ira generando Pedidos.
Gracias
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