Provede se kontrola na duplicity mezi ident. a z kaz. identifikac Opravdu chcete prov st kontrolu na duplicity ? Konec Kontrola duplicit Prob kontrola na duplicity ... Funkce mod11bd e h l e d duplicit RIIS 1.1 mod11e m1_ident m1_ident c1_ident Rozpiska ident ident nazev nazev ' '+kod_pol+' ' kod_pol str(ds,3) Ident.odb ratele substr(ident_odb,1,9) ident_odb ident_odb Postup c_postup c_postup jak_csn jak_csn rozm_csn rozm_csn Sekund. kl sek_ident sek_ident space(4)+rada Datum tran(datum,'@E') dtoc(datum ) VOLBA no(iDET_OBR stVOL hodn(iM c_postupMOD_WIN i)POLEX jmeCARA "typ"POC0 (i)="POC1 i = iPOC2 zahlPOCS jmeno(iF2 "jak_csF3 hodn(i)F4 k_csn" hl(i)='F7 SN'F8 eno(i) F9 ozm_csnF10 dn(i)=DETAIL F10_JM *F10PRG )='RAMECEK NAZEVT o(iRIIS ek_idNADPIS dn(LEVA k_idePRAVA = i+HOR zahl(DOL adPROCX no(iM1_IDENT )IDENT hodIDENT_ODB C1_IDENT =JMENO i)="I tum,PODNIK hodMOD_PSV c(OBSAH colorz no(iM1COLOR colorz Vyhled Zadejte rozpisku nebo n zev rozpisky ident soucasti nazev nazev 'ident' ident mod_fun Rozpiska nebyla nalezena 'ident' ident MCOLOR o(iOBR stM1_IDENT IDENT pKLIC M_ORD1 i)NAZEV jmeW_CESTINA (i)="HLASKA = iMOD_FUN Provede se zru polo ek, kter ADU=000, ji nejsou v objedn ka a vyhovuj em podm pro zru . polo ky se p evedou do archivu. Konec it polo Prob polo ek (p evod do archivu) ... m1_ident ident m2_por ident m1_ident m2_por a2_por m2_por c1_ident m1_zas x1_zas m1_kalk x1_kalk m1_plan x1_plan m1_zmena x1_zmena m1_pozid x1_pozid m1_kalks x1_kalks m1_um ident m1_npol ident m1_kusov pozice m4_nahr ident mod1pro VOLBA o(iDET_OBR stVOL IDENT pMOD_WIN i)HR_RUS jmeM1_IDENT IDENT i)="M2_POR = iDISTINCT lA2_POR SRADA iC1_IDENT sM1_ZAS (i)X1_ZAS M1_KALK *X1_KALK ='M1_PLAN N'X1_PLAN ) M1_ZMENA nX1_ZMENA =M1_POZID X1_POZID *M1_KALKS 'X1_KALKS M1_UM o(iM1_NPOL idM1_KUSOV (POZICE ideM4_NAHR i+ZRUS_POL (MOD1PRO adMOD11E HLEDEJ1 MOD11F L:\OBEC\01\ MOD11E.FXP L:\OBEC\01\MOD11E.PRG