Hodnocen Hodnocen RIIS 9.0 p1_rada xp1_rada m1_plan x1_plan m1_ident ident RIIS 9.0 AKTUAL m1_obr (aktu l.obdob Prob r obrat pro odv , lomy a vratky ... u1_obr r.obdob Prob r obrat pro odv , lomy a vratky ... m1_obr_a (archiv.obdob Prob r obrat pro odv , lomy a vratky ... m_cis1 KOD_OB c1Cur c1Cur c_obr Hodnocen roby - p ehled obrat mod91f funkce Funkce stred_obr stred_obr ' '+druhobr+' ' stred_obr kod_ob kod_ob Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj vydal_skl vydal_skl ' '+str(mesic,2)+' ' str(mesic,2) str(rok,4) str(rok,4) Dat.obr. tran(termin_ob,'@E') termin_ob Cena/MJ str(naklad,11,2) naklad Celk.mno str(skut_mnoz,12,3) skut_mnoz Cena celkem str(celkem,13,2) celkem Hmotnost/MJ str(Hmot_mj,11,3) hmot_mj Hmot. celkem str (hmot_celk,13,2) hmot_celk p1_rada.nazev p1_rada.nazev del c_obr.* del c1Cur.* CDRUH W_OBDOBI =P1_RADA a/XP1_RADA (M1_PLAN r(X1_PLAN ,2M1_IDENT )IDENT kladRADA QRIIS 'M1_OBR meno(iCOBD tr(skMESS z,12,U1_OBR n(iM1_OBR_A oW_ODMES +1W_DOMES i)W_ODROK naW_DOROK jW_ESC = SEL_DAT emNCENA hoHODNOTA "cKOD ouHOD_EXT t.DRUHOBR (i) M_CIS1 ostS_RIIS enoC1CUR trSKUT_MNOZ NAKLAD dn(CELKEM motHMOT_MJ +1HMOT_CELK KOD_OB ot.C_OBR jDISPLAY_BOALL (hmot_VAHA_MJ )"FOR _MNOZ DISPLAY_BASTRED_OBR TERMIN_OB POLEX zaPROCX zeRTOP jmRBOT ="p1_CLEFT zev"CRIGHT )="FREEZE nazORDER do mHOR mohouPRAVA likeNADPIS eroZAHL !dJMENO c1CurSOUC PSOUC ****TITLE ****TITLECOLORPOC0 *****F0 PROCF1 E FunkcF2 f emptyF3 ccount F4 do F6 ka withF7 or ! ' eturn F0PRG sF1ON reen F1PRG koF4_JM voF4PRG do wTISKPRG F7_JM F7PRG lor F9PRG F9KEY cleaF9KEY1 0,6F10_JM m,2F10PRG 0,6RAMECEK RIIS colorNAZEVT ,b/KLICO m+1KLNAZ mpt SPACEBAR aTR_HL1 ka TR_HL2 adyTR_HL3 m+TR_HL4 mptTR_HL5 t zTR_HL6 skaTR_HL7 m+TR_HL8 mptTR_HL9 t zDET_JM adyENTER diskDETAIL @ mDETPRG ompPS_LINE t PS_RETURN PS_ZAZN MOD_PSV soubor ! et za st ediska a v et za st ediska et za v ady a st ediska et za v robkov et za st ediska a v robky et za sklady a v robky et za v robky Konec HLASKA =KONEC a/VOL11 r(SUMASTRVR SUMASTRED SUMAVRSTR SUMAVYRRADSUMASTRVYRSUMASKLVYRSUMAVYR CCvyr prava dat pro hodnocen roby ... FILTERz AND c_obr copy to c_sql for &filt c_sql c_sql.dbf CCvyr soubor ! Hodnocen roby dle st RIIS 7.5 mod91f ---- Za st edisko: soucty CCvyr.str CCvyr.str CCvyr.rada CCvyr.rada CCvyr.nazev_rady CCvyr.nazev_rady V roba/K str(CCvyr.vyrobaKC,14,2) CCvyr.vyrobaKC V roba/Kg str(CCvyr.vyrobaKg,14,2) CCvyr.vyrobaKg Odv str(CCvyr.odvadKC,14,2) CCvyr.odvadKC Odv str(CCvyr.odvadKg,14,2) CCvyr.odvadKg Lomy/K str(CCvyr.lomyKC,14,2) CCvyr.lomyKC Lomy/Kg str(CCvyr.lomyKg,14,2) CCvyr.lomyKg Vratky/K str(CCvyr.vratkyKC,14,2) CCvyr.vratkyKC Vratky/Kg str(CCvyr.vratkyKg,14,2) CCvyr.vratkyKg del ccvyr.* del cs1.* CCVYR =RADA a/ODVADKC (ODVADKG r(LOMYKC LOMYKG VRATKYKC VRATKYKG DVYROBAKC RVYROBAKG RNAZEV_RADYC_OBR r(skZAZ ,12,O01 n(iMESS oFILT1 +1FILT2 i)FILT naSTRED_OBR DRUHOBR CELKEM emHMOT_CELK "cCS1 ouC_SQL t.DBF P1_RADA NAZEV DYHLASKA oPOLEX trPROCX dn(RBOT motCLEFT +1CRIGHT FREEZE ot.ORDER LAY_BODOL (hmot_LEVA )"PRAVA NADPIS _BAZAHL JMENO zaSOUC zePSOUC jmTITLE "p1_TITLECOLORPOC0 )="F0 nazF1 do mF2 mohouF6 likeF7 eroF9 !dF10 F0PRG 1CurF1ON F1PRG ****F4_JM ****F4PRG OLORTISKPRG **F7_JM PROCF7PRG unkcF9PRG mptyF9KEY unt F9KEY1 do F10_JM ithF10PRG RAMECEK NAZEVT sKLICO een KLNAZ koSPACEBAR oTR_HL1 o wTR_HL2 TR_HL3 TR_HL4 or TR_HL5 TR_HL6 leaTR_HL7 0,6TR_HL8 m,2TR_HL9 0,6DET_JM ENTER olorDETAIL ,b/DETPRG m+1PS_LINE t PS_RETURN PS_ZAZN a QRIIS adyCOBD m+CDRUH mptW_OBDOBI ORMOD_PSV CCvyr prava dat pro hodnocen roby ... FILTERz AND c_obr copy to c_sql for &filt c_sql c_sql.dbf CCvyr soubor ! Hodnocen roby podle st edisek RIIS 7.5 mod91f soucty CCvyr.str CCvyr.str V roba/K str(CCvyr.vyrobaKC,14,2) CCvyr.vyrobaKC V roba/Kg str(CCvyr.vyrobaKg,14,2) CCvyr.vyrobaKg Odv str(CCvyr.odvadKC,14,2) CCvyr.odvadKC Odv str(CCvyr.odvadKg,14,2) CCvyr.odvadKg Lomy/K str(CCvyr.lomyKC,14,2) CCvyr.lomyKC Lomy/Kg str(CCvyr.lomyKg,14,2) CCvyr.lomyKg Vratky/K str(CCvyr.vratkyKC,14,2) CCvyr.vratkyKC Vratky/Kg str(CCvyr.vratkyKg,14,2) CCvyr.vratkyKg del ccvyr.* del cs1.* CCVYR =RADA a/ODVADKC (ODVADKG r(LOMYKC LOMYKG VRATKYKC VRATKYKG DVYROBAKC RVYROBAKG RNAZEV_RADYC_OBR r(skZAZ ,12,O01 n(iMESS oFILT1 +1FILT2 i)FILT naSTRED_OBR DRUHOBR CELKEM emHMOT_CELK "cCS1 ouC_SQL t.DBF HLASKA POLEX DYPROCX oRTOP trRBOT CLEFT dn(CRIGHT motFREEZE +1ORDER ot.DOL jLEVA AY_BOPRAVA mot_NADPIS )"ZAHL JMENO _BAHODN PSOUC zaTITLE zeTITLECOLORPOC0 "p1_F0 LECOLORF1 )="F2 nazF3 do mF4 mohouF9 likeF10 eroF0PRG !dF1ON F1PRG 1CurF4_JM F4PRG ****TISKPRG **F7_JM OLORF7PRG **F9PRG PROCF9KEY unkcF9KEY1 ptyF10_JM nt F10PRG do RAMECEK thRIIS NAZEVT KLICO KLNAZ sSPACEBAR TR_HL1 koTR_HL2 oTR_HL3 o wTR_HL4 TR_HL5 TR_HL6 or TR_HL7 TR_HL8 leaTR_HL9 0,6DET_JM m,2ENTER 0,6DETAIL DETPRG lorPS_LINE b/PS_RETURN PS_ZAZN t QRIIS a CDRUH adyW_OBDOBI ORMOD_PSV CCvyr prava dat pro hodnocen roby ... FILTERz AND c_obr copy to c_sql for &filt c_sql c_sql.dbf CCvyr soubor ! Hodnocen roby dle v ad a st RIIS 7.5 mod91f --- Za soucty CCvyr.rada CCvyr.rada CCvyr.str CCvyr.str CCvyr.nazev_rady CCvyr.nazev_rady V roba/K str(CCvyr.vyrobaKC,14,2) CCvyr.vyrobaKC V roba/Kg str(CCvyr.vyrobaKg,14,2) CCvyr.vyrobaKg Odv str(CCvyr.odvadKC,14,2) CCvyr.odvadKC Odv str(CCvyr.odvadKg,14,2) CCvyr.odvadKg Lomy/K str(CCvyr.lomyKC,14,2) CCvyr.lomyKC Lomy/Kg str(CCvyr.lomyKg,14,2) CCvyr.lomyKg Vratky/K str(CCvyr.vratkyKC,14,2) CCvyr.vratkyKC Vratky/Kg str(CCvyr.vratkyKg,14,2) CCvyr.vratkyKg del ccvyr.* del cs1.* CCVYR =RADA a/ODVADKC (ODVADKG r(LOMYKC LOMYKG VRATKYKC VRATKYKG DVYROBAKC RVYROBAKG RNAZEV_RADYC_OBR r(skZAZ ,12,O01 n(iMESS oFILT1 +1FILT2 i)FILT naSTRED_OBR DRUHOBR CELKEM emHMOT_CELK "cCS1 ouC_SQL t.DBF P1_RADA NAZEV DYHLASKA oPOLEX trPROCX dn(RBOT motCLEFT +1CRIGHT FREEZE ot.ORDER AY_BODOL mot_LEVA )"PRAVA NADPIS _BAZAHL JMENO zaSOUC zePSOUC OLORTITLE "p1_TITLECOLORPOC0 )="F0 nazF1 do mF2 mohouF6 likeF7 eroF9 !dF10 F0PRG 1CurF1ON F1PRG ****F4_JM **F4PRG OLORTISKPRG **F7_JM PROCF7PRG unkcF9PRG ptyF9KEY nt F9KEY1 do F10_JM thF10PRG RAMECEK NAZEVT sKLICO KLNAZ koSPACEBAR oTR_HL1 o wTR_HL2 TR_HL3 TR_HL4 or TR_HL5 TR_HL6 leaTR_HL7 0,6TR_HL8 m,2TR_HL9 0,6DET_JM ENTER lorDETAIL b/DETPRG PS_LINE t PS_RETURN PS_ZAZN a QRIIS adyCOBD +CDRUH ORW_OBDOBI ORMOD_PSV CCvyr prava dat pro hodnocen roby ... FILTERz AND c_obr copy to c_sql for &filt c_sql c_sql.dbf CCvyr soubor ! Hodnocen roby dle v robkov RIIS 7.5 mod91f soucty CCvyr.rada CCvyr.rada CCvyr.nazev_rady CCvyr.nazev_rady V roba/K str(CCvyr.vyrobaKC,14,2) CCvyr.vyrobaKC V roba/Kg str(CCvyr.vyrobaKg,14,2) CCvyr.vyrobaKg Odv str(CCvyr.odvadKC,14,2) CCvyr.odvadKC Odv str(CCvyr.odvadKg,14,2) CCvyr.odvadKg Lomy/K str(CCvyr.lomyKC,14,2) CCvyr.lomyKC Lomy/Kg str(CCvyr.lomyKg,14,2) CCvyr.lomyKg Vratky/K str(CCvyr.vratkyKC,14,2) CCvyr.vratkyKC Vratky/Kg str(CCvyr.vratkyKg,14,2) CCvyr.vratkyKg del ccvyr.* del cs1.* CCVYR =RADA a/ODVADKC (ODVADKG r(LOMYKC LOMYKG VRATKYKC VRATKYKG DVYROBAKC RVYROBAKG RNAZEV_RADYC_OBR r(skZAZ ,12,O01 n(iMESS oFILT1 +1FILT2 i)FILT naSTRED_OBR DRUHOBR CELKEM emHMOT_CELK "cCS1 ouC_SQL t.DBF P1_RADA NAZEV DYHLASKA oPOLEX trPROCX dn(RBOT motCLEFT +1CRIGHT FREEZE ot.ORDER AY_BODOL mot_LEVA )"PRAVA NADPIS _BAZAHL JMENO zaSOUC zePSOUC OLORTITLE "p1_TITLECOLORPOC0 )="F0 nazF1 do mF2 mohouF6 likeF7 eroF9 !dF10 F0PRG 1CurF1ON F1PRG ****F4_JM **F4PRG OLORTISKPRG **F7_JM PROCF7PRG unkcF9PRG ptyF9KEY nt F9KEY1 do F10_JM thF10PRG RAMECEK NAZEVT sKLICO KLNAZ koSPACEBAR oTR_HL1 o wTR_HL2 TR_HL3 TR_HL4 or TR_HL5 TR_HL6 leaTR_HL7 0,6TR_HL8 m,2TR_HL9 0,6DET_JM ENTER lorDETAIL b/DETPRG PS_LINE t PS_RETURN PS_ZAZN a QRIIS adyCOBD +CDRUH ORW_OBDOBI ORMOD_PSV colora MCOLOR prava dat ... CCvyr prava dat pro hodnocen roby ... FILTERz AND c_obr copy to c_sql for &filt c_sql c_sql.dbf CCvyr soubor ! Hodnocen roby dle st RIIS 7.5 mod91f ---- Za st edisko: soucty_m CCvyr.str CCvyr.str Identifikace CCvyr.ident CCvyr.ident CCvyr.nazev CCvyr.nazev Mno str(CCvyr.mnoz,12,3) CCvyr. mnoz V roba/K str(CCvyr.vyrobaKC,14,2) CCvyr.vyrobaKC V roba/Kg str(CCvyr.vyrobaKg,14,2) CCvyr.vyrobaKg Odv str(CCvyr.odvadKC,14,2) CCvyr.odvadKC Odv str(CCvyr.odvadKg,14,2) CCvyr.odvadKg Lomy/K str(CCvyr.lomyKC,14,2) CCvyr.lomyKC Lomy/Kg str(CCvyr.lomyKg,14,2) CCvyr.lomyKg Vratky/K str(CCvyr.vratkyKC,14,2) CCvyr.vratkyKC Vratky/Kg str(CCvyr.vratkyKg,14,2) CCvyr.vratkyKg del ccvyr.* del cs1.* CCVYR =IDENT a/ODVADKC (ODVADKG r(LOMYKC LOMYKG VRATKYKC VRATKYKG DVYROBAKC RVYROBAKG RNAZEV RADYMNOZ r(skC_OBR ,12,ZAZ n(iO01 oMESS +1FILT1 i)FILT2 naFILT STRED_OBR DRUHOBR CELKEM HMOT_CELK ouSKUT_MNOZ C_SQL M1_IDENT HLASKA rPOLEX PROCX dn(RTOP motRBOT +1CLEFT CRIGHT ot.FREEZE jORDER Y_BOHOR mot_DOL )"LEVA PRAVA _BANADPIS JMENO zaHODN zeSOUC OLORPSOUC "p1_TITLE OLORTITLECOLORPOC0 nazF0 do mF1 mohouF4 likeF6 eroF7 1CurF0PRG ****F1PRG **F4_JM OLORF4PRG **TISKPRG OCF7_JM unkcF7PRG ptyF9PRG nt F9KEY do F9KEY1 thF10_JM F10PRG RAMECEK sNAZEVT KLICO koKLNAZ oSPACEBAR wTR_HL1 TR_HL2 TR_HL3 or TR_HL4 TR_HL5 leaTR_HL6 0,6TR_HL7 m,2TR_HL8 0,6TR_HL9 DET_JM lorENTER b/DETAIL DETPRG t PS_LINE PS_RETURN PS_ZAZN dyQRIIS +COBD ORCDRUH zW_OBDOBI ORMOD_PSV CCvyr prava dat pro hodnocen roby ... FILTERz AND c_obr copy to c_sql for &filt c_sql c_sql.dbf CCvyr soubor ! Hodnocen roby dle skl.a v RIIS 7.5 mod91f vydal_skl ---- Za sklad: soucty_m CCvyr.vydal_skl CCvyr.vydal_skl Identifikace CCvyr.ident CCvyr.ident CCvyr.nazev CCvyr.nazev Mno str(CCvyr.mnoz,12,3) CCvyr. mnoz V roba/K str(CCvyr.vyrobaKC,14,2) CCvyr.vyrobaKC V roba/Kg str(CCvyr.vyrobaKg,14,2) CCvyr.vyrobaKg Odv str(CCvyr.odvadKC,14,2) CCvyr.odvadKC Odv str(CCvyr.odvadKg,14,2) CCvyr.odvadKg Lomy/K str(CCvyr.lomyKC,14,2) CCvyr.lomyKC Lomy/Kg str(CCvyr.lomyKg,14,2) CCvyr.lomyKg Vratky/K str(CCvyr.vratkyKC,14,2) CCvyr.vratkyKC Vratky/Kg str(CCvyr.vratkyKg,14,2) CCvyr.vratkyKg del ccvyr.* del cs1.* CCVYR VYDAL_SKL IDENT ODVADKC (ODVADKG r(LOMYKC LOMYKG VRATKYKC VRATKYKG DVYROBAKC RVYROBAKG RNAZEV RADYMNOZ r(skSKL C_OBR n(iZAZ +1MESS i)FILT1 naFILT2 DRUHOBR CELKEM HMOT_CELK ouSKUT_MNOZ C_SQL M1_IDENT HLASKA rPOLEX PROCX dn(RTOP motRBOT +1CLEFT CRIGHT ot.FREEZE jORDER Y_BOHOR mot_DOL )"LEVA PRAVA _BANADPIS JMENO zaHODN zeSOUC OLORPSOUC "p1_TITLE OLORTITLECOLORPOC0 nazF0 do mF1 mohouF4 likeF6 eroF7 1CurF0PRG ****F1PRG **F4_JM OLORF4PRG **TISKPRG OCF7_JM unkcF7PRG ptyF9PRG nt F9KEY do F9KEY1 thF10_JM F10PRG RAMECEK sNAZEVT KLICO koKLNAZ oSPACEBAR wTR_HL1 TR_HL2 TR_HL3 or TR_HL4 TR_HL5 leaTR_HL6 0,6TR_HL7 m,2TR_HL8 0,6TR_HL9 DET_JM lorENTER b/DETAIL DETPRG t PS_LINE PS_RETURN PS_ZAZN dyQRIIS +COBD ORCDRUH zW_OBDOBI ORMOD_PSV CCvyr prava dat pro hodnocen roby ... FILTERz AND c_obr copy to c_sql for &filt c_sql c_sql.dbf CCvyr soubor ! Hodnocen roby dle skl.a v RIIS 7.5 mod91f soucty_m Identifikace CCvyr.ident CCvyr.ident CCvyr.nazev CCvyr.nazev Mno str(CCvyr.mnoz,12,3) CCvyr. mnoz V roba/K str(CCvyr.vyrobaKC,14,2) CCvyr.vyrobaKC V roba/Kg str(CCvyr.vyrobaKg,14,2) CCvyr.vyrobaKg Odv str(CCvyr.odvadKC,14,2) CCvyr.odvadKC Odv str(CCvyr.odvadKg,14,2) CCvyr.odvadKg Lomy/K str(CCvyr.lomyKC,14,2) CCvyr.lomyKC Lomy/Kg str(CCvyr.lomyKg,14,2) CCvyr.lomyKg Vratky/K str(CCvyr.vratkyKC,14,2) CCvyr.vratkyKC Vratky/Kg str(CCvyr.vratkyKg,14,2) CCvyr.vratkyKg del ccvyr.* del cs1.* CCVYR IDENT ODVADKC ODVADKG (LOMYKC r(LOMYKG VRATKYKC VRATKYKG VYROBAKC DVYROBAKG RNAZEV RMNOZ RADYC_OBR r(skZAZ n(iMESS oFILT1 +1FILT2 i)FILT naDRUHOBR CELKEM HMOT_CELK SKUT_MNOZ ouC_SQL M1_IDENT HLASKA POLEX PROCX rRTOP dn(CLEFT motCRIGHT +1FREEZE ORDER ot.HOR Y_BOLEVA mot_PRAVA )"NADPIS _BAJMENO zaPSOUC zeTITLE OLORTITLECOLORPOC0 OLORF0 LECOLORF1 nazF2 do mF3 mohouF7 likeF9 eroF10 !dF0PRG 1CurF1PRG F4_JM ****F4PRG **TISKPRG ORF7_JM **F7PRG OCF9PRG unkcF9KEY ptyF9KEY1 nt F10_JM do F10PRG thRAMECEK RIIS NAZEVT KLICO sKLNAZ SPACEBAR oTR_HL1 oTR_HL2 wTR_HL3 TR_HL4 TR_HL5 or TR_HL6 TR_HL7 leaTR_HL8 0,6TR_HL9 m,2DET_JM 0,6ENTER DETAIL lorDETPRG b/PS_LINE PS_RETURN PS_ZAZN QRIIS dyCDRUH +W_OBDOBI ORMOD_PSV Celkov Esc,^End roba : K Kg : K Kg Lomy : K Kg Vratky : K Kg 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 W_SCR W_REC VYROBAKC VYROBAKG (ODVADKC r(ODVADKG LOMYKC LOMYKG VRATKYKC DVRATKYKG RSUMVYRKC RSUMVYRKG YSUMODVKC kSUMODVKG SUMLOMKC iSUMLOMKG oSUMVRAKC 1SUMVRAKG Celkov Esc,^End roba : K Kg : K Kg Lomy : K Kg Vratky : K Kg 99 999 999.999 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 W_SCR W_REC VYROBAKC VYROBAKG (ODVADKC r(ODVADKG LOMYKC LOMYKG VRATKYKC DVRATKYKG RMNOZ RSUMVYRKC YSUMVYRKG kSUMODVKC SUMODVKG iSUMLOMKC oSUMLOMKG 1SUMVRAKC )SUMVRAKG aSUMMNOZ m_param ehled obrat V obdob od (mm/rrrr) do (mm/rrrr) Nespr zadan obdob (obdob Od: > Do:). Nespr zadan obdob (chybn Prob r obrat pro odv , lomy a vratky ... m1_obr_a obdobi m1_obr W_SCRROK M_PARAM W_AKT TER_UZAV (W_AKTMES (W_AKTROK W_AKTOBD W_ODMES W_ODROK DW_DOMES RW_DOROK RW_ESC YW_ODOBD kW_DOOBD HLASKA iMESS oM1_OBR_A 1OBDOBI MESIC M1_OBR MOD91F % FUNKCE SUMASTRVR SUMASTRED SUMAVRSTR SUMAVYRRAD @ DISPLAY_BA DISPLAY_BO SUMASTRVYR SUMASKLVYR SUMAVYR SOUCTY w_do! SOUCTY_M SEL_DAT X:\OBEC\09\ MOD91F.FXP X:\OBEC\09\MOD91F.PRG