Affaires.Net: Gestione Progetti Terra Armata

Affaires, è l'equivalente francese usato per "Commesse". Affaires.Net è un programma scritto originariamente in Visual Basic 4 per Windows 98SE e AutoCAD© 14. Si tratta del primo prototipo di gestionale su sistema operativo Microsoft che prepara l'ambiente operativo di AutoCAD© (variabili d’ambiente, impostazioni progettuali, template di disegno, ecc.) affinché si interfacci con il RECAD (Reinforced Earth CAD), ovvero il programma di disegno automatico, ed incorpori al tempo stesso alcune delle funzioni del “MAIL” e del “AFFAIRE” (presenti esclusivamente in ambiente Unix), rispettivamente il programma di gestione dei clienti ed il programma di gestione delle Commesse. Il RECAD, è scritto originariamente in C++, basato su interfaccia Informix, ed è nato per lavorare in ambiente Unix o MS DOS su rete Novell, e necessita, oltre che delle variabili d'ambiente, anche di una specifica struttura di directory. Questa struttura permette ad AutoCAD© 14 di recuperare le informazioni con tutti i dettagli dell'opera in corso di progettazione (altezza di progetto, interramento minimo, distanza fra le sezioni, caratteristiche imposte dal progettista per la partenza e la fine della struttura, tipo di terreno, vita di servizio, ecc) e gli abachi con le caratteristiche dei singoli pannelli che andranno a costituire l'opera d'arte. In sostanza programma si occupa di avviare AutoCAD©, con una serie di parametri a linea di comando e con le informazioni relative a tutti gli elaborati del progetto in corso. Inoltre il programma è collegato ai database sulla rete Unix che contiengono anche le informazioni relative ai contatti dei responsabili del progetto. Il programma è rimasto in uso fino all'avvento di Windows XP, quando è stato abbandonato per il sistema di gestione integrato, il SITAR, più complesso e sviluppato insieme ai colleghi della Tierra Armada in Spagna.

Di seguito un esempio del codice lanciato dal programma:

@echo off

rem 	by R.D.R., sep. 2001
rem 	by R.D.R., feb. 2001
rem		by R.D.R., mar. 2000
rem 	by R.D.R., sep. 1999
rem 	To be run under Win9x from VBscript or VBasic

rem move to server
t:

:test
rem 	check if affaire exists
if "%1"=="" goto nodir
if not exist "t:\affaires\%1" goto newdir
goto acad

:nodir
rem 	missing affaire parameter
echo.
echo Please run "AFF followed by a job name"
echo.
pause
goto end

:newdir
rem 	new affaire -> create directory under the affaires directory
rem 	and move to it before launching AutoCAD©
cd t:\affaires
md %1
cd %1
copy t:\recad\gabarit.txt t:\affaires\%1
goto acad

:acad
rem 	launch AutoCAD©
SET BORNE=T:\RECAD\BORNE\
SET ABAQUE=T:\RECAD\ABAQUES\
SET BIBLI=T:\RECAD\BIBLI\
CALL T:\RECAD\PROFILE
rem
rem	Important: It needs the exact position of the ACAD.EXE file
rem	the /t parameter loads the template terra_1
rem	the /nologo parameter skips AutoCAD© splash screen and loads edito faster
rem
c:\progra~1\autoca~1\acad.exe /t /nologo c:\recad\terra_1
goto end

:end