GESTIUNEA ACTIVITATII UNEI TIPOGRAFIEI

144.1 ELABORAREA TEMEI DE REALIZAT

Tema pe care o voi aborda in acest proiect se numeste “Gestiunea activitatii unei tipografii” si anume a tipografiei S.C. “Alba Print” S.A.

cu sediul in localitatea Petresti, judetul Alba. Fiind una din cele mai mari tipografii din tara apare nevoia unui program care sa ofere o solutie

completa pentru gestionarea comenzilor, datelor legate de furnizori, clienti, stocuri disponibile, comenzi, produse, preturi si intreg sistemul de plati.

Acest program raspunde acestor nevoi si are scopul de a creste eficienta si productivitatea in cadrul firmei si totodata de a usura munca angajatilor.

144.2 ANALIZA SISTEMULUI EXISTENT

Intreaga activitate de productie, administrativa si de conducere a societatii evaluate se desfasoara in incinta imobilului aflat in proprietate,

situat in Sebes-Petresti, str. 1 Mai, nr. 259, judetul Alba.

Tiparirea produselor se face cu tipare de tip OFFSET (tiparire pe plan). Unitatea s-a dotat si a pus in functiune doua masini performante de

tiparit de tip HEIDELBERG, complet automatizate si o masina de tiparit HEIDELBERG IV ultraperformanta. De asemenea are in dotare 2 masini

RIOBI pentru tiparire tipizate si 2 stante HEIDELBERG montate in sala noua de productie.

Alte dotari:

-5 calculatoare PENTIUM IV;

-3 imprimante speciale (min 1200 Dpi) Brother, Minolta

-scaner pentru preluarea imaginilor ofertelor;

-imprimanta PAGO cu cap termic pentru etichete pe rola;

-masini de faltuit, canelat, perforat, legat, lipit, etc.

Tehnologia relativ noua, realizata dupa anul 1999 de capacitate medie, cu performante tehnologice competitive, atrage o multime de clienti, atat firme

mici si persoane fizice cat si firme de prestigiu precum CISEROM S.A. sau HEIDI. Aceasta atrage dupa sine nevoia unei bune organizari si

gestionari a intregii activitati pe care o implica procesul de productie si ca atare nevoia unui program competent.

144.3 CARACTERISTICILE FIRMEI:

144.3.1 SCURT ISTORIC AL FIRMEI

Societatea commerciala “ALBA PRINT” S.A. Petresti este o firma cu capital integral privat si a fost infiintata in anul 1992 de un grup de 8

actionari, personae fizice cu un capital social de 214000000 lei, din care 122940800 lei reprezinta aporul in natura(utilaje si masini tipografice din

Elvetia).

In 1998 societatea comerciala cu raspundere limitata s-a constituit in societate comerciala pe actiuni si a marit capitalul social prin aport in lei

la 500000000 lei (20000 actiuni a cate 25000 lei fiecare), fara modificarea cotelor de participare initiale.

Societatea comerciala ALBA PRINT S.A. este o societate cu o anumita experienta in domeniul tipografiilor fiind deja cunoscuta si in afara

granitelor.

144.3.2 DESCRIEREA PROCESULUI TEHNOLOGIC

Societatea produce imprimate de toate tipurile: carti, etichete, carti de vizita, material publicitar, hartie sau scrisori, plicuri, ambalaje, afise,

illustrate, invitatii, bibliorafturi cu activitate principala.

Societatea cumpara si vinde marfuri comerciale, masini si unelte anexe productiei. Societatea presteaza servicii grafice de orice tip, culegere

de texte, oferind servicii complete ale unei edituri: redactarea si editarea cartilor, a revistelor, a ilustratelor si a tipariturilor de orice fel.

Societatea are incheiate contracte cu principalii clienti si furnizorii de materie prima. Multe materiale sunt procurate de pe piata libera.

144 - 1

Societatea are un regulament de functionare si un regulament de ordine interioara. Datorita numarului redus de personal unii angajati au pe

langa functia de baza si alte atribute complementare.

