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
  #1701  
Antiguo 30-09-2021
ermendalenda ermendalenda is offline
Miembro
 
Registrado: ago 2021
Posts: 868
Poder: 3
ermendalenda Va por buen camino
Cita:
Empezado por iMia Ver Mensaje
Código Delphi [-]
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : https://www2.agenciatributaria.gob.e...ws/VNifV2.wsdl
//  >Import : https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2.wsdl>0
//  >Import : https://www2.agenciatributaria.gob.e.../VNifV2Ent.xsd
//  >Import : https://www2.agenciatributaria.gob.e.../VNifV2Sal.xsd
// Encoding : UTF-8
// Version  : 1.0
// (09/07/2021 15:44:34 - - $Rev: 90173 $)
// ************************************************************************ //

unit VNifV21;

interface

uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.XSBuiltIns;

const
  IS_UNBD = $0002;


type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Embarcadero types; however, they could also
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]

  Contribuyente        = class;                 { "http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Ent.xsd"[Cplx] }
  Contribuyente2       = class;                 { "http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Sal.xsd"[Cplx] }

  VNifV2Sal2 = array of Contribuyente2;         { "http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Sal.xsd"[Lit][GblCplx] }
  VNifV2Sal       =  type VNifV2Sal2;      { "http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Sal.xsd"[Lit][GblElm] }
  VNifV2Ent2 = array of Contribuyente;          { "http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Ent.xsd"[Lit][GblCplx] }
  VNifV2Ent       =  type VNifV2Ent2;      { "http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Ent.xsd"[Lit][GblElm] }


  // ************************************************************************ //
  // XML       : Contribuyente, 
  // Namespace : http://www2.agenciatributaria.gob.es.../VNifV2Ent.xsd
  // ************************************************************************ //
  Contribuyente = class(TRemotable)
  private
    FNif: string;
    FNombre: string;
  published
    property Nif:    string  read FNif write FNif;
    property Nombre: string  read FNombre write FNombre;
  end;



  // ************************************************************************ //
  // XML       : Contribuyente, 
  // Namespace : http://www2.agenciatributaria.gob.es.../VNifV2Sal.xsd
  // ************************************************************************ //
  Contribuyente2 = class(TRemotable)
  private
    FNif: string;
    FNombre: string;
    FResultado: string;
  published
    property Nif:       string  read FNif write FNif;
    property Nombre:    string  read FNombre write FNombre;
    property Resultado: string  read FResultado write FResultado;
  end;


  // ************************************************************************ //
  // Namespace : http://www2.agenciatributaria.gob.es...ws/VNifV2.wsdl
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // use       : literal
  // binding   : VNifV2SoapBinding
  // service   : VNifV2Service
  // port      : VNifPort1
  // URL       : https://www1.agenciatributaria.gob.e.../ws/VNifV2SOAP
  // ************************************************************************ //
  VNifV2 = interface(IInvokable)
  ['{0FA68156-DD7D-DED4-F168-3936F989AAA0}']

    // Cannot unwrap: 
    //     - Input element wrapper name does not match operation's name
    function  VNifV2(const VNifV2Ent: VNifV2Ent): VNifV2Sal; stdcall;
  end;

function GetVNifV2(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): VNifV2;


implementation
  uses System.SysUtils;

function GetVNifV2(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): VNifV2;
const
  defWSDL = 'https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2.wsdl';
  defURL  = 'https://www1.agenciatributaria.gob.es/wlpl/BURT-JDIT/ws/VNifV2SOAP';
  defSvc  = 'VNifV2Service';
  defPrt  = 'VNifPort1';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as VNifV2);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


initialization
  { VNifV2 }
  InvRegistry.RegisterInterface(TypeInfo(VNifV2), 'http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2.wsdl', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(VNifV2), '');
  InvRegistry.RegisterInvokeOptions(TypeInfo(VNifV2), ioDocument);
  InvRegistry.RegisterInvokeOptions(TypeInfo(VNifV2), ioLiteral);
  RemClassRegistry.RegisterXSInfo(TypeInfo(VNifV2Sal2), 'http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Sal.xsd', 'VNifV2Sal2', 'VNifV2Sal');
  RemClassRegistry.RegisterSerializeOptions(TypeInfo(VNifV2Sal2), [xoLiteralParam]);
  RemClassRegistry.RegisterXSInfo(TypeInfo(VNifV2Sal), 'http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Sal.xsd', 'VNifV2Sal');
  RemClassRegistry.RegisterXSInfo(TypeInfo(VNifV2Ent2), 'http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Ent.xsd', 'VNifV2Ent2', 'VNifV2Ent');
  RemClassRegistry.RegisterSerializeOptions(TypeInfo(VNifV2Ent2), [xoLiteralParam]);
  RemClassRegistry.RegisterXSInfo(TypeInfo(VNifV2Ent), 'http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Ent.xsd', 'VNifV2Ent');
  RemClassRegistry.RegisterXSClass(Contribuyente, 'http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Ent.xsd', 'Contribuyente');
  RemClassRegistry.RegisterXSClass(Contribuyente2, 'http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Sal.xsd', 'Contribuyente2', 'Contribuyente');

