 2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      dataenvironment      dataenvironment      Dataenvironment      JLeft = 1
Top = 220
Width = 520
Height = 200
Name = "Dataenvironment"
      1      1      form      form      Form1      Top = 10
Left = 41
Height = 519
Width = 499
DoCreate = .T.
Comment = "iz"
BufferMode = 0
Caption = "Izpis zalog"
FontName = "Arial Narrow CE"
FontSize = 10
BackColor = 251,250,247
coldmattozd = 
nnacin = 1
Name = "Form1"
     ^PROCEDURE izrzal
parameters dBlag,dDatumOd,lNabcIzCen
regional cVeza1,cMat,nZal,nCena,cFilt,nZadNabCe,dZadnji,lPogoj, cEscape,nPovprCena,nPovprVre,lPraviMat,;
lNapaka,cNCFlag
if type('dBlag')<>'D'
  dBlag=prazen(date())
endif
if type('dDatumOd')<>'D'
  dDatumOd=prazen(date())
endif
lNapaka=.F.
if type('m.vsegrupe')<>'N'
  m.vsegrupe=1
endif

if m.tip_cene=7 && ce izberem cene iz cenika 
  lNabcIzCen = .T.
endif
  
if m.chkblag=1
  do OpenNorm in ..\..\OpenDbf
  Do OpenBl1  in ..\..\OpenDbf
  set order to tag datum
  if .not. seek(dBlag)
    ?? chr(7)
    wait 'Na blagajni dne '+dtos(dBlag)+' ni prodaje ???' window
  endif
  Do OpenBl2 in  ..\..\OpenDbf
endif

if m.signal=5 .and. lArhivP     && ali sem povedal tudi pot do arh.promet in imam izpis mat.brez gibanja
  cParhProm=rtrim(cPArhPath)+'promet'
  use (cParhProm) alias arhprom in 0 shared
  select arhprom 
  if lVsaSkl
    set order to tag mat_skl
  else
    set order to tag skl_mat
  endif  
endif
cNCFlag=' '

do case
  case m.tip_cene=1
    cTipCene='Z' 
    cCenaOpis='ZADNJA NABAVNA CENA'
  case m.tip_cene=2

    cTipCene='A' 
    cCenaOpis='MPC BREZ DDV IZ CENIKA'    

  case m.tip_cene=3
    cTipCene='B' 
    cCenaOpis='MPC Z DDV IZ CENIKA'        
  case m.tip_cene=4
    cTipCene='Z' 
    cCenaOpis='KNJ.CENA.'

  case m.tip_cene=5 .OR. m.tip_cene=>7 
    cTipCene='B' 
    cCenaOpis='PROD.MPC Z DDV '

  case m.tip_cene=6
    cTipCene='A' 
    cCenaOpis='ZADNJA NAB.CENA IZ PREJEMOV'

  case m.tip_cene=7
    cTipCene='A' 
    cCenaOpis='MPC BREZ DDV IZ CENIKA'


endcase

do case
   case lVsaSkl .and. !lVecSkl
      m.SklOpis = 'Vsa skladisca'
   case lVecSkl   
      m.SklOpis = 'Izbrana skladisca'
   otherwise
      m.SklOpis = m.skladisce+' '+Vrni('sifrant',1,'"SKL"+m.skladisce','opis')
endcase


if .not. lInv
  if lVecSkl
   select sifrant
   set relation to
  endif

 select zaloga
*  copy structure to tmp
 use

 create table tmp (sifra_toz C(3),skladisce C(3), sifra C(13),izvor C(1), tarifa C(4), mpcbddv N(12,2),;
 zaloga  N(14,2),blag N(14,2),sigzaloga N(14,2),cena N(14,4),vrednost N(12,2),knj_cena N(14,4),nabcena N(14,4),nabcflag C(1),zad_do_dat D(8) ,odst_davek N(6,2),;
 zacetno N(14,2),zacetnov N(14,4),nabava N(14,2),poraba N(14,2),nabavav N(14,4),porabav N(14,4)  )
 use
  use tmp in 0 exclusive alias zaloga
  select zaloga

  if lVsaSkl
   index on sifra_toz+sifra to tmp.idx
  else
   index on sifra_toz+skladisce+sifra to tmp.idx
  endif

  set relation to cMatTozd+sifra into material

  if m.tip_cene=5 .OR. m.tip_cene=7
    do OpenProd in ..\OpenDbf   
    set order to tag skl_mat
  endif  

  do OpenKalk  in OpenDbf   
  if IsTag('DOK1')
    set order to tag dok1
  endif  

*  do OpenDav  in OpenDbf   
*  do OpenTar  in OpenDbf     

  select davki
  set relation to tarifa into tarife
  select material
  set relation to '   '+nomenkl+'1' into davki

  do OpenProm in OpenDbf
  set relation to smer into tipi,sifra_toz+skladisce+smer+st_izd_cek+material+sifr_kalk into kalk
  if lVecSkl
    lVsaSkl=.T.   
    select tmpsifr
    index on sifrant+sifra to tmpsifr.idx
    set index to tmpsifr.idx
    select promet
    set relation to 'SKL'+promet.skladisce into tmpsifr additive
  endif
  if lVsaSkl
     set order to tag mat_skl
     seek cTozd
  else
     set order to tag skl_mat
     seek cTozd+m.skladisce
  endif
  define window wmess from 2,2 to 20,50 font 'Arial 12' title 'IZRACUNAVAM ZALOGO'
  activate window wmess
  
  cEscape  = set('ESCAPE')
  set escape on
  set alter to izrzal.lst
  set alter on
  do while iif(lVsaSkl,sifra_toz <= cTozd , sifra_toz+skladisce <= cTozd+m.skladisce) .and. !eof()
       if lVsaSkl
         cVeza1  = sifra_toz+material
       else
         cVeza1  = sifra_toz+skladisce+material
       endif  
       cMat      = material
       store 0 to nNabava, nPoraba,nNabavaV, nPorabaV,nZacetnok,nZacetnov,nZal,nVred,nZadNabCe,nPovprVre
       if lPDatCene
         nCena = CenaNaDat1(m.skladisce,cMat,ddatum,cTipCene)
       else
         nCena     = cenik.cena
       endif  
       cNCFlag=' '
       ? promet.skladisce,cMat
       if m.chkdobav=2 
          lDobavitelj = .F.
       else
          lDobavitelj = .T.
       endif   
       dZadnji=ctod('  -  -    ')           
       if m.signal=5 .and. lArhivP     && ali sem povedal tudi pot do arh.promet in imam izpis mat.brez gibanja
          select arhprom
          seek cTozd+m.skladisce+cMat
          ?? ' ARHIV'
          do while iif(lVsaSkl,sifra_toz+material,sifra_toz+skladisce+material) == cVeza1 .and. !eof()
             if iif(m.vsitipi=1,.t.,tipi.ok=cOzn) .and. iif(lVecSkl,tmpsifr.ok=cOzn,.T.)
               if arhprom.dat_dok>dZadnji .and. smer<>'O  '
                  dZadnji=arhprom.dat_dok
               endif
             endif
             skip
          enddo           
          select promet
       endif
       nZadNabCK=0
       do while iif(lVsaSkl,sifra_toz+material,sifra_toz+skladisce+material) == cVeza1 .and. !eof()
         =SEEK(cMatTozd+promet.material,'MATERIAL')
         do case
         case m.vsegrupe=1
            lGrupa = .t.
         case m.vsegrupe=2
            lGrupa = (vrni('TMPSIFR',1,'"GRU"+material.grupa','ok')=cOzn)
         case m.vsegrupe=3
            lGrupa = (vrni('TMPSIFR',1,'"IZV"+material.izvor','ok')=cOzn)
         endcase
       
       
         lPraviMat=.T.
   

         if iif(m.vsitipi=1,.t.,tipi.ok=cOzn) .and. iif(lVecSkl,tmpsifr.ok=cOzn,.T.) .and. lGrupa .and. lPraviMat
            if m.chkdobav=2 .and. ! lDobavitelj   
               =seek(promet.klient,'tmpkli')
               lDobavitelj = (promet.p_or_m='+' .and. tmpkli.ok=cozn)
            endif   

            if dat_dok<=dNabDat

              if (tipi.skupina = 'P' .and. kolicina > 0 .and. left(promet.smer,2)<>'NI') .or. (tipi.vpis_izr_v = 'P' .and. kolicina < 0 .and. abs(vrednost) > 0 )  && protiknjizba s ceno
                nZadNabCe=round(abs(vrednost/kolicina),npzaokr)  && zad nabavna cena
*                ? 'abs(vrednost/kolicina)',nZadNabCe
                cNCFlag='P'
              endif  

              ************* iz 5 na 3 dal 07.jan.2004 za agromarket in verjetno tudi druge b.mesec
              
              if m.tip_cene >= 3 .and. kolicina > 0 .and. left(promet.smer,2)<>'NI' .and. .not. eof('KALK')
                 if kalk.nabcen>0
                   nZadNabCK = kalk.nabcen
                   nZadNabCe=kalk.nabcen
