Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-03-01 | 80KB | 1,558 lines

m_param vzorovy vzorovy\m1_hlava postup VZOR: use &nazevv\m1_hlava order postup alias postup vzorovy VZOR: use &nazevv\m1_normy order operace alias operace use &nazevv\m1_text order operace alias text use &nazevv\m1_prip order operace alias prip use &nazevv\m1_mat order postup alias mat p1_rada xp1_rada m3_zdr ident_zdr p_tarif xp_tarif m3_szdr ident_zdr m1_ident ident m1_plan x1_plan m1_KMat Kod_Mat m1_KOper Kod_Oper postup postup 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 &barvan Aktualizace technol.postupu: Prohl technol.postupu: &barvas RIIS 1.1 archivni W+*/n Z arch vu lze pouze kop rovat ! &barvau @!xxxxxxxxxxxx postup postup @!xxxxxxxxxxxx @!xxxxxxxxxxxx &barvas c1_m# c1_o+ c1_p+ c1_t+ @!xxxxxxxxxxxx c1_th c1_th &barvas RIIS 1.1 archivni &barvas RIIS 1.1 archivni postup Kopie postupu it postup Konec Soubor : .post.: kladn pracovn vzorov archivn zakladni pracovni vzorovy archivni use &nazevk\m1_hlava order postup alias postup Postup existuje. P epsat ? (a/N): zakladni archivni\m1_hlava postup Postup existuje v archivn m souboru ! ZAKLADNI kladn PRACOVNI Pracovn VZOROVY Vzorov ZMENOVY ARCHIVNI Archivn archivni zakladni postup slo postupu existuje v rozpisce Opravdu zru it postup ? (a/N): c1_h# use &nazevv\m1_mat order postup use &nazevv\m1_text order operace use &nazevv\m1_prip order operace zakladni m1_hthn x1_hthn m1_nthn x1_nthn archivni use &nazevv\m1_hlava order postup use &nazevv\m1_normy order operace use &nazevv\m1_text order operace use &nazevv\m1_prip order operace use &nazevv\m1_mat order postup zakladni W_AKT q3POM_SLEV POM_SL POM_NH * M_PARAM CELKC 7 =7POLE1 q8 ANSI qMPOSTUP NAZEVV * VZOROVY POSTUP 2=0VZOR_POST KOPIE P1_RADA XP1_RADA ZAKAZKA M3_ZDR =1IDENT_ZDR P_TARIF 3 XP_TARIF 4M3_SZDR qM1_IDENT IDENT M1_PLAN X1_PLAN M1_KMAT KOD_MAT M1_KOPER KOD_OPER q13=POM_KC q14VZOR dcaseVZ_OP > poMOPER q =OK_C M_ORD1 M_ORD2 q=ZMENA opeCZMENA ZMENATHN NOVY NOVY_Z mnZMENAD KONEC CISELNIK ,1 &vlDOL er picPOCET BARVA f(OpMHOD ce(3)MNAZ Q1 vloz='Q2 Q3 f readkQ4 =12 or Q5 key()=2Q6 Q7 returnQ8 eQ9 Q10 mOp=OpQ11 Q12 ct couQ13 from POMOC ere VLOZ Oper Y rray RAD SL aaa(1)POC BARVAS lasBARVAR 'OpBARVAZ eBARVAU BARVAN aBARVANS BARVAH NAZCES endAKT CISLO c1_OBRA endZOBR_POST MOD_SYS vlDATUM anNAZEV hRADA KSTR lZS_KMD operaC1_M nutnOPERACE slC1_O PRIP niC1_P ouboOPER avkCRAD p=C1_T TYP PSKP IDENT_ODB C1_TH KCSAC ce aKCSBC witTBC for OpTAC KOOPERACE SUMKCSAC eSUMKCSBC SUMTBC SUMTAC t TSUMKOOP THNKCSAC rTHNKCSBC POCOPER aPOCOP witPOM_POC OpHLAVA ERACE r to OpePROC2 OP PROC1 t 20 &A 1_o ? P_POLE se ZMENY && nVOL ---NAZEVK reZMENPOV **CPOST sZAHL _exOBRZ sa=rKOP nazev_ARCHIVNI pHLASKA AUTOR a=PRIHLAS URCENI perALL seeTXT ZRUS to C1_H lsARCHIV ecM1_HTHN X1_HTHN klM1_NTHN atX1_NTHN &barva &barvar &barva &barvans zev sou Vz.postup Autor Datum Ext.Id.: Specifikace: BARVA q3BARVAS BARVAZ &barva &barvar Technologick operace s01_Proc &barvan &barva &barvans NH/tis Kusy/h edpis Celkem K q3DOL BARVA * BARVAS VYPIS_SUM S01_PROC BARVAZ qPOM_NH &barva pravky &barvan &barva &barvans zev p pravku q3HOR BARVA BARVAZ * BARVAS &barva Text operace q3HOR &barva &barvau BARVA q3BARVAZ NAZEV RADA * KSTR TYP_POSTUPAUTOR POM_POC qDATUM * TYP IDENT_ODB _POST &barvau nazev @ 5,2 &vloz nazev @ 5,28 &vloz rada Nespr robkov @ 5,33 &vloz kstr typ_postup @ 5,39 &vloz typ_postup mat.text @7,15 &vloz text q3POCET POSTUP * MHOD NAZEV STUPMNAZ RADA W_AKT * PRADA ZAKAZKA HLASKA TYP_POSTUPMAT =1TEXT CZMENA 3 ZMENA &barvau &barva 99999.99 KLOBOUKYF pol&cp=oper BARVA q3BARVAZ STUPDOL POSTUP qCISLO OPER * NAZEV_OP POM_NH NH_TIS TUPPOM_SL =1TBC KOOPERACE PODNIK PREDPIS KCSBC KCSAC VZ_OP VYPOCET _OPER &barvau @x,1 &vloz Oper pict "@!X" Operace ji existuje Operace Operace Nazev_Op @x,5 &vloz Nazev_Op @x,17 &vloz DOp pict "@!" do Oprav&y Dilna Nespr uvedena d lna (nen v souboru pracovi colorz 999999 ident_zdr @x,22 &vloz Prac pict "@!" KLOBOUKYF Nespr uvedeno pracovi colorz @x,29 &vloz PTr do Oprav&y @x,32 &vloz Norm NH_Tis @x,35 &vloz NH_Tis pict "99999.99" Nejsou vypln ny NH/1000 do Oprav&y @x,35+pom_Sl &vloz TBc KLOBOUKYF Kooperace @x,40+pom_Sl &vloz Kooperace @x,40+pom_Sl &vloz TAc uveden Tac Predpis @x,60 &vloz Predpis pict '@!' size 1,8 @x,58 &vloz Predpis pict '@!' pom_Kc @x,69 &vloz pom_Kc pict '99999.9999' Neexistuje k Chybn tarif p_tac = (60 * pom_Kc) / p_tarif.tarif&tr - tbc Kooperace q3Z KOOPERACE * POCET STUPQ2 EV_OP TUPQ13 =1Q14 CELKC qPOM_NH MHOD OPER MNAZ POCET POMOP COUNT 0C1_O 13=AAA q14HLASKA aseOP > poPRIP q =ALL OPERACE q=TEXT opeNAZEV_OP W_AKT ERACE KCSAC KCSBC POM_SL VYPOCET TYP_OPER M3_SZDR cDILNA MSCR (OpMDIL ce(3)MPRAC MMCOLOR ='ZOBR_DIL PRAC dkZMENA or IDENT_ZDR PODNIK _KUS_H eNORM NH_TIS =OpPREDPIS POM_KC couKR from TR ere P_TARIF r P_TAC y AKTUAL MM_AUTOR )DAT_AKT CZMENA &barvau &barva BARVA q3BARVAZ PERACE STUPDOL POSTUP qCISLO EVCIS * KONT_PR M1_IDENT C1_PX KOD_POL NAZEV OZNAC &barvau evcis @ x,5 &vloz evcis pict '@!X' Nespr slo p pravku colorz Mod_Proc inlist(m1_Ident.Kod_Pol,'C','Y') oznac @ x,48 &vloz oznac if vloz='say' and mhod#&mnaz q3W_CISLO W_NAZEV POCET STUPMHOD EVCIS qMNAZ KONT_PR * M1_IDENT C1_PX KOD_POL D_POL NAZEV HLASKA MSCR TUPMMCOLOR =1ZOBR_POL MOD_PROC ZMENA qOZNAC &barvau &barva BARVA q3BARVAZ STUPDOL POSTUP qCISLO TEXT &barvau @ x,2 &vloz text if vloz='say' and mhod#&mnaz q3POCET * MHOD STUPMNAZ ZMENA &barvas &barvar pravky Text operace &barvaz &barvas &barvaz &barvas select &sel q3SEL STUPPRIP POSTUP qCISLO OPER * EVCIS q3ZMENAD CZMENA ZMENA - - F2,F3 - ^End,Esc - F10 Pohyb Bloky Konec Funkce q3V ny-operace - ,PgDn,PgUp - F2,F3 - ^PgUp,^PgDn - ^Home - F6 - F10 - ^End,Esc Pohyb Bloky Detail oper. Funkce Konec q3V pravky - ,PgDn,PgUp - F2,F3 - ^PgUp,^PgDn - ^Home - ^End,Esc Pohyb Bloky Konec q3V ny-text - ,PgDn,PgUp - F2,F3 - ^PgUp,^PgDn - ^Home - ^End,Esc Pohyb Bloky Konec q3V ny-materi - ,PgDn,PgUp - F2,F3 - ^PgUp,^PgDn - ^Home - ^End,Esc Pohyb Bloky Konec q3V Prohl - post - ^PgUp,^PgDown - F2,F3 - ^End,Esc - F1 Listov -obj. Bloky Konec help Prohl - oper - ^PgUp,^PgDown - ,PgUp,PgDown - F2,F3 - ^End,Esc - F5 - F6 Listov -obj. Pohyb Bloky Konec Kalkulace Prohl - text - ^PgUp,^PgDown - ,PgUp,PgDown - F2,F3 - ^End,Esc Listov -obj. Pohyb Bloky Konec &barvar select &sel q3CISELNIK CISEL STUPSIRKA IDENT_CIS HODNOTA ROZSAH_HODTEXT_CISEL colorz &pom_Bar 99999.99 POM_R q3POM_BAR MMCOLOR * BARVAS STUPNAZEV_OP PTR _HODNORM ISELPOM_SL KOOPERACE POM_NH TUPPREDPIS =1NH_TIS KCSBC KCSAC KLOBOUKYF FFFZ^D Neexistuje k select &sel if p_tarif.tarif&tr=0 Zadan tarif je nulov ktabc=tabc*p_tarif.tarif&tr/60 ktac=tac*p_tarif.tarif&tr/60 &barvaz kooperace: &barvau &barvaz kooperace: &barvau &barvau POM_NEPSATPTR NEPSATKOOPERACE * PODNIK STUPTR KTBC SEL _HODP_TARIF ELHLASKA OPERACE TUPKTABC =1KCSBC KCSAC SUMKCSAC SUMKCSBC qSUMTBC SUMTAC SUMKOOP SUMKCS SUMTB SUMTA SUMKOO NEPSATZ M_NEPSATX zakladni &barvas RIIS 1.1 na THN Datum: FF$ Autor: Druh : m1_hthn x1_hthn m1_nthn x1_nthn c1_th c1_th c1_tx c1_px use &nazevv\m1_text order operace alias text use &nazevv\m1_prip order operace alias prip use &nazevv\m1_mat order postup alias mat use &nazevv\m1_normy order operace alias operace CZMENA SATNOVY EPSATSUMKCSAC THNKCSAC SUMKCSBC THNKCSBC PNAZEVV PRIHLAS DUVOD _HODRK ELMOD_SYS KONEC M1_HTHN X1_HTHN POSTUP CISLO TUPDATUM_Z =1AUTOR_Z DRUH_Z DUVOD_Z M1_NTHN qX1_NTHN C1_TH REST ZMENA SATOP _NEPSATTEXT q14C1_TX SATPRIP poC1_PX q =C1_T W_CRAD ST_OPER q=CRAD peC1_P EVCIS eOZNAC mnC1_O OPERACE DATUM URCENI cPOCOP TAC_C (OpSUMTAC (3)TBC_C SUMTBC ='KCSAC_C KCSBC_C kKOOPER_C SUMKOOP AKTUAL AUTOR robkov Vzorov postupy Konec colorz cursorz set cursor &Mcursor vzorovy Ve vzorov m adres i nelze kop rovat vzor. postup vzorovy\m1_hlava postup postup colorz cursorz set cursor &Mcursor SATKON1 EPSATVOL11 ZAKAZKA MCOLOR PMCURSOR MSCR MRADA ZOBR_RADA POSTUP ELRADA NAZEVV HLASKA VZOROVY M_ORD2 TUPMS =1MPOSTUP ZOBR_POSTUMOD_SYS KOP_VZOR qM1_HLAVA Ozna - F10 Volba operace Vz. postup: Tarifn tabulka Detailn daje operace Konec vzorovy Funkci nelze ve vzorov m adres i pou nit na vzorovou operaci? (a/N) m1_normy vzorovy\m1_normy operace vzorovy Funkci nelze ve vzorov m adres i pou vzorovy\m1_hlava postup VZOR: colorz cursorz set cursor &Mcursor colorz cursorz set cursor &Mcursor s01_Proc 1veta 1veta SATKON2 EPSATVOL12 MPOSTUP PNAZEVV HLASKA NAZEV_OP _RADA M1_NORMY LVZOROVY OPERACE POSTUP MOPER ZOBR_2OPERKOP_OPER PVZ_OP =1TXT MCOLOR TUMCURSOR qZOBR_POSTUM1_HLAVA P_TARIF ZOBR_TARIFKON1 ZMENAD DET_OPER TCELKC PSATS01_PROC 4CZMENA poBARVAU q =VYPOCET use &adresa\m1_text order operace c_text+ c_text use &adresa\m1_prip order operace c_prip+ c_prip c_text c_prip c_psv1.dbf2 OPERACE select &m_sel C1_EXP SATADRESA SATNAZEV_OP POSTUP PNAZEVV OPERACE C_OPER M1_NORMY C_TEXT CISLO KLICOP C_PRIP PERPRIP PC_PSV1 =1SEL M_SEL URSOR CZMENA qVYPOCET TUZMENY colora SATHCOLOR SATOBRH detailn znamy neexistuj w+/bg w+/bg w+/bg Vyhled Zadejte v rob. &barvau rob. ada nenalezena SATRAD SATSTREC HMEZ PLMEZ PMEZ M_SCR M_ORDER LBARVA HLASKA RAM_RADA RHELP_RADA SAYRAD_RADMRADA _RADRADA ehled v robkov zev v rob. SATBARX SATRADA NAZEV Konec Pohyb Enter - Esc - Home,End,PgUp,PgDn, - Vyhled postup postup Mpostup postup ehled vzorov ch postup Postup N zev K.d postup+' '+nazev+' '+kstr hled_post in s132x mod_fun MPOSTUP ATPOSTUP SATM_ORD2 N_LMEZ N_PMEZ N_HMEZ PN_DMEZ N_PROM N_HOD N_POC N_TEXT LN_HLAV N_RAD N_VYB ZOBR_NAP MOD_FUN Vyhled Zadejte slo nebo n zev postupu &barvau postup nazev nazev postup postup Postup nebyl nalezen ! postup postup postup postup ATM_ORD2 SATNAZEV POSTUP HLASKA postup postup cislo postup ehled postup Postup N zev K.d postup+' '+nazev+' '+kstr hled_post in s132x mod_fun POSTUP ATM_ORD1 SATN_LMEZ N_PMEZ N_HMEZ N_DMEZ PN_PROM N_HOD N_POC N_TEXT N_HLAV LN_RAD N_VYB ZOBR_NAP MOD_FUN Postup existuje. P epsat ? (a/N): vzorovy\m1_mat postup c1_m# vzorovy\m1_normy operace c1_o+ vzorovy\m1_prip operace c1_p+ vzorovy\m1_text operace c1_t+ POSTUP ATNOVY SATVZOR CISLO OBRZ M1_HLAVA DATUM AUTOR LPRIHLAS URCENI TYP_POSTUPMAT VZOROVY RMPOSTUP D_RADC1_O _RADOPERACE TUPRIP qOPER TUCRAD TEXT C1_T IFALL KOPIE detailn znamy neexistuj w+/bg w+/bg w+/bg Vyhled Zadejte slo operace &barvau Operace nanalezena ATRAD SATSTREC HMEZ PLMEZ PMEZ M_SCR M_ORDER LBARVA HLASKA RAM_OPER RHELP_OPER SAYRAD_OPEMOPER _OPEOPER TUMPOSTUP POSTUP ehled vzorov ch operac Kusy/h Celkem K ATBARX SATOPER NAZEV_OP NORM KOOPERACE ERACE PREDPIS KCSBC TUPKCSAC Pohyb Enter Konec - Home,End,PgUp,PgDn, - Vyhled r operace - Esc vzorovy\m1_prip operace c1_pom+ c1_pom c1_pom vzorovy\m1_text operace c1_pom+ c1_pom c1_pom ATURCENI SATM1_NORMY PRAC NAZEV_OP EV_OP PREDPIS KCSAC PKCSBC KOOPERACE NH_TIS VZOROVY EOPERACE PEPOSTUP UC1_POM M1_PRIP TUCISLO PRIP M1_TEXT FTEXT CZMENA RIIS 1.1 IDENT_ZDR DILNA RIIS 1.1 detailn znamy neexistuj w+/bg w+/bg w+/bg ident_zdr Vyhled Zadejte st edisko nebo slo pracovi &barvau dilna DILNA ident_zdr znam nebyl nalezen ! dilna ident_zdr SATRAD STREC PDMEZ LMEZ KLIC M_SCR M_ORDER BARVA M3_ZDR PM3_SZDR IDENT_ZDR HLASKA ERAM_DIL PEHELP_DIL USAYRAD_DILMDIL _DILDILNA TUMPRAC DILNA ehled st edisek a pracovi dle d ehled st edisek a pracovi dle pracovi Prac. zev pracovi ATM_ORDER ATBARX ATM3_SZDR DILNA IDENT_ZDR M3_ZDR PNAZEV_ZDR Konec Pohyb Enter - Esc - Home,End,PgUp,PgDn, - Vyhled r polo Tabulka m z d o v c h tarif da St- 1 2 3 4 5 6 7 8 9 ' '+krivka+' '+str(tarif1,5,2)+' '+str(tarif2,5,2)+' ' +str(tarif3,5,2)+' '+str(tarif4,5,2)+' '+str(tarif5,5,2)+' ' +str(tarif6,5,2)+' '+str(tarif7,5,2)+' '+str(tarif8,5,2)+' '+str(tarif9,5,2) mod_fun N_LMEZ ATN_PMEZ ATN_HMEZ N_DMEZ N_PROM N_HOD PN_POC N_TEXT N_HLAV N_RAD1 N_RAD2 N_RAD3 N_RAD ZOBR_NAP PMOD_FUN do Proc&y do Zmen&y with 'get' do Zmen&y with 'say' 1veta c1_px+ c1_px c1_px c1_tx+ c1_tx c1_tx do menu&y do Menu&y do Funkce&y do Menu&y c1_px &barvau c1_tx c1_px+ c1_px do Menu&y do Menu&y RIIS 1.1 it pr ci beze zm n? (a/N) RIIS 1.1 KONEC BR_NAP W_AKT EPOMOC PEOBR UK_UDAJU ILOK_C _DILY TUBARVA BARVAS HLAVA FPROC1 BARVAZ OPERACE TNUROV PSATPROHL 4OPER poPROC2 q =DP pePRIP C1_PX ePOSTUP CISLO PROC3 mnZMENA C1_TX PROC4 cFUNKCED VZOR (OpVZ_OP (3)POM_POC POCET ='NOVY_Z kVYPOCET P_DOP P_PRAC nPRAC eTYP_OPER =OpMOD_SYS ouOBR2 rom NOVY ere P_POLE Nespr robkov select &soub select &soub Nevypln zev postupu Nevypln Nevypln operace Operace ji existuje select &soub select &soub Nevypln zev operace Neexistuje k Neexistuje k vypln as Tac dilna Nespr uvedena d lna (nen v souboru pracovi colorz 999999 select &soub ident_zdr select &soub KLOBOUKYF Nespr uvedeno pracovi colorz select &soub select &soub Nejsou vypln ny NH/1000 Nespr uveden k d materi colorz Nespr uveden k d operace colorz Typ operace jen V=v konov , K=kooperace, I=informativn W_AKT ATOK_C ATSOUB RADA PRADA PZAKAZKA HLASKA NAZEV POMOP COUNT PENAZEV_OP ILPTR _DILKOOPERACE FP_TARIF POM_C1O CELKC POM_NH SATQ9 4M3_SZDR ATDILNA poMSCR =MDIL MPRAC MMCOLOR q=ZOBR_DIL ePRAC eZMENA IDENT_ZDR PODNIK NH_TIS M1_KMAT cKOD_MAT POM_OBR OpMKODM (3)ZOBR_KMO ='M1_KOPER KOD_OPER kMKODO TYP_OPER KLOBOUKYF ATOPER_NE ATPODNIK MKOOP D_KOOP RIIS 1.1 RIIS 1.1 detailn znamy neexistuj w+/bg w+/bg w+/bg Vyhled Zadejte k &barvau znam nebyl nalezen ! POM_CO ER_NE STREC PHMEZ PMEZ M_SCR M_ORDER BARVA PHLASKA RAM_KMO HELP_KMO SAYRAD_KMOMKODM KMOKOD_MAT UMKODO ILKOD_OPER ehled k materi ehled k operac Popis ATPOM_CO ATBARX ATPOM_CO M1_KMAT KOD_MAT POPIS PM1_KOPER KOD_OPER Konec Pohyb Enter - Esc - Home,End,PgUp,PgDn, - Vyhled r polo s01_Proc s01_Proc POM_NEPSATVYPOCET ATS01_PROC &barvau KLOBOUKYF W_AKT PSATX POCET ATDOP POM_SL KOOPERACE PODNIK POM_NH s01_Proc 1veta PSATKON2 ATVOL12 ZMENAD PDET_OPER CELKC S01_PROC CZMENA BARVAU colorz Moper ehled vzorov ch operac Op N zev Pstr Prac Tr Kvn NH/tis Tbc Tac P edpis Celkem K oper+' '+nazev_op+' '+dop+' '+prac+' '+ptr+' '+norm+' '+ str(nh_tis,8,2)+' '+str(tbc,4)+' '+str(iif (empty(TAc), Kooperace, TAc),10,4)+' '+left(predpis,8)+str(kcsbc+kcsac,10,4) Op N zev Pstr Prac Tr Kvn Tbc Tac Kusy/h P edpis Celkem K oper+' '+nazev_op+' '+dop+' '+prac+' '+ptr+' '+norm+' '+ str(tbc,4)+' '+str(iif (empty(TAc), Kooperace, TAc),10,4)+' '+nc+' '+predpis+str(kcsbc+kcsac,10,4) Mod_Fun POM_OBR ATMMCOLOR ATN_LMEZ N_PMEZ N_HMEZ N_DMEZ PN_PROM N_HOD N_POC N_TEXT POM_NH N_HLAV N_RAD ZOBR_NAP PMOD_FUN S132X HLAVA vloz OPERACE oopera mE, PROC1 race' ZMEN1 PROC2 ,40+pF3 ZMEN2 z Koo PROC3 els ZMEN3 if vl(S PROC4 ZMEN4 NUROV mnaz= PROHL e ZMENA @x MENU1 &vlow^ MENU2 i MENU3 MENU4 f rea MENU5 or re]i MENUP1 MENUP2 MENUP3 CISELNIK 1veta VYPOCET2 TAc) a FUNKCE1 F1PRG FUNKCE2 OZNAC2 edenZ HLASKA ZOBR_RADA RAM_RADA SAYRAD_RAD HELP_RADA ZOBR_POSTU HLED_POST ZOBR_POST KOP_VZOR ZOBR_OPER RAM_OPER SAYRAD_OPE HELP_OPER KOP_OPER ZOBR_DIL RAM_DIL SAYRAD_DIL HELP_DIL ZOBR_TARIF ZMENY K_UDAJU KOOPERACE ZOBR_KMO RAM_KMO SAYRAD_KMO HELP_KMO VYPOCET OPRAV2 FUNKCED ZOBR_2OPER X:\OBEC\01\ S132X.FXP X:\OBEC\01\S132X.PRG