Télécharger pas_verm.procedur

Retour à la liste

Numérotation des lignes :

  1. * PAS_VERM PROCEDUR MB234859 16/09/16 21:15:44 9091
  2. 'DEBPROC' PAS_VERM PRECED*'TABLE' chetat1*'MCHAML';
  3. *---------- verifications qu'il existe bien les donnees necessaires
  4. *---------- au matériaux
  5. conti=PRECED.'CONTINUATION';
  6. WTAB=PRECED.'WTABLE';
  7. LDEVA = 'EXTR' WTAB.'MA_TOTAL' 'DEVA';
  8. LPAR0 = 'EXTR' WTAB.'MO_TOTAL' 'PARA';
  9. LDEVA_DI = 'DIME' LDEVA;
  10. nocom='EXTR' CHETAT1 'COMP';
  11. 'SI' ('NEG' LDEVA_DI 0);
  12.  
  13. 'REPETER' BOU_VA1 LDEVA_DI;
  14. ITE1 = &BOU_VA1;
  15. NOM1 = 'EXTR' LDEVA ITE1;
  16. 'SI' (WTAB.'FREQUENTIEL' 'ET' ('EGA' NOM1 'FREQ')) ;
  17. 'SINON';
  18. 'SI' ('NON' ('EXISTE' nocom NOM1));
  19. 'MESS' 'Il manque la variable ' NOM1 ;
  20. 'ERRE' ' ';
  21. 'FINSI' ;
  22. 'FINSI';
  23. 'FIN' BOU_VA1;
  24. 'SI' WTAB.'FOR_MECA' ;
  25. MA = 'VIDE' 'MCHAML' ;
  26. 'SI' WTAB.'MEC1' ;
  27. MA = MA 'ET' (WTAB.'MAT_MEC') ;
  28. 'FINSI' ;
  29. 'SI' WTAB.'POR1' ;
  30. MA = MA 'ET' WTAB.'MAT_POR' ;
  31. 'FINSI' ;
  32. 'SI' ('EXIS' WTAB 'MAT_CHA') ;
  33. MA = MA 'ET' WTAB.'MAT_CHA' ;
  34. 'FINSI' ;
  35. LDEVAM='EXTR' MA 'DEVA';
  36. LDEVA_DM = 'DIME' LDEVAM;
  37. 'SI' ('NEG' LDEVA_DM 0);
  38. 'SI' ('NON' (('EGA' LDEVA_DM 1) 'ET'
  39. ( 'EGA' (LDEVAM 'EXTR' 1) 'ALPH' ) ));
  40. WTAB.'RECALCUL'= VRAI;
  41. 'FINSI';
  42. WTAB.'MATVAR'=VRAI;WTAB.'LDEVA'=LDEVAM;
  43. 'SI' WTAB.'FREQUENTIEL' ; WTAB.'MATVAR'= FAUX; 'FINSI';
  44. 'FINSI';
  45. 'FINSI';
  46. 'FINSI';
  47. *------- le modèle depend-t-il de parametres externes? Si oui verification
  48. *------- de leur presence.
  49. 'SI' WTAB.'PARA_EXTE';
  50. TEMP0=conti.'TEMPS';
  51. LPAR0_DI = 'DIME' LPAR0;
  52. 'REPETER' BOU_PA1 LPAR0_DI;
  53. NOM1 = 'EXTR' LPAR0 &BOU_PA1;
  54. 'SI' ('NON' ('EXISTE' nocom NOM1));
  55. 'MESS' 'Il manque la variable ' NOM1 ;
  56. 'ERRE' ' ';
  57. 'FINSI';
  58. 'FIN' BOU_PA1;
  59. 'SI' WTAB.'FOR_MECA' ;
  60. WTAB.'PARA_EXTE'=FAUX;
  61. 'SI' WTAB.'MEC1' ;
  62. MO=WTAB.'MOD_MEC';
  63. 'SI' WTAB.'POR1' ;
  64. MO= MO 'ET' WTAB.'MOD_POR';
  65. 'FINSI';
  66. 'SINON';
  67. MO=WTAB.'MOD_POR';
  68. 'FINSI';
  69. LPAR0 = 'EXTR' MO 'PARA';
  70. LPAR0_DI = 'DIME' LPAR0;
  71. 'SI' ( LPAR0_DI 'NEG' 0) ;
  72. WTAB.'PARA_EXTE'=VRAI;
  73. WTAB.'LPAR0'= LPAR0 ;
  74. 'FINSI';
  75. 'FINSI';
  76. 'FINSI';
  77. 'FINPROC';
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  

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