german m7_ucto / / RIIS 7.8 Zadejte k obdob zpracov sou ty za t du : sou ty za st edis.: P - Esc, P ehled - ^End M X, M X, m_dat x_dat m_cis1 x_cis1 M_UCET_KOD p_kod hled3_incis cis_sec o v o d p o o v o d p o t y majetku za : e t n o d p o e t n o d p o t y majetku za : o v o d p i s y e t n o d p i s y e t n o d p i s y majetku za : R e k o n s t r u k c e majetku R e k o n s t r u k c e majetku za : e v o d y majetku e v o d y majetku za : b y t k y majetku b y t k y majetku za : s t k y majetku s t k y majetku za : RIIS 7.8 m7_mmaj incis m7_modp incis GERMAN M7_UCTO tPLAT_HIM 4ROK_HIM P_DAT P_KOD PS_TR FPS_STR LZOBR_N M_DAT X_DAT M_CIS1 SX_CIS1 JMENO_C sWJMENO_C TYP_C MOD_C2 RADEK_C SLOUPEC_C MOD_C1 ORMOD_SYS ORPOLEX LORPROCX RRTOP ORRBOT fCLEFT ORCRIGHT FREEZE RORDER FFLEVA RPRAVA NADPIS OFFJMENO rHODN _PRNSOUC TITLE OFFTITLECOLORPOC0 CEBAR BORF0PRG RNF1PRG F4_JM tF4PRG aTISKPRG m7F7_JM iF7PRG .uF9PRG F9KEY F9KEY1 F10_JM mF10PRG RAMECEK ORNAZEVT KLICO KLNAZ ORSPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 teTR_HL8 TR_HL9 MEDET_JM EENTER DETAIL DETPRG oPS_LINE 29PS_RETURN PS_ZAZN P_DATOB sM7_MMAJ m7INCIS EM7_MODP ENAPLN1 NAPLN2 Funkce fun_so m7_modp c7_mmaj m7_modp c7_mmaj Inven. incis ltrim(incis)+space(12-len(ltrim(incis))) ' '+str_n str_n ' '+substr(str_n,1,1)+' ' str_n str_s str_s Po str(poriz,12,2) poriz Opr str(oprav,12,2) oprav Z statek str(zusta,12,2) zusta Odpis str(odpis,12,2) odpis Rekonstrukce str(cporiz,12,2) cporiz Prodej str(cporiz,12,2) cporiz Odpo str(coprav,12,2) coprav Skup.o. ' '+skuod+' ' skuod Proc.o. ' '+str(prood,5,1)+' ' prood m7_mmaj.nazev m7_mmaj.nazev Obdob tran(obdobi,'@e') obdobi tF10_JM 4F10PRG P_KOD P_DAT LM7_MODP C7_MMAJ lINCIS OBDOBI DETAIL M7_MMAJ SZAHL POLEX sJMENO MOD_PSV ps_trf ps_strf Sou ty za t du : st edisko : N vrat - Esc, ^End M X, M X, Za t str_n Za st edisko : str_s PS_TR PS_STR KLNAZ KLICO CIS_SEC3 FCIS_SEC2 str_n Za t group by a.str_n,a.obdobi order by a.str_n,a.obdobi and obdobi=p_dat group by a.str_n order by a.str_n str_s Za st group by a.str_s,a.obdobi order by a.str_s,a.obdobi and obdobi=p_dat group by a.str_s order by a.str_s str_n Za t group by a.str_n,a.obdobi,a.str_s order by a.str_n,a.obdobi,a.str_s str_n Za t and obdobi=p_dat group by a.str_n,a.str_s order by a.str_n,a.str_s SELECT a.str_s, a.str_n, sum(a.poriz) as poriz, sum(a.oprav) as oprav, a.obdobi,sum(a.zusta) as zusta, sum(a.odpis) as odpis, sum(a.cporiz) as cporiz, sum(a.coprav) as coprav, m(a.czusta) as czusta FROM m7_modp a INTO DBF c7_mmaj WHERE kod=p_kod &xxd str_s str_s ' '+str_n str_n ' '+substr(str_n,1,1)+' ' str_n str_s str_s Po str(poriz,12,2) poriz Opr str(oprav,12,2) oprav Z statek str(zusta,12,2) zusta Odpis str(odpis,12,2) odpis Rekonstrukce str(cporiz,12,2) cporiz Prodej str(cporiz,12,2) cporiz Odpo str(coprav,12,2) coprav Obdob tran(obdobi,'@e') obdobi FREEZE POLEX 4PS_TR PS_STR P_DAT KLICO FKLNAZ DETAIL lZAHL JMENO SOUC P_KOD sMOD_PSV PS_TR PS_STR tCIS_SEC1 4CIS_SEC2 CIS_SEC3 p_kodf ehledu Opr statek Odpis Rekonstrukce Prodej Odpo P_KOD tPORIZ 4OPRAV ZUSTA ODPIS CPORIZ FCOPRAV LP_PORIZ P_OPRAV lP_ZUSTA P_ODPIS P_CPORIZ P_COPRAV p_kodf SELECT a.str_s, a.str_n, sum(a.poriz) as poriz, sum(a.oprav) as oprav, sum(a.zusta) as zusta, sum(a.odpis) as odpis, sum(a.cporiz) as cporiz, sum(a.coprav) as coprav, sum(a.czusta) as czusta FROM &soubs a INTO DBF c7_sumaj GROUP BY a.str_s ORDER BY a.str_s c7_sumaj Suma : Rekonstrukce +' '+str(cporiz,12,2) Prodej +' '+str(cporiz,12,2) Odpo +' '+str(coprav,12,2) str_s ehledu . Po Opr vky Z statek Odpis str_s+' '+str(poriz,12,2)+' '+str(oprav,12,2)+' '+str(zusta,12,2)+' '+str(odpis,12,2) RIIS 7.8 mod_fun select &soubs P_KOD tSOUBS 4PORIZ OPRAV ZUSTA ODPIS FCPORIZ LCOPRAV P_PORIZ lP_OPRAV P_ZUSTA P_ODPIS P_CPORIZ SP_COPRAV P_NAZ sP_SOP N_LMEZ N_PMEZ N_HMEZ N_DMEZ N_PROM N_HOD ORN_POC ORN_TEXT LORN_HLAV RN_RAD ORN_VYB fN_RIIS ORN_CCUR ZOBR_NAP RMOD_FUN C7_SUMAJ p_kodf ehledu vky statek Odpis Rekonstrukce Prodej Odpo 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 P_KOD tSPOR 4SOPR SCPOR FSCOPR LPH_TR STR_N lPORIZ OPRAV ZUSTA ODPIS SCPORIZ COPRAV sAIXR Aktualizace ivotnosti majetku RIIS 7.8 RIIS 7.8 m7_mmaj incis c_mmaj c_mmaj german set color to b/w set color to bg/n set color to w+/w set color to b/bg,w+/rb set color to w+/b set color to w/n &barvau M7_MMAJ INCIS tC_MMAJ 4SKUOD ZUSTA USKUOD UZUSTA LNAZEV GERMAN lBARVAS BARVAR BARVAZ BARVAU SBARVAN BARVAH LORQ10 ORQ12 fPOCET ORMENU3 PORADI3 RKONEC _PRNQ OFFOK_K COLOROK_C NAPROC3 AZMENY3 F9 ^End,Esc Pohyb - Vyled Konec - &barvau &barvau _MMAJ 4INCIS NAZEV K_MES K_MES_S FK_MAJ &barvan Invent. slo zev edpoklad Skute nost MJ @ x,49 &vloz k_mes spot ebovat pouze FF @ x,62 &vloz k_mes_s spot ebovat pouze FF tKONT P_K_MES K_MES P_K_MES_S K_MES_S lK_MAX K_SKUT K_MAJ SHLASKA S majetkem pracuje n kdo jin P_K_MES tK_MES 4P_K_MES_S K_MES_S M7_MMAJ C_MMAJ INCIS HLASKA K_MES_S USKUOD S_ZAO V_ODPIS SUPORIZ K_MAX sK_SKUT UZUSTA UODPIS COLORz Vyhled Invent zev majetku : Majetek nebyl nalezen ! nazev Majetek nebyl nalezen ! klicc1 incis ehled investi ho majetku slo N zev St incis+' '+nazev+' '+str hled_incis in s771 RIIS 7.8 mod_fun incis Majetek nebyl nalezen ! Majetek nebyl nalezen ! set color to &p_col2 P_K_MES K_MES tP_K_MES_S K_MES_S NOVY_R KONEC MES_S ODPIS sPROC3 ZMEN3 MM_VER MM_LK NAB_OBR9 NASEL ORP_ZAZ ORP_COL2 LORKLICC1 RKLICC2 ORPR_G fHLASKA ORNAZEV RN_LMEZ N_PMEZ N_HMEZ FN_DMEZ RN_PROM N_HOD N_POC OFFN_TEXT rN_HLAV PRNN_RAD N_VYB OFFN_RIIS LORN_TOP NAZOBR_NAP AMOD_FUN INCIS FFKONTROLA3 CEBAR FPOCET COLORz Vyhled Zadejte invent Majetek nebyl nalezen ! set color to &p_col NAB_OBR P_ZAZ tP_COL KLICC P_INCIS HLASKA PS_RETURN german por_cen .cena text_maj RIIS 7.8 ed. : SKP : Pracov.: Typ : az.:F Rok v.: Odp.sk: Zodp.: E T N K A R T A M A J E T K U druh_odp s_modp+ - archiv s_modp+ D A O V K A R T A M A J E T K U druh_odp s_modp+ - archiv s_modp+ s_modp Po str(poriz,12,2) poriz Opr str(oprav,12,2) oprav Z statek str(zusta,12,2) zusta Odpis str(odpis,12,2) odpis Pohyb iif(inlist(kod,'O','D','F','E'),str(coprav,12,2),iif(inlist(kod,'R','U','Z','W','X'),str(cporiz,12,2),str(czusta,12,2))) iif(inlist(kod,'O','D','F','E'),coprav,iif(inlist(kod,'R','U','Z','W','X'),cporiz,czusta)) ' '+skuod+' ' skuod Pr.o. str(prood,5,1) prood str(delod,3) delod substr(dtoc(obdobi),4,7) obdobi ' '+str_s str_s iif(kod='S',' '+str_n,' ') str_n Vy.opr. iif(inlist(kod,'W','X'),str(coprav,12,2),str(0,12,2)) iif(inlist(kod,'W','X'),coprav,0) Zapsal zapsal zapsal Aktual. tran(datum,'@e') datum GERMAN tOBRM1 POLEX PROCX CLEFT LCRIGHT FREEZE lORDER LEVA SPRAVA NADPIS sZAHL JMENO TITLE TITLECOLORPOC0 LORF2 F0PRG FF1PRG RF4_JM F4PRG TISKPRG FFF7_JM rF7PRG PRNF9PRG F9KEY OFFF9KEY1 LORF10_JM NAF10PRG ARAMECEK FFNAZEVT KLICO FKLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 RNTR_HL5 TR_HL6 tTR_HL7 aTR_HL8 m7TR_HL9 iDET_JM .uENTER DETAIL DETPRG PS_LINE mPS_RETURN PS_ZAZN INCIS ORNAZEV TRIDA OBOR DATPOR M7_MPAR TYP_VYR DATZA MEVYROBCE EROK_V O_SK oZODPO 29VYROB_C M7_MODP orDRUH_ODP M7_MMAJ S_MODP sA7_MMAJ 7OBDOBI EMOD_PSV EPROH_A german T E X T M A J E T K U RIIS 7.8 ed. : SKP : Pracov.: Typ : az.:F Rok v.: Odp.sk: Zodp.: m7_mtxt ident Text space(5)+text+space(6) GERMAN OBRM2 tPOLEX PROCX CLEFT CRIGHT LFREEZE ORDER PRAVA SNADPIS sJMENO TITLE TITLECOLORPOC0 COLORF0 LORF3 RF0PRG F1PRG FF4_JM RF4PRG TISKPRG F7_JM FFF7PRG rF9PRG PRNF9KEY F9KEY1 OFFF10_JM LORF10PRG NARAMECEK ARIIS NAZEVT FFKLICO KLNAZ FSPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 RNTR_HL6 TR_HL7 tTR_HL8 aTR_HL9 m7DET_JM iENTER .uDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN _ZAZN PROH_A M7_MMAJ ORA7_MMAJ INCIS NAZEV TRIDA DATPOR teM7_MPAR TYP_VYR EDATZA VYROBCE ROK_V oO_SK 29POL ZODPO orVYROB_C P_ZINCIS M7_MTXT sIDENT 7MOD_PSV german Skladba po izovac ceny RIIS 7.8 ed. : SKP : Pracov.: Typ : az.:F Rok v.: Odp.sk: Zodp.: m7_mcen incis c7_mcen+ c7_mcen c7_mcen Celkem : Text Doklad doklad doklad Datum tran(datum,'@e') datum Cena str(cena,12,2) Pozn. GERMAN OBRM2 tPOLEX PROCX CLEFT CRIGHT LFREEZE ORDER PRAVA SNADPIS sJMENO TITLE TITLECOLORPOC0 COLORF0 LORF3 RF0PRG F1PRG FF4_JM RF4PRG TISKPRG F7_JM FFF7PRG rF9PRG PRNF9KEY F9KEY1 OFFF10_JM LORF10PRG NARAMECEK ARIIS NAZEVT FFKLICO KLNAZ FSPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 RNTR_HL6 TR_HL7 tTR_HL8 aTR_HL9 m7DET_JM iENTER .uDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN _ZAZN PROH_A M7_MMAJ ORA7_MMAJ INCIS NAZEV TRIDA DATPOR teM7_MPAR TYP_VYR EDATZA VYROBCE ROK_V oO_SK 29POL ZODPO orVYROB_C P_ZINCIS M7_MCEN sC7_MCEN 7CENA ECEN_CELK ETEXT MOD_PSV m7_mdta m7_mmaj incis ekejte pros m. Prov se da odpisy Prov odpisy mod_fun S_ZAO tM7_MDTA S_MDTA M7_MMAJ INCIS LTXT1 lHLASKA MOD_FUN W_POLE SZUSTA sDROK ZCENA UZUSTA german Funkce TiskKar hled_incis in s771 RIIS 7.8 m7_modp incis m7_mpar incis m7_desk skupina m7_tup skupina m7_mmaj incis ehled investi ho majetku pro tisk karet a7_mmaj incis ehled archivu investi ho majetku pro tisk karet Inv. incis incis nazev nazev m7_mpar.typ_vyr m7_mpar.typ_vyr trida+' ' trida str(uvyraz,12,2) uvyraz vod v. v_duvod v_duvod sob v. v_zpusob v_zpusob str(uporiz,12,2) uporiz . opr str(uoprav,12,2) uoprav str(uzusta,12,2) uzusta . odpis str(uodpis,12,2) uodpis .rok.od. str(urokod,12,2) urokod ' '+uklic_o+' ' uklic_o ' '+uody+' ' ' '+uskuod+' ' uskuod % odp str(uprood,5,2) uprood str(udelod,4) udelod C.d.o. ' '+str(celdelodu,4) celdelodu D. po str(poriz,12,2) poriz D. opr str(oprav,12,2) oprav D. z str(zusta,12,2) zusta D. odpis str(odpis,12,2) odpis ' '+skuod+' ' skuod Proc.o. ' '+prood+' ' prood D.o.d. ' '+str(delod,4) delod C.d.o.d. ' '+str(celdelod,4) celdelod D.TUP klic_o+' ' klic_o Identifikace ident ident Pracov. prac+' ' D. za tran(datza,'@e') datza O.sk. ' '+o_sk+' ' Dr.maj. ' '+trideni+' ' trideni PROH_A GERMAN tPOLEX PROCX CLEFT CRIGHT LFREEZE ORDER PRAVA SNADPIS sJMENO TITLE TITLECOLORPOC0 COLORF0 LORF3 RF0PRG F1PRG FF4_JM RF4PRG TISKPRG F7_JM FFF7PRG rF9PRG PRNF9KEY F9KEY1 OFFF10_JM LORF10PRG NARAMECEK ARIIS NAZEVT FFKLICO KLNAZ FSPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 RNTR_HL6 TR_HL7 tTR_HL8 aTR_HL9 m7DET_JM iENTER .uDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN ORM7_MODP INCIS M7_MPAR ORM7_DESK SKUPINA M7_TUP M7_MMAJ A7_MMAJ MOD_PSV c_oznac Nebyly vybr ny (vysv ceny) znamy FFF$m Za obdob karta karta Konec HLASKA W_OBDN tEXIT PRAZDOBD ZADOBDOBI VETARECNO NAB_OBR LVOLBA PROH_A lTKARTA ZPETRECNO german RIIS 7.8 Po str(s_modp.poriz,12,2) s_modp.poriz Opr str(s_modp.oprav,12,2) s_modp.oprav Z statek str(s_modp.zusta,12,2) s_modp.zusta Odpis str(s_modp.odpis,12,2) s_modp.odpis Pohyb iif(inlist(s_modp.kod,'O','D','F','E'),str(s_modp.coprav,12,2),iif(inlist(s_modp.kod,'R','U','Z'),str(s_modp.cporiz,12,2),str(s_modp.czusta,12,2))) iif(inlist(s_modp.kod,'O','D','F','E'),s_modp.coprav,iif(inlist(s_modp.kod,'R','U','Z'),s_modp.cporiz,s_modp.czusta)) ' '+s_modp.skuod+' ' s_modp.skuod %Odp. str(s_modp.prood,5,1) s_modp.prood str(s_modp.delod,6) s_modp.delod s_modp.kod+' ' s_modp.kod+' ' Obd. substr(dtoc(s_modp.obdobi),4,7) s_modp.obdobi s_modp.str_s s_modp.str_s iif(s_modp.kod='S',' '+s_modp.str_n,' ') s_modp.str_n Aktual. tran(s_modp.datum,'@e') s_modp.datum Zapsal s_modp.zapsal s_modp.zapsal c_oznac, ed. : SKP : Pracov.: Typ : az.:F Rok v.: Odp.sk: Zodp.: druh_odp E T N K A R T A M A J E T K U s_modp+ E T N K A R T A M A J E T K U za obdob s_modp - archiv druh_odp s_modp+ D A O V K A R T A M A J E T K U D A O V K A R T A M A J E T K U za obdob - archiv s_modp GERMAN OBRM1 POLEX PROCX LRBOT CLEFT lCRIGHT FREEZE ORDER sPRAVA NADPIS JMENO COLORSOUC COLORTITLE ORTITLECOLORPOC0 LORF0 FF0PRG RF1ON F1PRG F4_JM FFF4PRG rTISKPRG RNF7_JM F7PRG OFFF9PRG LORF9KEY NAF9KEY1 AF10_JM F10PRG FFRAMECEK FNAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 RNTR_HL3 TR_HL4 tTR_HL5 aTR_HL6 m7TR_HL7 iTR_HL8 .uTR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN ORZAHLT1 ADDSPACE ADDLEN PISMO STRANA teSCR EOFMARK MET_TISK ET_SIRKA T_POC T_KON oT_LEFT 29T_RAD T_EJECT orT_DRUH X_FRONTA sW_FRONTA 7SUMA ESUMAC EPOCSOUC ZN_RAD ZAV_KODY ZAV_TFR T_PRERUS mEXIT raTISK1 .zP_KODY aM_TFR ZINCIS INCIS NAZEV m7STR .skuodTRIDA mmaOBOR d),m7PRAC delodDATPOR M7_MPAR TYP_VYR t_him, DATZA e()VYROBCE 0,ROK_V O_SK POL ZODPO stVYROB_C .tM7_MODP ' DRUH_ODP uW_OBDN S_MODP OBDOBI TISK2 p_kody.dbf2 tomen soubor tisk ren (P_KODY) p_kody p_kody p_name m_tfr m_tfr t_fronta colora Parametry tisku Konec Funkce -^End stupn . (1-tisk rna,2-obrazovka) Tiskov fronta ka str nky (1- Posledn okraj na str Odstr ed tiskem,2-po tisku,3-oboj Tisk Tiskov fronty Konec mod_lib mod_lib set color to &col Chybn n druh v stupu Chybn zadan ka str Chybn zadan Chybn zadan posledn Chybn zadan a posledn Chybn zadan odstr rna neexistuje Tiskov fronta neexistuje EUTIT !capture /endcap > nul endcap > nul !capture /q=F > nul set color to &col EOFMARK tZAHLT1 SUMAC POCSOUC KLICO CSOUC LPOLEX lMESS ZAV_KODY P_KODY P_NAME SZAV_TFR M_TFR sT_FRONTA T_DRUH T_TISK T_SIRKA T_POC OLORT_KON OLORT_LEFT ORT_RAD OLORW_FRONTA RX_FRONTA RT_EJECT fX_OBR ORW_TISKARNAOBR_TI RVOLBA ZOBR_PRN MOD_LIB NAZOBR_TFR REXIT AHLASKA RNACISS FPODNIK rW_MISTO RNPOM TISKTEST FPISMO ORP_10CPI NAWIDE AP_12CPI P_COMPRESSZN_RAD Prob tisk sestavy ... Esc-p british store fcreate('&M_txt') to _text Nelze vytvo it soubor pro sestavu select &cmastersel if type('tr_hl&i')='C' if type('tr_hl&i')#'C' _klics=&klico do HlaTisk&tdr do RadTisk&tdr - (^) ipky,(^)Home,(^)End,PgUp,PgDn - Esc Pohyb Konec Prohl sestavy modi comm &m_txt.txt noedit window w select &cmastersel CMASTERSELNIR1 ERSELNIR2 COLOR1 ADDSPACE ADDLEN lWIDE ZAHLT1 POLEX ZAHL SBRITISH T_DRUH sP_KODY P_RESET P_10CPI M_ALIAS M_TXT OLORANSI ORNREC ORPOMT_RAD RT_RAD RT_POC RSTRANA RT_EJECT ORRAD RNAT_KON REOFMARK P_SETUP NAPRUCH tr_hl1f @ rad,t_left+s say tr_hl&i if type('tr_hl&i')#'C' tr_hl1f TERSELI ERSELT_RAD T_LEFT P_KODY P_SETUP P_SUBON LZN_RAD PODNIK lP_SUBOFF NAZEVT P_DBST_ON P_DBST_OFFPISMO ST_ON TISK_HLAV STRANA PATAL OLORP_COMP_OFFP_10CPI ORZAHLT1 @prow(),pcol() say &jmenot +' '+iif(i=polex,"",addspace) Zru it tisk? (a/N) ************************************************** Sestava n ************************************************** TERSELJMENOT SELPATAL EOFMARK T_RAD LT_LEFT POLEX JMENO PSOUC HODNOT OFFHODN sZAHLT1 T_PRERUS KONECTISK OLORSTRANA OFFZN_RAD ORP_KODY P_COMP_OFFP_10CPI = fputs (_text, "&xx" ) EOFMARK T_DRUH SELT_LEFT ZAHLT1 = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) tr_hl1f = fputs (_text, "&xx" ) xx = space(t_left) + tr_hl&i = fputs (_text, "&xx" ) if type('tr_hl&i')#'C' tr_hl1f = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) SELCR T_RAD LT_LEFT ZN_RAD lPODNIK NAZEVT TISK_HLAV STRANA sPATAL ZAHLT1 pxx = pxx + &jmenot +' '+iif(i=polex,"",addspace) = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) Zru it tisk? (a/N) Zrusit tisk? (a/N) ************************************************** = fputs (_text, "&xx" ) Sestava n = fputs (_text, "&xx" ) ************************************************** = fputs (_text, "&xx" ) = fputs (_text, "&xx" ) ELJMENOT SELPATAL EOFMARK lT_RAD POLEX JMENO PSOUC HODNOT sHODN T_LEFT ZAHLT1 T_PRERUS OLORW_CESTINA KONECTISK STRANA OFFZN_RAD colorz M.prazdObdf RIIS 7.8 german Zadejte obdob (RRRR): Bude-li obdob , vyberou se v echny roky. @!!!! vypl eno obdob (povolen rozsah 1800 a 2500). COLOR ELPRAZDOBD LGERMAN W_OBDN HLASKA e h l e d odpis invest. majetku po m RIIS 7.7 FFF$m prava dat ... c7odp a7_mmaj incis m7_mmaj incis m7_modp incis c7odp c7odp replace hod&MM with hod&MM + m7_modp.coprav incis RIIS 7.8 ehled odpis invest. majetku po m ch za rok vyb_tisk hled_incis in s771 Funkce SumFunkce Hsoucet incis ltrim(incis)+space(12-len(ltrim(incis))) N nazev nazev ' '+trida trida O.sk. ' '+o_sk+' ' Leden str(hod1,12,2) str(hod2,12,2) B str(hod3,12,2) Duben str(hod4,12,2) Kv str(hod5,12,2) erven str(hod6,12,2) ervenec str(hod7,12,2) Srpen str(hod8,12,2) Z str(hod9,12,2) str(hod10,12,2) hod10 Listopad str(hod11,12,2) hod11 Prosinec str(hod12,12,2) hod12 Celk. .odpis str(ucetni,13,2) ucetni odpis str(danove,12,2) danove W_OBDN ELPRAZDOBD LZADOBDOBI C7ODP INCIS TRIDA NAZEV HOD1 sHOD4 OLORHOD9 HOD10 HOD11 HOD12 OFFUCETNI RDANOVE RA7_MMAJ fM7_MMAJ ORM7_MODP NAOBDOBI RINVCISLO POMINVCIS COPRAV RNACSN FPOLEX rPROCX RNRTOP FCLEFT ORCRIGHT NAFREEZE AORDER MPRESSDOL SSLEVA FPRAVA NADPIS JMENO RNTITLE TITLECOLORPOC0 F0PRG F1PRG F4_JM ORF4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 F10_JM teF10PRG RAMECEK MERIIS ENAZEVT KLICO KLNAZ oSPACEBAR 9TR_HL1 TR_HL2 orTR_HL3 TR_HL4 TR_HL5 sTR_HL6 7TR_HL7 ETR_HL8 ETR_HL9 DET_JM ENTER DETAIL DETPRG mPS_LINE raPS_RETURN PS_ZAZN MOD_PSV british FILTERz AND ty za : edisko a t edisko a odp.skupiny ediska du a st ediska odp.skupinu a st ediska odpisov skupiny Konec str, trida et za st edisko a t str, o_sk et za st edisko a a odpisov skupiny et za st ediska trida, str et za t du a st ediska trida et za t dy majetku o_sk, str et za odpisovou skupinu a st ediska et za odpisov skupiny MALIAS ELFILT1 LFILT2 MKLIC KONEC NAZEV lTITULEK NAZEVT BRITISH QSUMA prava dat ... SELECT trida, str, o_sk, sum (hod1 ) as hod1, sum (hod2 ) as hod2, sum (hod3 ) as hod3, sum (hod4 ) as hod4, sum (hod5 ) as hod5, sum (hod6 ) as hod6, sum (hod7 ) as hod7, sum (hod8 ) as hod8, sum (hod9 ) as hod9, sum (hod10) as hod10, sum (hod11) as hod11, sum (hod12) as hod12, sum (ucetni) as ucetni, sum (danove) as danove FROM c7odp GROUP BY &Mklic INTO DBF c7sum ORDER BY &Mklic copy to pomoc for &filt SELECT trida, str, o_sk, sum (hod1 ) as hod1, sum (hod2 ) as hod2, sum (hod3 ) as hod3, sum (hod4 ) as hod4, sum (hod5 ) as hod5, sum (hod6 ) as hod6, sum (hod7 ) as hod7, sum (hod8 ) as hod8, sum (hod9 ) as hod9, sum (hod10) as hod10, sum (hod11) as hod11, sum (hod12) as hod12, sum (ucetni) as ucetni, sum (danove) as danove FROM pomoc GROUP BY &Mklic INTO DBF c7sum ORDER BY &Mklic RIIS 7.8 c_soucet ' '+trida trida O.sk. ' '+o_sk+' ' ' '+trida trida ' '+trida trida O.sk. ' '+o_sk+' ' O.sk. ' '+o_sk+' ' Leden str(hod1,12,2) str(hod2,12,2) B str(hod3,12,2) Duben str(hod4,12,2) Kv str(hod5,12,2) erven str(hod6,12,2) ervenec str(hod7,12,2) Srpen str(hod8,12,2) Z str(hod9,12,2) str(hod10,12,2) hod10 Listopad str(hod11,12,2) hod11 Prosinec str(hod12,12,2) hod12 Celk. .odpis str(ucetni,13,2) ucetni odpis str(danove,12,2) danove ELTITULEK LPOMOC C7SUM POLEX PROCX LRBOT CLEFT lCRIGHT FREEZE ORDER sPRAVA NADPIS JMENO OLORSOUC TITLE TITLECOLORPOC0 OFFF0 CISLO NVCIS F0PRG F1PRG RNAF4_JM FF4PRG rTISKPRG RNF7_JM F7PRG FF9PRG ORF9KEY NAF9KEY1 AF10_JM F10PRG ESSRAMECEK SSRIIS FNAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 RNTR_HL3 TR_HL4 LORTR_HL5 aTR_HL6 m7TR_HL7 iTR_HL8 .uTR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN NAZEV MOD_PSV prava dat ... colorz FILTERz AND sum all to array g for &filt SCRQ1 MOD_SYS ELMESS LAREC M_COL FILT1 FILT2 ZOBRSOUCET prava dat ... colorz SCRQ1 MOD_SYS ELMESS LAREC M_COL ZOBRSOUCET; Celkov Celkov ty - v Esc,^End Leden : K nor : K ezen : K Duben : K ten : K erven : K ervenec : K Srpen : K : K jen : K Listopad : K Prosinec : K . odpis: K .odpis: K RIIS 7.8 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 SCRQ1 M_COL UCETAREC sestava Standardn ehled Konec FILTERz AND sum all to array g for &filt german mod_lib Prob tisk ... mod_psv P_BOLDON P_BOLDOFF P_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT P_SUBOFF TP_SUPERON P_SUPEROFFP_10CPI ETP_COMPRESSP_COMP_OFFP_12CPI P_SUBON P_SETUP P_8LPI sP_6LPI P_16CPI P_NEWPAGE P_RESET OLORKONEC NAB_OBR VOLBA OLORFILT FFFILT1 RFILT2 fGERMAN ORTISK NAC7ODP RW_TISK NASTAV_PRNMOD_LIB MOD_PSV m7_mdta Zadejte skupinu: Aktualiz. oprav_sku Odpisov sazby RIIS 7.8 Skupina ' '+m7_mdta.typ+' ' m7_mdta.typ Doba ' '+str(m7_mdta.delka,2)+' ' m7_mdta.delka Prvn ' '+str(m7_mdta.prok,6,2) m7_mdta.prok Dal ' '+str(m7_mdta.drok,6,2) m7_mdta.drok ' '+str(m7_mdta.zcena,6,2) m7_mdta.zcena M7_MDTA LDOFF POLEX PROCX _OFFRTOP RQUALRBOT CLEFT TCRIGHT FREEZE OFFORDER ETHOR MPRESSDOL MP_OFFLEVA PRAVA NADPIS sJMENO TITLE TITLECOLORPOC0 OLORF2 NAF10 RF0PRG V_PRNF1PRG F4_JM F4PRG TISKPRG NAF7_JM FF7PRG rF9PRG RNF9KEY F9KEY1 FF10_JM ORF10PRG NARAMECEK ARIIS NAZEVT ESSKLICO SSKLNAZ FSPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 RNTR_HL6 TR_HL7 LORTR_HL8 aTR_HL9 m7DET_JM iENTER .uDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN RETURN MOD_PSV Se souborem pracuje n kdo jin RIIS 7.8 german set color to b/w set color to bg/n set color to w+/w set color to b/bg,w+/rb set color to w+/b set color to w/n &barvau c_mdta c_mdta PS_RETURN MOD_SYS HLASKA OFFOBR_POL ALGERMAN BARVAS TBARVAR BARVAZ OFFBARVAU ETBARVAN ESSBARVAH OFFQ1 LECOLORPOCET MENU2 PORADI2 ORKONEC FFHOR V_PRNQ NAC_MDTA FPROC2 rZMENY2 RNM7_MDTA - - ^PgDn,^PgUp - ^Home - ^End,Esc Pohyb znamu znamu Konec - &barvau &barvau _RETURN D_SYS OFFDELKA ALPROK TZCENA &barvan Skupina Doba Prvn Dal @ x,4 &vloz typ @ x,14 &vloz delka @ x,21 &vloz prok @ x,31 &vloz drok @ x,41 &vloz zcena D_SYS OFFQ5 it pr ci beze zm n? (a/N) NOVY_R KONEC ALDOL OFFPROC2 OBR1 ZMEN2 MM_VER sMM_LK KONTROLA2 ZAPIS2 NTROLA2 POCET c_mdta M7_MDTA C_MDTA m7_mcis Zadejte t Aktualiz. akt_tri dy odpisu majetku RIIS 7.8 ' '+m7_mcis.kod+' ' m7_mcis.kod m7_mcis.skp m7_mcis.skp m7_mcis.obor m7_mcis.obor Popis m7_mcis.popis m7_mcis.popis Odp.skup. ' '+m7_mcis.odp_skup+' ' m7_mcis.odp_skup Odp.saz. ' '+str(m7_mcis.odp_saz,6,2)+' ' m7_mcis.odp_saz M7_MCIS POLEX PROCX OFFRTOP ALRBOT CLEFT TCRIGHT FREEZE OFFORDER ETHOR ESSDOL OFFLEVA PRAVA NADPIS sJMENO TITLE TITLECOLORPOC0 NAF10 RF0PRG V_PRNF1PRG F4_JM F4PRG TISKPRG NAF7_JM FF7PRG rF9PRG RNF9KEY F9KEY1 FF10_JM ORF10PRG NARAMECEK ARIIS NAZEVT ESSKLICO SSKLNAZ FSPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 RNTR_HL6 TR_HL7 LORTR_HL8 aTR_HL9 m7DET_JM iENTER .uDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN RETURN MOD_PSV Se souborem pracuje n kdo jin RIIS 7.8 german set color to b/w set color to bg/n set color to w+/w set color to b/bg,w+/rb set color to w+/b set color to w/n &barvau c_mcis c_mcis PS_RETURN MOD_SYS HLASKA OFFOBR_POL ALGERMAN BARVAS TBARVAR BARVAZ OFFBARVAU ETBARVAN ESSBARVAH OFFQ1 LECOLORQ10 POCET PORADI RKONEC ORDOL V_PRNZ SKPRG FOK_K rOK_C RNC_MCIS FZMENY ORM7_MCIS - - ^PgDn,^PgUp - ^Home - ^End,Esc Pohyb znamu znamu Konec - &barvau &barvau _RETURN D_SYS OFFOBOR ALPOPIS &barvan da SKP Text @ x,4 &vloz kod @ x,11 &vloz obor @ x,25 &vloz popis D_SYS it pr ci beze zm n? (a/N) NOVY_R KONEC ALDOL OFFPROC OBR1 MM_VER sMM_LK KONTROLA ZAPIS NTROLA POCET KONTROLA2 c_mcis M7_MCIS C_MCIS set color to bg/b set color to w/n set color to w+/n set color to w+/bg set color to b/w set color to bg/n set color to w+/w set color to b/bg, w+/rb set color to b/w set color to w+/b, w+/rb set color to w+/b, b/w m7_mcisA znamem "F " pracuje jin ivatel. {CTRL-PGDN} {ESC} W_BRH W_BH1 W_BH2 W_BWA OFFW_BWN ALW_BRN W_BPTN TW_BPLA W_BPLN OFFW_BNR ETW_BMN ESSS773 OFFM_KOD M_SKP M_OBOR M_POPIS sM_ODPSKUP M_ODPSAZ W_SCRAKT W_TRIDA M7_MCIS W_SUB W_PMTPOC W_PROMPT W_FKEY W_CKEY RW_RST fW_STATUS RZ_UPD NAW_PROT RW_LOCK HLASKA PRNRTV_TRI ZZMENY W_STR NAOBOR FPOPIS rODP_SKUP NODP_SAZ PS_RETURN M_KOD M7_MCIS M_SKP OFFSKP ALM_OBOR TM_POPIS POPIS FFM_ODPSKUP ODP_SKUP SM_ODPSAZ FODP_SAZ &z_bar1 &z_bar2 &z_bar3 da SKP Obor Popis Odpis.skup. Odpis.saz. &z_bar4 &w_bh1 - ^PgDn - ^Home - ^End,Esc &w_bh2 Pohyb Nov znamu Konec Z_BAR1 Z_BAR2 Z_BAR3 Z_BAR4 OFFM_KOD ALM_SKP M_OBOR TM_POPIS M_ODPSKUP M_ODPSAZ &z_bar @ 18, 4 &z_vloz m_kod size 1, 2 @ 18, 9 &z_vloz m_skp size 1, 8 @ 18,18 &z_vloz m_obor size 1, 6 @ 18,25 &z_vloz m_popis size 1,30 @ 18,61 &z_vloz m_odpskup size 1, 1 @ 18,70 &z_vloz m_odpsaz size 1, 6 Z_VLOZ Z_PROMPT Z_BAR Z_LKEY Z_STATUS W_STR M7_MCIS OFFSKP LOBOR POPIS TODP_SKUP ODP_SAZ W_POCVET Z_STATUS M7_MCIS M_KOD OFFSKP LM_SKP TM_OBOR POPIS M_POPIS ODP_SKUP SM_ODPSKUP ODP_SAZ M_ODPSAZ m7_mcisA Z_PROT M7_MCIS W_STR M_KOD OFFM_SKP LM_OBOR M_POPIS TM_ODPSKUP M_ODPSAZ ULO_TRI W_LOCK SRTV_TRI it pr ci beze zm Z_PRERUS Z_STATUS Z_BMN Z_LKEY OFFZ_UPD LPRERUS W_BNR TW_BPLA ULO_TRI m7_mum Texty Texty hle_um zmen_umist Aktual ehled u m s t m a j e t k u RIIS 7.8 M7_MUM TATUS POLEX PROCX OFFRTOP LRBOT CLEFT TCRIGHT FREEZE ORDER PRAVA NADPIS sJMENO TITLE TITLECOLORPOC0 MTPOC ROMPT TATUS NAF10 RF0PRG PRNF1PRG F4_JM F4PRG TISKPRG NAF7_JM FF7PRG rF9PRG NF9KEY F9KEY1 F10_JM RF10PRG NARAMECEK ARIIS NAZEVT ESSKLICO SSKLNAZ FSPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 RNTR_HL6 TR_HL7 LORTR_HL8 aTR_HL9 m7DET_JM iENTER .uDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN RETURN MOD_PSV 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+/w set color to w/n RIIS 7.8 OFFQ3 ZMENA1 KONTROLA KONEC SNOVY_ZH POCET BARVA sRADEK_C SLOUPEC_C POMOC TLECOLORRAD BARVAS BARVAR BARVAZ RBARVAU fBARVAN RBARVAT NABARVAH RM7_MUM W_TXT POCET1 NAMENUUM FHLAVUM rPROCUM NZMENYUM PS_RETURN W_POLE &barva A k t u a l i z a c e um majetku : Text polo &barvau &barvau W_TXT @ 17,18 &vloz w_um pict '@!X' @ 18,18 &vloz w_txt pict '@X' POCET1 LZMENA1 it pr ci beze zm n? (a/N) KONEC NTROLA SPROCUM ZMENUM POMOC sKONTROLAUMKONTROLA ZAPIS ZAPISUM ZMENA1 LORM7_MUM NOVY_ZH W_TXT RHLAVUM NAPOCET1 ZAPIS MOD_SYS ZMENA1 M7_MUM OFFUM LW_UM TW_TXT NOVY_ZH vypln no um existuje KONTROLA HLASKA LNOVY_ZH M7_MUM TST_ZAZ - - ^PgDn - ^Home - ^End,Esc Pohyb znamu znamu Konec colora Zadejte k d nebo n zev um Vyhled znam nenalezen. set order to &w_oord set color to &w_ocol W_SCRHLE W_OORD W_OREC W_OCOL OFFW_KLIC LTEXT HLASKA set color to w+/b, w+/rb set color to w+/bg set color to b/w set color to bg/n set color to w+/w set color to b/w set color to b/bg, w+/rb set color to w/n set color to w+/n set color to w+/b, b/w &z_bpla it pr ci beze zm Opravdu zru znam ? Z_SUB Z_PMTPOC Z_PROMPT Z_PROT OFFZ_FKEY LZ_CKEY Z_STATUS TZ_RST Z_BNR Z_BWA Z_BWN SZ_BRN Z_BPTN Z_BPLN Z_BPLA Z_KONEC sZ_LKEY AUMZ_OPMT Z_SCRZMN Z_PRERUS Z_POC LORZ_SCRHLP Z_BH1 Z_BH2 Z_BMN Z_UPD PRERUS RZ_SCRBRW set color to w+/b, w+/rb set color to w+/bg set color to b/w set color to bg/n set color to w+/w set color to b/w set color to b/bg, w+/rb set color to w/n set color to w+/n set color to w+/b, w+/rb set color to w+/b, b/w &z_bpla it pr ci beze zm Z_SUB Z_RADHOR Z_RADDOL Z_RECHOR FZ_PMTPOC LZ_EMPTXT Z_POCVET TZ_RST Z_NOEDI Z_STATUS Z_FKEY SZ_CKEY Z_SLPSCR Z_RAD Z_PROMPT Z_KONEC sZ_LKEY AUMZ_RECOLD Z_PRERUS Z_BNR Z_BWA LORZ_BWN Z_BRN Z_BPTN Z_BPLN Z_BPLA Z_BH1 RZ_BH2 fZ_SCRBRW RZ_SCRHLP AZ_BAR RZ_OREC Z_BMN MZ_DEL Z_OLDRCH RFS_BRW Z_UPD AZ_RECAKT FPRERUS &z_bar Z_SUB Z_RADHOR Z_PROMPT Z_RECHOR FZ_RADDOL LZ_PMTPOC Z_EMPTXT TZ_BAR Z_SLPSCR Z_RADSCR Z_RECAKT SZ_OLDPMT Z_FLGRFS &z_bar1 (A/N) &z_bar2 Z_TEXT Z_PRERUS Z_BAR1 Z_BAR2 FZ_SCRPRE LZ_ODP Z_LTXT Z_RECNO Z_RECC Z_RECNO Z_RECC set color to w+/bg set color to w+/w set color to n/w set color to w+/w set color to w+/rb set color to w+/bg &z_barini &z_baremp &z_bar1 &z_bar2 &z_barini Z_MAX Z_AKT Z_RAD Z_PROC FZ_TXT LZ_BARINI Z_BAREMP TZ_CHAR Z_BAR1 Z_BAR2 Z_SKUTXT SZ_SLPTXT Z_POCAKT Z_STPROC Z_TXPROC Z_SLPROC sZ_STRING MS773 NAPLN1 FUN_SO NAPLN2 CIS_SEC CIS_SEC1 CIS_SEC2 CIS_SEC3 S771ZM MENU3 PROC3 PORADI3 ZMEN3 KONTROLA3 ZMENY3 HLED3_INCI KARTA_MAJ TEXT_MAJ POR_CEN PREP_ODP TISKKARET TISKKAR VETARECNO ZPETRECNO TKARTA TISK1 TISK2 HLATISK1 RADTISK1 KONECTISK HLATISK2 RADTISK2 ZADOBDOBI ODPISROK SUMFUNKCE QSUMA HSOUCET C_SOUCET ZOBRSOUCET VYB_TISK ODPISSAZBY OPRAV_SKU MENU2 PROC2 PORADI2 ZMEN2 KONTROLA2 ZMENY2 ZAPIS2 TRIDYMAJ OPRAV_TRI PORADI KONTROLA ZMENY ZAPIS AKT_TRI RTV_TRI ZBR_TRI ZMN_TRI PRE_TRI ULO_TRI VLO_TRI DEL_TRI KON_TRI S773UM ZMEN_UMIST HLAVUM PROCUM ZMENUM ZMENYUM ZAPISUM KONTROLAUM MENUUM HLE_UM ZZMENY ZMENY_BRW RFS_BRW PRERUS SAVE_ENV GET_ENV PRUBEH P:\IN\SK\O\07\ S773.FXP P:\IN\SK\O\07\S773.PRG