home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 August - Disc 3 / chip_20018103_hu.iso / profi / profidem.exe / rar

Jump To: Image (1)  |  Document (31)  |  Text (19)  |  Other (12)

File Comment
; (C) Schuller Andr￾s  267-3648  30/942-42-48
 ; Ezen forrskd brminem jrafelhasznlst csak a szerz engedlyezheti !
;
;                                                                    ;
;ALTV-t bekapcsolni !
;
; clknyvtr ltezse esetn EXCLUDE *.dbf kellene, vagy fellrsra krds !
;    ez csak az PROFIDEM-nl nem kellene
DestDir="C:\\PROFIDEM"
;DestDir="C:\\RAKTAR"
;DestDir="C:\\TARGYI"
;DestDir="C:\\TIKETT"
;      - EXEC:
;mg 2 helyen kell belenyulni:
;    (Amennyiben megvltoztatja, akkor a RAK.BAT is tirand !)
;              Profi Raktr/Szmlzs/Leltr
files=60
diskneed=670000
;
call OutHelp
;
Menu:
restscr 8
;
window 1,1,80,25
gotoxy 1,25
ctext "  F1: Program/Szerz  "
;
Choice = menu 25,15,white,blue,1,"","       Informci","  Cl knyvtr bekrse ","        Telepts","         Kilps"
if Choice == 0
      goto Quit
endif
if Choice==1
  savescr 1
  FirstPage:
  window 2,2,80,25
  setcolor LIGHTCYAN,BLUE
  clrscr
;outtext ansi on/off
;  .......  
;                        Copyright (C) 1998  XION BBS         
outtext on
                      PROFI programok, PROFI minsgben:
 
 PROFI NAPLOFKNYV, PNZTRKNYV program      1/tbb cgre:   20-28/56.000.-
   A szmlkat dtum szerint sorba rendezi, visszamenleges knyvels, knny
   javthatsg, vev, szllt, tartozsanalitika, kiegyenltetlen  szmlk,
   60 napos fa s figyelse, teljeskr fa, trgyi eszkz nyilvntarts, 15
   bank, 22 fle klnbz tetszlegesen paramterezhet lista, amely knny,
   gyors, biztos kezelhetsget s ellenrizhetsget eredmnyez.  +Szmlz,
   tnyilvntart, pnztrbizonylat-, tutalsnyomtat modulok is vannak.
 
 TRSASHZI KZS KPVISELETI program      1/tbb cgre:       20-40/80.000.-
   magba foglalja a Profi Naplfknyv program szinte minden szolgltatst,
   gy  annak  minden  analitikja  ignybe  vehet.  Kzs  kltsg,  fts,
   feljts, szemtdj,  vzdj,  brleti  djak,  egyszeri  kltsgek  stb.
   elszmolsra is  alkalmas, automatikusan gngyli a tulajdonosok mlt vi
   tartozsait,  kezeli  a  laks  vteli  s  eladsi  idejt,  a  tulajdoni
   hnyadot, a  laks alapterlett,  benntlakk szmt,  stb., ezek  alapjn
   automatikusan eljegyeztethetek  a havi kzs ktg., stb elrsok, melyek
   havonta is  vltozhatnak. Kezeli  az nkormnyzati  hnyadot is.  A  hzat
   terhel kiadsok  tetszleges tipusai  knyvelhetek vele, melyekrl az v
   v vgn  kltsgfajtnknti elszmols krhet sszestve, laksonknt s
   ttelesen is.  Tetszleges nvreszl  krleveleket is r.  Kamat, Vzra,
   csekkkitlt, tervkszt modulok is vannak.
outtext off
  window 1,1,80,25
  box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
  gotoxy 8,25
  ctext " 3/1.oldal     Lapozs: PgDn  Vissza: Esc      F1 "
  sound 140,5
  GetKey1:
  Key=getkey
  if Key==27
     restscr 1
     goto Menu
  endif
  if Key==337
     SecondPage:
     window 2,2,80,25
     setcolor LIGHTCYAN,BLUE
     clrscr
