home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
mail.altrad.com
/
2015.02.mail.altrad.com.tar
/
mail.altrad.com
/
TEST
/
COMMERC_72_53OLD
/
PROGS
/
REINDEX.PRG
< prev
next >
Wrap
Text File
|
2014-04-02
|
3KB
|
130 lines
PROCEDURE MAIN (M_ALL)
* Auteur...: R M ALCOCK
* Date.....: 15/2/93
* Copyright: (c) 1992, R M ALCOCK, Tous droits réservés
* Notes....: RE-INDEX PROGRAM
* Intended to create NTX type Indexes
*
*
#include "params"
LOCAL MT:=CONAME+" - INDEX FICHIERS"
LOCAL MP:=40-LEN(MT)/2
LOCAL NumFiles := 15 //Number of Databases !!!
LOCAL I, CHOIX
*SET DEFAULT TO F:
SET CONFIRM ON
SET DATE FRENCH
SET DELETED ON
SET EXACT ON
SET EXCLUSIVE OFF
SET FIXED OFF
SET SCOREBOARD OFF
SET WRAP ON
SET EPOCH TO 1980
*
CLEAR
*
IF PCOUNT()=0
M_ALL = .F.
ELSE
M_ALL = IIF ( M_ALL<> "*", .F., .T.)
ENDIF
IF M_ALL
@ 0,MP SAY MT
@ 5,5 SAY "Index tous les fichiers !!!"
FOR I=1 TO NumFiles
R_IND (I)
NEXT
ELSE
DO WHILE .T.
CLEAR
@ 0,MP SAY MT
@ 2,2 PROMPT "Q U I T T E R"
@ ROW()+1,2 PROMPT "TARIF"
@ ROW()+1,2 PROMPT "VRPS"
@ ROW()+1,2 PROMPT "CLIENTS"
@ ROW()+1,2 PROMPT "COMMANDES CLIENTS"
@ ROW()+1,2 PROMPT "FACTURES Clients"
@ ROW()+1,2 PROMPT "LIGNES de Facturation / Avoirs / Commandes"
@ ROW()+1,2 PROMPT "EVENEMENTS / LITIGES / VISITES Clients"
MENU TO CHOIX
IF CHOIX=1
RETURN
ENDIF
R_IND(CHOIX-1)
WAIT
ENDDO
ENDIF
RETURN
*
******************************
*
FUNCTION R_IND(CHOIX)
DO CASE
CASE CHOIX = 1
NET_USE (1, "STOCK", .T., 30, "", "")
ANNOUNCE_IT()
INDEX ON STCOMMREF TO STCREF
INDEX ON STLIB TO STRLIB
CASE CHOIX = 2
IF FILE("VRPS.DBF")
NET_USE (1, "VRPS", .T., 30, "", "")
ANNOUNCE_IT()
INDEX ON VRP TO VRPS
INDEX ON EQUIPE+VRP TO VRPREG
ENDIF
CASE CHOIX = 3
NET_USE (1, "CLIENT", .T., 30, "", "")
ANNOUNCE_IT()
INDEX ON CLIREF TO CLIREF
INDEX ON CLICP+SUBSTR(CLIVILLE,1,5) TO CLICP
INDEX ON SUBSTR(CLINOM,1,5) TO CLINOM
CASE CHOIX = 4
NET_USE (1, "COM", .T., 30, "", "")
ANNOUNCE_IT()
INDEX ON commande TO COM
INDEX ON refcli TO COMCL
CASE CHOIX = 5
NET_USE (1, "FACT", .T., 30, "", "")
ANNOUNCE_IT()
INDEX ON REFCLI TO FACCL
INDEX ON FACTURE+ECH TO FACT
CASE CHOIX = 6
NET_USE (1, "FACTA", .T., 30, "", "")
ANNOUNCE_IT()
INDEX ON facture+ligne TO FACTR
CASE CHOIX = 7
NET_USE (1, "LITIGE", .T., 30, "", "")
ANNOUNCE_IT()
INDEX ON CODE TO LITIGE
INDEX ON A_DATE TO LITDATE
INDEX ON CLIENT TO LITCLI
NET_USE (1, "EVENT", .T., 30, "", "")
ANNOUNCE_IT()
INDEX ON REFCLI+DTOS(D_CRE) TO EVENT DESCENDING
INDEX ON BONREF TO EVECODE
*
ENDCASE
RETURN .T.
*
******************************
*
FUNCTION ANNOUNCE_IT
*
CLEAR
@ 5,5 SAY "INDEX FICHIER : " + ALIAS(1)
RETURN .T.