Marius Mutu
63f3828d5e
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
107 lines
2.0 KiB
Plaintext
107 lines
2.0 KiB
Plaintext
|
|
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 |