sombra24
18 de Enero del 2004

Hola amigos de este foro

Este foro es realmente bueno porque nos ayuda a los programadores novatos en vfp a salir de bastantes apuros.

Necesito saber c贸mo se define un formulario como ventana principal para que puedan ejecutarse instrucciones tipo "@ say x,y" porque cuando ejecuto mi .prg me dbuja mi formulario y me sale un cuadro de di谩logo que dice "No hay una ventana definida por el usuario"

Si requiere esto de un config.pws expl铆quenme por favor c贸mo se crea porque cuando lo abro aparece la l铆nea de c贸digo resource=off y me dice "No se encuentra la variable OFF"

Aqu铆 les mando el c贸digo, nada m谩s me falta definir el formulario "factura.scx" como formulario principal

clear screen
do form "factura.scx"
store 0 to folio
store space (50) to nom
store space (50) to dir
store space (20) to cd
store space (20) to rfc
store 0 to cant
store space (20) to des
store 0 to cu
store 0 to imp
store 0 to st
store 0 to iva
store 0 to tot
store 11 to r
store 0 to a
set century on
set date to dmy
@say 1,42 'FOLIO:' get folio picture("99999")
read
@3,4 say 'FECHA:'
read
@3,14 say date()
read
@4,4 say 'NOMBRE:' get nom picture("@!X")
read
@5,4 say 'DIRECCI脫N:' get dir picture("@!fX")
read
@6,4 say 'CIUDAD:' get cd picture("@!X")
read
@7,4 say 'RFC:' get rfc picture("AAAA999999XXX")
read
@9,4 say 'CANTIDAD'
@9,18 say 'DESCRIPCI脫N'
@9,40 say 'C.UNIT'
@9,53 say 'IMPORTE'

do while a<5
@r,4 get cant picture("999")
read
@r,18 get des picture("@!X")
read
@r,38 get cu picture("9999.99")
read
imp=cant*cu
@r,53 say imp
st=st+imp
a=a+1
r=r+2
store 0 to cant
store space (20) to des
store 0 to cu
enddo

@23,37 say 'SUBTOTAL:'
@23,53 say st picture ("99999.99")
iva=st*0.15
@24,40 say 'IVA:'
@24,53 say iva picture("99999.99")
tot=st+iva
@25,40 say 'TOTAL:'
@25,53 say tot picture("99999.99")

close databases
clear events
clear screen
set sysmenu to default

Espero la posible respuesta de alguno de los amigos de este foro