consulat de rif en portal seniat venezuela

[Normandia]

Feliz semana santa foxeros
gracias a la colobaracio del amigo Giovanni e irwin   pude lograr
con este proframa la consulta del rif en el portal del seniat
con el RIF  ESTE ME DA EL NOMBRE CORRECTO Y LA TASA IMPOSITIVA DE COBRO
 estoy en la busqueda de como hacer para la consulta de rif x cedula
ya que funcina bien con rif que comienza en J y G pero los que comienzan en V
no lo hace.
ejem= J304811187   SI
         V14067609   NO

Gracias de antemano.---
Norman Diaz
Venezuela


**************************************************
SET CLASSLIB TO wwIPSTUFF ADDITIVE
SET PROCEDURE TO wwUtils ADDITIVE

rif1=ALLTRIM(THISFORM.E_PRIMERO.Value)  &&ASIGNO EL RIF DEL FORM


RIF31 = STRTRAN(RIF1,"-","")

O=CREATEOBJECT("wwIPStuff")



WAIT WINDOW "...Conectando " NOWAIT TIMEOUT 0


*** Recuperación simple de datos

RESUL1 = o.HTTPGet("http://contribuyente.seniat.gob.ve/getContribuyente/getrif?rif="+ALLTRIM(RIF31))

*http://contribuyente.seniat.gob.ve/getContribuyente/getrif?rif=V000000000



R3 = ALLTRIM(RESUL1)
G1= AT("TASA",UPPER(R3),1)
SWTASA1=0.00
XY=""
IF G1>0
   FOR I=G1+5 TO  G1+8
       IF SUBSTR(R3,I,1)="<" .OR. SUBSTR(R3,I,1)="/" 
       ELSE
          XY=XY+SUBSTR(R3,I,1)
       ENDIF
   NEXT I
   SWTASA1=XY
ENDIF
L1 = 0
P1 = 163
DO WHILE P1 <> 253
   P1 = P1 + 1
   R1 = SUBSTR(R3,P1,1)

   IF R1 = "<"
      L1 = P1
      P1 = 253
   ENDIF     
ENDDO

TP1 = L1-164

RESUL3 = SUBSTR(R3,164,TP1)



IF EMPTY(RESUL3) = .T.
   WAIT WINDOW "No se Encontró este RIF en Internet" TIMEOUT 2
ELSE
   MESSAGEBOX(""+ALLTRIM(RESUL3),"Informacion del Cliente según el SENIAT", 48)
   IF EMPTY(THISFORM.E_SEGUNDO.Value)
      RESUL3=strtran(ALLTRIM(resul3),"(NO INDICA)","")
      RESUL3=strtran(ALLTRIM(resul3),"(SIN NOMBRE COMERCIAL)","")
      THISFORM.E_SEGUNDO.Value=ALLTRIM(RESUL3)
   ENDIF  
   THISFORM.E_TEXT5.Value=SWTASA1
ENDIF



*THISFORM.RESUL3.REFRESH

*http://www.seniat.gov.ve/getContribuyente/getrif?rif=V140676094

[Normandia]

Disculpen la cedula es V140676094 como esta la consulta al final