Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #2021  
Antiguo 28-06-2017
didou didou is offline
Miembro
 
Registrado: may 2017
Posts: 59
Poder: 7
didou Va por buen camino
Cita:
Empezado por PepCat Ver Mensaje
En la pagina 99 tienes la solución post #1976

Muchas gracias PepCat, funciona perfectamente.
Responder Con Cita
  #2022  
Antiguo 28-06-2017
richihu richihu is offline
Registrado
NULL
 
Registrado: jun 2014
Posts: 5
Poder: 0
richihu Va por buen camino
Thumbs up SOS "Error en el soporte del canal seguro"

Hola a todos,

He revisado todos los posts y he probado a cargar un certificado válido con CAPICOM en el OnBeforePost del HTTPRIO pero me sige dando el error, por favro si alguien se le ocurre algo...Gracias!

procedure TfrmMain.HTTPReqResp1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
FCertificatesList: TInterfaceList;
i, j: Integer;
Store: ICertificates;
Certificate: ICertificate2;

ExtProperty: IExtendedProperty;

PCertContext : PCCERT_CONTEXT;
CertContext : ICertContext;
stAux: String;

CertsUtils: TUtilities;
begin
inherited;


FCertificatesList := TInterfaceList.Create();

//CAPICOM_LOCAL_MACHINE_STORE
Store1.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_READ_ONLY); //CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY

Store := Store1.Certificates;

try
CertsUtils := TUtilities.Create(Self);

for I := 1 to Store1.Certificates.Count do
begin
Certificate := IInterface(Store.Item[i]) as ICertificate2;

Certificate.GetInfo(CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME);
// dtcCerts.Values[i-1, 1] := Certificate.GetInfo(CAPICOM_CERT_INFO_ISSUER_SIMPLE_NAME);
// dtcCerts.Values[i-1, 2] := Certificate.ValidToDate;

stAux := '';
for j := 1 to Certificate.ExtendedProperties.Count do
begin
ExtProperty := IInterface(Certificate.ExtendedProperties.Item[j]) as IExtendedProperty;
if ExtProperty.PropID = CAPICOM_PROPID_FRIENDLY_NAME then
begin
stAux := CertsUtils.BinaryStringToByteArray(ExtProperty.Value[CAPICOM_ENCODE_BINARY]);
break;
end;
end;

stAux := Certificate.SerialNumber;

// Cargo certificado válido
if Certificate.SerialNumber = '2C2DBEE53ACFD8965809C4707F55FE28' then
begin
CertContext:= Certificate as ICertContext;
CertContext.Get_CertContext(Integer(PCertContext));

// Por aquí pasa y no devuelve error pero aún así...
if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT))= False then
ShowMessage('Error en InternetSetOption');
end;

FCertificatesList.Add(Certificate);
end;

finally
// dtcCerts.EndUpdate();
CertsUtils.Free();
end;
Responder Con Cita
  #2023  
Antiguo 28-06-2017
PepCat PepCat is offline
Miembro
 
Registrado: mar 2017
Posts: 96
Poder: 8
PepCat Va por buen camino
Cita:
Empezado por newtron Ver Mensaje
A eso pero el código Delphi que lo genera, si es posible.

Gracias
Mira la página 21 post #414
Responder Con Cita
  #2024  
Antiguo 28-06-2017
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Poder: 20
newtron Va camino a la fama
Cita:
Empezado por PepCat Ver Mensaje
Mira la página 21 post #414
, muchas gracias.
__________________
Be water my friend.
Responder Con Cita
  #2025  
Antiguo 28-06-2017
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Poder: 20
newtron Va camino a la fama
Cita:
Empezado por richihu Ver Mensaje
Hola a todos,

He revisado todos los posts y he probado a cargar un certificado válido con CAPICOM en el OnBeforePost del HTTPRIO pero me sige dando el error, por favro si alguien se le ocurre algo...Gracias!

procedure TfrmMain.HTTPReqResp1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
FCertificatesList: TInterfaceList;
i, j: Integer;
Store: ICertificates;
Certificate: ICertificate2;

