WAIT WIND 'Se genereaza raportul. Asteptati...' nowait
SET SAFETY OFF
COPY FILE &DIRGEN\DEVIZE\DATE\TEMPO\PROVERB.* TO &LOC\&NFSCURT\TEMPO\PROVERB.* 

SELE 0
USE &LOC\&NFSCURT\TEMPO\PROVERB EXCL ALIAS PROVERB
sele proverb
zap

public m.g,m.nrinmat,m.tipauto
LOCAL M.DENUMIRE,M.CODMAT,M.CODFURN,M.CANT,M.PRET
STORE '' TO M.DENUMIRE,M.CODMAT,M.CODFURN,m.tipauto
STORE '         ' TO m.nrinmat
STORE 0 TO M.CANT,M.PRET,m.g
sele rul
set filter to subs(nrord,1,1)='G'
SCAN
m.nrord = nrord
M.DENUMIRE = DENUMIRE
M.CODMAT=CODMAT
M.CODFURN=EXP4
M.CANT=CANTE
M.PRET=PRETV
m.fel = 'A'
do nrcirc
SELE PROVERB
APPE BLANK
GATHER MEMVAR
SELE RUL
ENDSCAN
sele OPER
set filter to subs(nrord,1,1)='G'
SCAN
m.nrord = nrord
M.DENUMIRE = DENOP
M.CODMAT=CODOP
M.CODFURN=codfurn
M.CANT=TIMPN
M.PRET=PRET
m.fel = 'B'
do nrcirc
sele oper
SELE PROVERB
APPE BLANK
GATHER MEMVAR
SELE OPER
ENDSCAN
sele proverb
set order to tag codfel
TOTAL ON DENUMIRE+STR(PRET,10) FIELDS CANT TO  &LOC\&NFSCURT\TEMPO\PROVERB1
SELE 0
*USE C:\CONTAFIN\AUTOSTAL\TEMPO\PROVERB1
USE &LOC\&NFSCURT\TEMPO\PROVERB1
**************
INDEX ON TIPAUTO+CODFURN+DENUMIRE+STR(PRET,10) to &LOC\&NFSCURT\TEMPO\PROVERB1
***************
report format proverb TO PRINTER PROMPT preview
USE IN PROVERB
USE IN PROVERB1
RETURN
*************
procedure nrcirc
m.g=1
m.tipauto=''
m.nrinmat=''
do case
  case subs(nrord,1,1)='/'
  m.g=2
    case subs(nrord,2,1)='/'
  m.g=3
    case subs(nrord,3,1)='/'
  m.g=4
    case subs(nrord,4,1)='/'
  m.g=5
    case subs(nrord,5,1)='/'
  m.g=6
    case subs(nrord,6,1)='/'
  m.g=7
    case subs(nrord,7,1)='/'
  m.g=8
    case subs(nrord,8,1)='/'
  m.g=9
   case subs(nrord,9,1)='/'
  m.g=10
    case subs(nrord,10,1)='/'
  m.g=11
    case subs(nrord,11,1)='/'
  m.g=12
    case subs(nrord,12,1)='/'
  m.g=13
    case subs(nrord,13,1)='/'
  m.g=14
    case subs(nrord,14,1)='/'
  m.g=15
    case subs(nrord,15,1)='/'
  m.g=16
endcase  
m.nrinmat = subs(nrord,m.g,20-m.g)
sele masini
loca for ALLT(m.nrinmat) = ALLT(nrinmat)
if found()
m.tipauto = masina
else
m.tipauto=''
endif
return