Utilizarea Limbajului C In Aplicatii Economice

CUPRINS

Capitolul I- Introducere……………………………………………. 5

1.1.Necesitate………………………………………………….5

1.2.Mod de realizare. Obiective Cerințe. ……………………6

1.3.Structura lucrării…………………………………………8

Capitolul II- Specificații de contabilitate……………………………9

2.1. Aspecte lingvistice………………………………………..9

2.2. Specificații software………………………………………9

2.2.1.Probleme de terminologie…………………………….9

2.2.2.Specificații software definire………………………..11

2.3. Specificații contabile……………………………………13

2.3.1. Probleme de terminologie…………………………..13

2.3.2. Cadrul conceptual contabil…………………………18

Capitolul III- Platformă deschisă…………………………………28

3.1.Sisteme informatice deschise……………………………28

3.1.1. Definiția sistemelor informatice deschise…………28

3.1.2. Avantajele sistemelor deschise…………………….29

3.1.3 . Dezavantajele sistemelor deschise ……………….30

3.1.4. Standarde IT pentru sisteme deschise……………..30

3.2.Platformă deschisă……………………………………… 32

3.2.1. Considerații generale………………………………..32

3.2.2. Platformă deschisă –definire………………………. 33

3.2.3. Platforma software în diferite domenii……………. 33

3.3. Platforma deschisă în contabilitate…………………….. 34

3.4. Bilanțul contabil în diferite viziuni………………………35

3.4.1. Câteva dimensiuni istorice privind bilanțul contabil .35

3.4.2.Abordări contemporane privind bilanțul contabil….36

3.4.3.Bilanțul contabil în viziunea Uniunii Europene………55

Capitolul IV –Aplicația…………… ………………………………….58

Capitolul V – Concluzii…………………………………………….….61

Bibliografie……………………………………………………………..63

#include<stdio.h>

#include<string.h>

#include<ctype.h>

#include<conio.h>

#include<process.h>

#include<dos.h>

#define SIMPLU 1

#define DUBLU 2

struct artc {

char simbol[5];

char den[50];

}artc;

struct artf{

char cont[5];

float sid;

float sic;

float rc;

float rd;

float sfd;

float sfc;

float sldd;

float sldc;

}artf;

struct indxlin

{

char cheie[5];

long poz;

};

struct artd{

char post[40];

int ncont;

char conturi[40][5];

char semn[40][4];

}artd;

// functie indexare plan conturi

int indexare(struct indxlin *indx,FILE*pf)

{

long l=sizeof(artc);

int nrec=0;

rewind(pf);

fread(&artc,sizeof(artc),1,pf);

while (!(feof(pf)))

{

indx->poz=((ftell(pf))/l-1);

nrec++;

strcpy(indx->cheie,artc.simbol);

indx++;

fread(&artc,l,1,pf);

}

return nrec;

}

// functie sortare plan conturi

void sort(struct indxlin ind[], int nrec)

{

int i,j;

struct indxlin temp;

for (i=0;i<nrec-1;i++)

for(j=i+1; j<nrec; j++)

if (strcmp(ind[i].cheie,ind[j].cheie)>0)

{

temp=ind[i];ind[i]=ind[j];

ind[j]=temp;

}

}

// functie cautare in index

long cautb(char key[],struct indxlin ind[],int nrec)

{

int pozi=0,pozf=nrec-1,mijl;

while(pozi<=pozf)

{

mijl=(pozi+pozf)/2;

if (strcmp(key,ind[mijl].cheie)>0) pozi=mijl+1;

else if (strcmp(key,ind[mijl].cheie)<0) pozf=mijl-1;

else return ind[mijl].poz;

}

return -1l;

}

// functie afiseaza fisierul

void list_ind(struct indxlin*indx,int nrec,FILE*pf)

{

char cheie[5];

char den[50];

clrscr();textbackground(0);textcolor(15);

rewind(pf);

while(nrec–)

{

fseek(pf,(indx->poz)*sizeof(artc),SEEK_SET);

fread(&artc,sizeof(artc),1,pf);

printf("\n %-4s %-50s", artc.simbol,artc.den);indx++;

}

getch();

}