144.3.3 NOMENCLATURA PRODUSELOR FIRMEI

Asa cum rezulta din statutul societatii, activitatea de baza este tiparirea si comercializarea de imprimate de toate tipurile (carti, caiete,

etichete, formulare, plicuri, afise etc.).

Intreaga activitate de productie, administrativa si de conducere a societatii evaluate se desfasoara in incinta imobilului aflat in proprietatii,

situate in Sebes – Petresti, str. 1 Mai, nr. 259, judetul Alba.

Tiparirea produselor se face cu tipare de tip OFFSET (tipare pe plan). S.C. ALBA PRINT dispune de un laborator foto ultramodern, dotat cu

masini de contact pentru realizarea placilor fotosensibile si masini de developat filme fototehnice. Pantoanele care e utilizaza pentru amestecul

vopselelor garanteaza ca la o viitoare comanda sa se obtina exact aceeasi nuanta de culoare.

Fiecare comanda este preluata de o echipa – ALBA PRINT care o supravegheaza pana la ajungerea ei la clienti. Aceasta echipa controleaza

fiecare faza a procesului de productie, iar la nevoie cererea poate fi satisfacuta in cateva ore.

144.3.4 PIETELE DE BAZA ALE FIRMEI Piata de aprovizionare

Materiale aprovizionate: hartie, cartoane, cerneluri, filme, placi fotosensibile, stante, consumabile.

Sursede aprovizionare:

din import (direct sau prin intermediari) – solutii, hartie speciala – cca. 45% din total;

din tara (direct sau prin intermediari) – hartie editie, filme – cca. 53% din total;

cu materialele clientilor – cca. 2% din total.

Pe termen scurt se poate aprecia o tendinta de mentinere relativ constanta a structurii pietei de aprovizionare.

Piata de desfacere

Piata de desfacere a societatii este structurata pe produse si clientele.

Afacerea societatii depinde in buna masura de situatia financiara a clientilor importanti. Pe termen mediu se poate aprecia o tendinta de

crestere a structurii pietei de desfacere in special in judetul Alba. In postura de cumparatori a produselor oferite de firma apar atat diverse firme

comerciale, cat si persoane fizice.

144.3.5 PRETURILE – STRATEGI ALE FIRMEI

Pentru mentinerea clientilor fideli si pentru o “achizitionare” de noi clienti firma apeleaza la o serie de strategi ale pretului cum ar fi:

- stabilirea pretului pe criterii geografice, adica determinarea pretului produselor vandute la clienti mai indepartati;

- acordarea de rabaturi si bonificatii, firma putand practica rabaturi pentru plata in numerar, pentru cumpararea de marfuri in

cantitati mari, reduceri de natura functionala, rabaturi sezoniere si bonificatii propri-zise;

- practicarea unor preturi promotionale, care pot lua forma vanzarilor in pierdere, a practicilor unor preturi speciale, a rabaturilor

pentru palta imediata a produselor cumparate, a achizitionarii pe credite cu dobanda redusa si a reducerilor de natura psihologica;

- practicarea unor preturi differentiate, pe care firma le stabileste pentru anumite categorii de consumatori, produse, marci, locuri si

momente de achizitionare a marfurilor;

- o alta strategie ar fi corelarea pretului cu mixul de produs, firma stabilind preturi diferite pentru o serie de produse care fac parte

dintr-o linie de produs, pentru caracteristicile suplimentare, pentru asa numitele produse “captive”, pentru produsele derivate si pentru pachetele de

produse.

144 - 2

ORGANIGRANA PERSONALULUI SOCIETATII:

144.4 GESTIUNEA ACTIVITATII UNEI TIPOGRAFII

Baza de date tipografie.dbc contine urmatoarele tabele:

- tabela comenzi.dbf

1. cod_prod Numeric 32. cod_cl Numeric 43. cod_com Character 44. cod_cont Numeric 55. cantitate Character 106. data_com Date 8

- tabela consumuri.dbf

1. cod_mat Numeric 22. c_m Character 103. cant_cons Numeric 104. cata_cons Date 8

