m_param m1_ident postup use &nazevv\m1_hlava order postup use &nazevv\m1_mat order postup alias mat Funkce prehledy ehled technologick ch postup RIIS 1.3 Postup m1_hlava.postup m1_hlava.postup zev postupu m1_hlava.nazev m1_hlava.nazev m1_hlava.rada m1_hlava.rada m1_hlava.kstr m1_hlava.kstr Autor m1_hlava.autor m1_hlava.autor Datum tran(m1_hlava.datum,'@E') m1_hlava.datum Vz.post. tran(m1_hlava.typ_postup,'99999999') m1_hlava.typ_postup str(m1_hlava.pocop,4)+' ' m1_hlava.pocop Nmin-p str(m1_hlava.tbc_c,9) m1_hlava.tbc_c Nmin-kus str(m1_hlava.tac_c,10,4) m1_hlava.tac_c str(m1_hlava.kcsbc_c,10,4) m1_hlava.kcsbc_c K str(m1_hlava.kcsac_c,10,4) m1_hlava.kcsac_c Nmin-celk str(m1_hlava.tac_c+m1_hlava.tbc_c,10,4) (m1_hlava.tac_c+m1_hlava.tbc_c) -celkem str(m1_hlava.kcsac_c+m1_hlava.kcsbc_c,10,4) (m1_hlava.kcsac_c+m1_hlava.kcsbc_c) m1_ident.typ m1_ident.typ Ext. identifikace m1_ident.ident_odb m1_ident.ident_odb Specifikace mat.Text mat.Text POM_SLEV zM_PARAM ePOLE1 KONT_PR t.D_KOOP ,fDILNA_KOOPM1_IDENT mPOSTUP ce"M1_HLAVA CPARAMDBF POLEX nazePROCX ehlRTOP hnoloRBOT h opeCLEFT " + CRIGHT cesFREEZE ORDER = "RZAHL JMENO ion HODN olex)SOUC o(polTITLE dn(pTITLECOLORPOC0 use mF0 if F1 tr(poleF2 1)='X' F9 skF10 F0PRG rva=F1ON F1PRG do F4IJM witF4PRG TISKPRG F7IJM F7PRG F9PRG hmezF9KEY F9KEY1 =ukF10IJM F10PRG RAMECEK RIIS t colNAZEVT KLICO KLNAZ oll SPACEBAR eTR_HL1 TR_HL2 eTR_HL3 TR_HL4 arvTR_HL5 TR_HL6 TR_HL7 ad5TR_HL8 ,baTR_HL9 DETIJM ENTER se iDETAIL DETPRG PS_LINE ePS_RETURN PS_ZAZN NAZCES MOD_PSV cis_fak filterz orderz funkce Detail postupu Detail rozpisky Konec postup ident mod_proc obnova p ehledu ... funkce cOtevri = 'use &nazevv\m1_hlava order postup' set relation to postup into m1_ident cOtevri = 'use &nazevv\m1_normy order operace' set rela to postup into m1_hlava cOtevri = 'use &nazevv\m1_prip order operace' set relation to postup+oper into m1_normy, evcis into m1_ident C_PSV &cOtevri set filter to &Qwfilt &cRelace index on &m_onindex tag &cps_dbf of &cps_cdx &m_Ndesc index on &m_onindex tag &cps_dbf of &cps_cdx for &m_podm &m_Ndesc set order to &M_trideni set order to &M_trideni &cRelace M_SCR zM_REC eM_SEL W_IDENT t.CISLO ,fM1_HLAVA PPOSTUP mQMASTERORDCMASTERORDQWFILT ORDM_TRIDENI M_ONINDEX M_NDESC hlNDESCENDINM_PODM opeCPODMV + FUNKCE cesDATA VOLBA = "RRUS S132Z ion PREH_ROZP M1_IDENT lIDENT pZOBR_ROZP MOD_PROC mMESS if CPARAMDBF CRELACE m_param Funkce prehledy ehled technologick ch operac RIIS 1.3 m_param use &nazevv\m1_hlava order postup use &nazevv\m1_normy order operace Postup a.postup a.postup a.oper a.oper a.dop a.dop Prac a.prac a.prac a.ptr a.ptr NH/tis str(a.nh_tis,8,2) a.nh_tis str(a.tbc,4) a.tbc TAC IIF(kooperace(a.dop),str(a.kooperace,10,4),str(a.tac,10,4)) IIF(kooperace(a.dop),a.kooperace,a.tac) zev oper. a.nazev_op a.nazev_op Kusy/h a.norm+' ' a.norm edpis a.predpis a.predpis zev postupu m1_hlava.nazev m1_hlava.nazev m1_hlava.rada m1_hlava.rada m1_hlava.kstr m1_hlava.kstr Autor m1_hlava.autor m1_hlava.autor Datum tran(m1_hlava.datum,'@E') m1_hlava.datum Vz.post. m1_hlava.typ_postup m1_hlava.typ_postup str(m1_hlava.pocop,4)+' ' m1_hlava.pocop str(a.kcsbc,10,4) a.kcsbc K str(a.kcsac,10,4) a.kcsac Nmin-celk str(a.tac+a.tbc,10,4) (a.tac+a.tbc) -celkem str(a.kcsac+a.kcsbc,10,4) (a.kcsac+a.kcsbc) a.Kod_Mat a.Kod_Mat d op. a.Kod_Oper+' ' a.Kod_Oper a.Typ_Oper+' ' a.Kod_Oper Zmetky % str(a.Zmetky,8,2) a.Zmetky POM_SLEV zCPARAMDBF POLEX PROCX t.RTOP ,fRBOT PCLEFT mCRIGHT ORDFREEZE ORDORDER ORDZAHL JMENO hlSOUC ENDINTITLE opeTITLECOLORPOC0 cesF0 = "RF2 ion F4 H_ROZP IDENT R_ROZP mF0PRG if F1ON F1PRG F4IJM F4PRG TISKPRG F7IJM F7PRG skF9PRG F9KEY rva=F9KEY1 F10IJM do F10PRG witRAMECEK NAZEVT KLICO KLNAZ hmezSPACEBAR TR_HL1 =ukTR_HL2 TR_HL3 TR_HL4 TR_HL5 colTR_HL6 TR_HL7 TR_HL8 ll TR_HL9 eDETIJM ENTER eDETAIL DETPRG arvPS_LINE PS_RETURN PS_ZAZN ,baPOM_NH POM_CKC M_PARAM iPOLE1 NAZCES KONT_PR eD_KOOP DILNA_KOOPPOSTUP M1_HLAVA MOD_PSV Funkce prehledy ehled p pravk technologick ch operac RIIS 1.3 Postup m1_prip.postup m1_prip.postup m1_prip.oper m1_prip.oper Evid. m1_prip.evcis m1_prip.evcis zev p pravku m1_ident.nazev m1_ident.nazev m1_normy.dop m1_normy.dop Prac m1_normy.prac m1_normy.prac m1_normy.ptr m1_normy.ptr str(m1_normy.tbc,4) m1_normy.tbc TAC str(m1_normy.tac,10,4) m1_normy.tac zev oper. m1_normy.nazev_op m1_normy.nazev_op Kusy/h m1_normy.nc m1_normy.nc m1_normy.norm+' ' m1_normy.norm edpis m1_normy.predpis m1_normy.predpis zev postupu m1_hlava.nazev m1_hlava.nazev m1_hlava.rada m1_hlava.rada m1_hlava.kstr m1_hlava.kstr Autor m1_hlava.autor m1_hlava.autor m1_prip.oznac m1_prip.oznac Datum tran(m1_hlava.datum,'@E') m1_hlava.datum Vz.post. m1_hlava.typ_postup m1_hlava.typ_postup str(m1_hlava.pocop,4)+' ' m1_hlava.pocop m_param m1_ident ident use &nazevv\m1_hlava order postup use &nazevv\m1_normy order operace use &nazevv\m1_prip order operace POM_SLEV zCPARAMDBF POLEX PROCX t.RTOP ,fRBOT PCLEFT mCRIGHT ORDFREEZE ORDORDER ORDZAHL JMENO hlSOUC ENDINTITLE opeTITLECOLORPOC0 cesF0 = "RF2 ion F4 H_ROZP IDENT R_ROZP mF0PRG if F1ON F1PRG F4IJM F4PRG TISKPRG F7IJM F7PRG skF9PRG F9KEY rva=F9KEY1 F10IJM do F10PRG witRAMECEK NAZEVT KLICO KLNAZ hmezSPACEBAR TR_HL1 =ukTR_HL2 TR_HL3 TR_HL4 TR_HL5 colTR_HL6 TR_HL7 TR_HL8 ll TR_HL9 eDETIJM ENTER eDETAIL DETPRG arvPS_LINE PS_RETURN PS_ZAZN ,baNAZCES M_PARAM POLE1 iKONT_PR D_KOOP DILNA_KOOPM1_IDENT IDENT KOOPPOSTUP M1_HLAVA M1_NORMY EVCIS MOD_PSV KLOBOUKYF zOPER_NE PODNIK MKOOP t.D_KOOP c1_ident m1_ident ordera postup m1_ident postup c1_ident c1_ident+ rozpiska k zadan mu postupu neexistuje set order to &ord_id c1_ident set order to &ord_id set color to &barva w+/bg w+/bg w+/bg set order to &ord_id Zadejte cislo polozky set order to &ord_id C1_IDENT zORD_ID CLO_ID M1_IDENT .POSTUP fM1_HLAVA PC_POSTUP DHLASKA ORDIDENT DW_IDENT HLAVA hlDMEZ ENDINLMEZ opePMEZ COLORR cesRAM5 HELP5 = "RRAD STREC ion BARVA SAYRAD5 pSTZAZ ehled r o z p i s e k Identifikace Nazev polozky _IDENT set color to &barx IDENT zBARX IDENT NAZEV .KOD_POL Konec Pohyb Enter - Esc - Home,End,PgUp,PgDn, - Vyhled r polozky S133A PREHLEDY S133B S133C KOOPERACE PREH_ROZP SAYRAD5 HELP5 X:\OBEC\01\ S133.FXP X:\OBEC\01\S133.PRG