//functii de realizare a ferestrelor de interfata

/*afisare cursor*/

void afisare()

{

_AH=1;

_CH=6;

_CL=7;

geninterrupt(0x10);

}

/*ascunde cursor*/

void ascunde()

{

_AH=1;

_CH=0x20;

geninterrupt(0x10);

}

/*chenar orizontal*/

void orizontal(int a,int chenar)

{

while(a–)

switch(chenar){

case SIMPLU:

putch(196);break;

case DUBLU:

putch(205);break;

}

}

/*chenar vertical*/

void vertical(int a,int col,int lin,int chenar)

{

while(a–){

gotoxy(col,lin++);

switch(chenar){

case SIMPLU:

putch(179);break;

case DUBLU:

putch(186);break;

}

}

}

//functie realizare fereastra

void fereastra(int st,int sus,int dr,int jos,int fond,int culoare,int chenar)

{

window(st,sus,dr,jos);

textattr(16*fond+culoare);

clrscr();

if(chenar){

textcolor(WHITE);

highvideo();

/*ss*/

switch(chenar){

case SIMPLU:

putch(218);break;

case DUBLU:

putch(201);break;

}

/*os*/

orizontal(dr-st-2,chenar);

/*ds*/

switch(chenar){

case SIMPLU:

putch(191);break;

case DUBLU:

putch(187);break;

}

/*vs*/

vertical(jos-sus,1,2,chenar);

/*sj*/

gotoxy(1,jos-sus+1);

switch(chenar){

case SIMPLU:

putch(192);break;

case DUBLU:

putch(200);break;

}

/*oj*/

orizontal(dr-st-2,chenar);

/*vd*/

vertical(jos-sus-1,dr-st,2,chenar);

/*dj*/

gotoxy(dr-st,jos-sus+1);

switch(chenar){

case SIMPLU:

putch(127);break;

case DUBLU:

putch(188);break;

}

normvideo();

textattr(16*fond+culoare);

}

}

// macheta introducere plan conturi

void macheta ()

{

fereastra(10,6,70,17,1,15,2);

afisare();

highvideo();

gotoxy(2,2);

cprintf("SIMBOL CONT:");

gotoxy(2,4);

cprintf("DENUMIRE:");

gotoxy(2,6);

cprintf("SOLDUL INITIAL : -DEBITOR :");

gotoxy(2,8);

cprintf(" – CREDITOR :");

gotoxy(2,9);

orizontal(58,2);

gotoxy(2,10);

cprintf("IESIRE (D/N)");

}

// functie creare plan conturi

void creplan()

{

FILE *fc, *fis;

int nrec;

long poz;

char msimbol[5];

struct indxlin ind[400];

char r;

fc=fopen("PLAN.DAT","r+b");

fis=fopen("FISE.DAT","ab");

if((fc==NULL)||(fis==NULL))

{

clrscr();printf("\n EROARE LA DESCHIDERE");getch();exit(1);

}

window(1,1,80,25);

clrscr();textbackground(0);textcolor(0);

r='n';

do{

macheta();

nrec=indexare(ind,fc);sort(ind,nrec);

gotoxy(16,2);

cscanf("%4s",msimbol);fflush(stdin);getch();

poz=cautb(msimbol,ind,nrec);

if(poz!=-1){gotoxy(20,11);cprintf("CONT EXISTENT");getch();}

else

{

strcpy(artc.simbol,msimbol);

strcpy(artf.cont,artc.simbol);

gotoxy(14,4);

cscanf("%50s",artc.den);fflush(stdin);

gotoxy(34,6);

cscanf("%f",&artf.sid);fflush(stdin);

gotoxy(34,8);

cscanf("%f",&artf.sic);fflush(stdin);

artf.rd=artf.rc=artf.sfd=artf.sfc=artf.sldd=artf.sldc=0.;

fwrite(&artf,sizeof(artf),1,fis);

fwrite(&artc,sizeof(artc),1,fc);

}

gotoxy(16,10);fflush(stdin);getch();cscanf("%c",&r);

}while((r=='n')||(r=='N'));

fclose(fc);fclose(fis);

textbackground(0);clrscr();

}

