API tools faq
paste
Advertisement
72_DEMON_

Supermercado

72_DEMON_
Apr 30th, 2023
611
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 3.13 KB | None | 0 0
raw download clone embed print report
  1. SET COLOR TO +7/8
  2.  
  3. @5,68 SAY "C:\Users\MINEDUCYT\Desktop\FS cafe\omg.jpeg" BITMAP
  4. READ
  5.  
  6. CLEAR
  7.  
  8. @2,32 SAY "SUPERMARKET" FONT "Arial",24 STYLE "Bold"
  9.  
  10. @0,135 SAY "C:\Users\MINEDUCYT\Desktop\FS cafe\logowasa.jpeg" BITMAP
  11.  
  12. @38,10 SAY "Programador: sietede" FONT "Arial",11 STYLE "Bold"
  13. READ
  15. * Creando variables principales
  16.  
  17. * Cantidad de productos
  18. C1 = 0
  19. C2 = 0
  20. C3 = 0
  21. C4 = 0
  22. C5 = 0
  23.  
  24. * Nombre de los productos
  25. P1 = SPACE(13)
  26. P2 = SPACE(13)
  27. P3 = SPACE(13)
  28. P4 = SPACE(13)
  29. P5 = SPACE(13)
  30.  
  31. * Precio de los prouctos
  32. PR1 = 0.00
  33. PR2 = 0.00
  34. PR3 = 0.00
  35. PR4 = 0.00
  36. PR5 = 0.00
  37.  
  38.  
  39. * El usuario pone el nombre del poducto a comprar
  40.  
  41. @5,10 SAY "PRODUCTO" FONT "Arial" STYLE "Bold"
  42.  
  43. @7,10 GET P1 FONT "Arial" STYLE "Bold" && Producto 1
  44. READ
  45.  
  46. @9,10 GET P2 FONT "Arial" STYLE "Bold" && Producto 2
  47. READ
  48.  
  49. @11,10 GET P3 FONT "Arial" STYLE "Bold" && Producto 3
  50. READ
  51.  
  52. @13,10 GET P4 FONT "Arial" STYLE "Bold" && Producto 4
  53. READ
  54.  
  55. @15,10 GET P5 FONT "Arial" STYLE "Bold" && Producto 5
  56. READ
  57.  
  58. * El usuario pone la cantidad de productos a comprar
  59. @5,37 SAY "CANT" FONT "Arial" STYLE "Bold"
  60.  
  61. @7,35 GET C1 FONT "Arial" STYLE "Bold" && Cantidad 1
  62. READ
  63.  
  64. @9,35 GET C2 FONT "Arial" STYLE "Bold" && Cantidad 2
  65. READ
  66.  
  67. @11,35 GET C3 FONT "Arial" STYLE "Bold" && Cantidad 3
  68. READ
  69.  
  70. @13,35 GET C4 FONT "Arial" STYLE "Bold" && Cantidad 4
  71. READ
  72.  
  73. @15,35 GET C5 FONT "Arial" STYLE "Bold" && Cantidad 5
  74. READ
  75.  
  76. * El usuario pone el precio de cada producto
  77. @5,57 SAY "PRECIO" FONT "Arial" STYLE "Bold"
  78.  
  79. @7,55 GET PR1 FONT "Arial" STYLE "Bold"
  80. READ
  81.  
  82. @9,55 GET PR2 FONT "Arial" STYLE "Bold"
  83. READ
  84.  
  85. @11,55 GET PR3 FONT "Arial" STYLE "Bold"
  86. READ
  87.  
  88. @13,55 GET PR4 FONT "Arial" STYLE "Bold"
  89. READ
  90.  
  91. @15,55 GET PR5 FONT "Arial" STYLE "Bold"
  92. READ
  93.  
  94. * Saldra el total a pagar por producto
  95. T1 = C1 * PR1
  96. T2 = C2 * PR2
  97. T3 = C3 * PR3
  98. T4 = C4 * PR4
  99. T5 = C5 * PR5
  100.  
  101. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  102.  
  103. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  104. READ
  105.  
  106. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  107. READ
  108.  
  109. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  110. READ
  111.  
  112. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  113. READ
  114.  
  115. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  116. READ
  117.  
  118. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  119.  
  120. * Suma de todos los totales
  121. TP = T1 + T2 + T3 + T4 + T5
  122. @19,80 GET TP FONT "Arial" STYLE "Bold"
  123. READ
  124.  
  125. DES = 0
  126. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  127.  
  128. @23,80 GET DES FONT "Arial" STYLE "Bold"
  129. READ
  130.  
  131. SUBT = TP*DES/100
  132.  
  133. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  134.  
  135. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  136. READ
  137.  
  138. SUBTT = TP-SUBT
  139.  
  140. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  141.  
  142. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  143. READ
  144.  
  145. EFECT = 0.00
  146.  
  147. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  148.  
  149. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  150. READ
  151.  
  152. CAM = EFECT - SUBTT
  153.  
  154. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  155.  
  156. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  157. READ
  158.  
  159. CLEAR
  160.  
  161. retorno = "¿Desea usar otra vez el programa?"
  162. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  163.  
  164. IF resultado = 6
  165. DO supermercado.prg
  166.  
  167. ELSE
  168. QUIT
  169.  
  170. ENDIF
  171.  
  172. CLEA
  173. * Creando variables principales
  175. * Cantidad de productos
  176. C1 = 0
  177. C2 = 0
  178. C3 = 0
  179. C4 = 0
  180. C5 = 0
  181.  
  182. * Nombre de los productos
  183. P1 = SPACE(13)
  184. P2 = SPACE(13)
  185. P3 = SPACE(13)
  186. P4 = SPACE(13)
  187. P5 = SPACE(13)
  188.  
  189. * Precio de los prouctos
  190. PR1 = 0.00
  191. PR2 = 0.00
  192. PR3 = 0.00
  193. PR4 = 0.00
  194. PR5 = 0.00
  195.  
  196.  
  197. * El usuario pone el nombre del poducto a comprar
  198.  
  199. @5,10 SAY "PRODUCTO" FONT "Arial" STYLE "Bold"
  200.  
  201. @7,10 GET P1 FONT "Arial" STYLE "Bold" && Producto 1
  202. READ
  203.  
  204. @9,10 GET P2 FONT "Arial" STYLE "Bold" && Producto 2
  205. READ
  206.  
  207. @11,10 GET P3 FONT "Arial" STYLE "Bold" && Producto 3
  208. READ
  209.  
  210. @13,10 GET P4 FONT "Arial" STYLE "Bold" && Producto 4
  211. READ
  212.  
  213. @15,10 GET P5 FONT "Arial" STYLE "Bold" && Producto 5
  214. READ
  215.  
  216. * El usuario pone la cantidad de productos a comprar
  217. @5,37 SAY "CANT" FONT "Arial" STYLE "Bold"
  218.  
  219. @7,35 GET C1 FONT "Arial" STYLE "Bold" && Cantidad 1
  220. READ
  221.  
  222. @9,35 GET C2 FONT "Arial" STYLE "Bold" && Cantidad 2
  223. READ
  224.  
  225. @11,35 GET C3 FONT "Arial" STYLE "Bold" && Cantidad 3
  226. READ
  227.  
  228. @13,35 GET C4 FONT "Arial" STYLE "Bold" && Cantidad 4
  229. READ
  230.  
  231. @15,35 GET C5 FONT "Arial" STYLE "Bold" && Cantidad 5
  232. READ
  233.  
  234. * El usuario pone el precio de cada producto
  235. @5,57 SAY "PRECIO" FONT "Arial" STYLE "Bold"
  236.  
  237. @7,55 GET PR1 FONT "Arial" STYLE "Bold"
  238. READ
  239.  
  240. @9,55 GET PR2 FONT "Arial" STYLE "Bold"
  241. READ
  242.  
  243. @11,55 GET PR3 FONT "Arial" STYLE "Bold"
  244. READ
  245.  
  246. @13,55 GET PR4 FONT "Arial" STYLE "Bold"
  247. READ
  248.  
  249. @15,55 GET PR5 FONT "Arial" STYLE "Bold"
  250. READ
  251.  
  252. * Saldra el total a pagar por producto
  253. T1 = C1 * PR1
  254. T2 = C2 * PR2
  255. T3 = C3 * PR3
  256. T4 = C4 * PR4
  257. T5 = C5 * PR5
  258.  
  259. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  260.  
  261. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  262. READ
  263.  
  264. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  265. READ
  266.  
  267. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  268. READ
  269.  
  270. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  271. READ
  272.  
  273. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  274. READ
  275.  
  276. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  277.  
  278. * Suma de todos los totales
  279. TP = T1 + T2 + T3 + T4 + T5
  280. @19,80 GET TP FONT "Arial" STYLE "Bold"
  281. READ
  282.  
  283. DES = 0
  284. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  285.  
  286. @23,80 GET DES FONT "Arial" STYLE "Bold"
  287. READ
  288.  
  289. SUBT = TP*DES/100
  290.  
  291. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  292.  
  293. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  294. READ
  295.  
  296. SUBTT = TP-SUBT
  297.  
  298. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  299.  
  300. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  301. READ
  302.  
  303. EFECT = 0.00
  304.  
  305. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  306.  
  307. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  308. READ
  309.  
  310. CAM = EFECT - SUBTT
  311.  
  312. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  313.  
  314. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  315. READ
  316.  
  317. CLEAR
  318.  
  319. retorno = "¿Desea usar otra vez el programa?"
  320. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  321.  
  322. IF resultado = 6
  323. DO supermercado.prg
  324.  
  325. ELSE
  326. QUIT
  327.  
  328. ENDIF
  329.  
  330. CLEA
  331. * Cantidad de productos
  332. C1 = 0
  333. C2 = 0
  334. C3 = 0
  335. C4 = 0
  336. C5 = 0
  338. * Nombre de los productos
  339. P1 = SPACE(13)
  340. P2 = SPACE(13)
  341. P3 = SPACE(13)
  342. P4 = SPACE(13)
  343. P5 = SPACE(13)
  344.  
  345. * Precio de los prouctos
  346. PR1 = 0.00
  347. PR2 = 0.00
  348. PR3 = 0.00
  349. PR4 = 0.00
  350. PR5 = 0.00
  351.  
  352.  
  353. * El usuario pone el nombre del poducto a comprar
  354.  
  355. @5,10 SAY "PRODUCTO" FONT "Arial" STYLE "Bold"
  356.  
  357. @7,10 GET P1 FONT "Arial" STYLE "Bold" && Producto 1
  358. READ
  359.  
  360. @9,10 GET P2 FONT "Arial" STYLE "Bold" && Producto 2
  361. READ
  362.  
  363. @11,10 GET P3 FONT "Arial" STYLE "Bold" && Producto 3
  364. READ
  365.  
  366. @13,10 GET P4 FONT "Arial" STYLE "Bold" && Producto 4
  367. READ
  368.  
  369. @15,10 GET P5 FONT "Arial" STYLE "Bold" && Producto 5
  370. READ
  371.  
  372. * El usuario pone la cantidad de productos a comprar
  373. @5,37 SAY "CANT" FONT "Arial" STYLE "Bold"
  374.  
  375. @7,35 GET C1 FONT "Arial" STYLE "Bold" && Cantidad 1
  376. READ
  377.  
  378. @9,35 GET C2 FONT "Arial" STYLE "Bold" && Cantidad 2
  379. READ
  380.  
  381. @11,35 GET C3 FONT "Arial" STYLE "Bold" && Cantidad 3
  382. READ
  383.  
  384. @13,35 GET C4 FONT "Arial" STYLE "Bold" && Cantidad 4
  385. READ
  386.  
  387. @15,35 GET C5 FONT "Arial" STYLE "Bold" && Cantidad 5
  388. READ
  389.  
  390. * El usuario pone el precio de cada producto
  391. @5,57 SAY "PRECIO" FONT "Arial" STYLE "Bold"
  392.  
  393. @7,55 GET PR1 FONT "Arial" STYLE "Bold"
  394. READ
  395.  
  396. @9,55 GET PR2 FONT "Arial" STYLE "Bold"
  397. READ
  398.  
  399. @11,55 GET PR3 FONT "Arial" STYLE "Bold"
  400. READ
  401.  
  402. @13,55 GET PR4 FONT "Arial" STYLE "Bold"
  403. READ
  404.  
  405. @15,55 GET PR5 FONT "Arial" STYLE "Bold"
  406. READ
  407.  
  408. * Saldra el total a pagar por producto
  409. T1 = C1 * PR1
  410. T2 = C2 * PR2
  411. T3 = C3 * PR3
  412. T4 = C4 * PR4
  413. T5 = C5 * PR5
  414.  
  415. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  416.  
  417. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  418. READ
  419.  
  420. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  421. READ
  422.  
  423. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  424. READ
  425.  
  426. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  427. READ
  428.  
  429. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  430. READ
  431.  
  432. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  433.  
  434. * Suma de todos los totales
  435. TP = T1 + T2 + T3 + T4 + T5
  436. @19,80 GET TP FONT "Arial" STYLE "Bold"
  437. READ
  438.  
  439. DES = 0
  440. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  441.  
  442. @23,80 GET DES FONT "Arial" STYLE "Bold"
  443. READ
  444.  
  445. SUBT = TP*DES/100
  446.  
  447. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  448.  
  449. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  450. READ
  451.  
  452. SUBTT = TP-SUBT
  453.  
  454. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  455.  
  456. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  457. READ
  458.  
  459. EFECT = 0.00
  460.  
  461. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  462.  
  463. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  464. READ
  465.  
  466. CAM = EFECT - SUBTT
  467.  
  468. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  469.  
  470. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  471. READ
  472.  
  473. CLEAR
  474.  
  475. retorno = "¿Desea usar otra vez el programa?"
  476. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  477.  
  478. IF resultado = 6
  479. DO supermercado.prg
  480.  
  481. ELSE
  482. QUIT
  483.  
  484. ENDIF
  485.  
  486. CLEA
  487. * Nombre de los productos
  488. P1 = SPACE(13)
  489. P2 = SPACE(13)
  490. P3 = SPACE(13)
  491. P4 = SPACE(13)
  492. P5 = SPACE(13)
  494. * Precio de los prouctos
  495. PR1 = 0.00
  496. PR2 = 0.00
  497. PR3 = 0.00
  498. PR4 = 0.00
  499. PR5 = 0.00
  500.  
  501.  
  502. * El usuario pone el nombre del poducto a comprar
  503.  
  504. @5,10 SAY "PRODUCTO" FONT "Arial" STYLE "Bold"
  505.  
  506. @7,10 GET P1 FONT "Arial" STYLE "Bold" && Producto 1
  507. READ
  508.  
  509. @9,10 GET P2 FONT "Arial" STYLE "Bold" && Producto 2
  510. READ
  511.  
  512. @11,10 GET P3 FONT "Arial" STYLE "Bold" && Producto 3
  513. READ
  514.  
  515. @13,10 GET P4 FONT "Arial" STYLE "Bold" && Producto 4
  516. READ
  517.  
  518. @15,10 GET P5 FONT "Arial" STYLE "Bold" && Producto 5
  519. READ
  520.  
  521. * El usuario pone la cantidad de productos a comprar
  522. @5,37 SAY "CANT" FONT "Arial" STYLE "Bold"
  523.  
  524. @7,35 GET C1 FONT "Arial" STYLE "Bold" && Cantidad 1
  525. READ
  526.  
  527. @9,35 GET C2 FONT "Arial" STYLE "Bold" && Cantidad 2
  528. READ
  529.  
  530. @11,35 GET C3 FONT "Arial" STYLE "Bold" && Cantidad 3
  531. READ
  532.  
  533. @13,35 GET C4 FONT "Arial" STYLE "Bold" && Cantidad 4
  534. READ
  535.  
  536. @15,35 GET C5 FONT "Arial" STYLE "Bold" && Cantidad 5
  537. READ
  538.  
  539. * El usuario pone el precio de cada producto
  540. @5,57 SAY "PRECIO" FONT "Arial" STYLE "Bold"
  541.  
  542. @7,55 GET PR1 FONT "Arial" STYLE "Bold"
  543. READ
  544.  
  545. @9,55 GET PR2 FONT "Arial" STYLE "Bold"
  546. READ
  547.  
  548. @11,55 GET PR3 FONT "Arial" STYLE "Bold"
  549. READ
  550.  
  551. @13,55 GET PR4 FONT "Arial" STYLE "Bold"
  552. READ
  553.  
  554. @15,55 GET PR5 FONT "Arial" STYLE "Bold"
  555. READ
  556.  
  557. * Saldra el total a pagar por producto
  558. T1 = C1 * PR1
  559. T2 = C2 * PR2
  560. T3 = C3 * PR3
  561. T4 = C4 * PR4
  562. T5 = C5 * PR5
  563.  
  564. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  565.  
  566. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  567. READ
  568.  
  569. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  570. READ
  571.  
  572. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  573. READ
  574.  
  575. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  576. READ
  577.  
  578. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  579. READ
  580.  
  581. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  582.  
  583. * Suma de todos los totales
  584. TP = T1 + T2 + T3 + T4 + T5
  585. @19,80 GET TP FONT "Arial" STYLE "Bold"
  586. READ
  587.  
  588. DES = 0
  589. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  590.  
  591. @23,80 GET DES FONT "Arial" STYLE "Bold"
  592. READ
  593.  
  594. SUBT = TP*DES/100
  595.  
  596. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  597.  
  598. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  599. READ
  600.  
  601. SUBTT = TP-SUBT
  602.  
  603. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  604.  
  605. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  606. READ
  607.  
  608. EFECT = 0.00
  609.  
  610. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  611.  
  612. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  613. READ
  614.  
  615. CAM = EFECT - SUBTT
  616.  
  617. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  618.  
  619. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  620. READ
  621.  
  622. CLEAR
  623.  
  624. retorno = "¿Desea usar otra vez el programa?"
  625. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  626.  
  627. IF resultado = 6
  628. DO supermercado.prg
  629.  
  630. ELSE
  631. QUIT
  632.  
  633. ENDIF
  634.  
  635. CLEA
  636. * Precio de los prouctos
  637. PR1 = 0.00
  638. PR2 = 0.00
  639. PR3 = 0.00
  640. PR4 = 0.00
  641. PR5 = 0.00
  642.  
  644. * El usuario pone el nombre del poducto a comprar
  645.  
  646. @5,10 SAY "PRODUCTO" FONT "Arial" STYLE "Bold"
  647.  
  648. @7,10 GET P1 FONT "Arial" STYLE "Bold" && Producto 1
  649. READ
  650.  
  651. @9,10 GET P2 FONT "Arial" STYLE "Bold" && Producto 2
  652. READ
  653.  
  654. @11,10 GET P3 FONT "Arial" STYLE "Bold" && Producto 3
  655. READ
  656.  
  657. @13,10 GET P4 FONT "Arial" STYLE "Bold" && Producto 4
  658. READ
  659.  
  660. @15,10 GET P5 FONT "Arial" STYLE "Bold" && Producto 5
  661. READ
  662.  
  663. * El usuario pone la cantidad de productos a comprar
  664. @5,37 SAY "CANT" FONT "Arial" STYLE "Bold"
  665.  
  666. @7,35 GET C1 FONT "Arial" STYLE "Bold" && Cantidad 1
  667. READ
  668.  
  669. @9,35 GET C2 FONT "Arial" STYLE "Bold" && Cantidad 2
  670. READ
  671.  
  672. @11,35 GET C3 FONT "Arial" STYLE "Bold" && Cantidad 3
  673. READ
  674.  
  675. @13,35 GET C4 FONT "Arial" STYLE "Bold" && Cantidad 4
  676. READ
  677.  
  678. @15,35 GET C5 FONT "Arial" STYLE "Bold" && Cantidad 5
  679. READ
  680.  
  681. * El usuario pone el precio de cada producto
  682. @5,57 SAY "PRECIO" FONT "Arial" STYLE "Bold"
  683.  
  684. @7,55 GET PR1 FONT "Arial" STYLE "Bold"
  685. READ
  686.  
  687. @9,55 GET PR2 FONT "Arial" STYLE "Bold"
  688. READ
  689.  
  690. @11,55 GET PR3 FONT "Arial" STYLE "Bold"
  691. READ
  692.  
  693. @13,55 GET PR4 FONT "Arial" STYLE "Bold"
  694. READ
  695.  
  696. @15,55 GET PR5 FONT "Arial" STYLE "Bold"
  697. READ
  698.  
  699. * Saldra el total a pagar por producto
  700. T1 = C1 * PR1
  701. T2 = C2 * PR2
  702. T3 = C3 * PR3
  703. T4 = C4 * PR4
  704. T5 = C5 * PR5
  705.  
  706. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  707.  
  708. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  709. READ
  710.  
  711. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  712. READ
  713.  
  714. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  715. READ
  716.  
  717. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  718. READ
  719.  
  720. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  721. READ
  722.  
  723. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  724.  
  725. * Suma de todos los totales
  726. TP = T1 + T2 + T3 + T4 + T5
  727. @19,80 GET TP FONT "Arial" STYLE "Bold"
  728. READ
  729.  
  730. DES = 0
  731. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  732.  
  733. @23,80 GET DES FONT "Arial" STYLE "Bold"
  734. READ
  735.  
  736. SUBT = TP*DES/100
  737.  
  738. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  739.  
  740. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  741. READ
  742.  
  743. SUBTT = TP-SUBT
  744.  
  745. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  746.  
  747. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  748. READ
  749.  
  750. EFECT = 0.00
  751.  
  752. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  753.  
  754. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  755. READ
  756.  
  757. CAM = EFECT - SUBTT
  758.  
  759. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  760.  
  761. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  762. READ
  763.  
  764. CLEAR
  765.  
  766. retorno = "¿Desea usar otra vez el programa?"
  767. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  768.  
  769. IF resultado = 6
  770. DO supermercado.prg
  771.  
  772. ELSE
  773. QUIT
  774.  
  775. ENDIF
  776.  
  777. CLEA
  778. * El usuario pone el nombre del poducto a comprar
  779.  
  780. @5,10 SAY "PRODUCTO" FONT "Arial" STYLE "Bold"
  781.  
  782. @7,10 GET P1 FONT "Arial" STYLE "Bold" && Producto 1
  783. READ
  784.  
  785. @9,10 GET P2 FONT "Arial" STYLE "Bold" && Producto 2
  786. READ
  787.  
  788. @11,10 GET P3 FONT "Arial" STYLE "Bold" && Producto 3
  789. READ
  790.  
  791. @13,10 GET P4 FONT "Arial" STYLE "Bold" && Producto 4
  792. READ
  793.  
  794. @15,10 GET P5 FONT "Arial" STYLE "Bold" && Producto 5
  795. READ
  797. * El usuario pone la cantidad de productos a comprar
  798. @5,37 SAY "CANT" FONT "Arial" STYLE "Bold"
  799.  
  800. @7,35 GET C1 FONT "Arial" STYLE "Bold" && Cantidad 1
  801. READ
  802.  
  803. @9,35 GET C2 FONT "Arial" STYLE "Bold" && Cantidad 2
  804. READ
  805.  
  806. @11,35 GET C3 FONT "Arial" STYLE "Bold" && Cantidad 3
  807. READ
  808.  
  809. @13,35 GET C4 FONT "Arial" STYLE "Bold" && Cantidad 4
  810. READ
  811.  
  812. @15,35 GET C5 FONT "Arial" STYLE "Bold" && Cantidad 5
  813. READ
  814.  
  815. * El usuario pone el precio de cada producto
  816. @5,57 SAY "PRECIO" FONT "Arial" STYLE "Bold"
  817.  
  818. @7,55 GET PR1 FONT "Arial" STYLE "Bold"
  819. READ
  820.  
  821. @9,55 GET PR2 FONT "Arial" STYLE "Bold"
  822. READ
  823.  
  824. @11,55 GET PR3 FONT "Arial" STYLE "Bold"
  825. READ
  826.  
  827. @13,55 GET PR4 FONT "Arial" STYLE "Bold"
  828. READ
  829.  
  830. @15,55 GET PR5 FONT "Arial" STYLE "Bold"
  831. READ
  832.  
  833. * Saldra el total a pagar por producto
  834. T1 = C1 * PR1
  835. T2 = C2 * PR2
  836. T3 = C3 * PR3
  837. T4 = C4 * PR4
  838. T5 = C5 * PR5
  839.  
  840. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  841.  
  842. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  843. READ
  844.  
  845. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  846. READ
  847.  
  848. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  849. READ
  850.  
  851. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  852. READ
  853.  
  854. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  855. READ
  856.  
  857. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  858.  
  859. * Suma de todos los totales
  860. TP = T1 + T2 + T3 + T4 + T5
  861. @19,80 GET TP FONT "Arial" STYLE "Bold"
  862. READ
  863.  
  864. DES = 0
  865. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  866.  
  867. @23,80 GET DES FONT "Arial" STYLE "Bold"
  868. READ
  869.  
  870. SUBT = TP*DES/100
  871.  
  872. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  873.  
  874. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  875. READ
  876.  
  877. SUBTT = TP-SUBT
  878.  
  879. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  880.  
  881. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  882. READ
  883.  
  884. EFECT = 0.00
  885.  
  886. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  887.  
  888. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  889. READ
  890.  
  891. CAM = EFECT - SUBTT
  892.  
  893. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  894.  
  895. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  896. READ
  897.  
  898. CLEAR
  899.  
  900. retorno = "¿Desea usar otra vez el programa?"
  901. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  902.  
  903. IF resultado = 6
  904. DO supermercado.prg
  905.  
  906. ELSE
  907. QUIT
  908.  
  909. ENDIF
  910.  
  911. CLEA
  912. * El usuario pone la cantidad de productos a comprar
  913. @5,37 SAY "CANT" FONT "Arial" STYLE "Bold"
  914.  
  915. @7,35 GET C1 FONT "Arial" STYLE "Bold" && Cantidad 1
  916. READ
  917.  
  918. @9,35 GET C2 FONT "Arial" STYLE "Bold" && Cantidad 2
  919. READ
  920.  
  921. @11,35 GET C3 FONT "Arial" STYLE "Bold" && Cantidad 3
  922. READ
  923.  
  924. @13,35 GET C4 FONT "Arial" STYLE "Bold" && Cantidad 4
  925. READ
  926.  
  927. @15,35 GET C5 FONT "Arial" STYLE "Bold" && Cantidad 5
  928. READ
  930. * El usuario pone el precio de cada producto
  931. @5,57 SAY "PRECIO" FONT "Arial" STYLE "Bold"
  932.  
  933. @7,55 GET PR1 FONT "Arial" STYLE "Bold"
  934. READ
  935.  
  936. @9,55 GET PR2 FONT "Arial" STYLE "Bold"
  937. READ
  938.  
  939. @11,55 GET PR3 FONT "Arial" STYLE "Bold"
  940. READ
  941.  
  942. @13,55 GET PR4 FONT "Arial" STYLE "Bold"
  943. READ
  944.  
  945. @15,55 GET PR5 FONT "Arial" STYLE "Bold"
  946. READ
  947.  
  948. * Saldra el total a pagar por producto
  949. T1 = C1 * PR1
  950. T2 = C2 * PR2
  951. T3 = C3 * PR3
  952. T4 = C4 * PR4
  953. T5 = C5 * PR5
  954.  
  955. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  956.  
  957. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  958. READ
  959.  
  960. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  961. READ
  962.  
  963. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  964. READ
  965.  
  966. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  967. READ
  968.  
  969. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  970. READ
  971.  
  972. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  973.  
  974. * Suma de todos los totales
  975. TP = T1 + T2 + T3 + T4 + T5
  976. @19,80 GET TP FONT "Arial" STYLE "Bold"
  977. READ
  978.  
  979. DES = 0
  980. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  981.  
  982. @23,80 GET DES FONT "Arial" STYLE "Bold"
  983. READ
  984.  
  985. SUBT = TP*DES/100
  986.  
  987. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  988.  
  989. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  990. READ
  991.  
  992. SUBTT = TP-SUBT
  993.  
  994. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  995.  
  996. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  997. READ
  998.  
  999. EFECT = 0.00
  1000.  
  1001. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  1002.  
  1003. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  1004. READ
  1005.  
  1006. CAM = EFECT - SUBTT
  1007.  
  1008. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  1009.  
  1010. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1011. READ
  1012.  
  1013. CLEAR
  1014.  
  1015. retorno = "¿Desea usar otra vez el programa?"
  1016. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  1017.  
  1018. IF resultado = 6
  1019. DO supermercado.prg
  1020.  
  1021. ELSE
  1022. QUIT
  1023.  
  1024. ENDIF
  1025.  
  1026. CLEA
  1027. * El usuario pone el precio de cada producto
  1028. @5,57 SAY "PRECIO" FONT "Arial" STYLE "Bold"
  1029.  
  1030. @7,55 GET PR1 FONT "Arial" STYLE "Bold"
  1031. READ
  1032.  
  1033. @9,55 GET PR2 FONT "Arial" STYLE "Bold"
  1034. READ
  1035.  
  1036. @11,55 GET PR3 FONT "Arial" STYLE "Bold"
  1037. READ
  1038.  
  1039. @13,55 GET PR4 FONT "Arial" STYLE "Bold"
  1040. READ
  1041.  
  1042. @15,55 GET PR5 FONT "Arial" STYLE "Bold"
  1043. READ
  1045. * Saldra el total a pagar por producto
  1046. T1 = C1 * PR1
  1047. T2 = C2 * PR2
  1048. T3 = C3 * PR3
  1049. T4 = C4 * PR4
  1050. T5 = C5 * PR5
  1051.  
  1052. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  1053.  
  1054. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  1055. READ
  1056.  
  1057. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  1058. READ
  1059.  
  1060. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  1061. READ
  1062.  
  1063. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  1064. READ
  1065.  
  1066. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  1067. READ
  1068.  
  1069. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  1070.  
  1071. * Suma de todos los totales
  1072. TP = T1 + T2 + T3 + T4 + T5
  1073. @19,80 GET TP FONT "Arial" STYLE "Bold"
  1074. READ
  1075.  
  1076. DES = 0
  1077. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  1078.  
  1079. @23,80 GET DES FONT "Arial" STYLE "Bold"
  1080. READ
  1081.  
  1082. SUBT = TP*DES/100
  1083.  
  1084. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  1085.  
  1086. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1087. READ
  1088.  
  1089. SUBTT = TP-SUBT
  1090.  
  1091. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  1092.  
  1093. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1094. READ
  1095.  
  1096. EFECT = 0.00
  1097.  
  1098. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  1099.  
  1100. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  1101. READ
  1102.  
  1103. CAM = EFECT - SUBTT
  1104.  
  1105. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  1106.  
  1107. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1108. READ
  1109.  
  1110. CLEAR
  1111.  
  1112. retorno = "¿Desea usar otra vez el programa?"
  1113. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  1114.  
  1115. IF resultado = 6
  1116. DO supermercado.prg
  1117.  
  1118. ELSE
  1119. QUIT
  1120.  
  1121. ENDIF
  1122.  
  1123. CLEA
  1124. * Saldra el total a pagar por producto
  1125. T1 = C1 * PR1
  1126. T2 = C2 * PR2
  1127. T3 = C3 * PR3
  1128. T4 = C4 * PR4
  1129. T5 = C5 * PR5
  1130.  
  1131. @5,82 SAY "TOTAL" FONT "Arial" STYLE "Bold"
  1132.  
  1133. @7,80 GET T1 FONT "Arial" STYLE "Bold"
  1134. READ
  1135.  
  1136. @9,80 GET T2 FONT "Arial" STYLE "Bold"
  1137. READ
  1138.  
  1139. @11,80 GET T3 FONT "Arial" STYLE "Bold"
  1140. READ
  1141.  
  1142. @13,80 GET T4 FONT "Arial" STYLE "Bold"
  1143. READ
  1144.  
  1145. @15,80 GET T5 FONT "Arial" STYLE "Bold"
  1146. READ
  1147.  
  1148. @17,80 SAY "TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  1150. * Suma de todos los totales
  1151. TP = T1 + T2 + T3 + T4 + T5
  1152. @19,80 GET TP FONT "Arial" STYLE "Bold"
  1153. READ
  1154.  
  1155. DES = 0
  1156. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  1157.  
  1158. @23,80 GET DES FONT "Arial" STYLE "Bold"
  1159. READ
  1160.  
  1161. SUBT = TP*DES/100
  1162.  
  1163. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  1164.  
  1165. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1166. READ
  1167.  
  1168. SUBTT = TP-SUBT
  1169.  
  1170. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  1171.  
  1172. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1173. READ
  1174.  
  1175. EFECT = 0.00
  1176.  
  1177. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  1178.  
  1179. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  1180. READ
  1181.  
  1182. CAM = EFECT - SUBTT
  1183.  
  1184. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  1185.  
  1186. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1187. READ
  1188.  
  1189. CLEAR
  1190.  
  1191. retorno = "¿Desea usar otra vez el programa?"
  1192. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  1193.  
  1194. IF resultado = 6
  1195. DO supermercado.prg
  1196.  
  1197. ELSE
  1198. QUIT
  1199.  
  1200. ENDIF
  1201.  
  1202. CLEA
  1203. * Suma de todos los totales
  1204. TP = T1 + T2 + T3 + T4 + T5
  1205. @19,80 GET TP FONT "Arial" STYLE "Bold"
  1206. READ
  1207.  
  1208. DES = 0
  1209. @21,80 SAY "DESCUENTO:" FONT "Arial" STYLE "Bold"
  1210.  
  1211. @23,80 GET DES FONT "Arial" STYLE "Bold"
  1212. READ
  1213.  
  1214. SUBT = TP*DES/100
  1215.  
  1216. @25,80 SAY "EFECTIVO RESTADO" FONT "Arial" STYLE "Bold"
  1217.  
  1218. @27,80 GET SUBT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1219. READ
  1220.  
  1221. SUBTT = TP-SUBT
  1222.  
  1223. @29,80 SAY "SUB-TOTAL A PAGAR" FONT "Arial" STYLE "Bold"
  1224.  
  1225. @31,80 GET SUBTT PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1226. READ
  1227.  
  1228. EFECT = 0.00
  1229.  
  1230. @17,105 SAY "EFECTIVO" FONT "Arial" STYLE "Bold"
  1231.  
  1232. @19,105 GET EFECT FONT "Arial" STYLE "Bold"
  1233. READ
  1234.  
  1235. CAM = EFECT - SUBTT
  1236.  
  1237. @21,105 SAY "SU CAMBIO" FONT "Arial" STYLE "Bold"
  1238.  
  1239. @23,105 GET CAM PICT "999,999.99" FONT "Arial" STYLE "Bold"
  1240. READ
  1241.  
  1242. CLEAR
  1243.  
  1244. retorno = "¿Desea usar otra vez el programa?"
  1245. resultado = MESSAGEBOX (retorno,36, "SuperRMarket")
  1246.  
  1247. IF resultado = 6
  1248. DO supermercado.prg
  1249.  
  1250. ELSE
  1251. QUIT
  1252.  
  1253. ENDIF
  1254.  
  1255. CLEAR
  1256.  
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!