Chip 1999 June

home *** CD-ROM | disk | FTP | other *** search

/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MOD_SOUC.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1996-05-23 | 62.4 KB | 955 lines

PS_zaznf KLnazf w_cestinaf w_csprolf PS_linef PS_stablef PS_returnf RecLevelf w_tiskarnaf mod_psv FFFZ^D colora C_PSVFF F1onf F1prgf tiskprgf F4prgf F4prgf F7_jmf F7prgf F9prgf F9Keyf F10_jmf F10prgf UNDEF detailf det_jmf Detprgf enterf UNDEF F0prgf UNDEF Podnikf _Firmaf NazevTf riisf FFZFZ cmasterorder PS_returnf RTopf RBotf CLeftf CRightf Freezef poc0f Titlef TitleColorf cmasterorder set procedure to &cselfproc colora Ramecekf set procedure to &procx do &f1prg set procedure to &cselfproc set procedure to &procx do &f9prg set procedure to &cselfproc set procedure to &ctiskproc do &f4prg set procedure to &cselfproc set procedure to &procx do &detprg set procedure to &cselfproc set procedure to &procx do &f7prg set procedure to &cselfproc set procedure to &procx do &f10prg set procedure to &cselfproc select &cmastersel set index to &cindexlist cmasterorder set color to &gcol set procedure to &procx CSELFPROC COLDCOLOR CPS_DBF NSCRCNT NTOPSCR NCURSCR CTISKPROC A_MIN LINTF1 LEXTF1 NALLPZAZ NSAVEZAZ NSAVEREC NBROWPTR NDBFPTR LSHORTJMP STAB_I STAB_J STAB_RCC STAB_TMP LOA_RCC CNT_RCC LNEWREF RDLSTABLE LISLOAD LNEWLOAD LISCOUNT NLNEWCNT CPODMV CPODMS NHEADLEN CMASTERINDNJMP AHLDEL NMENUPOS ERORDNREC NEXIT RINDTISK CINDEXLISTNMASTERORDCMASTERSELCFILTER SCMASTERORDCPODMVU RDSUMAC ERINDPSOUC POCSOUC EPRUCH PEPOLEX PS_ZAZN KLNAZ MEW_CESTINA W_CSPROL PS_LINE PS_STABLE PS_RETURN RECLEVEL W_TISKARNAF1ON F1PRG ctPROCX F4PRG TISKPRG SPROL RONTA bF7_JM F7PRG RETURN F9PRG F9KEY ARNAF10 F10_JM F10PRG DETAIL DET_JM DETPRG ENTER F0PRG PODNIK _FIRMA LORNAZEVT NADPIS CLEFT CRIGHT PRAVA FREEZE TITLE TITLECOLORZAHLAVI RDVETA ACACHE ACACHDIR PADZAHL MAPINIT STAUTOBUILD SETCACHE CLRCACHE RAMECEK HLAVA SETF1 REPOS REFALL CNTALL LITEON STABILIZE COUNTER LITEOFF SKIPN CACHEDN CACHEUP VYBER TRIDENI HLEDEJ VOLBA MOD2_2 RCLEAR CHKPAR Nelze tisknout - p sestava Nelze tisknout - prilis siroka sestava p_kody.dbf2 tomen soubor tisk ren (P_KODY) Neni pritomen soubor ridicich kodu tiskaren (P_KODY) p_kody p_name colora Esc - Konec ^End - Tisk stup (1-tisk rna,2-obrazovka) ka str nky (1- Posledn okraj na str Odstr ed tiskem,2-po tisku,3-oboj Vystup (1-tiskarna,2-obrazovka) Sirka stranky (1-uzka,2-siroka) Pocatecni stranka Posledni stranka Levy okraj Pocet radku na strance Odstrankovani (0-zadne,1-pred tiskem,2-po tisku,3-oboji) Tiskarna set color to &col select &cmastersel Chybn n druh v stupu Chybne zadan druh vystupu Chybn zadan ka str Chybne zadana sirka stranky Chybn zadan Chybne zadana pocatecni stranka Chybn zadan posledn Chybne zadana posledni stranka Chybn zadan a posledn Chybne zadana pocatecni a posledni stranka Chybn zadan odstr Chybne zadane odstrankovani mod_hes set procedure to &cselfproc p_kody p_name Epson LX-810 select &cmastersel set color to &col Nelze tisknout - p sestava Nelze tisknout - prilis siroka sestava select &cmastersel Prob tisk sestavy ... Probiha tisk sestavy ... Esc-p Esc-preruseni british store FCREATE('&M_txt') TO _TEXT Nelze vytvo it soubor pro sestavu Nelze vytvorit soubor pro sestavu select &cmastersel if type('tr_hl&i')='C' if type('tr_hl&i')#'C' _klics=&klico do tisk_hl&Tdr do tisk_s&Tdr - (^) ipky,(^)Home,(^)End,PgUp,PgDn - (^)Sipky,(^)Home,(^)End,PgUp,PgDn - Esc Pohyb Konec Prohl sestavy Prohlizeni sestavy modi comm &M_txt.txt noedit window w select &cmastersel ELFPROC ZAHLT1 ADDSPACE ADDLEN KPROC PISMO STRANA EOFMARK T_TISK T_SIRKA T_POC T_KON RT_LEFT T_RAD T_EJECT T_DRUH SUMAC POCSOUC NHEADLEN W_CESTINA P_KODY P_NAME RDX_OBR W_TISKARNATISKTEST T_COD M_SCR RNAMOD_HES ZOBR_POLQSP_10CPI NAP_12CPI NDP_COMPRESSZN_RAD BRITISH P_SETUP M_ALIAS M_TXT RORDANSI POMT_RAD CESTINA PRUCH tr_hl1f @ rad,t_left+s say tr_hl&i if type('tr_hl&i')#'C' tr_hl1f FPROC T_LEFT P_KODY P_SETUP P_SUBON ZN_RAD PODNIK P_SUBOFF NAZEVT P_DBST_ON P_DBST_OFFPISMO ST_ON TISK_HLAV ZAHLT1 @prow(),pcol() say &jmenot +' '+iif(i=nheadlen,"",addspace) suma(i)=suma(i)+&hodnot sumac(i)=sumac(i)+&hodnot if _klics# &klico or eof() _klics=&klico Celkem: Zru it tisk? (a/N) Zrusit tisk? (a/N) ************************************************** Sestava n Sestava nasilne prerusena ************************************************** FPROC JMENOT PATAL SUBON EOFMARK T_RAD T_LEFT ST_ON NHEADLEN FJMENO PSOUC HODNOT POCSOUC FFKLNAZ NAST_SOUC ZAHLT1 T_PRERUS W_CESTINA KON_TISK CESTINA STRANA ZN_RAD P_KODY P_COMP_OFF Celkem: Celkem: = fputs (_text, "&Pxx" ) = fputs (_text, "&xx" ) EOFMARK POCSOUC T_DRUH T_LEFT FMARK NAST_SOUC ST_ON ZAHLT1 = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) tr_hl1f xx = space(t_left) + tr_hl&i = fputs (_text, "&xx" ) if type('tr_hl&i')#'C' tr_hl1f = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) T_LEFT ZN_RAD PODNIK NAZEVT TISK_HLAV ZAHLT1 Pxx = Pxx + &jmenot +' '+iif(i=nheadlen,"",addspace) suma(i)=suma(i)+&hodnot sumac(i)=sumac(i)+&hodnot = fputs (_text, "&xx" ) if _klics# &klico or eof() = fputs (_text, "&Pxx" ) _klics=&klico Celkem: = fputs (_text, "&Pxx" ) = fputs (_text, "&xx" ) Zru it tisk? (a/N) Zrusit tisk? (a/N) ************************************************** = fputs (_text, "&xx" ) Sestava n Sestava nasilne prerusena = fputs (_text, "&xx" ) ************************************************** = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) JMENOT PATAL EOFMARK T_RAD NHEADLEN JMENO PSOUC HODNOT FFPOCSOUC T_LEFT KLNAZ NAST_SOUC ZAHLT1 T_PRERUS W_CESTINA KON_TISK STRANA ZN_RAD a .AND. nebo Konec FFFFF Vyber zaznamu F british xget = &prom xGetf . . # xGetf @nrow,ncol get xget picture &pictx xGetf CToD('F Stop - d lku podm nky ji nelze zv uppercs( upper( .and. cmasterorder Prob ... Probiha vyber zaznamu... index on recno() to &cps_dbf for &cpodmvu additive cmasterorder index on &tmp to &cps_dbf for &cpodmvu additive Prob ... Probiha nacteni zaznamu... index on &cpodms to &cps_dbf for &cfilter additive index on &cpodms to &cps_dbf additive Prob ... Probiha vyber zaznamu... index on &cpodms to &cps_dbf for &cpodmvu additive cmasterorder Podm nce neodpov znam ! Stiskn te cokoliv... Podmince neodpovida zadny zaznam ! Stisknete cokoliv... NOLDVOLBA NMENUPTR NMENUPOS AZAHLLEN COLDPODMV OLDORDER NVOLBA RELACE FFPROM PICTX XOPER ALOGIC AOPER AZAHL AZAHLMAP NHEADLEN CPODMV OFFNR2 KARNANIC2 RNAZAHL W_CESTINA FMENU NABRITISH NDNTYP SJMENO_P JMENO POCET_DES POCET_CEL W_CSPROL UPPERCS DSTOPSEL CFILTER CPODMVU RDCPODMS ELCMASTERORDMESS CMASTERINDNMASTERORDREPOS RCLEAR VRESET EREFALL PECLRCACHE CNTALL a Konec FFFFF Trideni zaznamu F xprom = &cprom xPromf csn(FF DTOC(FF Stop - T nelze zv Stop - Tridici klic jiz nelze zvetsovat .and. cmasterorder Prob ... Probiha nacteni zaznamu... index on recno() to &cps_dbf for &cpodmvu additive cmasterorder index on &tmp to &cps_dbf for &cpodmvu additive Prob ... Probiha trideni zaznamu... index on &cpodms to &cps_dbf for &cfilter additive index on &cpodms to &cps_dbf additive Prob ... Probiha trideni zaznamu... index on &cpodms to &cps_dbf for &cpodmvu additive NOLDVOLBA NMENUPTR NMENUPOS AZAHLLEN COLDPODMS PODMV NVOLBA CPROM XPROM FFXOPER ALOGIC AZAHL NHEADLEN CPODMS OFFZAHL W_CESTINA FMENU W_CSPROL JMENO_P NAJMENO POCET_DES POCET_CEL W_DOPL STOPSEL AZAHLDEL CFILTER CPODMVU CPODMV CMASTERORDMESS CMASTERINDNMASTERORDREPOS REFALL RDCLRCACHE a Konec colora Volba polo Volba polozek F set color to &col NOLDVOLBA NMENUPTR NMENUPOS AZAHLLEN NVOLBA XOPER CWHEAD CBASE FFFREEZSTR ALOGIC POLEX FREEZE AZAHL NHEADLEN FW_CESTINA FMENU MAPINIT PSOUC AAZAHLDEL AUTOBUILD NVOLBA NUPTR NUPOS HLLEN NMENUPTR AZAHLLEN NOLDVOLBA NMENUPOS AZAHL AZAHLLEN AZAHL colora set color to &col CMESS NWAIT HLLEN AHLLEN DVOLBA NUPOS colora set color to &col CMESS HLLEN colora set color to &col CMESS NWAIT HLLEN NSTARTT LISCOUNT COUNTER PS_ZAZN INFOCNT FFNR1 LISCOUNT NALLPZAZ Pocet zaznamu: set color to &titlecolor TITLE W_CESTINA PS_ZAZN INFOCNT ZAHLAVI ZAHLAVI NCURSCR NTOPSCR nlen = len( &tmp ) MOD_PS - Proc PadZahl: Polo rozm r okna ! POLEX JMENO MOD_PS - Proc AUTOBUILD: P sestava ! CFREVETA CFREZAHL ZAHLAVI NTOPSCR NCURSCR NHEADLEN NSCRCNT JMENO PSOUC FFSOUC FREEZE NAZEVT Vyber8 Trideni8 Polozky8 XXXXXXXXX Vyhled Vyhledani8 XXXXXXXXX XXXXXX Konec - F10 - <Enter> - Esc,^End W_CESTINA EZAHL ESTINA ESTINA F7_JM STINA F10_JM DETAIL DET_JM LTOGGLE STINA LNEWREF LSTABLE NDBFPTR NBROWPTR RCLEAR SKIPN NBROWPTR NDBFPTR LNEWCNT LISCOUNT NALLPZAZ PS_ZAZN INFOCNT british acache(stab_i+1) = padr( &stab_tmp, nic2 - nic1 + 1 ) LNEWREF STAB_RCC NDBFPTR STAB_J STAB_I STAB_TMP NCURSCR ACACHDIR ACACHE LSTABLE BRITISH set order to &oldorder EWREF AB_RCC OLDORDER CPODMV LNEWCNT NSAVEZAZ NALLPZAZ CNT_RCC NSAVEREC LSHORTJMP LSTABLE PS_ZAZN LISCOUNT NBROWPTR ACACHE british acache(nbrowptr) = padr( &tmp, nic2 - nic1 + 1 ) set procedure to &procx do &f0prg set procedure to &cselfproc ACACHDIR NBROWPTR BRITISH NCURSCR ACACHE PS_LINE OWPTR NHEADLEN POLEX cmasterorder indexk = &cix IndexKf COLORa Vyhled Vyhledani: 8 . . # znam neexistuje ! Zaznam neexistuje ! set order to &oldorder znam nen ru ! Zaznam neni soucasti vyberu ! cmasterorder set order to &oldorder INDEXK NWIDE FNGETCOL OLDORDER OPSCR CMASTERORDNMASTERORDF9KEY W_CESTINA MESSW NDBFPTR RDSKIPN NBROWPTR REFALL ACLRCACHE PS_ZAZN INFOCNT LITEON ACACHDIR ACACHDIR ACACHE ACACHDIR ACACHE ACACHDIR LINTF1 CLEFT CRIGHT SETF1 OFFLINE Tisk rna nen ipravena ! Tiskarna neni pripravena ! W_CESTINA MESSW prava souboru k p enosu ... Priprava souboru k prenosu ... datez _oOescrzyaieuuESCRZYAIEUUdtnDTN_ nazvy(ii,3) = len (&jmeno (ii) ) vety(ii) = &jmeno( ii ) CESTINA NAZVY _DATE _PORSINGL TRETI ODKUD M_TXT FMSYS3 W_CESTINA MOD_SYS MALIAS ORDPOLEX RORDZAHL EXP_POL PS_RETURN pathz colorz VYSTUP.DBFF double Zadejte jm stupn ho souboru: Lze pou t i SDF,DIF,MOD,WKx,WRx,SYLK,XLS. Zadejte plnou cestu c le exportu: (Pokud adres neexistuje, bude vytvo uje-li podm nky DOSu pro MKDIR.) Zadejte jmeno vystupniho souboru: Lze pouzit i SDF,DIF,MOD,WKx,WRx,SYLK,XLS. Zadejte uplnou cestu cile exportu: (Pokud adresar neexistuje, bude vytvoren, splnuje-li podm nky DOSu pro MKDIR.) Cesta nebyla zad Cesta nebyla zadana ! Cesta nesm obsahovat mezery ! Cesta nesmi obsahovat mezery ! no nebylo zad Jmeno nebylo zadano ! 2.0Fl znak souboru ! t jen DIF,MOD,SDF,SYLK,WK1,WKS,WR1,WRK,XLS znak souboru ! M t jen ... ... DIF,FW2,MOD,PDOX,RPD,SDF,SYLK,WK1,WK3,WKS,WR1,WRK,XLS double te disketu a zm te ENTER ... Vlozte disketu a zmacknete ENTER ... !&f_adr\test_d &sach ERROR Disketa nebyla vlo Disketa nebyla vlozena mkdir set default to &sach set default to &drive VYSTUP.DBF sta na disket Malo mista na diskete ! mkdir Prob enos ... Probiha prenos ... copy to &plna_ces _PATH W_EXP MMPOM MMSCR MMCEST CES_EXP PLNA_CES DRIVE FREESPACE F_INFO F_SIZE MPOZSPACE MJMENO FMOD_WIN W_CESTINA HLASKA MKDIR colora MCOLOR OBRAZ _del=len(&jmeno(aMap(i))) sum all &hodnot to sumat NHEADLEN PSOUC EOFMARK PRUCH HODNOT SUMAT SUMAC JMENO ADDSPACE TISK_HL1 TISK_S1 KON_TISK TISK_HL2 TISK_S2 VYBER TRIDENI VOLBA FMENU AZAHLDEL STOPSEL MESSW INFOCNT RAMECEK RCLEAR ZAHLAVI PADZAHL AUTOBUILD HLAVA SETF1 REFALL VRESET REPOS CNTALL STABILIZE COUNTER LITEOFF LITEON SKIPN MAPINIT HLEDEJ CLRCACHE SETCACHE CACHEUP CACHEDN CHKPAR TISKTEST MOD2_2 EXP_POL HLASKA NAST_SOUC L:\OBEC\ MOD_SOUC.FXP L:\OBEC\MOD_SOUC.PRG