Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
This commit is contained in:
107
Programe/1proverb.prg
Normal file
107
Programe/1proverb.prg
Normal file
@@ -0,0 +1,107 @@
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user