//functie afisare plan conturi

void afisplan()

{

FILE *fc;

FILE *fis;

int i,nr;

fc=fopen("PLAN.DAT","r+b");

fis=fopen("FISE.DAT","r+b");

if((fc==NULL)||(fis==NULL))

{

clrscr();printf("\n EROARE LA DESCHIDERE");getch();getch();exit(1);

}

textbackground(0);clrscr();ascunde();

i=4;

window(1,1,80,25);clrscr();textbackground(0);gotoxy(1,1);

cprintf("Ú");orizontal(76,1);cprintf("¿");gotoxy(1,2);

cprintf("³ SIMBOL ³ DENUMIREA CONTULUI ³");

gotoxy(2,3);

orizontal(76,1);

window(1,5,80,25);

nr=1;

while(fread(&artc,sizeof(artc),1,fc))

{

printf("\n³%-8.4s³",artc.simbol);printf("%-67.47s³\n",artc.den);

orizontal(76,1);nr++;i+=2;

if(i>20)

{

printf("\n-continuare-");ascunde();

gotoxy(1,1);i=4; getch();clrscr();

}

}

ascunde();

getch();

fclose(fc);

window(1,1,80,25);textbackground(0);clrscr();

}

//functie inchidere conturi

void soldeaza()

{

FILE* ff;

float sold;

ff=fopen("FISE.DAT","r+b");

if(ff==NULL)

{

clrscr();printf("\n EROARE LA DESCHIDERE");getch();getch();exit(1);

}

fread(&artf,sizeof(artf),1,ff);

while(!feof(ff))

{

artf.sfd=artf.sid+artf.rd;

artf.sfc=artf.sic+artf.rc;

sold=artf.sfd-artf.sfc;

if(sold>0)

{

artf.sldd=sold;

}

else

{

artf.sldc=-(sold);

fseek(ff,(-sizeof(artf)),SEEK_CUR);

fwrite(&artf,sizeof(artf),1,ff);

}

fread(&artf,sizeof(artf),1,ff);

}

fclose(ff);

}

//formula contabila

void formula(void)