ExtProperty: IExtendedProperty;

PCertContext : PCCERT_CONTEXT;
CertContext : ICertContext;
stAux: String;

CertsUtils: TUtilities;
begin
inherited;


FCertificatesList := TInterfaceList.Create();

//CAPICOM_LOCAL_MACHINE_STORE
Store1.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_READ_ONLY); //CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY

Store := Store1.Certificates;

try
CertsUtils := TUtilities.Create(Self);

for I := 1 to Store1.Certificates.Count do
begin
Certificate := IInterface(Store.Item[i]) as ICertificate2;

Certificate.GetInfo(CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME);
// dtcCerts.Values[i-1, 1] := Certificate.GetInfo(CAPICOM_CERT_INFO_ISSUER_SIMPLE_NAME);
// dtcCerts.Values[i-1, 2] := Certificate.ValidToDate;

stAux := '';
for j := 1 to Certificate.ExtendedProperties.Count do
begin
ExtProperty := IInterface(Certificate.ExtendedProperties.Item[j]) as IExtendedProperty;
if ExtProperty.PropID = CAPICOM_PROPID_FRIENDLY_NAME then
begin
stAux := CertsUtils.BinaryStringToByteArray(ExtProperty.Value[CAPICOM_ENCODE_BINARY]);
break;
end;
end;

stAux := Certificate.SerialNumber;

// Cargo certificado válido
if Certificate.SerialNumber = '2C2DBEE53ACFD8965809C4707F55FE28' then
begin
CertContext:= Certificate as ICertContext;
CertContext.Get_CertContext(Integer(PCertContext));

// Por aquí pasa y no devuelve error pero aún así...
if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT))= False then
ShowMessage('Error en InternetSetOption');
end;

FCertificatesList.Add(Certificate);
end;

finally
// dtcCerts.EndUpdate();
CertsUtils.Free();
end;
Mira en el post que hay justo anterior al tuyo.
__________________
Be water my friend.
Responder Con Cita
  #2026  
Antiguo 28-06-2017
richihu richihu is offline
Registrado
NULL
 
Registrado: jun 2014
Posts: 5
Poder: 0
richihu Va por buen camino
Revisado pero...me sigue dando el mismo error

Hola, lo primero muchísimas gracias por la respuesta. No obstante, me tiene bastante mosqueado, he probado a cambiar números de serie y el error que devuelve es que hace falta un certificado válido, es decir, el context y el número de serie se informan bien (depurando está todo correctamente informado) pero por lo que sea sigue dando el mismo error, los certificados con los que he probado son de la FNMT y están operativos porque los uso en real, son los que uso para firma de Facturae...Estoy usando XE7 con Windows 8.1 ¿alguna idea?

Gracias de antemano.
Responder Con Cita
  #2027  
Antiguo 28-06-2017
richihu richihu is offline
Registrado
NULL
 
Registrado: jun 2014
Posts: 5
Poder: 0
richihu Va por buen camino
Revisado pero...me sigue dando el mismo error

Cita:
Empezado por newtron Ver Mensaje
Mira en el post que hay justo anterior al tuyo.
Hola, lo primero muchísimas gracias por la respuesta. No obstante, me tiene bastante mosqueado, he probado a cambiar números de serie y el error que devuelve es que hace falta un certificado válido, es decir, el context y el número de serie se informan bien (depurando está todo correctamente informado) pero por lo que sea sigue dando el mismo error, los certificados con los que he probado son de la FNMT y están operativos porque los uso en real, son los que uso para firma de Facturae...Estoy usando XE7 con Windows 8.1 ¿alguna idea?

Gracias de antemano.
Responder Con Cita
  #2028  
Antiguo 28-06-2017
richihu richihu is offline
Registrado
NULL
 
Registrado: jun 2014
Posts: 5
Poder: 0
richihu Va por buen camino
Cita:
Empezado por seccion_31 Ver Mensaje
Me han contestado de la aeat, diciéndome que "se esta tramitando..."

