home *** CD-ROM | disk | FTP | other *** search
/ mail.altrad.com / 2015.02.mail.altrad.com.tar / mail.altrad.com / TEST / COMMERC_72_53OLD / commerc / PROGSOLD / REINDEX.PRG < prev    next >
Text File  |  2014-04-02  |  3KB  |  130 lines
  1. PROCEDURE MAIN (M_ALL)
  2. * Auteur...: R M ALCOCK
  3. * Date.....: 15/2/93
  4. * Copyright: (c) 1992, R M ALCOCK, Tous droits réservés
  5. * Notes....: RE-INDEX PROGRAM
  6. *            Intended to create NTX type Indexes
  7. *
  8. *
  9. #include "params"
  10. LOCAL MT:=CONAME+" - INDEX FICHIERS"
  11. LOCAL MP:=40-LEN(MT)/2
  12. LOCAL NumFiles := 15                //Number of Databases !!!
  13. LOCAL I, CHOIX
  14.  
  15. *SET DEFAULT TO F:
  16. SET CONFIRM     ON
  17. SET DATE        FRENCH
  18. SET DELETED     ON
  19. SET EXACT       ON
  20. SET EXCLUSIVE   OFF
  21. SET FIXED       OFF
  22. SET SCOREBOARD  OFF
  23. SET WRAP        ON
  24. SET EPOCH TO    1980
  25. *
  26. CLEAR
  27. *
  28. IF PCOUNT()=0
  29.    M_ALL = .F.
  30. ELSE
  31.    M_ALL = IIF ( M_ALL<> "*", .F., .T.)
  32. ENDIF
  33. IF M_ALL
  34.    @ 0,MP SAY MT
  35.    @ 5,5 SAY "Index tous les fichiers !!!"
  36.    FOR I=1 TO NumFiles
  37.       R_IND (I)
  38.    NEXT
  39. ELSE
  40.    DO WHILE .T.
  41.       CLEAR
  42.       @ 0,MP SAY MT
  43.       @ 2,2 PROMPT "Q U I T T E R"
  44.       @ ROW()+1,2 PROMPT "TARIF"
  45.       @ ROW()+1,2 PROMPT "VRPS"
  46.       @ ROW()+1,2 PROMPT "CLIENTS"
  47.       @ ROW()+1,2 PROMPT "COMMANDES CLIENTS"
  48.       @ ROW()+1,2 PROMPT "FACTURES Clients"
  49.       @ ROW()+1,2 PROMPT "LIGNES de Facturation / Avoirs / Commandes"
  50.       @ ROW()+1,2 PROMPT "EVENEMENTS / LITIGES / VISITES Clients"
  51.       MENU TO CHOIX
  52.       IF CHOIX=1
  53.          RETURN
  54.       ENDIF
  55.       R_IND(CHOIX-1)
  56.       WAIT
  57.    ENDDO
  58. ENDIF
  59. RETURN
  60. *
  61. ******************************
  62. *
  63. FUNCTION R_IND(CHOIX)
  64.  
  65. DO CASE
  66.  
  67. CASE CHOIX = 1
  68.    NET_USE (1, "STOCK", .T., 30, "", "")
  69.    ANNOUNCE_IT()
  70.    INDEX ON STCOMMREF TO STCREF
  71.    INDEX ON STLIB     TO STRLIB
  72.  
  73. CASE CHOIX = 2
  74.    IF FILE("VRPS.DBF")
  75.       NET_USE (1, "VRPS", .T., 30, "", "")
  76.       ANNOUNCE_IT()
  77.       INDEX ON VRP TO VRPS
  78.       INDEX ON EQUIPE+VRP TO VRPREG
  79.  
  80.    ENDIF
  81.  
  82. CASE CHOIX = 3
  83.    NET_USE (1, "CLIENT", .T., 30, "", "")
  84.    ANNOUNCE_IT()
  85.    INDEX ON CLIREF TO CLIREF
  86.    INDEX ON CLICP+SUBSTR(CLIVILLE,1,5) TO CLICP
  87.    INDEX ON SUBSTR(CLINOM,1,5) TO CLINOM
  88.  
  89.  
  90. CASE CHOIX = 4
  91.    NET_USE (1, "COM", .T., 30, "", "")
  92.    ANNOUNCE_IT()
  93.    INDEX ON commande TO COM
  94.    INDEX ON refcli TO COMCL
  95.  
  96. CASE CHOIX = 5
  97.    NET_USE (1, "FACT", .T., 30, "", "")
  98.    ANNOUNCE_IT()
  99.    INDEX ON REFCLI TO FACCL
  100.    INDEX ON FACTURE+ECH TO FACT
  101.  
  102. CASE CHOIX = 6
  103.    NET_USE (1, "FACTA", .T., 30, "", "")
  104.    ANNOUNCE_IT()
  105.    INDEX ON facture+ligne TO FACTR
  106.  
  107. CASE CHOIX = 7
  108.    NET_USE (1, "LITIGE", .T., 30, "", "")
  109.    ANNOUNCE_IT()
  110.    INDEX ON CODE TO LITIGE
  111.    INDEX ON A_DATE TO LITDATE
  112.    INDEX ON CLIENT TO LITCLI
  113.    NET_USE (1, "EVENT", .T., 30, "", "")
  114.    ANNOUNCE_IT()
  115.    INDEX ON REFCLI+DTOS(D_CRE) TO EVENT DESCENDING
  116.    INDEX ON BONREF TO EVECODE
  117.  
  118.    *
  119. ENDCASE
  120.  
  121. RETURN .T.
  122. *
  123. ******************************
  124. *
  125. FUNCTION ANNOUNCE_IT
  126. *
  127. CLEAR
  128. @ 5,5 SAY "INDEX FICHIER : " + ALIAS(1)
  129. RETURN .T.
  130.