{

char rc,rf,c,mcontd[5],mcontc[5],vmcontd[10][5],vmcontc[10][5];

FILE *fc=fopen("PLAN.DAT","ab");fclose(fc);

FILE *fis;

textmode(BW80);

float sumd,sumc,vsumd[10],vsumc[10];

int nrec,nc,i;

long poz,pozd,pozc,vpozd[10],vpozc[10];

char msimbol[5];

struct indxlin ind[400];

fc=fopen("PLAN.DAT","r+b");

fis=fopen("FISE.DAT","r+b");

if((fis==NULL)||(fc==NULL))

{

clrscr();printf("\n EROARE LA DESCHIDERE");getch();exit(1);

}

nrec=indexare(ind,fc);sort(ind,nrec);

window(1,1,80,25);

clrscr();textbackground(0);textcolor(0);

et18: fereastra(4,8,76,24,3,15,2);

gotoxy(27,1);cprintf("FORMULA CONTABILA");

gotoxy(2,2);

cprintf("Formula simpla/compusa?(C-compusa) ");

cscanf("%c",&rf);fflush(stdin);

if((rf=='c')||(rf=='C')) //formula compusa

{ gotoxy(2,2);

cprintf("Numarul de conturi D/C pt formula compusa-max 10 : ");

do{

gotoxy(53,2);

cprintf(" ");

gotoxy(53,2);

cscanf("%d",&nc);fflush(stdin);

}while(nc>10);

gotoxy(2,2);

printf("Formula este compusa pe debit/credit (D/C): ");

gotoxy(45,2);

printf(" ");

do{

gotoxy(45,2);

cscanf("%c",&c);fflush(stdin);

}while(!((c=='d')||(c=='D')||(c=='c')||(c=='C')));

gotoxy(2,2);

cprintf(" ");

gotoxy(2,2);

cprintf("Simb Den.cont debitat");

gotoxy(31,2);

cprintf("Simb Den.cont creditat");

gotoxy(55,2);

cprintf("Sume");

gotoxy(30,3);cprintf("=");

if((c=='d')||(c=='D'))//compusa pe debit

{

gotoxy(2,3);cprintf(" ");gotoxy(15,3);cprintf("%");

et16: /*citesc sg cont creditat*/ gotoxy(32,3);gets(mcontc);

pozc=cautb(mcontc,ind,nrec);

if(pozc==-1)

{ gotoxy(37,3);cprintf("CONT INEXISTENT");getch();

gotoxy(37,3);cprintf(" ");

gotoxy(32,3);cprintf(" ");

goto et16;

}

else

{

fseek(fc,pozc*sizeof(artc),SEEK_SET);

fread(&artc,sizeof(artc),1,fc);

gotoxy(37,3);cprintf("%-20.15s",artc.den);

gotoxy(55,3);

cscanf("%f",&sumc);fflush(stdin);

for(i=0;i<nc;i++)

{

et15: gotoxy(2,i+4);gets(vmcontd[i]);

vpozd[i]=cautb(vmcontd[i],ind,nrec);

if(vpozd[i]==-1)

{

gotoxy(7,i+4);cprintf("CONT INEXISTENT");getch();

gotoxy(7,i+4);cprintf(" ");

gotoxy(2,i+4);cprintf(" ");

goto et15;

}

else

{

fseek(fc,vpozd[i]*sizeof(artc),SEEK_SET);

fread(&artc,sizeof(artc),1,fc);

gotoxy(7,i+4);cprintf("%-20.15s",artc.den);

gotoxy(55,i+4);cscanf("%f",&vsumd[i]);fflush(stdin);

}

}

}

textcolor(14);

gotoxy(4,17);cprintf("FORMULA CORECTA ? (D/N) ");getch();

do{

gotoxy(28,17);

cscanf("%c",&rc);fflush(stdin);

}while(!((rc=='d')||(rc=='D')||(rc=='n')||(rc=='N')));

if((rc=='d')||(rc=='D'))

{

for(i=0;i<nc;i++)

{

fseek(fis,vpozd[i]*sizeof(artf),SEEK_SET);

fread(&artf,sizeof(artf),1,fis);

artf.rd+=vsumd[i];

fseek(fis,vpozd[i]*sizeof(artf),SEEK_SET);

fwrite(&artf,sizeof(artf),1,fis);

}

fseek(fis,pozc*sizeof(artf),SEEK_SET);

fread(&artf,sizeof(artf),1,fis);

artf.rc+=sumc;

fseek(fis,pozc*sizeof(artf),SEEK_SET);

fwrite(&artf,sizeof(artf),1,fis);

}

else {goto et18;}

}

else//compus pe credit

{

gotoxy(2,3);cprintf(" ");gotoxy(45,3);cprintf("%");

et11:/*citesc sg cont debitat*/ gotoxy(2,3);gets(mcontd);

pozd=cautb(mcontd,ind,nrec);

if(pozd==-1)

{

gotoxy(7,3);cprintf("CONT INEXISTENT");getch();

gotoxy(7,3);cprintf(" ");

gotoxy(2,3);cprintf(" ");

goto et11;

}

else

{

fseek(fc,pozd*sizeof(artc),SEEK_SET);

fread(&artc,sizeof(artc),1,fc);

gotoxy(7,3);cprintf("%-20.15s",artc.den);

gotoxy(55,3);

cscanf("%f",&sumd);fflush(stdin);

for(int i=0;i<nc;i++)

{

et12:gotoxy(32,i+4);gets(vmcontc[i]);

vpozc[i]=cautb(vmcontc[i],ind,nrec);

if(vpozc[i]==-1)

{

gotoxy(37,i+4);cprintf("CONT INEXISTENT");getch();

gotoxy(37,i+4);cprintf(" ");

gotoxy(32,i+4);cprintf(" ");

goto et12;

}

else

{

fseek(fc,vpozc[i]*sizeof(artc),SEEK_SET);

fread(&artc,sizeof(artc),1,fc);

gotoxy(37,i+4);cprintf("%-20.15s",artc.den);

gotoxy(55,i+4);cscanf("%f",&vsumc[i]);fflush(stdin);

}

}

}

textcolor(14);

gotoxy(4,17);cprintf("FORMULA CORECTA ? (D/N) ");getch();

do{

gotoxy(28,17);

cscanf("%c",&rc);fflush(stdin);

}while(!((rc=='d')||(rc=='D')||(rc=='n')||(rc=='N')));

if((rc=='d')||(rc=='D'))

{

fseek(fis,pozd*sizeof(artf),SEEK_SET);

fread(&artf,sizeof(artf),1,fis);

artf.rd+=sumd;

fseek(fis,pozd*sizeof(artf),SEEK_SET);

fwrite(&artf,sizeof(artf),1,fis);

for(i=0;i<nc;i++)

{

fseek(fis,vpozc[i]*sizeof(artf),SEEK_SET);

fread(&artf,sizeof(artf),1,fis);

artf.rc+=vsumc[i];

fseek(fis,vpozc[i]*sizeof(artf),SEEK_SET);

fwrite(&artf,sizeof(artf),1,fis);

}

}

else {goto et18;}

}

}

else //formula simpla

{

et10: fereastra(4,8,76,24,3,15,2);

gotoxy(27,1);cprintf("FORMULA CONTABILA");

gotoxy(2,2);

cprintf(" ");

gotoxy(2,2);

cprintf("Simb Den.cont debitat");

gotoxy(31,2);

cprintf("Simb Den.cont creditat");

gotoxy(55,2);

cprintf("Sume");

gotoxy(30,3);cprintf("=");

et13: /*citesc sg cont debitat*/ gotoxy(2,3);gets(mcontd);

pozd=cautb(mcontd,ind,nrec);

if(pozd==-1)

{

gotoxy(7,3);cprintf("CONT INEXISTENT");getch();

gotoxy(7,3);cprintf(" ");

gotoxy(2,3);cprintf(" ");

goto et13;

}

else

{

fseek(fc,pozd*sizeof(artc),SEEK_SET);

fread(&artc,sizeof(artc),1,fc);

gotoxy(7,3);cprintf("%-20.15s",artc.den);

}

et14:/*citesc sg cont creditat*/ gotoxy(32,3);cscanf("%4s",mcontc);getch();//gets(mcontc);

pozc=cautb(mcontc,ind,nrec);

if(pozc==-1)

{

gotoxy(37,3);cprintf("CONT INEXISTENT");getch();

gotoxy(37,3);cprintf(" ");

gotoxy(32,3);cprintf(" ");

goto et14;

}

else

{

fseek(fc,pozc*sizeof(artc),SEEK_SET);

fread(&artc,sizeof(artc),1,fc);

gotoxy(37,3);cprintf("%-20.15s",artc.den);

gotoxy(55,3);

cscanf("%f",&sumc);fflush(stdin);

sumd=sumc;

}

textcolor(14);

gotoxy(4,17);cprintf("FORMULA CORECTA ? (D/N) ");getch();

do{

gotoxy(28,17);

cscanf("%c",&rc);fflush(stdin);

}while(!((rc=='d')||(rc=='D')||(rc=='n')||(rc=='N')));

if((rc=='d')||(rc=='D'))

{

fseek(fis,pozd*sizeof(artf),SEEK_SET);

fread(&artf,sizeof(artf),1,fis);

artf.rd+=sumd;

fseek(fis,pozd*sizeof(artf),SEEK_SET);

fwrite(&artf,sizeof(artf),1,fis);

fseek(fis,pozc*sizeof(artf),SEEK_SET);

fread(&artf,sizeof(artf),1,fis);

artf.rc+=sumc;

fseek(fis,pozc*sizeof(artf),SEEK_SET);

fwrite(&artf,sizeof(artf),1,fis);

}

else { goto et10;}

}

getch();

fclose(fc);fclose(fis);

}

