m_param set color to b/w set color to bg/n set color to w+/w set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w/n j e m s k l a d u : RIIS 4.2 v4_sklad x4_sklad v4_skl_z x4_skl_z &barvau @!R XXXX mod_proc Sklad neexistuje mod_proc Nelze prov jem na jin materi sklad Pro zadan sklad nem te opr mod_proc m1_ident material m4_organ m_dat x_dat m_cis1 x_cis1 m1_zas x1_zas m1_um ident m1_kalk x1_kalk m1_cen x1_cen m1_plan x1_plan m4_obj objed M5_AKT.DBF2 m5_akt ident m7_kurz archiv m1_obr_a sklad m1_obr sklad RIIS 4.2 &barvau doklad sklad vrat Konec &barvau &barvau eANSI endifP_ZOB --- W_DICO akW_NAZ_ORG M_PARAM W_POLE4 t POLE4 e(5)W_KOEF_VN KOEF_VN (2POM _plan_TER_UZAV eW_ROK dW_MESIC _pM_MENA w_W_RADA_OBJW_KOEF_MENW_MENA _poMOBR w_pQ1 _o = w_Q2 lock_zQ4 ith indQ5 w_identQ6 if Q7 POC_ZAZ ZOBR_ZAZ rRADEK endiQ_CENA loPOCET1 witPOCET2 w_INDIK if !HOR aDOL qPOCET reDOP1 endifDOP2 o locPOR with COUNT if !CENA_NOV qRAD reSL endifPOC * ----KONTROLA zEXISTUJE nBARVAS BARVAR BARVAT ---BARVAZ izaBARVAU --BARVAN selBARVAH V4_SKLAD sX4_SKLAD aV4_SKL_Z tX4_SKL_Z mPRIHLAS eW_SKLAD mnSKLAD -ZOBR_SKL iMOD_PROC sW_NAZEV_SKNAZEV m1_zHLASKA aceDRUH_SKL tMOD_SYS _P_KONSIG KONSIG iW_TYP_UM wBARVA M1_IDENT rMATERIAL tM4_ORGAN aktualM_DAT 1_obX_DAT M_CIS1 s_oX_CIS1 --M1_ZAS ktuX1_ZAS m4_M1_UM IDENT m4_M1_KALK laX1_KALK wM1_CEN ov+X1_CEN 0),M1_PLAN _zX1_PLAN o_M4_OBJ e(2OBJED _kdoM5_AKT o_kM7_KURZ (2ARCHIV e(2M1_OBR_A JM1_OBR bjdW_ID_ZAK pW_CPOL objW_ID_VYS pW_ICO_NAZ W_ICO mno_W_ZAV _polW_DOKLAD wW_KOD_OB )W_DAT_P obW_DAT_K +sW_KURZ bj.HLAV1 )=mMENU +str(W_SKUT_MN W_PLAN_MN W_CENA_MJ W_CENA_CELW_UVN_POC W_ZASOBA sW_VADNE_MNW_IDENT enW_UM mno_dW_POPIS_O W_NAZEV epHLAV2 _ovKONEC no_oI no_dod selecR seek U pobjd.zaT '+chr(2Q @23,62A y ' ZMENY ,EscVOL11 coloOBR1 ,2 say &barvau &barvas &barvaz &barvar &barvaz &barvat jemka Druh p. Objedn Faktura Dod.list Dodavatel Datum Kurz-prodej &barvau &barvas &barvaz &barvar &barvaz &barvat jemka Druh p. Objedn Faktura Dod.list Dodavatel &barvau M_MENA endifW_NAZEV_SKID_ORG &barvas &barvau &barvar &barvaz &barvat &barvan Mn.ob./d.l. . skut. . vadn Cena/MJ Celk. cena &barvau eHOR endifDOL ZEV_SK &barvau &barvas 999999.999 &barvau eW_DOKLAD fW_KOD_OB KW_ID_ZAK KW_ID_VYS KW_ICO W_ZAV t M4_ORGAN )W_ICO_NAZ NAZEV_ORG M1_OBR M_MENA eW_MENA dW_DAT_K _pM7_KURZ w_W_KURZ BJPRODEJ MENW_KOEF_MENMNOZ &barvas &barvau 99999999.999 99999999.999 99999999.999 99999999.99 99999999.99 &barvau DOKLAD fW_IDENT KW_UM KW_PLAN_MN W_SKUT_MN W_VADNE_MNW_MJ )W_CENA_MJ W_NAZEV W_POPIS_O W_CENA_CEL\ w_doklad @ 4,14 &vloz w_doklad pict '999999' w_kod_ob @ 4,30 &vloz w_kod_ob pict '@!X' w_id_zak @ 4,46 &vloz w_id_zak pict '@!X' w_id_vys @ 4,67 &vloz w_id_vys pict '@!X' w_ico @ 5,14 &vloz w_ico pict '@!X' w_zav @ 5,27 &vloz w_zav pict '@!X' w_mena @ 6,14 &vloz w_mena pict '@!XXX' w_dat_k @ 6,28 &vloz w_dat_k pict '@E' eP_ZOB IDENT KPOCET1 W_RADA_OBJEXISTUJE NID_ORG )CIS_RADY W_SKLAD W_DOKLAD W_COBJ LCISRADY dM1_OBR pW_KOD_OB _W_ICO BJW_ZAV MENW_ICO_NAZ W_ID_ZAK pW_CPOL w_W_ID_VYS *KOD_OB zIDENT_ZAK IDENT_VYS if ZAVOD M4_ORGAN NAZEV_ORG PROC1 ndiQ2 loQ3 witM4_OBJ w_Q4 aQ6 qQ7 reQ8 ndifA w_ident @ x,2 &vloz w_ident pict '@!X' ka neexistuje kaznick materi l nelze na tento typ skladu p ijmout Lze p mat pouze z kaznick materi Nelze p mat materi l vlastn @ x,15 &vloz w_um pict '@!X' w_plan_mn @ x,21 &vloz w_plan_mn pict '99999999.999' w_skut_mn @ x,34 &vloz w_skut_mn pict '99999999.999' w_vadne_mn @ x,47 &vloz w_vadne_mn pict '99999999.999' colorz /1MJ: 99999999.999 w_cena_mj @ x,64 &vloz w_cena_mj pict '99999999.99' w_popis_o @ x+1,35 &vloz w_popis_o pict '@!X' eP_ZOB fNASTAV_Q2 M1_IDENT _IDENT NW_IDENT S_RADY HLASKA KOD_POL W_TYP_UM LW_MJ pW_NAZEV _NAZEV BJP_KONSIG NW_CENA_MJ W_UVN_POC M1_KALK w_PL_OD *TYP_NAKL zIDENT M1_OBR PROC2 Q2 ORGAN ndiW_CENA_CELW_SKUT_MN !Q_CENA aM_MENA qW_KOEF_MENMOBR ndifMCOL locX with W_MENA f !Q7 do proc&n do zmen&n with 'get' do zmen&n with 'say' &barvau if q - ^PgDn - F10 - Esc,^End Pohyb jemky Funkce Konec - ^PgDn - F10 - Esc,^End M_MENA colora set color to &col CMESS FFFZ^D ordera Zadejte ady doklad sklad< sklad< ada doklad neexistuje, nave te cel ada doklad neexistuje, nave te cel 000000FF set order to &st_order select &st_sel W_SKLAD eW_CIS_DOK W_KODOB W_RADEK NW_SLOUPEC ST_SEL ST_ORD ST_ZAZ M1_OBR ENST_ORDER W_DELKA IHLASKA SKLAD M1_OBR_A DEL_R VYDAL_SKL DOKL_CIS KOD_OB DEL_ZBYT POM_CIS w_doklad mod_proc w_kod_ob mod_proc w_mena mod7_pok w_dat_k mod_proc w_ident mod_proc inlist(kod_pol,'M','N','T','U','X','Y','Z') w_skut_mn w_plan_mn w_vadne_mn mod_proc mod_proc w_ico w_zav mod7_lib Pro toto pole neexistuje pomocn ehled hodnot P_ZOB eZOBR_OB W_IDENT MOD_PROC NZOBR_OBV W_KOD_OB ZOBR_MENY W_MENA MOD7_POK NZOBR_KURZ W_DAT_K IW_KURZ ZOBR_POL W_NAZEV ZOBR_UM ZOBR_ORGANW_ICO W_ZAV W_DICO W_NAZ_ORG MOD7_LIB HLASKA q&si = pocet2 q&si = 0 W_POLE4 P_KONSIG NW_CENA_MJ POCET2 R_MENY MOD42B HLAV1 HLAV2 _ _ M PROC1 _ _ _ PROC2 _ _ ZMEN1 _ _ _ ZMEN2 _ _ ZMENY _ _ _ HLASKA _ _ j9 K_HLAVA K_OBRATU VYP_PR ZAPIS_OBR LOCK_ZAS LOCK_KALK LOCK_OBJ TISK_PRIJ TISK_PR2 TISK_HL _ ek TISK_POR TISK_KON TISK_NOZ _ _ _ TISK_ETIK VOLBA _ _ _ _ _y ZOBR_POROB HLAVA7 SAYRAD71 SAYRAD72 HELP7 _ _ _ VOL_PP ZOBR_OBJ PENTER _ _ Z PLAN_PRIJ PORADI MENU_P PROC_P ZMEN_P ZMENY_P K_UDAJU ZAPIS_AKT CISRADY ^Canc CIS_RADY NAP_HOD NASTAV_Q2 X:\OBEC\04\ MOD42B.FXP X:\OBEC\04\MOD42B.PRG