Hello,

I need to insert a new TAG on my XML file in this place:

-<cac:AccountingCustomerParty>


-<cac:Party>
            <cbc:EndpointID schemeID="EMAIL">faturas@roviscopais.min-saude.pt</cbc:EndpointID>  &&my new TAG in this place

-<cac:PartyName>

<cbc:Name>CENTRO HOSPITALAR V. N. GAIA/ESPINHO, EPE</cbc:Name>

</cac:PartyName>


-<cac:PostalAddress>

<cbc:StreetName>UNIDADE 1 - HOSP. EDUARDO S. SILVA</cbc:StreetName>

<cbc:CityName>RUA CONCEIÇÃO FERNANDES</cbc:CityName>

<cbc:PostalZone>4434-502 VILA NOVA DE GAIA</cbc:PostalZone>


-<cac:Country>

<cbc:IdentificationCode>PT</cbc:IdentificationCode>

</cac:Country>

</cac:PostalAddress>


-<cac:PartyTaxScheme>

<cbc:CompanyID>PT508142156</cbc:CompanyID>


-<cac:TaxScheme>

<cbc:ID>VAT</cbc:ID>

</cac:TaxScheme>

</cac:PartyTaxScheme>


-<cac:PartyLegalEntity>

<cbc:RegistrationName>CENTRO HOSPITALAR V. N. GAIA/ESPINHO, EPE</cbc:RegistrationName>

</cac:PartyLegalEntity>


-<cac:Contact>

<cbc:Name>CENTRO HOSPITALAR V. N. GAIA/ESPINHO, EPE</cbc:Name>

<cbc:Telephone>222 461074 - 22 7865100/ 22 7865155 sie</cbc:Telephone>

<cbc:ElectronicMail>sgpf@chvng.min-saude.pt</cbc:ElectronicMail>

</cac:Contact>

</cac:Party>

</cac:AccountingCustomerParty>

Then i build this code:

Select FT

If Upper(Alltrim(FT.TIPO)) = 'SAÚDE PÚBLICA' And Inlist(FT2.TIPOSAFT, 'NC')

	loObj = UBLEspap.getObjXml

	For i=0 To loObj.NumChildren - 1

		*Procura a tag cbc:InvoiceTypeCode
		If Alltrim(loObj.GetChildTagByIndex(i)) == "cac:AccountingCustomerParty"

			If Alltrim(loObj.GetChildTagByIndex(i)) == "cac:Party"
				loChild1 = loObj.newchildAfter(i,'cbc:EndpointID schemeID="EMAIL"',Alltrim(FT2.EMAIL))
			Endif

			Exit
		Endif
	Endfor

	UBLEspap.saveObjXml = loObj

Endif

But they don´t work!

Could someone give me Help!!

Thanks
Luis