*                   ? 'kalk.nabcen>0',nZadNabCe
                 else
*                   ? 'kalk.nabcen=0',nZadNabCe
                   nZadNabCe=kalk.marcen                 
                 endif  
                 cNCFlag='K'                 
              endif

              if promet.dat_dok>dZadnji .and. smer<>'O  ' .and. left(promet.smer,2)<>'NI'
                dZadnji=promet.dat_dok
              endif
            endif


            if dat_dok <= dDatum .and. dat_dok>=dDatumOd
              if promet.p_or_m='+'
                nNabava=nNabava+promet.kolicina
                nNabavav=nNabavav+promet.vrednost

              else
                nPoraba=nPoraba+promet.kolicina                 
                nPorabav=nPorabav+promet.vrednost
              endif
              nZal  = nZal  + (kolicina*iif(promet.p_or_m='+',1,-1))
              nPovprVre = nPovprVre  + (vrednost*iif(promet.p_or_m='+',1,-1))           
              if m.tip_cene=5 .or. m.tip_cene=7
                nVred = nVred + (IzrPCena()*promet.kolicina*iif(promet.p_or_m='+',1,-1))
              else 
                nVred = nVred + (vrednost*iif(promet.p_or_m='+',1,-1))
              endif  
            else
              if dat_dok<dDatumOd
                 nZacetnok  = nZacetnok  + (kolicina*iif(promet.p_or_m='+',1,-1))  
                 nZacetnov  = nZacetnov  + (vrednost*iif(promet.p_or_m='+',1,-1))  
              endif   
            endif
         endif
         skip
       enddo


       if lDobavitelj
         select zaloga
         if lVsaSkl
           seek cTozd+ cMat
           if .not. found()
              append blank
              replace sifra_toz with cTozd,sifra with cMat
           endif
         else
           append blank
         endif 
         if  m.chkblag=1 .and. lGrupa .and. lPraviMat
            nBlag1=IzrBlag(thisform.dBlag,m.skladisce,cMat)
            nZal=nZal-nBlag1
            replace blag with nBlag1
         endif
            
         replace sifra_toz with cTozd,skladisce with m.skladisce,;
                 sifra with cMat,izvor with material.izvor,zaloga with zaloga+nZal,;
                 zad_do_dat with dZadnji
                 replace nabava with nabava+nNabava,poraba with poraba+nPoraba,;
                 nabavav with nnabavav,porabav with nporabav,;
                 zacetno with zacetno+nZacetnoK,zacetnov with zacetnov+nZacetnov
         
         nPovprCena=no0div(nPovprVre,nZal)  && povprecna cena vedno izracunam ce ni znana nab.cena ni prejema 29.01.02
   
         do case
   

         case m.tip_cene=4 && cena zaloge
   
           replace vrednost with vrednost+nVred
   *        replace knj_cena with iif(zaloga<>0,vrednost/zaloga,0)
   
         case m.tip_cene=5 && dejanska prodajna cena
           replace vrednost with nVred , knj_cena with nVred / iif(nZal>0,nZal , 1 )
   
         otherwise  && cene iz cenika oz. zad.nab.c
           nCena=0 

           ** ce je zad.nab.cena 0 jo pa izracunam
           if nZadNabCe=0 
               nZadNabCe = vrni('material',1,'cMatTozd+cMat','nabcena')
*               ? 'material.nabcena',nZadNabCe               
               cNCFlag='M'
           endif

           if nZadNabCe=0 .or. lNabcIzCen   &&ali je pa forsirana zad.nab.c.izcenika
             if lPDatCene
                nZadNabCe = CenaNaDat1(m.skladisce,cMat,ddatum,"Z")
             else 
                nZadNabCe = vrni('cenik',1,'cCenTozd+m.skladisce+cMat+"Z"','cena')
             endif
           endif

           ** ni vpisane v cenik vzamem zadnjo iz kalkulacije
           if nZadNabCe=0 .and. nZadNabCK<>0 
               nZadNabCe=nZadNabCK
           endif
         
           ** ni nabave vzamem povpreno nabavno ceno
           if nZadNabCe=0 .and. nNabava<>0 .and. nNabavav<>0
               nZadNabCe=round(nNabavav/nNabava,2)
           endif

           if nZadNabCe=0 
               if lPDatCene
                 nZadNabCe = CenaNaDat1(m.skladisce,cMat,ddatum,"A")
               else
                 nZadNabCe = vrni('cenik',1,'cCenTozd+m.skladisce+cMat+"A"','cena')
               endif  
               cNCFlag='C'
           endif

                      
           if nZadNabCe > 0 .and. (m.tip_cene =1  .or. m.tip_cene=6)       && ostalo je iz cenika
               nCena=nZadNabCe
           else
              if lPDatCene
                   nCena = CenaNaDat1(m.skladisce,cMat,ddatum,cTipCene)
              else              
                if seek(cCenTozd+m.skladisce+cMat+cTipCene,'cenik')
                  nCena = cenik.cena
                endif
              endif  
                
           endif
           
           if m.tip_cene=2 .or. m.tip_cene=3 .or.  m.tip_cene=7   
             if lPDatCene
               nCena = CenaNaDat1(m.skladisce,cMat,ddatum,cTipCene)
             else
               nCena=vrni('cenik',1,'cCenTozd+m.skladisce+cMat+cTipCene','cena')
             endif

             if nCena=0
                 nCena=vrni('cenik',3,'cCenTozd+cMat+cTipCene','cena')
             endif 
           endif

           if nCena=0
             if lPDatCene
              nCena = CenaNaDat1(cGlSkl,cMat,ddatum,cTipCene)
             else 
              nCena = vrni('cenik',1,'cCenTozd+cGlSkl+cMat+cTipCene','cena')
             endif 
           endif

           replace vrednost with vrednost+(nZal*nCena),knj_cena with nCena


          
         endcase 

         if nZadNabCe<=0
            nZadNabCe = nPovprCena
            cNCFlag='Z'            
         endif

         replace nabcena with IIF(nZadNabCe=0 .and. nPovprCena>0 ,nPovprCena,nZadNabCe),tarifa with material.nomenkl,odst_davek with tarife.davek,;
                 nabcflag with cNCFlag

         ** dodal 25.03.02 ker je bila napacna zaloga po povpr.ceni ce je bila zadnja knjizba REValorizacija

         if m.tip_cene=4

           replace knj_cena with ROUND(no0div(vrednost,zaloga+blag),4)

         endif  

      endif
    select promet        
  enddo
  select zaloga
  wait 'Zaokrozitve' window nowait
  go top
  do while .not. eof()
    replace  vrednost with round(vrednost,2)
    ** 29.NOV.2006 DODAL ker mora bit cena pozitivina
    *
    **
    IF zaloga<0
      replace  knj_cena with ABS(round(knj_cena,4))
    endif  
    replace  zaloga with zaloga+zacetno
    replace vrednost with vrednost+zacetnov
*    =pisidbf()
    skip
  enddo
  go top
  wait clear
  
  close alter
  set escape &cEscape
  release window wmess
  select zaloga
  if m.tip_cene=4
    cNapaka = '(zaloga.zaloga=0 .and. zaloga.vrednost<>0  ).or. (zaloga.zaloga>0 .and. zaloga.vrednost<0 ).OR. (zaloga.ZALOGA < 0)'
  else
    cNapaka = 'zaloga.zaloga < 0'
  endif   
  locate for &cNapaka
  if found()  .AND. thisform.nnacin<> 2
    select zaloga
    ctalk=sys(103)
    set talk off
    sum vrednost to nNapaka for &cNapaka
    set talk &ctalk
    if potrdi('Ali prikaem postavke s negativno/napano zalogo? '+trans(nNapaka,'999,999,999.99'))   
      erase tmp1.cdx
      index on vrednost descending tag vred of tmp1.cdx 
      set index to tmp1.cdx
      set order to tag vred
      go top
      thisform.hide 
      browse fields sifra,material.naziv :30,zaloga,vrednost for &cNapaka noedit nodelete
      thisform.show
      SELECT ZALOGA
      set index to tmp.idx
    endif  
  endif
  go top  

