Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1998-12-21 | 17KB | 500 lines

MOD54AX v4_skl_z x4_skl_z m1_obr ident m1_ident soucasti 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 m7_rene.DBF2 m7_rene Odv s o u s t do meziskladu: 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 sklad v4_skl_z x4_skl_z Pro zadan sklad nem te opr &barvau sklad vrat Konec ceV4_SKL_Z iX4_SKL_Z PRIHLAS W_SKLAD _sSKLAD paceM1_OBR w_vIDENT = M1_IDENT SOUCASTI dM1_ZAS spX1_ZAS M1_UM kl M_DAT e(4)X_DAT pri_M_CIS1 pacX_CIS1 w_V4_SKLAD =X4_SKLAD M1_PLAN X1_PLAN 2)M1_KALK voX1_KALK 0'V1_STR opiX1_STR spM_PARAM W_POLE1 POLE1 W_POLE4 laPOLE4 pacePOM w_dTER_UZAV W_ROK W_MESIC bM5_AKT vasM7_RENE -------P_ZOB ----Q1 -------Q2 -------Q3 -------Q4 do meQ5 va=barvQ7 poradi koQ10 Q11 Q12 Q13 x=Q14 r=hQ15 storQ16 o z,u,CISELNIK pocet=DOL y='1POCET barvDOP1 DOP2 konCOUNT ZAKAZNIK W_IDENT e W_KOD_OB 1W_PLAN_MN W_ID_ZAK bW_CPOL ,29W_ID_VYS mW_SKUT_MN W_VYD_SKL W_VYD_UM eW_VYD_TYP W_PRI_SKL W_PRI_UM W_PRI_TYP W_ICO W_ZAVOD W_NAZEV pW_MJ vW_POPIS_OBW_STRED roW_DOKLAD cW_NAKLAD uW_VADNE_MNMM_AUTOR W_JMENO voJMENO_C WJMENO_C OK_C vol11RADEK_C sSLOUPEC_C POMOC idenY loRAD otheSL POC KONTROLA nBARVAS coBARVAR BARVAZ * BARVAU ***BARVAN ***BARVAH ***BARVA ****ZOBR_SKL MOD_PROC *HLASKA DRUH_SKL &P_KONSIG KONSIG to KS W_TERMIN W_DAT_UCT @ PORADI r tKONEC ay 'K 4,6 Z @ 4,23 T 'Mno @ 4,33A y 'St .'ZMENY 9 saVOL11 zka'M 4,51 sa~ &barva &barvan Doklad zev polo 99999999.999 ceW_KOD_OB iW_IDENT W_SKUT_MN W_STRED _sW_ID_ZAK eW_VYD_UM vW_DOKLAD W_POPIS_OB w_kod_ob @ x,2 &vloz w_kod_ob picture '@!X' w_ident @ x,6 &vloz w_ident picture '@!X' w_skut_mn @ x,19 &vloz w_skut_mn picture '99999999.999' w_stred @ x,33 &vloz w_stred picture '@!X' w_id_zak @ x,39 &vloz w_id_zak picture '@!X' w_vyd_um @ x,51 &vloz w_vyd_um picture '@!X' @ x,56 &vloz w_doklad picture '999999' @ x,63 &vloz w_popis_ob picture '@!X' Chybn hodnota sla polo ka neexistuje Pro tuto polo ku nelze nav t skladov obraty (k d polo ky R,V,I) FPSABCOJKG Nejedn se o vyr nou polo ku, k d polo ky = U polo ky nen uveden k d polo ky - nelze nav t obraty Pro polo ku neexistuje cena ceW_KOD_OB iPOCET KUT_MN D_ZAK YD_UM OKLAD OPIS_OBQ7 CASTI P_ZOB kl X e(4)W_IDENT i_HLASKA w_M1_IDENT =M1_OBR KOD_POL M1_PLAN 2)W_STRED voZS_KMD 0'W_POLE4 piP_KONSIG pM1_KALK PL_OD TYP_NAKL IDENT aW_NAKLAD dNAZEV IDENT &barvau do proc&y do zmen&y with 'get' do zmen&y with 'say' it pr ci beze zm n? (a/N) KONEC KOD_OB KUT_MN OPIS_OBZ spOBR1 LK kl VOLBA e(4)NAP_HOD i_P_ZOB pacK_UDAJU w_KONTROLA =W_PLAN_MN W_SKUT_MN W_NAKLAD )W_TERMIN oW_PRI_SKL W_PRI_UM iW_PRI_TYP W_ICO W_ZAVOD W_POPIS_OBW_DAT_UCT ePOCET ehled polo Informace o um Informace o obratech Konec mod_proc inlist(kod_pol,'F','P','S','A','B','C','O','R') &barvau mod_proc mod_proc &barvau ceVOL iZOBR_POL W_IDENT W_NAZEV _sW_MJ eMOD_PROC IDENT dZOBR_UM spZOBR_OB colora set color to &color ceCOLOR KOD_OB w_kod_ob Chybn d obratu, je povolen pouze odv Chybn slo polo Hodnota mno t vypln edisko mus t uvedeno edisko neexistuje v souboru st edisek zka mus t uvedena m7_rene zka neexistuje v souboru nedokon Identifikace polo ky neodpov nedokon kaz je ji ukon Nedostate soba na um znam o um sob nen stupn znam ch nen stupn KONTROLA eJMENO_C iWJMENO_C MOD_C2 _sRADEK_C D_PROC vSLOUPEC_C MOD_C1 BR_UM spW_KOD_OB HLASKA W_IDENT 4)W_SKUT_MN W_STRED acV1_STR w_W_ID_ZAK =W_POLE4 M7_RENE M1_OBR )PODNIK oIDENT STAV_VP iM1_UM W_VYD_SKL W_VYD_UM W_VYD_TYP ZASOBA SKLAD UM_SKL TYP_UM ZALOZ_ZAS PRIJEM M1_ZAS DATUM_PRIJZAPIS_OBR m1_obr mod5_lib M1_OBR eIDENT iTERMIN_OB KOD_OB PLAN_MNOZ SKUT_MNOZ VYDAL_SKL VYD_UM_SKLTYP_UM_V BPRIJAL_SKLPRI_UM_SKLTYP_UM_P POPIS_OBR STRED_OBR UT_MN ZAVOD acDOKL_CIS _IDENT_ZAK IDENT_VYS VADNE_MNOZZASOBA oNAKLAD 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 JW_PRI_TYP W_POPIS_OBW_STRED --W_ICO ----W_ZAVOD --W_DOKLAD eW_ID_ZAK W_CPOL arvW_ID_VYS W_VADNE_MNM1_UM koW_NAKLAD MM_AUTOR W_ROK W_MESIC x=GEN_VYDEJ MOD5_LIB ZAPIS_AKT M1_IDENT pocet=M M1_ZAS eW_IDENT iIDENT 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 eX_DS M5_AKT VNIIDENT ZAVRI DUVOD _SKLx Pohyb Funkce Konec <Enter> - ^PgDn - F10 - Esc,^End w_kod_ob mod_proc w_ident mod_proc inlist(kod_pol,'F','P','S','A','B','C','O','R') w_skut_mn mod_proc w_vyd_um mod_proc w_doklad mod_proc w_stred mod_proc w_id_zak mod6_lib Pro toto pole neexistuje pomocn ehled hodnot P_ZOB eZOBR_OBV iMOD_PROC W_KOD_OB IZOBR_POL W_IDENT W_NAZEV _SKLZOBR_UM BZOBR_OB LZOBR_STR LW_STRED PODNIK ZOBR_RENE W_ID_ZAK MOD6_LIB cHLASKA _MOD54AX PORADI eek y PROC1 ZMEN1 P ZMENY with VOLBA xistu HLASKA K_UDAJU ZAPIS_OBR ZALOZ_ZAS ZAPIS_AKT ntrola NAP_HOD adu+7 X:\OBEC\05\ MOD54A.FXP X:\OBEC\05\MOD54A.PRG