Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-06-2023
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
Gracias Neftali, me ha ido de lujo, compila correctamente.


Me podrías pasar pagos también, por favor.


Utilizo XE6 y nada de nada lo importo con todos los WSDL, XSD, XML que da la AEAT y nada de nada. Me estoy volviendo loco.

Si me hacéis el favor de pasarme el .pas

Última edición por dimony fecha: 23-06-2023 a las 07:21:15.
Responder Con Cita
  #2  
Antiguo 23-06-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.309
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por dimony Ver Mensaje
Me podrías pasar pagos también, por favor.
Utilizo XE6 y nada de nada lo importo con todos los WSDL, XSD, XML que da la AEAT y nada de nada. Me estoy volviendo loco.

Si me pasas la URL del WSDL, como la de arriba te lo importo sin problemas.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 23-06-2023
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
Talking

Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
Si me pasas la URL del WSDL, como la de arriba te lo importo sin problemas.

Aquí va:

Código:
https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroPagosRecibidas.wsdl

Muchas gracias.
Responder Con Cita
  #4  
Antiguo 23-06-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.309
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Ahí va de vuelta...
Archivos Adjuntos
Tipo de Archivo: zip SuministroPagosRecibidas.zip (24,9 KB, 13 visitas)
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 23-06-2023
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
Talking

Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
Ahí va de vuelta...

Muchas gracias chato, que dios te lo pague . Me has salvado la vida.
Responder Con Cita
  #6  
Antiguo 26-06-2023
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
Haciendo pruebas de suministro no tengo "eggs" a suministrarlo.


Este es mi código:


Código:
function suministra_cobros: string;
var
  v_SuministroLRCobrosEmitidas: SuministroCobrosEmitidas.SuministroLRCobrosEmitidas;
  v_RegistroLRCobrosEmitidas: SuministroCobrosEmitidas.Array_Of_LRCobrosEmitidasType;
  v_RegistroCobros: SuministroCobrosEmitidas.CobrosType;
  v_RespuestaLRCobrosEmitidas: SuministroCobrosEmitidas.RespuestaLRCobrosEmitidas;
  
  
  v_registros_cobros: smallint;
  v_dummy: smallint;
  V_NIF : SuministroCobrosEmitidas.IDEmisorFactura7;

begin

  (* -------------- BEGIN CABECERA -------------- *)
  v_SuministroLRCobrosEmitidas := SuministroCobrosEmitidas.SuministroLRCobrosEmitidas.Create;
  v_SuministroLRCobrosEmitidas.Cabecera := SuministroCobrosEmitidas.CabeceraSiiCobrosPagos.Create;
  v_SuministroLRCobrosEmitidas.Cabecera.IDVersionSii := SuministroCobrosEmitidas.VersionSiiType(0);
  v_SuministroLRCobrosEmitidas.Cabecera.Titular := SuministroCobrosEmitidas.PersonaFisicaJuridicaESType.Create;
  v_SuministroLRCobrosEmitidas.Cabecera.Titular.NombreRazon := Main.g_name;
  v_SuministroLRCobrosEmitidas.Cabecera.Titular.NIFRepresentante := Main.g_nif_representative;
  v_SuministroLRCobrosEmitidas.Cabecera.Titular.NIF := Main.g_nif;
  (* -------------- END CABECERA -------------- *)

  v_RegistroLRCobrosEmitidas[0] := SuministroCobrosEmitidas.LRCobrosEmitidasType.Create;
  v_RegistroLRCobrosEmitidas[0].IDFactura := SuministroCobrosEmitidas.IDFacturaExpedidaBCType.Create;
  v_RegistroLRCobrosEmitidas[0].IDFactura.IdEmisorFactura := SuministroCobrosEmitidas.IDEmisorFactura7.Create;
  v_RegistroLRCobrosEmitidas[0].IDFactura.IDEmisorFactura.nif := 'B00000000';
  v_RegistroLRCobrosEmitidas[0].IDFactura.NumSerieFacturaEmisor := '3302';
  v_RegistroLRCobrosEmitidas[0].IDFactura.FechaExpedicionFacturaEmisor := formatdatetime('dd-mm-yyyy',data.LibrosRegistros.FieldByName('fec_fra').AsDateTime);

  SetLength(v_RegistroCobros,1);
  v_RegistroCobros[0].Fecha := formatdatetime('dd-mm-yyyy',data.LibrosRegistros.FieldByName('fec_fra').AsDateTime);
  v_RegistroCobros[0].Importe := '12.1'
  v_RegistroCobros[0].Medio := SuministroCobrosEmitidas.MedioPagoType(00);
  v_RegistroCobros[0].Cuenta_O_Medio := 'Al contado';

  v_RegistroLRCobrosEmitidas[v_registros_cobros - 1].Cobros := v_RegistroCobros;

  v_RespuestaLRCobrosEmitidas := SuministroCobrosEmitidas.GetsiiSOAP(true, '', Main.g_co_wsdl_localitation, Main.g_co_wsdl_port, Main.g_co_wsdl_service, data.HTTPRIO6).SuministroLRCobrosEmitidas(v_SuministroLRCobrosEmitidas);

end;

Este es el XML que crea:


Código:
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <SOAP-ENV:Body>
    <SuministroLRCobrosEmitidas xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd">
      <Cabecera xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">
        <IDVersionSii>1.1</IDVersionSii>
        <Titular>
          <NombreRazon>Empresa</NombreRazon>
          <NIFRepresentante/>
          <NIF>B0000000</NIF>
        </Titular>
      </Cabecera>
      <RegistroLRCobros>
        <IDFactura>
          <IDEmisorFactura xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">
            <NIF>B00000000</NIF>
          </IDEmisorFactura>
          <NumSerieFacturaEmisor xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">3302</NumSerieFacturaEmisor>
          <FechaExpedicionFacturaEmisor xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">19-06-2023</FechaExpedicionFacturaEmisor>
        </IDFactura>
        <Cobros>
          <Cobro>
            <Fecha xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">23-06-2023</Fecha>
            <Importe xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">12.1</Importe>
            <Medio xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">01</Medio>
            <Cuenta_O_Medio xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">Al contado</Cuenta_O_Medio>
          </Cobro>
        </Cobros>
      </RegistroLRCobros>
    </SuministroLRCobrosEmitidas>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

y me devuelve el siguiente código de error:


Código:
Codigo[4102].El XML no cumple el esquema. Falta informar campo obligatorio.: Cobro

Creo que no tengo bien definidas las variables o algo por el estilo o algo por ahí se me escapa, me podríais poner un ejemplo de suministro de cobros / pagos, please.

Última edición por dimony fecha: 26-06-2023 a las 11:24:31.
Responder Con Cita
  #7  
Antiguo 26-06-2023
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
He descubierto que si en la etiqueta <cobro> se le pone


"https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd"

Funciona. en el cliente web service de la la AEAT.


Pero no logro hacer que se ponga al generarlo yo, ¿Algún alma caritativa, por favor?
Responder Con Cita
Respuesta



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 4175 Hace 1 Día 16:17:35
AEAT envio de datos vía Webservice problemas con WSDL CelsoO Internet 11 09-10-2019 20:03:41
webService Soap de la Administración Digital Española notific@ apicito Internet 3 31-01-2017 11:25:28
Error en Webservice funcion envio de sms webmasterplc Delphi para la web 5 25-07-2013 20:10:29
Problemas con envío de XML a un WebService davidvamo Internet 1 13-02-2007 15:49:20


La franja horaria es GMT +2. Ahora son las 23:20:08.


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