m2_PSPar POM_SLH1 SPOM_SLH2 tPOM_SLH3 POM_SLH4 ,POM_SLP1 _POM_SLP2 tPOM_SLP3 POM_SLP4 POM_SLP5 POM_SEH1 9POM_SEH2 mPOM_SEH3 HPOM_SEH4 ,POM_SEP1 POM_SEP2 cPOM_SEP3 POM_SEP4 @POM_SEP5 pPOM_SL_L POM_SL_E 9POM_SE_L POM_SE_E POM_LE_L POM_LE_E 9POM_OB_L POM_OB_E PPOM_TE_L 9POM_TE_E iPOM_RJ_L mPOM_RJ_E POM_LZ_L POM_LZ_E POM_JUP 99POM_J2 POM_J3 6 sPOM_J4 lH4M2_PSPAR 9SL_H1 dSL_H2 SL_H3 PSL_H4 9SL_PROC1 *SL_PROC2 oSL_PROC3 ,SL_PROC4 _SL_PROC5 "SE_H1 SE_H2 oSE_H3 tSE_H4 *SE_PROC1 (SE_PROC2 SE_PROC3 sSE_PROC4 SE_PROC5 9SL_SLEV eSL_SEJK 2SE_SLEV eSE_SEJK LE_SLEV eLE_SEJK 6OB_SLEV SOB_SEJK TE_SLEV @TE_SEJK pRJ_SLEV pRJ_SEJK "LZ_SLEV pLZ_SEJK 2PROC_JUP 5PROC_JAK2 PROC_JAK3 POM_NODL ePROC_JAK4 AKTUAL 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 BARVAS SBARVAR tBARVAZ BARVAU ,BARVAN _BARVAT tBARVAH BARVA _SLP5 _SEH1 _SEH2 _SEH3 _SEH4 _SEP1 _SEP2 _SEP3 _SEP4 99Q26 6 sQ28 lH4Q29 _PROC4 _ZMENA1 "POM_KONTR POM_KONEC *POCET1 (BARVANS sHLAV1 PROC1 9ZMENY &barvau &barvas &barvaz &barvar Aktualizace parametr pro PS mzdy od K do K do fondu Sejkorovny od K do K do fondu zdroj Sejkorovna Lerchovana obchodn technick jakosti lidsk ch zdroj Zdroj Sejkorovna Zdroj sl Procento zm ny od 1.jakosti JUPITER 2.jakost 3.jakost nest. odlitky SPOM_TEXT &barvau &barvas 999999 99.99 999999 999999 999999 99.99 999999 999999 999999 99.99 999999 999999 999999 99.99 999999 999999 99.99 999999 99.99 999999 999999 999999 99.99 999999 999999 999999 99.99 999999 999999 999999 99.99 999999 999999 99.99 99.99 99.99 99.99 99.99 99.99 99.99 99.99 99.99 99.99 99.99 99.99 99.99 99.99 99.99 999.99 999.99 999.99 999.99 SPOM_SLH1 tPOM_SLP1 POM_SLH2 ,POM_SLP2 _POM_SLH3 tPOM_SLP3 POM_SLH4 POM_SLP4 POM_SLP5 9POM_SEH1 mPOM_SEP1 HPOM_SEH2 ,POM_SEP2 POM_SEH3 cPOM_SEP3 POM_SEH4 @POM_SEP4 pPOM_SEP5 POM_SL_E 9POM_SE_E POM_LE_E POM_OB_E POM_TE_E 9POM_RJ_E POM_LZ_E PPOM_SL_L 9POM_SE_L iPOM_LE_L mPOM_OB_L POM_TE_L POM_RJ_L POM_LZ_L 9POM_JUP POM_J2 6 sPOM_J3 lH4POM_NODL &barvau @ 4,27 &vloz pom_SlH1 pict "999999" @ 4,36 &vloz pom_SlP1 pict "99.99" @ 5,27 &vloz pom_SlH2 pict "999999" @ 5,36 &vloz pom_SlP2 pict "99.99" @ 6,27 &vloz pom_SlH3 pict "999999" @ 6,36 &vloz pom_SlP3 pict "99.99" @ 7,27 &vloz pom_SlH4 pict "999999" @ 7,36 &vloz pom_SlP4 pict "99.99" @ 8,36 &vloz pom_SlP5 pict "99.99" @ 4,63 &vloz pom_SeH1 pict "999999" @ 4,72 &vloz pom_SeP1 pict "99.99" @ 5,63 &vloz pom_SeH2 pict "999999" @ 5,72 &vloz pom_SeP2 pict "99.99" @ 6,63 &vloz pom_SeH3 pict "999999" @ 6,72 &vloz pom_SeP3 pict "99.99" @ 7,63 &vloz pom_SeH4 pict "999999" @ 7,72 &vloz pom_SeP4 pict "99.99" @ 8,72 &vloz pom_SeP5 pict "99.99" @11,43 &vloz pom_Sl_E pict "99.99" @12,43 &vloz pom_Se_E pict "99.99" @13,43 &vloz pom_Le_E pict "99.99" @14,43 &vloz pom_Ob_E pict "99.99" @15,43 &vloz pom_Te_E pict "99.99" @16,43 &vloz pom_RJ_E pict "99.99" @17,43 &vloz pom_LZ_E pict "99.99" @11,64 &vloz pom_Sl_L pict "99.99" @12,64 &vloz pom_Se_L pict "99.99" @13,64 &vloz pom_Le_L pict "99.99" @14,64 &vloz pom_Ob_L pict "99.99" @15,64 &vloz pom_Te_L pict "99.99" @16,64 &vloz pom_RJ_L pict "99.99" @17,64 &vloz pom_LZ_L pict "99.99" @20,40 &vloz pom_Jup pict "999.99" @21,40 &vloz pom_J2 pict "999.99" @22,40 &vloz pom_J3 pict "999.99" @23,40 &vloz pom_Nodl pict "999.99" do Proc&y Zmena&y = .t. SPOCET1 _SLP1 _SLH2 _SLP2 _SLH3 _SLP3 _SLH4 _SLP4 _SLP5 _SEH1 6 sQ34 lH4Q35 if not Zmena&y Zmena&y = .f. POM_KONEC tM2_PSPAR SL_H1 ,POM_SLH1 _SL_H2 tPOM_SLH2 SL_H3 POM_SLH3 SL_H4 9POM_SLH4 mSL_PROC1 HPOM_SLP1 ,SL_PROC2 POM_SLP2 cSL_PROC3 POM_SLP3 @SL_PROC4 pPOM_SLP4 SL_PROC5 9POM_SLP5 SE_H1 POM_SEH1 SE_H2 9POM_SEH2 SE_H3 PPOM_SEH3 9SE_H4 iPOM_SEH4 mSE_PROC1 POM_SEP1 SE_PROC2 POM_SEP2 9SE_PROC3 POM_SEP3 sSE_PROC4 4POM_SEP4 9SE_PROC5 dPOM_SEP5 SL_SLEV PPOM_SL_L 9SL_SEJK *POM_SL_E oSE_SLEV ,POM_SE_L _SE_SEJK "POM_SE_E LE_SLEV POM_LE_L tLE_SEJK *POM_LE_E (OB_SLEV POM_OB_L sOB_SEJK POM_OB_E 9TE_SLEV ePOM_TE_L 2TE_SEJK ePOM_TE_E RJ_SLEV ePOM_RJ_L 6RJ_SEJK SPOM_RJ_E LZ_SLEV @POM_LZ_L pLZ_SEJK pPOM_LZ_E "PROC_JUP pPOM_JUP 2PROC_JAK2 POM_J2 PROC_JAK3 POM_J3 ePROC_JAK4 POM_NODL if not Zmena&y Chybn zadan hranice od - do pro sl Chybn zadan hranice od - do pro Sejkorovnu et zdroj Sejkorovny nen 100% (F et zdroj rny nen 100% (F POM_KONTR M_KONTR POM_SLH1 POM_SLH2 ,POM_SLH3 _POM_SLH4 tHLASKA _SLH3 POM_SEH1 9POM_SEH2 mPOM_SEH3 HPOM_SEH4 POM_SL_E cPOM_SE_E POM_LE_E @POM_OB_E pPOM_TE_E POM_RJ_E 9POM_LZ_E POM_SL_L POM_SE_L 9POM_LE_L POM_OB_L PPOM_TE_L 9POM_RJ_L iPOM_LZ_L colora POM_TXT MMCOLOR colora POM_TXT POM_OBR MMCOLOR &barvau do Proc&y do Zmen&y with "get" do Zmen&y with "say" if q < pocet&y q =pocet&y if not Zmena&y it pr ci beze zm n? (a/N) POM_KONEC M_OBR COLOR COLOR _SLH3 M_SEH2 _SEH3 M_SEH4 KONEC KONTROLA POM_KONTR ZAPIS @AKTUAL HLAV1 H1, p PROC1 om_SeO ZMEN1 ZAPIS SeP1, KONTROLA _SeP4, HLASKA ZMENY , pom W:\06\ MOD68B3.FXP W:\06\MOD68B3.PRG