Ayuda sobre programa de facturaciòn

sombra24
23 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 "@x,y say " porque cuando ejecuto mi .prg de factura, me dbuja mi formulario y me sale un cuadro de diálogo que dice "No es una ventana definida por el usuario"

El formulario "factura.scx" consta de un formulario con una cuadrìcula para que cuandose ejecuten las instrucciones "@say"
lo mande de acuerdo a la cuadrìcula del formulario.

Ese formulario se puede dibujar con la herramienta "lìnea" y lo guardan como "factura.scx"

El còdigo es el siguiente:

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


andres
23 de Enero del 2004
Para que te matas haciendo Say´s y Get´s
Si tenes todo un entorno visual a tu disposicion y podes usar las herramietas de los formularion para escribir en el formulario solo arrastrando los campos .?????????????????????

welfo
23 de Enero del 2004
Hola, Si estas utilizando visual foxpro, desde la version 3, 5 6, 7 u 8 olvida completamente los say-gets esos ya no se utilizan, es antiestetico para los programadores fox, tengo una pequeña aplicacion que te puede servir y adecuar a lo que necesites si te interesa te la mando, y nuevamente olvida eso. bye