******************************************************************************
  ***                                   DPP                                  ***
  ******************************************************************************
  
  Datum přihlášení
	******************************************************************************  
  

	ls_hodn1 = ""
	SELECT max(hodnota) INTO ls_hodn1 FROM prac_pom_po 
	WHERE os_cislo = :ldc_osc AND cislo_pom = :li_pomer AND polozka = 'cssz_prih'
	
	IF NOT IsNull(ls_hodn1) AND IsDate(Left(ls_hodn1, 10)) THEN 
		ld_dat_prih = Date(Left(ls_hodn1, 10))
		IF ld_dat_prih < ld_nast THEN SetNull(ld_dat_prih)
	ELSE
		SetNull(ld_dat_prih)
	END IF
	
	


  
  
  Datum odhlášení
  ******************************************************************************

  ls_hodn2 = ""
	SELECT max(hodnota)INTO ls_hodn2 FROM prac_pom_po 
	WHERE os_cislo = :ldc_osc AND cislo_pom = :li_pomer AND polozka = 'cssz_odh'
	

	IF NOT IsNull(ls_hodn2) AND IsDate(Left(ls_hodn2, 10)) THEN
		ld_dat_uk = Date(Left(ls_hodn2, 10))
		IF ld_nast > ld_dat_uk THEN SetNull( ld_dat_uk)
	ELSE
		SetNull(ld_dat_uk)	
	END IF


  Datum změny
  ******************************************************************************
 
 		IF tab_1.tabpage_1.cbx_6.Checked THEN
      //je zatržen přepínač jen změny v nast.obd		
			ls_obdz = String(ad_od, "YYYY-MM-DD") + " 00:00:00"
			ls_obdk = String(RelativeDate(ad_do, 10), "YYYY-MM-DD") + " 23:59:59"
			SELECT max(hodnota) INTO :ls_hodn3 FROM prac_pom_po 
			WHERE os_cislo = :ldc_osc AND cislo_pom = :li_pomer AND polozka = 'cssz_zm'
			AND hodnota BETWEEN :ls_obdz AND :ls_obdk
			USING gtr_InCursor;
		ELSE
		  //není zatržen přepínač jen změny v nast.obd		
			SELECT max(hodnota) INTO :ls_hodn3 FROM prac_pom_po 
			WHERE os_cislo = :ldc_osc AND cislo_pom = :li_pomer AND polozka = 'cssz_zm'
			USING gtr_InCursor;
		END IF
          
     IF lb_vloz THEN
  		IF NOT IsNull(ls_hodn3) AND IsDate(Left(ls_hodn3, 10)) THEN
			ld_dat = Date(Left(ls_hodn3, 10)) 
		END IF