Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-01-05 | 21.4 KB | 573 lines

m_Param s2_Prog s2_ProgP Tisk_Volba Zadejte identifikaci programu: Aktual aktual s1009p RIIS 1 e h l e d ku program Program s2_Prog.Prog s2_Prog.Prog s2_Prog.Nazev s2_Prog.Nazev *POM_VPROG POM_PODNIKM_PARAM FIRMA DNIKS2_PROG (iPROG 61) aS2_PROGP uPOLEX d y=PROCX RTOP ontroRBOT CLEFT pom_CRIGHT FREEZE ORDER endHOR DOL iLEVA PRAVA x =NADPIS ZAHL JMENO =99HODN SOUC PSOUC TITLE z =zTITLECOLORPOC0 F0 ***F1 sun dolF2 sobny F3 yt ****F4 caseF6 ist(i, F7 60) andF9 and y=F10 F0PRG ntroF1ON F1PRG pom_F4_JM F4PRG loopTISKPRG enF7_JM F7PRG F9PRG F9KEY x F9KEY1 F10_JM F10PRG =9RAMECEK RIIS NAZEVT KLICO z =KLNAZ SPACEBAR TR_HL1 **TR_HL2 TR_HL3 HOMTR_HL4 ny TR_HL5 ***TR_HL6 aseTR_HL7 i, TR_HL8 anTR_HL9 DET_JM le ENTER DETAIL letDETPRG PS_LINE acPS_RETURN PS_ZAZN oMOD_PSV orOBSAH s01_Proc znamem se pracuje, nelze aktualizovat. POM_OBR *S2_PROG ODNIKHLASKA S01_PROC KZMEN_TXT set color to b/w set color to bg/n set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w+/w set color to w/n set color to w+/n A k t u a l i z a c e program sl RIIS 1 c2_ProgP c2_ProgP c2_ProgP+ c2_ProgP POM_VETA *POM_PROM BARVAS KBARVAR BARVAZ KBARVAU iBARVAN aBARVAT uBARVAH y=BARVAP BARVA ntroQ1 Q2 pom_Q3 Q4 endQ ZMENA1 iZMENA2 POM_KONTR POM_KONEC NOVY_Z1 NOVY_Z2 99HOR DOL POCET1 POCET2 =zPOMOC RAD ***SL sun dolPOC sobny S2_PROG **W_PROG sePROG t(i, W_NAZEV ndNAZEV d y=C2_PROGP S2_PROGP oAUTOR MM_AUTOR _AKTUAL DAT_AKT pHLAV1 enMENU1 PROC1 HLAV2 _PROGP PROC2 ZMENY PS_RETURN NEXIT &barvah - ^PgDn - ^Home - F10 - ^End,Esc &barvap Pohyb Parametry st par. Konec &barvau &barvas &barvaz &barvar &barvaz &barvat Program: zev : &barvau M_VETA &barvau &barvas &barvau M_VETA *W_PROG W_NAZEV &barvau if q>pocet&y q =pocet&y if novy_Z&y pocet&y =2 pocet&y =1 @ 4,12 &vloz w_Prog pict "@!X" @ 5,12 &vloz w_Nazev Zmena&y =.t. s01_Proc Duplicitn identifikace programu. *POM_VETA KW_PROG iHLASKA aS01_PROC _VETA =S2_PROG PROG &barvah - ,PgDn,PgUp - ^PgUp,^PgDn - ^Home - ^End,Esc &barvap Pohyb Konec &barvau &barvas &barvaz &barvar Parametry &barvan Param. Toler+ Toler- &barvau POM_TEXT M_VETA &barvau &barvas M_TEXT _VETA M_TEXT KC2_PROGP iPORADI_P aOZNAC_P uNAZEV_P =PARAM TOLER_P oTOLER_M MJ_P &barvau pocet&y =6 if q>pocet&y q =pocet&y @ x,5 &vloz c2_ProgP.Oznac_P pict "@!" @ x,12 &vloz c2_ProgP.Nazev_P @ x,38 &vloz c2_ProgP.Param @ x,49 &vloz c2_ProgP.Toler_P @ x,57 &vloz c2_ProgP.Toler_M @ x,65 &vloz c2_ProgP.MJ_P Zmena&y =.t. _VETA _TEXT PROGP ADI_P NAC_P ZEV_P =AKTUAL MM_AUTOR oDAT_AKT do Proc&y do Zmen&y with "get" do Zmen&y with "say" if q=pocet&y and z<reccount() if q<pocet&y and i#55 q =pocet&y Zmena&y =.t. novy_Z&y =.t. Zmena&y =.t. novy_Z&y =.t. Zmena&y =.t. Zmena&y =.t. novy_Z&y =.t. colorz Opravdu zru it tento z znam? (A/N) if novy_Z&y =.t. novy_Z&y =.f. c2_ProgP c2_ProgP+ c2_ProgP if q<pocet&y q =pocet&y it pr ci beze zm n? (a/N) POM_OBR *MMCOLOR _TEXT ADI_P NAC_P uPOM_KONEC T_AKT POMOC endY VZOREK iKONTROLA POM_KONTR ZAPIS C2_PROGP PORADI_P 9PREPOC_PORQ HLAV1 PROC1 =zHLAV2 PROC2 MENU2 ***PROG S2_PROG y AUTOR **MM_AUTOR eAKTUAL i, DAT_AKT dW_PROG W_NAZEV NAZEV ORS2_PROGP _ZMENA1 ZMENA2 pNOVY_Z1 s01_Proc identifikace programu. s01_Proc Duplicitn identifikace programu. s01_Proc zev. s01_Proc Duplicitn hodnota ozna s01_Proc Duplicitn hodnota ozna POM_VETA *POM_KONTR _TEXT KW_PROG HLASKA KS01_PROC ADI_P uS2_PROG W_NAZEV _PROC oPOM_HODN C2_PROGP _OZNAC_P c2_ProgP Zmena&y =.f. POM_OBR *MOD_SYS ZMENA1 KS2_PROG KW_PROG iS2_PROGP aC2_PROGP NAZEV W_NAZEV oNOVY_Z1 AUTOR _MM_AUTOR AKTUAL DAT_AKT dZMENA2 PORADI_P s01_Proc POM_VETA PORADI_P KDEJ_STAV S01_PROC filterz colorz Program m navedeny parametry. P epsat ? (a/N): s01_Proc POM_KOP *POM_ALI POM_ORD KPOM_VETA POM_FILT KMMCOLOR iPOM_OBR aZOBR_PROG POM_VPROG C2_PROGP PORADI_P oKOP_PROG _PROGP _AUTOR PROC2 dS2_PROG ZMENA2 iDEJ_STAV S01_PROC filterz colorz pom_Pom pom_Pom pom_Pom pom_VProg ehled program Prog. N Prog+' '+Nazev Mod_Fun s01_Proc POM_ALI *POM_ORD POM_VETA KPOM_FILT MMCOLOR KPOM_OBR iPOM_VETAH POM_POM S2_PROG W_PROG oPOM_VPROG N_LMEZ _N_PMEZ N_HMEZ N_DMEZ dN_PROM N_HOD iN_POC N_TEXT N_HLAV N_RAD ZOBR_NAP 9MOD_FUN ORDEJ_STAV S01_PROC filterz c2_ProgP c2_ProgP c2_ProgP+ c2_ProgP s01_Proc POM_ALI *POM_ORD POM_VETA KPOM_FILT C2_PROGP KS2_PROGP iPOM_VPROG S2_PROG AUTOR oMM_AUTOR AKTUAL _DAT_AKT NOVY_Z2 DEJ_STAV dS01_PROC Tisk p ehledu Tisk program Konec Mod_Psv POM_VETA *POM_OBR POM_VOL KTISK MOD_PSV KTISK_PROG pom_Ozn c2_Pom c_Oznac.dbf2 c_Oznac s01_Proc Nelze tisknout, nebyly vybr daje. s01_Proc Prob prava dat ... pom_Ozn pom_Ozn pom_Ozn s2_ProgP c2_Pom Mod_Lib Mod_Lib c_Oznac.dbf s01_Proc Prob tisk ... Mod_Lib s1009p s1009p(!9 c_Oznac.dbf POM_RADEK POM_VETA POM_OBR KPOM_OZN C2_POM KHLASKA S01_PROC C_OZNAC ZAZNAM PROG oNAZEV S2_PROGP _PORADI_P OZNAC_P NAZEV_P dPARAM TOLER_P iTOLER_M MJ_P AUTOR AKTUAL DAT_AKT 9TISK RP_SETUP P_RESET P_6LPI zP_8LPI P_10CPI P_12CPI **P_16CPI P_20CPI y P_BOLDON *P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON P_ITALOFF P_SUPERON P_SUPEROFFP_SUBON _P_SUBOFF P_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT P_COMPRESSP_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY MOD_LIB =W_TISK NASTAV_PRNMODTESTT *NTRGPZAZ OMS2_PROG y PS_RETURN MOD_SYS eNASTAV_REPS1009P anS1009P d,Es% AKTUAL ZMEN_TXT MENU1 ay "V HLAV1 PROC1 ay "P ZMEN1 @23,2g MENU2 HLAV2 2,58 PROC2 t par ZMEN2 say " ZMENY eturn KONTROLA ZAPIS ***** PREPOC_POR VZOREK ZOBR_PROG KOP_PROG TISK_VOLBA TISK_PROG Z:\RIIS\ S1009P.FXP Z:\RIIS\S1009P.PRG