- tabela clienti.dbf

1. cod_prod Numeric 32. nume_prod Character 203. cod_com Character 44. cod_cont Numeric 55. cod_cl Numeric 46. nume_cl Character 207. adresa Character 408. nr_telefon Character 109. nr_fax Character 10

144 -

Consiliu de administratie

Director tehnic Director comercialDirector administrativ

Contabil Agent vanzareAtelier productie

Atelier machetaj si montaj

Operator Operator montaj

3

Presedinte

Tipografi Stantatori Personal finisare

- tabela furnizori.dbf

1. cod_mat Numeric 22. nume_mat Character 303. cod_cont Numeric 44. cod_furn Numeric 35. nume_furn Character 306. adresa Character 457. nr_telefon Character 108. nr_fax Character 10

- tabela incasarec.dbf

1. cod_cl Numeric 82. nume_cl Character 203. cod_com Character 44. cod_cont Numeric 55. cod_prod Numeric 36. u_m Character 37. cantitate Numeric 108. prunit_ftva Numeric 109. tva Numeric 1010. prtot_ftva Numeric 1011. prtot_tva Numeric 1012. nr_factura Character 813. nr_chitanta Character 8

- tabela palta furnizori

1. cod_furn Numeric 32. cod_mat Numeric 23. valoare Numeric 104. cont_banca Character 245. nr_factura Character 86. nr_chitanta Character 87. Scadenta Date 8

- tabela produse.dbf

1. cod_prod Numeric 32. nume_prod Character 203. pret_buc Numeric 10

- tabela stoc.dbf

1. cod_mat Numeric 22. nume_mat Character 303. u_m Character 84. cantitate Numeric 105. data_inven Date 8

Meniul principal faciliteaza accesul la intreaga baza de date, permitand introducerea, listarea, modifcarea si stergerea datelor din tabele.

SET SYSMENU TOSET SYSMENU AUTOMATIC

DEFINE PAD _1f40qzzq7 OF _MSYSMENU PROMPT "\<clienti" COLOR SCHEME 3 ;KEY ALT+C, ""DEFINE PAD _1f40qzzq8 OF _MSYSMENU PROMPT "\<produse" COLOR SCHEME 3 ;KEY ALT+P, ""DEFINE PAD _1f40qzzq9 OF _MSYSMENU PROMPT "\<furnizori" COLOR SCHEME 3 ;KEY ALT+F, ""DEFINE PAD _1f40qzzqa OF _MSYSMENU PROMPT "\<stoc" COLOR SCHEME 3 ;KEY ALT+S, ""DEFINE PAD _1f40qzzqb OF _MSYSMENU PROMPT "\<consumuri" COLOR SCHEME 3 ;KEY ALT+C, ""DEFINE PAD _1f40qzzqc OF _MSYSMENU PROMPT "\<iesire" COLOR SCHEME 3 ;KEY ALT+I, ""ON PAD _1f40qzzq7 OF _MSYSMENU ACTIVATE POPUP newitemON PAD _1f40qzzq8 OF _MSYSMENU ACTIVATE POPUP produseON PAD _1f40qzzq9 OF _MSYSMENU ACTIVATE POPUP furnizoriON PAD _1f40qzzqa OF _MSYSMENU ACTIVATE POPUP stoc

144 - 4

ON PAD _1f40qzzqb OF _MSYSMENU ACTIVATE POPUP consumuriON SELECTION PAD _1f40qzzqc OF _MSYSMENU ;DO _1f40qzzqd ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")

DEFINE POPUP newitem MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF newitem PROMPT "\<adaugare"DEFINE BAR 2 OF newitem PROMPT "\<modificare"DEFINE BAR 3 OF newitem PROMPT "\<stergere"DEFINE BAR 4 OF newitem PROMPT "\<listare"DEFINE BAR 5 OF newitem PROMPT "\<incasare clienti"DEFINE BAR 6 OF newitem PROMPT "\<comenzi"ON SELECTION BAR 1 OF newitem ;DO _1f40qzzqe ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 2 OF newitem ;DO _1f40qzzqf ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 3 OF newitem ;DO _1f40qzzqg ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 4 OF newitem ;DO _1f40qzzqh ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON BAR 5 OF newitem ACTIVATE POPUP incasareclON BAR 6 OF newitem ACTIVATE POPUP comenzi