outtext on
 SZMLZS, LELTR                                                   20.000.-
   Az Apeh  elrsoknak is  megfelel.  Y2K  (2000  kompatibilis).  Gyors  s
   knnyen kezelhet.  A szmlzs kzben is bvtheti a vev s cikktrzset.
   A szmla  ttelek felvitelnl  cikkszm,  cikknv, helyettest cikk vagy
   szvegrszlet szerint  is  tud  keresni.  Stornzs.  Flbehagyott  szmla
   javthat,  jranyomtathat.  Tetszlegesen  kialakthat  szmlaformtum,
   kp-lg beilleszts.  Visszajr pnzt  is szmol.  rlista nyomtathat a
   cikkszm, cikknv vagy cikkcsoport szerinti  sorrendben, tbb formtumban,
   szktve is. Tbb eladsi rforma.  Rengeteg analitika.    Kiegyenltetlen
   szmlk lista.   A vevket  (s szlltkat)  szmlnknt   s  cikkenknt
   is kvetheti. Cikkvets.  Modulok: Leltr: 4 eFt, Tikett nyomtat: 6 eFt,
   Szlltlevl nyomtat: +10 eFt, Krszmlz modul: +10 eFt.
 
 RAKTR-SZMLZS                                                    40.000.-
   mint az  elz lersban, + folyamatosan aktualizlt kszletlista, 20 fle
   analitika.  Cikkvets,   Vevkvets  szmlnknt   s   cikkenknt   is.
   tlagbeszerzsi r  kpzs.     Bejv  -  Kimen  szmla  lista.  Felads
   knyvels  fel     vevk   s  szlltk   szerinti   sszestssel   is.
   Kiegyenltetlen szmlk  figyelse.   Idszaki forgalom.  Csoportforgalom.
   Tovbbi modulok:  Szllt analitikk,  Rendelsnyilvntart,   Munkaszm,
   Tbb raktr kezelse, Hlzat,  Devizs beszerzs  s szmlzs,  Gyrts
   modulok:  10 eFt.   Tbb modul  vtele esetn  kedvezmnyek.
   Egyedi ignyek esetn kvnsg szerinti kialakts.
outtext off
     window 1,1,80,25
     box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
     gotoxy 6,25
     ctext " 3/2.oldal     Lapozs: PgDn/PgUp  Vissza: Esc      F1 "
     sound 140,5
;
     GetKey2:
     Key=getkey
     if Key==27
       restscr 1
       goto Menu
     endif
     if Key == 329
        goto FirstPage
     endif
     if Key == 337
        ThirdPage:
     window 2,2,80,25
     setcolor LIGHTCYAN,BLUE
     clrscr
outtext on
 PROFI TRGYI ESZKZ nyilvntarts                                20/40.000.-
   Adtrv./szmviteli trv  szerinti CS szmts, fknyvi,  nyilvntartsi
   szmonknt,  kltsghelyenknt,    felads,  stb.  Brutt  rtk  sszes
   fknyvi szmonknt.  Eszkzk thozsa ms programokbl !
 
 KETTS KNYVVITEL folyszmla, fa, analitikk, naplk         24.000 Ft-tl
 BRSZMFEJTS                                                  24.000 Ft-tl
 ADONOTESZ - llsfoglals gyjtemny CD/Floppyn havi frisstssel     9000.-
 TIKETT univerzlis gyflnyilvntart. Hatridnyilvntarts,telefonknyvek,
   Sokfle keress, telefonszm felhvsa modemmel, stb.          20/40.000.-
 
 A demk a megnzhet/nyomtathat dokumentcik alapjn knnyen megrthetek.
 A programok  igen  sokrt  tudsuk  ellenre  is  knnyen  kezelhetek,  s
 telepthetk, DOS s WINDOWS-ban IS hasznlhatak,  a windows-ba  teleptett
 printert is kezelik, jl dokumentltak. Az rak ft nem, de BETANTST, TA-
 NCSADST tartalmaznak, esetenknt rkedvezmnyt is knlunk ! Tbb mint 800
 referencia hely s 10 v tapasztalat. Mivel rengeteg analitikt tartalmaznak
 az idnyeresg miatt sokkal kifizetdbb, mint sok ms egyszerbb program !
 Friss demink letlthetek a  www.as.hu/profi s a www.extra.hu/profi inter-
 net cmrl, vagy  kzvetlen krhet a fejleszttl, dokumentcikkal egytt:
 
    Informc: Schuller Andrs, Tel: 267-3648,  06/30/942-42-48   (9-21h)