Pero el encabezado de respuesta era sospechosamente este:

"Re: [Posible SPAM] Error al enviar 13 o mas facturas"

uuummm....

lo han dividido para dividir por usos... igual piensan que es mejor por si alguien no usa recibidas, y si emitidas....

Si usas la llamada:

Código:
result := GetsiiSOAP(true,'',HTTPRIO1).SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);
necesitas indicar en el httipro el WSDLLOCATION

Si usas:

Código:
result := GetsiiSOAP.SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);
Te sirve sin ningún httipro, es mas: ! lo puedes quitar del form !

Pero cuidado, con el nuevo interface 0.5 el puerto que tienen puesto es el real, fijaros en la función GetsiiSOAP

Saludos !
Hola a todos,

He leído y releído los posts, uso un HTTPRIO con el certificado precargado, estoy haciendo pruebas, me da siempre el mismo error, "Error en el soporte del canal seguro" ¿alguna idea? ¿puede ser un problema de los servidores de la AEAT?

Gracias
Responder Con Cita
  #2029  
Antiguo 01-07-2017
CMB CMB is offline
Miembro
 
Registrado: ene 2017
Posts: 349
Poder: 8
CMB Va por buen camino
Libros registro de IVA a través de la Sede electrónica de la AEAT

El portal interactivo de producción ya está abierto en

https://www.agenciatributaria.gob.es...ini/G417.shtml

Saludos,
Responder Con Cita
  #2030  
Antiguo 01-07-2017
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Poder: 20
newtron Va camino a la fama
Cita:
Empezado por CMB Ver Mensaje
El portal interactivo de producción ya está abierto en

https://www.agenciatributaria.gob.es...ini/G417.shtml

Saludos,
Gracias.

Llegó el día. A ver si salimos por la puerta grande o por el chiquero.
__________________
Be water my friend.
Responder Con Cita
  #2031  
Antiguo 01-07-2017
RubenMon RubenMon is offline
Registrado
NULL
 
Registrado: feb 2017
Posts: 3
Poder: 0
RubenMon Va por buen camino
Cita:
Empezado por richihu Ver Mensaje
Hola a todos,

He leído y releído los posts, uso un HTTPRIO con el certificado precargado, estoy haciendo pruebas, me da siempre el mismo error, "Error en el soporte del canal seguro" ¿alguna idea? ¿puede ser un problema de los servidores de la AEAT?

Gracias
Hola.

Mira en la pagina 56 la entrada 1115. Yo tuve el mismo problema y era culpa de la configuración del IE. En otros equipos el programa funciona correctamente.

Un saludo.
Rubén.
Responder Con Cita
  #2032  
Antiguo 01-07-2017
manelb manelb is offline
Miembro
 
Registrado: mar 2017
Posts: 280
Poder: 8
manelb Va por buen camino
La AEAT publica un asistente virtual del SII

Alguien ha visto esto???

https://www2.agenciatributaria.gob.e...dos%20al%20SII

A mi no me funciona.
He probado con diferentes navegadores i sistemas operativos i el botón "Iniciar Asistente" no hace nada.
Responder Con Cita
  #2033  
Antiguo 01-07-2017
xamminf xamminf is offline
Miembro
 
Registrado: ene 2017
Posts: 148
Poder: 8
xamminf Va por buen camino
Cita:
Empezado por newtron Ver Mensaje
Gracias.

Llegó el día. A ver si salimos por la puerta grande o por el chiquero.
Me conformo con aplausos y vuelta al ruedo.
Para los hispanimalistas, por supuesto, Newtron and me estamos hablando de carreras de motos.
Responder Con Cita
  #2034  
Antiguo 01-07-2017
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Poder: 20
newtron Va camino a la fama
Cita:
Empezado por xamminf Ver Mensaje
Me conformo con aplausos y vuelta al ruedo.
Para los hispanimalistas, por supuesto, Newtron and me estamos hablando de carreras de motos.
Bien visto compañero.
__________________
Be water my friend.
Responder Con Cita
  #2035  