DEFINE POPUP incasarecl MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF incasarecl PROMPT "\<adaugare"DEFINE BAR 2 OF incasarecl PROMPT "\<modificare"DEFINE BAR 3 OF incasarecl PROMPT "\<listare"DEFINE BAR 4 OF incasarecl PROMPT "\<stergere"ON SELECTION BAR 1 OF incasarecl ;DO _1f40qzzqi ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 2 OF incasarecl ;DO _1f40qzzqj ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 3 OF incasarecl ;DO _1f40qzzqk ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 4 OF incasarecl ;DO _1f40qzzql ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")

DEFINE POPUP comenzi MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF comenzi PROMPT "\<adaugare"DEFINE BAR 2 OF comenzi PROMPT "\<modificare"DEFINE BAR 3 OF comenzi PROMPT "\<listare"DEFINE BAR 4 OF comenzi PROMPT "\<stergere"ON SELECTION BAR 1 OF comenzi ;DO _1f40qzzqm ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 2 OF comenzi ;DO _1f40qzzqn ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 3 OF comenzi ;DO _1f40qzzqo ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 4 OF comenzi ;DO _1f40qzzqp ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")

DEFINE POPUP produse MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF produse PROMPT "\<adaugare"DEFINE BAR 2 OF produse PROMPT "\<modificare"DEFINE BAR 3 OF produse PROMPT "\<listare"DEFINE BAR 4 OF produse PROMPT "\<stergere"ON SELECTION BAR 1 OF produse ;DO _1f40qzzqq ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 2 OF produse ;DO _1f40qzzqr ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 3 OF produse ;DO _1f40qzzqs ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 4 OF produse ;DO _1f40qzzqt ;

144 - 5

IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")

DEFINE POPUP furnizori MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF furnizori PROMPT "\<adaugare"DEFINE BAR 2 OF furnizori PROMPT "\<modificare"DEFINE BAR 3 OF furnizori PROMPT "\<listare"DEFINE BAR 4 OF furnizori PROMPT "\<stergere"ON SELECTION BAR 1 OF furnizori ;DO _1f40qzzqu ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 2 OF furnizori ;DO _1f40qzzqv ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 3 OF furnizori ;DO _1f40qzzqw ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 4 OF furnizori ;DO _1f40qzzqx ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")

DEFINE POPUP stoc MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF stoc PROMPT "\<adaugare"DEFINE BAR 2 OF stoc PROMPT "\<modificare"DEFINE BAR 3 OF stoc PROMPT "\<listare"DEFINE BAR 4 OF stoc PROMPT "\<stergere"ON SELECTION BAR 1 OF stoc ;DO _1f40qzzqy ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 2 OF stoc ;DO _1f40qzzqz ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 3 OF stoc ;DO _1f40qzzr0 ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 4 OF stoc ;DO _1f40qzzr1 ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")

DEFINE POPUP consumuri MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF consumuri PROMPT "\<adaugare"DEFINE BAR 2 OF consumuri PROMPT "\<modificare"DEFINE BAR 3 OF consumuri PROMPT "\<listare"DEFINE BAR 4 OF consumuri PROMPT "\<stergere"ON SELECTION BAR 1 OF consumuri ;DO _1f40qzzr2 ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 2 OF consumuri ;DO _1f40qzzr3 ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 3 OF consumuri ;DO _1f40qzzr4 ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")ON SELECTION BAR 4 OF consumuri ;DO _1f40qzzr5 ;IN LOCFILE("A:\MENIU TIPOGRAFIE" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENIU TIPOGRAFIE?")

PROCEDURE _1f40qzzqdSET SYSMENU TO defaultCLOSE ALLclear

PROCEDURE _1f40qzzqeUSE c:\Proiect\clienti.dbfAPPEND