outtext off
     window 1,1,80,25
     box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
     gotoxy 8,25
     ctext " 3/3.oldal    Lapozs: PgUp  Vissza: Esc     F1 "
     sound 140,5
        GetKey3:
        Key=getkey
        if Key==27
           restscr 1
           goto Menu
        endif
        if Key == 329
           goto SecondPage
        endif
        goto GetKey3
      endif
      goto GetKey2
   endif
   goto GetKey1
endif
;
if Choice == 2
     savescr 1
     restscr 8
     setcolor DARKGRAY,BLACK
     window 10,16,73,22
     clrscr 178
     setColor white,blue
     window 9,15,72,21
     setcolor white,blue
     clrscr
outtext on
;    (Amennyiben megvltoztatja, akkor a RAK.BAT is tirand !)
;   (Amennyiben megvltoztatja, akkor a TARGYI.BAT is tirand !)
x
                      Cl Knyvtr bekrse
          A program az albbi knyvtrba lesz teleptve
               (Amennyiben megvltoztatja, akkor a
                PROFI.BAT, PROFI.PIF is tirand !)
 
outtext off
     box 1,1,64,7,white,blue,SINGLE
     window 15,30,70,21
     gotoxy 20,20
     Res=INPUT black,WHITE,DestDir,DestDir,42
     restscr 1
     window 1,1,80,25
     goto Menu
endif
;
if Choice == 3
  window 1,1,80,25
  box 6,11,76,25,white,BLUE,single
  setcolor white,BLUE
  gotoxy 29,11
  text " Telepts sttus:  "
  window 7,12,75,24
  clrscr
; Check free space
  DiskSpace=getdfree
  KDiskSpace=DiskSpace/1024
  KDiskNeed=diskneed/1024
  text "Installls  indul   \n"
  text "Szksges diszk hely:   ",KDiskNeed," Kb\n"
  text "Szabad diszk hely:    ",KDiskSpace," Kb\n"
  inswrow=4
  window 1,1,80,25
;
  if DiskSpace < diskneed
    savescr 1
    window 1,1,80,25
    sound 2300,25
    delay 100
    sound 1450,25
    delay 100
    sound 2300,100
    Choice = menu 24,16,WHITE,RED,1,"Diszk megtelt, takartson !","Folyats","Kilps"
    if Choice == 0
      goto Quit
    endif
    if Choice == 2
      goto Quit
    endif
    restscr 1
  endif
endif
;
if Choice == 4
   Quit:
     window 1,1,80,25
     setcolor WHITE,black
     clrscr
     gotoxy 2,3
     text "A telepts megszaktva !"
     sound 380,25
     delay 210
     sound 190,25
     exit 1
     goto Menu
endif
;
; HERE INSTALLATION STARTS!
;ctext "Installs inditsa."
;
;************************
proc OnKey
;************************
  window 1,1,80,24
  if Par1 == 3
    savescr 15
    Par1=-1
    sound 2300,25
    delay 100
    sound 1450,100
    Choice=Menu 22,11,WHITE,LIGHTRED,1,"Ctrl-Break","         Megszakits            ","   Folytats   "
    if Choice == 1
      exit 1
    endif
    restscr 15
  endif
;
  if Par1 == 301
        goto Quit
  endif
;
  if Par1 == 315
    savescr 15
    call OutHelp
    Par1=-1
    restscr 15
  endif