end.

envias nif/cif y nombre en VNifV2Ent y te dice si es correcto o no en VNifV2Sal
Ojo que el nombre debe ser muy aproximado, no hace falta que sea exactamente igual...
debes meter un certificado vàlido en el THTTPRIO con el HTTPRIO.HTTPWebNode.OnBeforePost := HTTPWebNode1BeforePost;

puedes enviar una lista para comprobar con VNifV2Ent2
Hola graciassss.
Vale para extranjeros?
Responder Con Cita
  #1702  
Antiguo 30-09-2021
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 141
Poder: 14
iMia Va por buen camino
Cita:
Empezado por ermendalenda Ver Mensaje
Hola graciassss.
Vale para extranjeros?
pos no lo he probado....
Responder Con Cita
  #1703  
Antiguo 30-09-2021
ermendalenda ermendalenda is offline
Miembro
 
Registrado: ago 2021
Posts: 868
Poder: 3
ermendalenda Va por buen camino
Cita:
Empezado por iMia Ver Mensaje
pos no lo he probado....
Bueno lo investigaré, lo primero a ver si consigo pasarlo a comandos curl
al menos resuelve lo del nombre para futuras comprobaciones que seguro que harán en el tbai
Responder Con Cita
  #1704  
Antiguo 30-09-2021
sEngine sEngine is offline
Miembro
 
Registrado: jul 2021
Posts: 53
Poder: 3
sEngine Va por buen camino
El de alava no funciona aun verdad? Me sale esto (entre otros avisos)


Código Delphi [-]
El servicio de recepción no está disponible. Repita la operación más tarde
Responder Con Cita
  #1705  
Antiguo 01-10-2021
JoseLeeTo JoseLeeTo is offline
Miembro
 
Registrado: jun 2021
Posts: 65
Poder: 3
JoseLeeTo Va por buen camino
Cita:
Empezado por sEngine Ver Mensaje
El de alava no funciona aun verdad? Me sale esto (entre otros avisos)


Código Delphi [-]
El servicio de recepción no está disponible. Repita la operación más tarde
El servicio de alta y Anulación SI están operativos.
Hasta donde yo sé, solo faltaría para Alava (y Guipuzcoa) que publiquen las especificaciones del servicio Zuzendu
Responder Con Cita
  #1706  
Antiguo 01-10-2021
JoseLeeTo JoseLeeTo is offline
Miembro
 
Registrado: jun 2021
Posts: 65
Poder: 3
JoseLeeTo Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
A mi no me ha pasado antes, ni tampoco ahora que acabo de generar una.
¿Te pasa con todas o sólo con algunas?

Si cuando envías el XML no te da error es que debe estar bien.
Así que el problema debe ser de la consulta. ¿Los valores que añades en el título son correctos (total, serie,...)?
Hola.
Solucionado.
Era que el importe de la URL lo mandaba con "comas" y con con "punto" en la parte decimal. Una vez he cambiado eso, todo correcto.

Gracias.
Responder Con Cita
  #1707  
Antiguo 01-10-2021
Noe277 Noe277 is offline
Miembro
 
Registrado: jul 2017
Posts: 72
Poder: 7
Noe277 Va por buen camino
Cita:
Empezado por ermendalenda Ver Mensaje
Hola graciassss.
Vale para extranjeros?
Ese es el webservice de la aeat y solo es para dni españoles.
Responder Con Cita
  #1708  
Antiguo 01-10-2021
rci rci is offline
Miembro
 
Registrado: nov 2020
Posts: 143
Poder: 4
rci Va por buen camino
Question facturas intracomunitarias con IVA?

Buenos días, sabeis si es posible expedir facturas intracomunitarias con IVA?
Pensaba que si y he preguntado a las diputaciones como se envia a TicketBAI, porque en las FAQ solo aparece como enviar exenta, y dicen que no entienden que estoy preguntando...
Existen facturas a clientes no nacionales en que se les aplique IVA o siempre tiene que ser exenta?

Tenemos usuarios de nuestro programa que en algun caso necesitan hacerlo.


Sabeis donde puedo consultar esta información?


Muchas gracias
Responder Con Cita
  #1709  
