API tools faq
paste
Advertisement
72_DEMON_

Galicia org2

72_DEMON_
May 3rd, 2023
551
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 4.51 KB | None | 0 0
raw download clone embed print report
  1. CLEAR
  2. DEFI WIND imagen FROM 0,0 TO 45,336 FONT "CALIBRI" float
  3. ACTIVATE WIND imagen
  4. @0,0 SAY "C:\Users\MINEDUCYT\Desktop\PROMOCIÓN DE MAYO.jpg" BITMAP
  5. READ
  6. deactivate wind imagen
  7. * Definiendo ventana...
  8. DEFI WIND galicia FROM 2,35 TO 35,190 TITLE "Galicia" FONT "Calibri" MINIMIZE CLOSE GROW
  9. ACTIVATE WINDOWS galicia
  10. * Imagen parte de cupón
  11.  
  12.  
  13. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  14. Ñ = 0
  15. A = 0
  16. AM = 0
  17.  
  18. * Retiene el numero de niños...
  19. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  20. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  21. READ
  22.  
  23. * Retiene numero de adultos...
  24. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  25. @3,38 GET A FONT "Arial" STYLE "Bold"
  26. READ
  27.  
  28. * Retiene numero de adultos mayores...
  29. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  30. @3,66 GET AM FONT "Arial" STYLE "Bold"
  31. READ
  32.  
  33. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  34. Suma = Ñ + A + AM
  35.  
  36. * Muestra el total de niños y adultos...
  37. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  38. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  39.  
  40. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  41. PÑ = Ñ * 5.00
  42. PA = A * 10.00
  43. PAM = 0
  44.  
  45. * Variable que suma los precios y da el total...
  46. TA = PÑ + PA + PAM
  47.  
  48. * Da el precio de los niños segun la cantidad que haya...
  49. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  50. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  51.  
  52. * Da el precio de los adultos segun la cantidad que haya...
  53. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  54. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  55.  
  56. * Da el precio de los adultos mayores segun la cantidad que haya...
  57. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  58. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  59.  
  60. * Da el total a pagar entre los adultos y niños...
  61. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  62. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  63.  
  64. * Una decoración simple...
  65. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  66.  
  67. * Variable de cupon...
  68. C=space(1)
  69. CU=space(8)
  70. * Opciones. Cupones/Combos/Renta...
  71. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  72. @14,21 GET C
  73. read
  74. *AL DAR SI EN EL CUPON
  75.     IF UPPER (C)= "S"
  76.         @15,15 SAY "Ingrese cupón a usar:"
  77.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  78.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  79.         @16,15 GET CU
  80.         read       
  81.     ELSE
  82. ENDIF
  83. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  84. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  85. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  86.         DO CASE
  87.             CASE (respuesta) = 6
  88.                 DEACTIVATE WIND COMIDA
  89.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  90.                 ACTIVATE WINDOWS COMIDA
  91.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  92.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  93.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  94.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  95.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  96.                
  97.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  98.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  99.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  100.                
  101.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  102.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  103.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  104.                 READ
  105.             CASE (respuesta)=7
  106.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  107.                 ACTIVATE WIND Ticket
  108.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  109.                 @2,2 SAY "NIÑOS:..................................................."
  110.                 @2,30SAY PÑ PICT "99.99"
  111.                 @3,2 SAY "ADULTOS:................................................."
  112.                 @3,30 SAY PA PICT "99.99"
  113.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  114.                 @4,30 SAY PAM PICT "99.99"
  115.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  116.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  117.                 @6,30 SAY TA PICT "99.99"
  118.             CASE UPPER (CU)= "FAMILIAR"
  119.                 TF=TA*0.35
  120.                 TAF=TA-TF
  121.            
  122.             CASE UPPER (CU)= "AMIGOS"
  123.                 TF=TA*0.1
  124.                 TAF=TA-TF
  125.         ENDCASE
  126.  
  127.        
  128. * Definiendo ventana...
  129. DEFI WIND galicia FROM 2,35 TO 35,190 TITLE "Galicia" FONT "Calibri" MINIMIZE CLOSE GROW
  130. ACTIVATE WINDOWS galicia
  131. * Imagen parte de cupón
  132.  
  133.  
  134. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  135. Ñ = 0
  136. A = 0
  137. AM = 0
  138.  
  139. * Retiene el numero de niños...
  140. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  141. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  142. READ
  143.  
  144. * Retiene numero de adultos...
  145. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  146. @3,38 GET A FONT "Arial" STYLE "Bold"
  147. READ
  148.  
  149. * Retiene numero de adultos mayores...
  150. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  151. @3,66 GET AM FONT "Arial" STYLE "Bold"
  152. READ
  153.  
  154. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  155. Suma = Ñ + A + AM
  156.  
  157. * Muestra el total de niños y adultos...
  158. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  159. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  160.  
  161. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  162. PÑ = Ñ * 5.00
  163. PA = A * 10.00
  164. PAM = 0
  165.  
  166. * Variable que suma los precios y da el total...
  167. TA = PÑ + PA + PAM
  168.  
  169. * Da el precio de los niños segun la cantidad que haya...
  170. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  171. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  172.  
  173. * Da el precio de los adultos segun la cantidad que haya...
  174. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  175. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  176.  
  177. * Da el precio de los adultos mayores segun la cantidad que haya...
  178. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  179. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  180.  
  181. * Da el total a pagar entre los adultos y niños...
  182. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  183. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  184.  
  185. * Una decoración simple...
  186. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  187.  
  188. * Variable de cupon...
  189. C=space(1)
  190. CU=space(8)
  191. * Opciones. Cupones/Combos/Renta...
  192. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  193. @14,21 GET C
  194. read
  195. *AL DAR SI EN EL CUPON
  196.     IF UPPER (C)= "S"
  197.         @15,15 SAY "Ingrese cupón a usar:"
  198.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  199.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  200.         @16,15 GET CU
  201.         read       
  202.     ELSE
  203. ENDIF
  204. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  205. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  206. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  207.         DO CASE
  208.             CASE (respuesta) = 6
  209.                 DEACTIVATE WIND COMIDA
  210.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  211.                 ACTIVATE WINDOWS COMIDA
  212.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  213.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  214.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  215.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  216.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  217.                
  218.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  219.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  220.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  221.                
  222.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  223.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  224.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  225.                 READ
  226.             CASE (respuesta)=7
  227.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  228.                 ACTIVATE WIND Ticket
  229.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  230.                 @2,2 SAY "NIÑOS:..................................................."
  231.                 @2,30SAY PÑ PICT "99.99"
  232.                 @3,2 SAY "ADULTOS:................................................."
  233.                 @3,30 SAY PA PICT "99.99"
  234.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  235.                 @4,30 SAY PAM PICT "99.99"
  236.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  237.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  238.                 @6,30 SAY TA PICT "99.99"
  239.             CASE UPPER (CU)= "FAMILIAR"
  240.                 TF=TA*0.35
  241.                 TAF=TA-TF
  242.            
  243.             CASE UPPER (CU)= "AMIGOS"
  244.                 TF=TA*0.1
  245.                 TAF=TA-TF
  246.         ENDCASE
  247.  
  248.        
  249. * Imagen parte de cupón
  250.  
  251.  
  252. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  253. Ñ = 0
  254. A = 0
  255. AM = 0
  256.  
  257. * Retiene el numero de niños...
  258. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  259. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  260. READ
  261.  
  262. * Retiene numero de adultos...
  263. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  264. @3,38 GET A FONT "Arial" STYLE "Bold"
  265. READ
  266.  
  267. * Retiene numero de adultos mayores...
  268. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  269. @3,66 GET AM FONT "Arial" STYLE "Bold"
  270. READ
  271.  
  272. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  273. Suma = Ñ + A + AM
  274.  
  275. * Muestra el total de niños y adultos...
  276. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  277. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  278.  
  279. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  280. PÑ = Ñ * 5.00
  281. PA = A * 10.00
  282. PAM = 0
  283.  
  284. * Variable que suma los precios y da el total...
  285. TA = PÑ + PA + PAM
  286.  
  287. * Da el precio de los niños segun la cantidad que haya...
  288. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  289. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  290.  
  291. * Da el precio de los adultos segun la cantidad que haya...
  292. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  293. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  294.  
  295. * Da el precio de los adultos mayores segun la cantidad que haya...
  296. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  297. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  298.  
  299. * Da el total a pagar entre los adultos y niños...
  300. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  301. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  302.  
  303. * Una decoración simple...
  304. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  305.  
  306. * Variable de cupon...
  307. C=space(1)
  308. CU=space(8)
  309. * Opciones. Cupones/Combos/Renta...
  310. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  311. @14,21 GET C
  312. read
  313. *AL DAR SI EN EL CUPON
  314.     IF UPPER (C)= "S"
  315.         @15,15 SAY "Ingrese cupón a usar:"
  316.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  317.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  318.         @16,15 GET CU
  319.         read       
  320.     ELSE
  321. ENDIF
  322. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  323. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  324. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  325.         DO CASE
  326.             CASE (respuesta) = 6
  327.                 DEACTIVATE WIND COMIDA
  328.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  329.                 ACTIVATE WINDOWS COMIDA
  330.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  331.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  332.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  333.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  334.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  335.                
  336.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  337.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  338.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  339.                
  340.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  341.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  342.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  343.                 READ
  344.             CASE (respuesta)=7
  345.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  346.                 ACTIVATE WIND Ticket
  347.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  348.                 @2,2 SAY "NIÑOS:..................................................."
  349.                 @2,30SAY PÑ PICT "99.99"
  350.                 @3,2 SAY "ADULTOS:................................................."
  351.                 @3,30 SAY PA PICT "99.99"
  352.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  353.                 @4,30 SAY PAM PICT "99.99"
  354.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  355.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  356.                 @6,30 SAY TA PICT "99.99"
  357.             CASE UPPER (CU)= "FAMILIAR"
  358.                 TF=TA*0.35
  359.                 TAF=TA-TF
  360.            
  361.             CASE UPPER (CU)= "AMIGOS"
  362.                 TF=TA*0.1
  363.                 TAF=TA-TF
  364.         ENDCASE
  365.  
  366.        
  367. * Definiendo variables... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  368. Ñ = 0
  369. A = 0
  370. AM = 0
  372. * Retiene el numero de niños...
  373. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  374. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  375. READ
  376.  
  377. * Retiene numero de adultos...
  378. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  379. @3,38 GET A FONT "Arial" STYLE "Bold"
  380. READ
  381.  
  382. * Retiene numero de adultos mayores...
  383. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  384. @3,66 GET AM FONT "Arial" STYLE "Bold"
  385. READ
  386.  
  387. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  388. Suma = Ñ + A + AM
  389.  
  390. * Muestra el total de niños y adultos...
  391. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  392. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  393.  
  394. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  395. PÑ = Ñ * 5.00
  396. PA = A * 10.00
  397. PAM = 0
  398.  
  399. * Variable que suma los precios y da el total...
  400. TA = PÑ + PA + PAM
  401.  
  402. * Da el precio de los niños segun la cantidad que haya...
  403. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  404. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  405.  
  406. * Da el precio de los adultos segun la cantidad que haya...
  407. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  408. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  409.  
  410. * Da el precio de los adultos mayores segun la cantidad que haya...
  411. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  412. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  413.  
  414. * Da el total a pagar entre los adultos y niños...
  415. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  416. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  417.  
  418. * Una decoración simple...
  419. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  420.  
  421. * Variable de cupon...
  422. C=space(1)
  423. CU=space(8)
  424. * Opciones. Cupones/Combos/Renta...
  425. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  426. @14,21 GET C
  427. read
  428. *AL DAR SI EN EL CUPON
  429.     IF UPPER (C)= "S"
  430.         @15,15 SAY "Ingrese cupón a usar:"
  431.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  432.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  433.         @16,15 GET CU
  434.         read       
  435.     ELSE
  436. ENDIF
  437. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  438. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  439. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  440.         DO CASE
  441.             CASE (respuesta) = 6
  442.                 DEACTIVATE WIND COMIDA
  443.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  444.                 ACTIVATE WINDOWS COMIDA
  445.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  446.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  447.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  448.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  449.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  450.                
  451.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  452.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  453.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  454.                
  455.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  456.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  457.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  458.                 READ
  459.             CASE (respuesta)=7
  460.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  461.                 ACTIVATE WIND Ticket
  462.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  463.                 @2,2 SAY "NIÑOS:..................................................."
  464.                 @2,30SAY PÑ PICT "99.99"
  465.                 @3,2 SAY "ADULTOS:................................................."
  466.                 @3,30 SAY PA PICT "99.99"
  467.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  468.                 @4,30 SAY PAM PICT "99.99"
  469.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  470.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  471.                 @6,30 SAY TA PICT "99.99"
  472.             CASE UPPER (CU)= "FAMILIAR"
  473.                 TF=TA*0.35
  474.                 TAF=TA-TF
  475.            
  476.             CASE UPPER (CU)= "AMIGOS"
  477.                 TF=TA*0.1
  478.                 TAF=TA-TF
  479.         ENDCASE
  480.  
  481.        
  482. * Retiene el numero de niños...
  483. @1,10 SAY "MENORES DE EDAD:" FONT "Arial" STYLE "Bold"
  484. @3,10 GET Ñ FONT "Arial" STYLE "Bold"
  485. READ
  487. * Retiene numero de adultos...
  488. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  489. @3,38 GET A FONT "Arial" STYLE "Bold"
  490. READ
  491.  
  492. * Retiene numero de adultos mayores...
  493. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  494. @3,66 GET AM FONT "Arial" STYLE "Bold"
  495. READ
  496.  
  497. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  498. Suma = Ñ + A + AM
  499.  
  500. * Muestra el total de niños y adultos...
  501. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  502. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  503.  
  504. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  505. PÑ = Ñ * 5.00
  506. PA = A * 10.00
  507. PAM = 0
  508.  
  509. * Variable que suma los precios y da el total...
  510. TA = PÑ + PA + PAM
  511.  
  512. * Da el precio de los niños segun la cantidad que haya...
  513. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  514. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  515.  
  516. * Da el precio de los adultos segun la cantidad que haya...
  517. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  518. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  519.  
  520. * Da el precio de los adultos mayores segun la cantidad que haya...
  521. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  522. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  523.  
  524. * Da el total a pagar entre los adultos y niños...
  525. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  526. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  527.  
  528. * Una decoración simple...
  529. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  530.  
  531. * Variable de cupon...
  532. C=space(1)
  533. CU=space(8)
  534. * Opciones. Cupones/Combos/Renta...
  535. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  536. @14,21 GET C
  537. read
  538. *AL DAR SI EN EL CUPON
  539.     IF UPPER (C)= "S"
  540.         @15,15 SAY "Ingrese cupón a usar:"
  541.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  542.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  543.         @16,15 GET CU
  544.         read       
  545.     ELSE
  546. ENDIF
  547. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  548. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  549. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  550.         DO CASE
  551.             CASE (respuesta) = 6
  552.                 DEACTIVATE WIND COMIDA
  553.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  554.                 ACTIVATE WINDOWS COMIDA
  555.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  556.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  557.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  558.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  559.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  560.                
  561.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  562.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  563.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  564.                
  565.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  566.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  567.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  568.                 READ
  569.             CASE (respuesta)=7
  570.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  571.                 ACTIVATE WIND Ticket
  572.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  573.                 @2,2 SAY "NIÑOS:..................................................."
  574.                 @2,30SAY PÑ PICT "99.99"
  575.                 @3,2 SAY "ADULTOS:................................................."
  576.                 @3,30 SAY PA PICT "99.99"
  577.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  578.                 @4,30 SAY PAM PICT "99.99"
  579.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  580.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  581.                 @6,30 SAY TA PICT "99.99"
  582.             CASE UPPER (CU)= "FAMILIAR"
  583.                 TF=TA*0.35
  584.                 TAF=TA-TF
  585.            
  586.             CASE UPPER (CU)= "AMIGOS"
  587.                 TF=TA*0.1
  588.                 TAF=TA-TF
  589.         ENDCASE
  590.  
  591.        
  592. * Retiene numero de adultos...
  593. @1,38 SAY "MAYORES DE EDAD:" FONT "Arial" STYLE "Bold"
  594. @3,38 GET A FONT "Arial" STYLE "Bold"
  595. READ
  597. * Retiene numero de adultos mayores...
  598. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  599. @3,66 GET AM FONT "Arial" STYLE "Bold"
  600. READ
  601.  
  602. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  603. Suma = Ñ + A + AM
  604.  
  605. * Muestra el total de niños y adultos...
  606. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  607. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  608.  
  609. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  610. PÑ = Ñ * 5.00
  611. PA = A * 10.00
  612. PAM = 0
  613.  
  614. * Variable que suma los precios y da el total...
  615. TA = PÑ + PA + PAM
  616.  
  617. * Da el precio de los niños segun la cantidad que haya...
  618. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  619. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  620.  
  621. * Da el precio de los adultos segun la cantidad que haya...
  622. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  623. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  624.  
  625. * Da el precio de los adultos mayores segun la cantidad que haya...
  626. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  627. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  628.  
  629. * Da el total a pagar entre los adultos y niños...
  630. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  631. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  632.  
  633. * Una decoración simple...
  634. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  635.  
  636. * Variable de cupon...
  637. C=space(1)
  638. CU=space(8)
  639. * Opciones. Cupones/Combos/Renta...
  640. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  641. @14,21 GET C
  642. read
  643. *AL DAR SI EN EL CUPON
  644.     IF UPPER (C)= "S"
  645.         @15,15 SAY "Ingrese cupón a usar:"
  646.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  647.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  648.         @16,15 GET CU
  649.         read       
  650.     ELSE
  651. ENDIF
  652. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  653. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  654. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  655.         DO CASE
  656.             CASE (respuesta) = 6
  657.                 DEACTIVATE WIND COMIDA
  658.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  659.                 ACTIVATE WINDOWS COMIDA
  660.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  661.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  662.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  663.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  664.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  665.                
  666.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  667.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  668.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  669.                
  670.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  671.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  672.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  673.                 READ
  674.             CASE (respuesta)=7
  675.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  676.                 ACTIVATE WIND Ticket
  677.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  678.                 @2,2 SAY "NIÑOS:..................................................."
  679.                 @2,30SAY PÑ PICT "99.99"
  680.                 @3,2 SAY "ADULTOS:................................................."
  681.                 @3,30 SAY PA PICT "99.99"
  682.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  683.                 @4,30 SAY PAM PICT "99.99"
  684.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  685.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  686.                 @6,30 SAY TA PICT "99.99"
  687.             CASE UPPER (CU)= "FAMILIAR"
  688.                 TF=TA*0.35
  689.                 TAF=TA-TF
  690.            
  691.             CASE UPPER (CU)= "AMIGOS"
  692.                 TF=TA*0.1
  693.                 TAF=TA-TF
  694.         ENDCASE
  695.  
  696.        
  697. * Retiene numero de adultos mayores...
  698. @1,66 SAY "TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  699. @3,66 GET AM FONT "Arial" STYLE "Bold"
  700. READ
  702. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  703. Suma = Ñ + A + AM
  704.  
  705. * Muestra el total de niños y adultos...
  706. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  707. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  708.  
  709. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  710. PÑ = Ñ * 5.00
  711. PA = A * 10.00
  712. PAM = 0
  713.  
  714. * Variable que suma los precios y da el total...
  715. TA = PÑ + PA + PAM
  716.  
  717. * Da el precio de los niños segun la cantidad que haya...
  718. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  719. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  720.  
  721. * Da el precio de los adultos segun la cantidad que haya...
  722. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  723. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  724.  
  725. * Da el precio de los adultos mayores segun la cantidad que haya...
  726. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  727. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  728.  
  729. * Da el total a pagar entre los adultos y niños...
  730. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  731. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  732.  
  733. * Una decoración simple...
  734. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  735.  
  736. * Variable de cupon...
  737. C=space(1)
  738. CU=space(8)
  739. * Opciones. Cupones/Combos/Renta...
  740. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  741. @14,21 GET C
  742. read
  743. *AL DAR SI EN EL CUPON
  744.     IF UPPER (C)= "S"
  745.         @15,15 SAY "Ingrese cupón a usar:"
  746.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  747.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  748.         @16,15 GET CU
  749.         read       
  750.     ELSE
  751. ENDIF
  752. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  753. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  754. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  755.         DO CASE
  756.             CASE (respuesta) = 6
  757.                 DEACTIVATE WIND COMIDA
  758.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  759.                 ACTIVATE WINDOWS COMIDA
  760.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  761.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  762.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  763.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  764.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  765.                
  766.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  767.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  768.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  769.                
  770.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  771.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  772.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  773.                 READ
  774.             CASE (respuesta)=7
  775.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  776.                 ACTIVATE WIND Ticket
  777.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  778.                 @2,2 SAY "NIÑOS:..................................................."
  779.                 @2,30SAY PÑ PICT "99.99"
  780.                 @3,2 SAY "ADULTOS:................................................."
  781.                 @3,30 SAY PA PICT "99.99"
  782.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  783.                 @4,30 SAY PAM PICT "99.99"
  784.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  785.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  786.                 @6,30 SAY TA PICT "99.99"
  787.             CASE UPPER (CU)= "FAMILIAR"
  788.                 TF=TA*0.35
  789.                 TAF=TA-TF
  790.            
  791.             CASE UPPER (CU)= "AMIGOS"
  792.                 TF=TA*0.1
  793.                 TAF=TA-TF
  794.         ENDCASE
  795.  
  796.        
  797. * Variable que suma las cantidades de niños y adultos... (Ñ = Niños, A = Adultos, AM = AdultosMayores)
  798. Suma = Ñ + A + AM
  800. * Muestra el total de niños y adultos...
  801. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  802. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  803.  
  804. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  805. PÑ = Ñ * 5.00
  806. PA = A * 10.00
  807. PAM = 0
  808.  
  809. * Variable que suma los precios y da el total...
  810. TA = PÑ + PA + PAM
  811.  
  812. * Da el precio de los niños segun la cantidad que haya...
  813. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  814. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  815.  
  816. * Da el precio de los adultos segun la cantidad que haya...
  817. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  818. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  819.  
  820. * Da el precio de los adultos mayores segun la cantidad que haya...
  821. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  822. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  823.  
  824. * Da el total a pagar entre los adultos y niños...
  825. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  826. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  827.  
  828. * Una decoración simple...
  829. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  830.  
  831. * Variable de cupon...
  832. C=space(1)
  833. CU=space(8)
  834. * Opciones. Cupones/Combos/Renta...
  835. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  836. @14,21 GET C
  837. read
  838. *AL DAR SI EN EL CUPON
  839.     IF UPPER (C)= "S"
  840.         @15,15 SAY "Ingrese cupón a usar:"
  841.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  842.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  843.         @16,15 GET CU
  844.         read       
  845.     ELSE
  846. ENDIF
  847. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  848. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  849. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  850.         DO CASE
  851.             CASE (respuesta) = 6
  852.                 DEACTIVATE WIND COMIDA
  853.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  854.                 ACTIVATE WINDOWS COMIDA
  855.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  856.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  857.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  858.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  859.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  860.                
  861.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  862.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  863.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  864.                
  865.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  866.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  867.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  868.                 READ
  869.             CASE (respuesta)=7
  870.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  871.                 ACTIVATE WIND Ticket
  872.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  873.                 @2,2 SAY "NIÑOS:..................................................."
  874.                 @2,30SAY PÑ PICT "99.99"
  875.                 @3,2 SAY "ADULTOS:................................................."
  876.                 @3,30 SAY PA PICT "99.99"
  877.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  878.                 @4,30 SAY PAM PICT "99.99"
  879.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  880.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  881.                 @6,30 SAY TA PICT "99.99"
  882.             CASE UPPER (CU)= "FAMILIAR"
  883.                 TF=TA*0.35
  884.                 TAF=TA-TF
  885.            
  886.             CASE UPPER (CU)= "AMIGOS"
  887.                 TF=TA*0.1
  888.                 TAF=TA-TF
  889.         ENDCASE
  890.  
  891.        
  892. * Muestra el total de niños y adultos...
  893. @1,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  894. @3,102 SAY Suma FONT "Arial" STYLE "Bold"
  896. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  897. PÑ = Ñ * 5.00
  898. PA = A * 10.00
  899. PAM = 0
  900.  
  901. * Variable que suma los precios y da el total...
  902. TA = PÑ + PA + PAM
  903.  
  904. * Da el precio de los niños segun la cantidad que haya...
  905. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  906. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  907.  
  908. * Da el precio de los adultos segun la cantidad que haya...
  909. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  910. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  911.  
  912. * Da el precio de los adultos mayores segun la cantidad que haya...
  913. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  914. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  915.  
  916. * Da el total a pagar entre los adultos y niños...
  917. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  918. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  919.  
  920. * Una decoración simple...
  921. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  922.  
  923. * Variable de cupon...
  924. C=space(1)
  925. CU=space(8)
  926. * Opciones. Cupones/Combos/Renta...
  927. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  928. @14,21 GET C
  929. read
  930. *AL DAR SI EN EL CUPON
  931.     IF UPPER (C)= "S"
  932.         @15,15 SAY "Ingrese cupón a usar:"
  933.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  934.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  935.         @16,15 GET CU
  936.         read       
  937.     ELSE
  938. ENDIF
  939. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  940. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  941. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  942.         DO CASE
  943.             CASE (respuesta) = 6
  944.                 DEACTIVATE WIND COMIDA
  945.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  946.                 ACTIVATE WINDOWS COMIDA
  947.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  948.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  949.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  950.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  951.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  952.                
  953.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  954.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  955.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  956.                
  957.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  958.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  959.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  960.                 READ
  961.             CASE (respuesta)=7
  962.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  963.                 ACTIVATE WIND Ticket
  964.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  965.                 @2,2 SAY "NIÑOS:..................................................."
  966.                 @2,30SAY PÑ PICT "99.99"
  967.                 @3,2 SAY "ADULTOS:................................................."
  968.                 @3,30 SAY PA PICT "99.99"
  969.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  970.                 @4,30 SAY PAM PICT "99.99"
  971.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  972.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  973.                 @6,30 SAY TA PICT "99.99"
  974.             CASE UPPER (CU)= "FAMILIAR"
  975.                 TF=TA*0.35
  976.                 TAF=TA-TF
  977.            
  978.             CASE UPPER (CU)= "AMIGOS"
  979.                 TF=TA*0.1
  980.                 TAF=TA-TF
  981.         ENDCASE
  982.  
  983.        
  984. * Variables de precios de niños y adultos por cantidad... (PÑ = PrecioNiños, PA = PrecioAdultos, PAM = PrecioAdultosMayores)
  985. PÑ = Ñ * 5.00
  986. PA = A * 10.00
  987. PAM = 0
  989. * Variable que suma los precios y da el total...
  990. TA = PÑ + PA + PAM
  991.  
  992. * Da el precio de los niños segun la cantidad que haya...
  993. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  994. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  995.  
  996. * Da el precio de los adultos segun la cantidad que haya...
  997. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  998. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  999.  
  1000. * Da el precio de los adultos mayores segun la cantidad que haya...
  1001. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  1002. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  1003.  
  1004. * Da el total a pagar entre los adultos y niños...
  1005. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1006. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1007.  
  1008. * Una decoración simple...
  1009. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1010.  
  1011. * Variable de cupon...
  1012. C=space(1)
  1013. CU=space(8)
  1014. * Opciones. Cupones/Combos/Renta...
  1015. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1016. @14,21 GET C
  1017. read
  1018. *AL DAR SI EN EL CUPON
  1019.     IF UPPER (C)= "S"
  1020.         @15,15 SAY "Ingrese cupón a usar:"
  1021.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1022.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1023.         @16,15 GET CU
  1024.         read       
  1025.     ELSE
  1026. ENDIF
  1027. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1028. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1029. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1030.         DO CASE
  1031.             CASE (respuesta) = 6
  1032.                 DEACTIVATE WIND COMIDA
  1033.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1034.                 ACTIVATE WINDOWS COMIDA
  1035.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1036.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1037.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1038.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1039.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1040.                
  1041.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1042.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1043.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1044.                
  1045.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1046.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1047.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1048.                 READ
  1049.             CASE (respuesta)=7
  1050.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1051.                 ACTIVATE WIND Ticket
  1052.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1053.                 @2,2 SAY "NIÑOS:..................................................."
  1054.                 @2,30SAY PÑ PICT "99.99"
  1055.                 @3,2 SAY "ADULTOS:................................................."
  1056.                 @3,30 SAY PA PICT "99.99"
  1057.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1058.                 @4,30 SAY PAM PICT "99.99"
  1059.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1060.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1061.                 @6,30 SAY TA PICT "99.99"
  1062.             CASE UPPER (CU)= "FAMILIAR"
  1063.                 TF=TA*0.35
  1064.                 TAF=TA-TF
  1065.            
  1066.             CASE UPPER (CU)= "AMIGOS"
  1067.                 TF=TA*0.1
  1068.                 TAF=TA-TF
  1069.         ENDCASE
  1070.  
  1071.        
  1072. * Variable que suma los precios y da el total...
  1073. TA = PÑ + PA + PAM
  1075. * Da el precio de los niños segun la cantidad que haya...
  1076. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  1077. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  1078.  
  1079. * Da el precio de los adultos segun la cantidad que haya...
  1080. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  1081. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  1082.  
  1083. * Da el precio de los adultos mayores segun la cantidad que haya...
  1084. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  1085. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  1086.  
  1087. * Da el total a pagar entre los adultos y niños...
  1088. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1089. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1090.  
  1091. * Una decoración simple...
  1092. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1093.  
  1094. * Variable de cupon...
  1095. C=space(1)
  1096. CU=space(8)
  1097. * Opciones. Cupones/Combos/Renta...
  1098. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1099. @14,21 GET C
  1100. read
  1101. *AL DAR SI EN EL CUPON
  1102.     IF UPPER (C)= "S"
  1103.         @15,15 SAY "Ingrese cupón a usar:"
  1104.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1105.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1106.         @16,15 GET CU
  1107.         read       
  1108.     ELSE
  1109. ENDIF
  1110. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1111. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1112. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1113.         DO CASE
  1114.             CASE (respuesta) = 6
  1115.                 DEACTIVATE WIND COMIDA
  1116.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1117.                 ACTIVATE WINDOWS COMIDA
  1118.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1119.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1120.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1121.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1122.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1123.                
  1124.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1125.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1126.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1127.                
  1128.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1129.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1130.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1131.                 READ
  1132.             CASE (respuesta)=7
  1133.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1134.                 ACTIVATE WIND Ticket
  1135.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1136.                 @2,2 SAY "NIÑOS:..................................................."
  1137.                 @2,30SAY PÑ PICT "99.99"
  1138.                 @3,2 SAY "ADULTOS:................................................."
  1139.                 @3,30 SAY PA PICT "99.99"
  1140.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1141.                 @4,30 SAY PAM PICT "99.99"
  1142.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1143.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1144.                 @6,30 SAY TA PICT "99.99"
  1145.             CASE UPPER (CU)= "FAMILIAR"
  1146.                 TF=TA*0.35
  1147.                 TAF=TA-TF
  1148.            
  1149.             CASE UPPER (CU)= "AMIGOS"
  1150.                 TF=TA*0.1
  1151.                 TAF=TA-TF
  1152.         ENDCASE
  1153.  
  1154.        
  1155. * Da el precio de los niños segun la cantidad que haya...
  1156. @5,10 SAY "TOTAL DE MENORES:" FONT "Arial" STYLE "Bold"
  1157. @7,10 SAY PÑ FONT "Arial" STYLE "Bold"
  1159. * Da el precio de los adultos segun la cantidad que haya...
  1160. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  1161. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  1162.  
  1163. * Da el precio de los adultos mayores segun la cantidad que haya...
  1164. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  1165. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  1166.  
  1167. * Da el total a pagar entre los adultos y niños...
  1168. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1169. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1170.  
  1171. * Una decoración simple...
  1172. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1173.  
  1174. * Variable de cupon...
  1175. C=space(1)
  1176. CU=space(8)
  1177. * Opciones. Cupones/Combos/Renta...
  1178. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1179. @14,21 GET C
  1180. read
  1181. *AL DAR SI EN EL CUPON
  1182.     IF UPPER (C)= "S"
  1183.         @15,15 SAY "Ingrese cupón a usar:"
  1184.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1185.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1186.         @16,15 GET CU
  1187.         read       
  1188.     ELSE
  1189. ENDIF
  1190. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1191. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1192. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1193.         DO CASE
  1194.             CASE (respuesta) = 6
  1195.                 DEACTIVATE WIND COMIDA
  1196.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1197.                 ACTIVATE WINDOWS COMIDA
  1198.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1199.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1200.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1201.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1202.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1203.                
  1204.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1205.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1206.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1207.                
  1208.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1209.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1210.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1211.                 READ
  1212.             CASE (respuesta)=7
  1213.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1214.                 ACTIVATE WIND Ticket
  1215.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1216.                 @2,2 SAY "NIÑOS:..................................................."
  1217.                 @2,30SAY PÑ PICT "99.99"
  1218.                 @3,2 SAY "ADULTOS:................................................."
  1219.                 @3,30 SAY PA PICT "99.99"
  1220.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1221.                 @4,30 SAY PAM PICT "99.99"
  1222.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1223.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1224.                 @6,30 SAY TA PICT "99.99"
  1225.             CASE UPPER (CU)= "FAMILIAR"
  1226.                 TF=TA*0.35
  1227.                 TAF=TA-TF
  1228.            
  1229.             CASE UPPER (CU)= "AMIGOS"
  1230.                 TF=TA*0.1
  1231.                 TAF=TA-TF
  1232.         ENDCASE
  1233.  
  1234.        
  1235. * Da el precio de los adultos segun la cantidad que haya...
  1236. @5,38 SAY "TOTAL ADULTOS:" FONT "Arial" STYLE "Bold"
  1237. @7,38 SAY PA FONT "Arial" STYLE "Bold"
  1239. * Da el precio de los adultos mayores segun la cantidad que haya...
  1240. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  1241. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  1242.  
  1243. * Da el total a pagar entre los adultos y niños...
  1244. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1245. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1246.  
  1247. * Una decoración simple...
  1248. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1249.  
  1250. * Variable de cupon...
  1251. C=space(1)
  1252. CU=space(8)
  1253. * Opciones. Cupones/Combos/Renta...
  1254. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1255. @14,21 GET C
  1256. read
  1257. *AL DAR SI EN EL CUPON
  1258.     IF UPPER (C)= "S"
  1259.         @15,15 SAY "Ingrese cupón a usar:"
  1260.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1261.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1262.         @16,15 GET CU
  1263.         read       
  1264.     ELSE
  1265. ENDIF
  1266. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1267. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1268. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1269.         DO CASE
  1270.             CASE (respuesta) = 6
  1271.                 DEACTIVATE WIND COMIDA
  1272.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1273.                 ACTIVATE WINDOWS COMIDA
  1274.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1275.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1276.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1277.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1278.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1279.                
  1280.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1281.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1282.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1283.                
  1284.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1285.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1286.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1287.                 READ
  1288.             CASE (respuesta)=7
  1289.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1290.                 ACTIVATE WIND Ticket
  1291.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1292.                 @2,2 SAY "NIÑOS:..................................................."
  1293.                 @2,30SAY PÑ PICT "99.99"
  1294.                 @3,2 SAY "ADULTOS:................................................."
  1295.                 @3,30 SAY PA PICT "99.99"
  1296.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1297.                 @4,30 SAY PAM PICT "99.99"
  1298.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1299.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1300.                 @6,30 SAY TA PICT "99.99"
  1301.             CASE UPPER (CU)= "FAMILIAR"
  1302.                 TF=TA*0.35
  1303.                 TAF=TA-TF
  1304.            
  1305.             CASE UPPER (CU)= "AMIGOS"
  1306.                 TF=TA*0.1
  1307.                 TAF=TA-TF
  1308.         ENDCASE
  1309.  
  1310.        
  1311. * Da el precio de los adultos mayores segun la cantidad que haya...
  1312. @5,66 SAY "TOTAL DE TERCERA EDAD:" FONT "Arial" STYLE "Bold"
  1313. @7,66 SAY PAM FONT "Arial" STYLE "Bold"
  1315. * Da el total a pagar entre los adultos y niños...
  1316. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1317. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1318.  
  1319. * Una decoración simple...
  1320. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1321.  
  1322. * Variable de cupon...
  1323. C=space(1)
  1324. CU=space(8)
  1325. * Opciones. Cupones/Combos/Renta...
  1326. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1327. @14,21 GET C
  1328. read
  1329. *AL DAR SI EN EL CUPON
  1330.     IF UPPER (C)= "S"
  1331.         @15,15 SAY "Ingrese cupón a usar:"
  1332.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1333.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1334.         @16,15 GET CU
  1335.         read       
  1336.     ELSE
  1337. ENDIF
  1338. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1339. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1340. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1341.         DO CASE
  1342.             CASE (respuesta) = 6
  1343.                 DEACTIVATE WIND COMIDA
  1344.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1345.                 ACTIVATE WINDOWS COMIDA
  1346.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1347.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1348.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1349.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1350.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1351.                
  1352.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1353.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1354.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1355.                
  1356.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1357.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1358.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1359.                 READ
  1360.             CASE (respuesta)=7
  1361.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1362.                 ACTIVATE WIND Ticket
  1363.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1364.                 @2,2 SAY "NIÑOS:..................................................."
  1365.                 @2,30SAY PÑ PICT "99.99"
  1366.                 @3,2 SAY "ADULTOS:................................................."
  1367.                 @3,30 SAY PA PICT "99.99"
  1368.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1369.                 @4,30 SAY PAM PICT "99.99"
  1370.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1371.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1372.                 @6,30 SAY TA PICT "99.99"
  1373.             CASE UPPER (CU)= "FAMILIAR"
  1374.                 TF=TA*0.35
  1375.                 TAF=TA-TF
  1376.            
  1377.             CASE UPPER (CU)= "AMIGOS"
  1378.                 TF=TA*0.1
  1379.                 TAF=TA-TF
  1380.         ENDCASE
  1381.  
  1382.        
  1383. * Da el total a pagar entre los adultos y niños...
  1384. @5,102 SAY "TOTAL DE ENTRADAS:" FONT "Arial" STYLE "Bold"
  1385. @7,102 SAY TA FONT "Arial" STYLE "Bold"
  1387. * Una decoración simple...
  1388. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1389.  
  1390. * Variable de cupon...
  1391. C=space(1)
  1392. CU=space(8)
  1393. * Opciones. Cupones/Combos/Renta...
  1394. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1395. @14,21 GET C
  1396. read
  1397. *AL DAR SI EN EL CUPON
  1398.     IF UPPER (C)= "S"
  1399.         @15,15 SAY "Ingrese cupón a usar:"
  1400.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1401.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1402.         @16,15 GET CU
  1403.         read       
  1404.     ELSE
  1405. ENDIF
  1406. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1407. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1408. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1409.         DO CASE
  1410.             CASE (respuesta) = 6
  1411.                 DEACTIVATE WIND COMIDA
  1412.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1413.                 ACTIVATE WINDOWS COMIDA
  1414.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1415.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1416.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1417.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1418.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1419.                
  1420.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1421.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1422.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1423.                
  1424.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1425.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1426.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1427.                 READ
  1428.             CASE (respuesta)=7
  1429.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1430.                 ACTIVATE WIND Ticket
  1431.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1432.                 @2,2 SAY "NIÑOS:..................................................."
  1433.                 @2,30SAY PÑ PICT "99.99"
  1434.                 @3,2 SAY "ADULTOS:................................................."
  1435.                 @3,30 SAY PA PICT "99.99"
  1436.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1437.                 @4,30 SAY PAM PICT "99.99"
  1438.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1439.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1440.                 @6,30 SAY TA PICT "99.99"
  1441.             CASE UPPER (CU)= "FAMILIAR"
  1442.                 TF=TA*0.35
  1443.                 TAF=TA-TF
  1444.            
  1445.             CASE UPPER (CU)= "AMIGOS"
  1446.                 TF=TA*0.1
  1447.                 TAF=TA-TF
  1448.         ENDCASE
  1449.  
  1450.        
  1451. * Una decoración simple...
  1452. @9,0 SAY "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
  1454. * Variable de cupon...
  1455. C=space(1)
  1456. CU=space(8)
  1457. * Opciones. Cupones/Combos/Renta...
  1458. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1459. @14,21 GET C
  1460. read
  1461. *AL DAR SI EN EL CUPON
  1462.     IF UPPER (C)= "S"
  1463.         @15,15 SAY "Ingrese cupón a usar:"
  1464.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1465.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1466.         @16,15 GET CU
  1467.         read       
  1468.     ELSE
  1469. ENDIF
  1470. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1471. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1472. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1473.         DO CASE
  1474.             CASE (respuesta) = 6
  1475.                 DEACTIVATE WIND COMIDA
  1476.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1477.                 ACTIVATE WINDOWS COMIDA
  1478.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1479.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1480.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1481.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1482.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1483.                
  1484.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1485.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1486.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1487.                
  1488.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1489.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1490.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1491.                 READ
  1492.             CASE (respuesta)=7
  1493.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1494.                 ACTIVATE WIND Ticket
  1495.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1496.                 @2,2 SAY "NIÑOS:..................................................."
  1497.                 @2,30SAY PÑ PICT "99.99"
  1498.                 @3,2 SAY "ADULTOS:................................................."
  1499.                 @3,30 SAY PA PICT "99.99"
  1500.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1501.                 @4,30 SAY PAM PICT "99.99"
  1502.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1503.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1504.                 @6,30 SAY TA PICT "99.99"
  1505.             CASE UPPER (CU)= "FAMILIAR"
  1506.                 TF=TA*0.35
  1507.                 TAF=TA-TF
  1508.            
  1509.             CASE UPPER (CU)= "AMIGOS"
  1510.                 TF=TA*0.1
  1511.                 TAF=TA-TF
  1512.         ENDCASE
  1513.  
  1514.        
  1515. * Variable de cupon...
  1516. C=space(1)
  1517. CU=space(8)
  1518. * Opciones. Cupones/Combos/Renta...
  1519. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1520. @14,21 GET C
  1521. read
  1522. *AL DAR SI EN EL CUPON
  1523.     IF UPPER (C)= "S"
  1524.         @15,15 SAY "Ingrese cupón a usar:"
  1525.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1526.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1527.         @16,15 GET CU
  1528.         read       
  1529.     ELSE
  1530. ENDIF
  1531. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1532. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1533. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1534.         DO CASE
  1535.             CASE (respuesta) = 6
  1536.                 DEACTIVATE WIND COMIDA
  1537.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1538.                 ACTIVATE WINDOWS COMIDA
  1539.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1540.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1541.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1542.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1543.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1544.                
  1545.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1546.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1547.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1548.                
  1549.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1550.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1551.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1552.                 READ
  1553.             CASE (respuesta)=7
  1554.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1555.                 ACTIVATE WIND Ticket
  1556.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1557.                 @2,2 SAY "NIÑOS:..................................................."
  1558.                 @2,30SAY PÑ PICT "99.99"
  1559.                 @3,2 SAY "ADULTOS:................................................."
  1560.                 @3,30 SAY PA PICT "99.99"
  1561.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1562.                 @4,30 SAY PAM PICT "99.99"
  1563.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1564.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1565.                 @6,30 SAY TA PICT "99.99"
  1566.             CASE UPPER (CU)= "FAMILIAR"
  1567.                 TF=TA*0.35
  1568.                 TAF=TA-TF
  1569.            
  1570.             CASE UPPER (CU)= "AMIGOS"
  1571.                 TF=TA*0.1
  1572.                 TAF=TA-TF
  1573.         ENDCASE
  1574.  
  1575.        
  1576. * Opciones. Cupones/Combos/Renta...
  1577. @13,10 SAY "¿POSEES ALGÚN CUPÓN DE DESCUENTO? S/N"
  1578. @14,21 GET C
  1579. read
  1580. *AL DAR SI EN EL CUPON
  1581.     IF UPPER (C)= "S"
  1582.         @15,15 SAY "Ingrese cupón a usar:"
  1583.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1584.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1585.         @16,15 GET CU
  1586.         read       
  1587.     ELSE
  1588. ENDIF
  1589. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1590. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1591. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1592.         DO CASE
  1593.             CASE (respuesta) = 6
  1594.                 DEACTIVATE WIND COMIDA
  1595.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1596.                 ACTIVATE WINDOWS COMIDA
  1597.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1598.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1599.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1600.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1601.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1602.                
  1603.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1604.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1605.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1606.                
  1607.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1608.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1609.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1610.                 READ
  1611.             CASE (respuesta)=7
  1612.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1613.                 ACTIVATE WIND Ticket
  1614.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1615.                 @2,2 SAY "NIÑOS:..................................................."
  1616.                 @2,30SAY PÑ PICT "99.99"
  1617.                 @3,2 SAY "ADULTOS:................................................."
  1618.                 @3,30 SAY PA PICT "99.99"
  1619.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1620.                 @4,30 SAY PAM PICT "99.99"
  1621.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1622.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1623.                 @6,30 SAY TA PICT "99.99"
  1624.             CASE UPPER (CU)= "FAMILIAR"
  1625.                 TF=TA*0.35
  1626.                 TAF=TA-TF
  1627.            
  1628.             CASE UPPER (CU)= "AMIGOS"
  1629.                 TF=TA*0.1
  1630.                 TAF=TA-TF
  1631.         ENDCASE
  1632.  
  1633.        
  1634. *AL DAR SI EN EL CUPON
  1635.     IF UPPER (C)= "S"
  1636.         @15,15 SAY "Ingrese cupón a usar:"
  1637.         @15,40 SAY "Ingresa FAMILIAR para aplicar un 35% de descuento" STYLE "bold"
  1638.         @16,40 SAY "Ingresa AMIGOS para aplicar un 10% de descuento" STYLE "bold"
  1639.         @16,15 GET CU
  1640.         read       
  1641.     ELSE
  1642. ENDIF
  1643. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1644. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1645. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1646.         DO CASE
  1647.             CASE (respuesta) = 6
  1648.                 DEACTIVATE WIND COMIDA
  1649.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1650.                 ACTIVATE WINDOWS COMIDA
  1651.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1652.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1653.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1654.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1655.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1656.                
  1657.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1658.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1659.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1660.                
  1661.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1662.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1663.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1664.                 READ
  1665.             CASE (respuesta)=7
  1666.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1667.                 ACTIVATE WIND Ticket
  1668.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1669.                 @2,2 SAY "NIÑOS:..................................................."
  1670.                 @2,30SAY PÑ PICT "99.99"
  1671.                 @3,2 SAY "ADULTOS:................................................."
  1672.                 @3,30 SAY PA PICT "99.99"
  1673.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1674.                 @4,30 SAY PAM PICT "99.99"
  1675.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1676.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1677.                 @6,30 SAY TA PICT "99.99"
  1678.             CASE UPPER (CU)= "FAMILIAR"
  1679.                 TF=TA*0.35
  1680.                 TAF=TA-TF
  1681.            
  1682.             CASE UPPER (CU)= "AMIGOS"
  1683.                 TF=TA*0.1
  1684.                 TAF=TA-TF
  1685.         ENDCASE
  1686.  
  1687.        
  1688. *CASE DE CUPONES Y RESPUESTA EN DAR SI EN WAIT WIND...
  1689. @22,47 SAY "Si selecciona la opción NO se procederá a cancelar"
  1690. respuesta = MESSAGEBOX ("¿Desea pasar al menu de comida?", 4, "CONFIRMACIÓN")
  1691.         DO CASE
  1692.             CASE (respuesta) = 6
  1693.                 DEACTIVATE WIND COMIDA
  1694.                 DEFI WIND COMIDA FROM 2,35 TO 35,190 TITLE "Menu" FONT "Calibri" MINIMIZE CLOSE GROW
  1695.                 ACTIVATE WINDOWS COMIDA
  1696.                 @2,57 SAY "MENU PEDORRO" FONT "Arial" STYLE "Bold"
  1697.                 @30,80 say "Codigo del combo que desea" FONT "Arial" STYLE "Bold"
  1698.                 @5,15 SAY "COMBO #1" FONT "Arial" STYLE "Bold"
  1699.                 @5,48 SAY "COMBO #2" FONT "Arial" STYLE "Bold"
  1700.                 @5,82 SAY "COMBO #3" FONT "Arial" STYLE "Bold"
  1701.                
  1702.                 @26,15 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1703.                 @26,49 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1704.                 @26,83 SAY "CÓDIGO" FONT "Arial" STYLE "Bold"
  1705.                
  1706.                 @27,17.3 SAY "135" FONT "Arial" STYLE "Bold"
  1707.                 @27,50.7 SAY "246" FONT "Arial" STYLE "Bold"
  1708.                 @27,84.7 SAY "357" FONT "Arial" STYLE "Bold"
  1709.                 READ
  1710.             CASE (respuesta)=7
  1711.                 DEFINE WIND Ticket FROM 2,35 TO 35,100 TITLE "CANCELACIÓN" FONT "calibri" MINIMIZE CLOSE FLOAT
  1712.                 ACTIVATE WIND Ticket
  1713.                 @1,2 SAY "ENTRADAS" FONT "Arial" STYLE "Bold"
  1714.                 @2,2 SAY "NIÑOS:..................................................."
  1715.                 @2,30SAY PÑ PICT "99.99"
  1716.                 @3,2 SAY "ADULTOS:................................................."
  1717.                 @3,30 SAY PA PICT "99.99"
  1718.                 @4,2 SAY "ADULTOS MAYORES:........................................."
  1719.                 @4,30 SAY PAM PICT "99.99"
  1720.                 @5,0 SAY "-----------------------------------------------------------------------------------"
  1721.                 @6,2 SAY "TOTAL DE ENTRADAS:......................................."
  1722.                 @6,30 SAY TA PICT "99.99"
  1723.             CASE UPPER (CU)= "FAMILIAR"
  1724.                 TF=TA*0.35
  1725.                 TAF=TA-TF
  1726.            
  1727.             CASE UPPER (CU)= "AMIGOS"
  1728.                 TF=TA*0.1
  1729.                 TAF=TA-TF
  1730.         ENDCASE
  1731.  
  1732.                
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!