Télécharger inichi2.procedur

Retour à la liste

Numérotation des lignes :

  1. * INICHI2 PROCEDUR AURI 98/12/29 21:18:11 3419
  2. DEBPROC INICHI2 TB3*TABLE TBC2*OBJET G1/MAILLAGE ;
  3. *********************************************************************
  4. * modification d'un objet DONCHI2
  5. * TB3 table issue de chi1
  6. * TBC2 objet DONCHI2
  7. *********************************************************************
  8. CTOT= TBC2.TOT ;
  9. CLGC= TBC2.LOGC ;
  10. LICOMP= EXTR CTOT 'COMP';
  11. LILGC= EXTR CLGC 'COMP';
  12. LIIDX= TB3.DESCHI.IDX ;
  13. NBIDX= DIME LIIDX ;
  14. 'SI' ('NON' ( 'EXIS' G1)) ;
  15. G1= EXTR CTOT 'MAIL' ;
  16. 'FINS' ;
  17. IMODT= FAUX ;
  18. IMODL= FAUX ;
  19. MOCOM1= MOTS ;
  20. REPE BOUIDX NBIDX ;
  21. NUNU= EXTR LIIDX &BOUIDX ;
  22. MO4 MO3 NU2 = NOCOMCHI TB3 'NUMCOMP' NUNU ;
  23. MOCOM1= MOCOM1 ET (MOTS MO3) ;
  24. SI ( NON (EXIS LICOMP MO3)) ;
  25. CTOT= CTOT+ ( MANU CHPO G1 1 MO3 0.) ;
  26. IMODT= VRAI ;
  27. FINSI ;
  28. SI ( NON (EXIS LILGC MO3)) ;
  29. CLGC= CLGC+ ( MANU CHPO G1 1 MO3 0.) ;
  30. IMODL= VRAI ;
  31. FINSI ;
  32. FIN BOUIDX ;
  33. NBCOMP= DIME LIIDX ;
  34. LICOMP= EXTR CTOT 'COMP';
  35. NBCOMT= DIME LICOMP ;
  36. SI (NBCOMT NEG NBCOMP) ;
  37. CTOT = EXCO MOCOM1 CTOT MOCOM1 ;
  38. LICOMP= MOCOM1
  39. TBC2%GTOT CTOT ;
  40. FINSI ;
  41. LILGC= EXTR CLGC 'COMP';
  42. NBCOML= DIME LILGC ;
  43. SI (NBCOML NEG NBCOMP) ;
  44. CLGC = EXCO MOCOM1 CLGC MOCOM1 ;
  45. LILGC= MOCOM1
  46. TBC2%GLOGC CLGC ;
  47. FINSI ;
  48. SI IMODT ;
  49. IMODII='OUI' ;
  50. 'MESS''Vous devez modifier la concentration totale ' ;
  51. SINON ;
  52. 'MESS''Voulez vous modifier les concentrations totales ?' ;
  53. 'OBTE' IMODII ;
  54. FINSI ;
  55. SI (EGA IMODII 'OUI' ) ;
  56. *
  57. REPE BCTOT ;
  58. NTAB CTOT TITR 'CONCENTRATION TOTALE' ;
  59. LIMOT= EXTR CTOT 'COMP' ;
  60. MOTOT= 'MENU' 'POUR MODIFIER UNE VALEUR CLIQUER SUR SON NOM ' LIMOT ;
  61. 'SI' ('EGA' MOTOT 'Quitter' ) ;
  62. 'QUIT' BCTOT ;
  63. 'FINS' ;
  64. MO4 MO3 NU2 = NOCOMCHI TB3 'NOMINT' MOTOT ;
  65. 'MESS' ' Entrez la concentration totale de ' NU2 MO4 ;
  66. 'OBTE' VTOT*FLOTTANT ;
  67. 'SI' ('NON' ('EGA' VTOT ('MOT' 'NON'))) ;
  68. CTOT1= MANU CHPO G1 1 MO3 VTOT ;
  69. CTOT2= EXCO MO3 CTOT MO3 ;
  70. CTOT= CTOT+CTOT1 -CTOT2 ;
  71. 'FINS' ;
  72. FIN BCTOT ;
  73. *
  74. * LIST CTOT ;
  75. TBC2%GTOT CTOT ;
  76. FINSI ;
  77. SI IMODL ;
  78. IMODII='OUI' ;
  79. 'MESS''Vous devez modifier LOGC ' ;
  80. SINON ;
  81. 'MESS''Voulez vous modifier LOGC ?' ;
  82. 'OBTE' IMODII ;
  83. FINSI ;
  84. SI (EGA IMODII 'OUI' ) ;
  85. REPE BLGC1 ;
  86. NTAB CLGC 'TITR' ' VALEURS DE LOGC' ;
  87. LIMOT= EXTR CLGC 'COMP' ;
  88. MOLGC= 'MENU' 'POUR MODIFIER UNE VALEUR CLIQUER SUR SON NOM ' LIMOT ;
  89. 'SI' ('EGA' MOLGC 'Quitter' ) ;
  90. 'QUIT' BLGC1 ;
  91. 'FINS' ;
  92. MO4 MO3 NU2 = NOCOMCHI TB3 'NOMINT' MOLGC ;
  93. 'MESS' ' Entrez LOGC de ' NU2 MO4 ;
  94. 'OBTE' VLGC*FLOTTANT ;
  95. 'SI' ('NON' ('EGA' VLGC ('MOT' 'NON')) ) ;
  96. CLGC1= MANU CHPO G1 1 MO3 VLGC ;
  97. CLGC2= EXCO MO3 CLGC MO3 ;
  98. CLGC= CLGC+CLGC1- CLGC2 ;
  99. 'FINS' ;
  100. FIN BLGC1 ;
  101. * LIST CLGC ;
  102. TBC2%GLOGC CLGC ;
  103. FINSI ;
  104. TIDEN=TB3.IDEN ;
  105. SI (EXIS TIDEN IMP3) ;
  106. NBIMP3= DIME TIDEN.IMP3 ;
  107. SI (EXIS TBC2 'CLIM') ;
  108. IMOD3= FAUX ;
  109. CCLIM= TBC2.CLIM ;
  110. LICLIM= EXTR CCLIM 'COMP';
  111. MOCOM1= MOTS ;
  112. REPE BOUIMP3 NBIMP3 ;
  113. NUNU=EXTR ( TIDEN.IMP3 ) &BOUIMP3 ;
  114. MO3 NU2 = NOESPCHI TB3 NUNU ;
  115. MOCOM1= MOCOM1 ET (MOTS MO3) ;
  116. SI (NON (EXIS LICLIM MO3) ) ;
  117. CCLIM= CCLIM+ ( MANU CHPO G1 1 MO3 0.) ;
  118. IMOD3= VRAI ;
  119. FINSI ;
  120. FIN BOUIMP3 ;
  121. LICLIM= EXTR CCLIM 'COMP';
  122. NBCLIM= DIME LICLIM ;
  123. SI( NBCLIM NEG NBIMP3 ) ;
  124. CCLIM= EXCO MOCOM1 CCLIM MOCOM1 ;
  125. TBC2%GCLIM CCLIM;
  126. FINSI ;
  127. FINSI ;
  128. SI IMOD3 ;
  129. 'MESS''Vous devez modifier l activité imposée ' ;
  130. IMODII= MOT 'OUI' ;
  131. SINON ;
  132. 'MESS''Voulez vous modifier l activité imposée ?' ;
  133. 'OBTE' IMODII ;
  134. FINSI ;
  135. SI (EGA IMODII 'OUI' ) ;
  136. SI (EXIS TBC2 'CLIM') ;
  137. CCLIM= TBC2.CLIM ;
  138. LICLIM= EXTR CCLIM 'COMP';
  139. NBCLIM= DIME TIDEN.IMP3 ;
  140. 'REPE' BOUCLIM NBCLIM ;
  141. NUCLIM= 'EXTR' LICLIM &BOUCLIM ;
  142. MO3 NU2 = NOESPCHI TB3 NUCLIM ;
  143. VAL0= EXTR CCLIM MO3 ( G1 POIN 1) ;
  144. 'MESS' ' Entrez l activité de ' NU2 ' Valeur actuelle ' VAL0 ;
  145. 'OBTE' VLIM ;
  146. 'SI' (EGA ( TYPE VLIM) 'FLOTTANT') ;
  147. CCLIM0= EXCO MO3 CCLIM MO3 ;
  148. CCLIM1= MANU CHPO G1 1 MO3 VLIM ;
  149. CCLIM= CCLIM+CCLIM1-CCLIM0 ;
  150. FINSI ;
  151. 'FIN' BOUCLIM ;
  152. * LIST CCLIM ;
  153. TBC2%GCLIM CCLIM;
  154. SINON ;
  155. MESS ' Il n y a pas d activité imposée ' ;
  156. FINSI ;
  157. FINSI ;
  158. SINON ;
  159. SI (EXIS TBC2 'CLIM') ;
  160. TBC2%OUBLIER CLIM ;
  161. FINSI ;
  162. FINSI ;
  163. FINP ;
  164.  
  165.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales