void Creacion()
{
// 3) Cabecera Titulo del proceso
system("Cls");
printf(" CREACION DE FICHERO SECUENCIAL \n");
printf("=============================== \n");
// 4) Apertura del fichero
if ((pf=fopen("FALMACEN.DAT","wb"))== NULL)
{
printf(" No se puede abrir el archivo ...\n");
exit(0);
}
do
{
/*5)Tecleo de datos del registro para alamacebarlas en var.de memo,principal*/
printf("Introduce ALMACEN (fin = f):");
gets(reg.almacen);
if(strcmp(reg.almacen,"f") != 0)
{
printf("Introduce Cod.Pro :");gets(reg.codpro);
printf("Introduce Descripcion :");gets(reg.descri);
printf("Introduce Existencias :");scanf("%d",®.exis);
printf("Introduce Precio_unit :");scanf("%ld",®.exis);
fflush(stdin);
fwrite(®,sizeof(reg),1,pf);
}
}while(strcmp(reg.almacen,"f")!=0);
/* Cierre delfichero */
fclose(pf);
printf("Fichero creado"); getch();
}