german RIIS 7.8 m_param m7_ucto FFFF$m RIIS 7.5 british Zadejte obdob pro z (MM/RRRR): XX/XXXX vypln te obdob , pros Funkce fun_so Zadejte invent. |........... souc_s P r o d e j majetku za : o v o d p o t y majetku za : e t n o d p o t y majetku za : o v o d p i s y majetku za : e t n o d p i s y majetku za : R e k o n s t r u k c e majetku za : e v o d y majetku za : b y t k y majetku za : s t k y majetku za : l e n majetku za : RIIS 7.8 prava dat ... m7_mmaj incis m7_modp incis (a.kod = 'W' or a.kod = 'X') a.kod = p_kod select a.*, b.trida, b.nazev from m7_modp a, m7_mmaj b into dbf c7_mmaj where a.incis = b.incis and &w_pdm and right(str(year(obdobi), 4), 2) = right(W_obdN, 2) and month(obdobi) = val(left(W_obdN, 2)) select a.*, b.trida, b.nazev from m7_modp a, a7_mmaj b into dbf c_mmaj where a.incis = b.incis and &w_pdm and right(str(year(obdobi), 4), 2) = right(W_obdN, 2) and month(obdobi) = val(left(W_obdN, 2)) and a.incis not in (select incis from c7_mmaj) c_mmaj select a.* from m7_modp a into dbf c6_mmaj where &w_pdm and right(str(year(obdobi), 4), 2) = right(W_obdN, 2) and month(obdobi) = val(left(W_obdN, 2)) and a.incis not in (select incis from c7_mmaj) c6_mmaj ************************* Invent. incis incis ' '+kod+' ' ' '+str_n str_n ' '+trida+' ' trida str_s str_s str(poriz+cporiz,12,2) poriz+cporiz st.vy str(cporiz,12,2) cporiz Po str(poriz,12,2) poriz str(oprav+coprav,12,2) oprav+coprav na opr str(coprav,12,2) coprav Opr str(oprav,12,2) oprav stat.-p str((poriz+cporiz)-(oprav+coprav),12,2) (poriz+cporiz)-(oprav+coprav) Z statek str(zusta,12,2) zusta Odpis str(odpis,12,2) odpis Skut.odpis str(coprav,12,2) coprav Rekonstrukce str(cporiz,12,2) cporiz Prodej str(cporiz,12,2) cporiz Odpo str(coprav,12,2) coprav Sk.o. ' '+skuod+' ' skuod % odp. ' '+str(prood,5,2) prood D.odp. str(delod,4)+' ' delod nazev nazev Obdob dtoc(obdobi) obdobi GERMAN W_OBDN tW_OBDS 4M_PARAM W_IDORG ID_ORG M7_UCTO PLAT_OBDOB_PDA BRITISH lANSI PDA HLASKA sMOD_SYS _POLEX PROCX fRBOT CLEFT CRIGHT LORFREEZE ORDER LEVA fPRAVA oNADPIS JMENO SOUC TITLE tTITLECOLORPOC0 staF10 F0PRG F1ON F1PRG F4_JM mF4PRG d,mTISKPRG oF7_JM aj.F7PRG F9PRG F9KEY F9KEY1 datF10_JM ,daF10PRG ,m7RAMECEK riRIIS j.uNAZEVT KLICO KLNAZ SPACEBAR mTR_HL1 TR_HL2 trTR_HL3 5),TR_HL4 'TR_HL5 TR_HL6 TR_HL7 TR_HL8 TR_HL9 DET_JM ', ENTER DETAIL DETPRG PS_LINE tePS_RETURN PS_ZAZN endiF8 P_KOD MESS uoM7_MMAJ 29INCIS orizM7_MODP orW_PDM C7_MMAJ C_MMAJ nsC6_MMAJ m7TRIDA alueNAZEV maj.I _mmMOD_PSV za st edisko a t za st edisko za t du a st edisko za t celkem za st ed.(EUTIT) Konec Konec KONEC tNAB_OBR 4W_IDORG VOLBA SUMACE SOUC_X SUMA_EUTIT soubor ! ty za st ediska a t Zadejte st edisko a t |...| ty za st ediska Zadejte st edisko: ty za t dy a st ediska Zadejte t du a st edisko: ||... ty za t Zadejte t RIIS 7.7 trida str_s Detail Detail Funkce Funkce prava dat ... pomoc pomoc c_mmaj pomoc pomoc c_mmaj pomoc pomoc c_mmaj pomoc pomoc c_mmaj copy to pomoc for &filt pomoc c_mmaj copy to pomoc for &filt pomoc c_mmaj copy to pomoc for &filt pomoc c_mmaj copy to pomoc for &filt pomoc c_mmaj str_s+' ' str_s ' '+trida+' ' trida ' '+trida+' ' trida str_s+' ' str_s ' '+trida+' ' trida 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 Prodej str(cporiz,12,2) cporiz Odpo str(coprav,12,2) coprav Skut.odpis str(coprav,12,2) coprav Celkem: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 Celkem: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 Celkem: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 Celkem: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 Celkem: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 Celkem: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 tHLASKA 4XNAZEV NAZEVT POLEX PROCX RTOP EUTITCLEFT lCRIGHT FREEZE lORDER DOL sPRAVA _NADPIS JMENO fHODN TITLE LORTITLECOLORPOC0 F0PRG tF1ON COLORF1PRG mF4_JM ,mF4PRG rTISKPRG F7_JM F7PRG F9PRG jF9KEY 7_F9KEY1 staF10_JM F10PRG RAMECEK RIIS KLICO mKLNAZ d,mSPACEBAR oTR_HL1 aj.TR_HL2 TR_HL3 TR_HL4 TR_HL5 datTR_HL6 ,daTR_HL7 ,m7TR_HL8 riTR_HL9 j.uDET_JM ENTER DETAIL DETPRG mPS_LINE PS_RETURN PS_ZAZN ),TRI ORP_KOD O01 MESS FILT ', POMOC STR_S TRIDA PORIZ teOPRAV ZUSTA ODPIS endiCPORIZ COPRAV C_MMAJ uoSTR 29Q_POR rizQ_OPR orQ_ZUST Q_ODPIS C_PORIZ nsC_OPRAV alueHELP maj.M _mmMOD_PSV C7_MMAJ Vyhled Konec - Esc colorz double Celkov Celkov ty - v Esc,^End : K vky : K statek : K Odpis : K Rekonstrukce: K Prodej : K et : K Skut.odpis : K sum all poriz, oprav, zusta, odpis, cporiz, coprav to sum_1, sum_2, sum_3, sum_4, sum_5, sum_6 for &filt RIIS 7.5 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 MOD_SYS tFILT 4AREC M_COL MOD_WIN P_KOD PORIZ OPRAV UTITZUSTA lODPIS CPORIZ lCOPRAV SUM_1 SUM_2 SUM_3 sSUM_4 _SUM_5 SUM_6 british german RIIS 7.8 m7_ucto FFFF$m RIIS 7.5 british Zadejte obdob pro v r (MM/RRRR): XX/XXXX vypln te obdob , pros Funkce fun_so souc_z S o u h r n m a j e t k u S o u h r n m a j e t k u z a : RIIS 7.8 prava dat ... m7_mmaj incis m7_modp incis m7_modp m7_mmaj c7_mmaj m7_modp a7_mmaj c7_mmaj c_mmaj c_mmaj m7_modp c7_mmaj c6_mmaj c6_mmaj ************************* Invent. incis incis ' '+kod+' ' ' '+trida+' ' trida 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 Skut.odpis str(iif(kod='O'.or.kod='D',coprav,0),12,2) iif(kod='O'.or.kod='D',coprav,0) Rekonstrukce str(iif(kod='R',cporiz,0),12,2) iif(kod='R',cporiz,0) Prodej str(iif(kod='U',cporiz,0),12,2) iif(kod='U',coprav,0) Odpo str(iif(kod='E'.or.kod='F',coprav,0),12,2) iif(kod='E'.or.kod='F',coprav,0) Sk.o. ' '+skuod+' ' skuod % odp. ' '+str(prood,5,2) prood D.odp. str(delod,4)+' ' delod iif(kod='S',' '+str_n,' ') iif(kod='S',str_n,' ') nazev nazev Dat_akt tran(datum,'@E') (datum ) Zapsal zapsal zapsal BRITISH GERMAN tW_OBDN 4W_OBDS M7_UCTO PLAT_OBDOB_PDA ITANSI lHLASKA MOD_SYS POLEX PROCX sRTOP _RBOT CLEFT CRIGHT fFREEZE ORDER LORDOL ECOLORLEVA PRAVA RNADPIS ZAHL fJMENO oHODN TITLE TITLECOLORPOC0 COLORF2 jF0PRG 7_F1ON staF1PRG F4_JM F4PRG TISKPRG F7_JM mF7PRG d,mF9PRG oF9KEY aj.F9KEY1 F10_JM F10PRG RAMECEK atRIIS ,daNAZEVT ,m7KLICO riKLNAZ j.uSPACEBAR TR_HL1 TR_HL2 TR_HL3 mTR_HL4 TR_HL5 TR_HL6 ),TR_HL7 ORTR_HL8 TR_HL9 DET_JM ENTER DETAIL DETPRG ', PS_LINE PS_RETURN PS_ZAZN M7_MMAJ diINCIS M7_MODP 29TRIDA rizNAZEV orC7_MMAJ OBDOBI A7_MMAJ nsC_MMAJ m7C6_MMAJ j.MOD_PSV colorz double Celkov Celkov ty - v Esc,^End : K vky : K statek : K Odpis : K Skut.odpis et.: K Skut.odpis da . : K Rekonstrukce : K Prodej : K : K et da : K sum all poriz, oprav, zusta, odpis, iif(kod='O', coprav, 0), iif(kod='D', coprav, 0), iif(kod='R', cporiz, 0), iif(kod='U', cporiz, 0), iif(kod='F', coprav, 0), iif(kod='E', coprav, 0) to sum_1, sum_2, sum_3, sum_4, sum_5, sum_6, sum_7, sum_8, sum_9, sum_10 for &filt RIIS 7.5 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 MOD_SYS tFILT 4AREC M_COL MOD_WIN PORIZ BDOBOPRAV ZUSTA ITODPIS COPRAV lCPORIZ SUM_1 SUM_2 SUM_3 sSUM_4 _SUM_5 SUM_6 SUM_7 fSUM_8 SUM_9 SUM_10 LORPOM RIIS 7.8 m7_ucto FFFF$m RIIS 7.5 british Zadejte obdob pro v r (MM/RRRR): XX/XXXX vypln te obdob , pros Prob prava dat ... british m7_modp incis m7_mmaj incis Funkce Funkce Zadejte da ovou skupinu a proc.odpisu: |.|.... ehled dle da skupiny a procenta odpisu Odpis da dle skupin RIIS 7.7 m7_modp m7_mmaj c7_mmaj m7_modp a7_mmaj c7_mmaj c_mmaj c_mmaj m7_modp c7_mmaj c6_mmaj c6_mmaj ************************* .skup skuod+' ' skuod % odp ' '+substr(str(prood,5,2),2,1)+' ' prood Invent. incis incis Po str(poriz,12,2) poriz Opr str(oprav,12,2) oprav Z statek str(zusta,12,2) zusta Odpisy str(odpis,12,2) odpis Skut.odpis str(coprav,12,2) coprav ' '+trida+' ' trida D.odp. str(delod,4)+' ' delod zev majetku nazev nazev W_OBDN W_OBDS tM7_UCTO PLAT_OBDOB_PDA OBBRITISH HLASKA lMOD_SYS MESS POLEX PROCX sRTOP _RBOT CLEFT CRIGHT fFREEZE ORDER LORDOL LORLEVA PRAVA RNADPIS ZAHL fJMENO oHODN TITLE TITLECOLORPOC0 COLORF2 jF0PRG 7_F1ON staF1PRG F4_JM F4PRG TISKPRG F7_JM mF7PRG d,mF9PRG oF9KEY aj.F9KEY1 F10_JM F10PRG RAMECEK atRIIS ,daNAZEVT ,m7KLICO riKLNAZ j.uSPACEBAR TR_HL1 TR_HL2 TR_HL3 mTR_HL4 TR_HL5 TR_HL6 ),TR_HL7 ORTR_HL8 TR_HL9 DET_JM ENTER DETAIL DETPRG ', PS_LINE PS_RETURN PS_ZAZN M7_MODP teINCIS M7_MMAJ OBRZ 29TRIDA rizNAZEV orC7_MMAJ OBDOBI KOD nsA7_MMAJ m7C_MMAJ ueC6_MMAJ j.SKUOD mmPROOD MOD_PSV soubor ! Odpis da dle skupin ty za da skupiny a proc.odpisu Zadejte da ovou skupinu a procenta odpisu: |.|.... ty za da skupiny Zadejte da ovou skupinu: RIIS 7.7 Detail Detail Funkce Funkce prava dat ... pomoc pomoc c1_mmaj pomoc pomoc c1_mmaj copy to pomoc for &filt pomoc c1_mmaj copy to pomoc for &filt pomoc c1_mmaj D.sk. c1_mmaj.skuod+' ' c1_mmaj.skuod % odp ' '+substr(str(c1_mmaj.prood,5,2),2,1)+' ' c1_mmaj.prood Po str(c1_mmaj.poriz,12,2) c1_mmaj.poriz Opr str(c1_mmaj.oprav,12,2) c1_mmaj.oprav Z statek str(c1_mmaj.zusta,12,2) c1_mmaj.zusta Odpisy str(c1_mmaj.odpis,12,2) c1_mmaj.odpis Skut.odpis str(c1_mmaj.coprav,12,2) c1_mmaj.coprav Celkem: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 Cel.: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 tHLASKA 4OBRA1 POLEX BDOBPROCX OBRBOT CLEFT ITCRIGHT lFREEZE ORDER LEVA PRAVA sNADPIS _ZAHL JMENO fSOUC TITLE TITLECOLORPOC0 LORF0 ECOLORF0PRG F1ON tF1PRG OLORF4_JM mF4PRG ,mTISKPRG rF7_JM F7PRG F9PRG F9KEY jF9KEY1 7_F10_JM staF10PRG RAMECEK RIIS NAZEVT KLICO mKLNAZ d,mSPACEBAR oTR_HL1 aj.TR_HL2 TR_HL3 TR_HL4 TR_HL5 atTR_HL6 ,daTR_HL7 ,m7TR_HL8 riTR_HL9 j.uDET_JM ENTER DETAIL DETPRG mPS_LINE PS_RETURN PS_ZAZN MESS FILT POMOC SKUOD ', PROOD PORIZ OPRAV ZUSTA teODPIS COPRAV C1_MMAJ diSKU UPORIZ Q_POR uoQ_OPR 29Q_ZUST rizQ_ODPIS orQ_COPRAV HELP1 m7MOD_PSV eC7_MMAJ Vyhled Konec - Esc soubor ! za da skupiny a proc.odpisu za da skupiny Konec HLASKA tKONEC 4NAB_OBR VOLBA BDOBSUMA_3A soubor ! ty za st ediska Zadejte st edisko: RIIS 7.7 prava dat ... pomoc pomoc c_mmaj copy to pomoc for &filt pomoc c_mmaj str_s+' ' str_s Skut.odpis str(coprav,12,2) coprav Celkem: 9999999999.99 HLASKA tXNAZEV 4NAZEVT POLEX BDOBPROCX OBRBOT CLEFT ITCRIGHT lFREEZE ORDER LEVA PRAVA sNADPIS _ZAHL JMENO fSOUC TITLE TITLECOLORPOC0 LORF0 ECOLORF0PRG F1ON tF1PRG OLORF4_JM mF4PRG ,mTISKPRG rF7_JM F7PRG F9PRG F9KEY jF9KEY1 7_F10_JM staF10PRG RAMECEK RIIS KLICO KLNAZ mSPACEBAR mTR_HL1 oTR_HL2 aj.TR_HL3 TR_HL4 TR_HL5 TR_HL6 atTR_HL7 ,daTR_HL8 ,m7TR_HL9 riDET_JM j.uENTER DETAIL DETPRG PS_LINE mPS_RETURN PS_ZAZN ORO01 FILT POMOC STR_S PORIZ ', COPRAV C_MMAJ C_OPRAV _MMAJ diMOD_PSV C7_MMAJ S777 SOUC_S SUMACE SOUC_X S777A SOUC_Z S777B SUMA_3A HELP1 SUMA_EUTIT P:\IN\SK\O\07\ S777.FXP P:\IN\SK\O\07\S777.PRG