// afisare situaie conturi

void afisfis()

{ FILE *fc;

FILE *fis;

int i,nr;

fc=fopen("PLAN.DAT","r+b");

fis=fopen("FISE.DAT","r+b");

if((fc==NULL)||(fis==NULL))

{

clrscr();printf("\n EROARE LA DESCHIDERE");getch();getch();exit(1);

}

textbackground(0);clrscr();ascunde();

i=4;

window(1,1,80,25);clrscr();textbackground(0);gotoxy(1,1);

cprintf("Ú");orizontal(76,1);cprintf("¿");gotoxy(1,2);

cprintf("³ SIMBOL ³ DENUMIREA CONTULUI ³ Rulaj debit ³Rulaj credit. ³");

gotoxy(2,3); orizontal(76,1);

window(1,5,80,25);

nr=1;

while(fread(&artc,sizeof(artc),1,fc))

{

fread(&artf,sizeof(artf),1,fis);

printf("\n³%-8.4s³ %-36.35s³%-15.0f³%-15.0f \n ",artc.simbol,artc.den,artf.rd,artf.rc);

orizontal(76,1);nr++;i+=2;

if(i>20){printf("\n-continuare-");ascunde();

gotoxy(1,1);i=4; getch();clrscr();}

}

ascunde();

getch();

fclose(fc);fclose(fis);

window(1,1,80,25);textbackground(0);clrscr();

}