endp
;
;************************
proc FileDone
;************************
  gotoxy 49,11
  setcolor LIGHTCYAN,BLUE
  Percent=Par1*100
  Percent=Percent/files
  text Percent,"%% "
  window 7,12,75,23
  setcolor LIGHTCYAN,BLUE
  gotoxy 1,inswrow
  text DestFileName
  if inswrow = 12
        text "\n"
  endif
  if inswrow < 12
        inswrow=inswrow+1
  endif
  window 1,1,80,25
endp
;
;************************  hiba esetn ide jn, mkdne:
;proc Error
;;************************
;     window 7,12,75,23
;     setcolor LIGHTCYAN,BLUE
;     gotoxy 1,inswrow
;
;     Title="Error"
;
;     ; Par1 is assigned with error code:
;
;     if Par1 == 1
;     Message="Fatlis hiba"
;     call ErrMsg
;     endif
;
;     if Par1 == 2
;     Message="CRC hiba, megsrlt az llomny"
;     call ErrMsg
;     endif
;
;     if Par1 == 3
;     Message="Irsi Hiba"
;    call ErrMsg
;     endif
;
;     if Par1 == 4
;     Message="Fjl ltrehozsi hiba"
;     call ErrMsg
;     endif
;
;     if Par1 == 5
;     Message="Olvassi hiba"
;     call ErrMsg
;     endif
;
;     if Par1 == 6
;     Message="File close error"
;     call ErrMsg
;     endif
;
;     if Par1 == 7
;     Message="Fjl megnyitsi hiba"
;     call ErrMsg
;     endif
;
;     if Par1 == 8
;     Message="Tl kevs memoria"
;     call ErrMsg
;     endif
;
;     if inswrow = 12
;     text "\n"
;     endif
;
;     if inswrow < 12
;     inswrow=inswrow+1
;     endif
;     window 1,1,80,25
;endp
;
;;************************     Csak error hivhatja
;proc ErrMsg
;;************************
;     window 17,14,62,21
;     setcolor WHITE,RED
;     clrscr
;     window 1,1,80,25
;     box 20,15,59,20,WHITE,RED,DOUBLE
;     gotoxy 1,15
;     ctext " ",Title," "
;     gotoxy 1,17
;     ctext Message
;     setcolor WHITE,BLACK
;     gotoxy 1,19
;     ctext " Ok "
;     sound 20,5
;     sound 80,50
;     delay 15000
;     window 1,1,80,25
;endp
;
;************************
proc ArcDone
;************************
    sound 3300,25
    delay 100
    sound 2450,100
    window 7,12,75,24
    setcolor LIGHTCYAN,BLUE
    gotoxy 1,inswrow
    text  "    * * *  A tmritett fjlok kibontsa befejezdtt. * * *\n"
    text  "    * * *  Indul az INSTALL program ........."
    delay 3000
;************************** + 1 ablak erre nem kell
;savescr 2
;window 1,1,80,24
;window 24,14,58,20
;setcolor BLACK,WHITE
;clrscr
;box 3,2,32,6,BLACK,WHITE,DOUBLE
;gotoxy 6,3
;text "Telepts befejezve."
;setcolor WHITE,Blue
;gotoxy 16,5
;text " Ok "
;delay 50000
;restscr 2
;**************************
;
;ez akkor kell, ha install p2 vel nem indtja el a programot (pl. profi.bat)
    setcolor white,BLACK
