Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-04-15 | 32.3 KB | 792 lines

m_param v4_skl_z x4_skl_z m1_obr sklad c_tiskv m1_ident soucasti m1_zas x1_zas m1_um ident v4_sklad x4_sklad m_dat x_dat m_cis1 x_cis1 m1_kalk x1_kalk v1_str x1_str v4_skl_z x4_skl_z c_tiskv m1_plan x1_plan M5_AKT.DBF2 m5_akt ident m7_rene.DBF2 m7_rene 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 d e j s k l a d u : RIIS 4.2 &barvau @!R XXXX mod_proc Sklad neexistuje mod_proc Nelze prov dej z jin ho ne expedi ho skladu Pro zadan sklad nem te opr mod_proc RIIS 4.2 &barvau doklad sklad vrat Konec &barvau &barvau LM_PARAM AW_POLE1 POLE1 W_POLE4 RZPOLE4 TER_UZAV W_ROK W_MESIC V4_SKL_Z X4_SKL_Z PRIHLAS W_SKLAD1 SKLAD M1_OBR KAC_TISKV ENM1_IDENT SOUCASTI RM1_ZAS AX1_ZAS ORM1_UM IDENT V4_SKLAD X4_SKLAD NM_DAT OLORX_DAT NM_CIS1 X_CIS1 ENIM1_KALK NIX1_KALK V1_STR IX1_STR ENIM1_PLAN X1_PLAN M5_AKT M7_RENE NIQ10 FPOCET2 LPOC_ZAZ ZOBR_ZAZ RADEK Q_CENA RINDIK R_KCP_ZOB _TTPOCET LORDOP1 COUNT CENA_NOV KONTROLA EXISTUJE ABARVAS BARVAR ENBARVAT ABARVAZ BARVAU BARVAN MENBARVAH ENZOBR_SKL NMOD_PROC W_NAZEV_SKNAZEV MENHLASKA ZDRUH_SKL ZMOD_SYS W_TYP1 BARVA W_DOKLAD _W_KOD_OB W_TERMIN HLAV1 W_SKUT_MN W_ZASOBA RW_IDENT W_UM1 W_SKLAD2 CW_UM2 CW_TYP2 W_STRED AW_ID_ZAK AW_CPOL AW_ID_VYS AW_POPIS W_NAZEV AW_MJ _HLAV2 KONEC ZMENY EVOL11 KAOBR1 COLORM _W_MENA &barvau &barvas &barvaz &barvar &barvaz &barvat dejka Druh p. &barvau W_NAZEV_SK3 &barvas &barvau &barvar &barvaz &barvat &barvan Mno Rozpiska Z Sklad-2 &barvau &barvau &barvas &barvau W_DOKLAD KW_KOD_OB &barvas &barvau 99999999.999 &barvau DOKLAD KW_IDENT KM1_IDENT W_NAZEV NAZEV RZW_MJ M1_OBR W_SKUT_MN W_STRED W_ID_ZAK W_ID_VYS W_UM1 W_POPIS W_SKLAD2 W_UM2 KAW_TYP2 &barvau w_doklad @ 4,14 &vloz w_doklad pict '999999' w_kod_ob @ 4,30 &vloz w_kod_ob pict '@!X' DOKLAD KPOCET1 P_ZOB C_TISKV RZM1_OBR &barvau w_ident @ x,2 &vloz w_ident pict '@!X' ka neexistuje Nelze vyd vat jin polo ky ne w_skut_mn @ x,15 &vloz w_skut_mn pict '99999999.999' w_stred @ x,28 &vloz w_stred pict '@!X' w_id_zak @ x,33 &vloz w_id_zak pict '@!X' w_id_vys @ x,44 &vloz w_id_vys pict '@!X' w_um1 @ x,57 &vloz w_um1 pict '@!X' w_popis @ x,62 &vloz w_popis pict '@!X' w_sklad2 @ x+1,44 &vloz w_sklad2 pict '@!X' w_um2 @ x+1,49 &vloz w_um2 pict '@!X' @ x+1,54 &vloz w_typ2 pict '!X' DOKLAD KPOCET2 P_ZOB M1_IDENT _IDENT W_IDENT HLASKA KOD_POL D_VYS W_NAZEV NAZEV M1_OBR PROC2 V4_SKLAD W_SKLAD2 NW_TYP2 LORDRUH_SKL NW_SKLAD1 ENIQ10 do proc&n do zmen&n with 'get' do zmen&n with 'say' &barvau if q<pocet&n it pr ci beze zm n? (a/N) vypln , obrat nelze ulo it pr ci beze zm n? (a/N) KONEC DOKLAD POCET1 W_KOD_OB IDENT PODNIK POCET2 D_VYS W_SKLAD2 AW_UM2 ENW_TYP2 W_STRED UH_SKL ENIOBR1 VOLBA INAP_HOD NIP_ZOB K_HLAVA W_SKUT_MN W_IDENT W_ID_ZAK W_CPOL W_UM1 AW_POPIS KAW_NAZEV KLHLAV1 NIHLAV2 NIPROC1 FMENU LK_OBRATU KONTROLA W_CENA W_CENA_CELRADEK KCPOC_ZAZ HLASKA colorz set color to &Mcolor MCOLOR KMOBR slo v dejky mus t vypln KOD_OB w_kod_ob Lze zad vat pouze v dejov dy obrat KONTROLA W_DOKLAD HLASKA JMENO_C WJMENO_C MOD_C2 RADEK_C SLOUPEC_C MOD_C1 W_KOD_OB ka neexistuje Nelze vyd vat jin polo ky ne Pro tuto polo ku nebyla nalezena platn cena Lze nav t pouze v dej a p KONTROLA M1_IDENT KW_IDENT KHLASKA ZKOD_POL W_POLE4 M1_KALK PL_OD TYP_NAKL IDENT W_NAKLAD W_KOD_OB KONTR_VR AKONTR_TR J.PORKERT Hromadn polo ka - k d obratu nelze pou Hodnota mno t vypln FPSABCOJKG edisko mus t uvedeno FPSABCOJKG 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 Nesoulad identifikace polo ky v souboru M7_RENE zka neexistuje v souboru M7_RENE Nedostate soba na um W_KOD_OB PODNIK KM1_PLAN KW_IDENT KUM_VYDEJ HLASKA D_POL POLE4 M1_OBR W_SKUT_MN M1_IDENT KOD_POL W_STRED W_POLE1 V1_STR W_POLE42 AW_POLE4 NW_ID_ZAK M7_RENE RSTRED AIDENT ORM1_UM W_SKLAD1 W_UM1 W_TYP1 NZASOBA INDIK LOCK_ZAS VYDEJ M1_ZAS DATUM_VYD ZAPIS_OBR KONTROLA novan esun nen povolen Hodnota skute ho mno Sklad mus t uveden Sklad neexistuje esun materi ch polo ek do v ho skladu nelze prov st (F esun na tento druh skladu nelze prov st (F Nedostate soba na um Prove te kondenzaci datab ze M1_UM, informujte firmu SoWA znam o um sob (SKLAD1) nen stupn Prove te kondenzaci datab ze M1_UM, informujte firmu SoWA m1_um znam o um sob (SKLAD2) nen stupn W_KOD_OB KHLASKA M_VYDEJ W_SKUT_MN W_SKLAD2 V4_SKLAD M1_OBR DRUH_SKL M1_IDENT KOD_POL M1_UM W_IDENT W_SKLAD1 W_UM1 W_TYP1 AZASOBA NIDENT SKLAD RUM_SKL ATYP_UM ORW_UM2 W_TYP2 PRESUN ZAPIS_OBR KONTROLA m1_obr c_tiskv 99999999.999 M1_OBR IDENT KTERMIN_OB KOD_OB SKUT_MNOZ VYDAL_SKL VYD_UM_SKLTYP_UM_V PRIJAL_SKLPRI_UM_SKLTYP_UM_P POPIS_OBR STRED_OBR DOKL_CIS IDENT_ZAK IDENT_VYS ZASOBA NNAKLAD JMENO AMESIC ORW_IDENT W_TERMIN W_KOD_OB W_SKUT_MN W_SKLAD1 W_UM1 W_TYP1 W_SKLAD2 W_UM2 W_TYP2 W_POPIS W_STRED IW_DOKLAD W_ID_ZAK W_CPOL W_ID_VYS M1_UM W_NAKLAD MM_AUTOR W_ROK W_MESIC MESIC ZAPIS_AKT M1_IDENT Prove te kondenzaci datab ze M1_ZAS, informujte firmu SoWA m1_zas znam o z ch polo ky FF stupn Prove te kondenzaci datab ze M1_UM, informujte firmu SoWA znam o um sob polo ky FF stupn INDIK X_IDENT KM1_ZAS IDENT _MNOZ HLASKA SKL_HLAVNISKL_HL_UM W_SKLAD1 LW_UM1 _SKLM1_UM W_TYP1 SKLAD UM_SKL TYP_UM p_kody p_name dejka dosud neexistuje P_KODY P_NAME KW_TISKARNAC_TISKV L_HLAVNIMODTESTT S_KCS_CEL _SKLST_ZAZNAM HLASKA STRANA W_SKLAD1 W_DOKLAD VYDAL_SKL DOKL_CIS NTISK_HL TISK_S RUKONCI AP_RESET M1_OBR d e j s k l a d u : MTZ-05 dejka Druh pohybu: Mno Rozpiska Sklad-2 Datum NAZEVT VYDAL_SKL SKARNAP_KODY P_SETUP P_COMP_OFFP_SUBON NIPODNIK P_SUBOFF _SKLP_LETRQUALP_BOLDON P_BOLDOFF P_DRAFT DOKL_CIS KOD_OB LDOFF 99999999.999 P_KODY P_10CPI NAW_SKLAD1 W_DOKLAD VYDAL_SKL DOKL_CIS IM1_IDENT C_TISKV IDENT _SKLSKUT_MNOZ STRED_OBR IDENT_ZAK IDENT_VYS VYD_UM_SKLPOPIS_OBR NAZEV IDENT NPRIJAL_SKLPRI_UM_SKLTYP_UM_P ATERMIN_OB Vydal: ......................... Datum: ................... evzal: ......................... Datum: ................... P_KODY P_DRAFT Zobrazen dejky Zobrazen obrat Konec mod_proc &barvau mod_proc &barvau ehled polo Informace o um Informace o obratech ediska Zobrazen dejky Tisk v dejky Konec mod_proc inlist(kod_pol,'F','P','S','A','B','C','O','J','K','G') Chybn hodnota identifikace polo mod_proc Chybn hodnota identifikace polo mod_proc mod_proc mod_proc &barvau &barvau nazev MNTUXYZ detailn znamy neexistuj material set color to &barva w+/bg w+/bg w+/bg &barvau material Vyhled Zadejte n zev nebo identifikaci polo nazev material material NAZOBR_VYD W_SKLAD1 W_DOKLAD MOD_PROC _IDENT TISKV ZOBR_OBV LW_KOD_OB M1_OBR ZOBR_POL W_IDENT W_NAZEV KLW_MJ HLASKA NZOBR_UM KLZOBR_OB LZOBR_STR AW_STRED OD_OB M1_IDENT NAZEV KOD_POL MATERIAL IRAM6 HELP6 STREC BARVA SAYRAD6 IDENT STZAZ AKLIC W_CESTINA LUPPERCS ehled p o l o e k zev polo Identifikace Jakost set color to &barx NAZEV NAIDENT KLAD1 KOD_POL ROZM_CSN IJAK_CSN Konec Pohyb Enter -Home,End,PgUp,PgDn, -Vyhled r polo Konec Aktualizace - Esc - Enter - F10 M5_AKT.DBF2 M5_AKT ident m5_akt ident m5_akt select &sel X_IDENT NAM5_AKT IDENT ZAVRI IDUVOD Pohyb dejky Funkce Konec <Enter> - ^PgDn - F10 - Esc,^End IDENT w_kod_ob mod_proc w_ident mod_proc inlist(kod_pol,'F','P','S','A','B','C','O','J','K','G') 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 mod6_lib Pro toto pole neexistuje pomocn ehled hodnot P_ZOB ZOBR_OBV MOD_PROC AW_KOD_OB ZOBR_POL W_IDENT W_NAZEV IW_MJ ZOBR_UM ZOBR_OB LZOBR_SKL W_SKLAD2 ZOBR_STR W_STRED PODNIK LZOBR_RENE W_ID_ZAK MOD6_LIB NHLASKA KLMOD252C HLAV1 HLAV2 PROC1 PROC2 ZMEN1 ZMEN2 ZMENY HLASKA K_HLAVA K_OBRATU KONTR_VR KONTR_TR ZAPIS_OBR LOCK_ZAS TISK_HL TISK_S UKONCI VOLBA SAYRAD6 HELP6 HELP7 ZAPIS_AKT NAP_HOD P:\IN\SK\O\02\ MOD252C.FXP P:\IN\SK\O\02\MOD252C.PRG