PROCEDURE _1f40qzzqfUSE c:\Proiect\clienti.dbfbrowse

PROCEDURE _1f40qzzqgUSE c:\Proiect\clienti.dbfdelete

PROCEDURE _1f40qzzqhUSE c:\Proiect\clienti.dbflistPROCEDURE _1f40qzzqiUSE c:\Proiect\incasarec.dbfappend

144 - 6

PROCEDURE _1f40qzzqjUSE c:\Proiect\incasarec.dbfbrowse

PROCEDURE _1f40qzzqkUSE c:\Proiect\incasarec.dbflist

PROCEDURE _1f40qzzqlUSE c:\Proiect\incasarec.dbfdelete

PROCEDURE _1f40qzzqmUSE c:\Proiect\comenzi.dbfappend

PROCEDURE _1f40qzzqnUSE c:\Proiect\comenzi.dbfbrowse

PROCEDURE _1f40qzzqoUSE c:\Proiect\comenzi.dbflist

PROCEDURE _1f40qzzqpUSE c:\Proiect\comenzi.dbfdelete

PROCEDURE _1f40qzzqqUSE c:\Proiect\produse.dbfappend

PROCEDURE _1f40qzzqrUSE c:\Proiect\produse.dbfbrowse

PROCEDURE _1f40qzzqsUSE c:\Proiect\produse.dbflist

PROCEDURE _1f40qzzqtUSE c:\Proiect\produse.dbfdelete

PROCEDURE _1f40qzzquUSE c:\Proiect\furnizori.dbfappend

PROCEDURE _1f40qzzqvUSE c:\Proiect\furnizori.dbfbrowse

PROCEDURE _1f40qzzqwUSE c:\Proiect\furnizori.dbflist

PROCEDURE _1f40qzzqxUSE c:\Proiect\furnizori.dbfdelete

PROCEDURE _1f40qzzqyUSE c:\Proiect\stoc.dbfappend

PROCEDURE _1f40qzzqzUSE c:\Proiect\stoc.dbfbrowse

PROCEDURE _1f40qzzr0USE c:\Proiect\stoc.dbflist

PROCEDURE _1f40qzzr1USE c:\Proiect\stoc.dbfdeletePROCEDURE _1f40qzzr2USE c:\Proiect\consumuri.dbfappend

144 - 7

PROCEDURE _1f40qzzr3USE c:\Proiect\consumuri.dbfbrowse

PROCEDURE _1f40qzzr4USE c:\Proiect\consumuri.dbflist

PROCEDURE _1f40qzzr5USE c:\Proiect\consumuri.dbfDelete

Programul urmator face uz de relatiile exitente intre tabelele incasarec si clienti, listand intr-un nou tabel datele legate de facturile clientilor (nr. factura, numele clientului, adresa si valoarea totala a facturii):

SET TALK OFFCLEAR ALLSELECT 1USE incasarec &&tabel fiuINDEX ON cod_cl TO codcindSELECT 2USE clienti &&tabel parinteSET RELATION TO cod_cl INTO incasarecBROWSE FIELDS incasarec.nr_factura,nume_cl,adresa,incasarec.prtot_tva

Programul de fata calculeaza valoarea facturii pentru fiecare client din tabelul incasarec:

SET TALK OFF CLEAR USE Incasarec SCAN replace Tva WITH Prtunit_ftva*0.19 replace Prtot_ftva WITH Prtunit_ftva*Cantitate replace Prtot_tva WITH (Prtunit_ftva+Tva)*Cantitate ENDSCAN Use

Program care afiseaza pe ecran o lista a datornicilor fata de tipografie impreuna cu valoarea datorata si cu codul clientului

CLEARUSE IncasarecSCAN IF Prtot_tva != 0 CLEAR @1,2 say 'Lista debitorilor' @2,2 say '=================' @3,2 say 'Cod client: '+STR(cod_cl) @4,2 say 'Nume client: '+nume_cl @5,2 say 'Valoare datorata: '+STR(Prtot_tva) WAIT ENDIFENDSCANUSE

144 - 8