Antiguo 01-10-2021
ermendalenda ermendalenda is offline
Miembro
 
Registrado: ago 2021
Posts: 868
Poder: 3
ermendalenda Va por buen camino
Cita:
Empezado por Noe277 Ver Mensaje
Ese es el webservice de la aeat y solo es para dni españoles.

Gracias al menos podemos comprobar la mayoría de los Nombres y NIFS/CIFS
Ya lo tengo funcionando, gracias iMIA

Última edición por ermendalenda fecha: 01-10-2021 a las 09:33:35.
Responder Con Cita
  #1710  
Antiguo 01-10-2021
Noe277 Noe277 is offline
Miembro
 
Registrado: jul 2017
Posts: 72
Poder: 7
Noe277 Va por buen camino
Cita:
Empezado por rci Ver Mensaje
Buenos días, sabeis si es posible expedir facturas intracomunitarias con IVA?
Pensaba que si y he preguntado a las diputaciones como se envia a TicketBAI, porque en las FAQ solo aparece como enviar exenta, y dicen que no entienden que estoy preguntando...
Existen facturas a clientes no nacionales en que se les aplique IVA o siempre tiene que ser exenta?

Tenemos usuarios de nuestro programa que en algun caso necesitan hacerlo.


Sabeis donde puedo consultar esta información?


Muchas gracias
Una empresa española vende a una empresa francesa ambos tienen que estar inscritos en el ROI por tanto tienen nif intracomunitario ->Exento
Una empresa española vende a una empresa francesa que no esta inscrita en el ROI no tiene nif intracomunitario. Generalmente no serán empresas serán particulares-> Iva Español
Se entiende que una empresa al realizar operación intracomunitarias tiene que darse de alta en el ROI/VIES
Responder Con Cita
  #1711  
Antiguo 01-10-2021
ermendalenda ermendalenda is offline
Miembro
 
Registrado: ago 2021
Posts: 868
Poder: 3
ermendalenda Va por buen camino
Agradecería que alguien pasara(parametrizara) a Curl.exe para verificar los nifs extranjeros, aqui os dejo la documentación:
https://ec.europa.eu/taxation_custom...formation.html
Responder Con Cita
  #1712  
Antiguo 01-10-2021
rci rci is offline
Miembro
 
Registrado: nov 2020
Posts: 143
Poder: 4
rci Va por buen camino
Cita:
Empezado por Noe277 Ver Mensaje
Una empresa española vende a una empresa francesa ambos tienen que estar inscritos en el ROI por tanto tienen nif intracomunitario ->Exento
Una empresa española vende a una empresa francesa que no esta inscrita en el ROI no tiene nif intracomunitario. Generalmente no serán empresas serán particulares-> Iva Español
Se entiende que una empresa al realizar operación intracomunitarias tiene que darse de alta en el ROI/VIES

Muchas gracias Noe277, puede que yo tenga algunos conceptos mal entendidos


Si lo he entendido bien una intracomunitaria siempre es exenta, y si en una factura se aplica iva es que no es intracomunitaria, aunque el cliente no se nacional.


Si es así ya me cuadra para declarar facturas a TicketBAI ...


Gracias
Responder Con Cita
  #1713  
Antiguo 01-10-2021
Noe277 Noe277 is offline
Miembro
 
Registrado: jul 2017
Posts: 72
Poder: 7
Noe277 Va por buen camino
Cita:
Empezado por rci Ver Mensaje
Muchas gracias Noe277, puede que yo tenga algunos conceptos mal entendidos


Si lo he entendido bien una intracomunitaria siempre es exenta, y si en una factura se aplica iva es que no es intracomunitaria, aunque el cliente no se nacional.


Si es así ya me cuadra para declarar facturas a TicketBAI ...


Gracias
Por ponerte un caso imagínate que el Frances compra un coche en la península pues en este caso lleva iVA porque es un particular
Responder Con Cita
  #1714  
Antiguo 01-10-2021
ermendalenda ermendalenda is offline
Miembro
 
Registrado: ago 2021
Posts: 868
Poder: 3
ermendalenda Va por buen camino
Curl Nifs

Ya tengo curl para comprobar todos los NIFS
Extranjeros y españoles.

Oe
oeeoeoe
Y metiendo el cif me devuleve el nombre y direccion
Tengo 2 comprobaciones españoles, y el extranjero(que tiene que estar dado de alta en el ROI)

Última edición por ermendalenda fecha: 01-10-2021 a las 10:39:05.
Responder Con Cita
  #1715  
Antiguo 01-10-2021
JoseLeeTo JoseLeeTo is offline
Miembro
 
