Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-03-26 | 31KB | 885 lines

MOD42EX v4_skl_z x4_skl_z m1_obr ident c1_obr m1_ident material m1_zas x1_zas m1_um ident v4_sklad x4_sklad m_dat x_dat m_cis1 x_cis1 m_param c1_obr p_kody p_name m1_plan x1_plan M5_AKT.DBF2 m5_akt ident m7_rene.DBF2 m7_rene m5_plan zakazka m5_komp zakazka d e j s k l a d u : RIIS 4.2 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 materi ho skladu v4_skl_z x4_skl_z Pro zadan sklad nem te opr mod_proc &barvau sklad vrat Konec o V4_SKL_Z X4_SKL_Z ePRIHLAS neW_SKLAD pnSKLAD aM1_OBR IDENT C1_OBR M1_IDENT MATERIAL nM1_ZAS X1_ZAS konM1_UM a doV4_SKLAD aX4_SKLAD -M_DAT ct mX_DAT eek M_CIS1 w_sX_CIS1 um1M_PARAM W_POLE1 esPOLE1 ravnW_POLE4 u POLE4 ifPOM () andTER_UZAV iW_ROK sW_MESIC adP_KODY 1#uP_NAME tyW_TISKARNAM1_PLAN hlX1_PLAN 'M5_AKT koM7_RENE ze M1_UID_ORG mujM5_PLAN SoZAKAZKA =M5_KOMP =P_ZOB endif Q2 * ---Q3 soba neQ4 tuje neQ5 e mensiQ6 vydavaQ7 nozstviQ8 -------Q9 w_skutQ10 0 andQ11 ()) orQ12 ba<w_sQ13 Q14 Q15 dQ16 ska wiCISELNIK sobDOL POCET trimDOP1 asobaDOP2 )+')'POR returnCOUNT ZAKAZNIK -W_PLAN_MN W_SKUT_MN W_VADNE_MNW_NAKLAD -W_IDENT _rW_KOD_OB iW_ID_ZAK _W_CPOL W_ID_VYS eW_SKLAD1 )W_UM1 selW_TYP1 W_SKLAD2 eW_UM2 ideW_TYP2 ndiW_ICO W_ZAVOD 1_W_POPIS eeW_STRED +wW_DOKLAD uJMENO_C akWJMENO_C OK_C W_TISK_V nW_POC_VYD P_KONSIG1 P_KONSIG2 RADEK_C =SLOUPEC_C POMOC askaY th 'Z znRAD zervacSL sob nenPOC stupn KONTROLA eBARVAS BARVAR aseBARVAZ mn<BARVAU vaBARVAN = .BARVAH *BARVA se kZOBR_SKL MOD_PROC W_NAZEV_SKNAZEV HLASKA ka DRUH_SKL eKONSIG rW_TERMIN NW_MJ rW_NAZEV opPORADI mm_KONEC nd oX eni#spR q = 1T do Q ex x1_stA seek ZMENY VOL11 do hlh &barva &barvan Sklad-2 Doklad zev polo Cena celkem W_NAZEV_SKID_ORG 99999999.999 999999 999999.99 NAZEV_SKW_KOD_OB KW_IDENT eW_SKUT_MN W_STRED pnW_ID_ZAK aW_UM1 W_TYP1 W_SKLAD2 W_UM2 W_TYP2 nW_DOKLAD M1_IDENT nW_NAZEV oNAZEV aW_MJ ct mM1_OBR ek ID_ORG _sW_POPIS m1M1_PLAN NAKLAD w_kod_ob @ x,2 &vloz w_kod_ob pict '@!X' w_ident @ x,6 &vloz w_ident pict '@!X' w_skut_mn @ x,19 &vloz w_skut_mn pict '99999999.999' w_stred @ x,33 &vloz w_stred pict '@!X' w_id_zak @ x,39 &vloz w_id_zak pict '@!X' w_um1 @ x,51 &vloz w_um1 pict '@!X' w_typ1 @ x,56 &vloz w_typ1 pict '!X' w_sklad2 @ x,59 &vloz w_sklad2 pict '@!X' w_um2 @ x,64 &vloz w_um2 pict '@!X' w_typ2 @ x,69 &vloz w_typ2 pict '!X' w_doklad @ x,72 &vloz w_doklad pict '@!X' w_popis @ x+1,39 &vloz w_popis pict '@!X' @ x+1,51 &vloz w_popis pict '@!X' Chybn hodnota sla polo ka neexistuje Pro tuto polo ku nelze nav t skladov obraty (k d polo ky R,V,I) U polo ky nen uveden k d polo ky - nelze nav t obraty MNTUXYZ Nejedn se o materi lovou polo EV_SKNASTAV_Q IDENT KUT_MN P_ZOB pnW_KOD_OB aW_STRED M1_UM W_IDENT W_SKLAD1 nW_UM1 UM_SKL nM1_OBR ct mQ6 ek Q7 m1V4_SKLAD W_SKLAD2 sW_TYP2 DRUH_SKL P_KONSIG2 KONSIG andQ9 adQ12 1#uID_ORG tyW_ID_ZAK APROC1 hlHLASKA koM1_IDENT aKOD_POL ujNAZEV IDENT &barvau do proc&y do zmen&y with 'get' do zmen&y with 'say' it pr ci beze zm n? (a/N) KONEC V_SKI STAV_Q IDENT KUT_MN SKLAD1 nOBR1 nVOLBA oNAP_HOD aP_ZOB -K_UDAJU mKONTROLA W_PLAN_MN W_SKUT_MN W_NAKLAD W_TERMIN sW_SKLAD2 W_UM2 W_TYP2 W_ICO andW_ZAVOD iW_POPIS adPOCET 1#uPOM tyTISKV mod_lib mod_lib Prob tisk ... mod42e1(!9 ID_ORG _SKC1_OBR KM1_OBR eP_SETUP P_RESET pnP_6LPI aP_8LPI P_10CPI P_12CPI P_16CPI P_20CPI nP_BOLDON P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON -P_ITALOFF P_SUPERON P_SUPEROFFP_SUBON P_SUBOFF P_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT P_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY AMOD_LIB lW_TISK 'NASTAV_PRNIDENT aM1_IDENT UOBRT jMESS oPOCET =KOD_OB =MOD42E1 ehled polo ehled st edisek Informace o um Informace o obratech ehled k obrat Akce vnitropod. Tisk v dejek: Konec do pprg with 'zobr_pol' do pprg with 'zobr_str' do pprg with 'zobr_um' do pprg with 'zobr_ob' do pprg with 'zobr_obv' do pprg with 'zobr_avnu' do pprg with 'tisk_vyd' deactivate popup volba _SKVOLBA KW_TISK_V eID_ORG zobr_pol mod_proc inlist(kod_pol,'M','N','T','U','X','Y','Z') zobr_str mod_proc zobr_um mod_proc zobr_ob mod_proc zobr_obv mod_proc tisk_vyd zobr_avnu mod4_lib Nespr nastaven pomocn ehledu W_TYP _SKTISKS KVOLBA eZOBR_POL MOD_PROC nW_IDENT aW_NAZEV W_MJ ZOBR_STR W_STRED ZOBR_UM nZOBR_OB ZOBR_OBV W_KOD_OB W_TISK_V FZOBR_AVNU MOD4_LIB W_ID_ZAK HLASKA SUBON SUBOFF M1_OBR colora set color to &color _SKCOLOR KOD_OB w_kod_ob m1_kalk x1_kalk Prove te kondenzaci datab ze M1_KALK, informujte firmu SoWA Pro tuto polo ku nebyla nalezena platn cena Lze nav t pouze v dej, p esun a inventuru Nepovolen d obratu, zm KONTROLA KJMENO_C KWJMENO_C eMOD_C2 nRADEK_C NAZEV SLOUPEC_C MOD_C1 STRED BR_UM nW_POLE4 P_KONSIG1 M1_KALK X1_KALK FW_IDENT IDENT TYP_NAKL HLASKA OFFPL_OD M1_IDENT KOD_POL W_NAKLAD LW_KOD_OB KONTR_VR FKONTR_IS KONTR_TR m1_obr c1_obr 99999999.999 M1_OBR KIDENT KTERMIN_OB KOD_OB PLAN_MNOZ SKUT_MNOZ VYDAL_SKL VYD_UM_SKLTYP_UM_V PRIJAL_SKLPRI_UM_SKLTYP_UM_P POPIS_OBR STRED_OBR FZAVOD DOKL_CIS IDENT_ZAK OFFIDENT_VYS VADNE_MNOZZASOBA NAKLAD FJMENO MESIC FW_IDENT W_TERMIN FW_KOD_OB W_PLAN_MN W_SKUT_MN W_SKLAD1 AW_UM1 lW_TYP1 'W_SKLAD2 NW_UM2 aW_TYP2 UW_POPIS jW_STRED oW_ICO =W_ZAVOD =W_DOKLAD uW_ID_ZAK W_CPOL ---W_ID_VYS eW_VADNE_MNM1_UM ensiW_NAKLAD aMM_AUTOR iW_ROK ----W_MESIC utW_TISK_V NTISK ba<w_sZAPIS_AKT M1_IDENT d+ novan dej nen povolen Hromadn polo ka - k d obratu nelze pou m7_vpa m7_vpa zka nebyla nalezena v souboru vnitropodnikov ch akc Hodnota mno t vypln MNTUXYZ edisko mus t uvedeno MNTUXYZ v1_str x1_str edisko neexistuje v souboru st edisek zka mus t uvedena m7_rene VP neexistuje v souboru M7_RENE Nesoulad st ediska v souboru M7_RENE zka neexistuje v souboru M7_RENE m5_plan novan zka - v dej nelze prov zka - v dej nelze prov Komponenta nebyla pro tuto zak zku nalezena znam o komponent stupn Prove te kondenzaci datab ze M1_UM, informujte firmu SoWA 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 m1_um znam o um sob nen stupn Prove te kondenzaci datab ze M1_ZAS, informujte firmu SoWA znam ch nen stupn W_KOD_OB KID_ORG KHLASKA AN_MNOZ M1_PLAN W_IDENT KUM_VYDEJ M1_OBR W_POLE4 LW_ID_ZAK LM7_VPA W_SKUT_MN FM1_IDENT KOD_POL W_STRED W_POLE1 FFV1_STR X1_STR NOZW_POLE42 M7_RENE FSTRED LM5_PLAN W_CPOL FW_PL_VYDEJSTAV EJTYP_OBJ M5_KOMP NASEL ZAKAZKA ACPOL lIDENT_KO 'M1_UM NW_SKLAD1 aW_UM1 UW_TYP1 jIDENT oSKLAD =UM_SKL =TYP_UM uZASOBA VAZBA_REZ M1_REZ eKOD_REZ OPRAVNENI MM_AUTOR aW_DISPON REZERVACE VYDANO W_REZ ZALOZ_ZAS MNO_VYD EJMNO_VYS VYDEJ M1_ZAS DATUM_VYD ZAPIS_OBR KONTROLA Tento k d obratu nen povolen Hodnota skute ho mno nesm t men Prove te kondenzaci datab ze M1_UM, informujte firmu SoWA m1_um znam o um sob nen stupn Prove te kondenzaci datab ze M1_ZAS, informujte firmu SoWA znam ch nen stupn W_KOD_OB KHLASKA W_SKUT_MN M1_UM W_IDENT W_SKLAD1 W_UM1 W_TYP1 LIDENT LSKLAD UM_SKL TYP_UM ZALOZ_ZAS W_PLAN_MN ZASOBA ROZDIL INV_UM M1_ZAS INV_ROZDILDATUM_INV ZAPIS_OBR KONTROLA novan esun nen povolen Hodnota skute ho mno Sklad mus t uveden Sklad neexistuje esun na tento druh skladu nelze prov st (F Nelze prov esun z konsigna ho skladu Nelze prov esun na konsigna sklad Nedostate soba na um Prove te kondenzaci datab ze M1_UM, informujte firmu SoWA znam o um sob (SKLAD1) nen stupn Nelze p esunout, z soba je rezervovan Prove te kondenzaci datab ze M1_UM, informujte firmu SoWA m1_um znam o um sob (SKLAD2) nen stupn W_KOD_OB KHLASKA W_SKUT_MN W_SKLAD2 V4_SKLAD M1_OBR DRUH_SKL P_KONSIG1 P_KONSIG2 M1_UM W_IDENT W_SKLAD1 W_UM1 W_TYP1 ZASOBA IDENT SKLAD UM_SKL TYP_UM DILREZERVACE W_UM2 W_TYP2 PRESUN ZAPIS_OBR KONTROLA m1_zas M1_ZAS KW_IDENT KIDENT SKL_HLAVNISKL_HL_UM W_SKLAD1 W_UM1 Prob tisk ... mod42e2 M1_OBR KBOLD_ON KP_KODY P_BOLDON IBOLD_OFF P_BOLDOFF NLQ_ON P_LETRQUALNLQ_OFF P_DRAFT SUB_OFF P_SUBOFF SUPER_ON P_SUPERON SUPER_OFF P_SUPEROFFHUSTE_ON P_10CPI P_COMPRESSHUSTE_OFF P_COMP_OFFPICA_ON ELITE_ON P_12CPI P_SUBON JP_RESET EJM1_IDENT LIDENT OBRMESS AP_SETUP lMOD42E2 'W_POC_VYD colora set color to &color KCOLOR M5_AKT.DBF2 M5_AKT ident m5_akt ident m5_akt select &sel X_IDENT KX_DS M5_AKT IIDENT ZAVRI DUVOD QUALy Pohyb Funkce Konec <Enter> - ^PgDn - F10 - Esc,^End w_kod_ob mod_proc w_ident mod_proc inlist(kod_pol,'M','N','T','U','X','Y','Z') w_skut_mn mod_proc w_um1 w_um2 mod_proc w_doklad mod_proc w_sklad2 mod_proc w_stred mod_proc w_id_zak m7_rene.DBF2 mod6_lib Pro toto pole neexistuje pomocn ehled hodnot P_ZOB KZOBR_OBV KMOD_PROC W_KOD_OB IZOBR_POL W_IDENT W_NAZEV QUALZOBR_UM ZOBR_OB ZOBR_SKL W_SKLAD2 ZOBR_STR W_STRED ZOBR_RENE W_ID_ZAK FMOD6_LIB HLASKA q&si = pocet q&si = 0 R_OBV KW_KOD_OB W_STRED IW_SKLAD2 W_UM2 W_TYP2 ID_ORG LW_ID_ZAK POCET R_SKL MOD42EX PORADI PROC1 , str ZMEN1 ZMENY doklb! TISKV t_zakG( VOLBA ent_vV, vadne|/ HLASKA K_UDAJU ZAPIS_OBR KONTR_VR KONTR_IS KONTR_TR ZALOZ_ZAS w_sk m1, w_'c ZAPIS_AKT wXe NAP_HOD NASTAV_Q X:\OBEC\04\ MOD42E.FXP X:\OBEC\04\MOD42E.PRG