bousaid

WINDEV PROCEDURE Cle RIB 2021

Sep 18th, 2021
44
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PROCEDURE CleRIB(Compte is string)
  2.  
  3. nResulta is 8byte int
  4. sRib is string
  5. sComptes is string = NoCharacter(Compte,"-",sscInside)
  6.  
  7. nResulta = Val(Middle(sComptes,4,15)) * 100
  8. nResulta = modulo(nResulta,97)
  9. nResulta = 97 - nResulta
  10. sRib = NumToString(nResulta,"02d")
  11.  
  12. RESULT sRib
RAW Paste Data