Registrado: jun 2021
Posts: 65
Poder: 3
JoseLeeTo Va por buen camino
Cita:
Empezado por ermendalenda Ver Mensaje
Ya tengo curl para comprobar todos los NIFS
Extranjeros y españoles.

Oe
oeeoeoe
Y metiendo el cif me devuleve el nombre y direccion
Tengo 2 comprobaciones españoles, y el extranjero(que tiene que estar dado de alta en el ROI)
Enhorabuena!
¿Podrías compartir la llamada, datos, etc.. en el foro para que el que quiera pueda utilizarlo?

Saludos
Responder Con Cita
  #1716  
Antiguo 01-10-2021
JoseLeeTo JoseLeeTo is offline
Miembro
 
Registrado: jun 2021
Posts: 65
Poder: 3
JoseLeeTo Va por buen camino
Cita:
Empezado por sEngine Ver Mensaje
El de alava no funciona aun verdad? Me sale esto (entre otros avisos)


Código Delphi [-]
El servicio de recepción no está disponible. Repita la operación más tarde
Disculpa. Creía que te referías al servicio "como tal", que si estaba publicado o no.
Hoy está caído parece ser. Sí.
Tienes razón.
Responder Con Cita
  #1717  
Antiguo 01-10-2021
ermendalenda ermendalenda is offline
Miembro
 
Registrado: ago 2021
Posts: 868
Poder: 3
ermendalenda Va por buen camino
Cita:
Empezado por JoseLeeTo Ver Mensaje
Enhorabuena!
¿Podrías compartir la llamada, datos, etc.. en el foro para que el que quiera pueda utilizarlo?

Saludos

Sí, no te preocupes, estoy afinando, le voy a meter la tabla de paises para comprobar los nifs extranjero, etc, ya os explicare, voy a tardar un poco (no se si horas o algun dia), pero lo comparto cuando lo tenga.
Adelanto que parala comprobacion de nifs españoles hace falta el certificado(el mismo de TBAI) y para el de los extranjeros se puede hacer con o sin certificado(que no entiendo para que las 2 formas, si habra algun limite de consultas, no le encuentro sentido)
Responder Con Cita
  #1718  
Antiguo 01-10-2021
JoseLeeTo JoseLeeTo is offline
Miembro
 
Registrado: jun 2021
Posts: 65
Poder: 3
JoseLeeTo Va por buen camino
Cita:
Empezado por ermendalenda Ver Mensaje
Sí, no te preocupes, estoy afinando, le voy a meter la tabla de paises para comprobar los nifs extranjero, etc, ya os explicare, voy a tardar un poco (no se si horas o algun dia), pero lo comparto cuando lo tenga.
Adelanto que parala comprobacion de nifs españoles hace falta el certificado(el mismo de TBAI) y para el de los extranjeros se puede hacer con o sin certificado(que no entiendo para que las 2 formas, si habra algun limite de consultas, no le encuentro sentido)
Gracias!

Si es que aquí en este proyecto nada tiene sentido, ya sabes.
Responder Con Cita
  #1719  
Antiguo 01-10-2021
JoseLeeTo JoseLeeTo is offline
Miembro
 
Registrado: jun 2021
Posts: 65
Poder: 3
JoseLeeTo Va por buen camino
Hola de nuevo;

Estoy teniendo problemas al mandar a Bizkaia.
Me dice continuamente "Tiempo de respuesta agotado - Sin Respuesta"

Alava devuelve que tiene caído el servicio.
Guipzucoa aparentemente funciona bien.

¿Os está ocurriendo a vosotros también?

Muchas gracias.
Saludos.
Responder Con Cita
  #1720  
Antiguo 01-10-2021
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 141
Poder: 14
iMia Va por buen camino
Cita:
Empezado por JoseLeeTo Ver Mensaje
Hola de nuevo;

Estoy teniendo problemas al mandar a Bizkaia.
Me dice continuamente "Tiempo de respuesta agotado - Sin Respuesta"

Alava devuelve que tiene caído el servicio.
Guipzucoa aparentemente funciona bien.

¿Os está ocurriendo a vosotros también?

Muchas gracias.
Saludos.
Hoy chapaban el servicio de Bizkaia durante 15 dias...
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
SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice newtron Internet 3547 Hace 1 Semana 18:06:34
Como utilizar la ayuda del nuevo Sistema Operativo gluglu Humor 3 24-09-2007 09:39:05
Aplicacion Agencia De Viajes ArdiIIa Varios 9 20-01-2007 16:49:53
El Vasco Aguirre Al González La Taberna 5 26-05-2006 09:22:28
Microsoft ha lanzado su nuevo sistema operativo DarkByte Humor 0 25-01-2004 09:21:14


La franja horaria es GMT +2. Ahora son las 14:11:49.


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