german m_dat x_dat m_cis1 x_cis1 VN pro typ n : k : RIIS 1.7 TYP_NAKL p_nakl Pros ekejte ! Prob mod_fun GERMAN do M_DAT y(plX_DAT nd tM_CIS1 p_nX_CIS1 ndeP_DAT ent P_NAKL JMENO_C ioWJMENO_C OK_C 1_ideMOD_C2 me RADEK_C x)SLOUPEC_C MOD_C1 dMOD_SYS poTXT i TXT1 ahl(iBLIK entifHLASKA jmeMOD_FUN enPRE_UVN Historie archiv_nak Detail zobr_det VN pro typ n k : RIIS 1.7 mod17u m1_ident ident m1_kalk x1_kalk m1_kalk m1_ident c_kalk Identifikace ident ident m1_ident.nazev m1_ident.nazev ' '+m1_ident.kod_pol+' ' m1_ident.kod_pol ' '+typ_nakl+' ' typ_nakl str(uvn,10,2) str(kusy_d,7)+' ' kusy_d Mzda-p substr(str(prip, 12,2),5,8,2)+' ' Mzda-kusov str(kusov,12,2) kusov OPM str(opm,10,2) Materi str(mater,9,2) mater Mat.vl.v ' '+str(koop,9,2) OPN str(opn,10,2) ' '+str(sr,10,2) str(vr,10,2) str(zr,10,2) Odb.re str(or,10,2) tran(pl_od,'@e') pl_od Dat.akt. tran(dat_ak,'@e') dat_ak POLEX do FREEZE (plF1 nd tF2 p_nF3 ndeF4 ent F5 ENO_C 1_ideF9 me F10 x)F10_JM F10PRG dRAMECEK poDETAIL i DET_JM l(iDETPRG tifNAZEVT jmeP_NAKL enP_DAT i)RIIS iNADPIS zahLEVA zevPRAVA o(i)HOR ident.DOL hodPROCX 1_idM1_IDENT IDENT zM1_KALK dX1_KALK "' '+m1_B _IDENT pC_KALK hoKOD_POL _iPL_OD d_poPL_DO i+1TYP_NAKL 'ZAHL eJMENO ' '+HODN l+' I n(i)MOD_PSV l'OBSAH VN : vky : Mzda p Mzda kusov OPM : Materi l : Mat.vl.v OPN : SR : VR : ZR : OR : 999999999 do M1_IDENT lNAZEV nd tIDENT nTYP_NAKL ent KUSY_D ioKUSOV 1_ideMATER me KOOP x)OPN colorz mod_proc set color to &_col do _SCR lPS_LINE tZOBR_NAKL2IDENT eP_NAKL nt MOD_PROC MOD17U PRE_UVN ZOBR_DET ARCHIV_NAK L:\OBEC\01\ MOD17U.FXP L:\OBEC\01\MOD17U.PRG