Foro de elhacker.net

Dado el fichero secuencial ARTICULOS.DAT, cuyos campos son: NART,
ARTICULO, PVP, STOCK y MINIMO. En otro fichero VENTAS.DAT, est n
almacenadas las modificaciones de los productos durante el día, cuyos
campos son: NART2, VENTAS y TIPO. El campo TIPO puede tomar los valores 0
(venta) y 1 (compra). Se desea hacer un programa que realice una
actualizaci¢n del fichero de ARTICULOS y un listado por impresora de las
entradas y salidas de los art¡culos.


ENTORNO:
   entra <- 0
   sale <- 0
   total <- 0
   fi <- 55
   sw <- 0
   aux <- 0
   pag <- 1
ALGORITMO:
   Borrar_pantalla( )
   Activar_impresora( )
   ABRIR "ARTICULOS.DAT"
   Primer_registro( )
   ABRIR "SALIDAS.DAT"
   Primer_registro( )
   ABRIR "VENTAS.DAT"
   Primer_registro( )
   SELECCIONAR "VENTAS.DAT"
   MIENTRAS NO Eof( ) HACER
      SI fi = 55 ENTONCES
         HACER Cabecompras
      FINSI
      SI sw = 0 ENTONCES
         aux <- nart2
         HACER Buscar
         sw <- 1
      FINSI
      SI nart2 = aux ENTONCES
         HACER Calculos
      SINO
         HACER Grabar
         HACER Compra
         entra <- 0
         sale <- 0
         aux <- nart2
         HACER Buscar
         HACER Calculos
      FINSI
      Siguiente_registro( )
   FINMIENTRAS
   HACER Grabar
   HACER Compra
   SELECCIONAR "SALIDAS.DAT"
   fi <- 55
   MIENTRAS NO Eof( ) HACER
      SI fi = 55 ENTONCES
         HACER Cabesal
      FINSI
      MIENTRAS nart3 <> nart HACER
         SELECCIONAR "ARTICULOS.DAT"
         Siguiente_registro( )
      FINMIENTRAS
      aux <- nart3
      HACER Buscar
      HACER Sale
      SELECCIONAR "SALIDAS.DAT"
      Siguiente_registro( )
   FINMIENTRAS
   EN fi + 4,55 ESCRIBIR "Total: "
   EN fi + 4,62 ESCRIBIR total
   Activar_pantalla( )
   Cerrar_ficheros( )
   BORRAR "SALIDAS.DAT"
FINPROGRAMA
------------------------------
SUBPROGRAMA Calculos
   SI tipo = 0 ENTONCES
      entra <- entra + ventas
   SINO
      sale <- sale + ventas
   FINSI
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Grabar
   stock <- stock + entra - sale
   SELECCIONAR "ARTICULOS.DAT"
   Escribir_registro( )
   nart3 <- aux
   ventas3 <- sale
   SELECCIONAR "SALIDAS.DAT"
   Final_fichero( )
   Escribir_registro( )
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Cabecompras
   Salto_pagina( )
   EN 2,65 ESCRIBIR "P g.: "
   EN 2,71 ESCRIBIR pag
   EN 4,20 ESCRIBIR "LISTADO DE LAS ENTRADAS DE ARTICULOS AL DIA: "
   EN 4,66 ESCRIBIR Fecha_sistema( )
   EN 6,18 ESCRIBIR "N£mero"
   EN 6,35 ESCRIBIR "Art¡culo"
   EN 6,65 ESCRIBIR "Cantidad"
   EN 7,15 ESCRIBIR "----------------------------------------------------------------"
   fi <- 9
   pag <- pag + 1
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Compra
   EN fi,16 ESCRIBIR aux
   EN fi,30 ESCRIBIR articulo
   EN fi,67 ESCRIBIR entra
   fi <- fi + 1
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Cabesal
   Salto_pagina( )
   EN 2,65 ESCRIBIR "P g.: "
   EN 2,71 ESCRIBIR pag
   EN 4,20 ESCRIBIR "LISTADO DE SALIDAS DE ARTICULOS AL DIA: "
   EN 4,60 ESCRIBIR Fecha_sistema( )
   EN 6,8 ESCRIBIR "N£mero"
   EN 6,16 ESCRIBIR "Art¡culo"
   EN 6,40 ESCRIBIR "Cantidad"
   EN 6,54 ESCRIBIR "PVP"
   EN 6,64 ESCRIBIR "Importe"
   EN 7,6 ESCRIBIR "------------------------------------------------------------------------------"
   fi <- 9
   pag <- pag + 1
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Sale
   Salto_pagina( )
   SI stock < minimo ENTONCES
      EN fi,4 ESCRIBIR "*"
   FINSI
   EN fi,6 ESCRIBIR nart3
   EN fi,14 ESCRIBIR articulo
   EN fi,40 ESCRIBIR ventas
   EN fi,54 ESCRIBIR pvp
   EN fi,65 ESCRIBIR ventas * pvp
   total <- total + ventas * pvp
   fi <- fi + 1
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Buscar
   MIENTRAS nart <> aux HACER
      SELECCIONAR "ARTICULOS.DAT"
      Siguiente_registro( )
   FINMIENTRAS
FINSUBPROGRAMA