Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-03-19 | 70KB | 1,412 lines

W_AKT e.cAKTUAL1 m_param w_modulf RECEPTURY RECEPTURY w_modulf VYR,ODL VYR,ODL w_modulf VYR,ODL VSECHNO-ODL w_identf w_datumf Aktualizace rozpisky : Prohl rozpisky : RIIS 1.1 rozpiska it rozpisku Kopie rozpisky vrat Konec c1_uzly ka neexistuje mod1pro M_PARAM .cW_NOVEMAT POLE1 MRADAID foKONRADY ROZP_VYS ROZP_VV poZMENA th eDALSI POMOC elsPAM CV exitZMENAV ZMENAS P_ZOB endUROVEN W_MODUL P_TYP endiW_IDENT W_DATUM OTEVRI_DB W_AKT ID_ORG r=cVYBER_POL P_VYSKOC NASTAV_ID M1_IDENT AKTUAL2 VOLBA vlozC1_UZLY ZRUSIT vHLASKA ZRUS_POL MOD1PRO g=FINAL_N d KOPIE_ROZPZVOL c_kvyr c_kmat KONEC .cW_EXIST OBR_C1 SVITI_C foJMENO_C WJMENO_C RADEK_C poSLOUPEC_C TYP_C OK_C elsODPOV POCET exitC1_UZLY W_IDENT ROZPISKA dW_ZMENA W_PLOD NASTAV_ZMEW_DATUM M1_IDENT ZAL_ROZP FINAL ROZP_VYS cIDENT VYSKOC HLAVA KUSOV NAPLN_CK C_KVYR ozHOR DOL US_POL PROC1 g=C_KMAT d PROC2 ROZPQ ZMENY w+/bg bg/n8 set color to &barva kladn daje Model: Se.id: Ex.id: SKP : Akt. : - Autor: Post.: Cel.saz.: BARVA EXIST WTEXT UROVEN foID_ORG Materi Struktura v robku Struktura v robku Materi Komponenta zev sou sti/materi Datum .cWTEXT UROVEN set color to &barva vykres set color to &barva !XXXX 99999.999 9999.99 999999.99 BARVA UROVEN foM1_IDENT ROZP_VYS M1_KUSOV oVYKRES ROZP_VV C_VYKRESU NAZEV KOD_POL SEK_IDENT IDENT_ODB JAK_CSN ROZM_CSN AKTUAL DATUM AUTOR P_VYS cRADA C_POSTUP CEL_SAZ DOD_CSAZ ID_ORG ozM1_PLAN VAHA_MJ vPLOCHA_R M1_KALK nazev @ 4,9 &vloz nazev pict '@X' kod_pol @ 4,40 &vloz kod_pol pict '!' mod_proc mod_proc @ 4,48 &vloz mj pict '!!!' sek_ident @ 5,9 &vloz sek_ident pict '@X' ident_odb @ 6,9 &vloz ident_odb pict '@X' @ 7,9 &vloz skp pict '@X' jak_csn @ 5,36 &vloz jak_csn pict '@X' rozm_csn @ 6,36 &vloz rozm_csn pict '@X' @ 7,36 &vloz typ pict '@X' @ 6,59 &vloz rada pict '@!X' @ 6,75 &vloz stav pict '@!X' c_postup @ 7,59 &vloz c_postup pict '@!X' cel_saz @ 8,12 &vloz cel_saz dod_csaz @ 8,36 &vloz dod_csaz UROVEN M1_IDENT oM1_KUSOV C_VYKRESU P_ZOB oPOCET ZP_VV VLOZ P_POM KOD_POL itZMEN_KP ZMEN_KPOL W_IDENT MOD_PROC ZALOZ_PLANIDENT ZMENAV W_AKT DATUM cAKTUAL MM_AUTOR set color to &barva BARVA _IDENT _KUSOV KRESU POZ C_VYKRESU itD1OP SPOTREBA DATUM_AKT M1_IDENT YKRESU NAZEV PLANJ @x,2 &vloz poz pict '999' @x,6 &vloz c_vykresu pict '@!X' ident_odb Nelze nav st, polo ka ji existuje v extern identifikaci ident ident Lze nav t pouze vyr Lze nav t pouze materi mod_proc mod_proc FFFZ^D mod11a select &sel MNTUXYZ @x,19 &vloz op_v pict '@9' @x,23 &vloz d1op pict '@9' @x,32 &vloz spotreba @x,43 &vloz nazev pict '@X' POCET M1_IDENT C_VYKRESU _KUSOV VLOZ ZMENAS M1_POZST IDENT POZICE P_VYKR ID_ORG IDENT_ODB HLASKA VYKRESU KOD_POL C1_UZLY VYKRESU ROZP_VYS cV_UROVEN AUTOR NOVY_Z DATUM C_POSTUP ZALOZ_PLANRADA vMOD_PROC NDETAIL IDENT PROCX ROZPY_PUV MOD11A1 NAZEV sDRUH toKOD_DS sD1OP vykSPOTREBA ZMENAV nAKTUAL MM_AUTOR lDATUM_AKT HIDENT ZMENA PROC1 ZMEN1 HELP - ipky,<Enter> - F2 - ^End,Esc - F1 - F8 - F10 Pohyb esun Konec help Funkce HELP - ipky,<Enter> - F2,F3 - ^PgUp,^PgDn - ^Home - ^End,Esc - F6/F7 - F1 - F10 Pohyb Konec help Funkce do proc&y do zmen&y do zmen&y do proc&y MNTUXYZ Nakupovan polo ka nem t strukturu c_kmat c_kvyr c_kmat c_kvyr c_kmat pozice vypln slo komponenty c1_uzly c_kmat c_kvyr c_kmat c_kvyr mod11a c_dat Pozice: Detail po ehled polo Pozn mky struktury Konec select &sel vypln slo komponenty mod11a select &sel mod_proc inlist(kod_pol,'F','P','S','A','B','C','R','V','I','O','J','K','G') mod_proc inlist(kod_pol,'M','N','T','U','X','Y','Z') na text select &sel vypln slo komponenty select &sel c_dat cursorz mod11a sobovac daje novac daje kladov daje Dopl text kaznick identifikace hrady polo ky - TPV hrady polo ky - ODB Invent informace daje Historie struktury kaznick identifikace Charakteristiky Konec do mod41a1 do mod41a2 do mod41a32 do mod41a4 do mod41a6 do mod41a5 with 'TPV' do mod41a5 with 'ODB' do mod41a7 with .t. do zmen_ud do zobr_rozp do mod11o2 in mod11o do s01011a deactivate popup volba set cursor &Mcursor vypln slo komponenty it pr ci beze zm n? (a/N) P_POM .cKOD_POL P_VYKR VYKRESU _KUSOV _POZST KONEC T_ODB W_AKT VYKRESU POMOC ROVEN HLASKA K_UDAJU HLAVA PROC0 KUSOV PLANC_KMAT vPROC2 C_KVYR NDRUH =DATUM_OD W_PLOD OZPC_ZM_ZRIZ W_ZMENA ecDATUM_AKT AUTOR sMM_AUTOR oAKTUAL PROC1 C_VYKRESU M1_KUSOV POZICE UROVEN ROZP_VV ROZP_VYS M1_IDENT jZAL_ROZP W_IDENT aNASTAV_ZMEW_DATUM oNAPLN_CK eC1_UZLY ctROZPISKA NAP_HOD P_ZOB OBR2 SEL retuZAR CISLOP IDENT set CISLOV idCISLOVPOZ ek e.cPROCX C_DAT if VOLBA andDETAIL Y_PUV m1_iNOVY_Z _poMOD11A1 ,'Z_IDENT ',Z_NAZEV Z_MJ ZOBR_POL wMOD_PROC aMESS MCISLOP sMCISLOV MCISLOVPOZZMENA M1_POZST AKTPOZNKOMHIDENT ithDATUM X_ZMENA W_POLE PLAN_STAV PLAN_ZMEN ZMENAV if MCURSOR PP_IDENT (PRG_ZAS 2'PRG_PLAN tPRG_KALK kPRG_POZID PRG_NPOL 'PRG_NAHRT PRG_NAHRO PRG_IIP ',PRG_CHAR PRG_ZMEN hPRG_HSST PRG_ZAKID ID_ORG matPOUZ_POPUPSTAV POCET P_DRUH rozpiska it rozpisku Kopie rozpisky vrat Konec mod1pro slo nov rozpisky: @!XXXX tek ident. neexistuje, nave te cel slo t to ident.! @!XXXXXXXXXXXX Nebylo zad slo rozpisky Rozpiska ji existuje, nit rozpisku ? VOLBA .cULOZ ZRUSEN ZVOL KONEC DALSI FINAL oW_IDENT M1_IDENT ZRUS_POL MOD1PRO FINAL_N MRADAID MDEL_RADY W_RAD MVYSKOC _DELKA IDENT HLASKA cODPOV KOPIE HLAVANR PROC0 MOD_SYS slo nov rozpisky: @!XXXX tek ident. neexistuje, nave te cel slo t to ident.! @!XXXXXXXXXXXX Nebylo zad slo rozpisky Rozpiska ji existuje, nit rozpisku ? FINAL_N .cKOPIE MRADAID MDEL_RADY W_RAD MVYSKOC M1_IDENT _DELKA IDENT HLASKA ODPOV HLAVANR rozpisky... m1_ident c_kopie c_kopie c_kopie c_pozst+ c_pozst c_pozst m1_pozid m1_pozid x1_pozid c_kopie+ c_kopie c_kopie .cODPOV W_IDENT W_KOP FINAL_N M1_KUSOV C_KOPIE IDENT C_ZM_ZRIZ C_ZM_ZRUS DATUM_OD DATUM_DO DATUM_AKT M1_POZST C_VYKRESU C_POZST ID_ORG M1_POZID X1_POZID TYP_TX M1_IDENT MOD11A5 .cM1_ZMENA W_IDENT IDENT PL_OD W_DATUM W_ZMENA CIS_ZMENY W_PLOD FFFZ^D c_kvyr c_kmat.dbf2 c_kmat pozice use &soub5 exclusive select &st_sel ST_SEL .cZMENA SOUB5 C_KVYR C_KMAT IDENT ROZP_VYS C_VYKRESU XC_KVYR ZAPIS_AKT M1_KUSOV POZICE ZRUS_POR DATUM_AKT ZMENA_POR DATUM_OD W_PLOD C_ZM_ZRIZ W_ZMENA AUTOR MM_AUTOR AKTUAL m1_kusov M1_KUSOV cC_ZM_ZRIZ W_ZMENA C_ZM_ZRUS DATUM_DO W_PLOD DATUM_AKT W_POM1 W_POM2 C_KVYR IDENT C_VYKRESU OP_V DATUM_OD KUSY_DE ROZMER SPOTREBA POSUNUTI AKTUAL AUTOR KOD_KOMP PROC_POD OBJEM MM_AUTOR m1_kusov m1_kusov m1_kusov m1_kusov m1_kusov m1_kusov m1_kusov m1_kusov cW_ZRUS IDENT C_KVYR C_ZM_ZRIZ W_ZMENA DATUM_OD C_VYKRESU DATUM_DO DATUM_AKT C_ZM_ZRUS KUSY_DE ROZMER SPOTREBA POSUNUTI UNUTI AKTUAL AUTOR KOD_KOMP PROC_POD OBJEM W_PLOD MM_AUTOR W_POM1 W_POM2 v1_slov.dbf2 v1_slov v1_slov nazev_ces VYR,ODL, ODLITKY RECEPTURY vyrabene nazev_ces zev polo ky nen obsa en ve slovn mod4_lib KOD_POL m1_ident.kod_pol MJ m1_ident.mj STAV m1_ident.stav Nelze nav st, polo ka ji existuje v identifikaci ! mod_fun ident_odb Nelze nav st, polo ka ji existuje v extern identifikaci ! mod_fun ident ident mod_fun zadan ozna v1_typo.dbf2 v1_typo v1_typo Typ polo ky nen obsa en ve slovn ku typ mod_proc Nebylo uvedeno slo komponenty FPSABCRVIOJKG Nelze nav t materi polo MNTUXYZ Nelze nav t vyr ident_odb Nelze nav st, polo ka ji existuje v extern identifikaci ! mod_fun ident ident Nebyla vypln na pozice Tato pozice ji existuje - duplicita c_kmat Pozice je ji uvedena u materi c_kvyr c_kvyr c_kvyr Pozice je ji uvedena ve vyr ch sou stech c_kmat c_kmat lna operace neexistuje! eba m nulovou hodnotu W_AKT cOK_C ID_ORG V1_SLOV NAZEV_CES P_TYP VYRABENE W_POM M1_IDENT NAZEV UPPERCS HLASKA OTREBA ZALOZ_CNAZIDENT MOD4_LIB JMENO_C WJMENO_C TYP_C MOD_C2 RADEK_C SLOUPEC_C MOD_C1 PODNIK W_IDENT_ODIDENT_ODB ENT_ODMOD_FUN NW_IDENT ODKONRADY ODRADA OZPP1_RADA POM_RADA cZOBR_RADU ZMENAV oV1_TYPO ZALOZ_PLANKOD_POL MOD_PROC C_VYKRESU C_KVYR C_KMAT W_POZICE W_REC D1OP jV1_STR SPOTREBA pouz_popupf pouz_popupf DET_OBR cST_IDZAZ CQ1_ID POUZ_POPUPVOLBA W_IDENT M1_IDENT ZOBR_ROZP1 pozice ka nem strukturu set order to &st_order set color to &barva w+/bg set color to &barva w+/bg set color to &barva w+/bg set order to &st_order w+/bg w+/bg cM1_KUSOV ST_ORDER POZICE PUPW_IDENT HLASKA C_VYKRESU M1_IDENT _IDENT IDENT BARVA W_DRUH NAZPOLOVINA HLAVA6 HELP6 STREC IDENT SAYRAD6A SAYRAD6B NASTAV_F W_REC ZOBR_DET kladn daje daje struktury Detail komponenty Aktualiz. : Autor : DS : zev : Postup : KP : Model : MJ : Sek.ident.: MJ : Ext.ident.: SKP : Objedn SN : Typ : ada : St.: Aktualizoval : Autor : Platnost od : do : ny zru Pozice : Op.vstupu : lna oper. : eba : r : Kusy d prava : as.posun : WTEXT cC_VYKRESU ID_ORG PUPM1_IDENT AKTUAL DATUM AUTOR IDENT PNAZEV C_POSTUP KOD_POL SEK_IDENT IDENT IDENT_ODB JAK_CSN ROZM_CSN DATUM_AKT DATUM_OD DATUM_DO C_ZM_ZRUS C_ZM_ZRIZ SPOTREBA DROZMER KUSY_DE NPOSUNUTI NRADY Nastala chyba vyhled MNTUXYZ Ve struktu e neexistuje materi MNTUXYZ Ve struktu e neexistuje vyr komponenta W_REC cW_DRUH W_IDENT PUPHLASKA M1_IDENT KOD_POL Informace o komponent ch rozpisky Komponenta cDMEZ Spot prava Posun Z.zru Plat. od Plat. do Aktual. cPOLOVINA Konec F6/F7 Pohyb - Esc - Materi - Sou - Sou echno echno - Materi - Detail ,Home,End,PgUp,PgDn W_DRUH set color to &barx cBARX C_VYKRESU set color to &barx 9999.99999 999999 cBARX POLOVINA M1_IDENT NAZEV KOD_POL SPOTREBA PKUSY_DE OSTUP ROZMER POSUNUTI C_ZM_ZRIZ C_ZM_ZRUS DATUM_OD DATUM_DO DATUM_AKT M5_AKT.DBF2 M5_AKT ident m5_akt ident m5_akt select &sel X_IDENT cX_DS M5_AKT IDENT ZAVRI DUVOD daje nalezen rozpisky F EUTITF Model: Se.id: Ex.id: SKP : Akt. : - Autor: Post.: WTEXT cFINAL_N PODNIK ID_ORG NAZEV KOD_POL SEK_IDENT IDENT_ODB JAK_CSN ROZM_CSN AKTUAL DATUM AUTOR UM_DO C_POSTUP colora cHCOLOR colora cMCOLOR FFFZ^D p1_rada p1_rada xp1_rada set filter to &w_filter datez german w_rada ehled v robkov ada N ady Specifikace rada+' '+nazev+' '+specif Zadejte v adu: mod_fun select &st_sel W_RADA cW_FILTER ST_SEL ZAV_RADA P1_RADA XP1_RADA M_DATE GERMAN N_LMEZ N_PMEZ N_HMEZ N_DMEZ N_PROM N_HOD N_POC N_TEXT N_HLAV N_RAD N_NVYH ZOBR_NAP MOD_FUN m1_ident c1_zkus w_PIdent c1_zkus.Posl_Cislo ehled sel posledn ch rozpisek v r ada Rozpiska N ' '+c1_zkus.Rada+' '+c1_Zkus.Posl_Cislo+' '+c1_Zkus.Nazev ada: Mod_Fun W_IDENT cW_PIDENT POM_CELE POM_DELKA POM_CISLO IDENT POSL_CISLONAZEV M1_IDENT KOD_POL C1_ZKUS N_CCUR N_LMEZ N_PMEZ N_HMEZ N_DMEZ N_PROM N_HOD N_POC N_TEXT N_HLAV N_RAD N_NVYH ZOBR_NAP MOD_FUN m1_ident ident c_kvyr c_kmat m1_kusov vykres c_kvyr c_kmat m_dat x_dat m_cis1 x_cis1 c_kvyr c1_strom c1_uzly c_kmat v1_str x1_str m1_zmena x1_zmena m1_plan x1_plan M5_AKT.DBF2 m5_akt ident m1_kalk x1_kalk m1_pozst ident p1_rada xp1_rada cMOD_SYS M1_IDENT IDENT C_KVYR C_KMAT M1_KUSOV VYKRES SLOC_VYKRESU M_DAT X_DAT M_CIS1 X_CIS1 C1_STROM UROVEN VYROBEK XC1_STRO C1_UZLY ROZPISKA XC1_UZLY V1_STR X1_STR M1_ZMENA X1_ZMENA M1_PLAN X1_PLAN DM5_AKT M1_KALK ODX1_KALK NM1_POZST DP1_RADA ODXP1_RADA c_kvyr c_kmat c_kvyr c_kmat c_kvyr c_kmat pozice MNTUXYZ c_kmat c_kvyr vykres W_IDENT cC_KVYR C_KMAT M1_KUSOV POZICE DATUM_OD W_DATUM DATUM_DO OIDENT M1_IDENT KOD_POL C_VYKRESU DATUM_AKT C_ZM_ZRIZ C_ZM_ZRUS KUSY_DE ROZMER SPOTREBA POSUNUTI KUSOV AKTUAL AUTOR KOD_KOMP PROC_POD OBJEM VYKRES nazev VYR,ODL mod_proc inlist(m1_ident.kod_pol,'F','P','S','A','B','C','R','V','O','J','K','G') VSECHNO-ODL mod_proc !inlist(m1_ident.kod_pol,'O','J','K','G') ODLITKY mod_proc inlist(m1_ident.kod_pol,'O','J','K','G') RECEPTURY mod_proc inlist(m1_ident.kod_pol,'K','G') mod_proc inlist(m1_ident.kod_pol,'F','P','S','A','B','C','R','V','O','J','K','G') colorz ident S rozpiskou se pracuje VYR,ODL VSECHNO-ODL EUTIT ODLITKY RECEPTURY VYR,ODL Tuto polo ku nelze aktualizovat, nepovolen VSECHNO-ODL Tuto polo ku nelze aktualizovat, nepovolen RECEPTURY Tuto polo ku nelze aktualizovat, nepovolen ODLITKY Tuto polo ku nelze aktualizovat, nepovolen ident_odb Nelze nav st, polo ka ji existuje v extern identifikaci ident ident W_IDENT cW_DATUM P_TYP P_VYSKOC ID_ROW ID_COL POM_DELEJ M1_IDENT NAZEV M_ORDER MIDENT W_NAZEV ZOBR_POL MOD_PROC MMCOLOR IDENT HLASKA PODNIK DATUM C_POSTUP AUTOR MM_AUTOR AKTUAL KOD_POL IDENT_ODB na : FF W_IDENT cW_DATUM W_ZMENA W_PLOD M1_ZMENA IDENT PL_OD CIS_ZMENY nazev VYR,ODL, ODLITKY RECEPTURY VYROBA VSECHNO mod_proc mod_proc kod_pol KOD_POL m1_ident.kod_pol mod_proc mod_proc m1_ident.mj m1_ident.stav sek_ident mod_proc inlist(kod_pol,'C') Pro toto pole neexistuje pomocn ehled hodnot P_ZOB cW_NAZEV NAZEV P_TYP P_MODUL ZOBR_NAZEVMOD_PROC ZMENAV W_TYP ZOBR_TYP P_POM M1_IDENT KOD_POL MOD_C3 ZMEN_KP ZMEN_KPOL W_IDENT ZALOZ_PLANIDENT ID_ORG Z_IDENT Z_NAZEV ZOBR_POL SEK_IDENT W_RADA ZOBR_RADU HLASKA cursorz c_pozst+ c_pozst c_pozst c_pozst Dopl text po keyboard "{Ctrl+End}" w+/bg Blok zp C_POZST text_tx rad_tx ,b/bg,,,,w+/rb c_pozst set cursor &cCursor LZMENATXT NAZEV POM_OBR CALIAS NLEVY AZEVNDOL NPRAVY VYSKOC OBR_TYP JMENO_C WJMENO_C RADEK_C SLOUPEC_C CCURSOR LJEMENU CDALSIKLK CDALSIKLT M1_POZST CISLOP CISLOV CISLOVPOZ C_POZST IDENT C_VYKRESU POZICE MOD_TXT MOD11A tual% AKTUAL1 AKTUAL2 HLAVA tr (ph KUSOV )='X'b PROC0 ZMEN0 IIF 6 PROC1 bstr ZMEN1 1)), PROC2 &&.t ZMEN2 e dal v rade70 ZMENY ROZHODNI KOPIE_ROZP KOPIE )), .sr ZMEN_UD no, bu ZRUS_POR ZMENA_POR K_UDAJU ZOBR_ROZP ZOBR_ROZP1 ZOBR_DET NASTAV_F HLAVA6 HELP6 se ty, SAYRAD6A SAYRAD6B ZAPIS_AKT HLAVANR HLASKA l')#'U ZOBR_RADU VYBER_POL OTEVRI_DB NAPLN_CK NASTAV_ID NASTAV_ZME NAP_HOD AKTPOZNKOM X:\OBEC\01\ MOD11A.FXP X:\OBEC\01\MOD11A.PRG