FFFZ^D Prob prava dat ... m7_mcen incis dtos(datum) Inv. - skladba ceny pol_cen m7_mtxt ident Inv. - dopl text pol_txt cdhim m7_mdkc incis dtos(datum) Inv. - skladba ceny pol_cen tdhim m7_mdkt incis Inv. - dopl text pol_txt SELECT * FROM &w_dbf INTO DBF c_data WHERE &w_nkod == w_kod index on &w_ord tag ord Nebyly nalezeny detailn znamy. use in &w_dbf select &w_select W_DRUH W_KOD tW_SCREEN 4W_SELECT MOD_SYS W_DBF W_NKOD W_ORD _TXTW_NAZ lW_PLX W_POL lW_SCT W_CLOSE C_DATA sW_CELKEM _HLASKA PREHLED Celkem:F - Esc,^End Konec s771p do &w_pol PS_LINE W_SCT tW_CELKEM 4POLEX PROCX CLEFT CRIGHT TXTFREEZE lORDER LEVA PRAVA NADPIS sZAHL _JMENO fPSOUC TITLE TITLECOLORPOC0 SKPROC LFPROC F0PRG F1ON tF1PRG vF4_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 datTR_HL6 ,daTR_HL7 ,m7TR_HL8 oriTR_HL9 j.uDET_JM ENTER DETAIL DETPRG _mPS_RETURN PS_ZAZN 5),F8 'W_NAZ W_PLX MOD_PSV c_data.text c_data.text Doklad c_data.doklad c_data.doklad Datum transform(c_data.datum,'@E') c_data.datum Cena str(c_data.cena,10,2) c_data.cena c_data.ucet c_data.ucet c_data.pozn c_data.pozn _LINE tJMENO 4HODN c_data.text c_data.text _LINE tJMENO 4HODN S771P PREHLED POL_CEN POL_TXT P:\IN\SK\O\07\ S771P.FXP P:\IN\SK\O\07\S771P.PRG