Hola Cristian,
Como te decía, no es un link que te permita hacer exactamente lo que indicas (a
menos que te haya entendido mal), creo que lo mas cerca que estas es algo
parecido al código que te copio mas abajo y podes correr directamente, la idea
se pasarle al documento el cuita y el capacha, y automatizar el envío lo que te
da como respuesta la constancia que al imprimirias desde la misma pagina.
Como veras es limitado porque tiene al menos un punto flojo (la pag. original
podría cambiar de nombre los elementos)., pero cualquier duda, haceme saber.
Saludos,
Juan Calcagno
***************************
oAfip=CREATEOBJECT("form1")
oAfip.show
READ events
**************************************************
*-- Form: form1 (c:\program files (x86)\microsoft visual foxpro
9\afip.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 10/07/13 08:44:05 AM
*
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 527
Width = 839
DoCreate = .T.
Caption = "Form1"
downloadtimeout = 15
Name = "Form1"
ADD OBJECT olecontrol1 AS olecontrol WITH ;
Top = 37, ;
Left = 1, ;
Height = 510, ;
Width = 817, ;
Visible = .F., ;
TabIndex = 5, ;
Enabled = .F., ;
Name = "Olecontrol1",;
OleClass = "Shell.Explorer.2"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 1, ;
Left = 14, ;
Height = 29, ;
Width = 125, ;
Caption = "Cargar Web Page:", ;
TabIndex = 1, ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 5, ;
Left = 592, ;
Height = 25, ;
Width = 117, ;
Caption = "Enviar Consulta", ;
TabIndex = 4, ;
Name = "Command2"
ADD OBJECT text1 AS textbox WITH ;
Height = 25, ;
Left = 206, ;
TabIndex = 2, ;
Top = 5, ;
Width = 153, ;
Name = "Text1"
ADD OBJECT label1 AS label WITH ;
Alignment = 1, ;
BackStyle = 0, ;
Caption = "CUIT:", ;
Height = 19, ;
Left = 150, ;
Top = 11, ;
Width = 52, ;
TabIndex = 6, ;
Name = "Label1"
ADD OBJECT text2 AS textbox WITH ;
Height = 25, ;
Left = 426, ;
TabIndex = 3, ;
Top = 5, ;
Width = 153, ;
Name = "Text2"
ADD OBJECT label2 AS label WITH ;
Alignment = 1, ;
BackStyle = 0, ;
Caption = "Captcha:", ;
Height = 19, ;
Left = 370, ;
Top = 11, ;
Width = 52, ;
TabIndex = 7, ;
Name = "Label2"
PROCEDURE Load
PUBLIC odoc, ocuit, ocaptcha
ENDPROC
PROCEDURE olecontrol1.NavigateComplete2
*** ActiveX Control Event ***
LPARAMETERS pdisp, url
ENDPROC
PROCEDURE command1.Click
* para que no de el error de js.
thisform.olecontrol1.silent=.t.
thisform.olecontrol1.navigate2("https://seti.afip.gob.ar/padron-puc-constancia-internet/jsp/Constancia.jsp";)
lnseconds=SECONDS()
DO WHILE (Thisform.olecontrol1.OBJECT.Busy OR
Thisform.olecontrol1.OBJECT.ReadyState < 3) AND ;
((SECONDS() - lnSeconds) <
Thisform.downloadtimeout )
DOEVENTS
ENDDO
WAIT WINDOW NOWAIT "Loaded..."
thisform.olecontrol1.Visible=.t.
thisform.olecontrol1.Enabled=.f.
ENDPROC
PROCEDURE command2.Click
if !thisform.olecontrol1.busy
odoc = thisform.olecontrol1.Document
IF !ISNULL(odoc)
ocuit = odoc.getElementById("cuit")
IF ISNULL(ocaptcha)
WAIT WINDOW "Element 'cuit' does not
Exist"
ELSE
ocuit.value =
ALLTRIM(thisform.text1.Value)
ENDIF
ocaptcha = odoc.getElementById("captchaField")
IF ISNULL(ocaptcha)
WAIT WINDOW "Element 'captchaField'
does not Exist"
ELSE
ocaptcha.value =
ALLTRIM(thisform.text2.Value)
ENDIF
oBtn=odoc.getElementById("btnConsultar")
oBtn.click()
lcUrl=thisform.olecontrol1.LocationURL
lnSeconds=SECONDS()
DO WHILE (Thisform.olecontrol1.OBJECT.Busy OR
Thisform.olecontrol1.OBJECT.ReadyState <> 4) AND ;
((SECONDS() - lnSeconds) <
Thisform.downloadTimeOut)
DOEVENTS
ENDDO
** si paso a la proxima pagina habilito el
browser
IF lcUrl#thisform.olecontrol1.LocationURL
WAIT WINDOW NOWAIT "Imprima la
constancia...."
thisform.olecontrol1.Enabled=.t.
ENDIF
ENDIF
**
https://seti.afip.gob.ar/padron-puc-constancia-internet/jsp/Constancia.jsp
ELSE
WAIT WINDOW NOWAIT "Form still loading..."
ENDIF
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
On Oct 7, 2013, at 7:45 AM, Cristian Conte <[email protected]> wrote:
> Juan:
>
> o = CREATEOBJECT("Shell.Application")
> o.open(https://seti.afip.gob.ar/padron-puc-constancia-internet/ConsultaConstanciaAction.do)
>
> Con esta sintaxis me trae la pagina del afip para que le ingresemos el nro.
> de cuit y el captcha, lo que yo quiero hacer es pasarle el nro. de cuit a
> esta pagina y que me pase automáticamente a la espera del get del captcha que
> este tendría que ser escrito por el operador.
>
> Espero haber expresado la idea que quiero realizar.
>
> Gracias.
> Cristian Conte
>
>
>
>
> Visitanos : http://tecnologiayservicios.wordpress.com/
> _____ Excelencia Informatica Cristian O. Conte E-mail:
> [email protected] Telefonos Movil : 0341-155025469 - 0341-4592174 -
> Rosario - Santa Fe - Argentina
>
> De: Juan Calcagno <[email protected]>
> Para: GUFA List Member <[email protected]>
> Enviado: lunes, 7 de octubre de 2013 0:10
> Asunto: [GUFA] Consulta
>
> Cristian,
>
> No entiendo exactamente lo que quedes hacer, pero para manejar
> programáticamente todo (sin interfaz de usuario), deberías acceder a una web
> api o web service que te permita pasar parámetros, y te devuelva los valores
> que buscas, no se si eso existe pero seguro que no es el link que mandaste.
> Me confunde pues la validación captcha es algo que si o si necesita una
> interacción visual.
>
> Quizás si describieras un poco mas de detalle podríamos encontrar
> alternativas…
>
>
>
> Saludos
> Juan Calcagno
>
>
> On Oct 3, 2013, at 9:02 PM, Cristian Conte <[email protected]>
> wrote:
>
>> Pablo, la idea es que el catpcha lo complete el operador, porque seria desde
>> la carga de un formulario y este se conecte a la pagina del afip y pase por
>> parámetro el numero de cuit. es para que le quede a la empresa la constancia
>> de inscripción.
>> Gracias.
>>
>>
>> Visitanos : http://tecnologiayservicios.wordpress.com/
>> _____ Excelencia Informatica Cristian O. Conte E-mail:
>> [email protected] Telefonos Movil : 0341-155025469 - 0341-4592174
>> - Rosario - Santa Fe - Argentina
>>
>> De: Pablo Pioli <[email protected]>
>> Para: GUFA List Member <[email protected]>
>> Enviado: jueves, 3 de octubre de 2013 16:30
>> Asunto: [GUFA] Consulta
>>
>> Resolviste el catpcha?
>>
>> Date: Thu, 3 Oct 2013 11:37:25 -0700
>> From: [email protected]
>> Subject: [GUFA] Consulta
>> To: [email protected]
>>
>> Necesitaria una ayuda si me pueden informar como puedo hacer, para pasar
>> como parámetro un nrocuit en la pagina de constancias de cuit de la afip.
>> Desde esta url. o donde puedo buscar porque no consigo nada útil.
>>
>> o = CREATEOBJECT("Shell.Application")
>> o.open(https://seti.afip.gob.ar/padron-puc-constancia-internet/ConsultaConstanciaAction.do)
>>
>> Gracias.
>>
>> Cristian Conte
>>
>>
>> Visitanos : http://tecnologiayservicios.wordpress.com/
>> _____ Excelencia Informatica Cristian O. Conte E-mail:
>> [email protected] Telefonos Movil : 0341-155025469 - 0341-4592174
>> - Rosario - Santa Fe - Argentina
>>
>>
>
>
>
