[06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so: cannot open shared object file: No such file or directory in Unknown on line 0 Ortega.cl
Ortega.cl :: Validar RUT! :: Visual Foxpro

Validar Rut!
Visual FoxPro


FUNCTION Val_Rut
 PARAMETERS rut,digver
 STORE 0 TO suma
 STORE 2 TO j
 Largo = LEN(rut)

 FOR i = Largo TO 1 STEP -1
  Dig   = VAL(SUBSTR(rut,i,1))
  suma = suma + (Dig * j)
  IF j = 7
   j = 1
  ENDIF
  j = j + 1
 ENDFOR
 RESTO = MOD(suma,11)
 DO CASE
  CASE RESTO = 0
   dv = 0
  CASE RESTO = 1
   dv = "K"
   IF digver = "k" OR digver = "K"
    *   WAIT 'RUT INCORRECTO!!!' WINDOWS
    RETURN .F.
   ENDIF
   RETURN .T.
  OTHERWISE
   dv = 11 - RESTO
 ENDCASE
 IF digver == ALLTRIM(STR(dv))
  RETURN .T.
 ELSE
  * WAIT 'RUT INCORRECTO!!!' WINDOWS
  RETURN .F.
 ENDIF
ENDFUNC
Última Modificación: Nov 16, 2006, 4:10 pm         Esta página sin Plop!         Opera
Sitio Plop!