RIIS 7.8 Aktualizace odpis german Prob aktualizace (2) ... Prob aktualizace (1) ... m7_ucto m7_mpls m7_modp s_modp m7_mpls m7_mpls m7_mpls m7_mpls m7_mpls m7_mpls m7_mpls m7_mpls m7_mpls m7_mpls m7_mpls m7_mpls Prob aktualizace (2) ... m7_modp s_modp m7_mpls GERMAN M7_UCTO DAT_PLA FPLAN_HIM LM7_MPLS TP_ROK OBDOBI STR_N SSTR_S COPRAV M7_MODP S_MODP sPOCET MPOCETC _KONST LOROBDR S_ODPIS SUM_COPRAVLEDEN UCETNI RUNOR fBREZEN RDUBEN AKVETEN RCERVEN CERVENEC MSRPEN RIJEN LISTOPAD APROSINEC FDANOVE RIIS 7.8 Aktualizace pl novan ch odpis german m7_ucto Zadejte datum ukon nov. odpis V et je . Esc - p Opravdu prov et odpis ? (a/n): ekejte pros m. Prob et pl novan ch odpis ... mod_fun do chyba with error() m7_cmaj incis Se souborem odpis se pracuje, nelze po do moderror with sys(16),error(),lineno(1) !copy \data\m7_mmaj.dbf \data\m7_cmaj.dbf > nul &prik !copy \data\m7_mmaj.cdx \data\m7_cmaj.cdx > nul &prik m7_cmaj incis Se souborem odpis se pracuje, nelze po do moderror with sys(16),error(),lineno(1) m7_codp obdobi Se souborem odpis se pracuje, nelze po do moderror with sys(16),error(),lineno(1) m7_mpla do moderror with sys(16),error(),lineno(1) Se souborem odpis se pracuje, nelze po m7_mdta Aktualizace obdob ... FF m7_codp / / # m7_codp / / # m7_codp s_modp m7_mpla m7_mpla m7_mpla m7_mpla m7_mpla m7_mpla m7_mpla m7_mpla m7_mpla m7_mpla m7_mpla m7_mpla m7_codp s_modp m7_mpla GERMAN M7_UCTO DAT_HIM DATUM_HIM LP_PLAT_HIMPLAT_HIM TP_ROK_HIM ROK_HIM DAT_HIM2 D_KONEC KONEC _MODP sTXT1 MBLIK HLASKA MOD_FUN MEXIT LORM7_CMAJ INCIS F_ADR PRAVM7_CODP OBDOBI RM7_MPLA RNAZEV AOSK_STR RSKUOD MSTR_OSK UZUSTA ZUSTA AM7_MDTA AVS_MDTA NW_POLE P_DEL POCET RPOCETC NA_KONST AKLIC_O ESSPOC SSDATZA FPROK ZCENA S_ZAO UODPIS USKUOD RNUPROOD TRIDA ORMM_AUTOR aODPIS IMPROOD STR_N STR_S S_MODP ETURN S_ODPIS SUM_ODPIS LEDEN ORUCETNI BREZEN DUBEN KVETEN CERVEN CERVENEC SRPEN teZARI RIJEN MELISTOPAD EPROSINEC DANOVE mod_psv MOD_PSV Celkov soupis Po st edisc Konec mod_psv german m7_mpar m7_mpar incis NAB_OBR VOLBA MOD_PSV GERMAN LM7_MPAR IMINCIS TM7_MMAJ MODTESTT 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_mcen incis c7_mcen+ c7_mcen c7_mcen P_ZINCIS BARVAS BARVAR BARVAZ BARVAU LBARVAN IMBARVAH TBARVA KONEC POCET D_FUN _CMAJ PRAVDOL ROBR_KAL fGERMAN RMENU2 APORADI2 ROK_K MM7_MCEN INCIS C7_MCEN ACEN_CELK PROC2 AVZMENY2 NM7_MMAJ - - ^PgDn - ^Home - ^End,Esc Pohyb Konec - &barvau &barvau ZINCIS DOKLAD LDATUM IMCENA TUCET &barvau Skladba po izovac ceny izovac cena : F et : F &barvan TextF Doklad Datum Pozn. &barvau W_POLE @ x,1 &vloz text @ x,27 &vloz doklad @ x,40 &vloz datum pict'@E' @ x,51 &vloz cena 999999999.99 @ x,64 &vloz ucet @ x,71 &vloz pozn CEN_CELK _CELK 999999999.99 mod_fun 999999999.99 CEN_CELK KONEC IMDOL _CELK PROC2 ZMEN2 sMM_VER MMM_LK ROZHODNI MOD_FUN KONTROLA2 ZAP_CEN NTROLA2 POCET PRAVCENA ZMENA RINCIS fP_ZINCIS m7_mcen M7_MCEN P_ZINCIS INCIS C7_MCEN Nelze spustit p et, se souborem se pracuje ! do moderror with sys(16),error(),lineno(1) HLASKA MEXIT MODERROR prava dat ... m7_mpls ty proveden ch odpis majetku m7_mpla ty pl novan ch odpis majetku RIIS 7.8 Zadejte rok, t ., st |...|.|... det_rt ' '+tr+' ' Leden str(leden,12,2) leden str(unor,12,2) B str(brezen,12,2) brezen Duben str(duben,12,2) duben Kv str(kveten,12,2) kveten erven str(cerven,12,2) cerven ervenec str(cervenec,12,2) cervenec Srpen str(srpen,12,2) srpen Z str(zari,12,2) str(rijen,12,2) rijen Listopad str(listopad,12,2) listopad Prosinec str(prosinec,12,2) prosinec Celk. .odpis str(ucetni,13,2) ucetni odpis str(danove,12,2) danove POLEX PROCX LCLEFT IMCRIGHT TFREEZE ORDER PRAVA NADPIS JMENO sHODN MSOUC TITLE TITLECOLORPOC0 TROLA2 PRAVF4 INCIS AF0PRG F1PRG MF4_JM F4PRG TISKPRG F7_JM AF7PRG F9PRG AVF9KEY NF9KEY1 F10_JM F10PRG RRAMECEK NARIIS ANAZEVT KLICO ESSKLNAZ SSSPACEBAR FTR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 RNTR_HL7 TR_HL8 ORTR_HL9 aDET_JM IMENTER iDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN DRUHO M7_MPLS M7_MPLA MOD_PSV ORN prava dat ... m7_cmaj incis m7_codp obdobi novan odpisy RIIS 7.8 Obdob tran(m7_codp.obdobi,'@E') (m7_codp.obdobi) Inven. ' '+m7_cmaj.incis m7_cmaj.incis m7_codp.kod m7_codp.kod ' '+m7_cmaj.trida+' ' m7_cmaj.trida Po str(m7_codp.poriz,12,2) m7_codp.poriz Opr str(m7_codp.oprav,12,2) m7_codp.oprav Z statek str(m7_codp.zusta,12,2) m7_codp.zusta Odpis str(m7_codp.odpis,12,2) m7_codp.odpis Sk.o. ' '+m7_codp.skuod+' ' m7_codp.skuod Pr.o. str(m7_codp.prood,5,2) m7_codp.prood m7_cmaj.nazev m7_cmaj.nazev ' '+str(m7_codp.delod,4)+' ' m7_codp.delod m7_codp.str_s m7_codp.str_s POLEX PROCX LCLEFT IMCRIGHT TFREEZE ORDER PRAVA NADPIS JMENO sHODN MSOUC TITLE TITLECOLORPOC0 TROLA2 PRAVF4 INCIS AF0PRG F1PRG MF4_JM F4PRG TISKPRG F7_JM AF7PRG F9PRG AVF9KEY NF9KEY1 F10_JM F10PRG RRAMECEK NARIIS ANAZEVT KLICO ESSKLNAZ SSSPACEBAR FTR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 RNTR_HL7 TR_HL8 ORTR_HL9 aDET_JM IMENTER iDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN M7_CMAJ INCIS M7_CODP OBDOBI MOD_PSV prava dat ... m7_mpla ty majetku celkem RIIS 7.8 ' '+m7_mpla.rok m7_mpla.rok ' '+m7_mpla.tr+' ' m7_mpla.tr ' '+m7_mpla.str m7_mpla.str str(m7_mpla.ucetni,14,2) m7_mpla.ucetni Da str(m7_mpla.danove,14,2) m7_mpla.danove POLEX PROCX LCLEFT IMCRIGHT TFREEZE ORDER PRAVA NADPIS JMENO sHODN MSOUC TITLE TITLECOLORPOC0 TROLA2 PRAVF4 INCIS AF0PRG F1PRG MF4_JM F4PRG TISKPRG F7_JM AF7PRG F9PRG AVF9KEY NF9KEY1 F10_JM F10PRG RRAMECEK NARIIS ANAZEVT KLICO ESSKLNAZ SSSPACEBAR FTR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 RNTR_HL7 TR_HL8 ORTR_HL9 aDET_JM IMENTER iDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN M7_MPLA MOD_PSV m7_mmaj incis Nebyly nalezeny znamy. odeps_sum Odepsanost investi ho majetku RIIS 7 Invent. incis ltrim(incis)+space(12-len(ltrim(incis))) nazev nazev %odep. str(uoprav/uporiz*100,7,2) uoprav/uporiz*100 %odep.D str(oprav/poriz*100,7,2) oprav/poriz*100 iz.hodn. str(uporiz,12,2) uporiz Opr str(uoprav,12,2) uoprav Opr vky D str(oprav,12,2) oprav ' '+trida trida obor_skut obor_skut Odp.sk. ' '+o_sk+' ' Pol.sk. ' '+pol+' ' Dat.po ' '+transform(datpor,'@E')+' ' datza Odp.sk. ' '+uskuod+' ' uskuod %odp. str(uprood,6,2) uprood Odp.sk.D ' '+skuod+' ' skuod %odp.D ' '+prood+' ' prood Dat.za ' '+transform(datza,'@E')+' ' datza M7_MMAJ INCIS HLASKA POLEX PROCX LRTOP IMRBOT TCLEFT CRIGHT FREEZE ORDER LEVA PRAVA NADPIS sZAHL MJMENO COLORPSOUC TITLE TITLECOLORPOC0 PRAVF1 INCIS MF0PRG F1PRG F4_JM AF4PRG TISKPRG AVF7_JM NF7PRG F9PRG F9KEY RF9KEY1 NAF10_JM AF10PRG RAMECEK SSRIIS SSNAZEVT FKLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 RNTR_HL4 TR_HL5 ORTR_HL6 aTR_HL7 IMTR_HL8 iTR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN ORMOD_PSV colorz sum all uporiz, uoprav, oprav to w_uporiz, w_uoprav, w_oprav for &w_filt double Celkov Esc,^End iz.hodn.: K : K vky D : K 999,999,999,999.99 999,999,999,999.99 999,999,999,999.99 W_SCR W_OREC W_COLOR W_FILT UPORIZ LUOPRAV IMOPRAV TW_UPORIZ W_UOPRAV W_OPRAV MOD_WIN prava dat ... c_det c_det ty proveden ch odpis majetku ty pl novan ch odpis majetku RIIS 7.8 Zadejte rok, t ., st |...|. ' '+tr+' ' Leden str(leden,12,2) leden str(unor,12,2) B str(brezen,12,2) brezen Duben str(duben,12,2) duben Kv str(kveten,12,2) kveten erven str(cerven,12,2) cerven ervenec str(cervenec,12,2) cervenec Srpen str(srpen,12,2) srpen Z str(zari,12,2) str(rijen,12,2) rijen Listopad str(listopad,12,2) listopad Prosinec str(prosinec,12,2) prosinec Celk. .odpis str(ucetni,13,2) ucetni odpis str(danove,12,2) danove W_OREC W_SCRDET C_DET IMPOLEX TPROCX CLEFT CRIGHT FREEZE ORDER sLEVA MPRAVA NADPIS COLORJMENO COLORPSOUC TITLE PRAVTITLECOLORPOC0 INCIS F0PRG AF1ON F1PRG AVF4_JM NF4PRG TISKPRG F7_JM RF7PRG NAF9PRG AF9KEY F9KEY1 SSF10_JM SSF10PRG FRAMECEK NAZEVT KLICO KLNAZ SPACEBAR NTR_HL1 TR_HL2 ORTR_HL3 aTR_HL4 IMTR_HL5 iTR_HL6 TR_HL7 TR_HL8 TR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN ORDRUHO MOD_PSV M7_MPLS M7_MPLA S772O TIS_SEZN TISK_SEZ SKLAD_CENY MENU2 PROC2 PORADI2 ZMEN2 KONTROLA2 ZMENY2 ZAP_CEN CHYBA SUMAODPISU PLANODPIS SOUCMAJCEL ODEPS ODEPS_SUM DET_RT P:\IN\SK\O\07\ S772.FXP P:\IN\SK\O\07\S772.PRG