Initial commit — sursa ROAIMOB

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Programe/Vechi/deschidl.prg

@@ -0,0 +1,70 @@
+Local valan,a,b,datea,dateb,nfrm
+DIRFIRM=loc+'\'+NFSCURT
+
+Set Safety Off
+Set Exclusive On
+
+b=Iif(M.NNLMAX<10,'0'+Str(M.NNLMAX,1),Str(M.NNLMAX,2))
+dateb='an'+m.an+'\'+'DATE'+b
+m.NNLMAX=M.NNLMAX+1
+a=Iif(M.NNLMAX<10,'0'+Str(M.NNLMAX,1),Str(M.NNLMAX,2))
+m.nl=a
+
+If m.NNLMAX=13
+	m.NNLMAX=1
+	a='01'
+	valan=m.anmax+1
+	m.an=Alltrim(Str(valan))
+	m.anmax=m.an
+	m.nl=a
+Endif
+datea='an'+m.an+'\'+'DATE'+a
+Date=datea
+
+Set Defa To &calefirma
+If !Directory('&datea')
+	Md &datea
+Endif
+Close Database
+*DO DES WITH 'CALENDAR'
+
+*Do DESCHID.PRG
+**************
+
+Set Defa To ..
+Set Defa To ..
+Set Defa To ..
+Set Defa To ..
+
+m.anmax=m.an
+m.nlmax=m.nl
+m.NNL=M.NNLMAX
+Show Gets
+Set Exclusive Off
+
+Do totv.PRG
+Sele CALENDAR
+*loca for SCONT=.f.
+*
+*if eof() then
+Appe Blank
+*endif
+*
+Repl nl With a
+Repl an With m.an
+*REPL SCONT WITH .T.
+Goto Recno()-1
+Scatter Fiel CTVAI,CTVAM,plafoncasa,plafonplat Memvar
+Goto Recno()+1
+*repl ctvai with m.ctvai
+*repl ctvam with m.ctvam
+Gath Fiel CTVAI,CTVAM,plafoncasa,plafonplat Memvar
+
+Return
+**********************************
+* sfarsit procedura deschid luna *
+**********************************
+
+
+
+