In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Forzar report a LANDSCAPE

Foro de Xailer profesional en español
Responder
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

Forzar report a LANDSCAPE

Mensaje por jose.luis »

Hola,
Debe ser fácil pero no he sabido como forzar un report a que siempre imprima
en LANDSCAPE independientemente de la impresora que haya por defecto y del
formato de papel.
A ver si alguien me guía :-)
Saludos y gracias!
José Luis Capel
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Forzar report a LANDSCAPE

Mensaje por ignacio »

This is a multi-part message in MIME format.
------=_NextPart_000_000D_01C73E66.A6FA3430
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000E_01C73E66.A6FA3430"
------=_NextPart_001_000E_01C73E66.A6FA3430
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel - Aicom" <jose.luis@iaicom.com> escribi=F3 en el =
mensaje news:[email=45b50e18@news.xailer.com...]45b50e18@news.xailer.com...[/email]
> Hola,
>=20
> Debe ser f=E1cil pero no he sabido como forzar un report a que siempre =
imprima=20
> en LANDSCAPE independientemente de la impresora que haya por defecto y =
del=20
> formato de papel.
>=20
> A ver si alguien me gu=EDa :-)
> Saludos y gracias!
> Jos=E9 Luis Capel=20
>=20
>
------=_NextPart_001_000E_01C73E66.A6FA3430
Content-Type: text/html;
charset="iso-8859-1"
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=3Diso-8859-1">
<META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:000801c73e5e$45335b30$1700000a@ozlan.local" align=3Dbaseline=20
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR><FONT face=3DArial size=3D2>-- <BR>Ignacio Ortiz de =
Z=FA=F1iga<BR></FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel - Aicom" =
<</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial size=3D2>> =
escribi=F3 en=20
el mensaje </FONT><A href=3D"news:45b50e18@news.xailer.com"><FONT =
face=3DArial=20
size=3D2>news:45b50e18@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> Hola,<BR>> =
<BR>> Debe=20
ser f=E1cil pero no he sabido como forzar un report a que siempre =
imprima <BR>>=20
en LANDSCAPE independientemente de la impresora que haya por defecto y =
del=20
<BR>> formato de papel.<BR>> <BR>> A ver si alguien me gu=EDa =
:-)<BR>>=20
Saludos y gracias!<BR>> Jos=E9 Luis Capel <BR>>=20
<BR>></FONT></BODY></HTML>
------=_NextPart_001_000E_01C73E66.A6FA3430--
------=_NextPart_000_000D_01C73E66.A6FA3430
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <000801c73e5e$45335b30$1700000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAgUAAADYCAIAAAD0wQeCAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAT+ElEQVR4nO3d3ZGruraGYaJaMTiDlQg7jn19 qhzAutg50GHsu74+
VScHH4vfMaShH8ATS/b7FFWzDQKE3B4f0J529wMAwM9Pl2sAAPgKXa4BAOAr dLkGAICv0OUaAAC+
QpdrAAD4Cp188M+//uqK/P3vZ+t//51s89e//rF3aVm3tWstw/MQxs7Vyhji A4f8suEqdHJUg9Wv
7j+AEp188NI8cIpf7q8oEEvvz1SuPyk9Xrt6/YrhKnRyVO3VL+w/gGKdfPDy POhK68j5ArH1pmyP
1yoa2fJjPz9chU6Oamz1y/oPYIcutTBdDeJLVVIcKiT7naxcf5ROA1UDE4tq cHJUT64O4FJdauHR
PFBlbqlx66znjGCxdcIoV/jxQkbt0r5QUZ3STYKym+rb9vhI3/ydpwdSLN89 XMbGrOXFPc+OanjN
U7x68vrA326yTe4oAJTrUguP54F8hc5Lt5fwX/L1Pi1N58Hff1t3W9am6coV u1UjO53qWyYPMn37
sYYiYDTZPVxlR1re8/So2kuzDXJ5EN2s17D4KACU61ILj+dB6vpASRSI/D13 f2VjYbTAdHJfqb6l
8yAqPNFPnbhu3Tw8XGVHWt7zolE1ejvPOpAHqSPo9OgVHwWAcl1q4dE8UC9s 8zw9ukascm3z5cbF
ZszeGLGUPhn31o/a0bew1Ke3N6+3c7hKj3RPz38io7rN3WbaqRf7Fck93ZGY M3dXcBQAinSphaV5
kGCeg4eFMVMg1O7LS495av9j7C3ZN8uOvp3Pg4LhKj7SPT3/yf0GSGbLHXkQ v4yyluw7CgBFutTC
03kgV4uVLL0tMw+8FYpLT76HQfEti4M9fTudByXDVXyke3oemympE/Xi1ctj Si8zmpccBYAiXWrh
mTwIqti+Apdaobhy5avkvOU/mQdFp6xhaOwbruIj3dPz2Ey1lVDB6qk8SB3u wVQDUKRLLSzNg6KX
Xtkr3swDb/vFlau4hyfyIN83Uatj3TCa7Buu4iPd1fPIzCAM3LLy1X+M/ieP IHl9UHIUAIp0qYWt
50HRqblu+AfyQJ28pwdSLN83XMVHuq/nO0a1eHU1fzu2+BFYS/YdBYAiXWph 63mgzmSNWrLO+7N5
4J9Qy1X0opK7ZU44XKVHurPn6XizDzH3pPxY/ddHIGbbYbrvKAAU6VIL28wD taVgdtBC7yrsm7ls
X9+CRLCpfe8errIj3dlza1TFsYS3q/Krq/nq2FJH0MVitOQoABTpUgtbyoOg mhi3Uszlus0fygO9
yOI33z1cZUe6t+fmqKaPRO4u8qTY/U/FZrRh0VEAKNGlFjaVB4l7L0Gd2VN8 X5YH3oorYzh+DgyX
v9ok6MXuntujqueOa5SEVCYPJl6IWG12HwWAvC7XAADwFbpcAwDAV+hyDQAA X6HLNQAAfIUu1wAA
8BW6XAMAwFfocg0AAF+hyzUAAHyF7gEAwONBHgAAHPIAAOCQBwAAhzwAADjk AQDAIQ8AAA55AABw
yAMAgEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzy AADgkAcAAIc8AAA4
5AEAwCEPAAAOeQAAcMgDAIBDHgAAHPIAAOCQBwAAhzwAADjn82Dou8Xt/ms2 +b3fun4wF71WuCM3
59C+y/tc3jIt29VX7QgALOfyQJewbEHb4UW17xlWB7dS3oHylknHuwoAr3Am D1wh9C4J3MXCS6ra
i4rsceUdKG8JABU7kQdmHVwD4bn01vfPC4bnQ9lyvIhQd5fGpfdl9jh3vQe1 tBE3pbzrETVv944C
y47Gvsc3Jcmdmv3ULdcObMvNtdae3O/9tN91R7EDSe8dAJJenQeqZoVleuhV id9aznPVTFUa5wfu
x6mtmKkL5bIjuUp8R5K44BlLa7zP/lrmToPwmHJlarHty1rL70mYB+GB5PYO AEkn8iBdHEVF22aK
0rrNNVuaYfMQm1CbWtirD+L8OtiRtbZ6YPY5utrK6p/sgN1inhf0JMyD1IFE RgcAUk7kgVmJzBN8
WVu1JQ+Clt7GpzPrbrtBokurbJYOnmBH1tqjoU/0ObZa0M9oS9lH8+jChubg lO8dAJJO5IFVk7dr
hlgeJIr4I1Hy1tVOXh/k8mDdZrrPktpp0E+/ZXB9YK0V9KQgD7J7B4CkM3kw n5CuZVU9souvrFPJ
Mi2rm3djfJ4v5oYV018neVq9EgcwmH8/iFb5JTmMfnotg78fmGuJwx9XKsiD 7N4BIOlcHjjifoos
QbHiO9XEkajmYcu53Vr/lj0MW+v8pnS3snnw2I4m8v4ia52gz34/dcvg/UWR tdaeRN5fJNZO7Z0r
BQCFzucBisVCKO3YWgCwE3lwofLKbt0MA4A/ijy4UHkeqNtwpasAwBnkAQDA IQ8AAA55AABwyAMA
gEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzyAADg kAcAAIc8AAA45AEA
wDmeB//3v/9lYmJiYqp2ylVxH3nAxMTE9IHTf/75n1wV953Ng+cumQonhouJ iemCaS01uSrue0Ee
5BpixnABuAB50ACGC8AFKsuDoe+67nb/NRZ9MfIAwAXqygMXB/0Qzv9y5AGA C9SVBzAxXAAuUE8e
/N5vnbP3+mBaz1gruqA5dh64i6mCW2tuGF4xCOZ2XrVxABWoJg/G6n273XZX 8MI8eD7aueF6xOKz
7/u9o3UceQB8ulryYCze/VB4ziuVXAaUtKlYJD774cpyTB4An66SPJjjwL8J Mtfx+3wraUmM5Wez
zbr2GgK/6+rLSmKOt7OdYXQNOz7HQ3kOh+xyeKiqZC+Dd7vf5/XGpeHYPbZh lmO2tTQ2vu27ykEE
kFNHHmylWBflucSMFWf+eVomTvjV/KmMyaIv2qiqKNrPu2soD0QKyEDwS/96 7OsPc9PtsOVBb+/u
Eu/zWgNajmG4ca9LXDQADaoiD2RRUlVZ1fGgdmdqfaRNtH29/DxQFwWi+oqK v1lKtgyLraVcRbVY
DX3YMtyo6pK9IQCVqyEP4hV6fx7YC4I88K5AKi9e1nBpqtDPxFAFeaCqvBw7 PY5yS2aeyDyI9AhA
KyrIA6u+haf4hXnw+dcH4cm3OnMPZso8UDEYzwPV9MD1AYAmvT8PpvosiomY UZ4H84LYxcU438iA
9v5+YN6cn6txtLj7VX47VHMV788H4rmY10///YBwANr09jwI4kDOKs+D1PuL 1pW9SwfdvI08iJTa
pUCLA1uOXFb8bRTuyftF22Zu90FeCiyjvPTBX13vGkBT3p4HyHv9cMk6DgAj 8qABrxmu3BuRAHw5
8qABrxou8SYgLg4A+MiDBjBcAC5AHjSA4QJwgbflARMTExNTbdN78mDaK1PJ xHAxMTFdML0zD3IN
MWO4AFyAPGgAwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXenwfBJ+ev/39W fSDdN1N5EH7s3qs+
jGjcsrGhV20fQN3enwcLu86RBw8rD9SwvKheP4P5BVsB0Kya8wCzIA/c507r D+qmkgM4q+Y8KPmS
g3WZN/uj0iXMg8H9E3xvgfllBup7C+Y1t3tyW2M9gs85t76fxj/7JQfh6gAa 1FQedOGXmrX3ZWcH
WHkg7u/k80B+r5n4OfhJf/GZ/HTs6UfvI7ODmeaXtwFoRFN5sJQa70scjfmf xc6D8RxefcdZNA/k
15kFX22mvnJtmZtvuZA75ZsygZY1mQfbI72SbvU5Inkw/vz8MZ8HwUz5c/AG r2Vg/ZYyIzZmnABo
UJN5wPXBsCxyN43up/MgfdZf3pLrA6BlTeUBfz94BKfg88hMc7b79+PssjxQ RXz5OdpymbtdLPD3
A+BDNJUH6m0yXrNuywt7aw1L5YEs/WIsbvd7X5oHagjFhspaqpmfMuLAV6on D5JENHyh3cMFAPuR
Bw3YPVwAsB950IDdwwUA+zWSB9+N4QJwAfKgAQwXgAu8LQ+YmJiYmGqb3pMH 016ZSiaGi4mJ6YLp
nXmQa4gZwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXIgwYwXAAu8PY8mP7n sf4cNGuedvL/K5es
nm2TbVDYJi/Ig/UD5M5uGQBWb88Dq/jnv8fgZJ0tWT3bJtugsE2elwfrp0rz 8dIAXuj9eRDWzHwc
vKjO/nmv6afOA/F1BcFnXwPAYRXkgV80dRyID9yPfzOmaOQ36Xvjvopcfd7d ffnWSFlr/V5NxFcE
bA3y/Rx/PvQFAUF8yl4d2iIABGrIA11ZVdkcq/C8IPj6M2OB+HEu0Obpc5AH ah1RvsNSbn9XZ0k/
yQMAVasiD4Iy7tU4ee4dFGt9mu6Xa7taGtcHv97qwS6CLXkXEI9MP08gDwBc oI482OqwV3rnuzTj
jKE366xeY1uQKsU788D+g0Z4kZHs5wnkAYALVJIHa8l1/3pxEJ7677g+eEke 2JvyAyPTzxP4ezKA
C9SSB3NJ7VUcyFPt5V6Mcd4tCrBdzwM788C+HPHzINdP79JnB95vCuAC1eTB csvFq3Dr3Of8+1ZQ
vWK/FGFR2V+aBw/dkSHYSEk/X5YHsbECgDPqyQNEMVwALkAeNIDhAnAB8qAB DBeAC5AHDWC4AFyA
PGgAwwXgAm/LAyYmJiam2qb35MG0V6aSieFiYmK6YHpnHuQaYsZwAbgAedAA hgvABciDBjBcAC5A
HjSA4QJwAfKgAQwXgAu8PQ+mT3zTH/NmzdNe8znSrVB58Pu4dY9OTNsoLIvW GZM+mNmvq9+eK/mr
y2kQi4ZIm04sut3Fbqa1IqvYz26iD4t9nY/tfcjv6PnY7+eBI3oYffi8p2yw ljiRMTR2+jC66r3C
7zextFeL5Lpq45NINxJDZ4/Yp3t7HljFX33kqOnb82AQS/v1BTC90m76VTS4 CnLTv+vig2H9l4Fa
tV+qj37FyjabsLR5jdOFI9LG9XCtgMc6bzbIth+rT9/rupPbiO3LnjIpNob2 ThMDNR2a2I7LhvWh
Lvd9EAn5p1L+ppUc9Yd6fx6EtT0fB+SBXDwsr65x0f2uXgzPV1F/31Z5vjC8 l8r2Mgu3HL5Qc8VF
7f1FxaVfXuoHO1/yMNZg70ZM3/eUqUXWNu2dJgZK/Br4a03lXq42WHlTcGjz LkqO+kNVkAfmNw14
X2Mwi325QeL7D3rx7ZXhdxhE1q1MJg+83+Nfd775KxZtrwTzF13XJrV0f3EZ xhfn4K1uPjRlj85r
X9L5kofBHHe2ONbcZ/E9VS4jzT77KZuXJMfQ2GlioLwLAinXyaKnckQe1JAH urqrr40ZxBdRypwI
v4sm8v1oZsyItdcfa77iyObBfH4kXmnL+I2vhHRpiC81zkPHH/xbq16bIXL2 WvIyC9pkruJLOu+1
NB8G7bez0cG/YbWtVXJEkWYf/JStMmMY7jQxUKPe6/9k8G/0eYqeyuA3zR6x T1dFHgS12jtRl9cI
4rvGvIrubelX/11CX3WsOeOnRpX25sHvcjHu7jyI+Q/vOnoSLxxFV/Thdtbq drS4eC/FeZXDnfda
iofR9rrE9Ovt+wNHFGn2YU+Z0aZgDP2dJgZK62WNTudBshv2b1rJUX+oOvJg q9ZeHMx3eMYZg7jz
4+eBcSNJ54SMlIW6jpjUmQvZPPCvc3/n+w+99zIzf9HNmw/jz+Km2r7i4n7u g8YlL7PC7a9KOi9m
DubDoL16H4ssPQeOKNLs45+yojH0dpoYqNDYWI2hpagbnpKj/lCV5MEaCO5f Lw7CU/9H+fWBdbvI
JuOmMvm/Jwd3VPrpLZXB/B1/nByLzjxge4vLdJ57141LXma51/aRzj+sBiUH qxsbpafkiMxmH/+U
FY+h2mlioKzrpPXSwb+GiD1f6UW6jb3o09WSB3Pp71UcyBq9nMYH1weq1Ps3 nkR9l4Gw/bztwbsy
qUn2/abhlbgrGfpNjYNYfR2Vl795cdAPu2DO9tCUbnOs82aDeHv/Dw/LUjeY uY3Yvu8p2zuGxuXO
qBcH7s70xROq3ois479fLgJ2dEMqOeoPVU0ezJXZP0Vf5z7n37eK7RV7cc8n 9hYkb2Nb4bfWrUyY
B/L617hF8Mic8G5/l0tUzLVlcEXvX4B3+pb3uj1ZuR729n0FbXZ33mwQb2/f oJjOT3Mbef6GGb9E
X/CUyS0/q+2OMZQ7TQzUtIFeLPX+ZjCIRcuTvqsbm8SIfbp68gBRDFczfu+9 UYGANpAHDZDDFZ62
MFUyPSJxkF2RqZXp45EHDfjA4YpcknNuXS+esi9AHjSA4QJwAfKgAQwXgAuQ Bw1guABc4DPyIPrf
0+w2rXn1cAGAgTxowKuHCwAMn5EHAnkAAIdUkAdzob4v/09Y/gdP8z8PhzPD 64Nwa9bnGU3E/xa1
t/zu/7dMHgC4QDV5EH4AUeSDida6bt8kCrdmfOSR/TFH0S2TBwC+QDV5sJyk G4Vfz58LvrrxE/37
gV34VehMj8ZPczG2XAXyAMAFqsuD7ZE+NQ8vASb29UG4NX/DHpkZcstVIA8A XKC6PMheH2y8z6o+
en1gkPeZKkAeALhANXlQ/PcDLwX86IhuLfL3g5It8/cDAF+gmjzY3hEkT8vF DZytKIczw+uDPe8v
ym6ZPADwBerJgyG1zncjDwBcgDxoAHkA4ALkQQPIAwAXqCAPkMNwAbgAedAA hgvABd6WB0xMTExM
tU3vyYNpr0xMTExMtU25Ku47lQfZ3jAxMTExvWvKVXHf8TwAAHwS8gAA4JAH AACHPAAAOOQBAMAh
DwAADnkAAHDIAwCAQx4AABzyAADgkAcAAIc8AAA45AEAwCEPAAAOeQAAcMgD AIBDHgAAHPIAAOD8
Pz0q02LnG3lOAAAAAElFTkSuQmCC
------=_NextPart_000_000D_01C73E66.A6FA3430--

Attached files
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

Forzar report a LANDSCAPE

Mensaje por jose.luis »

This is a multi-part message in MIME format.
------=_NextPart_000_000A_01C73ED2.203D21C0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000B_01C73ED2.203D21C0"
------=_NextPart_001_000B_01C73ED2.203D21C0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ignacio,
Gracias por la respuesta. Sab=EDa que era f=E1cil... pero no tanto :-)
Por cierto... Esta linea:
COLUMN OF oReport ;
TITLE "ST. ANTER", IF( lMuestraEnvases, =
("Unidades","Envases"), "Unidades") ;
DATA if( lMuestraEnvases, (odbitCarga:nStkIni2, =
odbitCarga:nStkIni3), odbitCarga:nStkIni3 ) ;
PICTURE IF( lMuestraEnvases, =
(AicomGlobal:oTabPicture[5]:cCantidad,AicomGlobal:oTabPictur e[5]:cCantida=
d),AicomGlobal:oTabPicture[5]:cCantidad) ;
ALIGN taRIGHT ;
CHARSIZE 9
Me da estos dos warnings que no acabo de ver el por qu=E9
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: =
'String'
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: ':'
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: ':'
La linea 1898 corresponde al c=F3digo mostrado.
Saludos y gracias nuevamente por tu ayuda.
Jos=E9 Luis Capel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45b51505$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel - Aicom" <jose.luis@iaicom.com> escribi=F3 en el =
mensaje news:[email=45b50e18@news.xailer.com...]45b50e18@news.xailer.com...[/email]
> Hola,
>=20
> Debe ser f=E1cil pero no he sabido como forzar un report a que =
siempre imprima=20
> en LANDSCAPE independientemente de la impresora que haya por defecto =
y del=20
> formato de papel.
>=20
> A ver si alguien me gu=EDa :-)
> Saludos y gracias!
> Jos=E9 Luis Capel=20
>=20
>
------=_NextPart_001_000B_01C73ED2.203D21C0
Content-Type: text/html;
charset="iso-8859-1"
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=3Diso-8859-1">
<META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias por la respuesta. Sab=EDa =
que era=20
f=E1cil... pero no tanto :-)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Por cierto... Esta =
linea:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ COLUMN OF oReport=20
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
TITLE "ST. ANTER", IF( lMuestraEnvases, ("Unidades","Envases"), =
"Unidades")=20
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
DATAÂ if( lMuestraEnvases, (odbitCarga:nStkIni2, =
odbitCarga:nStkIni3),=20
odbitCarga:nStkIni3 )=20
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
PICTURE IF( lMuestraEnvases,=20
(AicomGlobal:oTabPicture[5]:cCantidad,AicomGlobal:oTabPictur e[5]:cCantida=
d),AicomGlobal:oTabPicture[5]:cCantidad)=20
;<BR> ÂÂÂÂÂÂ ÂÂ ALIGN taRIGHT=20
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
CHARSIZE 9<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me da estos dos warnings que no acabo =
de ver el por=20
qu=E9</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>tHistoric.prg(1898) Warning W0027Â =
Meaningless=20
use of expression: 'String'<BR>tHistoric.prg(1898) Warning W0027Â=20
Meaningless use of expression: ':'<BR>tHistoric.prg(1898) Warning =
W0027Â=20
Meaningless use of expression: ':'</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La linea 1898 corresponde al c=F3digo=20
mostrado.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos y gracias nuevamente por tu=20
ayuda.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis Capel</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV>
<DIV><BR></FONT>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> escribi=F3 =
en el mensaje=20
<A=20
href=3D"news:45b51505$1@news.xailer.com">news:45b51505$1@news.xailer.com<=
/A>...</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:000501c73ec9$bd3b7ed0$bb001aac@AGSoft.local" =
align=3Dbaseline=20
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR><FONT face=3DArial size=3D2>-- <BR>Ignacio Ortiz de =
Z=FA=F1iga<BR></FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel - Aicom" =
<</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3 en=20
el mensaje </FONT><A href=3D"news:45b50e18@news.xailer.com"><FONT =
face=3DArial=20
size=3D2>news:45b50e18@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Hola,<BR>> <BR>>=20
Debe ser f=E1cil pero no he sabido como forzar un report a que siempre =
imprima=20
<BR>> en LANDSCAPE independientemente de la impresora que haya por =
defecto=20
y del <BR>> formato de papel.<BR>> <BR>> A ver si alguien me =
gu=EDa=20
:-)<BR>> Saludos y gracias!<BR>> Jos=E9 Luis Capel <BR>>=20
<BR>></FONT> </BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_000B_01C73ED2.203D21C0--
------=_NextPart_000_000A_01C73ED2.203D21C0
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <000501c73ec9$bd3b7ed0$bb001aac@AGSoft.local>
iVBORw0KGgoAAAANSUhEUgAAAgUAAADYCAIAAAD0wQeCAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAT+ElEQVR4nO3d3ZGruraGYaJaMTiDlQg7jn19 qhzAutg50GHsu74+
VScHH4vfMaShH8ATS/b7FFWzDQKE3B4f0J529wMAwM9Pl2sAAPgKXa4BAOAr dLkGAICv0OUaAAC+
QpdrAAD4Cp188M+//uqK/P3vZ+t//51s89e//rF3aVm3tWstw/MQxs7Vyhji A4f8suEqdHJUg9Wv
7j+AEp188NI8cIpf7q8oEEvvz1SuPyk9Xrt6/YrhKnRyVO3VL+w/gGKdfPDy POhK68j5ArH1pmyP
1yoa2fJjPz9chU6Oamz1y/oPYIcutTBdDeJLVVIcKiT7naxcf5ROA1UDE4tq cHJUT64O4FJdauHR
PFBlbqlx66znjGCxdcIoV/jxQkbt0r5QUZ3STYKym+rb9vhI3/ydpwdSLN89 XMbGrOXFPc+OanjN
U7x68vrA326yTe4oAJTrUguP54F8hc5Lt5fwX/L1Pi1N58Hff1t3W9am6coV u1UjO53qWyYPMn37
sYYiYDTZPVxlR1re8/So2kuzDXJ5EN2s17D4KACU61ILj+dB6vpASRSI/D13 f2VjYbTAdHJfqb6l
8yAqPNFPnbhu3Tw8XGVHWt7zolE1ejvPOpAHqSPo9OgVHwWAcl1q4dE8UC9s 8zw9ukascm3z5cbF
ZszeGLGUPhn31o/a0bew1Ke3N6+3c7hKj3RPz38io7rN3WbaqRf7Fck93ZGY M3dXcBQAinSphaV5
kGCeg4eFMVMg1O7LS495av9j7C3ZN8uOvp3Pg4LhKj7SPT3/yf0GSGbLHXkQ v4yyluw7CgBFutTC
03kgV4uVLL0tMw+8FYpLT76HQfEti4M9fTudByXDVXyke3oemympE/Xi1ctj Si8zmpccBYAiXWrh
mTwIqti+Apdaobhy5avkvOU/mQdFp6xhaOwbruIj3dPz2Ey1lVDB6qk8SB3u wVQDUKRLLSzNg6KX
Xtkr3swDb/vFlau4hyfyIN83Uatj3TCa7Buu4iPd1fPIzCAM3LLy1X+M/ieP IHl9UHIUAIp0qYWt
50HRqblu+AfyQJ28pwdSLN83XMVHuq/nO0a1eHU1fzu2+BFYS/YdBYAiXWph 63mgzmSNWrLO+7N5
4J9Qy1X0opK7ZU44XKVHurPn6XizDzH3pPxY/ddHIGbbYbrvKAAU6VIL28wD taVgdtBC7yrsm7ls
X9+CRLCpfe8errIj3dlza1TFsYS3q/Krq/nq2FJH0MVitOQoABTpUgtbyoOg mhi3Uszlus0fygO9
yOI33z1cZUe6t+fmqKaPRO4u8qTY/U/FZrRh0VEAKNGlFjaVB4l7L0Gd2VN8 X5YH3oorYzh+DgyX
v9ok6MXuntujqueOa5SEVCYPJl6IWG12HwWAvC7XAADwFbpcAwDAV+hyDQAA X6HLNQAAfIUu1wAA
8BW6XAMAwFfocg0AAF+hyzUAAHyF7gEAwONBHgAAHPIAAOCQBwAAhzwAADjk AQDAIQ8AAA55AABw
yAMAgEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzy AADgkAcAAIc8AAA4
5AEAwCEPAAAOeQAAcMgDAIBDHgAAHPIAAOCQBwAAhzwAADjn82Dou8Xt/ms2 +b3fun4wF71WuCM3
59C+y/tc3jIt29VX7QgALOfyQJewbEHb4UW17xlWB7dS3oHylknHuwoAr3Am D1wh9C4J3MXCS6ra
i4rsceUdKG8JABU7kQdmHVwD4bn01vfPC4bnQ9lyvIhQd5fGpfdl9jh3vQe1 tBE3pbzrETVv944C
y47Gvsc3Jcmdmv3ULdcObMvNtdae3O/9tN91R7EDSe8dAJJenQeqZoVleuhV id9aznPVTFUa5wfu
x6mtmKkL5bIjuUp8R5K44BlLa7zP/lrmToPwmHJlarHty1rL70mYB+GB5PYO AEkn8iBdHEVF22aK
0rrNNVuaYfMQm1CbWtirD+L8OtiRtbZ6YPY5utrK6p/sgN1inhf0JMyD1IFE RgcAUk7kgVmJzBN8
WVu1JQ+Clt7GpzPrbrtBokurbJYOnmBH1tqjoU/0ObZa0M9oS9lH8+jChubg lO8dAJJO5IFVk7dr
hlgeJIr4I1Hy1tVOXh/k8mDdZrrPktpp0E+/ZXB9YK0V9KQgD7J7B4CkM3kw n5CuZVU9souvrFPJ
Mi2rm3djfJ4v5oYV018neVq9EgcwmH8/iFb5JTmMfnotg78fmGuJwx9XKsiD 7N4BIOlcHjjifoos
QbHiO9XEkajmYcu53Vr/lj0MW+v8pnS3snnw2I4m8v4ia52gz34/dcvg/UWR tdaeRN5fJNZO7Z0r
BQCFzucBisVCKO3YWgCwE3lwofLKbt0MA4A/ijy4UHkeqNtwpasAwBnkAQDA IQ8AAA55AABwyAMA
gEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzyAADg kAcAAIc8AAA45AEA
wDmeB//3v/9lYmJiYqp2ylVxH3nAxMTE9IHTf/75n1wV953Ng+cumQonhouJ iemCaS01uSrue0Ee
5BpixnABuAB50ACGC8AFKsuDoe+67nb/NRZ9MfIAwAXqygMXB/0Qzv9y5AGA C9SVBzAxXAAuUE8e
/N5vnbP3+mBaz1gruqA5dh64i6mCW2tuGF4xCOZ2XrVxABWoJg/G6n273XZX 8MI8eD7aueF6xOKz
7/u9o3UceQB8ulryYCze/VB4ziuVXAaUtKlYJD774cpyTB4An66SPJjjwL8J Mtfx+3wraUmM5Wez
zbr2GgK/6+rLSmKOt7OdYXQNOz7HQ3kOh+xyeKiqZC+Dd7vf5/XGpeHYPbZh lmO2tTQ2vu27ykEE
kFNHHmylWBflucSMFWf+eVomTvjV/KmMyaIv2qiqKNrPu2soD0QKyEDwS/96 7OsPc9PtsOVBb+/u
Eu/zWgNajmG4ca9LXDQADaoiD2RRUlVZ1fGgdmdqfaRNtH29/DxQFwWi+oqK v1lKtgyLraVcRbVY
DX3YMtyo6pK9IQCVqyEP4hV6fx7YC4I88K5AKi9e1nBpqtDPxFAFeaCqvBw7 PY5yS2aeyDyI9AhA
KyrIA6u+haf4hXnw+dcH4cm3OnMPZso8UDEYzwPV9MD1AYAmvT8PpvosiomY UZ4H84LYxcU438iA
9v5+YN6cn6txtLj7VX47VHMV788H4rmY10///YBwANr09jwI4kDOKs+D1PuL 1pW9SwfdvI08iJTa
pUCLA1uOXFb8bRTuyftF22Zu90FeCiyjvPTBX13vGkBT3p4HyHv9cMk6DgAj 8qABrxmu3BuRAHw5
8qABrxou8SYgLg4A+MiDBjBcAC5AHjSA4QJwgbflARMTExNTbdN78mDaK1PJ xHAxMTFdML0zD3IN
MWO4AFyAPGgAwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXenwfBJ+ev/39W fSDdN1N5EH7s3qs+
jGjcsrGhV20fQN3enwcLu86RBw8rD9SwvKheP4P5BVsB0Kya8wCzIA/c507r D+qmkgM4q+Y8KPmS
g3WZN/uj0iXMg8H9E3xvgfllBup7C+Y1t3tyW2M9gs85t76fxj/7JQfh6gAa 1FQedOGXmrX3ZWcH
WHkg7u/k80B+r5n4OfhJf/GZ/HTs6UfvI7ODmeaXtwFoRFN5sJQa70scjfmf xc6D8RxefcdZNA/k
15kFX22mvnJtmZtvuZA75ZsygZY1mQfbI72SbvU5Inkw/vz8MZ8HwUz5c/AG r2Vg/ZYyIzZmnABo
UJN5wPXBsCxyN43up/MgfdZf3pLrA6BlTeUBfz94BKfg88hMc7b79+PssjxQ RXz5OdpymbtdLPD3
A+BDNJUH6m0yXrNuywt7aw1L5YEs/WIsbvd7X5oHagjFhspaqpmfMuLAV6on D5JENHyh3cMFAPuR
Bw3YPVwAsB950IDdwwUA+zWSB9+N4QJwAfKgAQwXgAu8LQ+YmJiYmGqb3pMH 016ZSiaGi4mJ6YLp
nXmQa4gZwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXIgwYwXAAu8PY8mP7n sf4cNGuedvL/K5es
nm2TbVDYJi/Ig/UD5M5uGQBWb88Dq/jnv8fgZJ0tWT3bJtugsE2elwfrp0rz 8dIAXuj9eRDWzHwc
vKjO/nmv6afOA/F1BcFnXwPAYRXkgV80dRyID9yPfzOmaOQ36Xvjvopcfd7d ffnWSFlr/V5NxFcE
bA3y/Rx/PvQFAUF8yl4d2iIABGrIA11ZVdkcq/C8IPj6M2OB+HEu0Obpc5AH ah1RvsNSbn9XZ0k/
yQMAVasiD4Iy7tU4ee4dFGt9mu6Xa7taGtcHv97qwS6CLXkXEI9MP08gDwBc oI482OqwV3rnuzTj
jKE366xeY1uQKsU788D+g0Z4kZHs5wnkAYALVJIHa8l1/3pxEJ7677g+eEke 2JvyAyPTzxP4ezKA
C9SSB3NJ7VUcyFPt5V6Mcd4tCrBdzwM788C+HPHzINdP79JnB95vCuAC1eTB csvFq3Dr3Of8+1ZQ
vWK/FGFR2V+aBw/dkSHYSEk/X5YHsbECgDPqyQNEMVwALkAeNIDhAnAB8qAB DBeAC5AHDWC4AFyA
PGgAwwXgAm/LAyYmJiam2qb35MG0V6aSieFiYmK6YHpnHuQaYsZwAbgAedAA hgvABciDBjBcAC5A
HjSA4QJwAfKgAQwXgAu8PQ+mT3zTH/NmzdNe8znSrVB58Pu4dY9OTNsoLIvW GZM+mNmvq9+eK/mr
y2kQi4ZIm04sut3Fbqa1IqvYz26iD4t9nY/tfcjv6PnY7+eBI3oYffi8p2yw ljiRMTR2+jC66r3C
7zextFeL5Lpq45NINxJDZ4/Yp3t7HljFX33kqOnb82AQS/v1BTC90m76VTS4 CnLTv+vig2H9l4Fa
tV+qj37FyjabsLR5jdOFI9LG9XCtgMc6bzbIth+rT9/rupPbiO3LnjIpNob2 ThMDNR2a2I7LhvWh
Lvd9EAn5p1L+ppUc9Yd6fx6EtT0fB+SBXDwsr65x0f2uXgzPV1F/31Z5vjC8 l8r2Mgu3HL5Qc8VF
7f1FxaVfXuoHO1/yMNZg70ZM3/eUqUXWNu2dJgZK/Br4a03lXq42WHlTcGjz LkqO+kNVkAfmNw14
X2Mwi325QeL7D3rx7ZXhdxhE1q1MJg+83+Nfd775KxZtrwTzF13XJrV0f3EZ xhfn4K1uPjRlj85r
X9L5kofBHHe2ONbcZ/E9VS4jzT77KZuXJMfQ2GlioLwLAinXyaKnckQe1JAH urqrr40ZxBdRypwI
v4sm8v1oZsyItdcfa77iyObBfH4kXmnL+I2vhHRpiC81zkPHH/xbq16bIXL2 WvIyC9pkruJLOu+1
NB8G7bez0cG/YbWtVXJEkWYf/JStMmMY7jQxUKPe6/9k8G/0eYqeyuA3zR6x T1dFHgS12jtRl9cI
4rvGvIrubelX/11CX3WsOeOnRpX25sHvcjHu7jyI+Q/vOnoSLxxFV/Thdtbq drS4eC/FeZXDnfda
iofR9rrE9Ovt+wNHFGn2YU+Z0aZgDP2dJgZK62WNTudBshv2b1rJUX+oOvJg q9ZeHMx3eMYZg7jz
4+eBcSNJ54SMlIW6jpjUmQvZPPCvc3/n+w+99zIzf9HNmw/jz+Km2r7i4n7u g8YlL7PC7a9KOi9m
DubDoL16H4ssPQeOKNLs45+yojH0dpoYqNDYWI2hpagbnpKj/lCV5MEaCO5f Lw7CU/9H+fWBdbvI
JuOmMvm/Jwd3VPrpLZXB/B1/nByLzjxge4vLdJ57141LXma51/aRzj+sBiUH qxsbpafkiMxmH/+U
FY+h2mlioKzrpPXSwb+GiD1f6UW6jb3o09WSB3Pp71UcyBq9nMYH1weq1Ps3 nkR9l4Gw/bztwbsy
qUn2/abhlbgrGfpNjYNYfR2Vl795cdAPu2DO9tCUbnOs82aDeHv/Dw/LUjeY uY3Yvu8p2zuGxuXO
qBcH7s70xROq3ois479fLgJ2dEMqOeoPVU0ezJXZP0Vf5z7n37eK7RV7cc8n 9hYkb2Nb4bfWrUyY
B/L617hF8Mic8G5/l0tUzLVlcEXvX4B3+pb3uj1ZuR729n0FbXZ33mwQb2/f oJjOT3Mbef6GGb9E
X/CUyS0/q+2OMZQ7TQzUtIFeLPX+ZjCIRcuTvqsbm8SIfbp68gBRDFczfu+9 UYGANpAHDZDDFZ62
MFUyPSJxkF2RqZXp45EHDfjA4YpcknNuXS+esi9AHjSA4QJwAfKgAQwXgAuQ Bw1guABc4DPyIPrf
0+w2rXn1cAGAgTxowKuHCwAMn5EHAnkAAIdUkAdzob4v/09Y/gdP8z8PhzPD 64Nwa9bnGU3E/xa1
t/zu/7dMHgC4QDV5EH4AUeSDida6bt8kCrdmfOSR/TFH0S2TBwC+QDV5sJyk G4Vfz58LvrrxE/37
gV34VehMj8ZPczG2XAXyAMAFqsuD7ZE+NQ8vASb29UG4NX/DHpkZcstVIA8A XKC6PMheH2y8z6o+
en1gkPeZKkAeALhANXlQ/PcDLwX86IhuLfL3g5It8/cDAF+gmjzY3hEkT8vF DZytKIczw+uDPe8v
ym6ZPADwBerJgyG1zncjDwBcgDxoAHkA4ALkQQPIAwAXqCAPkMNwAbgAedAA hgvABd6WB0xMTExM
tU3vyYNpr0xMTExMtU25Ku47lQfZ3jAxMTExvWvKVXHf8TwAAHwS8gAA4JAH AACHPAAAOOQBAMAh
DwAADnkAAHDIAwCAQx4AABzyAADgkAcAAIc8AAA45AEAwCEPAAAOeQAAcMgD AIBDHgAAHPIAAOD8
Pz0q02LnG3lOAAAAAElFTkSuQmCC
------=_NextPart_000_000A_01C73ED2.203D21C0--

Attached files
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Forzar report a LANDSCAPE

Mensaje por ignacio »

This is a multi-part message in MIME format.
------=_NextPart_000_004A_01C73EDD.C368AC60
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_004B_01C73EDD.C368AC60"
------=_NextPart_001_004B_01C73EDD.C368AC60
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Jos=E9 Luis,=20
Supongo que tu expresi=F3n es demasiado compleja por el uso de IF() y =
por englobar varias intrucciones en uno de sus parametros y el =
preprocesador de xHarbour se hace alg=FAn l=EDo. Puedes comentarlo en el =
foro de xHarbour.
No obstante, no llego a entender bien cl=E1usulas como esta:
PICTURE IF( a, (b,c), d )
Esto se bloquifica, y sino me equivoco al final el valor del picture =
quedar=E1 como IF(a, c, d) y siempre as=ED.=20
Si lo que quieres es que en algunos casos una columna tengas dos filas =
de datos o s=F3lo uno, me temo que la =FAnica forma es realizando dos =
comandos COLUMN, que en mi opini=F3n, dejar=E1n el c=F3digo mucho m=E1s =
leible.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel - Aicom" <jose.luis@iaicom.com> escribi=F3 en el =
mensaje news:[email=45b5c916@news.xailer.com...]45b5c916@news.xailer.com...[/email]
Ignacio,
Gracias por la respuesta. Sab=EDa que era f=E1cil... pero no tanto =
:-)
Por cierto... Esta linea:
COLUMN OF oReport ;
TITLE "ST. ANTER", IF( lMuestraEnvases, =
("Unidades","Envases"), "Unidades") ;
DATA if( lMuestraEnvases, (odbitCarga:nStkIni2, =
odbitCarga:nStkIni3), odbitCarga:nStkIni3 ) ;
PICTURE IF( lMuestraEnvases, =
(AicomGlobal:oTabPicture[5]:cCantidad,AicomGlobal:oTabPictur e[5]:cCantida=
d),AicomGlobal:oTabPicture[5]:cCantidad) ;
ALIGN taRIGHT ;
CHARSIZE 9
Me da estos dos warnings que no acabo de ver el por qu=E9
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: =
'String'
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: ':'
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: ':'
La linea 1898 corresponde al c=F3digo mostrado.
Saludos y gracias nuevamente por tu ayuda.
Jos=E9 Luis Capel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45b51505$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel - Aicom" <jose.luis@iaicom.com> escribi=F3 en el =
mensaje news:[email=45b50e18@news.xailer.com...]45b50e18@news.xailer.com...[/email]
> Hola,
>=20
> Debe ser f=E1cil pero no he sabido como forzar un report a que =
siempre imprima=20
> en LANDSCAPE independientemente de la impresora que haya por =
defecto y del=20
> formato de papel.
>=20
> A ver si alguien me gu=EDa :-)
> Saludos y gracias!
> Jos=E9 Luis Capel=20
>=20
>
------=_NextPart_001_004B_01C73EDD.C368AC60
Content-Type: text/html;
charset="iso-8859-1"
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=3Diso-8859-1">
<META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Supongo que tu expresi=F3n es demasiado =
compleja por=20
el uso de IF() y por englobar varias intrucciones en uno de sus =
parametros y el=20
preprocesador de xHarbour se hace alg=FAn l=EDo. Puedes comentarlo en el =
foro de=20
xHarbour.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No obstante, no llego a entender bien =
cl=E1usulas=20
como esta:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ PICTURE IF( a, =
(b,c), d=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Esto se bloquifica, y sino me equivoco =
al final el=20
valor del picture quedar=E1 como IF(a, c, d) y siempre as=ED. =
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si lo que quieres es que en algunos =
casos una=20
columna tengas dos filas de datos o s=F3lo uno, me temo que la =FAnica =
forma es=20
realizando dos comandos COLUMN, que en mi opini=F3n, dejar=E1n el =
c=F3digo mucho m=E1s=20
leible. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</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>"Jos=E9 Luis Capel - Aicom" <<A=20
href=3D"mailto:jose.luis@iaicom.com">jose.luis@iaicom.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:45b5c916@news.xailer.com">news:45b5c916@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias por la respuesta. =
Sab=EDa que era=20
f=E1cil... pero no tanto :-)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Por cierto... Esta =
linea:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ COLUMN OF oReport=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
TITLE "ST. ANTER", IF( lMuestraEnvases, ("Unidades","Envases"), =
"Unidades")=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
DATAÂ if( lMuestraEnvases, (odbitCarga:nStkIni2, =
odbitCarga:nStkIni3),=20
odbitCarga:nStkIni3 )=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
PICTURE IF( lMuestraEnvases,=20
=
(AicomGlobal:oTabPicture[5]:cCantidad,AicomGlobal:oTabPictur e[5]:cCantida=
d),AicomGlobal:oTabPicture[5]:cCantidad)=20
;<BR> ÂÂÂÂÂÂ ÂÂ ALIGN taRIGHT=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
CHARSIZE 9<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me da estos dos warnings que no acabo =
de ver el=20
por qu=E9</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>tHistoric.prg(1898) Warning =
W0027Â=20
Meaningless use of expression: 'String'<BR>tHistoric.prg(1898) Warning =
W0027Â Meaningless use of expression: ':'<BR>tHistoric.prg(1898) =
Warning=20
W0027Â Meaningless use of expression: ':'</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La linea 1898 corresponde al c=F3digo =
mostrado.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos y gracias nuevamente por tu=20
ayuda.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis Capel</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV>
<DIV><BR></FONT>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> escribi=F3 =
en el=20
mensaje <A=20
=
href=3D"news:45b51505$1@news.xailer.com">news:45b51505$1@news.xailer.com<=
/A>...</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:004501c73ed5$619d1870$1700000a@ozlan.local" =
align=3Dbaseline=20
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR><FONT face=3DArial size=3D2>-- <BR>Ignacio Ortiz de =
Z=FA=F1iga<BR></FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel - Aicom" =
<</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3=20
en el mensaje </FONT><A href=3D"news:45b50e18@news.xailer.com"><FONT =
face=3DArial size=3D2>news:45b50e18@news.xailer.com</FONT></A><FONT =
face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Hola,<BR>> <BR>>=20
Debe ser f=E1cil pero no he sabido como forzar un report a que =
siempre imprima=20
<BR>> en LANDSCAPE independientemente de la impresora que haya =
por=20
defecto y del <BR>> formato de papel.<BR>> <BR>> A ver si =
alguien=20
me gu=EDa :-)<BR>> Saludos y gracias!<BR>> Jos=E9 Luis Capel =
<BR>>=20
<BR>></FONT> </BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_004B_01C73EDD.C368AC60--
------=_NextPart_000_004A_01C73EDD.C368AC60
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <004501c73ed5$619d1870$1700000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAgUAAADYCAIAAAD0wQeCAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAT+ElEQVR4nO3d3ZGruraGYaJaMTiDlQg7jn19 qhzAutg50GHsu74+
VScHH4vfMaShH8ATS/b7FFWzDQKE3B4f0J529wMAwM9Pl2sAAPgKXa4BAOAr dLkGAICv0OUaAAC+
QpdrAAD4Cp188M+//uqK/P3vZ+t//51s89e//rF3aVm3tWstw/MQxs7Vyhji A4f8suEqdHJUg9Wv
7j+AEp188NI8cIpf7q8oEEvvz1SuPyk9Xrt6/YrhKnRyVO3VL+w/gGKdfPDy POhK68j5ArH1pmyP
1yoa2fJjPz9chU6Oamz1y/oPYIcutTBdDeJLVVIcKiT7naxcf5ROA1UDE4tq cHJUT64O4FJdauHR
PFBlbqlx66znjGCxdcIoV/jxQkbt0r5QUZ3STYKym+rb9vhI3/ydpwdSLN89 XMbGrOXFPc+OanjN
U7x68vrA326yTe4oAJTrUguP54F8hc5Lt5fwX/L1Pi1N58Hff1t3W9am6coV u1UjO53qWyYPMn37
sYYiYDTZPVxlR1re8/So2kuzDXJ5EN2s17D4KACU61ILj+dB6vpASRSI/D13 f2VjYbTAdHJfqb6l
8yAqPNFPnbhu3Tw8XGVHWt7zolE1ejvPOpAHqSPo9OgVHwWAcl1q4dE8UC9s 8zw9ukascm3z5cbF
ZszeGLGUPhn31o/a0bew1Ke3N6+3c7hKj3RPz38io7rN3WbaqRf7Fck93ZGY M3dXcBQAinSphaV5
kGCeg4eFMVMg1O7LS495av9j7C3ZN8uOvp3Pg4LhKj7SPT3/yf0GSGbLHXkQ v4yyluw7CgBFutTC
03kgV4uVLL0tMw+8FYpLT76HQfEti4M9fTudByXDVXyke3oemympE/Xi1ctj Si8zmpccBYAiXWrh
mTwIqti+Apdaobhy5avkvOU/mQdFp6xhaOwbruIj3dPz2Ey1lVDB6qk8SB3u wVQDUKRLLSzNg6KX
Xtkr3swDb/vFlau4hyfyIN83Uatj3TCa7Buu4iPd1fPIzCAM3LLy1X+M/ieP IHl9UHIUAIp0qYWt
50HRqblu+AfyQJ28pwdSLN83XMVHuq/nO0a1eHU1fzu2+BFYS/YdBYAiXWph 63mgzmSNWrLO+7N5
4J9Qy1X0opK7ZU44XKVHurPn6XizDzH3pPxY/ddHIGbbYbrvKAAU6VIL28wD taVgdtBC7yrsm7ls
X9+CRLCpfe8errIj3dlza1TFsYS3q/Krq/nq2FJH0MVitOQoABTpUgtbyoOg mhi3Uszlus0fygO9
yOI33z1cZUe6t+fmqKaPRO4u8qTY/U/FZrRh0VEAKNGlFjaVB4l7L0Gd2VN8 X5YH3oorYzh+DgyX
v9ok6MXuntujqueOa5SEVCYPJl6IWG12HwWAvC7XAADwFbpcAwDAV+hyDQAA X6HLNQAAfIUu1wAA
8BW6XAMAwFfocg0AAF+hyzUAAHyF7gEAwONBHgAAHPIAAOCQBwAAhzwAADjk AQDAIQ8AAA55AABw
yAMAgEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzy AADgkAcAAIc8AAA4
5AEAwCEPAAAOeQAAcMgDAIBDHgAAHPIAAOCQBwAAhzwAADjn82Dou8Xt/ms2 +b3fun4wF71WuCM3
59C+y/tc3jIt29VX7QgALOfyQJewbEHb4UW17xlWB7dS3oHylknHuwoAr3Am D1wh9C4J3MXCS6ra
i4rsceUdKG8JABU7kQdmHVwD4bn01vfPC4bnQ9lyvIhQd5fGpfdl9jh3vQe1 tBE3pbzrETVv944C
y47Gvsc3Jcmdmv3ULdcObMvNtdae3O/9tN91R7EDSe8dAJJenQeqZoVleuhV id9aznPVTFUa5wfu
x6mtmKkL5bIjuUp8R5K44BlLa7zP/lrmToPwmHJlarHty1rL70mYB+GB5PYO AEkn8iBdHEVF22aK
0rrNNVuaYfMQm1CbWtirD+L8OtiRtbZ6YPY5utrK6p/sgN1inhf0JMyD1IFE RgcAUk7kgVmJzBN8
WVu1JQ+Clt7GpzPrbrtBokurbJYOnmBH1tqjoU/0ObZa0M9oS9lH8+jChubg lO8dAJJO5IFVk7dr
hlgeJIr4I1Hy1tVOXh/k8mDdZrrPktpp0E+/ZXB9YK0V9KQgD7J7B4CkM3kw n5CuZVU9souvrFPJ
Mi2rm3djfJ4v5oYV018neVq9EgcwmH8/iFb5JTmMfnotg78fmGuJwx9XKsiD 7N4BIOlcHjjifoos
QbHiO9XEkajmYcu53Vr/lj0MW+v8pnS3snnw2I4m8v4ia52gz34/dcvg/UWR tdaeRN5fJNZO7Z0r
BQCFzucBisVCKO3YWgCwE3lwofLKbt0MA4A/ijy4UHkeqNtwpasAwBnkAQDA IQ8AAA55AABwyAMA
gEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzyAADg kAcAAIc8AAA45AEA
wDmeB//3v/9lYmJiYqp2ylVxH3nAxMTE9IHTf/75n1wV953Ng+cumQonhouJ iemCaS01uSrue0Ee
5BpixnABuAB50ACGC8AFKsuDoe+67nb/NRZ9MfIAwAXqygMXB/0Qzv9y5AGA C9SVBzAxXAAuUE8e
/N5vnbP3+mBaz1gruqA5dh64i6mCW2tuGF4xCOZ2XrVxABWoJg/G6n273XZX 8MI8eD7aueF6xOKz
7/u9o3UceQB8ulryYCze/VB4ziuVXAaUtKlYJD774cpyTB4An66SPJjjwL8J Mtfx+3wraUmM5Wez
zbr2GgK/6+rLSmKOt7OdYXQNOz7HQ3kOh+xyeKiqZC+Dd7vf5/XGpeHYPbZh lmO2tTQ2vu27ykEE
kFNHHmylWBflucSMFWf+eVomTvjV/KmMyaIv2qiqKNrPu2soD0QKyEDwS/96 7OsPc9PtsOVBb+/u
Eu/zWgNajmG4ca9LXDQADaoiD2RRUlVZ1fGgdmdqfaRNtH29/DxQFwWi+oqK v1lKtgyLraVcRbVY
DX3YMtyo6pK9IQCVqyEP4hV6fx7YC4I88K5AKi9e1nBpqtDPxFAFeaCqvBw7 PY5yS2aeyDyI9AhA
KyrIA6u+haf4hXnw+dcH4cm3OnMPZso8UDEYzwPV9MD1AYAmvT8PpvosiomY UZ4H84LYxcU438iA
9v5+YN6cn6txtLj7VX47VHMV788H4rmY10///YBwANr09jwI4kDOKs+D1PuL 1pW9SwfdvI08iJTa
pUCLA1uOXFb8bRTuyftF22Zu90FeCiyjvPTBX13vGkBT3p4HyHv9cMk6DgAj 8qABrxmu3BuRAHw5
8qABrxou8SYgLg4A+MiDBjBcAC5AHjSA4QJwgbflARMTExNTbdN78mDaK1PJ xHAxMTFdML0zD3IN
MWO4AFyAPGgAwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXenwfBJ+ev/39W fSDdN1N5EH7s3qs+
jGjcsrGhV20fQN3enwcLu86RBw8rD9SwvKheP4P5BVsB0Kya8wCzIA/c507r D+qmkgM4q+Y8KPmS
g3WZN/uj0iXMg8H9E3xvgfllBup7C+Y1t3tyW2M9gs85t76fxj/7JQfh6gAa 1FQedOGXmrX3ZWcH
WHkg7u/k80B+r5n4OfhJf/GZ/HTs6UfvI7ODmeaXtwFoRFN5sJQa70scjfmf xc6D8RxefcdZNA/k
15kFX22mvnJtmZtvuZA75ZsygZY1mQfbI72SbvU5Inkw/vz8MZ8HwUz5c/AG r2Vg/ZYyIzZmnABo
UJN5wPXBsCxyN43up/MgfdZf3pLrA6BlTeUBfz94BKfg88hMc7b79+PssjxQ RXz5OdpymbtdLPD3
A+BDNJUH6m0yXrNuywt7aw1L5YEs/WIsbvd7X5oHagjFhspaqpmfMuLAV6on D5JENHyh3cMFAPuR
Bw3YPVwAsB950IDdwwUA+zWSB9+N4QJwAfKgAQwXgAu8LQ+YmJiYmGqb3pMH 016ZSiaGi4mJ6YLp
nXmQa4gZwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXIgwYwXAAu8PY8mP7n sf4cNGuedvL/K5es
nm2TbVDYJi/Ig/UD5M5uGQBWb88Dq/jnv8fgZJ0tWT3bJtugsE2elwfrp0rz 8dIAXuj9eRDWzHwc
vKjO/nmv6afOA/F1BcFnXwPAYRXkgV80dRyID9yPfzOmaOQ36Xvjvopcfd7d ffnWSFlr/V5NxFcE
bA3y/Rx/PvQFAUF8yl4d2iIABGrIA11ZVdkcq/C8IPj6M2OB+HEu0Obpc5AH ah1RvsNSbn9XZ0k/
yQMAVasiD4Iy7tU4ee4dFGt9mu6Xa7taGtcHv97qwS6CLXkXEI9MP08gDwBc oI482OqwV3rnuzTj
jKE366xeY1uQKsU788D+g0Z4kZHs5wnkAYALVJIHa8l1/3pxEJ7677g+eEke 2JvyAyPTzxP4ezKA
C9SSB3NJ7VUcyFPt5V6Mcd4tCrBdzwM788C+HPHzINdP79JnB95vCuAC1eTB csvFq3Dr3Of8+1ZQ
vWK/FGFR2V+aBw/dkSHYSEk/X5YHsbECgDPqyQNEMVwALkAeNIDhAnAB8qAB DBeAC5AHDWC4AFyA
PGgAwwXgAm/LAyYmJiam2qb35MG0V6aSieFiYmK6YHpnHuQaYsZwAbgAedAA hgvABciDBjBcAC5A
HjSA4QJwAfKgAQwXgAu8PQ+mT3zTH/NmzdNe8znSrVB58Pu4dY9OTNsoLIvW GZM+mNmvq9+eK/mr
y2kQi4ZIm04sut3Fbqa1IqvYz26iD4t9nY/tfcjv6PnY7+eBI3oYffi8p2yw ljiRMTR2+jC66r3C
7zextFeL5Lpq45NINxJDZ4/Yp3t7HljFX33kqOnb82AQS/v1BTC90m76VTS4 CnLTv+vig2H9l4Fa
tV+qj37FyjabsLR5jdOFI9LG9XCtgMc6bzbIth+rT9/rupPbiO3LnjIpNob2 ThMDNR2a2I7LhvWh
Lvd9EAn5p1L+ppUc9Yd6fx6EtT0fB+SBXDwsr65x0f2uXgzPV1F/31Z5vjC8 l8r2Mgu3HL5Qc8VF
7f1FxaVfXuoHO1/yMNZg70ZM3/eUqUXWNu2dJgZK/Br4a03lXq42WHlTcGjz LkqO+kNVkAfmNw14
X2Mwi325QeL7D3rx7ZXhdxhE1q1MJg+83+Nfd775KxZtrwTzF13XJrV0f3EZ xhfn4K1uPjRlj85r
X9L5kofBHHe2ONbcZ/E9VS4jzT77KZuXJMfQ2GlioLwLAinXyaKnckQe1JAH urqrr40ZxBdRypwI
v4sm8v1oZsyItdcfa77iyObBfH4kXmnL+I2vhHRpiC81zkPHH/xbq16bIXL2 WvIyC9pkruJLOu+1
NB8G7bez0cG/YbWtVXJEkWYf/JStMmMY7jQxUKPe6/9k8G/0eYqeyuA3zR6x T1dFHgS12jtRl9cI
4rvGvIrubelX/11CX3WsOeOnRpX25sHvcjHu7jyI+Q/vOnoSLxxFV/Thdtbq drS4eC/FeZXDnfda
iofR9rrE9Ovt+wNHFGn2YU+Z0aZgDP2dJgZK62WNTudBshv2b1rJUX+oOvJg q9ZeHMx3eMYZg7jz
4+eBcSNJ54SMlIW6jpjUmQvZPPCvc3/n+w+99zIzf9HNmw/jz+Km2r7i4n7u g8YlL7PC7a9KOi9m
DubDoL16H4ssPQeOKNLs45+yojH0dpoYqNDYWI2hpagbnpKj/lCV5MEaCO5f Lw7CU/9H+fWBdbvI
JuOmMvm/Jwd3VPrpLZXB/B1/nByLzjxge4vLdJ57141LXma51/aRzj+sBiUH qxsbpafkiMxmH/+U
FY+h2mlioKzrpPXSwb+GiD1f6UW6jb3o09WSB3Pp71UcyBq9nMYH1weq1Ps3 nkR9l4Gw/bztwbsy
qUn2/abhlbgrGfpNjYNYfR2Vl795cdAPu2DO9tCUbnOs82aDeHv/Dw/LUjeY uY3Yvu8p2zuGxuXO
qBcH7s70xROq3ois479fLgJ2dEMqOeoPVU0ezJXZP0Vf5z7n37eK7RV7cc8n 9hYkb2Nb4bfWrUyY
B/L617hF8Mic8G5/l0tUzLVlcEXvX4B3+pb3uj1ZuR729n0FbXZ33mwQb2/f oJjOT3Mbef6GGb9E
X/CUyS0/q+2OMZQ7TQzUtIFeLPX+ZjCIRcuTvqsbm8SIfbp68gBRDFczfu+9 UYGANpAHDZDDFZ62
MFUyPSJxkF2RqZXp45EHDfjA4YpcknNuXS+esi9AHjSA4QJwAfKgAQwXgAuQ Bw1guABc4DPyIPrf
0+w2rXn1cAGAgTxowKuHCwAMn5EHAnkAAIdUkAdzob4v/09Y/gdP8z8PhzPD 64Nwa9bnGU3E/xa1
t/zu/7dMHgC4QDV5EH4AUeSDida6bt8kCrdmfOSR/TFH0S2TBwC+QDV5sJyk G4Vfz58LvrrxE/37
gV34VehMj8ZPczG2XAXyAMAFqsuD7ZE+NQ8vASb29UG4NX/DHpkZcstVIA8A XKC6PMheH2y8z6o+
en1gkPeZKkAeALhANXlQ/PcDLwX86IhuLfL3g5It8/cDAF+gmjzY3hEkT8vF DZytKIczw+uDPe8v
ym6ZPADwBerJgyG1zncjDwBcgDxoAHkA4ALkQQPIAwAXqCAPkMNwAbgAedAA hgvABd6WB0xMTExM
tU3vyYNpr0xMTExMtU25Ku47lQfZ3jAxMTExvWvKVXHf8TwAAHwS8gAA4JAH AACHPAAAOOQBAMAh
DwAADnkAAHDIAwCAQx4AABzyAADgkAcAAIc8AAA45AEAwCEPAAAOeQAAcMgD AIBDHgAAHPIAAOD8
Pz0q02LnG3lOAAAAAElFTkSuQmCC
------=_NextPart_000_004A_01C73EDD.C368AC60--

Attached files
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Forzar report a LANDSCAPE

Mensaje por ignacio »

This is a multi-part message in MIME format.
------=_NextPart_000_0068_01C73EDF.06158050
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0069_01C73EDF.06158050"
------=_NextPart_001_0069_01C73EDF.06158050
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
>>leible.
Quise decir legible.=20
Un saludo
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:[email=45b5dcdb@news.xailer.com...]45b5dcdb@news.xailer.com...[/email]
Jos=E9 Luis,=20
Supongo que tu expresi=F3n es demasiado compleja por el uso de IF() y =
por englobar varias intrucciones en uno de sus parametros y el =
preprocesador de xHarbour se hace alg=FAn l=EDo. Puedes comentarlo en el =
foro de xHarbour.
No obstante, no llego a entender bien cl=E1usulas como esta:
PICTURE IF( a, (b,c), d )
Esto se bloquifica, y sino me equivoco al final el valor del picture =
quedar=E1 como IF(a, c, d) y siempre as=ED.=20
Si lo que quieres es que en algunos casos una columna tengas dos filas =
de datos o s=F3lo uno, me temo que la =FAnica forma es realizando dos =
comandos COLUMN, que en mi opini=F3n, dejar=E1n el c=F3digo mucho m=E1s =
leible.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel - Aicom" <jose.luis@iaicom.com> escribi=F3 en el =
mensaje news:[email=45b5c916@news.xailer.com...]45b5c916@news.xailer.com...[/email]
Ignacio,
Gracias por la respuesta. Sab=EDa que era f=E1cil... pero no tanto =
:-)
Por cierto... Esta linea:
COLUMN OF oReport ;
TITLE "ST. ANTER", IF( lMuestraEnvases, =
("Unidades","Envases"), "Unidades") ;
DATA if( lMuestraEnvases, (odbitCarga:nStkIni2, =
odbitCarga:nStkIni3), odbitCarga:nStkIni3 ) ;
PICTURE IF( lMuestraEnvases, =
(AicomGlobal:oTabPicture[5]:cCantidad,AicomGlobal:oTabPictur e[5]:cCantida=
d),AicomGlobal:oTabPicture[5]:cCantidad) ;
ALIGN taRIGHT ;
CHARSIZE 9
Me da estos dos warnings que no acabo de ver el por qu=E9
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: =
'String'
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: =
':'
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: =
':'
La linea 1898 corresponde al c=F3digo mostrado.
Saludos y gracias nuevamente por tu ayuda.
Jos=E9 Luis Capel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45b51505$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel - Aicom" <jose.luis@iaicom.com> escribi=F3 en =
el mensaje news:[email=45b50e18@news.xailer.com...]45b50e18@news.xailer.com...[/email]
> Hola,
>=20
> Debe ser f=E1cil pero no he sabido como forzar un report a que =
siempre imprima=20
> en LANDSCAPE independientemente de la impresora que haya por =
defecto y del=20
> formato de papel.
>=20
> A ver si alguien me gu=EDa :-)
> Saludos y gracias!
> Jos=E9 Luis Capel=20
>=20
>
------=_NextPart_001_0069_01C73EDF.06158050
Content-Type: text/html;
charset="iso-8859-1"
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=3Diso-8859-1">
<META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>>>leible.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Quise decir legible. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR>-- <BR>Ignacio Ortiz de =
Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</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>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> escribi=F3 =
en el=20
mensaje <A=20
=
href=3D"news:45b5dcdb@news.xailer.com">news:45b5dcdb@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Supongo que tu expresi=F3n es =
demasiado compleja=20
por el uso de IF() y por englobar varias intrucciones en uno de sus =
parametros=20
y el preprocesador de xHarbour se hace alg=FAn l=EDo. Puedes =
comentarlo en el foro=20
de xHarbour.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No obstante, no llego a entender bien =
cl=E1usulas=20
como esta:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ PICTURE IF( a, =
(b,c), d=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Esto se bloquifica, y sino me =
equivoco al final=20
el valor del picture quedar=E1 como IF(a, c, d) y siempre as=ED. =
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si lo que quieres es que en algunos =
casos una=20
columna tengas dos filas de datos o s=F3lo uno, me temo que la =FAnica =
forma es=20
realizando dos comandos COLUMN, que en mi opini=F3n, dejar=E1n el =
c=F3digo mucho m=E1s=20
leible. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</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>"Jos=E9 Luis Capel - Aicom" <<A=20
href=3D"mailto:jose.luis@iaicom.com">jose.luis@iaicom.com</A>> =
escribi=F3 en=20
el mensaje <A=20
=
href=3D"news:45b5c916@news.xailer.com">news:45b5c916@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias por la respuesta. =
Sab=EDa que era=20
f=E1cil... pero no tanto :-)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Por cierto... Esta =
linea:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ COLUMN OF =
oReport=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
TITLE "ST. ANTER", IF( lMuestraEnvases, ("Unidades","Envases"), =
"Unidades")=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
DATAÂ if( lMuestraEnvases, (odbitCarga:nStkIni2, =
odbitCarga:nStkIni3),=20
odbitCarga:nStkIni3 )=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
PICTURE IF( lMuestraEnvases,=20
=
(AicomGlobal:oTabPicture[5]:cCantidad,AicomGlobal:oTabPictur e[5]:cCantida=
d),AicomGlobal:oTabPicture[5]:cCantidad)=20
;<BR> ÂÂÂÂÂÂ ÂÂ ALIGN taRIGHT=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
CHARSIZE 9<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me da estos dos warnings que no =
acabo de ver el=20
por qu=E9</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>tHistoric.prg(1898) Warning =
W0027Â=20
Meaningless use of expression: 'String'<BR>tHistoric.prg(1898) =
Warning=20
W0027Â Meaningless use of expression: =
':'<BR>tHistoric.prg(1898)=20
Warning W0027Â Meaningless use of expression: ':'</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La linea 1898 corresponde al =
c=F3digo=20
mostrado.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos y gracias nuevamente por tu =
ayuda.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis Capel</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV>
<DIV><BR></FONT>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:45b51505$1@news.xailer.com">news:45b51505$1@news.xailer.com<=
/A>...</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:006301c73ed6$a44c5d60$1700000a@ozlan.local" =
align=3Dbaseline=20
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR><FONT face=3DArial size=3D2>-- <BR>Ignacio Ortiz de=20
Z=FA=F1iga<BR></FONT><A href=3D"http://www.xailer.com"><FONT =
face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel - Aicom" =
<</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje </FONT><A=20
href=3D"news:45b50e18@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:45b50e18@news.xailer.com</FONT></A><FONT =
face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Hola,<BR>> <BR>>=20
Debe ser f=E1cil pero no he sabido como forzar un report a que =
siempre=20
imprima <BR>> en LANDSCAPE independientemente de la impresora =
que haya=20
por defecto y del <BR>> formato de papel.<BR>> <BR>> A =
ver si=20
alguien me gu=EDa :-)<BR>> Saludos y gracias!<BR>> Jos=E9 =
Luis Capel=20
<BR>> <BR>></FONT> =
</BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0069_01C73EDF.06158050--
------=_NextPart_000_0068_01C73EDF.06158050
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <006301c73ed6$a44c5d60$1700000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAgUAAADYCAIAAAD0wQeCAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAT+ElEQVR4nO3d3ZGruraGYaJaMTiDlQg7jn19 qhzAutg50GHsu74+
VScHH4vfMaShH8ATS/b7FFWzDQKE3B4f0J529wMAwM9Pl2sAAPgKXa4BAOAr dLkGAICv0OUaAAC+
QpdrAAD4Cp188M+//uqK/P3vZ+t//51s89e//rF3aVm3tWstw/MQxs7Vyhji A4f8suEqdHJUg9Wv
7j+AEp188NI8cIpf7q8oEEvvz1SuPyk9Xrt6/YrhKnRyVO3VL+w/gGKdfPDy POhK68j5ArH1pmyP
1yoa2fJjPz9chU6Oamz1y/oPYIcutTBdDeJLVVIcKiT7naxcf5ROA1UDE4tq cHJUT64O4FJdauHR
PFBlbqlx66znjGCxdcIoV/jxQkbt0r5QUZ3STYKym+rb9vhI3/ydpwdSLN89 XMbGrOXFPc+OanjN
U7x68vrA326yTe4oAJTrUguP54F8hc5Lt5fwX/L1Pi1N58Hff1t3W9am6coV u1UjO53qWyYPMn37
sYYiYDTZPVxlR1re8/So2kuzDXJ5EN2s17D4KACU61ILj+dB6vpASRSI/D13 f2VjYbTAdHJfqb6l
8yAqPNFPnbhu3Tw8XGVHWt7zolE1ejvPOpAHqSPo9OgVHwWAcl1q4dE8UC9s 8zw9ukascm3z5cbF
ZszeGLGUPhn31o/a0bew1Ke3N6+3c7hKj3RPz38io7rN3WbaqRf7Fck93ZGY M3dXcBQAinSphaV5
kGCeg4eFMVMg1O7LS495av9j7C3ZN8uOvp3Pg4LhKj7SPT3/yf0GSGbLHXkQ v4yyluw7CgBFutTC
03kgV4uVLL0tMw+8FYpLT76HQfEti4M9fTudByXDVXyke3oemympE/Xi1ctj Si8zmpccBYAiXWrh
mTwIqti+Apdaobhy5avkvOU/mQdFp6xhaOwbruIj3dPz2Ey1lVDB6qk8SB3u wVQDUKRLLSzNg6KX
Xtkr3swDb/vFlau4hyfyIN83Uatj3TCa7Buu4iPd1fPIzCAM3LLy1X+M/ieP IHl9UHIUAIp0qYWt
50HRqblu+AfyQJ28pwdSLN83XMVHuq/nO0a1eHU1fzu2+BFYS/YdBYAiXWph 63mgzmSNWrLO+7N5
4J9Qy1X0opK7ZU44XKVHurPn6XizDzH3pPxY/ddHIGbbYbrvKAAU6VIL28wD taVgdtBC7yrsm7ls
X9+CRLCpfe8errIj3dlza1TFsYS3q/Krq/nq2FJH0MVitOQoABTpUgtbyoOg mhi3Uszlus0fygO9
yOI33z1cZUe6t+fmqKaPRO4u8qTY/U/FZrRh0VEAKNGlFjaVB4l7L0Gd2VN8 X5YH3oorYzh+DgyX
v9ok6MXuntujqueOa5SEVCYPJl6IWG12HwWAvC7XAADwFbpcAwDAV+hyDQAA X6HLNQAAfIUu1wAA
8BW6XAMAwFfocg0AAF+hyzUAAHyF7gEAwONBHgAAHPIAAOCQBwAAhzwAADjk AQDAIQ8AAA55AABw
yAMAgEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzy AADgkAcAAIc8AAA4
5AEAwCEPAAAOeQAAcMgDAIBDHgAAHPIAAOCQBwAAhzwAADjn82Dou8Xt/ms2 +b3fun4wF71WuCM3
59C+y/tc3jIt29VX7QgALOfyQJewbEHb4UW17xlWB7dS3oHylknHuwoAr3Am D1wh9C4J3MXCS6ra
i4rsceUdKG8JABU7kQdmHVwD4bn01vfPC4bnQ9lyvIhQd5fGpfdl9jh3vQe1 tBE3pbzrETVv944C
y47Gvsc3Jcmdmv3ULdcObMvNtdae3O/9tN91R7EDSe8dAJJenQeqZoVleuhV id9aznPVTFUa5wfu
x6mtmKkL5bIjuUp8R5K44BlLa7zP/lrmToPwmHJlarHty1rL70mYB+GB5PYO AEkn8iBdHEVF22aK
0rrNNVuaYfMQm1CbWtirD+L8OtiRtbZ6YPY5utrK6p/sgN1inhf0JMyD1IFE RgcAUk7kgVmJzBN8
WVu1JQ+Clt7GpzPrbrtBokurbJYOnmBH1tqjoU/0ObZa0M9oS9lH8+jChubg lO8dAJJO5IFVk7dr
hlgeJIr4I1Hy1tVOXh/k8mDdZrrPktpp0E+/ZXB9YK0V9KQgD7J7B4CkM3kw n5CuZVU9souvrFPJ
Mi2rm3djfJ4v5oYV018neVq9EgcwmH8/iFb5JTmMfnotg78fmGuJwx9XKsiD 7N4BIOlcHjjifoos
QbHiO9XEkajmYcu53Vr/lj0MW+v8pnS3snnw2I4m8v4ia52gz34/dcvg/UWR tdaeRN5fJNZO7Z0r
BQCFzucBisVCKO3YWgCwE3lwofLKbt0MA4A/ijy4UHkeqNtwpasAwBnkAQDA IQ8AAA55AABwyAMA
gEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzyAADg kAcAAIc8AAA45AEA
wDmeB//3v/9lYmJiYqp2ylVxH3nAxMTE9IHTf/75n1wV953Ng+cumQonhouJ iemCaS01uSrue0Ee
5BpixnABuAB50ACGC8AFKsuDoe+67nb/NRZ9MfIAwAXqygMXB/0Qzv9y5AGA C9SVBzAxXAAuUE8e
/N5vnbP3+mBaz1gruqA5dh64i6mCW2tuGF4xCOZ2XrVxABWoJg/G6n273XZX 8MI8eD7aueF6xOKz
7/u9o3UceQB8ulryYCze/VB4ziuVXAaUtKlYJD774cpyTB4An66SPJjjwL8J Mtfx+3wraUmM5Wez
zbr2GgK/6+rLSmKOt7OdYXQNOz7HQ3kOh+xyeKiqZC+Dd7vf5/XGpeHYPbZh lmO2tTQ2vu27ykEE
kFNHHmylWBflucSMFWf+eVomTvjV/KmMyaIv2qiqKNrPu2soD0QKyEDwS/96 7OsPc9PtsOVBb+/u
Eu/zWgNajmG4ca9LXDQADaoiD2RRUlVZ1fGgdmdqfaRNtH29/DxQFwWi+oqK v1lKtgyLraVcRbVY
DX3YMtyo6pK9IQCVqyEP4hV6fx7YC4I88K5AKi9e1nBpqtDPxFAFeaCqvBw7 PY5yS2aeyDyI9AhA
KyrIA6u+haf4hXnw+dcH4cm3OnMPZso8UDEYzwPV9MD1AYAmvT8PpvosiomY UZ4H84LYxcU438iA
9v5+YN6cn6txtLj7VX47VHMV788H4rmY10///YBwANr09jwI4kDOKs+D1PuL 1pW9SwfdvI08iJTa
pUCLA1uOXFb8bRTuyftF22Zu90FeCiyjvPTBX13vGkBT3p4HyHv9cMk6DgAj 8qABrxmu3BuRAHw5
8qABrxou8SYgLg4A+MiDBjBcAC5AHjSA4QJwgbflARMTExNTbdN78mDaK1PJ xHAxMTFdML0zD3IN
MWO4AFyAPGgAwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXenwfBJ+ev/39W fSDdN1N5EH7s3qs+
jGjcsrGhV20fQN3enwcLu86RBw8rD9SwvKheP4P5BVsB0Kya8wCzIA/c507r D+qmkgM4q+Y8KPmS
g3WZN/uj0iXMg8H9E3xvgfllBup7C+Y1t3tyW2M9gs85t76fxj/7JQfh6gAa 1FQedOGXmrX3ZWcH
WHkg7u/k80B+r5n4OfhJf/GZ/HTs6UfvI7ODmeaXtwFoRFN5sJQa70scjfmf xc6D8RxefcdZNA/k
15kFX22mvnJtmZtvuZA75ZsygZY1mQfbI72SbvU5Inkw/vz8MZ8HwUz5c/AG r2Vg/ZYyIzZmnABo
UJN5wPXBsCxyN43up/MgfdZf3pLrA6BlTeUBfz94BKfg88hMc7b79+PssjxQ RXz5OdpymbtdLPD3
A+BDNJUH6m0yXrNuywt7aw1L5YEs/WIsbvd7X5oHagjFhspaqpmfMuLAV6on D5JENHyh3cMFAPuR
Bw3YPVwAsB950IDdwwUA+zWSB9+N4QJwAfKgAQwXgAu8LQ+YmJiYmGqb3pMH 016ZSiaGi4mJ6YLp
nXmQa4gZwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXIgwYwXAAu8PY8mP7n sf4cNGuedvL/K5es
nm2TbVDYJi/Ig/UD5M5uGQBWb88Dq/jnv8fgZJ0tWT3bJtugsE2elwfrp0rz 8dIAXuj9eRDWzHwc
vKjO/nmv6afOA/F1BcFnXwPAYRXkgV80dRyID9yPfzOmaOQ36Xvjvopcfd7d ffnWSFlr/V5NxFcE
bA3y/Rx/PvQFAUF8yl4d2iIABGrIA11ZVdkcq/C8IPj6M2OB+HEu0Obpc5AH ah1RvsNSbn9XZ0k/
yQMAVasiD4Iy7tU4ee4dFGt9mu6Xa7taGtcHv97qwS6CLXkXEI9MP08gDwBc oI482OqwV3rnuzTj
jKE366xeY1uQKsU788D+g0Z4kZHs5wnkAYALVJIHa8l1/3pxEJ7677g+eEke 2JvyAyPTzxP4ezKA
C9SSB3NJ7VUcyFPt5V6Mcd4tCrBdzwM788C+HPHzINdP79JnB95vCuAC1eTB csvFq3Dr3Of8+1ZQ
vWK/FGFR2V+aBw/dkSHYSEk/X5YHsbECgDPqyQNEMVwALkAeNIDhAnAB8qAB DBeAC5AHDWC4AFyA
PGgAwwXgAm/LAyYmJiam2qb35MG0V6aSieFiYmK6YHpnHuQaYsZwAbgAedAA hgvABciDBjBcAC5A
HjSA4QJwAfKgAQwXgAu8PQ+mT3zTH/NmzdNe8znSrVB58Pu4dY9OTNsoLIvW GZM+mNmvq9+eK/mr
y2kQi4ZIm04sut3Fbqa1IqvYz26iD4t9nY/tfcjv6PnY7+eBI3oYffi8p2yw ljiRMTR2+jC66r3C
7zextFeL5Lpq45NINxJDZ4/Yp3t7HljFX33kqOnb82AQS/v1BTC90m76VTS4 CnLTv+vig2H9l4Fa
tV+qj37FyjabsLR5jdOFI9LG9XCtgMc6bzbIth+rT9/rupPbiO3LnjIpNob2 ThMDNR2a2I7LhvWh
Lvd9EAn5p1L+ppUc9Yd6fx6EtT0fB+SBXDwsr65x0f2uXgzPV1F/31Z5vjC8 l8r2Mgu3HL5Qc8VF
7f1FxaVfXuoHO1/yMNZg70ZM3/eUqUXWNu2dJgZK/Br4a03lXq42WHlTcGjz LkqO+kNVkAfmNw14
X2Mwi325QeL7D3rx7ZXhdxhE1q1MJg+83+Nfd775KxZtrwTzF13XJrV0f3EZ xhfn4K1uPjRlj85r
X9L5kofBHHe2ONbcZ/E9VS4jzT77KZuXJMfQ2GlioLwLAinXyaKnckQe1JAH urqrr40ZxBdRypwI
v4sm8v1oZsyItdcfa77iyObBfH4kXmnL+I2vhHRpiC81zkPHH/xbq16bIXL2 WvIyC9pkruJLOu+1
NB8G7bez0cG/YbWtVXJEkWYf/JStMmMY7jQxUKPe6/9k8G/0eYqeyuA3zR6x T1dFHgS12jtRl9cI
4rvGvIrubelX/11CX3WsOeOnRpX25sHvcjHu7jyI+Q/vOnoSLxxFV/Thdtbq drS4eC/FeZXDnfda
iofR9rrE9Ovt+wNHFGn2YU+Z0aZgDP2dJgZK62WNTudBshv2b1rJUX+oOvJg q9ZeHMx3eMYZg7jz
4+eBcSNJ54SMlIW6jpjUmQvZPPCvc3/n+w+99zIzf9HNmw/jz+Km2r7i4n7u g8YlL7PC7a9KOi9m
DubDoL16H4ssPQeOKNLs45+yojH0dpoYqNDYWI2hpagbnpKj/lCV5MEaCO5f Lw7CU/9H+fWBdbvI
JuOmMvm/Jwd3VPrpLZXB/B1/nByLzjxge4vLdJ57141LXma51/aRzj+sBiUH qxsbpafkiMxmH/+U
FY+h2mlioKzrpPXSwb+GiD1f6UW6jb3o09WSB3Pp71UcyBq9nMYH1weq1Ps3 nkR9l4Gw/bztwbsy
qUn2/abhlbgrGfpNjYNYfR2Vl795cdAPu2DO9tCUbnOs82aDeHv/Dw/LUjeY uY3Yvu8p2zuGxuXO
qBcH7s70xROq3ois479fLgJ2dEMqOeoPVU0ezJXZP0Vf5z7n37eK7RV7cc8n 9hYkb2Nb4bfWrUyY
B/L617hF8Mic8G5/l0tUzLVlcEXvX4B3+pb3uj1ZuR729n0FbXZ33mwQb2/f oJjOT3Mbef6GGb9E
X/CUyS0/q+2OMZQ7TQzUtIFeLPX+ZjCIRcuTvqsbm8SIfbp68gBRDFczfu+9 UYGANpAHDZDDFZ62
MFUyPSJxkF2RqZXp45EHDfjA4YpcknNuXS+esi9AHjSA4QJwAfKgAQwXgAuQ Bw1guABc4DPyIPrf
0+w2rXn1cAGAgTxowKuHCwAMn5EHAnkAAIdUkAdzob4v/09Y/gdP8z8PhzPD 64Nwa9bnGU3E/xa1
t/zu/7dMHgC4QDV5EH4AUeSDida6bt8kCrdmfOSR/TFH0S2TBwC+QDV5sJyk G4Vfz58LvrrxE/37
gV34VehMj8ZPczG2XAXyAMAFqsuD7ZE+NQ8vASb29UG4NX/DHpkZcstVIA8A XKC6PMheH2y8z6o+
en1gkPeZKkAeALhANXlQ/PcDLwX86IhuLfL3g5It8/cDAF+gmjzY3hEkT8vF DZytKIczw+uDPe8v
ym6ZPADwBerJgyG1zncjDwBcgDxoAHkA4ALkQQPIAwAXqCAPkMNwAbgAedAA hgvABd6WB0xMTExM
tU3vyYNpr0xMTExMtU25Ku47lQfZ3jAxMTExvWvKVXHf8TwAAHwS8gAA4JAH AACHPAAAOOQBAMAh
DwAADnkAAHDIAwCAQx4AABzyAADgkAcAAIc8AAA45AEAwCEPAAAOeQAAcMgD AIBDHgAAHPIAAOD8
Pz0q02LnG3lOAAAAAElFTkSuQmCC
------=_NextPart_000_0068_01C73EDF.06158050--

Attached files
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

Forzar report a LANDSCAPE

Mensaje por jose.luis »

This is a multi-part message in MIME format.
------=_NextPart_000_000F_01C73EF3.61D543D0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0010_01C73EF3.61D543D0"
------=_NextPart_001_0010_01C73EF3.61D543D0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ignacio,
Gracias por tus aclaraciones.
Saludos,
Jos=E9 Luis Capel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45b5def8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>leible.
Quise decir legible.=20
Un saludo
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:[email=45b5dcdb@news.xailer.com...]45b5dcdb@news.xailer.com...[/email]
Jos=E9 Luis,=20
Supongo que tu expresi=F3n es demasiado compleja por el uso de IF() =
y por englobar varias intrucciones en uno de sus parametros y el =
preprocesador de xHarbour se hace alg=FAn l=EDo. Puedes comentarlo en el =
foro de xHarbour.
No obstante, no llego a entender bien cl=E1usulas como esta:
PICTURE IF( a, (b,c), d )
Esto se bloquifica, y sino me equivoco al final el valor del picture =
quedar=E1 como IF(a, c, d) y siempre as=ED.=20
Si lo que quieres es que en algunos casos una columna tengas dos =
filas de datos o s=F3lo uno, me temo que la =FAnica forma es realizando =
dos comandos COLUMN, que en mi opini=F3n, dejar=E1n el c=F3digo mucho =
m=E1s leible.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel - Aicom" <jose.luis@iaicom.com> escribi=F3 en =
el mensaje news:[email=45b5c916@news.xailer.com...]45b5c916@news.xailer.com...[/email]
Ignacio,
Gracias por la respuesta. Sab=EDa que era f=E1cil... pero no =
tanto :-)
Por cierto... Esta linea:
COLUMN OF oReport ;
TITLE "ST. ANTER", IF( lMuestraEnvases, =
("Unidades","Envases"), "Unidades") ;
DATA if( lMuestraEnvases, (odbitCarga:nStkIni2, =
odbitCarga:nStkIni3), odbitCarga:nStkIni3 ) ;
PICTURE IF( lMuestraEnvases, =
(AicomGlobal:oTabPicture[5]:cCantidad,AicomGlobal:oTabPictur e[5]:cCantida=
d),AicomGlobal:oTabPicture[5]:cCantidad) ;
ALIGN taRIGHT ;
CHARSIZE 9
Me da estos dos warnings que no acabo de ver el por qu=E9
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: =
'String'
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: =
':'
tHistoric.prg(1898) Warning W0027 Meaningless use of expression: =
':'
La linea 1898 corresponde al c=F3digo mostrado.
Saludos y gracias nuevamente por tu ayuda.
Jos=E9 Luis Capel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45b51505$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel - Aicom" <jose.luis@iaicom.com> escribi=F3 en =
el mensaje news:[email=45b50e18@news.xailer.com...]45b50e18@news.xailer.com...[/email]
> Hola,
>=20
> Debe ser f=E1cil pero no he sabido como forzar un report a que =
siempre imprima=20
> en LANDSCAPE independientemente de la impresora que haya por =
defecto y del=20
> formato de papel.
>=20
> A ver si alguien me gu=EDa :-)
> Saludos y gracias!
> Jos=E9 Luis Capel=20
>=20
>
------=_NextPart_001_0010_01C73EF3.61D543D0
Content-Type: text/html;
charset="iso-8859-1"
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=3Diso-8859-1">
<META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias por tus =
aclaraciones.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis Capel</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>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> escribi=F3 =
en el=20
mensaje <A=20
=
href=3D"news:45b5def8$1@news.xailer.com">news:45b5def8$1@news.xailer.com<=
/A>...</DIV>
<DIV><FONT face=3DArial size=3D2>>>leible.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Quise decir legible. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR>-- <BR>Ignacio Ortiz de =
Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</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>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:45b5dcdb@news.xailer.com">news:45b5dcdb@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Supongo que tu expresi=F3n es =
demasiado compleja=20
por el uso de IF() y por englobar varias intrucciones en uno de sus=20
parametros y el preprocesador de xHarbour se hace alg=FAn l=EDo. =
Puedes=20
comentarlo en el foro de xHarbour.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No obstante, no llego a entender =
bien cl=E1usulas=20
como esta:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ PICTURE IF( a, =
(b,c), d=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Esto se bloquifica, y sino me =
equivoco al final=20
el valor del picture quedar=E1 como IF(a, c, d) y siempre as=ED. =
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si lo que quieres es que en algunos =
casos una=20
columna tengas dos filas de datos o s=F3lo uno, me temo que la =
=FAnica forma es=20
realizando dos comandos COLUMN, que en mi opini=F3n, dejar=E1n el =
c=F3digo mucho=20
m=E1s leible. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</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>"Jos=E9 Luis Capel - Aicom" <<A=20
href=3D"mailto:jose.luis@iaicom.com">jose.luis@iaicom.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:45b5c916@news.xailer.com">news:45b5c916@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias por la respuesta. =
Sab=EDa que era=20
f=E1cil... pero no tanto :-)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Por cierto... Esta =
linea:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ COLUMN OF =
oReport=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
TITLE "ST. ANTER", IF( lMuestraEnvases, ("Unidades","Envases"),=20
"Unidades")=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
DATAÂ if( lMuestraEnvases, (odbitCarga:nStkIni2,=20
odbitCarga:nStkIni3), odbitCarga:nStkIni3 )=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
PICTURE IF( lMuestraEnvases,=20
=
(AicomGlobal:oTabPicture[5]:cCantidad,AicomGlobal:oTabPictur e[5]:cCantida=
d),AicomGlobal:oTabPicture[5]:cCantidad)=20
;<BR> ÂÂÂÂÂÂ ÂÂ ALIGN =
taRIGHT=20
=
;<BR> ÂÂÂÂÂÂ ÂÂÂÂÂ&n=
bsp;=20
CHARSIZE 9<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me da estos dos warnings que no =
acabo de ver=20
el por qu=E9</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>tHistoric.prg(1898) Warning =
W0027Â=20
Meaningless use of expression: 'String'<BR>tHistoric.prg(1898) =
Warning=20
W0027Â Meaningless use of expression: =
':'<BR>tHistoric.prg(1898)=20
Warning W0027Â Meaningless use of expression: =
':'</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La linea 1898 corresponde al =
c=F3digo=20
mostrado.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos y gracias nuevamente por =
tu=20
ayuda.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis Capel</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV>
<DIV><BR></FONT>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:45b51505$1@news.xailer.com">news:45b51505$1@news.xailer.com<=
/A>...</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0 =
src=3D"cid:000a01c73eea$fd752250$bb001aac@AGSoft.local" =
align=3Dbaseline=20
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR><FONT face=3DArial size=3D2>-- <BR>Ignacio Ortiz de=20
Z=FA=F1iga<BR></FONT><A href=3D"http://www.xailer.com"><FONT =
face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel - Aicom" =
<</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje </FONT><A=20
href=3D"news:45b50e18@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:45b50e18@news.xailer.com</FONT></A><FONT =
face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Hola,<BR>>=20
<BR>> Debe ser f=E1cil pero no he sabido como forzar un =
report a que=20
siempre imprima <BR>> en LANDSCAPE independientemente de la =
impresora=20
que haya por defecto y del <BR>> formato de papel.<BR>> =
<BR>> A=20
ver si alguien me gu=EDa :-)<BR>> Saludos y gracias!<BR>> =
Jos=E9 Luis=20
Capel <BR>> <BR>></FONT>=20
</BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY ></HTML>
------=_NextPart_001_0010_01C73EF3.61D543D0--
------=_NextPart_000_000F_01C73EF3.61D543D0
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <000a01c73eea$fd752250$bb001aac@AGSoft.local>
iVBORw0KGgoAAAANSUhEUgAAAgUAAADYCAIAAAD0wQeCAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAT+ElEQVR4nO3d3ZGruraGYaJaMTiDlQg7jn19 qhzAutg50GHsu74+
VScHH4vfMaShH8ATS/b7FFWzDQKE3B4f0J529wMAwM9Pl2sAAPgKXa4BAOAr dLkGAICv0OUaAAC+
QpdrAAD4Cp188M+//uqK/P3vZ+t//51s89e//rF3aVm3tWstw/MQxs7Vyhji A4f8suEqdHJUg9Wv
7j+AEp188NI8cIpf7q8oEEvvz1SuPyk9Xrt6/YrhKnRyVO3VL+w/gGKdfPDy POhK68j5ArH1pmyP
1yoa2fJjPz9chU6Oamz1y/oPYIcutTBdDeJLVVIcKiT7naxcf5ROA1UDE4tq cHJUT64O4FJdauHR
PFBlbqlx66znjGCxdcIoV/jxQkbt0r5QUZ3STYKym+rb9vhI3/ydpwdSLN89 XMbGrOXFPc+OanjN
U7x68vrA326yTe4oAJTrUguP54F8hc5Lt5fwX/L1Pi1N58Hff1t3W9am6coV u1UjO53qWyYPMn37
sYYiYDTZPVxlR1re8/So2kuzDXJ5EN2s17D4KACU61ILj+dB6vpASRSI/D13 f2VjYbTAdHJfqb6l
8yAqPNFPnbhu3Tw8XGVHWt7zolE1ejvPOpAHqSPo9OgVHwWAcl1q4dE8UC9s 8zw9ukascm3z5cbF
ZszeGLGUPhn31o/a0bew1Ke3N6+3c7hKj3RPz38io7rN3WbaqRf7Fck93ZGY M3dXcBQAinSphaV5
kGCeg4eFMVMg1O7LS495av9j7C3ZN8uOvp3Pg4LhKj7SPT3/yf0GSGbLHXkQ v4yyluw7CgBFutTC
03kgV4uVLL0tMw+8FYpLT76HQfEti4M9fTudByXDVXyke3oemympE/Xi1ctj Si8zmpccBYAiXWrh
mTwIqti+Apdaobhy5avkvOU/mQdFp6xhaOwbruIj3dPz2Ey1lVDB6qk8SB3u wVQDUKRLLSzNg6KX
Xtkr3swDb/vFlau4hyfyIN83Uatj3TCa7Buu4iPd1fPIzCAM3LLy1X+M/ieP IHl9UHIUAIp0qYWt
50HRqblu+AfyQJ28pwdSLN83XMVHuq/nO0a1eHU1fzu2+BFYS/YdBYAiXWph 63mgzmSNWrLO+7N5
4J9Qy1X0opK7ZU44XKVHurPn6XizDzH3pPxY/ddHIGbbYbrvKAAU6VIL28wD taVgdtBC7yrsm7ls
X9+CRLCpfe8errIj3dlza1TFsYS3q/Krq/nq2FJH0MVitOQoABTpUgtbyoOg mhi3Uszlus0fygO9
yOI33z1cZUe6t+fmqKaPRO4u8qTY/U/FZrRh0VEAKNGlFjaVB4l7L0Gd2VN8 X5YH3oorYzh+DgyX
v9ok6MXuntujqueOa5SEVCYPJl6IWG12HwWAvC7XAADwFbpcAwDAV+hyDQAA X6HLNQAAfIUu1wAA
8BW6XAMAwFfocg0AAF+hyzUAAHyF7gEAwONBHgAAHPIAAOCQBwAAhzwAADjk AQDAIQ8AAA55AABw
yAMAgEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzy AADgkAcAAIc8AAA4
5AEAwCEPAAAOeQAAcMgDAIBDHgAAHPIAAOCQBwAAhzwAADjn82Dou8Xt/ms2 +b3fun4wF71WuCM3
59C+y/tc3jIt29VX7QgALOfyQJewbEHb4UW17xlWB7dS3oHylknHuwoAr3Am D1wh9C4J3MXCS6ra
i4rsceUdKG8JABU7kQdmHVwD4bn01vfPC4bnQ9lyvIhQd5fGpfdl9jh3vQe1 tBE3pbzrETVv944C
y47Gvsc3Jcmdmv3ULdcObMvNtdae3O/9tN91R7EDSe8dAJJenQeqZoVleuhV id9aznPVTFUa5wfu
x6mtmKkL5bIjuUp8R5K44BlLa7zP/lrmToPwmHJlarHty1rL70mYB+GB5PYO AEkn8iBdHEVF22aK
0rrNNVuaYfMQm1CbWtirD+L8OtiRtbZ6YPY5utrK6p/sgN1inhf0JMyD1IFE RgcAUk7kgVmJzBN8
WVu1JQ+Clt7GpzPrbrtBokurbJYOnmBH1tqjoU/0ObZa0M9oS9lH8+jChubg lO8dAJJO5IFVk7dr
hlgeJIr4I1Hy1tVOXh/k8mDdZrrPktpp0E+/ZXB9YK0V9KQgD7J7B4CkM3kw n5CuZVU9souvrFPJ
Mi2rm3djfJ4v5oYV018neVq9EgcwmH8/iFb5JTmMfnotg78fmGuJwx9XKsiD 7N4BIOlcHjjifoos
QbHiO9XEkajmYcu53Vr/lj0MW+v8pnS3snnw2I4m8v4ia52gz34/dcvg/UWR tdaeRN5fJNZO7Z0r
BQCFzucBisVCKO3YWgCwE3lwofLKbt0MA4A/ijy4UHkeqNtwpasAwBnkAQDA IQ8AAA55AABwyAMA
gEMeAAAc8gAA4JAHAACHPAAAOOQBAMAhDwAADnkAAHDIAwCAQx4AABzyAADg kAcAAIc8AAA45AEA
wDmeB//3v/9lYmJiYqp2ylVxH3nAxMTE9IHTf/75n1wV953Ng+cumQonhouJ iemCaS01uSrue0Ee
5BpixnABuAB50ACGC8AFKsuDoe+67nb/NRZ9MfIAwAXqygMXB/0Qzv9y5AGA C9SVBzAxXAAuUE8e
/N5vnbP3+mBaz1gruqA5dh64i6mCW2tuGF4xCOZ2XrVxABWoJg/G6n273XZX 8MI8eD7aueF6xOKz
7/u9o3UceQB8ulryYCze/VB4ziuVXAaUtKlYJD774cpyTB4An66SPJjjwL8J Mtfx+3wraUmM5Wez
zbr2GgK/6+rLSmKOt7OdYXQNOz7HQ3kOh+xyeKiqZC+Dd7vf5/XGpeHYPbZh lmO2tTQ2vu27ykEE
kFNHHmylWBflucSMFWf+eVomTvjV/KmMyaIv2qiqKNrPu2soD0QKyEDwS/96 7OsPc9PtsOVBb+/u
Eu/zWgNajmG4ca9LXDQADaoiD2RRUlVZ1fGgdmdqfaRNtH29/DxQFwWi+oqK v1lKtgyLraVcRbVY
DX3YMtyo6pK9IQCVqyEP4hV6fx7YC4I88K5AKi9e1nBpqtDPxFAFeaCqvBw7 PY5yS2aeyDyI9AhA
KyrIA6u+haf4hXnw+dcH4cm3OnMPZso8UDEYzwPV9MD1AYAmvT8PpvosiomY UZ4H84LYxcU438iA
9v5+YN6cn6txtLj7VX47VHMV788H4rmY10///YBwANr09jwI4kDOKs+D1PuL 1pW9SwfdvI08iJTa
pUCLA1uOXFb8bRTuyftF22Zu90FeCiyjvPTBX13vGkBT3p4HyHv9cMk6DgAj 8qABrxmu3BuRAHw5
8qABrxou8SYgLg4A+MiDBjBcAC5AHjSA4QJwgbflARMTExNTbdN78mDaK1PJ xHAxMTFdML0zD3IN
MWO4AFyAPGgAwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXenwfBJ+ev/39W fSDdN1N5EH7s3qs+
jGjcsrGhV20fQN3enwcLu86RBw8rD9SwvKheP4P5BVsB0Kya8wCzIA/c507r D+qmkgM4q+Y8KPmS
g3WZN/uj0iXMg8H9E3xvgfllBup7C+Y1t3tyW2M9gs85t76fxj/7JQfh6gAa 1FQedOGXmrX3ZWcH
WHkg7u/k80B+r5n4OfhJf/GZ/HTs6UfvI7ODmeaXtwFoRFN5sJQa70scjfmf xc6D8RxefcdZNA/k
15kFX22mvnJtmZtvuZA75ZsygZY1mQfbI72SbvU5Inkw/vz8MZ8HwUz5c/AG r2Vg/ZYyIzZmnABo
UJN5wPXBsCxyN43up/MgfdZf3pLrA6BlTeUBfz94BKfg88hMc7b79+PssjxQ RXz5OdpymbtdLPD3
A+BDNJUH6m0yXrNuywt7aw1L5YEs/WIsbvd7X5oHagjFhspaqpmfMuLAV6on D5JENHyh3cMFAPuR
Bw3YPVwAsB950IDdwwUA+zWSB9+N4QJwAfKgAQwXgAu8LQ+YmJiYmGqb3pMH 016ZSiaGi4mJ6YLp
nXmQa4gZwwXgAuRBAxguABcgDxrAcAG4AHnQAIYLwAXIgwYwXAAu8PY8mP7n sf4cNGuedvL/K5es
nm2TbVDYJi/Ig/UD5M5uGQBWb88Dq/jnv8fgZJ0tWT3bJtugsE2elwfrp0rz 8dIAXuj9eRDWzHwc
vKjO/nmv6afOA/F1BcFnXwPAYRXkgV80dRyID9yPfzOmaOQ36Xvjvopcfd7d ffnWSFlr/V5NxFcE
bA3y/Rx/PvQFAUF8yl4d2iIABGrIA11ZVdkcq/C8IPj6M2OB+HEu0Obpc5AH ah1RvsNSbn9XZ0k/
yQMAVasiD4Iy7tU4ee4dFGt9mu6Xa7taGtcHv97qwS6CLXkXEI9MP08gDwBc oI482OqwV3rnuzTj
jKE366xeY1uQKsU788D+g0Z4kZHs5wnkAYALVJIHa8l1/3pxEJ7677g+eEke 2JvyAyPTzxP4ezKA
C9SSB3NJ7VUcyFPt5V6Mcd4tCrBdzwM788C+HPHzINdP79JnB95vCuAC1eTB csvFq3Dr3Of8+1ZQ
vWK/FGFR2V+aBw/dkSHYSEk/X5YHsbECgDPqyQNEMVwALkAeNIDhAnAB8qAB DBeAC5AHDWC4AFyA
PGgAwwXgAm/LAyYmJiam2qb35MG0V6aSieFiYmK6YHpnHuQaYsZwAbgAedAA hgvABciDBjBcAC5A
HjSA4QJwAfKgAQwXgAu8PQ+mT3zTH/NmzdNe8znSrVB58Pu4dY9OTNsoLIvW GZM+mNmvq9+eK/mr
y2kQi4ZIm04sut3Fbqa1IqvYz26iD4t9nY/tfcjv6PnY7+eBI3oYffi8p2yw ljiRMTR2+jC66r3C
7zextFeL5Lpq45NINxJDZ4/Yp3t7HljFX33kqOnb82AQS/v1BTC90m76VTS4 CnLTv+vig2H9l4Fa
tV+qj37FyjabsLR5jdOFI9LG9XCtgMc6bzbIth+rT9/rupPbiO3LnjIpNob2 ThMDNR2a2I7LhvWh
Lvd9EAn5p1L+ppUc9Yd6fx6EtT0fB+SBXDwsr65x0f2uXgzPV1F/31Z5vjC8 l8r2Mgu3HL5Qc8VF
7f1FxaVfXuoHO1/yMNZg70ZM3/eUqUXWNu2dJgZK/Br4a03lXq42WHlTcGjz LkqO+kNVkAfmNw14
X2Mwi325QeL7D3rx7ZXhdxhE1q1MJg+83+Nfd775KxZtrwTzF13XJrV0f3EZ xhfn4K1uPjRlj85r
X9L5kofBHHe2ONbcZ/E9VS4jzT77KZuXJMfQ2GlioLwLAinXyaKnckQe1JAH urqrr40ZxBdRypwI
v4sm8v1oZsyItdcfa77iyObBfH4kXmnL+I2vhHRpiC81zkPHH/xbq16bIXL2 WvIyC9pkruJLOu+1
NB8G7bez0cG/YbWtVXJEkWYf/JStMmMY7jQxUKPe6/9k8G/0eYqeyuA3zR6x T1dFHgS12jtRl9cI
4rvGvIrubelX/11CX3WsOeOnRpX25sHvcjHu7jyI+Q/vOnoSLxxFV/Thdtbq drS4eC/FeZXDnfda
iofR9rrE9Ovt+wNHFGn2YU+Z0aZgDP2dJgZK62WNTudBshv2b1rJUX+oOvJg q9ZeHMx3eMYZg7jz
4+eBcSNJ54SMlIW6jpjUmQvZPPCvc3/n+w+99zIzf9HNmw/jz+Km2r7i4n7u g8YlL7PC7a9KOi9m
DubDoL16H4ssPQeOKNLs45+yojH0dpoYqNDYWI2hpagbnpKj/lCV5MEaCO5f Lw7CU/9H+fWBdbvI
JuOmMvm/Jwd3VPrpLZXB/B1/nByLzjxge4vLdJ57141LXma51/aRzj+sBiUH qxsbpafkiMxmH/+U
FY+h2mlioKzrpPXSwb+GiD1f6UW6jb3o09WSB3Pp71UcyBq9nMYH1weq1Ps3 nkR9l4Gw/bztwbsy
qUn2/abhlbgrGfpNjYNYfR2Vl795cdAPu2DO9tCUbnOs82aDeHv/Dw/LUjeY uY3Yvu8p2zuGxuXO
qBcH7s70xROq3ois479fLgJ2dEMqOeoPVU0ezJXZP0Vf5z7n37eK7RV7cc8n 9hYkb2Nb4bfWrUyY
B/L617hF8Mic8G5/l0tUzLVlcEXvX4B3+pb3uj1ZuR729n0FbXZ33mwQb2/f oJjOT3Mbef6GGb9E
X/CUyS0/q+2OMZQ7TQzUtIFeLPX+ZjCIRcuTvqsbm8SIfbp68gBRDFczfu+9 UYGANpAHDZDDFZ62
MFUyPSJxkF2RqZXp45EHDfjA4YpcknNuXS+esi9AHjSA4QJwAfKgAQwXgAuQ Bw1guABc4DPyIPrf
0+w2rXn1cAGAgTxowKuHCwAMn5EHAnkAAIdUkAdzob4v/09Y/gdP8z8PhzPD 64Nwa9bnGU3E/xa1
t/zu/7dMHgC4QDV5EH4AUeSDida6bt8kCrdmfOSR/TFH0S2TBwC+QDV5sJyk G4Vfz58LvrrxE/37
gV34VehMj8ZPczG2XAXyAMAFqsuD7ZE+NQ8vASb29UG4NX/DHpkZcstVIA8A XKC6PMheH2y8z6o+
en1gkPeZKkAeALhANXlQ/PcDLwX86IhuLfL3g5It8/cDAF+gmjzY3hEkT8vF DZytKIczw+uDPe8v
ym6ZPADwBerJgyG1zncjDwBcgDxoAHkA4ALkQQPIAwAXqCAPkMNwAbgAedAA hgvABd6WB0xMTExM
tU3vyYNpr0xMTExMtU25Ku47lQfZ3jAxMTExvWvKVXHf8TwAAHwS8gAA4JAH AACHPAAAOOQBAMAh
DwAADnkAAHDIAwCAQx4AABzyAADgkAcAAIc8AAA45AEAwCEPAAAOeQAAcMgD AIBDHgAAHPIAAOD8
Pz0q02LnG3lOAAAAAElFTkSuQmCC
------=_NextPart_000_000F_01C73EF3.61D543D0--

Attached files
Responder