//realizare structura bilant

int strdoc()

{

FILE* doc, *fc;

int nrp,nrec,n,i,j;

struct indxlin ind[400];

long poz;

char *titlu,nfis[13],extens[]=".dat";

textmode(BW80);

fc=fopen("PLAN.DAT","r+b");

nrec=indexare(ind,fc);sort(ind,nrec);

window(1,1,80,25);

clrscr();textbackground(0);textcolor(0);

fereastra(10,5,70,11,7,0,2);

gotoxy(2,2);cprintf("TITLUL DOCUMENTULUI :");

gotoxy(2,4);cprintf("NUMARUL DE POZITII(EXCLUSIV TOTALURI): ");

gotoxy(2,6);cprintf("NUMELE FISIERULUI CARE PASTREAZA DOCUMENTUL: ");

gotoxy(25,2);gets(titlu);

gotoxy(42,4);cscanf("%d",&nrp);fflush(stdin);

do{

gotoxy(47,6);cscanf("%8s",nfis);fflush(stdin);getch();

}while(! isalpha(nfis[0]));

clrscr();textbackground(0);textcolor(15);

window(1,1,80,25);clrscr();

strcat(nfis,extens);

doc=fopen(nfis,"ab");

for(i=0;i<nrp;i++)

{

gotoxy(1,2);

printf("POSTUL %d :",i+1);

gets(artd.post);

printf("Numarul de conturi: ");

scanf("%d",&artd.ncont);fflush(stdin);

printf("Simbol conturi si + – +/-: ");

for(j=0;j<artd.ncont;j++)

{

gotoxy(27,4);

printf(" ");

gotoxy(35,4);

printf("contul %d",j+1);

et20:gotoxy(27,4);

gets(artd.conturi[j]);

poz=cautb(artd.conturi[j],ind,nrec);

if(poz==-1)

{

gotoxy(2,22);

printf("CONT INEXISTENT");getch();

gotoxy(2,22);

printf(" ");

gotoxy(27,4);

printf(" ");

goto et20;

}

if(j==(artd.ncont-1)){strcpy(artd.semn[j],"*");}

else

{

do

{

gotoxy(32,4);

gets(artd.semn[j]);

}while(strcmp(artd.semn[j],"+")&&strcmp(artd.semn[j],"-")&&strcmp(artd.semn[j],"+/-"));

}

}

fwrite(&artd,sizeof(artd),1,doc);clrscr();

}

fclose(fc);getch();clrscr();

fclose(doc);

return nrp;

}