else  && lInv

  select zaloga
  set relation to cMatTozd+sifra into material

  wait 'PRIPRAVLJAM ZALOGE ' window nowait

  if m.choice=6 
    index on sifra_toz+skladisce+material.konto+sifra for .not. eof('MATERIAL') to tmp
  else
    index on sifra_toz+skladisce+sifra for .not. eof('MATERIAL') to tmp.idx
  endif  

  wait clear

  set index to tmp.idx
  ** umaknil padr(sifra,len(mater....
  ** ker nagaja pri orlu
  set relation to cMatTozd+sifra into material ,;
                  cCenTozd+skladisce+sifra+cTipCene into cenik
  seek cTozd+m.skladisce                  
endif

select zaloga

do case
  case m.choice=1 .or. m.choice=3             && {ifri blaga ali dav.skup

    if lVsaSkl
      seek cTozd
      cWhile= 'sifra_toz = cTozd'
    else
      seek cTozd+m.skladisce
      cWhile= 'sifra_toz+skladisce <= cTozd+m.skladisce'
    endif  

  case m.choice=2                && po nazivu blaga
    erase tmp.cdx

    if lVsaSkl
      cWhile= 'sifra_tozd <= cTozd'
      index on sifra_toz+material.naziv tag naziv of tmp
    else
      cWhile= 'sifra_toz+skladisce <= cTozd+m.skladisce'
      index on sifra_toz+skladisce+material.naziv tag naziv of tmp
    endif  
    set index to tmp
    set order to tag naziv
    seek cTozd+iif(lVsaSkl,'',m.skladisce)
    
endcase
do case
   case m.signal=1   && izpi{em vse
     cFor = '.T.'
   case m.signal=2   && izpi{em vse pri katerih je zaloga ali vrednost > 0 
     cFor = 'zaloga.zaloga <> 0 .or. zaloga.vrednost <> 0'
   case m.signal=3   && zaloga enaka ali manj{a od signalne zaloge   
     cFor = ' .T.  '
   case m.signal=4   && zaloga enaka ali manj{a od signalne zaloge brez 0 
     cFor = 'zaloga.zaloga>0'
   case m.signal=5   && ni gibanja od datuma
     cFor = 'zaloga.zad_do_dat < dDatumB .and. abs(zaloga) > 0.00001'
   case m.signal=6   && zaloga je 0 vrenost pa ni 0
    cFor = 'abs(zaloga) = 0 .and. abs(vrednost)<>0'
   case m.signal=7   && vse razlino od 0 negativne pa upotevam ne pa izpiem kot 1
    cFor = 'zaloga <> 0 .and. vrednost <> 0'
   case m.signal=8   && zaloga je 0 ali manj{a
    cFor = 'zaloga <= 0 '
endcase

cFilt=alltrim(cFilter)

if .not. empty(cFilt)
   if .f. && type(cFilt) <> 'F'
      ?? chr(7)
      wait 'NAPAKA V POLJ.FILTRU NADALJUJEM BREZ FILTRA' window 
   else
      cFor=cFor+' .and. ' + cFilt
   endif
endif
select davki
set relation to tarifa into tarife

select material
set relation to '   '+nomenkl+'1' into davki

********************************************
*
* se so signalne zaloge jih vpi{em v tmp
*
********************************************
if m.signal=3 .or. m.signal=4
 * select zaloga
 * use
 * do OpenZal in ..\OpenDbf
 * set order to 1
 * use tmp in 0 alias tmp exclusive
  select zaloga
  set index to tmp.idx
  set relation to cMatTozd+sifra into material
  go top
*  brow fields sifra,material.sifra,zaloga,material.naziv
  wait 'Vpisujem signalne zaloge' window nowait
  do while .not. eof()
    if zaloga.zaloga > material.sigzaloga
      delete
    else
      replace sigzaloga with material.sigzaloga
    endif
    =pisidbf()
    skip
  enddo
  wait clear
endif
GO TOP
*brow fields sifra,material.sifra,zaloga,material.naziv
do case
  case m.choice=3 .and. .not. lVsaSkl      && skl+dav skup
    wait 'PRIPRAVLJAM PODATKE ' window nowait
    index on sifra_toz+skladisce+material.nomenkl+sifra to tmp
    wait clear
    set index to tmp

  case m.choice=3 .and. lVsaSkl      && dav skup

    wait 'PRIPRAVLJAM PODATKE ' window nowait
    index on sifra_toz+material.nomenkl+sifra to tmp
    wait clear
    set index to tmp

  case m.choice=4  && grupa materiala

    wait 'PRIPRAVLJAM PODATKE ' window nowait
    if lVsaSkl
**16.feb.2006 po nazivi v okviru grupe
      index on sifra_toz+material.grupa+left(material.naziv,10) to tmp.idx
*      index on sifra_toz+material.grupa+sifra to tmp.idx
    else
      index on sifra_toz+skladisce+material.grupa+left(material.naziv,10) to tmp.idx
*      index on sifra_toz+skladisce+material.grupa+sifra to tmp.idx
    endif
      
    wait clear
    set index to tmp.idx

  case m.choice=5  && izvor materiala

    wait 'PRIPRAVLJAM PODATKE ' window nowait
    index on sifra_toz+material.izvor+material.grupa+left(material.naziv,10)  to tmp
   * index on sifra_toz+material.izvor+material.grupa to tmp
    wait clear
    set index to tmp

  case m.choice=6  &&konto

    wait 'PRIPRAVLJAM PODATKE ' window nowait
    index on sifra_toz+material.konto+sifra to tmp
    wait clear
    set index to tmp

*

  case m.choice=7  && lokacija  materiala

    wait 'PRIPRAVLJAM PODATKE ' window nowait
    index on sifra_toz+material.lokacija+sifra to tmp
    wait clear
    set index to tmp
endcase
RETURN .t.


ENDPROC
PROCEDURE naredixls
  wait 'Delam XLS, pocakaj .... ' window nowait
  copy to tmpzaloga.xls ;
  fields skladisce,sifra,material.naziv,izvor,zaloga.zaloga,invent.kolicina,ZALOGA.nabcena type XLS
  wait clear

  cTmpk=fullpath('tmpzaloga.xls')
  =messagew('Naredil sem XLS tabelo '+cTmpk)
  if potrdi('Ali odprem to datoteko? (Imeti moramo intaliran ustrezen program npr MS Excel)')
    objExcel = CreateObject("Excel.Application")
    objBook = objExcel.WorkBooks.Open(cTmpk)
    objExcel.Visible = .t.
    Release objBook    
  endif


ENDPROC
PROCEDURE naredicenezanezavezanca
select zaloga
go top
wait 'Preracunavam cene za nezavezanca ....' window nowait
do while .not. eof()
   replace knj_cena with round(knj_cena*(1+odst_davek/100),nPzaokr),;
                nabcena with round(nabcena*(1+odst_davek/100),nPzaokr),;
                zacetnov with round(zacetnov*(1+odst_davek/100),nPzaokr),;
                nabavav with round(nabavav*(1+odst_davek/100),nPzaokr),;
                porabav with round(porabav*(1+odst_davek/100),nPzaokr) ,;
                vrednost with round(vrednost*(1+odst_davek/100),nPzaokr)   
   skip
enddo
wait clear
go top
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
thisform.combo1.value=2
thisform.combo2.value=4
thisform.combofilter.value=1
if empty(thisform.txtskladisce.value)
  thisform.txtskladisce.value=cGlSkl
endif
thisform.dBlagajna.value=date()-_nPBlagDni
thisform.dNabava.value=date()
thisform.caption=iif(thisform.nnacin=1,'Izpis zalog','Izpis predloga inventure')

if thisform.nnacin=2
  thisform.txtdatum.value=invent.datum
  if empty(invent.skladisce)
    thisform.optiongroup1.value=2
    thisform.txtskladisce.value='   '
  endif
  thisform.lbldo.caption='Inventura na dan'
  thisform.izbiratipov1.enabled=.f.
  thisform.izbiraklientov.enabled=.f.   
  thisform.oblikaizpisa.enabled=.f.  
  thisform.dblagajna.enabled=.f.     
  thisform.dnabava.enabled=.f.
  thisform.chksamopopis.visible=.T.
  thisform.txtdatumod.visible=.f.
  thisform.oblikaizpisa.visible=.f.
endif

thisform.dBlag=prazen(date())
if lpGostilna .and. isdbf('BLAG1')
   do openbl1 in ..\opendbf
   select blag1
   set order to tag zakljucen
   seek 'D'
   if found()
 *    thisform.chkblag.value=1
     thisform.dBlag=blag1.dat_dok
   endif
endif

if lPgostilna .or. lPTrgovina
  thisform.chkblag.enabled=.T.
  thisform.dblagajna.enabled=.T.  
else
    thisform.chkblag.enabled=.f.
    thisform.chkblag.value=0
    thisform.dblagajna.enabled=.f.      
    thisform.dblagajna.value=prazen(date())          
endif

if thisform.nnacin<>2
  thisform.chkxls.visible=.f.
endif
ENDPROC
PROCEDURE Load
  close data
  if lPGostilna 
    thisform.coldmattozd=cMatTozd
    cMatTozd=cMatTozd1
  endif
   public _lBuffering
  _lBuffering=.F.

  cTipCene  = ''
  cCenaOpis = 'CENA'
  dDatum    = date()
  do OpenTipi in ..\..\OpenDbf
  do OpenSifr in  ..\..\opendbf
  do OpenMat in  ..\..\opendbf
  set relation to 'EME'+em into sifrant
  do OpenDav  in ..\..\OpenDbf
  do OpenTar  in ..\..\OpenDbf
  do OpenCen  in  ..\..\OpenDbf
  do OpenKli in  ..\..\OpenDbf
  do OpenZal in ..\..\OpenDbf

public asortiraj[9]
asortiraj[1]='Sifri blaga'
asortiraj[2]='Nazivu blaga'
asortiraj[3]='Dav skupini'
asortiraj[4]='Grupi blaga'
asortiraj[5]='Izvor blaga'
asortiraj[6]='Konto blaga'
asortiraj[7]='Lokacija blaga'
asortiraj[8]='Koliini'
asortiraj[9]='Vrednosti'
thisform.addproperty('acene[7]',1)
thisform.aCene[1]= 'Zad.Nab.cena'
thisform.aCene[2]= 'Prod.cena brez DDV'
thisform.aCene[3]= 'Prod.cena z DDV'
thisform.aCene[4]= 'Cena zaloge(mat kartice)'
thisform.aCene[5]= 'Prod cena (TDR)'
thisform.aCene[6]= 'Zad.nab.c iz prejema'
thisform.aCene[7]= 'Nab.c in MPC iz cenika'

thisform.addproperty('aFilter[10]',1)
thisform.afilter[1]='Zaloga razlina od 0'
thisform.afilter[2]='Zaloga & Vrednost vecja od 0'
thisform.afilter[3]='Signalne zaloge'
thisform.afilter[4]='Signalne zaloge brez 0'
thisform.afilter[5]='Zaloge brez gibanja na dan'
thisform.afilter[6]='Zaloga=0, vrednost<>0'
thisform.afilter[7]='Napaka: Zaloga < 0 '
thisform.afilter[8]='Brez zaloge: Zaloga <= 0 '
thisform.afilter[9]='Brez 0, v setevku pa tudi minusi !'
thisform.afilter[10]='Vse'


ENDPROC
PROCEDURE Unload
if lPGostilna 
  cMatTozd=thisform.coldmattozd
endif
_lBuffering=.T.
close database
return .T.
ENDPROC
PROCEDURE Init
parameters nNacin
if type('nNacin')<>'N'
   nNacin=1
endif
thisform.ddatumod=prazen(date())


thisform.nnacin=nnacin
  if thisform.nnacin=2  && izpis predloga inventure     
      do openinv in ..\..\opendbf
  endif
  thisform.addproperty('aoblika[8]',1)
  thisform.aoblika[1]='Zaloga blaga'
  thisform.aoblika[2]='Zaetno+nabava-poraba=zaloga'
  thisform.aoblika[3]='Inventura'
  thisform.aoblika[4]='Poraba s preraunom tee..'
  thisform.aoblika[5]='Po skupini blaga'  
  thisform.aoblika[6]='Zaloga nab.cena+marza+ddv=mpc'      
  thisform.aoblika[7]='Skupina:Za+Nab-Por=Zal'  
  thisform.aoblika[8]='Skupina:Za+Nab-Por=Zal SUMARNO'  
**
* 1 zaloge
* 2 inv.predlog
**
thisform.ddatum=dPNDatum2

ENDPROC
     AY    @A  @A                        #   %   ?;      @  m  ;          7  U  $ 4    ; 5      	 
        %C dBlagb Ds  T  CC$   %C dDatumOdb D  T CC$   T - %C
 m.vsegrupeb N  T   %  T a  %    ..\..\OpenDbf   ..\..\OpenDbf G(( datum %C  
 C 3 R, Na blagajni dne C    ni prodaje ???    ..\..\OpenDbf  %   	N T C V promet Q     F  % 2 G(( mat_skl J G(( skl_mat   T    HmA   T!  Z  T"  ZADNJA NABAVNA CENA   T!  A# T"  MPC BREZ DDV IZ CENIKA  3 T!  B  T"  MPC Z DDV IZ CENIKA  j T!  Z T" 	 KNJ.CENA.   
   T!  B T"  PROD.MPC Z DDV    T!  A( T"  ZADNJA NAB.CENA IZ PREJEMOV  A T!  A# T"  MPC BREZ DDV IZ CENIKA  HR   # 
	 T$  Vsa skladisca #   T$  Izbrana skladisca 2C T$ %   C sifrant "SKL"+m.skladisce opis&   %' 
 %# ' F(  G-(  F)  Qh1 tmp+  C%  C,  C-  C.  C/  N)  N0  N1  N2  N3  N4  N5  N6  C7  D8  N9  N:  N;  N<  N=  N>  N Q Q   tmp)  F)  % + & + , ( tmp.idx P & + % , ( tmp.idx  G-(@ , A   % 
   B 
 ..\OpenDbf G(( skl_mat  C  OpenDbf %C DOK1E  G(( dok1  FG  G-(. H  FA  G-(    I  1G  J  OpenDbf- G-(K L + % K M A N O  %#  T a FP  & ( , ( tmpsifr.idx G!( tmpsifr.idx FQ  G-( SKLQ % P   %  G(( mat_skl	 ER  !	 G(( skl_mat ER %  F s,S (2@ Arial 12' IZRACUNAVAM ZALOGO t,S  T C ESCAPEv G  G(
 izrzal.lst G 5 +C 
 + R  + % R % 6 C+
	 % 	 T + A  
 T + % A   T A 1 J (V W X Y Z [  \    %] 
  T C %    _  ! ^  
 T ` 2   T    Q %   %a 
 Tb - 
 Tb a  T	 C
   -  -    # %   	 F  ER %     ARHIV3 +C 
 + A  + % A 6  C+
	@ %Cc  a
 L d e 6 C#  P d e  a6	" % f 	  K  O  	 T	  f    H  FQ   Tg  3 +C 
 + A  + % A 6  C+
	u C@ Q A  MATERIAL H;   Th a  < Th C TMPSIFR "GRU"+material.grupa ok& e   ;< Th C TMPSIFR "IZV"+material.izvor ok& e   T aN %Cc  a
 L d e 6 C#  P d e  a6	 h 	  	m %a  b 
	 CQ i  tmpkli$ Tb Q j  + k d e 	  %f l y^ %L m  P n  	 CQ K = NI	% L o  P n  	
 C3  	 T CC3 n p T T  P A %  n  	 CQ K = NI	 C KALK+
	* %O q    Tg O q  T O q   T O r   T  K 7 %Q f 	  K  O  	 CQ K = NI	u T	 Q f    %f _  f  	 %Q j  + TV V Q n  TX X Q 3   TW W Q n  TY Y Q 3  - T  n CQ j  +  6- T  3 CQ j  +  6  % 
  5 T\ \ Cs Q n CQ j  +  6 - T\ \ 3 CQ j  +  6  i %f  e- TZ Z n CQ j  +  6- T[ [ 3 CQ j  +  6    H  %b  F)  %  ER   %C4
  >+ R ,      ! %  h 	  	B Tt Cv    %   u  T  t  >0 t  H >+ R % % ,  - A - ) )  7 	 O >; ; V < < W = X > Y 9 9 Z : : [  T C    w  H   $ >3 3 \   d- >3 \ 4 \ C     6 2 T   %  6 T C material cMatTozd+cMat nabcena&  T  M  %    c %]   T C %    _  Z^  _@ T C cenik cCenTozd+m.skladisce+cMat+"Z" cena&    %   g  	 T g  ' %   V  	 X  	 T CX V T  %  m %]   T C %    _  A^  [@ T C cenik cCenTozd+m.skladisce+cMat+"A" cena&   T  C , %    
  	 T   $ %]   T C %    _  ! ^   % %Cx %  !  cenik T ` 2    - % 
  
  ! %]   T C %    _  ! ^  E T C cenik" cCenTozd+m.skladisce+cMat+cTipCene cena&   %  9 T C cenik cCenTozd+cMat+cTipCene cena&    %   %] a T C y    _  ! ^  @ T C cenik cCenTozd+cGlSkl+cMat+cTipCene cena&     >3 3   4    %   T   T  Z N >5 C     	    6. A I 8 H z 6   %  >4 CC 3 ) 0 w T   FQ   F)  R,: Zaokrozitve #) +C+
( >3 C3 T %)   >4 CC4 T  >) ) 9  >3 3 :  H  #) R  set escape &cEscape
 <,S  F)  %  T{ s (zaloga.zaloga=0 .and. zaloga.vrednost<>0  ).or. (zaloga.zaloga>0 .and. zaloga.vrednost<0 ).OR. (zaloga.ZALOGA < 0)  T{  zaloga.zaloga < 0  locate for &cNapaka
 %C4 v | 	 F)  T} Cg] G2( sum vrednost to nNapaka for &cNapaka
 set talk &ctalk
Z %C2 Ali prikaem postavke s negativno/napano zalogo? C  999,999,999.99_~    tmp1.cdx & 3   tmp1.cdx< G!( tmp1.cdx G(( vred #)
 v  W browse fields sifra,material.naziv :30,zaloga,vrednost for &cNapaka noedit nodelete

 v   F)  G!( tmp.idx   #)  F)  G-(@ , A  R,: PRIPRAVLJAM ZALOGE  % `1 & + % A  , ( tmpC MATERIAL+
 . & + % , ( tmp.idxC MATERIAL+
  R G!( tmp.idx) G-(@ , A x % , ! `  ER %   F)  H   
   % S	 ER  T  sifra_toz = cTozd  ER % 5 T ( sifra_toz+skladisce <= cTozd+m.skladisce      tmp.cdx %   T  sifra_tozd <= cTozd & + A    tmp j5 T ( sifra_toz+skladisce <= cTozd+m.skladisce  & + % A    tmp  G!( tmp G(( naziv ER C     % 6  H    T  .T.  %9 T , zaloga.zaloga <> 0 .or. zaloga.vrednost <> 0  K T   .T.    z T  zaloga.zaloga>0  D T 7 zaloga.zad_do_dat < dDatumB .and. abs(zaloga) > 0.00001   3 T & abs(zaloga) = 0 .and. abs(vrednost)<>0  V , T  zaloga <> 0 .and. vrednost <> 0    T  zaloga <= 0   T C  %C 
! %-  C 5 R,+ NAPAKA V POLJ.FILTRU NADALJUJEM BREZ FILTRA ! T    .and.     FG  G-(. H  FA  G-(    I  1G   % 
  %" F)  G!( tmp.idx G-(@ , A  #)# R,: Vpisujem signalne zaloge +C+
" %) ) A 1 !  
" >1 A 1  
 C  H  R  #) H;"$    
	" R,: PRIPRAVLJAM PODATKE   & + % A I , ( tmp R G!( tmp    	# R,: PRIPRAVLJAM PODATKE  & + A I , ( tmp R G!( tmp  # R,: PRIPRAVLJAM PODATKE  % s#( & + A  CA  
=( tmp.idx #, & + % A  CA  
=( tmp.idx  R G!( tmp.idx  .$ R,: PRIPRAVLJAM PODATKE + & + A - A  CA  
=( tmp R G!( tmp  $ R,: PRIPRAVLJAM PODATKE  & + A  , ( tmp R G!( tmp  $ R,: PRIPRAVLJAM PODATKE  & + A  , ( tmp R G!( tmp  Ba U  DBLAG DDATUMOD
 LNABCIZCEN CVEZA1 CMAT NZAL NCENA CFILT	 NZADNABCE DZADNJI LPOGOJ CESCAPE
 NPOVPRCENA	 NPOVPRVRE	 LPRAVIMAT LNAPAKA CNCFLAG PRAZEN VSEGRUPE TIP_CENE CHKBLAG OPENNORM OPENBL1 DATUM OPENBL2 SIGNAL LARHIVP	 CPARHPROM	 CPARHPATH ARHPROM LVSASKL MAT_SKL SKL_MAT CTIPCENE	 CCENAOPIS LVECSKL SKLOPIS	 SKLADISCE VRNI LINV SIFRANT ZALOGA TMP	 SIFRA_TOZ SIFRA IZVOR TARIFA MPCBDDV BLAG	 SIGZALOGA CENA VREDNOST KNJ_CENA NABCENA NABCFLAG
 ZAD_DO_DAT
 ODST_DAVEK ZACETNO ZACETNOV NABAVA PORABA NABAVAV PORABAV IDX CMATTOZD MATERIAL OPENPROD OPENKALK OPENDBF ISTAG DOK1 DAVKI TARIFE NOMENKL OPENPROM SMER TIPI
 ST_IZD_CEK	 SIFR_KALK KALK TMPSIFR PROMET CTOZD WMESS IZRZAL LST NNABAVA NPORABA NNABAVAV NPORABAV	 NZACETNOK	 NZACETNOV NVRED	 LPDATCENE
 CENANADAT1 DDATUM CENIK CHKDOBAV LDOBAVITELJ VSITIPI OK COZN DAT_DOK	 NZADNABCK LGRUPA KLIENT P_OR_M TMPKLI DNABDAT SKUPINA KOLICINA
 VPIS_IZR_V NPZAOKR NABCEN MARCEN IZRPCENA NBLAG1 IZRBLAG THISFORM NO0DIV CCENTOZD CGLSKL DAVEK CNAPAKA NNACIN CTALK POTRDI NNAPAKA TMP1 CDX VRED HIDE SHOW CHOICE KONTO CWHILE NAZIV CFOR CFILTER PISIDBF GRUPA LOKACIJA`# R,: Delam XLS, pocakaj .... ? ( tmpzaloga.xls        	  
  R T C tmpzaloga.xls( C Naredil sem XLS tabelo   ` %CO Ali odprem to datoteko? (Imeti moramo intaliran ustrezen program npr MS Excel) Y! T C Excel.ApplicationN T C      T  a <   U 	 TMPZALOGA XLS	 SKLADISCE SIFRA MATERIAL NAZIV IZVOR ZALOGA INVENT KOLICINA NABCENA CTMPK MESSAGEW POTRDI OBJEXCEL OBJBOOK	 WORKBOOKS OPEN VISIBLE
 F   #)0 R,:% Preracunavam cene za nezavezanca .... +C+
  > C  d T C  d T C  d T C  d T C  d T C  d T H  R #) U	  ZALOGA KNJ_CENA
 ODST_DAVEK NPZAOKR NABCENA ZACETNOV NABAVAV PORABAV VREDNOST<    T    T    T    %C   h  T      T   C$	  T 
  C$H T  C    Izpis zalog  Izpis predloga inventure6 %   T      %C  A T    T        # T    Inventura na dan T   - T   - T   - T   - T 
  - T   a T   - T   -  T  CC$  %  C BLAG1 	  
 ..\opendbf F  G((	 zakljucen
 E D %C4{ T   !    %  "  T #  a T   a  T #  - T #    T   - T   CC$   %  5 T $  -  U%  NSTYLE THISFORM COMBO1 VALUE COMBO2 COMBOFILTER TXTSKLADISCE CGLSKL	 DBLAGAJNA
 _NPBLAGDNI DNABAVA CAPTION NNACIN TXTDATUM INVENT DATUM	 SKLADISCE OPTIONGROUP1 LBLDO IZBIRATIPOV1 ENABLED IZBIRAKLIENTOV OBLIKAIZPISA CHKSAMOPOPIS VISIBLE
 TXTDATUMOD DBLAG PRAZEN
 LPGOSTILNA ISDBF OPENBL1 BLAG1	 ZAKLJUCEN DAT_DOK
 LPTRGOVINA CHKBLAG CHKXLSe  %  /  T    T    7  T - T    T  CENA T C$ 	  ..\..\OpenDbf 
  ..\..\opendbf   ..\..\opendbf G-( EME     ..\..\OpenDbf   ..\..\OpenDbf   ..\..\OpenDbf   ..\..\OpenDbf   ..\..\OpenDbf 7 	 T  Sifri blaga T  Nazivu blaga T  Dav skupini T  Grupi blaga T  Izvor blaga T  Konto blaga! T  Lokacija blaga T  Koliini T 		 Vrednosti C acene[7]  " T   Zad.Nab.cena( T   Prod.cena brez DDV% T   Prod.cena z DDV. T   Cena zaloge(mat kartice)% T   Prod cena (TDR)* T   Zad.nab.c iz prejema, T   Nab.c in MPC iz cenika C aFilter[10]  * T   Zaloga razlina od 02 T   Zaloga & Vrednost vecja od 0% T   Signalne zaloge, T   Signalne zaloge brez 00 T   Zaloge brez gibanja na dan+ T   Zaloga=0, vrednost<>0) T   Napaka: Zaloga < 0 / T   Brez zaloge: Zaloga <= 0 9 T  	# Brez 0, v setevku pa tudi minusi ! T  
 Vse U 
 LPGOSTILNA THISFORM COLDMATTOZD CMATTOZD	 CMATTOZD1 _LBUFFERING CTIPCENE	 CCENAOPIS DDATUM OPENTIPI OPENSIFR OPENMAT EM SIFRANT OPENDAV OPENTAR OPENCEN OPENKLI OPENZAL	 ASORTIRAJ ADDPROPERTY ACENE AFILTER;  %    T     T a  Ba U 
 LPGOSTILNA CMATTOZD THISFORM COLDMATTOZD _LBUFFERING 4   %C nNacinb N.  T    T  CC$  T      %       ..\..\opendbf  C
 aoblika[8]  " T   Zaloga blaga2 T   Zaetno+nabava-poraba=zaloga T  	 Inventura0 T   Poraba s preraunom tee..& T   Po skupini blaga3 T   Zaloga nab.cena+marza+ddv=mpc- T   Skupina:Za+Nab-Por=Zal5 T   Skupina:Za+Nab-Por=Zal SUMARNO T    U	  NNACIN THISFORM DDATUMOD PRAZEN OPENINV ADDPROPERTY AOBLIKA DDATUM	 DPNDATUM2 izrzal,     	 naredixls)     naredicenezanezavezanca+     Show^-     Load2     UnloadY8     Init8    1  A A   A 2 A 2  1A A Aq   A A   1 1 12 1 a 2 2 1C  Q  1A   q a A r B A Aq   A 2QA "Q A u  q "  q Aq A     A a Ra 1a Q  QA    A  1   A q 1!1!A A A A q A  1 1 11A  qAA  A A A  A rA A QAA AAA Q A  A A A A A  q    Q qA  Q A  A b 33  a A   A A  A saA   A  A     QA A B   QA A A   A A D   A 4B B q A q aQ  !AA B A Q Q R q q 1 A qq  a 1  Q  q q A A Q  r 12 A R  A r      QA 2   QA   B  111111A1111A    Q A A q  r v 1Q 2 qA  A  A A Q A Q  Q  Q  2  B R 2R  2Q  4Q  A q 4 1Q  q A 4 q Q  
A A Q Q 2 q 111Q1A a!Ba!1aA 1A 2Qq !  2A A B 1aA BA 2 Q   A q    a !QQ!Q4  A  Q q 2 q  A 1AA !!a1Q2                       VJ       vJ  L  k    L   O  |    O  T    !  T  +[    R  H[  [    Y  [  ^     )   @A                        wasortiraj
coldmattozd
nnacin
ddatumod
dblag
nmpc
nnab
ddatum
*izrzal 
*naredixls 
*naredicenezanezavezanca 
      optiongroup      optiongroup      Optiongroup1      Form1     $ButtonCount = 3
Value = 1
Height = 72
Left = 7
Top = 30
Width = 126
TabIndex = 1
Name = "Optiongroup1"
Option1.Caption = "Izbrano skladisce"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 121
Option1.Name = "Option1"
Option2.Caption = "Vsa skladisca"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 115
Option2.Name = "Option2"
Option3.Caption = "Vec skladisc"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 98
Option3.Name = "Option3"
      MPROCEDURE Valid
if this.value=3
  =OznSifr('SKL',.T.)
endif  

ENDPROC
                                         %   r                        7  U  ,  %   %  C SKLa   U  THIS VALUE OZNSIFR Valid,     1 AA 2                       B       )                            label      label      Label1      Form1      FontBold = .T.
BackStyle = 0
Caption = "OBMOCJE IZPISA"
Height = 17
Left = 7
Top = 12
Width = 125
TabIndex = 19
Name = "Label1"
      combobox      combobox      Combo1      Form1      Comment = ""
RowSourceType = 5
RowSource = "asortiraj"
Value = 
ControlSource = ""
Height = 24
Left = 201
TabIndex = 5
Top = 33
Width = 240
Name = "Combo1"
      textbox      textbox      txtskladisce      Form1      FontSize = 10
Value = 
ControlSource = "m.skladisce"
Height = 23
InputMask = "XXX"
Left = 138
Margin = 0
MaxLength = 3
TabIndex = 17
Top = 30
Width = 41
Name = "txtskladisce"
      PROCEDURE LostFocus
Private cRet
cRet=this.value
cRet=ValSifr1('SKL',cRet)
this.value=iif(empty(cret),this.value,cret)
this.refresh
Return .t.

ENDPROC
     A    (  (                        i   %                           7  U  f  5   T     T  C SKL    # T  CC  	      6
    Ba U  CRET THIS VALUE VALSIFR1 REFRESH	 LostFocus,     1 q 1 q 2                              )   (                        label      label      Label2      Form1      FontBold = .T.
BackStyle = 0
Caption = "VRSTNI RED"
Height = 17
Left = 201
Top = 15
Width = 78
TabIndex = 20
Name = "Label2"
      combobox      combobox      Combo2      Form1      RowSourceType = 5
RowSource = "thisform.aCene"
Value = 
ControlSource = ""
Height = 24
Left = 201
TabIndex = 6
Top = 80
Width = 240
Name = "Combo2"
      textbox      textbox      txtdatum      Form1      FontBold = .T.
FontName = "Arial"
FontSize = 11
Value = 
ControlSource = "thisform.ddatum"
Format = ""
Height = 27
InputMask = ""
Left = 372
TabIndex = 14
Top = 418
Width = 89
Name = "txtdatum"
      4PROCEDURE LostFocus
dPNDatum2=this.value
ENDPROC
                                      7   %   [       t      n           7  U    T     U 	 DPNDATUM2 THIS VALUE	 LostFocus,     1 1                       )       )                            label      label      lbldo      Form1      FontBold = .F.
FontName = "Arial"
FontSize = 11
FontUnderline = .F.
Alignment = 1
BackStyle = 0
Caption = "Zaloga na dan:"
Height = 19
Left = 270
Top = 425
Width = 97
TabIndex = 27
ForeColor = 0,0,0
Name = "lbldo"
      label      label      Label4      Form1      FontBold = .T.
BackStyle = 0
Caption = "VRSTA CENE"
Height = 17
Left = 201
Top = 62
Width = 78
TabIndex = 21
Name = "Label4"
      combobox      combobox      combofilter      Form1      BoundColumn = 1
RowSourceType = 5
RowSource = "thisform.aFilter"
Value = 
Height = 24
Left = 201
TabIndex = 7
Top = 130
Width = 240
Name = "combofilter"
      PROCEDURE LostFocus
if this.value=3 .or. this.value=4
  thisform.oblikaizpisa.value=1
  thisform.oblikaizpisa.enabled=.f.
else    
  thisform.oblikaizpisa.enabled=.T.
endif
ENDPROC
     I    0  0                        5   %                           7  U  f " %       F  T    T   - _  T   a  U  THIS VALUE THISFORM OBLIKAIZPISA ENABLED	 LostFocus,     1 !1 A 1                              )   0                        label      label      Label5      Form1      FontBold = .T.
BackStyle = 0
Caption = "FILTER"
Height = 17
Left = 201
Top = 112
Width = 78
TabIndex = 22
Name = "Label5"
      checkbox      checkbox      chkblag      Form1      Top = 222
Left = 201
Height = 17
Width = 187
Alignment = 0
BackStyle = 0
Caption = "Nezakljucena blagajna od dne:"
ControlSource = ""
TabIndex = 18
Name = "chkblag"
      textbox      textbox      	dblagajna      Form1      Value = 
ControlSource = "thisform.dBlag"
Format = ""
Height = 23
InputMask = ""
Left = 395
TabIndex = 11
Top = 216
Width = 83
Name = "dblagajna"
     PROCEDURE When
*if thisform.chkblag.value=1
*   if .not. used('blag1')
*     do openbl1 in ..\..\opendbf
*   endif
*   select blag1
*   set order to tag datum
*   go bott
*   ddat=date()
*   wait 'Pocakaj, ugotavljam zadnji nezakljucen dan' window nowait
   
*   do while .not. bof()
*      if zakljucen='Z' 
*        ddat=dat_dok+1
*        exit
*      endif
 *     if ddat-dat_dok>31
 *       exit
 *     endif
 *     skip -1
 *  enddo 
 *  wait clear
   
 *  this.value=ddat
   
*endif
ENDPROC
                                      M   %   3       G      A           7  U    U   When,     1 1                             )                            textbox      textbox      dnabava      Form1      Value = 
ControlSource = "dnabDat"
Format = ""
Height = 23
InputMask = ""
Left = 396
TabIndex = 12
Top = 247
Width = 82
Name = "dnabava"
      label      label      Label8      Form1      FontBold = .F.
FontName = "Arial Narrow CE"
FontSize = 10
BackStyle = 0
Caption = "Za nab.ceno upotevam nabave do:"
Height = 20
Left = 201
Top = 247
Width = 173
TabIndex = 26
Name = "Label8"
      optiongroup      optiongroup      izbgrupe      Form1     AutoSize = .F.
ButtonCount = 3
Value = 1
ControlSource = ""
Height = 65
Left = 7
Top = 196
Width = 126
TabIndex = 4
Name = "izbgrupe"
Option1.Caption = "Vse grupe"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 74
Option1.AutoSize = .T.
Option1.Name = "vse"
Option2.Caption = "Izbrane grupe"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 93
Option2.AutoSize = .T.
Option2.Name = "izbrane"
Option3.Caption = "Izbrane skupine"
Option3.Height = 17
Option3.Left = 5
Option3.Top = 43
Option3.Width = 105
Option3.AutoSize = .T.
Option3.Name = "Option1"
      PROCEDURE izbrane.Click
DO FORM ..\trgwin\sifrant2 with 'GRU',.T.,'',.t.
*=oznsifr1('GRU',.T.)

ENDPROC
PROCEDURE Option1.Click
DO FORM ..\trgwin\sifrant2 with 'IZV',.T.,'',.t.
ENDPROC
     F    -  -                           %                           7  U  4 1  ..\trgwin\sifrant2 GRUa  a U  4 1  ..\trgwin\sifrant2 IZVa  a U   izbrane.Click,      Option1.Clickd     1 4 1                       b                   )   -                        label      label      Label9      Form1      FontBold = .T.
BackStyle = 0
Caption = "OBLIKA IZPISA"
Height = 17
Left = 8
Top = 264
Width = 84
TabIndex = 23
Name = "Label9"
      izbiratipov      ..\classes\forme.vcx      optiongroup      Izbiratipov1      Form1      AutoSize = .F.
Left = 7
Top = 103
Width = 126
TabIndex = 2
Name = "Izbiratipov1"
OPTION1.Left = 5
OPTION1.Top = 5
OPTION1.Name = "OPTION1"
OPTION2.Left = 5
OPTION2.Top = 24
OPTION2.Name = "OPTION2"
      textbox      textbox      
txtdatumod      Form1      FontBold = .T.
FontName = "Arial"
FontSize = 11
Value = 
ControlSource = "thisform.ddatumod"
Enabled = .F.
Format = "D"
Height = 28
InputMask = ""
Left = 138
TabIndex = 13
Top = 417
Width = 89
Name = "txtdatumod"
      PROCEDURE Click


ENDPROC
                                         %   3       F      B           7  U    U   Click,     1 3                              )                            label      label      lblod      Form1      FontBold = .F.
FontName = "Arial"
FontSize = 11
FontUnderline = .F.
Alignment = 1
BackStyle = 0
Caption = ""
Height = 19
Left = 24
Top = 421
Width = 112
TabIndex = 28
ForeColor = 0,0,0
Name = "lblod"
      listbox      listbox      oblikaizpisa      Form1      BoundColumn = 1
RowSourceType = 5
RowSource = "thisform.aoblika"
Value = 1
Height = 129
Left = 8
TabIndex = 10
Top = 279
Width = 280
BorderColor = 192,192,192
Name = "oblikaizpisa"
     PROCEDURE LostFocus
thisform.txtdatumod.enabled=(this.value=2 .or. this.value>=4)
thisform.lblod.caption=iif(this.value=2 .or. this.value>=4,'Promet od','')
thisform.lbldo.caption=iif(this.value=2 .or. this.value>=4,'Promet do','Zaloga na dan')

*if this.value=6
*  thisform.combo2.value=7
*endif
thisform.refresh
ENDPROC
PROCEDURE Click
if this.value=2 .or. this.value=7 .or. this.value=8
  thisform.txtdatum.setfocus
endif
ENDPROC
     X    ?  ?                        jC   %           
             7  U   ) T         ? T    C      	 Promet od   6L T    C      	 Promet do  Zaloga na dan6
     U	  THISFORM
 TXTDATUMOD ENABLED THIS VALUE LBLOD CAPTION LBLDO REFRESHD 0 %           =       U  THIS VALUE THISFORM TXTDATUM SETFOCUS	 LostFocus,      Click=    1  2  A 1                       A        ]        )   ?                        
izpisizhod      ..\classes\forme.vcx      commandgroup      Izpisizhod1      Form1      Left = 12
Top = 450
Name = "Izpisizhod1"
Command1.Comment = ""
Command1.Top = 5
Command1.Left = 5
Command1.Name = "Command1"
Command2.Top = 5
Command2.Left = 60
Command2.Name = "Command2"
     FPROCEDURE Command1.RightClick
SELECT zaloga
index on zaloga*knj_cena tag vred of tmp1.cdx descend
set order to tag vred of tmp1.cdx
brow fields sifra,zaloga,vre=zaloga*knj_cena

if .not. potrdi('Ali vpisem v invent ?')
  return .T.
endif

do openinv in ..\..\opendbf

DO FORM getnumb with 0,'Koliko prvih zapisov vpisem ','99999' to nKoliko
DO FORM getnumb with date(),'Datum vpisa ' to ddat
select invent
go top
*ddat=datum
index on skladisce+material to tmp2.idx
set index to tmp2.idx
select zaloga
go top
ni=0
wait 'Vpisujem v invent ...' window nowait
do while .not. eof()
  select invent
  seek zaloga.skladisce + zaloga.sifra
  do while skladisce+material=zaloga.skladisce + zaloga.sifra
   delete
   =pisidbf()
   skip
  enddo
  append blank
  replace skladisce with zaloga.skladisce,material with zaloga.sifra,datum with ddat
  =pisidbf()
  select zaloga
  skip
  ni=ni+1
  if ni>nkoliko
    exit
  endif
enddo
wait clear




ENDPROC
PROCEDURE Command1.Click
private cWhile,cFor,lVsaSkl,lInv,m.chkblag,m.tip_cene,m.skladisce,;
m.chkdobav,m.vsitipi,ddatum,m.signal,cfilter,m.sklopis,ccenaopis,m.sklopis,;
ccenaopis,ctipcene,lVecSkl,dBlag,dNabDat,cObm1,cObm2,lObmocje,dDatOd,lBrezNeg,lInvRazlika
m.chkblag=thisform.chkblag.value
m.tip_cene=thisform.combo2.value
m.skladisce=thisform.txtskladisce.value
m.chkdobav=thisform.izbiraklientov.value
m.vsitipi=thisform.izbiratipov1.value
m.vsegrupe=thisform.izbgrupe.value
ddatum=thisform.txtdatum.value
lVsaSkl=(thisform.Optiongroup1.value=2)
lVecSkl=(thisform.Optiongroup1.value=3)
m.choice=thisform.combo1.value
m.signal=thisform.combofilter.value
dBlag=thisform.dBlag
dNabDat=thisform.dnabava.value
dDatOd=thisform.ddatumod
lBrezNeg=(thisform.combofilter.value=9)
ccenaopis=''
ctipcene=''
m.sklopis=''
cFilter='.T.'
lInv=.F.
cWhile='.t.'
cFor='.t.'
cMatRelZ=iif(.not. empty(cMatTozd1),cMatTozd1,cMatTozd)+zaloga.sifra

lInvRazlika=thisform.chksamopopis.value=0

if file('TMPSIFR.DBF') .and. .not. used('tmpsifr')
  use tmpsifr in 0
  select tmpsifr
  index on sifrant+sifra to tmpsifr.idx
  set index to tmpsifr.idx
endif

=thisform.IzrZal( dBlag,thisform.ddatumod )

if .T. &&thisform.chkblag.value=1
  set order to 1 in material
  select zaloga
  go top
  do while .not. eof()
    if .not. seek(cMatTozd+zaloga.sifra,'MATERIAL')
       delete
    endif
    skip
  enddo
endif

 
      if m.signal=2 .and. thisform.oblikaizpisa.value <>2  .and. thisform.oblikaizpisa.value <>7 && vse je veje od 
         ?? chr(7)
         select zaloga
         wait 'Briem 0 zaloge' window nowait

         delete for  zaloga.zaloga <= 0 .or. zaloga.knj_cena <= 0 

         wait clear
*         cFor=cFor +' .and. ( zaloga.zaloga > 0 .and. zaloga.knj_cena > 0) '
         go top
      endif

      if m.signal=1 .and. thisform.oblikaizpisa.value <>2 .and. thisform.oblikaizpisa.value <>7&& vse razlino od 0
         ?? chr(7)
         select zaloga
         wait 'Briem 0 zaloge' window nowait
         delete for  zaloga.zaloga = 0
         wait clear
*         cFor=cFor +' .and. ( zaloga.zaloga > 0 .and. zaloga.knj_cena > 0) '
         go top
      endif

      if (m.signal=9  .or. m.signal=7) .and.  thisform.oblikaizpisa.value <>2  .and. thisform.oblikaizpisa.value <>7&& vse razlino od 0 v tabelo iziem samo + upotevam vse??
         ?? chr(7)
         select zaloga
         wait 'Briem 0 zaloge' window nowait
         go top
         do while .not. eof()
            if (m.signal=9 .and. zaloga.zaloga = 0 .and. zaloga.vrednost = 0 ) ;
              .or. (m.signal=7 .and. zaloga.zaloga >= 0  ) 
              delete
              =pisidbf()
            endif

            skip
         enddo
  *       delete for  zaloga.zaloga = 0 .and. zaloga.vrednost = 0 
         wait clear
         go top
      endif
      
      do case
          case thisform.combo1.value=8  &&sort po kolicin
              wait 'Sort po koliini ' window nowait
              index on sifra_toz+skladisce+str(zaloga) DESC tag kol of tmp1.cdx
              set order to tag kol of tmp1.cdx
              wait clear

          case thisform.combo1.value=9  &&sort po vrednosti
              wait 'Sort po koliini ' window nowait
              index on sifra_toz+skladisce+str(zaloga*knj_cena) DESC tag vred of tmp1.cdx
              set order to tag vred of tmp1.cdx
              wait clear
              
      endcase
      
      
      if m.signal=7
         cFor='.T.'
      endif
      if thisform.optiongroup1.value=2  && vsa skladia
        cWhile='sifra_toz=ctozd'
      endif
      do case
      case thisform.oblikaizpisa.value=6   && nabavna cena+mara+ddv je mpc
     *   wait cfor window
        go top 
*        BROWSE        
        do form ..\izpis with 'zalogenabcenainmpc',cWhile
      case thisform.nnacin=2  && izpis predloga inventure     
          if lInvRazlika
          select invent
          set order to 1
          select zaloga
          if thisform.optiongroup1.value=2  && vsa
             replace all skladisce with ''
          endif 
          go top

          if .not. isrelation('INVENT')
               set relation to skladisce+sifra into invent additive
          endif



          do form ..\izpis with 'predloginventure',cWhile,cFor

          else
             select zaloga
             index on skladisce+sifra to tmp1.idx
             set index to tmp1.idx
             select invent
             set relation to skladisce+material into zaloga
             go top
             do form ..\izpis with 'predloginventure1',cWhile,cFor          
          endif          
          if thisform.chkxls.value=1
            go top
            =thisform.naredixls()
          endif 
          
      case m.choice=5   && skupina in izbr.skl
        do form ..\izpis with 'ZalIzv',cWhile,cFor   
      case thisform.oblikaizpisa.value=1     
*        BROW
        
        if (m.signal=3 .or. m.signal=4) .and. isreport('signalnezaloge')
            go top
            do form ..\izpis with 'signalnezaloge',cWhile,cfor
        else
            if .not. _lDavZavez
               if potrdi('Ali za nezavezanca upotevam ceno bruto z vtetim DDVjem?')
                   =thisform.naredicenezanezavezanca()
               endif
            endif
            do form ..\izpis with 'IzpZal',cWhile,cfor
        endif    
      case thisform.oblikaizpisa.value=2   .or.  thisform.oblikaizpisa.value=7     .or.  thisform.oblikaizpisa.value=8    
        GO TOP
        cfor='.T.'
        if thisform.oblikaizpisa.value=7 .or.  thisform.oblikaizpisa.value=8
          index on sifra_toz+skladisce+izvor to tmp1.idx
          set index to tmp1.idx
          go top

          do form ..\izpis with  iif(thisform.oblikaizpisa.value=8,'nabavaporabaposkupinisumarno','nabavaporabaposkupini'),cWhile,cFor
        else
          do form ..\izpis with 'nabavaporaba',cWhile,cFor
        endif  
      case thisform.oblikaizpisa.value=3     
        do form ..\izpis with 'poplista',cWhile,cFor 

      
      
      endcase

ENDPROC
     F    -  -                        OK   %   #           X          7  U  X F   &      tmp1.cdx< G(( vred tmp1.cdx 	       ' %C Ali vpisem v invent ? 
  Ba    ..\..\opendbfF  getnumb(
   Koliko prvih zapisov vpisem  99999*  getnumb( C$ Datum vpisa  F  #) &   ( tmp2.idx G!( tmp2.idx F   #) T    R,: Vpisujem v invent ... +C+
L F  E        +         
 C  H  ' >          
 C  F   H T   % 
 H !   R U  ZALOGA KNJ_CENA VRED TMP1 CDX SIFRA VRE POTRDI OPENINV GETNUMB NKOLIKO DDAT INVENT	 SKLADISCE MATERIAL TMP2 IDX NI PISIDBF DATUMj{ 5          	 
                 T     T     T     T     T     T     T	      T  !   T  !   T"  #   T
  $   T    T  %   T  &  T  $  	 T    T    T    T  .T. T - T   .t. T  .t.% T' CC( 
 (  ) 6* +  T  ,   + %C TMPSIFR.DBF0 C tmpsifr
	 Q   tmpsifr F-  & . + ( tmpsifr.idx G!( tmpsifr.idx  C   &  0  %aG G(1 ( 1 F*  #) +C+
C" %C) * +  MATERIAL
;   H  5 %
   2  	  2  	 C  F*  R,: Briem 0 zaloge * *   * 3   R #) 5 %
   2  	  2  	[ C  F*  R,: Briem 0 zaloge * *   R #) C %
 	
 
   2  	  2  	T C  F*  R,: Briem 0 zaloge #) +C+
FL %
 	 * *  	 * 4  	 
  * *  	> 
 C5   H  R #)  HeT  #   R,: Sort po koliini % & 6  C* Z7  tmp1.cdx< G(( kol tmp1.cdx R  #  	T R,: Sort po koliini ) & 6  C* 3 Z:  tmp1.cdx< G(( vred tmp1.cdx R  %
 { T  .T.  % !   T   sifra_toz=ctozd  Hc  2   #),  ..\izpis zalogenabcenainmpc    ;  %  F< 
 G(( 1 F*  % !  i >     #) %C INVENT> 
 G-( + <  .  ..\izpis predloginventure    X F*  &  + ( tmp1.idx G!( tmp1.idx F<  G-( 1 *  #)/  ..\izpis predloginventure1     % ?   #) C @   " $  ..\izpis ZalIzv     2  	: %
 
 
  C signalnezalogeA 	B	 #),  ..\izpis signalnezaloge    	 %B 
	J %C9 Ali za nezavezanca upotevam ceno bruto z vtetim DDVjem?C 	 C D   $  ..\izpis IzpZal    9  2    2    2  & #) T  .T.( % 2    2  
 & 6  E ( tmp1.idx G!( tmp1.idx #)g  ..\izpisC 2  "  nabavaporabaposkupinisumarno  nabavaporabaposkupini6    "*  ..\izpis nabavaporaba      2  c&  ..\izpis poplista     UF  CWHILE CFOR LVSASKL LINV CHKBLAG TIP_CENE	 SKLADISCE CHKDOBAV VSITIPI DDATUM SIGNAL CFILTER SKLOPIS	 CCENAOPIS CTIPCENE LVECSKL DBLAG DNABDAT COBM1 COBM2 LOBMOCJE DDATOD LBREZNEG LINVRAZLIKA THISFORM VALUE COMBO2 TXTSKLADISCE IZBIRAKLIENTOV IZBIRATIPOV1 VSEGRUPE IZBGRUPE TXTDATUM OPTIONGROUP1 CHOICE COMBO1 COMBOFILTER DNABAVA DDATUMOD CMATRELZ	 CMATTOZD1 CMATTOZD ZALOGA SIFRA CHKSAMOPOPIS TMPSIFR SIFRANT IDX IZRZAL MATERIAL OBLIKAIZPISA KNJ_CENA VREDNOST PISIDBF	 SIFRA_TOZ KOL TMP1 CDX VRED NNACIN INVENT ALL
 ISRELATION CHKXLS	 NAREDIXLS ISREPORT
 _LDAVZAVEZ POTRDI NAREDICENEZANEZAVEZANCA IZVOR Command1.RightClick,      Command1.Click    1 q rq A bq Q q Q   q 1A  A A Q q q A A A A Q 6 QQQQQQ1QQ1    Qr1q AA r  q Q  !A A A A A S q R R A R q Q R A 2 q Q  A  A B A R Q A  qQQ rQ B 3A qA  qR A q  q q A Q AA  q q 1Q A qQ  A 2AqQ    A A AA Q Q r A qaD 2                            '     ;  0    )   -                        izbiraklientov      ..\classes\forme.vcx      optiongroup      Izbiraklientov      Form1     /AutoSize = .F.
Height = 46
Left = 7
Top = 149
Width = 126
TabIndex = 4
Name = "Izbiraklientov"
OPTION1.Caption = "Vsi dobavitelji"
OPTION1.Height = 17
OPTION1.Left = 5
OPTION1.Top = 5
OPTION1.Width = 93
OPTION1.Name = "OPTION1"
OPTION2.Left = 5
OPTION2.Top = 24
OPTION2.Name = "OPTION2"
      checkbox      checkbox      chksamopopis      Form1      Top = 279
Left = 8
Height = 17
Width = 246
FontName = "Arial Narrow"
FontSize = 11
Alignment = 0
BackStyle = 0
Caption = "Izpis samo inventurni popis brez razlik"
ControlSource = ""
TabIndex = 18
Visible = .F.
Name = "chksamopopis"
      checkbox      checkbox      chkxls      Form1      Top = 172
Left = 201
Height = 18
Width = 194
FontSize = 10
BackStyle = 0
Caption = "Naredim tudi tabelo zaloga.xls"
Name = "chkxls"
      Arial Narrow CE, 0, 10, 7, 16, 13, 14, 3, 0
Arial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 10, 6, 16, 13, 35, 3, 0
Arial, 1, 11, 7, 18, 14, 39, 4, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
Arial Narrow, 0, 11, 7, 16, 13, 14, 3, 0