; mivel DesDir \-re vgzdik ezrt nem jo ???
;system "cd ", DestDir
;system "cd c:\\profi"
;setcolor WHITE,BLACK
clrscr
exec DestDir, "install p1 p2"
window 1,24,80,25
text  "Krem nyomtassa ki a program 'Dokumentcik' menpontjbl a 'Naplfknyv'-et, vagy krje kinyomtatva a szerztl: Schuller Andrs: 267-3648,  30/942-42-48."
delay 30000
endp
;
;************************
proc OutHelp
;************************
;clrscr
defbar BLACK,WHITE,WHITE,BLACK,14,7,52
;nevjegy:   ....   goto nevjegy : nem ment !
;
window 1,1,80,25
setcolor white,LIGHTCYAN
;
cLRSCR 178
setcolor white,LIGHTCYAN
box 1,1,80,25,white,LIGHTblue,DOUBLE
;
;rnyk PROFI al:
setcolor DARKGRAY,BLACK
window 4,4,78,12
cLRSCR 178
; visszallts
;setcolor white,LIGHTCYAN
;savescr 8
window 3,3,77,11
;box 1,1,75,9,white,blue,single
setColor lightcyan,blue
clrscr
;window 4,4,76,10
outtext on
x
 
                                                                      
                 ۻ   ۻ    ۻ   ۻ  ۻ
                 ۻ  ۻ  ۻ  ͼ  ۺ
                 ɼ  ɼ  ۺ  ۺ  ۻ   ۺ
                 ͼ   ۻ  ۺ  ۺ  ͼ   ۺ
                 ۺ       ۺ  ۺ   ɼ  ۺ      ۺ
                ͼ       ͼ  ͼ   ͼ   ͼ      ͼ            
outtext off
box 1,1 75,9,yellow,blue,single
;window 1,1,80,25
savescr 8
; Shadow:
window 14,15,72,23
setcolor DARKGRAY,BLACK
clrscr 178
;
;setColor yellow,blue
window 13,14,71,22
setColor lightcyan,blue
clrscr
;             Profi Raktr/Szmlzs/Leltr
;                   V2.22  1998.07.30
;                PROFI TRGYI ESZKZ II.
;                   V2.20  1998.07.30
;            Profi Trsashzi Naplfknyv
outtext on
x
            Profi Naplfknyv / Pnztrknyv
                    V4.14  2001.05.27
             (C) Schuller Andrs  1991-2001
            Villamosmrnk - Szoftverszakrt
          1088 Bp., Brdy Sndor u. 38. 3.em.2.
        Tel: 267-3648 s 30/942-42-48  9-21h., de
           Szerda 17-19h, Szomb.du.: 335-9492
outtext off
;
box 1,1 59,9,yellow,blue,single
; vrakozs ms-ban
  delay 20000
window 1,1,80,25
endp
;colors: white,blue,yellow,LIGHTCYAN,DARKGRAY,BLACK,....

Images (1)
 

Document (31)
NameFormat# PagesSizeDate
ANALT.DBF dBase/FoxBase/XBase/FoxPro Database File 18 43KB 2001-05-27
ANALT.STR dBase/FoxBase/XBase/FoxPro Database File 3 739b 1997-11-22
ANALT9.STR dBase/FoxBase/XBase/FoxPro Database File 3 739b 2000-04-03
ANALTP.DBF dBase/FoxBase/XBase/FoxPro Database File 9 32KB 2001-05-27
ATUTAL.DBF dBase/FoxBase/XBase/FoxPro Database File 2 2KB 2000-02-03
ATUTAL.STR dBase/FoxBase/XBase/FoxPro Database File 2 2KB 2000-02-03
BEJSZLA.DBF dBase/FoxBase/XBase/FoxPro Database File 1 571b 2000-12-30
BEJSZLA.STR dBase/FoxBase/XBase/FoxPro Database File 2 419b 1995-06-07
BPNEV.STR dBase/FoxBase/XBase/FoxPro Database File 2 7KB 1996-08-17
CEGEK.STR dBase/FoxBase/XBase/FoxPro Database File 3 611b 1998-06-15
FOKONYP9.STR dBase/FoxBase/XBase/FoxPro Database File 4 739b 1999-06-07
FOKONYV.DBF dBase/FoxBase/XBase/FoxPro Database File 3 11KB 2001-02-04
FOKONYV.STR dBase/FoxBase/XBase/FoxPro Database File 6 1KB 1997-10-03
FOKONYV9.STR dBase/FoxBase/XBase/FoxPro Database File 6 1KB 2000-04-03
FOKONYVP.STR dBase/FoxBase/XBase/FoxPro Database File 4 739b 1997-03-10
JEGYZET.DBF dBase/FoxBase/XBase/FoxPro Database File 1 978b 2000-12-30
JEGYZET.STR dBase/FoxBase/XBase/FoxPro Database File 1 131b 1998-08-16
KIMSZLA.DBF dBase/FoxBase/XBase/FoxPro Database File 2 977b 2000-12-30
KIMSZLA.STR dBase/FoxBase/XBase/FoxPro Database File 3 515b 1998-08-14
KTSGHELY.DBF dBase/FoxBase/XBase/FoxPro Database File 1 224b 1997-02-19
KTSGHELY.STR dBase/FoxBase/XBase/FoxPro Database File 1 98b 1997-10-03
MEGRENDT.DBF dBase/FoxBase/XBase/FoxPro Database File 1 647b 1999-02-03
MEGRENDT.STR dBase/FoxBase/XBase/FoxPro Database File 1 227b 1999-02-01
SZALLITT.DBF dBase/FoxBase/XBase/FoxPro Database File 1 507b 1997-11-02
SZALLITT.STR dBase/FoxBase/XBase/FoxPro Database File 1 195b 1997-10-30
TARGYI.DBF dBase/FoxBase/XBase/FoxPro Database File 2 838b 2000-12-30
TARGYI.STR dBase/FoxBase/XBase/FoxPro Database File 2 355b 2000-12-27
UTNYILV.DBF dBase/FoxBase/XBase/FoxPro Database File 1 664b 1998-09-13
UTNYILV.STR dBase/FoxBase/XBase/FoxPro Database File 1 195b 1998-09-13
UTTORZS.DBF dBase/FoxBase/XBase/FoxPro Database File 1 671b 1997-04-13
UTTORZS.STR dBase/FoxBase/XBase/FoxPro Database File 1 195b 1996-02-15

