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-2017
parrux parrux is offline
Registrado
NULL
 
Registrado: jun 2017
Posts: 2
Poder: 0
parrux Va por buen camino
notitificar factura española

Buenos días y gracias de antemano,
tengo una duda (porque algo estoy haciendo mal seguro) me dan error todos los CIF de las empresas, a ver si podéis echarme un cable:

Código:
//Contraparte
            FacturasEmitidas.PersonaFisicaJuridicaType contraparte = new FacturasEmitidas.PersonaFisicaJuridicaType();
            contraparte.NombreRazon = Factura.Contrap_RazonSocial;                                                                                  //Razón Social
            if (Factura.Contrap_NIFRepresentante != "")
                contraparte.NIFRepresentante = Factura.Contrap_NIFRepresentante;                                                                    //NIF Representante
          
            FacturasEmitidas.IDOtroType IdOtroContrap = new FacturasEmitidas.IDOtroType();                                                          //IdOtro
            if (Factura.Contrap_IdPais != null)
            {
                IdOtroContrap.CodigoPais = p.FacturasEmiConvertirPaises(Factura.Contrap_IdPais);                                                    //País
                IdOtroContrap.CodigoPaisSpecified = true;
            }
            IdOtroContrap.IDType = dp.FacturasEmiConvertirDocPaises(Factura.Contrap_IdType);                                                        //Doc País
            IdOtroContrap.ID = Factura.Contrap_Id;                                                                                                  //Id

            contraparte.Item = IdOtroContrap;
            
            f.FacturaExpedida.Contraparte = new FacturasEmitidas.PersonaFisicaJuridicaType();
            f.FacturaExpedida.Contraparte = contraparte;

            f.FacturaExpedida.TipoDesglose = new FacturasEmitidas.FacturaExpedidaTypeTipoDesglose();
No consigo o no se como especificar el NIF de una empresa española sin tener que recurrir al objeto IdOtro
Responder Con Cita
  #2  
Antiguo 23-06-2017
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
Cita:
Empezado por parrux Ver Mensaje
Buenos días y gracias de antemano,
tengo una duda (porque algo estoy haciendo mal seguro) me dan error todos los CIF de las empresas, a ver si podéis echarme un cable:

Código:
//Contraparte
            FacturasEmitidas.PersonaFisicaJuridicaType contraparte = new FacturasEmitidas.PersonaFisicaJuridicaType();
            contraparte.NombreRazon = Factura.Contrap_RazonSocial;                                                                                  //Razón Social
            if (Factura.Contrap_NIFRepresentante != "")
                contraparte.NIFRepresentante = Factura.Contrap_NIFRepresentante;                                                                    //NIF Representante
          
            FacturasEmitidas.IDOtroType IdOtroContrap = new FacturasEmitidas.IDOtroType();                                                          //IdOtro
            if (Factura.Contrap_IdPais != null)
            {
                IdOtroContrap.CodigoPais = p.FacturasEmiConvertirPaises(Factura.Contrap_IdPais);                                                    //País
                IdOtroContrap.CodigoPaisSpecified = true;
            }
            IdOtroContrap.IDType = dp.FacturasEmiConvertirDocPaises(Factura.Contrap_IdType);                                                        //Doc País
            IdOtroContrap.ID = Factura.Contrap_Id;                                                                                                  //Id

            contraparte.Item = IdOtroContrap;
            
            f.FacturaExpedida.Contraparte = new FacturasEmitidas.PersonaFisicaJuridicaType();
            f.FacturaExpedida.Contraparte = contraparte;

            f.FacturaExpedida.TipoDesglose = new FacturasEmitidas.FacturaExpedidaTypeTipoDesglose();
No consigo o no se como especificar el NIF de una empresa española sin tener que recurrir al objeto IdOtro
Id_Otro se debe de utilizar solo en caso de que no sea un CIF español, o sea que es excluyente
Responder Con Cita
  #3  
Antiguo 23-06-2017
parrux parrux is offline
Registrado
NULL
 
Registrado: jun 2017
Posts: 2
Poder: 0
parrux Va por buen camino
Cita:
Empezado por dimony Ver Mensaje
Id_Otro se debe de utilizar solo en caso de que no sea un CIF español, o sea que es excluyente
Gracias por tu respuesta!
Y si es Español directamente paso el CIF, me explico, las unicas propiedades que me da FacturaExpedida.Contraparte son:

.NombreRazon
.NIFRepresentante
.Item

si no meto un objeto IdOtro y meto directamente un String "V12346578" por defecto pone la eqtiqueta NIF?? o como va???

Muchas gracias de nuevo!
Responder Con Cita
  #4  
Antiguo 23-06-2017
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
Cita:
Empezado por parrux Ver Mensaje
Gracias por tu respuesta!
Y si es Español directamente paso el CIF, me explico, las unicas propiedades que me da FacturaExpedida.Contraparte son:

.NombreRazon
.NIFRepresentante
.Item

si no meto un objeto IdOtro y meto directamente un String "V12346578" por defecto pone la eqtiqueta NIF?? o como va???

Muchas gracias de nuevo!
Aquí va parte de mi código, espero que te ayude.
Código Delphi [-]
if data.LibrosRegistros.FieldByName('clave_tipo_factura').AsString <> 'F2' then
      begin
      v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte := SuministroFactEmitidas.PersonaFisicaJuridicaType.Create;
      v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.NombreRazon := data.LibrosRegistros.FieldByName('des_cuenta').AsString;
      v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.NIFRepresentante := '';

      if data.LibrosRegistros.FieldByName('codigo_pais_contraparte').AsString = 'ES' then
        v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.NIF := data.LibrosRegistros.FieldByName('cif').AsString
      else
        begin
        for v_dummy := 0 to Length(main.v_paises) do
          begin
          if main.v_paises[v_dummy] = data.LibrosRegistros.FieldByName('codigo_pais_contraparte').AsString then
            break;
          end;

        v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.IDotro := SuministroFactEmitidas.IDOtroType.Create;
        v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.IDotro.CodigoPais := SuministroFactEmitidas.CountryType2(v_dummy);

        if data.LibrosRegistros.FieldByName('clave_identificacion_fiscal').AsString = '02' then
          v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.IDotro.IDType := SuministroFactEmitidas.PersonaFisicaJuridicaIDTypeType(0)
        else if data.LibrosRegistros.FieldByName('clave_identificacion_fiscal').AsString = '03' then
          v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.IDotro.IDType := SuministroFactEmitidas.PersonaFisicaJuridicaIDTypeType(1)
        else if data.LibrosRegistros.FieldByName('clave_identificacion_fiscal').AsString = '04' then
          v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.IDotro.IDType := SuministroFactEmitidas.PersonaFisicaJuridicaIDTypeType(2)
        else if data.LibrosRegistros.FieldByName('clave_identificacion_fiscal').AsString = '05' then
          v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.IDotro.IDType := SuministroFactEmitidas.PersonaFisicaJuridicaIDTypeType(3)
        else if data.LibrosRegistros.FieldByName('clave_identificacion_fiscal').AsString = '06' then
          v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.IDotro.IDType := SuministroFactEmitidas.PersonaFisicaJuridicaIDTypeType(4);

        v_RegistroLRFacturasEmitidas[v_registros_facturas - 1].FacturaExpedida.Contraparte.IDotro.id := data.LibrosRegistros.FieldByName('numero_identificacion_pais').AsString;
        end;
      end;
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 4170 Hace 2 Semanas 17:29:05
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 06:32:45.


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