Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-03-12 | 16KB | 435 lines

m_Param m7_Ucto v1_Str x1_Str Zadejte obdob obdob edisko: Stejn roky ! Obdob 1 je v aktu obdob Obdob 2 je v aktu obdob colorz edisko neexistuje. Mod_Proc pom_Ucet pom_Ucet pom_Ucet pom_Por pom_Por pom_Por c7_HlK Porov Porov Nebyl vybr znam. MMCOLOR .tPOM_PROM M_PARAM fPOM_JESTR POLE7 ="TiPOM_PODNIKPODNIK etM7_UCTO m POM_OBD FuPLAT_OBDOBPOM_MES POM_ROK1 BPOM_ROK2 tPOM_STR aiV1_STR X1_STR klicf =DEJ_MES HLASKA ZOBR_STR MOD_PROC cDEJ_STAVY iPOM_UCET mC7_HLK nPOM_POR MeK_S_R ROK_A ROK_M ROZDIL _MePROC "/" NAZEV om_RNAZEV_UC ,POROV ALL (PREHLED COLOR .tPOM_MES m7_Ucet m7_SStav m7_Stav r7_Ucet r7_SStav r7_Stav c7_Ucet+ c7_Ucet c7_Ucet c7_Stav+ c7_Stav c7_Stav mod7_lib r7_Ucet r7_Stav POM_ROK .tUCET POM_OBD fM7_UCET POM_STR TiM7_SSTAV KSTAV etM7_STAV m R7_UCET FuR7_SSTAV BR7_STAV C7_UCET BC7_STAV tVYPOC_HLK POM_MES MOD7_LIB C7_HLK Tisk_Por Funkce Funkce Detail Detail s713e Meziro porovn d 5,6 F Meziro porovn. t d 5,6 st RIIS 7.1 Porov.Ucet Porov.Ucet Rok F trans(Porov.Rok_M,'999 999 999 999.99') Porov.rok_m Rok F trans(Porov.Rok_A,'999 999 999 999.99') Porov.Rok_A Absolutn rozd trans(abs(Porov.Rozdil),'999 999 999 999.99') Porov.Rozdil % rozd trans(Porov.Proc,'99 999.99') Porov.Proc Porov.Nazev_Uc Porov.Nazev_Uc POLEX .tPROCX fRBOT CLEFT TiCRIGHT KFREEZE etORDER m HOR FuLEVA BPRAVA NADPIS BZAHL tJMENO PSOUC =TITLE TITLECOLORPOC0 _PROC _STAVY _UCET F0PRG F1ON _MeF1PRG "/" F4_JM om_RF4PRG ,TISKPRG F7_JM (F7PRG ) F9PRG strF9KEY k2,4F9KEY1 F10_JM ="MF10PRG poRAMECEK d RIIS .: "NAZEVT tr KLICO KLNAZ r(poSPACEBAR TR_HL1 r(pTR_HL2 4) TR_HL3 TR_HL4 TR_HL5 MesTR_HL6 " +TR_HL7 _RoTR_HL8 ndiTR_HL9 ="RDET_JM *ENTER zahlDETAIL diDETPRG (poPS_LINE e PS_RETURN PS_ZAZN KLICF KLICR menoKLICV rov.UCET hodnPOM_STR ovPOM_MES POM_ROK1 hPOM_ROK2 "MOD_PSV colorz Rekapitulace t ty za syntetick Konec TRIDA MMCOLOR .tPOM_OBR POM_VOL REKAP TiNAZEVT KPS_RETURN filterz colorz Prob kumulace dat ... FILTERz AND Porov copy to c_PomP for &pom_Filt c_PomP TRIDA SELE left(Ucet,1) AS Sumace, sum(Rok_M) AS Rok_M, sum(Rok_A) as Rok_A, sum(Rozdil) as Rozdil, 000000.00 as Proc FROM &pom_Dbf GROUP BY 1 INTO DBF c_Suma SELE SU3 AS Sumace, sum(Rok_M) AS Rok_M, sum(Rok_A) as Rok_A, sum(Rozdil) as Rozdil, 000000.00 as Proc FROM &pom_Dbf GROUP BY SU3 INTO DBF c_Suma c_PomP Nebyly nalezeny znamy. c_Suma s713e RIIS 7.1 TRIDA Rekapitulace za tovou t Rekapitulace syntetick TRIDA iif(Sumace='C','Celkem ','T da '+Sumace) iif(Sumace='C','Celkem ','SU '+Sumace) Sumace Rok F trans(Rok_M,'999 999 999 999.99') Rok_M Rok F trans(Rok_A,'999 999 999 999.99') Rok_A Absolutn rozd trans(abs(Rozdil),'999 999 999 999.99') Rozdil % rozd trans(Proc,'99 999.99') POM_CO .tPOM_NAZT POM_OBR fMMCOLOR POM_ALI TiPOM_ORD KPOM_VETA POM_F1 m POM_F2 POM_FILT uPOM_DBF BMOD_SYS BPOROV tC_POMP C_SUMA HLASKA DEJ_STAV =ROK_M ROK_A OLORROZDIL SUM_M cSUM_A SUM_R iSUMACE nPROC MePOLEX PROCX dRTOP CLEFT _MeCRIGHT /" FREEZE m_RORDER DOL (LEVA ) PRAVA strNADPIS 2,4ZAHL JMENO ="MHODN poSOUC d PSOUC .: "TITLE tr TITLECOLORPOC0 r(poF0 CEBAR r(pF2 4) F3 F6 MesF7 " +F9 _RoF10 ndiF0PRG ="RF1ON *F1PRG zahlF4_JM diF4PRG (poTISKPRG e F7_JM F7PRG F9PRG F9KEY menoF9KEY1 ov.F10_JM odnF10PRG ovRAMECEK hNAZEVT KLICO "KLNAZ oSPACEBAR nTR_HL1 ansTR_HL2 ok_TR_HL3 99 TR_HL4 99'TR_HL5 (i)TR_HL6 .roTR_HL7 i TR_HL8 hl(TR_HL9 DET_JM "+sENTER Rok2DETAIL no(DETPRG s(PPS_LINE A,PS_RETURN PS_ZAZN ) =F8 ov.Rok_KLICV i =iI )POM_ROK1 uPOM_ROK2 "MOD_PSV colorz Tisk porovn ehled Konec Mod_Psv MMCOLOR .tPOM_OBR POM_VOL COLOR TISK_P TiTISK KMOD_PSV PS_RETURN colorz Tisk: Na tisk rnu Na obrazovku Mod_Lib Mod_Lib Prob tisk p ehledu ... Mod_Lib s713e s713e(!9 s713e( - (^) ipky,(^)Home,(^)End,PgUp,PgDn - Esc Pohyb Konec Prohl sestavy P_SETUP .tP_RESET P_6LPI fP_8LPI P_10CPI TiP_12CPI KP_16CPI P_20CPI P_BOLDON P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON BP_ITALOFF P_SUPERON P_SUPEROFFP_SUBON P_SUBOFF =P_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT cP_COMPRESSP_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE POM_VETA MMCOLOR POM_OBR MePOM_VOL " POM_SOUB RROK_M ,ROK_A ) PROC_C strNAVRAT ,4P_KODY MOD_LIB "MW_TISK poNASTAV_PRNMESS "NASTAV_REPS713E _SOUB CEBAR colora POM_TXT .tMMCOLOR colora POM_TXT .tPOM_OBR MMCOLOR set filter to &pom_Filt POM_ALI .tPOM_ORD POM_VETA fPOM_FILT MMCOLOR TiS713E use r% S713E der R, DEJ_MES DEJ_STAVY PREHLED FUNKCE aliab REKAP TISK_POR TISK_P m_Rok HLASKA DEJ_STAV X:\OBEC\07\ S713E.FXP X:\OBEC\07\S713E.PRG