*FUNCTION testuexobr
PARAMETERS m.noper, m.ndruh, m.npartner, m.nidman, m.ncenhlad, m.typpohybu, m.nplatba
PRIVATE m.hladajdruh, m.hladajpartner, m.hladajidman, m.hladajcenhlad, m.hladajoperace, m.navrat
IF ISNULL(m.npartner)
	m.npartner=""
ENDIF 
DO open_database
m.hladajoperace=m.noper
m.hladajcenhlad=m.ncenhlad
m.hladajidman=m.nidman
m.hladajdruh=m.ndruh
m.hladajpartner=m.npartner
m.hladajtyppohybu=m.typpohybu
m.navrat=.t.
*** konkretny druh, partner a cenova hladina
IF USED("uexobr1")
    =REQUERY("uexobr1")
ELSE
    IF m.issql
        USE (m.sqlprefix+"ruexobr1") ALIAS uexobr1 IN 0
    ELSE
        IF !USED("u_ex_obr")
            USE (m.gcucto_path+"u_ex_obr") IN 0
        ENDIF 
        USE vuexobr1 ALIAS uexobr1 IN 0
    ENDIF 
    =CURSORSETPROP("Buffering",5,"uexobr1")
ENDIF
IF RECCOUNT("uexobr1")=0
    *** konkretny druh a partner, vsetky cenove hladiny
    m.hladajcenhlad="*"
    =REQUERY("uexobr1")
    IF RECCOUNT("uexobr1")=0
        *** konkretny druh a cenova hladina, vsetci partneri
        m.hladajcenhlad=m.ncenhlad
        m.hladajpartner="*"
        =REQUERY("uexobr1")
        IF RECCOUNT("uexobr1")=0
            *** konkretny druh, vsetky cenove hladiny, vsetci partneri
            m.hladajcenhlad="*"
            m.hladajcenhlad="*"
            =REQUERY("uexobr1")
            IF RECCOUNT("uexobr1")=0
                *** vsetky druhy, konkretny partner, konkretna cenova hladina
                IF m.hladajdruh="SPOT_DAN"
					INSERT INTO uexobr1 (id_man, operace, druh, partner, cen_hlad, co, pz, poznamka, typ_pohybu) VALUES ;
						(m.nidman, m.noper, m.ndruh, m.npartner, m.ncenhlad, "prachy", 'operace +" "+partner',"OBR "+m.nidman+" "+m.noper+" "+m.npartner, m.hladajtyppohybu)
                    =tux(.t.,.t.,"uexobr1")    
                    m.novinka=.t.
                    m.pokracuj=.f.
                    *** vytiahnem z uexobr konkretny zaznam, aby som ho mohol ponuknut na editaciu
                    m.hladajoperace=m.noper
                    m.hladajcenhlad=m.ncenhlad
                    m.hladajidman=m.nidman
                    m.hladajdruh=m.ndruh
                    m.hladajpartner=m.npartner
                    =REQUERY("uexobr1")
                    m.navrat=.f.
                ELSE 
					IF INLIST(LOWER(m.gcuct_typ),"softip","ekoadam","pohoda","asseco","money","navision","kros") AND m.hladajoperace="PE"
		                m.hladajdruh=m.nplatba+" "+"*"
		            ELSE
		                m.hladajdruh="*"
		            ENDIF 
	                m.hladajcenhlad=m.ncenhlad
	                m.hladajpartner=m.npartner
	                =REQUERY("uexobr1")
	                IF RECCOUNT("uexobr1")=0
	                    *** vsetky druhy, konkretny partner,  vsetky cenove hladiny
	                    m.hladajcenhlad="*"
	                    =REQUERY("uexobr1")
	                    IF RECCOUNT("uexobr1")=0
	                        *** vsetky druhy, konkretna cenova hladina, vsetci partneri
	                        m.hladajcenhlad=m.ncenhlad
	                        m.hladajpartner="*"
	                        =REQUERY("uexobr1")
	                        IF RECCOUNT("uexobr1")=0
	                            *** vsetky druhy, vsetky cenove hladiny, vsetci partneri
	                            m.hladajcenhlad="*"
	                            m.hladajpartner="*"
	                            =REQUERY("uexobr1")
	                            IF RECCOUNT("uexobr1")=0
	                                *** nic sa nenaslo, zakladam do u_ex_obr riadok s konkretnym druhom, partnerom a cenovou hladinou
	                                IF m.noper="FA"
	                                    INSERT INTO uexobr1 (id_man, operace, druh, partner, cen_hlad, co, pz, poznamka, c_data, typ_pohybu) VALUES ;
	                                        (m.nidman, m.noper, m.ndruh, m.npartner, m.ncenhlad, "prachy_par", 'operace +" "+partner',"OBR "+m.nidman+" FA "+m.noper+" "+m.npartner, m.cdata, m.hladajtyppohybu)
	                                ELSE
	                                    INSERT INTO uexobr1 (id_man, operace, druh, partner, cen_hlad, co, pz, poznamka, typ_pohybu) VALUES ;
	                                        (m.nidman, m.noper, m.ndruh, m.npartner, m.ncenhlad, "prachy", 'operace +" "+partner',"OBR "+m.nidman+" "+m.noper+" "+m.npartner, m.hladajtyppohybu)
	                                ENDIF 
	                                =tux(.t.,.t.,"uexobr1")    
	                                m.novinka=.t.
	                                m.pokracuj=.f.
	                                *** vytiahnem z uexobr konkretny zaznam, aby som ho mohol ponuknut na editaciu
	                                m.hladajoperace=m.noper
	                                m.hladajcenhlad=m.ncenhlad
	                                m.hladajidman=m.nidman
	                                m.hladajdruh=m.ndruh
	                                m.hladajpartner=m.npartner
	                                =REQUERY("uexobr1")
	                                m.navrat=.f.
	                            ENDIF 
	                        ENDIF 
	                    ENDIF 
	                ENDIF     
				ENDIF 
            ENDIF 
        ENDIF 
    ENDIF 
ENDIF
RETURN m.navrat
