PARAMETERS noper, ndruh, npartner, nidman, ncenhlad, typpohybu, nplatba
PRIVATE hladajdruh, hladajpartner, hladajidman, hladajcenhlad, hladajoperace, navrat
IF ISNULL(m.npartner)
    npartner=""
ENDIF 
hladajoperace=m.noper
hladajcenhlad=m.ncenhlad
hladajidman=m.nidman
hladajdruh=m.ndruh
hladajpartner=m.npartner
hladajtyppohybu=m.typpohybu
navrat=.t.
*** konkretny druh, partner a cenova hladina
IF USED("uexobr1")
    REQUERY("uexobr1")
ELSE
    USE (m.sqlprefix+"ruexobr1") ALIAS uexobr1 IN 0
    CURSORSETPROP("Buffering",5,"uexobr1")
ENDIF
IF RECCOUNT("uexobr1")=0                             && konkretny druh a partner, vsetky cenove hladiny
    hladajcenhlad="*"
    REQUERY("uexobr1")
    IF RECCOUNT("uexobr1")=0                         &&  konkretny druh a cenova hladina, vsetci partneri
        hladajcenhlad=m.ncenhlad
        hladajpartner="*"
        REQUERY("uexobr1")
        IF RECCOUNT("uexobr1")=0                     && konkretny druh, vsetky cenove hladiny, vsetci partneri
            hladajcenhlad="*"
            hladajcenhlad="*"
            REQUERY("uexobr1")
            IF RECCOUNT("uexobr1")=0                 && vsetky druhy, konkretny partner, konkretna cenova hladina
                hladajdruh="*"
                hladajcenhlad=m.ncenhlad
                hladajpartner=m.npartner
                =REQUERY("uexobr1")
                IF RECCOUNT("uexobr1")=0             && vsetky druhy, konkretny partner,  vsetky cenove hladiny
                    hladajcenhlad="*"
                    REQUERY("uexobr1")
                    IF RECCOUNT("uexobr1")=0         && vsetky druhy, konkretna cenova hladina, vsetci partneri
                        hladajcenhlad=m.ncenhlad
                        hladajpartner="*"
                        REQUERY("uexobr1")
                        IF RECCOUNT("uexobr1")=0      && vsetky druhy, vsetky cenove hladiny, vsetci partneri
                            hladajcenhlad="*"
                            hladajpartner="*"
                            =REQUERY("uexobr1")
                            IF RECCOUNT("uexobr1")=0  && nic sa nenaslo, zakladam do u_ex_obr riadok s konkretnym druhom, partnerom a cenovou hladinou
                                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)
                                =TABLEUPDATE(.t.,.t.,"uexobr1")    
                                navrat=.f.
                            ENDIF 
                        ENDIF 
                    ENDIF 
				ENDIF 
            ENDIF 
        ENDIF 
    ENDIF 
ENDIF
RETURN m.navrat
