Zdrastvuite!

Mozet kto znaet.
Kak pri formiravanie XML dokumenta
palucit UpperCase bukvi v nazvanie poljah.

S menja trebuet:
- <DirectDebit>
<From>HABA</From>
<To>HLIZ</To>
<Timestamp>20040519180102023</Timestamp>
<SequenceNo>14</SequenceNo>
<Extension />

, a palucit magu:

- <DirectDebit>
<from>UDEK</from>
<to>HABA</to>
<timestamp>20040519180102020</timestamp>
<sequenceno>2</sequenceno>
<extension />

Zabil dabavit:

Close Databases All
Local oXMLAdapter As Xmladapter
oXMLAdapter = Newobject('XMLAdapter')
oXMLAdapter.Unicode= .F.
oXMLAdapter.UTF8Encoded= .T.
oXMLAdapter.RespectCursorCP= .F.
oXMLAdapter.NoCPTrans=.F.
oXMLAdapter.XMLSchemaLocation=''
oXMLAdapter.XMLName = Strconv("FIDAVISTA",12)

Select d.From,d.To,Timestamp,SequenceNo,Extension From xml_banka!directdebit1 d Into Cursor DirectDebit
_FileName='BDDR'+Left(DirectDebit.To,4)+Transform(SequenceNo,"@L 999")+'.xml'
oXMLAdapter.AddTableSchema('DirectDebit')
oXMLTable1 = oXMLAdapter.Tables.Item(1)

Select contractno,payref1,payref2,details,ccy,Round(amountrequested,2) amountrequested,Extension;
FROM xml_banka!debitrequest1 Into Cursor debitrequest
oXMLAdapter.AddTableSchema('DebitRequest')
oXMLTable2 = oXMLAdapter.Tables.Item(2)

oXMLFields1 = oXMLTable1.Fields.Item(1)
* nepomagaet*
oXMLFields1.Name = "From"
oXMLFields1.Alias = "From"

**oXMLFields1.XMLName= "From" %% a tak nelzja

oXMLAdapter.ToXML("MyRequest.xml",'', .T.,.T.)