mira este es un codigo de popup de un command botton en un evento clic()
use vendedor in 0 order nombre alias vendedor
select vendedor
SET CONFIRM ON
DEFINE POPUP JERE FROM 2,50 TO 15,100 PROMPT FIELD rtrim(nombre)+" "+ rtrim(rut_cli+"-"+rut_ver) TITLE "NOMBRE RUT"
ON SELECTION POPUP JERE DEACTIVATE POPUP
PUSH KEY CLEAR
ACTIVATE POPUP JERE
IF LASTKEY()=13
xrut_cli = rut_cli
xrut_ver = rut_ver
xnombre = nombre
use v_diario in 0 order tag rut_cli alias v_diario
select v_diario
if seek (substr(xrut_cli,1,8))
xcantidad = cantidad
xedicion = edicion
xcan = cantidad
x_fe = fecha
thisform.xcantidad.enabled=.t.
thisform.xedicion.enabled=.f.
thisform.pageframe1.page1.enabled=.t.
thisform.refresh
else
thisform.xedicion.setfocus
thisform.pageframe1.page1.enabled=.f.
use in select ('v_diario')
thisform.refresh
endif
use in select ('v_diario')
use ventas in 0 order tag rut_cli alias ventas noupdate
select ventas
if seek(substr(xrut_cli,1,8))
do while !eof() and substr(xrut_cli,1,8)=rut_cli
text1=text1+can
select ventas
skip
enddo
endif
use in select ('ventas')
use in select ('vendedor')
DEACTIVATE POPUP JERE
thisform.nuevo.enabled=.t.
thisform.guardar.enabled=.t.
thisform.eliminar.enabled=.t.
thisform.ayuda.enabled=.f.
use in select('cliente')
SET CONFIRM OFF
thisform.refresh
ENDIF
use in select ('vendedor')
espero te ayude de algo saludos enviae un mail a
[email protected] guillermo
pagina en construccion :-)
