Advertisement
dimkaxrsa

facturacion

Apr 20th, 2016
1,477
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CLEAR
  2.     SET TALK OFF
  3.     SET SCORE OFF
  4.     SET STATUS OFF
  5.     SET COLOR TO W+/N+
  6.    
  7.     USE "c:\users\dimkaxrsa\desktop\visual foxpro projects\facturaTable.dbf"
  8.     STORE 0 TO NUMEART, FECH, CONSE, CANTI, COST, IMPOR, PRECIO, SUBTO, IVA, DESCU, TOTA
  9.     STORE SPACE (70) TO NOMCLIENT, DIRECCCLIENT, DESCRART
  10.     STORE SPACE (01) TO OPCION
  11.     *MARCO GENERAL
  12.     @ 01,01 TO 37,225
  13.     *MARCO DATOS CLIENTE
  14.     @ 04,03 TO 10,222
  15.     *MARCO DIRECCION
  16.     @ 11,03 TO 14,222
  17.     *MARCO FACTURA
  18.     @ 15,03 TO 34,222
  19.     *MARCO PAGO
  20.     @ 22,170 TO 33,219
  21.    
  22.     @ 02,04 SAY DATE()
  23.     @ 02,212 SAY TIME()
  24.     @ 02,95 SAY "<<<<  SISTEMA DE FACTURACION >>>>"
  25.    
  26.     @ 08,10 SAY "NOMBRE DEL CLIENTE:"
  27.     @ 08,180 SAY "FECHA:"
  28.     @ 12,10 SAY "DIRECCION:"
  29.     @ 12,163 SAY "NUMERO DE ARTICULO:"
  30.     @ 17,10 SAY "CONSECUTIVO:"
  31.     @ 17,31 SAY "DESCRIPCION DEL ARTICULO:"
  32.     @ 17,107 SAY "CANTIDAD:"
  33.     @ 17,125 SAY "COSTO:"
  34.     @ 17,140 SAY "PRECIO:"
  35.     @ 17,155 SAY "IMPORTE:"
  36.     @ 24,175 SAY "SUBTOTAL:"
  37.     @ 26,175 SAY "IVA:"
  38.     @ 28,175 SAY "DESCUENTO:"
  39.     @ 30,175 SAY "TOTAL:"
  40.    
  41.     @ 08,37 GET NOMCLIENT PICT ""
  42.     @ 08,190 GET FECH PICT "99/99/999"
  43.     @ 12,25 GET DIRECCCLIENT PICT ""
  44.     @ 12,190 GET NUMEART PICT "9999"
  45.     @ 19,11 GET CONSE PICT "9999"
  46.     @ 19,31 GET DESCRART PICT ""
  47.     @ 19,107 GET CANTI PICT "9999"
  48.    
  49.     READ
  50.         COST = CANTI * 0.28
  51.         IMPOR = CANTI * COST
  52.         PRECIO = CANTI * IMPOR
  53.         SUBTO = PRECIO
  54.         DESCU = SUBTO * 0.18
  55.         IVA = SUBTO * 0.16
  56.         TOTA = (SUBTO - DESCU) + IVA
  57.        
  58.        
  59.     @ 19,125 SAY +STR(COST, 11,2)
  60.     @ 19,155 SAY +STR(IMPOR, 11,2)
  61.     @ 19,140 SAY +STR(PRECIO, 11,2)
  62.     @ 24,188 SAY +STR(SUBTO, 11,2)
  63.     @ 28,190 SAY +STR(DESCU, 11,2)
  64.     @ 26,180 SAY +STR(IVA, 11,2)
  65.     @ 30,184 SAY +STR(TOTA, 11,2)
  66.         READ
  67.         APPEND BLANK
  68.         REPLACE nclient WITH NOMCLIENT
  69.         REPLACE dclient WITH DIRECCCLIENT
  70.         REPLACE desart WITH DESCRART
  71.         REPLACE numart WITH NUMEART
  72.         REPLACE fch WITH FECH
  73.         REPLACE cnse WITH CONSE
  74.         REPLACE cnti WITH CANTI
  75.         REPLACE cst WITH COST
  76.         REPLACE impr WITH IMPOR
  77.         REPLACE precc WITH PRECIO
  78.         REPLACE subt WITH SUBTO
  79.         REPLACE ivaa WITH IVA
  80.         REPLACE dscu WITH DESCU
  81.         REPLACE tottal WITH TOTA
  82.    
  83.     @ 35,165  SAY " DESEA INTRODUCIR OTRO REGISTRO S/N ..... : "
  84.     @ 35,217 GET OPCION PICT ""
  85.         READ
  86.             IF OPCION="S" .OR. OPCION="s"
  87.                 CLEAR
  88.                     DO "c:\users\dimkaxrsa\desktop\visual foxpro projects\facturacion.prg"
  89.             ENDIF
  90.             IF OPCION="N" .OR. OPCION="n"
  91.                 CLEAR
  92.                     CLOSE ALL
  93.                         CLOSE DATABASES
  94.                 DO "c:\users\dimkaxrsa\desktop\visual foxpro projects\program1.prg"
  95.             ENDIF
  96. RETURN
Advertisement
RAW Paste Data Copied
Advertisement