[olbeup]

Empezado por newtron

Hola de nuevo.

Aquí está la pantalla con los datos que me pide

http://subefotos.com/ver/?c31c158768...2bf6f3dd0o.jpg

No deja escribir directamente. Me he dado de alta como proveedor y he puesto los datos en la configuración y cuando pulso el lápiz para consultar los posibles valores se me queda pillado en una pantalla que pone.."consultando a FACe".

Saludos

Hola newtron,

Me a ver con esto si vez un poco de luz.

Código Delphi [-]
    // Receptor 2.2. 
    // -----------------------------
    // Identificación Fiscal
    XMLBuyerParty := XMLParties.AddChild('BuyerParty');
      XMLTaxIdentification := XMLBuyerParty.AddChild('TaxIdentification');
        XMLText := XMLTaxIdentification.AddChild('PersonTypeCode');
          XMLText.Text := 'J';
        XMLText := XMLTaxIdentification.AddChild('ResidenceTypeCode');
          XMLText.Text := 'R';
        XMLText := XMLTaxIdentification.AddChild('TaxIdentificationNumber');
          XMLText.Text := BuyerParty.TaxIdentificationNumber; --> 'ESXXXXXXXXX';

      // Centros Administrativo
      XMLAdministrativeCentres := XMLBuyerParty.AddChild('AdministrativeCentres');
        // Centro Administrativo
        XMLAdministrativeCentre := XMLAdministrativeCentres.AddChild('AdministrativeCentre');
        // Código del centro
        XMLText := XMLAdministrativeCentre.AddChild('CentreCode');
          XMLText.Text := BuyerParty.CentreCode; // 'G0902XXXXX';

        // Receptor de factura, receptor de mercancía
          // 02 = Receptor de Factura
          // 04 = Receptor de Mercancía
        XMLText := XMLAdministrativeCentre.AddChild('RoleTypeCode');
          XMLText.Text := BuyerParty.RoleTypeCode; // '02';
        // Nombre al que se le presta el servicio
        XMLText := XMLAdministrativeCentre.AddChild('Name');
          XMLText.Text := BuyerParty.Name; // 'Servicio de Bienestar Social e Integraci';

        // Datos Personales
        XMLAddressInSpain := XMLAdministrativeCentre.AddChild('AddressInSpain');
          XMLText := XMLAddressInSpain.AddChild('Address');
            XMLText.Text := BuyerParty.AdministrativeCentreAddressInSpain.Address; // 'AVDA. CAMPANAR, 32';
          XMLText := XMLAddressInSpain.AddChild('PostCode');
            XMLText.Text := BuyerParty.AdministrativeCentreAddressInSpain.PostCode; // '46015';
          XMLText := XMLAddressInSpain.AddChild('Town');
            XMLText.Text := BuyerParty.AdministrativeCentreAddressInSpain.Town; // 'Valencia';
          XMLText := XMLAddressInSpain.AddChild('Province');
            XMLText.Text := BuyerParty.AdministrativeCentreAddressInSpain.Province; // 'VALENCIA';
          XMLText := XMLAddressInSpain.AddChild('CountryCode');
            XMLText.Text := 'ESP';

      // Referencia, Centros
      XMLLegalEntity := XMLBuyerParty.AddChild('LegalEntity');
        XMLText := XMLLegalEntity.AddChild('CorporateName');
          XMLText.Text := BuyerParty.CorporateName; // 'GENERALITAT VALENCIANA';

        // Datos Personales
        XMLAddressInSpain := XMLLegalEntity.AddChild('AddressInSpain');
          XMLText := XMLAddressInSpain.AddChild('Address');
            XMLText.Text := BuyerParty.LegalEntityAddressInSpain.Address; // 'CL. CABALLEROS, 2';
          XMLText := XMLAddressInSpain.AddChild('PostCode');
            XMLText.Text := BuyerParty.LegalEntityAddressInSpain.PostCode; // '46001';
          XMLText := XMLAddressInSpain.AddChild('Town');
            XMLText.Text := BuyerParty.LegalEntityAddressInSpain.Town; // 'VALENCIA';
          XMLText := XMLAddressInSpain.AddChild('Province');
            XMLText.Text := BuyerParty.LegalEntityAddressInSpain.Province; // 'VALENCIA';
          XMLText := XMLAddressInSpain.AddChild('CountryCode');
            XMLText.Text := 'ESP';

Un saludo