Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1998-12-21 | 23KB | 667 lines

MOD54BX v4_skl_z x4_skl_z m1_obr ident m1_ident soucasti m1_zas x1_zas m1_um ident v4_sklad x4_sklad m_dat x_dat m_cis1 x_cis1 m_param m1_plan x1_plan m7_rene.DBF2 m7_rene d e j m e z i s k l a d u : 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 dej z jin ho ne ho skladu v4_skl_z x4_skl_z Pro zadan sklad nem te opr &barvau sklad vrat Konec ntV4_SKL_Z X4_SKL_Z aPRIHLAS enW_SKLAD enSKLAD M1_OBR = IDENT elM1_IDENT SOUCASTI M1_ZAS X1_ZAS M1_UM V4_SKLAD sX4_SKLAD sM_DAT X_DAT ----M_CIS1 ---X_CIS1 ---M_PARAM --POM ------TER_UZAV aW_ROK uW_MESIC d_M1_PLAN V'X1_PLAN r(M7_RENE W_POLE1 vrPOLE1 bsW_POLE4 obPOLE4 oP_ZOB r(w_Q1 ob,1,1)Q2 doQ3 ska witQ4 ze nav pouze vQ6 esuQ7 inventuQ8 q =Q9 retuQ10 ase suQ11 w_kod_Q12 2)='ISQ13 do koQ14 casQ15 str(w_Q16 b,1,1)CISELNIK POCET laskDOP1 'NepDOP2 typPOR tu, zmCOUNT selnZAKAZNIK =W_IDENT tuW_KOD_OB eW_PLAN_MN W_ID_ZAK *W_CPOL ***W_ID_VYS *W_SKUT_MN W_VYD_SKL W_VYD_UM *W_VYD_TYP W_PRI_SKL W_PRI_UM _W_PRI_TYP W_ICO 1_obW_ZAVOD tW_NAZEV kW_MJ planW_POPIS_OBW_STRED W_DOKLAD W_NAKLAD W_VADNE_MNMM_AUTOR sW_JMENO w_JMENO_C WJMENO_C uOK_C w_idRADEK_C d_SLOUPEC_C P_KONSIG1 P_KONSIG2 p_zob='POMOC do zobr_RAD th w_iSL in modPOC *KONTROLA oBARVAS ladBARVAR zoBARVAZ th BARVAU in BARVAN BARVAH e pBARVA w_prZOBR_SKL MOD_PROC lHLASKA DRUH_SKL kKONSIG W_TERMIN W_DAT_UCT ithPORADI inKONEC case R = 'w_Z k' andU le('m7_rT .DBF') do zobr_A e with wZMENY in VOL11 otherw &barva &barvan Sklad-2 Doklad zev polo 99999999.999 ntW_KOD_OB W_IDENT aW_SKUT_MN W_STRED enW_ID_ZAK W_VYD_UM W_VYD_TYP W_PRI_SKL W_PRI_UM W_PRI_TYP W_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' w_vyd_typ @ x,56 &vloz w_vyd_typ picture '!X' w_pri_skl @ x,59 &vloz w_pri_skl picture '@!X' w_pri_um @ x,64 &vloz w_pri_um picture '@!X' w_pri_typ @ x,69 &vloz w_pri_typ picture '!X' w_doklad @ x,72 &vloz w_doklad picture '999999' @ x+1,59 &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 ntW_KOD_OB POCET KUT_MN D_ZAK YD_UM YD_TYP RI_SKL RI_UM RI_TYP OKLAD PIS_OBQ11 P_ZOB ----M1_UM ---W_IDENT --W_VYD_SKL W_VYD_UM -UM_SKL aM1_OBR uV4_SKLAD _W_PRI_SKL W_PRI_TYP DRUH_SKL ,P_KONSIG2 KONSIG vrPROC1 HLASKA oM1_IDENT _KOD_POL doNAZEV 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 D_TYP RI_SKL RI_TYP PIS_OBVOLBA sNAP_HOD sP_ZOB K_UDAJU --KONTROLA -W_PLAN_MN W_SKUT_MN W_NAKLAD -W_TERMIN aW_PRI_SKL W_PRI_UM _W_PRI_TYP W_ICO W_ZAVOD ,W_POPIS_OBW_DAT_UCT POCET obPOM ehled polo ehled st edisek Informace o um Informace o obratech ehled k obrat Konec mod_proc inlist(kod_pol,'F','P','S','A','B','C','O','R') &barvau mod_proc mod_proc mod_proc mod_proc &barvau ntVOL ZOBR_POL aW_IDENT W_NAZEV enW_MJ MOD_PROC D_TYP IDENT ZOBR_STR W_STRED M1_OBR BZOBR_UM sZOBR_OB sZOBR_OBV W_KOD_OB colora set color to &color ntCOLOR KOD_OB w_kod_ob m1_kalk x1_kalk Lze nav t pouze v dej, p esun a inventuru Nepovolen typ obratu, zm KONTROLA tJMENO_C WJMENO_C aMOD_C2 enRADEK_C D_PROC SLOUPEC_C MOD_C1 BR_STR P_KONSIG1 W_NAKLAD BW_POLE4 sM1_KALK sX1_KALK W_IDENT -PL_OD -TYP_NAKL IDENT -W_KOD_OB aKONTR_VR HLASKA _KONTR_IS KONTR_TR m1_obr M1_OBR tIDENT 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 sZAVOD DOKL_CIS -IDENT_ZAK IDENT_VYS VADNE_MNOZZASOBA aNAKLAD JMENO MESIC W_IDENT ,W_TERMIN BW_KOD_OB W_PLAN_MN W_SKUT_MN W_VYD_SKL W_VYD_UM _W_VYD_TYP W_PRI_SKL W_PRI_UM tW_PRI_TYP W_POPIS_OBW_STRED suW_ICO entuW_ZAVOD =W_DOKLAD uW_ID_ZAK uW_CPOL od_W_ID_VYS SW_VADNE_MNM1_UM casW_NAKLAD _MM_AUTOR )W_ROK oW_MESIC ZAPIS_AKT M1_IDENT 'Nepb novan dej nen povolen Hromadn polo ka - k d obratu nelze pou Hodnota mno t vypln edisko mus t uvedeno v1_str x1_str edisko neexistuje v souboru st edisek zka mus t uvedena m7_rene zka neexistuje v souboru nedokon kaz je ji ukon Nedostate soba na um m1_rez.dbf2 m1_rez m1_rez ident znam rezervace z sob nen stupn Nelze vydat, nutno zru it rezervaci Nelze vydat, rezervov no pro F Nelze vydat, z soba je rezervovan znam o um sob nen stupn znam ch nen stupn W_KOD_OB tHLASKA RMIN_OB ID_ORG M1_PLAN W_IDENT KUM_VYDEJ M1_OBR W_SKUT_MN W_STRED KLV1_STR X1_STR W_ID_ZAK W_POLE4 sM7_RENE PODNIK -STAV_VP M1_UM W_VYD_SKL W_VYD_UM ZW_VYD_TYP ZASOBA VAZBA_REZ M1_REZ IDENT KOD_REZ OPRAVNENI MM_AUTOR W_DISPON REZERVACE VYDANO W_REZ SKLAD UM_SKL TYP_UM tZALOZ_ZAS VYDEJ M1_ZAS DATUM_VYD ZAPIS_OBR KONTROLA Tento k d obratu nen povolen Hodnota skute ho mno nesm t men znam o um sob nen stupn znam ch nen stupn W_KOD_OB tHLASKA RMIN_OB W_SKUT_MN M1_UM W_IDENT W_VYD_SKL W_VYD_UM W_VYD_TYP IDENT KLSKLAD UM_SKL TYP_UM M1_OBR ZALOZ_ZAS W_PLAN_MN ZASOBA ROZDIL INV_UM M1_ZAS ZINV_ROZDILDATUM_INV ZAPIS_OBR KONTROLA novan esun nen povolen Hodnota skute ho mno Sklad mus t uveden Sklad neexistuje Nelze prov esun na jin mebo expedi sklad Nelze prov esun z konsigna ho skladu Nelze prov esun na konsigna sklad Nedostate soba na um znam o um sob (SKLAD1) nen stupn Nelze p esunout, z soba je rezervovan znam o um sob (SKLAD2) nen stupn W_KOD_OB tHLASKA RMIN_OB W_SKUT_MN W_PRI_SKL V4_SKLAD M1_OBR DRUH_SKL P_KONSIG1 P_KONSIG2 M1_UM W_IDENT W_VYD_SKL W_VYD_UM W_VYD_TYP ZASOBA REZERVACE W_PRI_UM W_PRI_TYP IDENT ZSKLAD ILUM_SKL TYP_UM PRESUN ZAPIS_OBR KONTROLA M1_ZAS tW_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 tX_DS M5_AKT VNIIDENT ZAVRI DUVOD 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 w_pri_um mod_proc w_doklad mod_proc w_pri_skl mod_proc w_stred mod_proc w_id_zak m7_rene.DBF2 mod6_lib Pro toto pole neexistuje pomocn ehled hodnot P_ZOB tZOBR_OBV MOD_PROC W_KOD_OB IZOBR_POL W_IDENT W_NAZEV ZOBR_UM ZOBR_OB ZOBR_SKL W_SKLAD2 ZOBR_STR W_STRED ZOBR_RENE W_ID_ZAK MOD6_LIB HLASKA MOD54BX PORADI PROC1 say ' ZMEN1 say ZMENY pictu VOLBA r,72 HLASKA ad p=+ K_UDAJU V, ZAPIS_OBR KONTR_VR KONTR_IS KONTR_TR ZALOZ_ZAS ZAPIS_AKT ****** NAP_HOD ***\N X:\OBEC\05\ MOD54B.FXP X:\OBEC\05\MOD54B.PRG