Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1998-11-19 | 46KB | 1,078 lines

FPSABCRVIOJKG CDEHLY FPSABCRVOJKG MNUXYZ FPSABCRVIO CDEHLYJKG FPSABCRV OMNUXYZ MM_odpadf cNaklTypf Hromadn et aktu ch kalkulac Hromadn et pl n. kalkulac bez odpadu Hromadn et pl ch kalkulac RIIS 1.7 Chcete p tat n klad. daje? Pokud ano, od tohoto okam budou platit tyto nov hodnoty. POZOR ! Nejsou zobrazov ny chyby v Pokud byly zm ny tarif. t v postupech, mus edem pro- st hromadn et tarif ! V et trv dlouho ! Ukon lohu Prov set color to b/w set color to w/w Na z tu vznikne sestava polo ek, kter kalkulaci o dan procento a v ce odli od d hodnoty. Zadejte procento, od kter ho chcete zobrazovat rozd ly mezi a novou kalkulac : 999.99 Pro zadan et kus Pro aktu kusy d Pro re ie kmenov Pro re len operac Konec &barvax colora Zadejte po et kus vky: 999999 Po et kus vky: 999999 set color to &_color &barvam &barvax colora Zadejte po et kus vky: 999999 Po et kus vky: 999999 set color to &_color &barvax &barvam &barvax &barvax &barvam &barvax &barvax &barvam &barvax &barvax &barvax m_param KLOBOUKYF r dat (fin ly a sou sti, kter postup) ... zakladni\m1_hlava postup m1_ident soucasti m1_kusov vykres m1_ident m1_kusov c1_ident c1_ident m1_hlava c1_id ident m1_ident MNTUXYZ FPSABCRVI c1_id ident m1_ident ident m1_kusov vykres p1_plkal m1_plan x1_plan zakladni\m1_normy operace v1_str x1_str v4_sklad x4_sklad m1_kalk x1_kalk m1_zas x1_zas m1_ceur.dbf2 m1_ceur s2_par.dbf2 s2_par c1_kalk soucasti m1_ident c1_ds m1_ident c1_ds ident colorz ehled DS DS Po RIIS 1.7 t od DS: Datum platnosti: Tento dispozi stupe nebyl nalezen! Konec Esc teno celkem: et pro DS= : et polo et pro DS=F RIIS 1.7 i ukon nebudou daje zalo eny ! et ? (a/N) create dbf &f_adr\data\p1_chan (ident c(12), typ_nakl c(2), uvn_stare n(11,2), uvn_nove n(11,2), rozd_proc n (8,2) ) p1_chan create dbf &f_adr\data\p1_chcn (ident c(12), typ_nakl c(2), uvn_stare n(11,2), uvn_nove n(11,2), rozd_proc n (8,2) ) p1_chcn create dbf &f_adr\data\p1_chku (ident c(12), typ_nakl c(2), uvn_stare n(11,2), uvn_nove n(11,2), rozd_proc n (8,2) ) p1_chku Aktualizace n chyby m1_kalk RIIS 1.7 Esc Vznikla sestava rozd materiaCIS d 'Z',A2 ak z poPOC MdilW_HMOTNOSTW_PL_REZ W_CENA_KG W_CENA_REZW_MATERIALW_SPOTREBAW_UVN_ODL VZOREC DRUH_REZ FKMD @' &&FRS lne ptFRV na,abyFRO ehazelFRZ a do kREC ace a M_VYKRES eNAKLADY _KSDAV ndiMDILKOOP mMDRUHKOOP ID_ORG = LODL *V DRPR1 ove DRPR2 pociDRPR3 proDRPR4 ti, WCENAVRATUMM_ODPAD uCNAKLTYP eANSI dN ess withVOL vMM_VYKRES DR_KSD DR_DIL terW_PROC ostBARVAX BARVAM zak_COLOR _hlMOD_SYS pPREP_DS sM_PARAM POLE1 DILNA_KOOPPODNIK XXSCR MESS m1_kuZAKLADNI vPOSTUP M1_IDENT SOUCASTI M1_KUSOV eVYKRES IDENT dC1_IDENT iC_POSTUP dM1_HLAVA fC1_ID kusoKOD_POL W_DATUM P1_PLKAL UROVEN eleVYROBEK ntOPER c1_KUSY_STRUKKUSY_ROZP t.c_poDRUH n (seTYP_NAKL pMATER rom KOOP va) ;PRIP intoKUSOV KUSY_D seVR m1_ideSR set ZR r to idOR ect c1OPN appOPM rom m1NMPRIP or NMKUSOV MNPRIPCEL C1_S on idC1_K M1_PLAN deX1_PLAN t OPERACE tV1_STR d_pX1_STR V4_SKLAD X4_SKLAD M1_KALK m+X1_KALK 'M1_ZAS no,X1_ZAS otoKALK2 iku M1_CEUR +1RADA budoKALK5 t tyS2_PAR hodCENA_VRAT C1_KALK y PL_OD PL_DO DAT_AK S_K +DIST brazoPOC_DS by STAV C1_DS 1 saMCOL rif. t @m+8,RR say ' vM_DS ch,HLASKA DATUM_OD DATUM_DO sMMREC hPOCET2 POCETC2 T_PRERUS POCET1 5POCETC1 KOD_KALK M_NAZEV NAZEV VYPOCET P1_CHAN CHYBY P1_CHCN P1_CHKU MW_UVN MW_PROC CRNKUSY_D ENAKLAD ROZD_PROC ROZDIL Identifikace: c1_kp c1_kp c1_kalk / / # c1_kalk / / # c1_kalk / / # ROZKLADY aM1_PLAN ',M_VYKRES MdilFRS OTNOSTFRZ NA_KG A_REZFOPN ERIALFKMD TREBAZS_KMD V1_STR REZIE_VYR REZIE_SPR REZIE_ZAS REZIE_ODB hazelOPN do kC1_S ce a M_NAZEV ndiPOCX mDRUH DRPR3 = ROZPIS *V UROVEN ve DRPR4 pociMATERIAL oC1_K ti, ALL VRATUPOR uPORADI eC1_KP TYP_NAKL dCNAKLTYP hVYSTUP vVYKRES C1_KALK erZAPIS tVYROBEK ZAPIS1 DAT_AK kPL_DO _hlMM_ODPAD p_NASEL sMATER KOOP PRIPCEL OPKUSOV KUSY_D _kuSR vykres vyrobek vyrobek vykres CKODKALK5 M1_PLAN ',M_VYKRES oKOD_KALK lM1_KUSOV VYKRES C1_K A_REZC1_S ERIALUROVEN EBAKUSY_ROZP KUSY_STRUKDRUH M1_IDENT IDENT STUPEN zelVYK do kKUSYS a CV KC_VYKRESU MM_ODPAD iVYROBEK mSPOTREBA V VYR ve PORADI ciKOD_POL _STRUKMDRUHKOOP KALK5 ',VYKRES oVZOREC lM1_PLAN KOD_KALK MATER1 MATER2 REZMATER3 IALMATER4 M_MATER M_KOOP ',M_PRIP oM_KUSOV lM_VR M_ZR REZM_OPM IALM_OPN EBAM_UVN M_KUSY_D K_Q_DRUH VYKRES zelC1_KALK kM1_KALK a ID_ORG DRPR4 iMATER mKOOP KPRIP KKUSOV V KUSY_D ve VR STRUKOR TRUKOPN eP_ZR M1_ZAS hSKL_HLAVNIV4_SKLAD erV1_STR tREZIE_ZAS P_MAT KUSY_STRUKZAS_REZ hlC1_K pUROVEN UKVYROBEK KUSY_ROZP _STRUKTYP_NAKL ALIAS KALK2 ',M1_IDENT oC1_S lVYKRES W_RADA RADA M1_PLAN EZW_HMOTNOSTVAHA_MJ BAM1_CEUR STW_CENA_KG HM_OD HM_DO NOSTCEN_KG P_MAT KUSY_STRUKUROVEN kVYROBEK a KUSY_ROZP _STRUKDRUH iTYP_NAKL mMATER ALIAS W_IDENT ',C1_S oVYKRES lKALK2 M1_IDENT W_RADA EZM1_PLAN STW_PL_REZ APLOCHA_R TM1_KUSOV W_SPOTREBAW_UVN_ODL W_HMOTNOSTIDENT C_VYKRESU KOD_POL kSPOTREBA AC1_KALK N_ODL M1_KALK iVAHA_MJ STM1_CEUR W_CENA_REZHM_OD RUKHM_DO NOSTCEN_REZ EZW_MATERIALW_KOOP EBAP_MAT _REZKUSY_STRUKUROVEN eVYROBEK KUSY_ROZP _STRUKDRUH LAVNITYP_NAKL MATER M_MATER M_KOOP ',M_PRIP oM_KUSOV lM_VR M_ZR EZM_OPM STM_OPN AM_UVN TM_KUSY_D OTREBAC1_S VYKRES OSTC1_KALK M1_KALK MATER kKOOP APRIP KUSOV KUSY_D A_REZOR RUKOPM NOSTOPN EZUVN RIALUROVEN AVYROBEK EZKUSY_ROZP KUSY_STRUKPOR DRUH TYP_NAKL KALK5 ALIAS ',W_IDENT oC1_S lVYKRES M1_PLAN W_HM_CISTAVAHA_MJ EZM1_KUSOV AW_UVN_KOVUW_HM_SUROVIDENT M1_IDENT AC_VYKRESU KOD_POL STSPOTREBA VC1_KALK N_KOVUM1_KALK AP_MAT UWCENAVRATUUROVEN iVYROBEK TKUSY_ROZP KUSY_STRUKPOR RUKDRUH NOSTTYP_NAKL ZMATER Kalk.vzorec 5 nelze pou materi ZNAM pl novac mat.odlit. daj.je ist.hmot.=0 mat.odlit. KALK5 PIS_ERR ',C1_S oVYKRES lALIAS W_IDENT M1_PLAN TAW_HM_CISTAVAHA_MJ AM1_KUSOV AW_UVN_KOVUW_HM_SUROVIDENT AM1_IDENT C_VYKRESU KOD_POL VSPOTREBA VC1_KALK VUUVN N_KOVUM1_KALK UP_MAT UWCENAVRATU) KLOBOUKYF ',VYKRES oVZOREC lM1_PLAN P_KMD ZS_KMD TAKOD_KALK APODNIK AMKOOPKMD UMDILKOOP VV1_STR KRESU VKOPM VUKOPN _KOVUREZIE_VYR REZIE_SPR REZIE_ZAS REZIE_ODB STRUKDR_KSD RUKM_VYKRES TPKSDAV Z_KSDAV IALC1_KALK UKM1_KALK EZKUSY_D KUSY_STRUKM1_IDENT K_POSTUP C_POSTUP KM1_NORMY KROZPIS1 MATER2 MATER3 RUKMATER4 KLOBOUKYF ',SRS SMZDA SMZDAP TASMZDAK ASUVN ASKOOP ASTBC USTAC VSMZDAPCEL POSTUP _POSTUP MKOOP VMKOOPKMD VDR_DIL VUDOP _KOVUMDILKOOP E_SPR V1_STR STRUKKRS RUKPOPM TKOPM ZPOPN IALKOPN UKPRO EZKRO PODNIK RUKREZIE_VYR REZIE_SPR KREZIE_ODB M1_NORMY MDRUHKOOP KOOPERACE KUSY_STRUK_MZDAP RUKKCSBC hlPKSDAV p_MZDAPCEL _KSDAV _MZDAK KCSAC TRUK_OPMP TRUK_OPMK UK_OPM _ku_MZDC v_OPN _STRUKTBC P_MAT dVZOREC iMATER55 dC1_K fUROVEN usoVYROBEK VYKRES KUSY_ROZP _STRUKDRUH ntPRIP c1_KUSOV TRUKTYP_NAKL KUSY_D _poVR n (seSR _NAKL rom UVN va) ;MATER intoNMPRIP NMKUSOV sePRIPCEL ',UROV lM1_PLAN KOD_KALK C1_K TAVYSTUP AMATER AKOOP APRIP UKUSOV VUOPM _KOVUDRUH DRPR4 MMATER C1_KALK UKVYKRES UKM1_KALK ',UROV lM1_PLAN KOD_KALK C1_K TAVYSTUP AMATER AKUSY_STRUKC1_KALK UKOOP VPRIP UKKUSOV UKUVN UKOPN UKOPM colora set color to &_color ',_COLOR colorz et dispozi ch stup rozpisek ... chodu: na polo m1_kusov vykres m1_ident MNTUXYZ ident MNTUXYZ ZMENA PRUCHOD ',ST_ZAZ oW_KLIC lW_DS MCOLO MOBR TAM1_KUSOV AVYKRES AM1_IDENT KREC_NUMBERCTBAR VDISPLAY_BOKOD_POL UKDISPLAY_BAIDENT MBERC_VYKRESU CTBAR prava p P R O C E N T H O T O V O 0 10 20 30 40 50 60 70 80 90 100 CTBAR m1_kalk x1_kalk m1_ident ident MM_odpadf cNaklTypf if ! file ( '&f_adr\data\p1_chan.dbf' ) Soubor rozd hromad.p tu aktu l.kalkulac AN neexistuje ! p1_chan rozdil ly hromadn tu pl ch kalkulac if ! file ( '&f_adr\data\p1_chcn.dbf' ) Soubor rozd hromad.p tu pl n.kalkulac CN neexistuje ! p1_chcn rozdil ly hromad.p tu pl n.kalkulac bez odpadu if ! file ( '&f_adr\data\p1_chku.dbf' ) Soubor rozd hromad.p tu pl n.kalkulac KU neexistuje ! p1_chku rozdil ly hromadn tu pl ch kalkulac Soubor rozd je pr RIIS 1.7 Archiv archiv_nak mod17b2 Identifikace CH.ident CH.ident CH.typ_nakl+' ' CH.typ_nakl m1_ident.nazev m1_ident.nazev str(CH.rozd_proc,8,2) CH.rozd_proc str(CH.uvn_stare,11,2) CH.uvn_stare VN nov str(CH.uvn_nove,11,2) CH.uvn_nove POLEX PROCX ',RTOP oRBOT lCLEFT CRIGHT FREEZE TAORDER AZAHL AJMENO KHODN UMBERTITLE VTITLECOLORF1 PLAY_BAF4 MBERF6 YKRESU UKF10 UKDETAIL UKF1PRG F4_JM F4PRG UKF7_JM UKF7PRG TF9KEY ZF10_JM IALF10PRG UKDET_JM EZDETPRG RAMECEK UKRIIS NAZEVT M1_KALK KX1_KALK KM1_IDENT IDENT MM_ODPAD CNAKLTYP HLASKA P1_CHAN UKROZDIL RUKCH hlP1_CHCN pP1_CHKU ENTER RUKNADPIS RUKLEVA UKPRAVA _kuHOR MOD_PSV colorz mod_proc set color to &_col ',PS_LINE oZOBR_NAKL2IDENT TYP_NAKL MOD_PROC RIIS 1.7 Srovn kalkulac polo KU a mod_fun Prob prava dat ... m1_ident ident m1_kalk x1_kalk m1_ident cIdent mod_fun Nejsou rozd ly mezi kalkulacemi 'KU' a Historie arch1_nak Detail zobr_det Srovn kalkulac polo KU a RIIS 1.7 mod17b2 Identifikace ident ident m1_ident.nazev m1_ident.nazev KU str(zuvn,10,2) str(cuvn,10,2) % rozd str(proc,10,2) ' '+m1_ident.kod_pol+' ' m1_ident.kod_pol m1_ident.typ m1_ident.typ Ident.odb ratele m1_ident.ident_odb m1_ident.ident_odb m1_ident.mj m1_ident.mj m1_ident.rada m1_ident.rada SKP m1_ident.skp m1_ident.skp CTYPNAKL ,MOD_FUN oANSI NAKL2M1_IDENT IDENT M1_KALK AX1_KALK ATYP_NAKL ANAZEV KZUVN UMBERCUVN VPROC COLORCIDENT KKOD_POL UKALL BAUVN ERHLASKA POLEX KPROCX UKRTOP UKRBOT UKCLEFT CRIGHT FREEZE UKORDER UKHOR ZLEVA IALPRAVA UKNADPIS EZZAHL JMENO UKHODN PSOUC KTITLE KTITLECOLORPOC0 ODPAD KLTYP RUKF6 F0PRG RUKF1PRG RUKF4_JM UKF4PRG _kuTISKPRG vF7_JM F7PRG F9PRG F9KEY TRUKF9KEY1 F10_JM dF10PRG iRAMECEK dRIIS fNAZEVT usoKLICO KLNAZ SPACEBAR TR_HL1 RUKTR_HL2 ntTR_HL3 c1_TR_HL4 RUKTR_HL5 TR_HL6 _poTR_HL7 (seTR_HL8 pTR_HL9 om DET_JM ) ;ENTER intoDETAIL DETPRG sePS_LINE dePS_RETURN PS_ZAZN ect c1I pMOD_PSV colorz YPNAKL ,COBR oCCOLOR KL2M1_KALK CIDENT IDENT AVLASTZOBR CTYPNAKL AHODNOTY UMBERI Esc,^End VN : vky : Mzda p Mzda kusov OPM : Materi l : Mat.vl.v OPN : SR : VR : ZR : OR : w+/bg w+/bg YPNAKL ,M1_IDENT oNAZEV KL2IDENT CTYPNAKL HODNOTY 999999999 YPNAKL ,KUSY_D oPRIP KL2KUSOV MATER AKOOP UMBERZR colorz mod_proc mod_proc set color to &_col ,PS_LINE oZOBR_NAKL2IDENT MOD_PROC CTYPNAKL POPIS_POL CO_ZLE ,IDENTIF oMOD17B2 VYPOCET ROZKLADY MATERIAL MATER1 e m1&F MATER2 MATER3 dent S MATER4 ,X MATER5 MATER55 foA` ROZPIS ROZPIS1 clni ZAPIS ZAPIS1 HLASKA PREP_DS DISPLAY_BA DISPLAY_BO MOD17B2P ARCHIV_NAK SROVNAKL ZOBR_DET VLASTZOBR HODNOTY ARCH1_NAK PIS_ERR X:\OBEC\01\ MOD17B2.FXP X:\OBEC\01\MOD17B2.PRG