Fox pro
set talk off
do while .t.
defi wind S from 0,0 to 40,60 title "FACTURACION" close mini zoom
acti wind S
move wind S center
clear
store space (20) to pdescrip
store 0 to cantidad,precio@2,4 say "descripcion:" get pdescrip picture"@!20" font "CASTELLER",14 color B/R*
@4,4 say "Cantidad: " get cantidad picture "999" color B/R*
@6,4 say "Precio: " get precio picture "999.99"color B/R*
read
subtotal=cantidad*precio
impuesto=subtotal*0.12
totalpagar=subtotal+impuesto
@8,4 say"el subtotal es: " get subtotal picture"9999.99"
@10,4 say "el impuesto es: " get impuestopicture"999.99"
@12,4 say "el total es: " get totalpagar picture"9999.99"
clear gets
n2= space (30)
@18,6 say"desea volver a facturar" get n2
read
if n2="si"
loop
else
clear
deac wind Sexit
endif
enddo*
set talk off
do while .t.
defi wind S from 0,0 to 40,60 title "FACTURACION" close mini zoom
acti wind S
move wind S center
clear
store space (20) to pdescrip
store 0 tocantidad,precio
@2,4 say "descripcion:" get pdescrip picture"@!20" font "CASTELLER",14 color B/R*
@4,4 say "Cantidad: " get cantidad picture "999" color B/R*
@6,4 say "Precio: " get preciopicture "999.99" color B/R*
read
subtotal=cantidad*precio
impuesto=subtotal*0.12
totalpagar=subtotal+impuesto
@8,4 say"el subtotal es: " get subtotal picture"9999.99"
@10,4 say "el impuesto es: "get impuesto picture"999.99"
@12,4 say "el total es: " get totalpagar picture"9999.99"
clear gets
n2= space (30)
@18,6 say"desea volver a facturar" get n2
read
if n2="si"
loop
else
cleardeac wind S
exit
endif
enddo*
set talk off
do while .t.
defi wind S from 0,0 to 40,60 title "FACTURACION" close mini zoom
acti wind S
move wind S center
clear
store space (20) to pdescripstore 0 to cantidad,precio
@2,4 say "descripcion:" get pdescrip picture"@!20" font "CASTELLER",14 color B/R*
@4,4 say "Cantidad: " get cantidad picture "999" color B/R*
@6,4 say "Precio: "...
Regístrate para leer el documento completo.