Cita:
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
[-] 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';
XMLAdministrativeCentres := XMLBuyerParty.AddChild('AdministrativeCentres');
XMLAdministrativeCentre := XMLAdministrativeCentres.AddChild('AdministrativeCentre');
XMLText := XMLAdministrativeCentre.AddChild('CentreCode');
XMLText.Text := BuyerParty.CentreCode;
XMLText := XMLAdministrativeCentre.AddChild('RoleTypeCode');
XMLText.Text := BuyerParty.RoleTypeCode; XMLText := XMLAdministrativeCentre.AddChild('Name');
XMLText.Text := BuyerParty.Name;
XMLAddressInSpain := XMLAdministrativeCentre.AddChild('AddressInSpain');
XMLText := XMLAddressInSpain.AddChild('Address');
XMLText.Text := BuyerParty.AdministrativeCentreAddressInSpain.Address; XMLText := XMLAddressInSpain.AddChild('PostCode');
XMLText.Text := BuyerParty.AdministrativeCentreAddressInSpain.PostCode; XMLText := XMLAddressInSpain.AddChild('Town');
XMLText.Text := BuyerParty.AdministrativeCentreAddressInSpain.Town; XMLText := XMLAddressInSpain.AddChild('Province');
XMLText.Text := BuyerParty.AdministrativeCentreAddressInSpain.Province; XMLText := XMLAddressInSpain.AddChild('CountryCode');
XMLText.Text := 'ESP';
XMLLegalEntity := XMLBuyerParty.AddChild('LegalEntity');
XMLText := XMLLegalEntity.AddChild('CorporateName');
XMLText.Text := BuyerParty.CorporateName;
XMLAddressInSpain := XMLLegalEntity.AddChild('AddressInSpain');
XMLText := XMLAddressInSpain.AddChild('Address');
XMLText.Text := BuyerParty.LegalEntityAddressInSpain.Address; XMLText := XMLAddressInSpain.AddChild('PostCode');
XMLText.Text := BuyerParty.LegalEntityAddressInSpain.PostCode; XMLText := XMLAddressInSpain.AddChild('Town');
XMLText.Text := BuyerParty.LegalEntityAddressInSpain.Town; XMLText := XMLAddressInSpain.AddChild('Province');
XMLText.Text := BuyerParty.LegalEntityAddressInSpain.Province; XMLText := XMLAddressInSpain.AddChild('CountryCode');
XMLText.Text := 'ESP';
Un saludo