v4_skl_z x4_skl_z m1_obr ident m1_ident ident m1_zas x1_zas m1_um ident m_dat x_dat m_cis1 x_cis1 v4_sklad x4_sklad m1_plan x1_plan m1_kalk x1_kalk v1_str x1_str m_param M5_AKT.DBF2 m5_akt ident Odv materi lu vlastn roby do skladu : RIIS 5.4 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/n &barvau mod_proc Sklad neexistuje mod_proc Nelze prov jem na jin materi sklad v4_skl_z x4_skl_z Pro zadan sklad nem te opr mod_proc . . # &barvau sklad vrat Konec q7=V4_SKL_Z =X4_SKL_Z wPRIHLAS pW_SKLAD SKLAD M1_OBR IDENT M1_IDENT M1_ZAS X1_ZAS M1_UM M_DAT eX_DAT iM_CIS1 X_CIS1 oceV4_SKLAD X4_SKLAD )M1_PLAN (vX1_PLAN M1_KALK asX1_KALK pV1_STR kodX1_STR @ xM_PARAM wW_POLE1 icPOLE1 casW_POLE4 pPOLE4 'id_POM @ xTER_UZAV wW_ROK cW_MESIC asM5_AKT @Q1 vlozQ2 kut_mn Q3 '99999Q4 Q6 b = 'stQ7 @ xQ8 &vloz wQ9 ed pictQ10 caseQ11 @ Q12 &vloz Q13 zak piQ14 caQ15 Q16 1 &vloCISELNIK '@!X' POCET 6 &vDOP1 doklaDOP2 '999POR case qCOUNT @ x,ZAKAZNIK _W_IDENT piW_KOD_OB nW_PLAN_MN W_ID_ZAK nW_CPOL d lW_ID_VYS kW_SKUT_MN W_VYD_SKL W_VYD_UM yW_VYD_TYP W_PRI_SKL W_PRI_UM W_PRI_TYP W_ICO e(25W_ZAVOD 1,W_NAZEV acW_MJ @ xW_NAZ_ROZ W_POPIS_OBW_STRED sW_DOKLAD 5W_NAKLAD -P_ZOB la nW_VADNE_MNMM_AUTOR -W_JMENO _iJMENO_C paWJMENO_C OK_C laskaRADEK_C ybSLOUPEC_C la polo qRAD SL POC KONTROLA BARVAS koBARVAR a eBARVAZ poBARVAU BARVAN t mBARVAH BARVA id_vZOBR_SKL MOD_PROC dHLASKA DRUH_SKL W_TERMIN W_DAT_UCT PORADI m1_KONEC rX enR if iZ = 'DUU iT od_pol#'Q A o hlaskaZMENY NejeVOL11 o vyM nou pol &barva &barvan Rozpiska Doklad zev rozpisky zev polo Pohyb Funkce Konec - ^PgDn - F10 - Esc,^End 99999999.999 q7=W_KOD_OB =W_ID_VYS wW_SKUT_MN W_STRED W_ID_ZAK W_VYD_UM W_DOKLAD W_POPIS_OB` kod_ob @ x,2 &vloz w_kod_ob pict '@!X' id_vys @ x,6 &vloz w_id_vys pict '@!X' @ x,19 &vloz w_skut_mn pict '99999999.999' stred @ x,33 &vloz w_stred pict '@!X' @ x,39 &vloz w_id_zak pict '@!X' @ x,51 &vloz w_vyd_um pict '@!X' @ x,56 &vloz w_doklad pict '999999' @ x,63 &vloz w_popis_ob pict '@!X' Chybn hodnota sla polo Rozpiska neexistuje Nejedn se o vyr nou polo ku aktivovanou jako MVV, k d polo ky = Nejedn se o odlitek, k d polo ky = V extern identifikaci rozpisky nen uvedena mat. polo ka uveden v extern identifikaci neexistuje Mat. polo ka nen materi lem vl. v roby, k d polo ky = Pro polo ku neexistuje cena q7=P_ZOB =W_KOD_OB wPOCET D_ZAK YD_UM OKLAD OPIS_OBQ6 Q7 Q8 Q eLK iX W_ID_VYS eHLASKA _SKLAD )M1_IDENT vM1_OBR ID_ORG asKOD_POL pW_NAZ_ROZ NAZEV @ xW_MJ icW_IDENT asIDENT_ODB M1_PLAN d_W_STRED xZS_KMD wW_POLE4 cM1_KALK asPL_OD @TYP_NAKL zIDENT W_NAKLAD &barvau do proc&y do zmen&y with 'get' do zmen&y with 'say' it pr ci beze zm n? (a/N) KONEC q7=I KOD_OB OPIS_OBZ OBR1 LK eNAP_HOD iP_ZOB VOLBA POCET )K_UDAJU vKONTROLA W_PLAN_MN W_SKUT_MN W_NAKLAD W_TERMIN xW_KOD_OB wW_PRI_SKL W_PRI_UM sW_PRI_TYP W_ICO d_W_ZAVOD xW_POPIS_OBW_DAT_UCT ehled polo Informace o um Informace o obratech ehled st edisek ehled k obrat Konec mod_proc kod_pol='B' mod_proc kod_pol='O' &barvau Chybn hodnota identifikace polo mod_proc Chybn hodnota identifikace polo mod_proc mod_proc mod_proc &barvau q7=VOL =PODNIK wZOBR_POL W_ID_VYS W_NAZ_ROZ MOD_PROC _PROC W_IDENT HLASKA eZOBR_UM iZOBR_OB ZOBR_STR eW_STRED M1_OBR )ZOBR_OBV vW_KOD_OB colora set color to &color q7=COLOR KOD_OB w_kod_ob Chybn d obratu, je povoleno pouze odv (O..) Chybn slo polo Hodnota mno t vypln edisko mus t uvedeno edisko neexistuje v souboru st edisek zka mus t uvedena Nedostate soba na um znam o um sob nen stupn znam ch nen stupn KONTROLA =JMENO_C =WJMENO_C wMOD_C2 RADEK_C SLOUPEC_C MOD_C1 IDENT W_KOD_OB HLASKA eW_IDENT iW_SKUT_MN W_STRED eV1_STR W_ID_ZAK )W_POLE4 vM1_UM W_VYD_SKL W_VYD_UM W_VYD_TYP ZASOBA IDENT SKLAD UM_SKL TYP_UM ZALOZ_ZAS PRIJEM M1_ZAS DATUM_PRIJZAPIS_OBR m1_obr M1_OBR =IDENT =TERMIN_OB KOD_OB PLAN_MNOZ SKUT_MNOZ VYDAL_SKL VYD_UM_SKLTYP_UM_V PRIJAL_SKLPRI_UM_SKLTYP_UM_P POPIS_OBR STRED_OBR UT_MN ZAVOD eDOKL_CIS IDENT_ZAK vIDENT_VYS VADNE_MNOZZASOBA NAKLAD JMENO MESIC W_IDENT W_TERMIN W_KOD_OB W_PLAN_MN W_SKUT_MN W_VYD_SKL W_VYD_UM W_VYD_TYP W_PRI_SKL W_PRI_UM W_PRI_TYP W_POPIS_OBW_STRED W_ICO 'stW_ZAVOD xW_DOKLAD wW_ID_ZAK tW_CPOL aseW_ID_VYS W_VADNE_MNM1_UM k piW_NAKLAD aMM_AUTOR W_ROK &vloW_MESIC ZAPIS_AKT M1_IDENT 6 &vM M1_ZAS =W_IDENT =IDENT SKL_HLAVNIW_VYD_SKL SKL_HL_UM W_VYD_UM M5_AKT.DBF2 M5_AKT ident m5_akt ident m5_akt select &sel X_IDENT =X_DS M5_AKT VNIIDENT ZAVRI DUVOD kod_ob KOD_OB w_kod_ob id_vys mod_proc kod_pol='B' mod_proc kod_pol='O' stred mod_proc Pro toto pole neexistuje pomocn ehled hodnot P_ZOB =MOD_C3 ID_ORG VNIZOBR_POL W_ID_VYS W_NAZ_ROZ _SKLMOD_PROC D_PROC I_UM_SKLZOBR_STR W_STRED HLASKA MOD42K LOZE% PORADI ------ PROC1 ----- ZMEN1 -----^ ZMENY -----> VOLBA HLASKA K_UDAJU ZAPIS_OBR ZALOZ_ZAS ZAPIS_AKT NAP_HOD X:\OBEC\04\ MOD42K.FXP X:\OBEC\04\MOD42K.PRG