FiveTech Software tech support forums

Code: Select all

using System.Text.RegularExpressions;
using System;
using System.Globalization;

public class RFC
    {
        public static bool EsRFCValido(string RFC)
        {
            if (PersonaFisica_RFC(RFC) && ValidarUltimaLetraRFC(RFC) && ValidarFechaRFC(RFC))
                return true;

            if (General_RFC(RFC) && ValidarUltimaLetraRFC(RFC) && ValidarFechaRFC(RFC))
                return true;

            return false;
        }

        private static bool PersonaFisica_RFC(string RFC)
        {
            try
            {
                if (RFC.Trim().Length == 13 || RFC.Trim().Length == 12)
                {
                    string pattern = "^[A-Z&]{3,4}(\\d{6})(([A-Z0-9]){3})?$";
                    Match RFCMatch = Regex.Match(RFC, pattern);
                    if (RFC != string.Empty)
                    {
                        if (!RFCMatch.Success)
                            return false;
                    }
                }
                else
                    return false;

                return true;
            }
            catch (Exception ex)
            {
                Console.WriteLine(string.Format("ExpRegulares.PersonaFisica_RFC: {0}", ex.Message));
                return false;
            }
        }

        private static bool General_RFC(string RFC)
        {
            try
            {
                string pattern = "^([A-Z\\s]{3,4})\\d{6}(([A-Z\\w]|[0-9]){3})$";
                Match RFCMatch = Regex.Match(RFC.Trim(), pattern);
                if (RFC.Trim() != string.Empty)
                {
                    if (!RFCMatch.Success)
                        return false;
                }
                return true;
            }
            catch (Exception ex)
            {
                Console.WriteLine(string.Format("ExpRegulares.General_RFC: {0}", ex.Message));
                return false;
            }
        }

        private static bool ValidarUltimaLetraRFC(string RFC)
        {
            try
            {
                if (RFC.EndsWith("A") || RFC.EndsWith("0") || RFC.EndsWith("1") || RFC.EndsWith("2") || RFC.EndsWith("3") || RFC.EndsWith("4") || RFC.EndsWith("5")
                    || RFC.EndsWith("6") || RFC.EndsWith("7") || RFC.EndsWith("8") || RFC.EndsWith("9"))
                    return true;
                else
                    return false;
            }
            catch (Exception ex)
            {
                Console.WriteLine(string.Format("ExpRegulares.ValidarUltimaLetraRFC: {0}", ex.Message));
                return false;
            }
        }

        private static bool ValidarFechaRFC(string RFC)
        {
            string fecha = string.Empty;
            bool esFecha = false;
            DateTime resultado;

            fecha = RFC.Substring(RFC.Length - 9, 6);
            esFecha = DateTime.TryParseExact(fecha, "yyMMdd", null, DateTimeStyles.None, out resultado);

            return esFecha;
        }
    }

Code: Select all

#pragma BEGINDUMP

   // aqui el programa en C
void * hb_parns( int i )
{
   return 0;
}
  // fin de programa en C

#pragma ENDDUMP

 

Code: Select all

Function main()
Local cRfc:="visaf741020tu2"

   
   
    ?  valrfc(crfc)
    
    
    
Return Nil



Function Valrfc(xrfc)
Local dev:=.f.
local cletras:=""
local cfecha:=""
local chomoclave:=""

xrfc:=upper(alltrim(xrfc))
// validar el tamano   12 persona moral   13 persona fisica
if !(len(xrfc)>=12 .and. len(xrfc)<=13)
    Return .f.
endif


//fso0311035u8
//camb720214b32

if len(xrfc)=12    // validar persona moral
   cletras:=substr(xrfc,1,3)
   cfecha :=substr(xrfc,4,6)
   chomoclave:=substr(xrfc,10,3)
   if !lletras(cletras)
       return .f.
   endif
   if !lnumeros(cfecha)
       return .f.
   endif
   
    if !lmixto(chomoclave)
       return .f.
   endif
   
      
   
   
   

else               // validar persona fisica
   cletras:=substr(xrfc,1,4)
   cfecha :=substr(xrfc,5,6)
   chomoclave:=substr(xrfc,11,3)
   if !lletras(cletras)
       return .f.
   endif
   if !lnumeros(cfecha)
       return .f.
   endif
   
   if !lmixto(chomoclave)
       return .f.
   endif
   
   

endif



return .t.



Function lletras(xtexto)
local i
local dev:=.t.

for i:=1 to len(xtexto)
    IF asc(substr(xtexto,i,1))>=65 .and. asc(substr(xtexto,i,1))<=90
    else
       dev:=.f.
    endif
next i
Return dev


return .t.


Function lnumeros(xtexto)
local i
local dev:=.t.
for i:=1 to len(xtexto)
    IF asc(substr(xtexto,i,1))>=48 .and. asc(substr(xtexto,i,1))<=57
    else
       dev:=.f.
    endif
next i
Return dev


Function lmixto(xtexto)
local i
local dev:=.t.
for i:=1 to len(xtexto)
    IF (asc(substr(xtexto,i,1))>=48 .and. asc(substr(xtexto,i,1))<=57) .or. (asc(substr(xtexto,i,1))>=65 .and. asc(substr(xtexto,i,1))<=90)
    else
       dev:=.f.
    endif
next i



return dev