Antiguo 01-07-2017
PASPAS PASPAS is offline
Miembro
 
Registrado: feb 2017
Posts: 115
Poder: 8
PASPAS Va por buen camino
Calculadora de plazos sii

https://www2.agenciatributaria.gob.e...lazos?OpenPage

Nueva opcion para aplicar al software implementado

Saludos
Responder Con Cita
  #2036  
Antiguo 03-07-2017
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.457
Poder: 20
newtron Va camino a la fama
Pues empezamos bien.... a mi no me funciona el entorno de pruebas ni para enviar ni para consultar, ¿alguien ha probado hoy?

Saludos
__________________
Be water my friend.
Responder Con Cita
  #2037  
Antiguo 03-07-2017
Avatar de mrobles
mrobles mrobles is offline
Miembro
NULL
 
Registrado: may 2017
Posts: 115
Poder: 7
mrobles Va por buen camino
Cita:
Empezado por newtron Ver Mensaje
Pues empezamos bien.... a mi no me funciona el entorno de pruebas ni para enviar ni para consultar, ¿alguien ha probado hoy?

Saludos
Yo llame y me dijeron que tienen errores en produccion, que si sigue asi que en lugar de llamar que mande una solicitud por el formulario
Responder Con Cita
  #2038  
Antiguo 03-07-2017
jodaws jodaws is offline
Miembro
 
Registrado: may 2007
Posts: 22
Poder: 0
jodaws Va por buen camino
A mi tampoco me funciona, me da error: Bad Gateway (502) - 'https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP'
Responder Con Cita
  #2039  
Antiguo 03-07-2017
pesadillator pesadillator is offline
Registrado
NULL
 
Registrado: abr 2017
Posts: 5
Poder: 0
pesadillator Va por buen camino
Problemas al instalar en el ordenador del cliente

Hola a todos, tengo un grave problema, desarrolle la aplicación en embarcadero XE2 en un ordenador con windows 7 32 bits, y funciona perfectamente, pero al instalarlo en el ordenador del cliente que tiene windows 10 64 bits, cuando voy a conectar me da el siguiente error:

ClassFactory no puede suministrar a la clase solicitada, ClassId:
{78E61E52-0E57-4456-A2F2-517492BCBF8F}

Necesito ayuda urgente, gracias de antemano.
Responder Con Cita
  #2040  
Antiguo 03-07-2017
joefrommalaka joefrommalaka is offline
Miembro
NULL
 
Registrado: mar 2017
Posts: 10
Poder: 0
joefrommalaka Va por buen camino
Cita:
Empezado por pesadillator Ver Mensaje
Hola a todos, tengo un grave problema, desarrolle la aplicación en embarcadero XE2 en un ordenador con windows 7 32 bits, y funciona perfectamente, pero al instalarlo en el ordenador del cliente que tiene windows 10 64 bits, cuando voy a conectar me da el siguiente error:

ClassFactory no puede suministrar a la clase solicitada, ClassId:
{78E61E52-0E57-4456-A2F2-517492BCBF8F}

Necesito ayuda urgente, gracias de antemano.
Ese error te indica que la clase capicom.dll no la tienes registrada correctamente en el ordenador del cliente. Debes copiar capicom.dll en carpeta de sistema de 32 bits de windows (system32 para 32 bits y syswow64 para 64 bits) y ejecutar el comando "regsvr32 capicom.dll" como administrador desde linea de comandos.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco keys Internet 4149 Hace 6 Días 14:29:27
AEAT envio de datos vía Webservice problemas con WSDL CelsoO Internet 11 09-10-2019 21:03:41
webService Soap de la Administración Digital Española notific@ apicito Internet 3 31-01-2017 12:25:28
Error en Webservice funcion envio de sms webmasterplc Delphi para la web 5 25-07-2013 21:10:29
Problemas con envío de XML a un WebService davidvamo Internet 1 13-02-2007 16:49:20


La franja horaria es GMT +2. Ahora son las 20:50:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi