Xailer & OZ Software

He hecho esto y me canta error al hacer un listado : ERROR BASE 1005 Message
not found : tReport:_aFonts, seguramente estare haciendo algo mal.
El codigo de lo que hago es este :
aFont[1] := TFont():New()
aFont[2] := TFont():New()
WITH OBJECT aFont[1]
:cName := "Arial"
:nSize := 12
:lBold := .T.
END WITH
WITH OBJECT aFont[2]
:cName := "Arial"
:nSize := 10
END WITH
REPORT oReport TITLE Trad_Id( "Fecha", NIDIOMA ) + " : " + Dtoc( Date() )
, ;
Trad_id( "Empresa", NIDIOMA ) + " : " + Alltrim(
cEmp ) ALIGN taLEFT ;
HEADER aHeader[1], ;
" " ALIGN taCENTER ;
FOOTER Trad_id( "Página", NIDIOMA ) + " : " + lTrim( Str(
oReport:nPage, 3 ) ) ALIGN taCENTER ;
FONT aFont[1], aFont[2] ;
JOBNAME Upper( Trad_id( "Contactos", NIDIOMA ) )
GROUP oGroup ON SubStr( ( ::cAliasTEMP )->apellidos, 1, 1 ) OF oReport ;
HEADER aTextGroup[ SubStr( ( ::cAliasTEMP )->apellidos, 1, 1 ) ]
COLUMN TITLE Trad_id( "Apellidos", NIDIOMA ),;
Trad_id( "Nombre", NIDIOMA ) ;
DATA ( ::cAliasTEMP )->apellidos, ;
( ::cAliasTEMP )->nombre ;
PICTURE "@!X" ;
OF oReport
oReport:oHeader:aFont[1] := { || 1 }
FOR n := 1 TO 1
oReport:oHeader:aFont[n] := { || 2 }
NEXT
FOR n := 1 TO 3
oReport:oTitle:aFont[n] := { || 2 }
NEXT
oReport:nTitleUpLine := rlSINGLE
oReport:nTitleDnLine := rlSINGLE
oReport:lPreview := lPreview
RUN REPORT oReport WHILE !( ::cAliasTEMP )->( Eof() )
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

Francisco,
De la documentación:
//---------------------------------------------------------- ----------------
CLASS TReport
PUBLISHED:
PROPERTY oParent // Parent object
PROPERTY oDevice INIT Printer // Printer object
PROPERTY oTitle // TRptLine object for title
PROPERTY oHeader // TRptLine object for header
PROPERTY oFooter // TRptLine object for footer
PROPERTY oPen // Pen object for lines
PROPERTY aGroups INIT {} // Array of TRptGroup objects
PROPERTY aColumns INIT {} // Array of TRptColumn objects
PROPERTY aFont INIT {} // Array of TFont objects
Como puesdes ver es aFont y no aFonts. No obstante estoy pensando en que posiblemente sea más apropiado aFonts. ¿Qué opinas?
Saludos
"Francisco Sanchez" <francisco@softwaretotal.biz> escribió en el mensaje news:4226366d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> He hecho esto y me canta error al hacer un listado : ERROR BASE 1005 Message
> not found : tReport:_aFonts, seguramente estare haciendo algo mal.
> El codigo de lo que hago es este :
>
>
> aFont[1] := TFont():New()
> aFont[2] := TFont():New()
> WITH OBJECT aFont[1]
> :cName := "Arial"
> :nSize := 12
> :lBold := .T.
> END WITH
>
> WITH OBJECT aFont[2]
> :cName := "Arial"
> :nSize := 10
> END WITH
>
> REPORT oReport TITLE Trad_Id( "Fecha", NIDIOMA ) + " : " + Dtoc( Date() )
> , ;
> Trad_id( "Empresa", NIDIOMA ) + " : " + Alltrim(
> cEmp ) ALIGN taLEFT ;
> HEADER aHeader[1], ;
> " " ALIGN taCENTER ;
> FOOTER Trad_id( "Página", NIDIOMA ) + " : " + lTrim( Str(
> oReport:nPage, 3 ) ) ALIGN taCENTER ;
> FONT aFont[1], aFont[2] ;
> JOBNAME Upper( Trad_id( "Contactos", NIDIOMA ) )
>
> GROUP oGroup ON SubStr( ( ::cAliasTEMP )->apellidos, 1, 1 ) OF oReport ;
> HEADER aTextGroup[ SubStr( ( ::cAliasTEMP )->apellidos, 1, 1 ) ]
>
> COLUMN TITLE Trad_id( "Apellidos", NIDIOMA ),;
> Trad_id( "Nombre", NIDIOMA ) ;
> DATA ( ::cAliasTEMP )->apellidos, ;
> ( ::cAliasTEMP )->nombre ;
> PICTURE "@!X" ;
> OF oReport
>
> oReport:oHeader:aFont[1] := { || 1 }
> FOR n := 1 TO 1
> oReport:oHeader:aFont[n] := { || 2 }
> NEXT
> FOR n := 1 TO 3
> oReport:oTitle:aFont[n] := { || 2 }
> NEXT
>
> oReport:nTitleUpLine := rlSINGLE
> oReport:nTitleDnLine := rlSINGLE
>
> oReport:lPreview := lPreview
>
> RUN REPORT oReport WHILE !( ::cAliasTEMP )->( Eof() )
>
> Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
>
>
--

HOMBRE por compatibilidad quizas con la clase de fw quizas afonts sea mas apropiado, ademas es que lo logico seria afonts pues afont induce al error de la unidad es decir en pensar en un solo font. No obstante yo me amoldare a lo que decidas al final, pero afonts quizas es mas apropiado por ser un termino plural es mas claro.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
--

Ups vaya esta tarde estoy algo espeso, tu contestacion me hizo equivocarme, vamos a ver en fw tambien es afont, de echo en el ejemplo que te he pasado hago solo referencia a aFont no a aFonts, yo he declarado un array de 2 elementos para contener las fonts de mi listado. Este array lo he llamado aFont pero si esto es problema le cambio el nombre y ya esta. Y mas abajo donde asigno al oheader y demas el font a utilizar hago referencia a aFont, no a aFonts, pero de todas formas sigo pensando que aFonts seria mas apropiado.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
--

This is a multi-part message in MIME format.
------=_NextPart_000_0053_01C520A3.C77D8FA0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0054_01C520A3.C77D8FA0"
------=_NextPart_001_0054_01C520A3.C77D8FA0
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Joaquin,=20
He modificado la propiedad a aFonts tanto en TReport como en TRptLine. =
Te mando el nuevo archivo. Espero que ahora te funcione.=20
Un saludo,=20
"Francisco Sanchez" <francisco@softwaretotal.biz> escribi=F3 en el =
mensaje news:4227350a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Ups vaya esta tarde estoy algo espeso, tu contestacion me hizo =
equivocarme, vamos a ver en fw tambien es afont, de echo en el ejemplo =
que te he pasado hago solo referencia a aFont no a aFonts, yo he =
declarado un array de 2 elementos para contener las fonts de mi listado. =
Este array lo he llamado aFont pero si esto es problema le cambio el =
nombre y ya esta. Y mas abajo donde asigno al oheader y demas el font a =
utilizar hago referencia a aFont, no a aFonts, pero de todas formas sigo =
pensando que aFonts seria mas apropiado.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
------=_NextPart_001_0054_01C520A3.C77D8FA0
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2604" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3D"Courier New" size=3D2>Joaquin, </FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT>Â</DIV>
<DIV><FONT face=3D"Courier New" size=3D2>He modificado la propiedad a =
aFonts tanto=20
en TReport como en TRptLine. Te mando el nuevo archivo. Espero que ahora =
te=20
funcione. </FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT>Â</DIV>
<DIV><FONT face=3D"Courier New" size=3D2>Un saludo, </FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Francisco Sanchez" <<A=20
=
href=3D"mailto:francisco@softwaretotal.biz">francisco@softwaretotal.biz</=
A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:4227350a$1@ozsrv2.ozlan.local">news:4227350a$[email=1@ozsrv2.ozlan.]1@ozsrv2.ozlan.[/email]=
local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Ups vaya esta tarde estoy algo =
espeso, tu=20
contestacion me hizo equivocarme, vamos a ver en fw tambien es afont, =
de echo=20
en el ejemplo que te he pasado hago solo referencia a aFont no a =
aFonts, yo he=20
declarado un array de 2 elementos para contener las fonts de mi =
listado. Este=20
array lo he llamado aFont pero si esto es problema le cambio el nombre =
y ya=20
esta. Y mas abajo donde asigno al oheader y demas el font a utilizar =
hago=20
referencia a aFont, no a aFonts, pero de todas formas sigo pensando =
que aFonts=20
seria mas apropiado.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Atentamente : Francisco Sanchez =
GERENTE GRUPO ST=20
- Software TOTAL -</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2></FONT>Â</DIV></BLOCKQUOTE></BODY></HTML >
------=_NextPart_001_0054_01C520A3.C77D8FA0--
------=_NextPart_000_0053_01C520A3.C77D8FA0
Content-Type: application/octet-stream;
name="Report.rar"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Report.rar"
UmFyIRoHAM+QcwAADQAAAAAAAAADbnQgkC8ApigAAMxzAAAC+FLPWxpSZDId MwoAIAAAAFJlcG9y
dC5vYmoAsA+KISQBkVUMjNEAFh57fqru16AkizyYDG2MfRscfhH4FpK0XY0W raVgJETltBaYkFiS
iEOCWQI5uN2/CeJJkxtzwex5mPMMkxzZM3JmSTMyRqbkm4ZsmSKTZu4ZmSbD NwBDccjGxAIBsW7y
upISu0q54d8UkNvYG/naFfec5Vcrlcrlcqq54I7/ydfwT/fffVz6qrnj3qDq X5//fYfAgz+hcAAo
gjpeAzSDAdhOkF4S7Nun1IK2sonQLrnC2SKYnH7uADxKRKi3dxvLrbWllcbX cWVdaXNxdXeq3qXk
ZD4xQVGPJVnbydFU9h2Gi7XVYzq8UQCcjNqlnq6T2eR3Yk9PyuBvk9NU9zZW EODXVFbsa5eRbW+2
lbyTMva7XHNtMnazH6oDPSt/2WnD1u7qzm3lqHZAW8n86fWh67u0u95c6rbD UdCRLRd7qM6Soqan
te1WFZEq23RSno0CNMG4iGTPu1To5s1HVqex7XUOgJotQ667OZgqbq03Wq9w Ne42xJgLOVaKkUtj
Kcd3d3QemIcdbf3ATtLO621qElsnNSPJlW21D0kW/hWxzx0WK6XE5W1x7eJT Rt5KlKeuN+EbDLSY
jp81Q1JEV9xQ7JyulI7FGPfuK6itsKLrY1V7kpX4e6ud4ZG2eAlyf5vmKbFO Ly+3ScSI8Kwjt6mt
qoQy6qDHgty/Tmq11dNXjN5FRX17Yf1zIiRYkeQ7L9lDpea6S+l37do1SNJt ZDdwGMQOnakRHKTy
cAfO6U5w22HMP8btGs9Ih1Eir2MWRYQamsgzVEqJWgxhQV8iNlGQdglQMqSb hXx0p1WijZM/Scf0
ISPiCaqzS3oTCratJ8rMgwaqqYTcqSsSfqVNc2kJer1kKKSPGxDQMLGiV8XY 1jCuR6utix2BLhbK
DWBbYQbBeZEix2VXrsqOeWnVGxjx5pKU4sYsde1o5sA6itsF0AR6yDUQqxhP iTatdCSfr16uibBg
Qa6DFrzWjnQmNNTqYVfX7Af0azXrkqqqK/vokYkLYRo9iSuhRqyJUwY82yjy yFsQTc6lggqriMUU
Qa7JDmjT6xo1teJxRdcJFtdrI8PdRrq421pu93X3m62txK3ZDUsLe2m23l3a JJcDOY20XRaJiZRk
eAllwFgGNYCpgNCvUcoSprazJji0YrVcClEHQBkZMPwhyGcDOiCnwyyrYsL8 zXLlCwCtS1y9VsAf
q5iyrAJ+YB89Ju06TuHFrtJHSrXsBl2qSRXgOKf3fvT/93A4G4PQ2v1qFamf AVqfrqIOn1dES/Dr
YaQOneacnww63xND1odN+HXediHTjh11+qDpzg6+wmHSy1ZP9A6+L2YdP0do T1dYTh9qT8XbE2Hb
k1/dE3Idfj92HTze8J5nekjwSayoJ9UOvQqg6QIROzqyfY1xPvwyaCIT54dd FFDpBDr9wiXne004
raO14r/G/Qodlo+LoRl6UnXbLScXtid0SCStJHJYk25JRPgE+GTxSeSTzCfQ J/AT6pPrk+0T+8n4
SfkJ+knFJ6ZOaT2VB/G0UHGnicajA0xOtJqSasnekqiRCbMlkSzJcEuyXhPH J8YnyifRJ6BPpE+w
T+0n3SfjJ+Yn+ZMAnqk9cmGA47dQfyPFBx86BgE0ZOyJrCdwTXErCd+SQSSS 2J8EnwifEJ8knzCf
NJwSeiT+cnpE+8T/An+RPzk/2J6xMEnOAYDomA+UHBoFDoSCn/gkwCYBOCTA JgE4JMAmATgkwCYB
OCTAJgE4JMAmATgkwCYBOCTAJgE4JMAiXn2KTT2W3exs3Ue23f5vT9vXE0Ne F0vO7FLipYg9BwTi
0ROLS4pz5OwImTtSVJIZNgAyS27cXV9UJDcEK9bF0ilWDP+6kv8jKFoF7ANZ OWH8QYbQ/hJoeT0n
DxEvVMNHllSwGILDXl8Zql1H85F/wr8BfXx/9fcLhX3ESU+vopdFU1USI6WJ 9MPDSDZpxvsp8isx
MpXI5H3ktLf8hPBSU/Q5PDv+HxL/hY2X84gob4mKr/peJ9UvpqoaWRBWO0uo /nRS9WjxHyKXEiCz
EL7WqyMPNQy4jfa04roGSsppGB7ShbBl7RZ/tYoaNkup/no5Qh0MdFmh+M3S xfpy5xkp3688l+D2
ubzeZzuXzvY5nM5+M9DldL53P5fJ5o0nLx1z+by8LIvC5nN5/O5vOwefg8vm Y1ysH18IZvM6EwOD
jOD8iAyQwX6wEupPh8vIq08O+xCKs19rfPSU/q6JmQ4seuc7ZIfyuuhhc3Kr wsInO5/OxrC5/L5e
Dysfj+cv2ebyuZ7GCKJcH2eZkMItg9DBmD5Xs9DoCL4omNwfYwtWyQ4YtfJS U5MrV9uBfb33D4fC
4ZUPlQyb5yUg+no/tStH7/O5nO5OVvg4Xs8oVCfXysehzehz/Z5mF6+Dg/s5 OD0OXzMdc/C6HO5X
q+r6n6/WyB/V6nqenzRVJ5fNmGddNbf/KSDyw/cgf9m+v77h8JS2N8LkJKfT 9P+PRa9FqyQ+p9uj
iHApiuzcNaibJM3lJQTRLDYUv1EkvdaDMPMT/tb7iX/D4d/f8MuVIuVThmbf 9Tu3P9fyZdTno7JJ
T7frov1UiXp50LdNfqfm5HIv8ah3aSnnR8jRLIUWzC9TQFHt3z9zV5dCyj6o v+eW9DLk0GtSvkta
V1UPhLLO4VKzNCpP6GSGPbm33RxMe4I66OHyjsmjQEJpV/1NmFU9CoW9psZu AfJorEqQb7Wnv1fa
1HhSr7W9OQ3fa1Xz+jNH/KXUny/4hYmFCGcRaLqV236KSm9VPpB7d6VTZI6H /SSgmm4o1vpM4RL0
keWVKupmyys9UUODEyHbeIdwX/VF24l1bhROill/jT5PJ9bk+vz+dy8Hn8/C wufzRf+cz2PWwuZ6
3qep+rljNGFNwksX48MCVt8aN+PlaxT1Sf8qsp+i16ru3MtQ9NTedTNm72zU Vz+Zbf+VlhLq389E
z/Ip9ZZnZ1QQ5zJwMexOqYapdR/F4UrFnqZ23xDwnJoCEscTjHU2YVT06LTD Km/pPP6LPT+luTqf
zJB//AzDb/qZlDhX46wvhYmV+l1aZRGV792q0fh1gR9fkST6vTxfheL5HI8/ keLiV+fW0t/4PI3v
IvuRjH58WczG/MHbfR6gU+5N+oRbc8JZECfUrtz6aTXLGlDfY96oMomiL68e n42eSVdvFeIK7A3B
M78g9MhOjmmWB1w812q5kzUwuHf8TGuFxDtv+EbK0oOH1Uf8stE71M7c/Xh0 KXqZwMtvhexg8vlj
9YI6e8ZPP5OFy/Y9fl8rlcv1/2ep+r1P2c3C53M5Y7Bdg4WEIDl8zlczGObk Zzedyh1mXOwebaQM
y2/wEsX+rMoWUx1Tf84L5LlP/cnbmJ+bMsovjhKqpfuh3Uxpr7dHhOTQEJpN 9w8JL//Pwsb+06Dd
LoOD6tRWN+Mhwd3h/bvjLZPuqbtzki294i27u4q6l1gn4/0JZj5/+EBRzPfs 98TcSGc96GtETSE7
Indk74DSk7pC3L9rh3fXtN+1aJbfGpLuB3SfSpTWS+S3DuObpBOPm0nHlgDf NLlrXTBJtyj9ylET
cHkeZTNZTmSrNmFjNJToSLeT0CjTdlpJGQDwDM7EmJx3bumFsNQOfiP17ZsC FqNdMBMPjfjUySb0
o7ii4jWd1aW5JMmQ1mql+XM5EltFg1VaeHbba0S2szrIQag3VxHtruVaZavN gqHaWcm0usXVuFVd
xcXYbuAwl53pm4Vriu47Tiz5Ol6IDqCKHi9uodaSMP74JLkniE8jZaDi8BQ+ bstDxfPJ9ZQ3xL8n
EJyQHGSAz5BKfGJxicYnGJxicYnGJxrUZ4lfjb0fPiE8gglvjeaoVDxicb7O y0XGvlCJf4xOMTjk
45OPiHj4p4+txSJT45OPcqHxCcAnnk/lUB+IWo9w4uI1pb5ZBzlVFtnrrq43 lzu0hVvZCDoG8s6m
4lbzdW+ZEXYN1Z1dxb3eZDzgNxtQF0ltG+9csgz1WvbXZ2tsONm0eSn4qnVT MVfA3O1r9zbXOWuJ
OqnHttfcbWLZ7qaJuJ2wsxJl1okLQsh6eBvdtGs9vaR7i7s5WPGjMTnwb7ba 66s7eTm4pQg39uZa
fY3NZbW83uybYk5Sd1Ki1sWEleNym7jyviRddWY+vQdVW7GoAzIDPbtkilKi DSqtw/Qo1b3KAtxe
pyhSBRlM1IveoCfnAvbSa+7vBUFvFL7cLPcebKFXR4lTBrDlF/kBDra6JtJg Y40Vk1LRjUaitjw0
WG3CKVggS52FnMDk6YgZqi04NzblUWSvWQSADeZR+83W6mfvEnjIPnwqNdCz UtPgqa6BW31Asrnv
WQjoQc5Kg7y7uKwVdMsIaNU36kT+uMtkC6wraGXpU50olJvMiskm3qbjeW5W gDfIl48uXJ2A1LMX
pmAq9t6+0uZp9nNxWF5gNOF3xlgYdpbbe1u1xHrQbwC6lHucsE1AXdysm232 1owC9fk0tydgDkgX
ItqbrdCjvK12pkPTGNQepYGS4t664+CuR+xYAnZcVWQXVMrx1GTBlQbpkIdl i5jXqqzyhGQimF55
BCzApq2Scay08K7FpMuG7MLzmT+VIjIP2gXdW+ztpN3arhNYD3pa5Kq7a63d 2ytvtWCZ3sqturYX
tVTa7dcQ7Yr46X26c8drBW28S3trtIqL7ivmLK86uW0wvcIDuQEK3k5gN3IO cARrjJBzUS96DfAK
+7s7q7KpiUUnwept0KflHO6XJ4kv24a7vLFcyjeXtzvGRPzYS70G9PcLNhPW g36LLMzaKKzyps3B
6Io5BXKA2n7cNVC9wy237cN1IN4AqbWzt80OWqXvYcRzOBlWZgTrk58ww3ii yKlUE7ML4mQDy5b5
HnYDQIaBB1U3VpZ3c2mVQsBPvk6I9jQZMk7/ZKx7I2zz4oGJ8okyUZJDS5aU kZrTNpMSVSSU84Wg
ESfNXMhqYkRQmqtJRNWESs6uP0bWVSqzZVMrJfNPEw8Ncld+DeCaZ0ZZg0qc OGeDeOqR1Co1zRzw
Z54KzwctkqkJQbjebsYwaBiEwHZg29dvMrCVn1aawIXKJK0Ck7QHOL5PJWhV Ce+Bu1clkrRKgvAR
cl9FtLSSOM5l17HVLoUnU9GY90IPT0iLuw0+sNJn1bkyEEl2JFNYljqFIT0o i8wdy0mb0wRVQH6e
nRRiUla/4IN5UWe23JyB15OtAotdBmGNlxe0zfHEHVzRVSFZkq5nrbd2orsW OkNqok9Qe4ehoU+u
x514QXGSqq1a1tVlrbq0RFi2OcNW18OryefLWVJ37V2lLtEJYcGiUJXYKpV2 6Kd9Guskm7NDCzT5
WpVDWoaFd8qHsQm2BzoRDuLq9PhpqgncoEHrBjLK7JULKBvFmK2QKoPdMlJj Y2StWpNuFzguzCbk
G/2FnvSuvymhk5HYDaKV2iot8BU+VCa+pxeVrMWbpgIFI6G1ErtcSd2DnlSC qI+8Bptyh0ao1qGb
UOTUODRp4UZr43zBASYQrv9sAGnuWghpeOGoiDYI85JPtxBTU/HHUXdwlNi7 k03yWhdQ/70Z/dBT
hPuwHkpF0hXeGpBLFMOj272aFrSgEUpbDp5bxemFjfBKbRQPlS36dQeuO4FK nUjKG9cqqkvi0iDf
ybYS4lVhznk9cFoYc6CVEyfdeEPmkD35TG74IpIzbKsok6wm4cwbq2s5Rru0 aewAWU4WVSJtzXoy
bM7KpFSGnF6U2QiubBRzX5u9aNCOEdN28unlRlRczBCbW1NUGgLDIULh+XMA 1TrTZZnIkHPmwHeJ
eFGaeN90qLSjrQCbAzv0jFIZ960PgdXCeLWoE7Y0zbhOvMxdyLuQLlOOabZN Szsnd4nsUk6hBMLq
WMU64KegoQU/lRlc/ljQHZGbFDLkpyzpQ2cDvPp7LELwpi0LAZ0CTQ34ns8S ID4oth707QwatRp2
BLwFnAvqAkQuGnYmR4Xw0A7Q02HDPa9KYgMAY+NWUnUxgEr30nFnFC17HzUo jThxqAzzwcDsBtKn
rmIwjDDxx0WtkVTK9aRm0vQvHiKtIbT0B7MJ4BgTuBOY69+dBtPL0ScgVbmo LRp+CNLvTLa+VL6x
moPp07MBelFutT2uLEZuOg32wxhPgt0vJa5D9cnJKX4ziX14nhKtJMhwi3tX iChfNLzJpjOZfYSG
8Z1L1JSbeAZs/ZSHInWmn4WKRXGGwOz37wdrVeMYFfSQPeIl5DtMkzWJ7ckx hTN7UchliW10J6hw
5ps1Ttt8JCpvtjGU2pisxwX96usnN6kOrlqWLhWWIyCTtl8BcjoZQ/drrbqH cMskQ4KWy66mrKPd
6nuVCxI6dsvj3DEqIeswymfrU5RR3dLkQ+UuoVWyrZdTvx47+XVMFn88EZCi mnENudEzWkjYZVko
Ryj1hzwdq2Zqzsj4cku4Rmz2UA7hMJYahfRBDUMFwCuAaxdGAGWIGfD8NyHU zfbrlA2BC4ddwHTy
akJwN0E0rMTVmJcwTRlemR0YE+xNumbXsFYvOZDYnbB/r8AM7kPA7SyraSoi 60kCiHdKLo0wd0Re
TCjZjhPYooHUqIvFK1UD3kt28Zwj0ChiYi3YVMJPC1AHT/NL0uHN/NOT3gzC uQPDknYDah9Mh8EI
uQPji6x3qUnwNY08CbF4G1xr6CXki/lnk7wdUkXJZPp3otzP3Etr8JI70qgT 3wCyNlIoVnNho5nf
gU/hoLU1jOBHiJWUey2tlTFKudKS5XiSbPxshRuiUhUqfxAFjQpJHadf8Dta HJQVMsXacF+6GQxd
k2DPgrJ3jPga9pZVCi0AT4oVoViLogXioezzO9YEd1ZUdlYWU6WuaUJlhG4a 9ylDKQdMn4wB5irT
rEvrQUsK68IfAdJZacF2CfjoR/qSouvCyexT8gBuJ6wgyKjYRpEauiRY8KuM lLVLFfsmZx9mD0oT
2hPHDTWBXak94zJfcAvA8tLJk8D6yRyb3IIsJK0DHvViL3RO7T8lCoCpKKTN aE6UKgmNrysa+LNS
+MEbh33GMakf0WMx8DKhawKklWn8dbFcV84bFuGLeWIx0zIuKNen8hVyV3yf yTynkvYJ8BGTOKn8
pEmMwgG54+hl+WkrBf9+wCUSTU6vv7wFWAbr3iNEnVQKCIzy65/7zSXsZXzJ NGlL2eXy/UMuwCqf
5pWHdlmTG/fCvfp+Wg7fB37loVy430mfx8Oko8xFuT8van00Dw7YqTv3Qi7q Q20kDTDo3vNSVdyO
ldMFNEK5Q8LfCL03Dl7dgSbU2nWOwG1KpQ3G+G2Kf5GHLlPHiw2+ysvmmlXp oAXTLELdJ/OLd3em
jrJdytesdBx89FybuQ4vJ7P+hlCbz3Syt8MLy97M1Gc5P97ZYc5A7CXeJ/QS V11jkrtWb9ep+cBk
OTn18IBh4dN+SXvkI7caQarv0/+IbfDT/eC/xC3wpvy45p+s6MuWU7IHvZfj srZ8gOHkhn8UMYh+
Qn9FF9/kp3TFcjgHUh+Ws3e+ZvQD9oZwJxGifnrwBxeML/gNLgUYxnkhUDen styn3JwlEOiw/hYV
YQc4iO8YKuLx0b6SbSl3fXmdr4LTbtpobyW0kmcyt97XY+Et/xAJvvoGdtZ0 uI7tP+NXSQUks2IB
56im4vZb2V/JJx3RtJc68KQJ81hpEyl3zXbt1NG4LgMD0GwL1JPgmnMmFqf8 o+ESymSzYelNqcT+
khJT1P6bHQRvk/pstAon/MgXnk/RRFPS6B4Uy6Ip3OgnrwDgNHAL6iK7k0/8 kSXif02OiEySPqg3
yuSZ3SaF+iXZNndXn6xozjC502TdP6xqDevC7eHPIm3juB3EufGL8RC6WTkY vkYvCgT/nRnZmowd
WLPqhT/5q0DWDDjOabu5dEtb4xy9GioCNUgMRSlF7t/QrT0qGEagRuESdOn9 cXAf9Jyw4LHKZ5P+
pehcgoBhP7AXz4Qo1I0G/bDryWzOOBhy9CibkSXT86JP7J9UhtD3pa0OUu3l 6MpekNzlnSApDc5U
6zfTLJU383lS9KOD3Wp/aPkHnR0In9ZpRcgXYJ/RYqvdigVqhFtUnwArVvC4 udoyyJWjXbuQ0cgT
Q/D9PRmOk0P87Ptbwzjbao1AiXXhc/LVTD5P+xXYpC5GHISrZO+AOg0dB0T/ tWI84XbV2qLYyCNH
8PSroNXhJl/thAmTOhcV53QNa3fNAOwyT+4Zm6YrH1fzlP7RyZMI6DE5kxOy ZS/pFMNYcUK8zxxX
CvivxYGsGIm0pRj7pZxstyf/RKSg+zxFWnYhy6i3OPC2DSm0LSp0/1gHjNE7 wCn/d7aYh3WzUEd1
UaVnBR/84F94IeHdYZR/3ymDn/HSxT/1LKWrdEjMC1MsuoKZteDqF5c6a7B9 TLlXf3srqT4QcHQC
Y32g4HekNQifl0JjSQ89Ezs4nwsvdmXSiSNMFlSm8Af4GTXOy6ZhjdAT+Wfa 2M+n9w8TiMXQ8KjX
SL6bPitU/+y+7RFsRqjUUVVIdgNrNDnZuv4D0SjLKqxwKbBhyijF9k6T/Diw O84PxyC/4omS3x2c
f4kggsEJOyvxjx/ZdF3EZtDp/MbRFQJ36IyehT/Isx/W3s3yWxdDKVGTDUb0 quy4/lRd3DBH2WHM
70mbKBTlQq5CHLJlYLRxon/3DDcUP/mVaTtzkr+hZHbli3KLQOy8MYKg7fSQ Ist5vxZZSGxYIvTC
sF/4SXaALXMKhp6Zm1w5b5idMhyY5H++EoU31Zc8eyf/K6UKBiOl2S9zZNxW rNVaJP/JnjJSGvW2
AN/G0zaQ1PqzhV2ySiyt7GbAJbVC+rdVzu7Lra4FLLcFsluQQUh3DNm0K0JG Hb85V243PiblTWJO
8KsOXJ3BGOPelX1bkz+7KxFQ5jbnxRHwVu6/VciM6admxi9CgdvLnszVpDyG USn8zWTgRh1Jj5dE
jFhuEOpdGiIfdaTP+ZkbSIBSHJcdM4axBdLOGRiZ1P+pemsTeIbANSnOPWy6 bM15R0/TyCqdcuAa
N72+H5UvQyGwqX6JmnQ9iZO7wrIs2AOjl6M9JSy9IyG3h8IBKenksernzgGB UK9XOex665u0cdIP
WS3tgeedgN25aYvWVZwk4EzgZzgcpwPJ6Cvmy5jWAZlqlc9N1lj3zZMC9BI6 eupwEM5sy8E/lgjU
G6s+m9ZUEK8s41ttrveXVpmnWVRDvbeDKttvb7oetq3mY6ywIjOW5bcHqhTP pITlYhGMDNBF0Fi8
SupxdqnNb1Mq6j2m9y5iPAoeYeuq+2vbTLCE5iTtjWEN7LvL9TWeoE0dHYZd LJfIC5r0oadLzT70
/N2l4wAqCi81Do8WS9JN1O2KfWOy3g6SONdwfmup5FdfkMif3fXp8NjH6oc8 E9MrFCbnMqJOdxEb
pSWymZ3lot0UmjYA0dGnypLdhxgyOrYqznR8Qx5F8tkFn1t0JhGw63l0W401 10DzheM4eq89Z/mF
86gCtz0v+gXpkBHrBFkr/VXjjadAWcXwIlfnVCZ5nWjHTK/Qozco9oECK3Nu HYDd1/6YceW9CXoZ
vQ5PQ7fEbA/0hucQ8kOTlMzy0rMGkT4gyto5FcZyOGBg6dwuF/2Dh/7CX6f+ 4G8PS8UJoU+MBGor
VDjhPXJ4AEu6+HHXyhfol3rSmcbhFRHNTyEFkcym3VlTidgR6n6ZH8qmXJ6N 6JNL6weSJnZVIqEQ
Y1G1pvxS6Bhve38LZNuYDElq3bjNjvh0/UNOO+McIhWlqRP9RpBoWVyn6ozE /1q8caU2HWYqH7At
lQ+spu8LDqtgECEfYfz3Ise0Sam3xhffxy69zrgMjo3LQt3eiXE5oXXnK740 aOSKi1PkjuHnrmsQ
S01NZHlCwr9NbSHUBXa7hr4WVp433CqWO4DvfjseAqzNTSywmRlU0b8M2BTz GLA9gaQu3vFur9kw
hIaIkFfQNgI0HwDyW7csQPOF2QA5ME+R8FgMnpUotjRDmT5yjynQwZuCYv+C 4S8FzjTpIuT9bB5s
Ez4XNSSHK8X+ny1IPGC8w+sUkOjRfZ4cw1/v0h73AcR0O7s0d5zRCHyGHu9c Bm3KbB2A2tbFPB+8
LoKxlDyAcrCE0hx48KXOmIyfOPW28M+ke5BaPnhlPn3P0Yhqx7FHCcN5uXQP HL+yaOxFR6HSGovL
RQtTqM0KfmFrA3DoggebTYYh0weNuFnA83B8UT1T4qt5jcinnk/2K4cQFcQ3 Y6UT2lMGxA8F2p10
QbugjRhrpAhwMTy7UjTAnBs5s63UyPpjz6edbDBGyVnu+1I1CmoNtLdFyzc9 iw7G8LeW7RnGFALz
ERZWVvOFWlyn26R1pheMZoxCfhtlBmu/OhKNX/PKQ2Ns1qioWcT0+Bd4FPAR niZYnh5YKzTRN74j
4JfBmolN3weT8FPNV7bsAuWpVz88Tbq26YF+Ho/BGrqnEQj2zXiL80icX63f Ns0ibyhUQU2aRNb/
pkMG6TAvwsY3fd0KI8NCFziYF+GHBe14ic5+1PNQR2A1U5K7HYDR4Ot3brwg qKo2RB1P0wL8Jwwv
OoAqTuUmjALPg3cGSbrg25aNFYMygQDVgqty1WBUINyZBORLYJTblp0KpPwz fhyf9Ngvu+bh4NwD
jxq9uVsNSaGclRDbHhVwKCW0Wgjy63SW3NrdtnLcSvxmaiVUCpluscbhrk45 DTg7CI2cpU2qlvC0
VqETgAWDmelvVFVhD4juXOo80AQ1l0i5vuAmlyvmhdTqXsEbgZUhqeDncq02 nTdYh3LuZvcvMbK4
4PUVBjJXwpx7XpA9MnOB3vUDsunyBFCrYzqjw1IULUIZs8G5upAl2G6M4KvY NpZYttgxeBAtEHxR
LMBjwYe3K24NLdp2CHcIs+H7REp6V3UeqXpftoODYxHEt9k3p7oR/y73JUfm a85o3woN+OIshuW1
90h61pM/8ZKXQq1zIuZ2iy7hVPXoeEtDNPaOQ4XhR4Zt+kGD0XNaQbwI0nOt EFLOGuUfp5YiSc6q
MnQlnd8Jr09qOwf05r0lxjL0rCAaAtMt38/LuaT2g1MgdqDVc65o4Mdb87Aa GsgI9dUX1Epbtcny
DeC8to8Lfo9CZznPFAFe1vU58ZWQ3gtl4SSW+zDm48Ik/UhyqWzugbFcWFIU 8bcK0PH90raY75YZ
BbryXAsVDIj1wE++KGWZ/pOhR8fNEXfemK1I7YrSKqwjxdeP2x+ulqG9Gc3B OThmuIXLN3vOgtaF
TgI/Z5xd8TlgtOM75nSToTOhnOhynQ8p4FDbr27YBkWp108d31+AIng9BDOt qevHRXmXgBSDtT/z
0uaCbYKP/PVbSd3Dw2qM1WMZYbVNFzb5psizhARTs5VO+VC3FoOx4vMzsu09 0x6a8BT37RsKk4is
TpEIG90Vl6GqEOKfhfmfeToKezf+QFK9KOGNsZdmz/ju6BiE2x9kF3E5tq2V JPLV/jmaFgMTp2A1
ZbnvGq/8nbc58qz1dkCWgDKJgQ3soe9il7m0KiEo5JLJOQ16pSFfpTyIEHc0 LGAkziAS0CFRBlTp
0R8Zq603dpdn0OmMFcr4jvKNqn/Efs3ydGLCpOkaKJbvUkBWwFYGnOBWfQCf McbNznVg+gDNF1Nz
SqVoQbHZkdzTLBtGg/HkLwxwHLdyx0Jj/T9A+kwKfCJedxSqeOlVvpU2tptt yA1h6pTjdjc55oZz
FANeQf07zBF9E8+bw7qlSSPU4VChkXPBnPBynumwmXNDxMIYYc09A0Ryb7ZP Qqyi8lgo3BcM2p9m
AHPjTrzHRehlXmKna+y6vE9E0Ub1hbk+4YbKZoxEWMDznF3MTCB+bGsxgk9q Bag5bcxrlSs1V4iU
RXSBRnspdb71iDOpoeaPa5zMbMVpWgU9NW1My7JCNjaYNh5JhTyoiUaenDhS mwXNdI7AaMytKqPr
kNCgT02ZCU7DZyYAJ0bAf3jhPZrmNVMOX5ZQWjnMYLRnOao+37hokXW36TP+ kkKL84y1YIwS75Gx
lF4gZ+XWbdAIEIXWctgY8vkrBXz2JLsUp9a0UwfYGWxWo+WSOjYB6ENaJWCl bAdIwHm6IdcdgfcF
X+pN8NwKfvRgq6UE3MiPZuE75bYHGnTYaZwzVvG9jlW42Ui6UlwORvUKJskf YA1E8Dc8LZOLcsk9
BriIwfg7GyJ65NU7M/99Bvz0RPzFxQebwnk/ysM7tCvdS6cLVTUKBjVR6zK1 ZVZv02+btmrYoXgW
nCDH9qbPg6vwqdDgzs6SiwDIEoFzxNEz7zr2k8PUZh6pIPUeR6T6PSFx6M6P Q9y89E6P6EeSiwtm
kj0bEw9Gs1OR4+hv4bACX0a8f0ar0kZldsamPNDqYNZWJL+jXLBBZg1VVGrq 2NCx1YpI7TjCrast
PsNjWR4hfSDQzIWyhRTDuwhR4dbVK1+QY2US0GaIpNHrIh2A0eYBJb0NkkX0 d7BPMyRMSDejtB9H
Vq+hvsgzeFjlkANfsa+OtOykoq0uZdczJgspwvoa9iFNPil+4cKJroYpMmt5 OcWorY8et2BZS9Vr
KuJXV8ctGrV5BhysqYMWpE6i+kEqjZw4lYvYJfRsSswyQY8SabCr8tRzbZms TWHjnaMjsMZBr8sT
/Z0BhONB10JiJMp+wg2BcNClmvY0hjWzFKUaQhfLjaKaRWipkXHytFQSJUih OsyfhkjjwtIkVOvr
ag1USxVFg7DEBjpqq2pmXH0rzIN949gxdlByQI5pk2AVAK5QokI9HR5EnJUh Hmtq63HJhhEhb0t7
BH0toJPL4ExTWxIimVRqawf+AvmrlxQsUjelzq+FNOqTjkeFYG/0WOWoQi5F hyTJSGKlKFdsrA2H
ySPEwWziVUeGkpK9cFHKWOxymVwpki5ARBLuRESbdM1B2OKOkCtXIZU81o82 ph64QMz8bYCmWZqY
vHE1PXZJM06tMp7GiWGT0JTjQ7EqmxS/EMfOUfVlytjJP91xT4LKiqr27Ic7 ZR+QUqlXNkMF+4Jf
qKwUEgnz4HTxFYqDly0VFWN5TL4lwLrtgkb034qpDXwo81rYzDjZlZUjQTeY VUdgMOxS1JU3JVJy
zlUG9M9mQGJn1w4/18exECj05+cv1hVf8poRvvkpCuYZb06Kf055IMl42Op/ Tn0isL6coQa4q+TQ
I+xx2MmsqKw2S43p1db06dFNS18MUHssoLPJGvl+yVR9ScpClmEimxYSy3p4 0qu+xK0WG40ObYW2
a/Y7AcXUNbzJvyGx1VHv+zYNK1SqS6XCFAazA+syMyENaySrAAfJctzBVFbM 9FM4PHJytIN6gaP6
ghWQpIiou2vecxnpMWbEhdpNWxVbcYs5chY1bXnrp1Qcm81zCrAFvcwa/rTk LN7Ct2ULHSSy6xau
WfiWL9Tf4sSvhwqpFklWZQeSEaKtviokF1Ce7bBGSB1CSkMfop/KMaTXQQBM UDjkU3hDi07I2Kfy
xq56FBvIsWFrxY9JSMtfgydzsV6mYgWECJa9NFN4NaJvU4EiKXKSKz2ui7CE hmTNhjsMAkmbe7LN
0F8S0YPVUVDuthg/YLvs15SH9q05D/BhQsC2zpUvPlNmqVkhe9mDVPXFuq15 rUQU0hDJGQdk+XIr
XGz3yF5UFbPItJqTFgs1KQxlnSmZsWbF9WFmNYh3JbJn2VMSJRmliBLETARO 4PW9WrCbeSIdYepr
K4oiVRFgn1niHXGUfKwuhJMfVxB6JB5wT+FT5irsRLBV58rIWwuNMYYWGnjD Esx1Cc8Wj5+YJ1Gz
+IK54yGEs3rCA3rBeQh8l0s6DlAdzmhE6KUucatWP5Yxz5KlpK1wDzUXB6Wd CAkKqPJXEmFwz0DH
ONlqVGaRTVCjK5cV9Zv1BzdRbshVhtIVYDyFsZZCMJKhUSZsWoplPqharMmH 6qkJiAiYsyGYnvqC
+vwBZjx4lTX9ckf2ARc3W3L/3FPnzg86NjEk0zznCXFax2iXxR/s4P/ixD17 AEAHAA==
------=_NextPart_000_0053_01C520A3.C77D8FA0--

Attached files Report.rar (10.2 KB)Â