facturacion

CLEAR
    SET TALK OFF
    SET SCORE OFF
    SET STATUS OFF
    SET COLOR TO W+/N+

    USE "c:\users\dimkaxrsa\desktop\visual foxpro projects\facturaTable.dbf"
    STORE 0 TO NUMEART, FECH, CONSE, CANTI, COST, IMPOR, PRECIO, SUBTO, IVA, DESCU, TOTA
    STORE SPACE (70) TO NOMCLIENT, DIRECCCLIENT, DESCRART
    STORE SPACE (01) TO OPCION
    *MARCO GENERAL
    @ 01,01 TO 37,225
    *MARCO DATOS CLIENTE
    @ 04,03 TO 10,222
    *MARCO DIRECCION
    @ 11,03 TO 14,222
    *MARCO FACTURA
    @ 15,03 TO 34,222
    *MARCO PAGO
    @ 22,170 TO 33,219

    @ 02,04 SAY DATE()
    @ 02,212 SAY TIME()
    @ 02,95 SAY "<<<<  SISTEMA DE FACTURACION >>>>"

    @ 08,10 SAY "NOMBRE DEL CLIENTE:"
    @ 08,180 SAY "FECHA:"
    @ 12,10 SAY "DIRECCION:"
    @ 12,163 SAY "NUMERO DE ARTICULO:"
    @ 17,10 SAY "CONSECUTIVO:"
    @ 17,31 SAY "DESCRIPCION DEL ARTICULO:"
    @ 17,107 SAY "CANTIDAD:"
    @ 17,125 SAY "COSTO:"
    @ 17,140 SAY "PRECIO:"
    @ 17,155 SAY "IMPORTE:"
    @ 24,175 SAY "SUBTOTAL:"
    @ 26,175 SAY "IVA:"
    @ 28,175 SAY "DESCUENTO:"
    @ 30,175 SAY "TOTAL:"

    @ 08,37 GET NOMCLIENT PICT ""
    @ 08,190 GET FECH PICT "99/99/999"
    @ 12,25 GET DIRECCCLIENT PICT ""
    @ 12,190 GET NUMEART PICT "9999"
    @ 19,11 GET CONSE PICT "9999"
    @ 19,31 GET DESCRART PICT ""
    @ 19,107 GET CANTI PICT "9999"

    READ
        COST = CANTI * 0.28
        IMPOR = CANTI * COST
        PRECIO = CANTI * IMPOR
        SUBTO = PRECIO
        DESCU = SUBTO * 0.18
        IVA = SUBTO * 0.16
        TOTA = (SUBTO - DESCU) + IVA


    @ 19,125 SAY +STR(COST, 11,2)
    @ 19,155 SAY +STR(IMPOR, 11,2)
    @ 19,140 SAY +STR(PRECIO, 11,2)
    @ 24,188 SAY +STR(SUBTO, 11,2)
    @ 28,190 SAY +STR(DESCU, 11,2)
    @ 26,180 SAY +STR(IVA, 11,2)
    @ 30,184 SAY +STR(TOTA, 11,2)
        READ
        APPEND BLANK
        REPLACE nclient WITH NOMCLIENT
        REPLACE dclient WITH DIRECCCLIENT
        REPLACE desart WITH DESCRART
        REPLACE numart WITH NUMEART
        REPLACE fch WITH FECH
        REPLACE cnse WITH CONSE
        REPLACE cnti WITH CANTI
        REPLACE cst WITH COST
        REPLACE impr WITH IMPOR
        REPLACE precc WITH PRECIO
        REPLACE subt WITH SUBTO
        REPLACE ivaa WITH IVA
        REPLACE dscu WITH DESCU
        REPLACE tottal WITH TOTA

    @ 35,165  SAY " DESEA INTRODUCIR OTRO REGISTRO S/N ..... : "
    @ 35,217 GET OPCION PICT ""
        READ
            IF OPCION="S" .OR. OPCION="s"
                CLEAR
                    DO "c:\users\dimkaxrsa\desktop\visual foxpro projects\facturacion.prg"
            ENDIF
            IF OPCION="N" .OR. OPCION="n"
                CLEAR
                    CLOSE ALL
                        CLOSE DATABASES
                DO "c:\users\dimkaxrsa\desktop\visual foxpro projects\program1.prg"
            ENDIF
RETURN