//calculez sume document

void calculeaza(int nrp)

{

FILE *fc;

FILE *fis;

FILE *doc;

FILE *temp;

struct indxlin ind[400];

long poz;

char nfis[13];

int nrec,j,i,l;

float spost[100],arts[100];

// float arts[100];

char *msemn;

fc=fopen("PLAN.DAT","rb");

temp=fopen("sume.dat","ab");

fis=fopen("FISE.DAT","rb");

doc=fopen(nfis,"rb");

for(i=0;i<100;i++) spost[i]=0;

nrec=indexare(ind,fc);sort(ind,nrec);

strcpy(msemn,"+");

printf("%d",nrp);getch();getch();

for(i=0;i<nrp;i++)

{

fread(&artd,sizeof(artd),1,doc);

for(j=0;j<artd.ncont;j++)

{

poz=cautb(artd.conturi[j],ind,nrec);

fseek(fis,poz*sizeof(artf),SEEK_SET);

fread(&artf,sizeof(artf),1,fis);

if(!strcmp(msemn,"+"))

{

if(artf.sldd>0)

{

spost[i]+=artf.sldd;

}

else

{

spost[i]+=artf.sldc;

}

}

else

{

if(!strcmp(msemn,"-"))

{

if(artf.sldd>0)

{

spost[i]-=artf.sldd;

}

else

{

spost[i]-=artf.sldc;

}

}

else

{

if(!strcmp(msemn,"+/-"))

{

if(artf.sldd>0)

{

spost[i]+=artf.sldd;

}

else

{

spost[i]+=artf.sldc;

}

}

}

}

strcpy(msemn,artd.semn[j]);

}

arts[i]=spost[i];

fwrite(arts,sizeof(arts),1,temp);

}

getch();getch();fcloseall();

}

//program principal

void main()

{

char o;

int nrp;

FILE *fc=fopen("PLAN.DAT","ab");fclose(fc);

FILE *fis=fopen("FISE.DAT","ab");fclose(fis);

textmode(BW80);

do{

window(1,1,80,25);

clrscr();textbackground(0);textcolor(0);

fereastra(10,3,70,22,3,15,2);

afisare();

highvideo();

gotoxy(27,2);

cprintf(" OPTIUNI ");

gotoxy(4,4);

cprintf("1.CREARE PLAN CONTURI");

gotoxy(4,6);

cprintf("2.DEFINIRE DOCUMENT");

gotoxy(4,8);

cprintf("3.OPERATII CONTABILE CURENTE");

gotoxy(4,10);

cprintf("4.AFISARE SITUATIE CONTURI");

gotoxy(4,12);

cprintf("5.ACTUALIZEAZA PLAN");

gotoxy(4,14);

cprintf("6.AFISEAZA PLAN");

gotoxy(4,16);

cprintf("0.IESIRE");

gotoxy(2,17);

orizontal(58,2);

gotoxy(4,18);

cprintf(" OPTIUNEA DUMNEAVOASTRA : ");

o=getche();

window(1,1,80,25);

clrscr();

switch(o)

{

case '0':{window(1,1,80,25);textbackground(0);clrscr();exit(0);};break;

case '1':{unlink("PLAN.DAT");unlink("FISE.DAT");

fc=fopen("PLAN.DAT","ab");fis=fopen("FISE.DAT","ab");

fclose(fis);fclose(fc);creplan();

};break;

case '2':{nrp=strdoc();};break;

case '3':{formula();};break;

case '4':{afisfis();};break;

case '5':{creplan();};break;

case '6':{afisplan();}break;

}

}while(o!='0');

getch();

}