Text (19)
NameFormat# LinesSizeDate
AJANLO.TXT Text File 113 7KB 2000-08-07
AUTOEXEC.BAT DOS Batch File 33 2KB 2000-03-15
CONFIG.BAT DOS Batch File 21 939b 2000-11-28
CONFIG.SYS Text File 26 977b 2000-02-28
DN.MNU Text File 9 174b 2000-02-28
DOKUMENT.TXT Text File 1,260 80KB 2001-02-05
FARMENU.INI Text File 9 168b 2000-03-03
FILE_ID.DIZ Text File 16 646b 2000-09-01
FOKONYV.TXT Text File 103 6KB 2000-08-07
KEYBWIN.TXT Text File 99 6KB 2001-01-28
NC.MNU Text File 7 139b 2000-02-28
NOTESZ.TXT Text File 50 2KB 1999-08-14
OLD.BAT DOS Batch File 12 391b 2000-11-21
PROFI.BAT DOS Batch File 38 1KB 2001-03-19
UJDONSAG.TXT Text File 151 10KB 2001-05-30
UNINSTAL.BAT DOS Batch File 12 316b 2000-10-23
VC.MNU Text File 7 148b 2000-04-09
WIN-INFO.DOC Text File 6 241b 2001-05-23
WINPRN.INI INI File 71 2KB 2000-10-11

Other Files (12)
Executable
NameFormatSizeDate
ARJ.EXE MS-DOS/Windows Executable 73KB 1993-06-04
FOKONYV.OVL MS-DOS COM Executable 4KB 1992-07-03
FOKONYVD.EXE MS-DOS/Windows Executable 294KB 2001-05-30
INSTALL.COM MS-DOS/Windows Executable 8KB 2001-05-30
KEYBWIND.COM MS-DOS COM Executable 3KB 2001-01-28
SCHA.EXE MS-DOS/Windows Executable 122KB 1995-01-01
STARWAY.SS MS-DOS/Windows Executable 2KB 1997-04-08
SZEP.COM MS-DOS COM Executable 2KB 1999-06-06
WINPRN.EXE MS-DOS/Windows Executable 48KB 2000-09-20
Other
NameFormatSizeDate
PROFI.PIF Microsoft Windows Program Information File 967b 1998-09-21
Unknown
NameFormatSizeDate
HIVJ.COM Unknown 666b 1998-01-01
VGAFADE.SS Unknown 932b 1995-12-05