Re: Forum.help400 digest, Vol 1 #1223 - 2 msgs

[X.Carlos Ferradas]

LEER LA RESPUESTA :
1. RE: Visual Basic.NET y AS400 (Xavier Tur Salom)
POR SI SIRVE DE ALGO.

Un Saludo.

X. Carlos Ferradás
Softmatica S.L.
----- Mensaje original ----- 
De: <[EMAIL PROTECTED]>
Para: <forum.help400@combios.es>
Enviado: viernes, 28 de julio de 2006 8:17
Asunto: Forum.help400 digest, Vol 1 #1223 - 2 msgs


Envie los mensajes para la lista Forum.help400 a
forum.help400@combios.es

Para subscribirse o anular su subscripción a través de WEB
http://coyote.combios.es/mailman/listinfo/forum.help400

O por correo electrónico, enviando un mensaje con el texto "help" en
el asunto (subject) o en el cuerpo a:
[EMAIL PROTECTED]

Puede contactar con el responsable de la lista escribiendo a:
[EMAIL PROTECTED]

Si responde a algún contenido de este mensaje, por favor, edite la
linea del asunto (subject) para que el texto sea mas especifico que:
"Re: Contents of Forum.help400 digest...". Ademas, por favor, incluya
en la respuesta solo aquellas partes del mensaje a las que esta
respondiendo.


Today's Topics:

  1. RE: Visual Basic.NET y AS400 (Xavier Tur Salom)
  2. RE: S/36... (Juan Carlos Paredes)

--__--__--

Message: 1
Subject: RE: Visual Basic.NET y AS400
Date: Fri, 28 Jul 2006 08:12:00 +0200
From: "Xavier Tur Salom" <[EMAIL PROTECTED]>
To: <forum.help400@combios.es>
Reply-To: forum.help400@combios.es

This is a multi-part message in MIME format.

------_=_NextPart_001_01C6B20C.BCBD1B0E
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Este es el codigo donde se actualizan el fichero de AS400.

Public Function actualizaBaseDatos() As Integer

' Valores que devuelve

'-1: Error

' 0: No hay actualizaciones

' 1: Actualizaciones Realizadas con exito

Dim nValorDevuelto As Integer

Dim xFilaDatos As DataRow

Dim xParametros As OleDb.OleDbParameterCollection

' Check for changes with the HasChanges method first.

If Not dsHojaRuta.HasChanges() Then

nValorDevuelto =3D 0

Exit Function

End If

' Crear una variable dataset temporal.

Dim xDataSet As DataSet

' GetChanges for modified rows only.

xDataSet =3D dsHojaRuta.GetChanges()

' Check the DataSet for errors.

If xDataSet.HasErrors Then

If lMensajes Then

MsgBox("Error")

End If

nValorDevuelto =3D -1

End If

Try

' After fixing errors, update the data source with the DataAdapter=20

' used to create the DataSet.

OleDbAdaptadorViajeroBillete.Update(xDataSet, "Table")

nValorDevuelto =3D 1

Catch ex As Exception

If lMensajes Then

MsgBox("Error: " & ex.Message)

End If

nValorDevuelto =3D -1

End Try

Return nValorDevuelto

End Function

=20

******************************************************

Este trozo de codigo es donde creo el comando INSERT para actualizar los =
datos

Private Function creaComandoInsertViajeroBillete() As Integer

' Valores que devuelve

'-1: Error

' 0:=20

' 1: Creacion del comando correctamente

' INDICE DE ACTUALIZACION TDDQREL0

Dim nValorDevuelto As Integer

Try

OleDbComandoInsercionViajeroBillete =3D New OleDb.OleDbCommand

OleDbComandoInsercionViajeroBillete.CommandType =3D CommandType.Text

OleDbComandoInsercionViajeroBillete.CommandText =3D "INSERT INTO " & =
sBibViajeroBillete & ".TDDQREL0 (DQDMCD, DQDOCD, DQE5NB, DQBRDT, DQGDNB, =
DQCKCD, DQREOB, DQQ7OB, DQRSOB, DQAMCD, DQAYPR, DQEGQT) VALUES (?, ?, ?, =
?, ?, ?, ?, ?, ?, ?, ?, ?)"

OleDbComandoInsercionViajeroBillete.Connection =3D oConexion.Conexion

OleDbComandoInsercionViajeroBillete.Parameters.Add("Linea", =
OleDb.OleDbType.VarChar, 4, "DQDMCD")

OleDbComandoInsercionViajeroBillete.Parameters.Add("Servicio", =
OleDb.OleDbType.VarChar, 4, "DQDOCD")

OleDbComandoInsercionViajeroBillete.Parameters.Add("Turnos", =
OleDb.OleDbType.Integer, 1, "DQE5NB")

OleDbComandoInsercionViajeroBillete.Parameters.Add("FechaNombramiento", =
OleDb.OleDbType.Integer, 7, "DQBRDT")

OleDbComandoInsercionViajeroBillete.Parameters.Add("Ticket", =
OleDb.OleDbType.Integer, 2, "DQGDNB")

OleDbComandoInsercionViajeroBillete.Parameters.Add("DQCKCD", =
OleDb.OleDbType.VarChar, 1, "DQCKCD")

OleDbComandoInsercionViajeroBillete.Parameters.Add("DQREOB", =
OleDb.OleDbType.Integer, 5, "DQREOB")

OleDbComandoInsercionViajeroBillete.Parameters.Add("DQQ7OB", =
OleDb.OleDbType.Integer, 5, "DQQ7OB")

OleDbComandoInsercionViajeroBillete.Parameters.Add("DQRSOB", =
OleDb.OleDbType.Integer, 5, "DQRSOB")

OleDbComandoInsercionViajeroBillete.Parameters.Add("DQAMCD", =
OleDb.OleDbType.VarChar, 2, "DQAMCD")

OleDbComandoInsercionViajeroBillete.Parameters.Add("DQAYPR", =
OleDb.OleDbType.Double, 12, "DQAYPR")

OleDbComandoInsercionViajeroBillete.Parameters.Add("DQEGQT", =
OleDb.OleDbType.Integer, 9, "DQEGQT")

nValorDevuelto =3D 1

Catch ex As Exception

If lMensajes Then

MsgBox(ex.Message)

End If

nValorDevuelto =3D -1

End Try

Return nValorDevuelto

End Function

=20

=BFnecesitais mas datos?

Xavier Tur Salom

Empresa: SuB=FAs - Auplasa

Dpto: Sistemas de Informaci=F3n

Tel.: 96 526 93 69

E-mail: [EMAIL PROTECTED]

=20


________________________________

De: [EMAIL PROTECTED] =
[mailto:[EMAIL PROTECTED] En nombre de =
[EMAIL PROTECTED]
Enviado el: jueves, 27 de julio de 2006 13:50
Para: forum.help400@combios.es
CC: forum.help400@combios.es; [EMAIL PROTECTED]
Asunto: RE: Visual Basic.NET y AS400



Puedes pasar el c=F3digo donde haces la  llamada=20

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
La originalidad no esta en el "HECHO", esta en la"SOLUCI=D3N"
      Cualquier cosa que gobierne tu vida te autodestruir=E1
Sino dices lo que piensas es que no piensas  - M i  O T a  O -
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
 .~.
/V\   L   I   N   U   X
// \\ >Phear the Penguin<
/(   )\
^^-^^
Pon un Pinguino en TU VIDA.COM
Pere Soria
Dpto. de Inform=E1tica
Telf.    +34 964343008
E-mail: [EMAIL PROTECTED]
http://www.recordrent.com
Record Rent a Car S.A.
(quitar nospam para responder)(remove nospam to reply me)=20



"Xavier Tur Salom" <[EMAIL PROTECTED]>=20
Sent by: [EMAIL PROTECTED]

27/07/2006 13:09=20
Please respond to
forum.help400@combios.es


To
<forum.help400@combios.es>=20
cc
Subject
RE: Visual Basic.NET y AS400

=09




Este es el mensaje que envie hace unos dias.=20
=20
Tengo un programa hecho en visual basic.net para insertar registros en =
un fichero del AS400. Para hacer esto, utilizo un dataset para leer el =
fichero de AS400 y a=F1adir en el dataset m=E1s registros. Despu=E9s de =
haber terminado de introducir los registros en el dataset, utilizo el =
metodo .update de adaptador OLEDB para que se realice la actualizaci=F3n =
de los datos en el AS400. En algunos casos me funciona perfectamente =
pero, en otros casos me sale el siguiente error:=20
=20
Message "No se puede convertir el valor de los datos del par=E1metro de =
comando [0] 'Linea' por otras razones que no sean la falta de =
correspondencia de signo ni el desbordamiento de los datos.=20
No se puede convertir el valor de los datos del par=E1metro de comando =
[1] 'Servicio' por otras razones que no sean la falta de correspondencia =
de signo ni el desbordamiento de los datos.=20
No se puede convertir el valor de los datos del par=E1metro de comando =
[3] 'FechaNombramiento' por otras razones que no sean la falta de =
correspondencia de signo ni el desbordamiento de los datos.=20
Error de conversi=F3n del par=E1metro de comando [7] 'DQQ7OB' porque el =
valor de datos ha desbordado el tipo utilizado por el proveedor.
No se puede convertir el valor de los datos del par=E1metro de comando =
[8] 'DQRSOB' por otras razones que no sean la falta de correspondencia =
de signo ni el desbordamiento de los datos.=20
Error del par=E1metro de comando [10] 'DQAYPR: S_TRUNCATED.
" String=20
Agradezco vuestra ayuda.=20
=20
=20
Saludos,=20

           Xavier=20

Gracias por ayudarme=20

Xavier Tur Salom=20

Empresa: SuB=FAs - Auplasa=20

Dpto: Sistemas de Informaci=F3n=20

Tel.: 96 526 93 69=20

E-mail: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> =20




________________________________

De: [EMAIL PROTECTED] =
[mailto:[EMAIL PROTECTED] En nombre de =
[EMAIL PROTECTED]
Enviado el: jueves, 27 de julio de 2006 10:59
Para: forum.help400@combios.es
Asunto: Re: Visual Basic.NET y AS400


cual es t=FA duda???=20
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
La originalidad no esta en el "HECHO", esta en la"SOLUCI=D3N"
     Cualquier cosa que gobierne tu vida te autodestruir=E1
Sino dices lo que piensas es que no piensas  - M i  O T a  O -
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
.~.
/V\   L   I   N   U   X
// \\ >Phear the Penguin<
/(   )\
^^-^^
Pon un Pinguino en TU VIDA.COM
Pere Soria
Dpto. de Inform=E1tica
Telf.    +34 964343008
E-mail: [EMAIL PROTECTED]
http://www.recordrent.com
Record Rent a Car S.A.
(quitar nospam para responder)(remove nospam to reply me)=20


"Xavier Tur Salom" <[EMAIL PROTECTED]>=20
Sent by: [EMAIL PROTECTED]

27/07/2006 09:08=20

Please respond to
forum.help400@combios.es



To
<forum.help400@combios.es>=20
cc
Subject
Visual Basic.NET y AS400


=09





=BFAlguien utiliza visual basic.net y ado.net para leer y actualizar =
datos del as400?=20

Xavier Tur Salom=20

Empresa: SuB=FAs - Auplasa=20

Dpto: Sistemas de Informaci=F3n=20

Tel.: 96 526 93 69=20

E-mail: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> =20


------_=_NextPart_001_01C6B20C.BCBD1B0E
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.2900.2912" name=3DGENERATOR></HEAD>
<BODY>
<DIV dir=3Dltr align=3Dleft><FONT color=3D#0000ff>
<P><FONT face=3DArial color=3D#000000 size=3D2><SPAN =
class=3D725100906-28072006>Este es=20
el codigo donde se actualizan el fichero de AS400.</SPAN></FONT></P>
<P><FONT face=3DArial><FONT size=3D2>Public Function =
actualizaBaseDatos() As=20
Integer</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' Valores que=20
devuelve</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>'-1: =
Error</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' 0: No hay=20
actualizaciones</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' 1: =
Actualizaciones Realizadas=20
con exito</FONT></P></FONT>
<P><FONT face=3DArial><FONT size=3D2><FONT color=3D#0000ff>Dim</FONT> =
nValorDevuelto=20
<FONT color=3D#0000ff>As</FONT> <FONT=20
color=3D#0000ff>Integer</P></FONT></FONT></FONT>
<P><FONT size=3D2><FONT face=3DArial><FONT color=3D#0000ff>Dim</FONT> =
xFilaDatos <FONT=20
color=3D#0000ff>As</FONT></FONT><FONT face=3DArial> =
DataRow</FONT></FONT></P>
<P><FONT size=3D2><FONT face=3DArial><FONT color=3D#0000ff>Dim</FONT> =
xParametros=20
<FONT color=3D#0000ff>As</FONT></FONT><FONT face=3DArial>=20
OleDb.OleDbParameterCollection</FONT></FONT></P>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' Check for changes =
with the=20
HasChanges method first.</FONT></P></FONT>
<P><FONT face=3DArial><FONT size=3D2><FONT color=3D#0000ff>If</FONT> =
<FONT=20
color=3D#0000ff>Not</FONT> dsHojaRuta.HasChanges() <FONT=20
color=3D#0000ff>Then</P></FONT></FONT></FONT>
<P><FONT face=3DArial size=3D2>nValorDevuelto =3D 0</FONT></P>
<P><FONT face=3DArial><FONT size=3D2><FONT color=3D#0000ff>Exit</FONT> =
<FONT=20
color=3D#0000ff>Function</P></FONT></FONT></FONT>
<P><FONT face=3DArial><FONT size=3D2><FONT color=3D#0000ff>End</FONT> =
<FONT=20
color=3D#0000ff>If</P></FONT></FONT></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' Crear una =
variable dataset=20
temporal.</FONT></P></FONT>
<P><FONT size=3D2><FONT face=3DArial><FONT color=3D#0000ff>Dim</FONT> =
xDataSet <FONT=20
color=3D#0000ff>As</FONT></FONT><FONT face=3DArial> =
DataSet</FONT></FONT></P>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' GetChanges for =
modified rows=20
only.</FONT></P></FONT>
<P><FONT face=3DArial size=3D2>xDataSet =3D =
dsHojaRuta.GetChanges()</FONT></P>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' Check the DataSet =
for=20
errors.</FONT></P></FONT>
<P><FONT face=3DArial><FONT size=3D2><FONT color=3D#0000ff>If</FONT>=20
xDataSet.HasErrors <FONT color=3D#0000ff>Then</P></FONT></FONT></FONT>
<P><FONT face=3DArial><FONT size=3D2><FONT color=3D#0000ff>If</FONT> =
lMensajes <FONT=20
color=3D#0000ff>Then</P></FONT></FONT></FONT>
<P><FONT face=3DArial size=3D2>MsgBox("Error")</FONT></P>
<P><FONT face=3DArial><FONT size=3D2><FONT color=3D#0000ff>End</FONT> =
<FONT=20
color=3D#0000ff>If</P></FONT></FONT></FONT>
<P><FONT face=3DArial size=3D2>nValorDevuelto =3D -1</FONT></P>
<P><FONT face=3DArial><FONT size=3D2><FONT color=3D#0000ff>End</FONT> =
<FONT=20
color=3D#0000ff>If</P></FONT></FONT></FONT>
<P><FONT color=3D#0000ff><FONT face=3DArial =
size=3D2>Try</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' After fixing =
errors, update the=20
data source with the DataAdapter </FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' used to create =
the=20
DataSet.</FONT></P></FONT>
<P><FONT face=3DArial =
size=3D2>OleDbAdaptadorViajeroBillete.Update(xDataSet,=20
"Table")</FONT></P>
<P><FONT face=3DArial size=3D2>nValorDevuelto =3D 1</FONT></P>
<P><FONT size=3D2><FONT face=3DArial>Catch ex As</FONT><FONT =
face=3DArial>=20
Exception</FONT></FONT></P>
<P><FONT face=3DArial><FONT size=3D2>If lMensajes Then</P></FONT></FONT>
<P><FONT face=3DArial size=3D2>MsgBox("Error: " &amp; =
ex.Message)</FONT></P>
<P><FONT face=3DArial><FONT size=3D2>End If</P></FONT></FONT>
<P><FONT face=3DArial size=3D2>nValorDevuelto =3D -1</FONT></P>
<P><FONT face=3DArial><FONT size=3D2>End Try</P></FONT></FONT>
<P><FONT size=3D2><FONT face=3DArial>Return</FONT><FONT face=3DArial>=20
nValorDevuelto</FONT></FONT></P>
<P><FONT face=3DArial><FONT size=3D2>End Function</FONT></FONT></P>
<P><FONT face=3DArial size=3D2></FONT>&nbsp;</P>
<P><FONT><SPAN class=3D725100906-28072006><FONT face=3DArial =
color=3D#000000=20
size=3D2>******************************************************</FONT></S=
PAN></FONT></P>
<P><FONT><SPAN class=3D725100906-28072006><FONT face=3DArial =
color=3D#000000=20
size=3D2>Este trozo de codigo es donde creo el comando INSERT para =
actualizar los=20
datos</FONT></SPAN></FONT><FONT></P></FONT></FONT></DIV>
<DIV><FONT color=3D#0000ff>
<P><FONT face=3DArial><FONT size=3D2><FONT =
color=3D#0000ff>Private</FONT> <FONT=20
color=3D#0000ff>Function</FONT> creaComandoInsertViajeroBillete() <FONT=20
color=3D#0000ff>As</FONT> <FONT =
color=3D#0000ff>Integer</P></FONT></FONT></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' Valores que=20
devuelve</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>'-1: =
Error</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' 0: =
</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' 1: Creacion del =
comando=20
correctamente</FONT></P></FONT>
<P><FONT color=3D#008000><FONT face=3DArial size=3D2>' INDICE DE =
ACTUALIZACION=20
TDDQREL0</FONT></P></FONT>
<P><FONT face=3DArial><FONT size=3D2>Dim nValorDevuelto As =
Integer</FONT></P></FONT>
<P><FONT face=3DArial size=3D2>Try</FONT></P>
<P><FONT size=3D2><FONT face=3DArial>OleDbComandoInsercionViajeroBillete =
=3D=20
</FONT><FONT face=3DArial>New</FONT><FONT face=3DArial>=20
OleDb.OleDbCommand</FONT></FONT></P>
<P><FONT face=3DArial =
size=3D2>OleDbComandoInsercionViajeroBillete.CommandType =3D=20
CommandType.Text</FONT></P>
<P><FONT face=3DArial =
size=3D2>OleDbComandoInsercionViajeroBillete.CommandText =3D=20
"INSERT INTO " &amp; sBibViajeroBillete &amp; ".TDDQREL0 (DQDMCD, =
DQDOCD,=20
DQE5NB, DQBRDT, DQGDNB, DQCKCD, DQREOB, DQQ7OB, DQRSOB, DQAMCD, DQAYPR, =
DQEGQT)=20
VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"</FONT></P>
<P><FONT face=3DArial =
size=3D2>OleDbComandoInsercionViajeroBillete.Connection =3D=20
oConexion.Conexion</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("Linea",=20
OleDb.OleDbType.VarChar, 4, "DQDMCD")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("Servicio",=20
OleDb.OleDbType.VarChar, 4, "DQDOCD")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("Turnos",=20
OleDb.OleDbType.Integer, 1, "DQE5NB")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("FechaNombram=
iento",=20
OleDb.OleDbType.Integer, 7, "DQBRDT")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("Ticket",=20
OleDb.OleDbType.Integer, 2, "DQGDNB")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("DQCKCD",=20
OleDb.OleDbType.VarChar, 1, "DQCKCD")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("DQREOB",=20
OleDb.OleDbType.Integer, 5, "DQREOB")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("DQQ7OB",=20
OleDb.OleDbType.Integer, 5, "DQQ7OB")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("DQRSOB",=20
OleDb.OleDbType.Integer, 5, "DQRSOB")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("DQAMCD",=20
OleDb.OleDbType.VarChar, 2, "DQAMCD")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("DQAYPR",=20
OleDb.OleDbType.Double, 12, "DQAYPR")</FONT></P>
<P><FONT face=3DArial=20
size=3D2>OleDbComandoInsercionViajeroBillete.Parameters.Add("DQEGQT",=20
OleDb.OleDbType.Integer, 9, "DQEGQT")</FONT></P>
<P><FONT face=3DArial size=3D2>nValorDevuelto =3D 1</FONT></P>
<P><FONT size=3D2><FONT face=3DArial>Catch ex As</FONT><FONT =
face=3DArial>=20
Exception</FONT></FONT></P>
<P><FONT face=3DArial><FONT size=3D2>If lMensajes Then</FONT></P></FONT>
<P><FONT face=3DArial size=3D2>MsgBox(ex.Message)</FONT></P>
<P><FONT face=3DArial><FONT size=3D2>End If</FONT></P></FONT>
<P><FONT face=3DArial size=3D2>nValorDevuelto =3D -1</FONT></P>
<P><FONT face=3DArial><FONT size=3D2>End Try</FONT></P></FONT>
<P><FONT size=3D2><FONT face=3DArial>Return</FONT><FONT face=3DArial>=20
nValorDevuelto</FONT></FONT></P>
<P><FONT face=3DArial size=3D2>End Function</FONT></P>
<P><FONT face=3DArial size=3D2></FONT>&nbsp;</P>
<P><SPAN class=3D725100906-28072006><FONT face=3DArial color=3D#000000=20
size=3D2>=BFnecesitais mas datos?</FONT></SPAN></P></FONT></DIV>
<P class=3DMsoNormal align=3Dleft><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Xavier Tur =
Salom<?xml:namespace=20
prefix =3D o ns =3D "urn:schemas-microsoft-com:office:office"=20
/><o:p></o:p></SPAN></P>
<P class=3DMsoNormal align=3Dleft><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Empresa: SuB=FAs =96=20
Auplasa<o:p></o:p></SPAN></P>
<P class=3DMsoNormal align=3Dleft><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Dpto: Sistemas de=20
Informaci=F3n<o:p></o:p></SPAN></P>
<P class=3DMsoNormal align=3Dleft><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Tel.: 96 526 93=20
69<o:p></o:p></SPAN></P>
<P class=3DMsoNormal align=3Dleft><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">E-mail: <A=20
href=3D"mailto:[EMAIL PROTECTED]">[EMAIL PROTECTED]</A></SPAN></P>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D2></FONT>&nbsp;</DIV><FONT face=3DArial=20
size=3D2></FONT><FONT face=3DArial size=3D2></FONT><BR>
<DIV class=3DOutlookMessageHeader lang=3Des dir=3Dltr align=3Dleft>
<HR tabIndex=3D-1>
<FONT face=3DTahoma size=3D2><B>De:</B> [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] <B>En nombre de=20
</B>[EMAIL PROTECTED]<BR><B>Enviado el:</B> jueves, 27 de julio =
de 2006=20
13:50<BR><B>Para:</B> forum.help400@combios.es<BR><B>CC:</B>=20
forum.help400@combios.es; =
[EMAIL PROTECTED]<BR><B>Asunto:</B> RE:=20
Visual Basic.NET y AS400<BR></FONT><BR></DIV>
<DIV></DIV><BR><FONT face=3Dsans-serif size=3D2>Puedes pasar el c=F3digo =
donde haces=20
la &nbsp;llamada</FONT> <BR><BR><FONT face=3Dsans-serif=20
size=3D2>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D<BR>&nbsp;La=20
originalidad no esta en el "HECHO", esta en la"SOLUCI=D3N"<BR>&nbsp; =
&nbsp; &nbsp;=20
&nbsp;Cualquier cosa que gobierne tu vida te =
autodestruir=E1<BR>&nbsp;Sino dices=20
lo que piensas es que no piensas &nbsp;- M i &nbsp;O T a &nbsp;O=20
-<BR>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D<BR>&nbsp;=20
.~.<BR>&nbsp;/V\ &nbsp; L &nbsp; I &nbsp; N &nbsp; U &nbsp; X<BR>// \\ =
&gt;Phear=20
the Penguin&lt;<BR>/( &nbsp; )\<BR>^^-^^<BR>Pon un Pinguino en TU=20
VIDA.COM<BR>Pere Soria<BR>Dpto. de Inform=E1tica<BR>Telf. &nbsp; =
&nbsp;+34=20
964343008<BR>E-mail:=20
[EMAIL PROTECTED]<BR>http://www.recordrent.com<BR>Record =
Rent a=20
Car S.A.<BR>(quitar nospam para responder)(remove nospam to reply =
me)</FONT>=20
<BR><BR><BR>
<TABLE width=3D"100%">
 <TBODY>
 <TR vAlign=3Dtop>
   <TD width=3D"40%"><FONT face=3Dsans-serif size=3D1><B>"Xavier Tur =
Salom"=20
     &lt;[EMAIL PROTECTED]&gt;</B> </FONT><BR><FONT face=3Dsans-serif =
size=3D1>Sent by:=20
     [EMAIL PROTECTED]</FONT>=20
     <P><FONT face=3Dsans-serif size=3D1>27/07/2006 13:09</FONT>=20
     <TABLE border=3D1>
       <TBODY>
       <TR vAlign=3Dtop>
         <TD bgColor=3Dwhite>
           <DIV align=3Dcenter><FONT face=3Dsans-serif size=3D1>Please =
respond=20
           =
to<BR>forum.help400@combios.es</FONT></DIV></TR></TBODY></TABLE><BR></P>
   <TD width=3D"59%">
     <TABLE width=3D"100%">
       <TBODY>
       <TR>
         <TD>
           <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>To</FONT></DIV>
         <TD vAlign=3Dtop><FONT face=3Dsans-serif=20
           size=3D1>&lt;forum.help400@combios.es&gt;</FONT>=20
       <TR>
         <TD>
           <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>cc</FONT></DIV>
         <TD vAlign=3Dtop>
       <TR>
         <TD>
           <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>Subject</FONT></DIV>
         <TD vAlign=3Dtop><FONT face=3Dsans-serif size=3D1>RE: Visual =
Basic.NET y=20
           AS400</FONT></TR></TBODY></TABLE><BR>
     <TABLE>
       <TBODY>
       <TR vAlign=3Dtop>
         <TD>
         =
<TD></TR></TBODY></TABLE><BR></TR></TBODY></TABLE><BR><BR><BR><FONT =
face=3DArial=20
size=3D2>Este es el mensaje que envie hace unos dias.</FONT> <BR><FONT=20
size=3D3>&nbsp;</FONT> <BR><FONT face=3DArial color=3Dblue =
size=3D2>Tengo un programa=20
hecho en visual basic.net para insertar registros en un fichero del =
AS400. Para=20
hacer esto, utilizo un dataset para leer el fichero de AS400 y a=F1adir =
en el=20
dataset m=E1s registros. Despu=E9s de haber terminado de introducir los =
registros en=20
el dataset, utilizo el metodo .update de adaptador OLEDB para que se =
realice la=20
actualizaci=F3n de los datos en el AS400. En algunos casos me funciona=20
perfectamente pero, en otros casos me sale el siguiente error:</FONT> =
<BR><FONT=20
size=3D3>&nbsp;</FONT> <BR><FONT face=3DArial color=3Dblue =
size=3D2>&nbsp;Message "No se=20
puede convertir el valor de los datos del par=E1metro de comando [0] =
'Linea' por=20
otras razones que no sean la falta de correspondencia de signo ni el=20
desbordamiento de los datos. <BR>No se puede convertir el valor de los =
datos del=20
par=E1metro de comando [1] 'Servicio' por otras razones que no sean la =
falta de=20
correspondencia de signo ni el desbordamiento de los datos. <BR>No se =
puede=20
convertir el valor de los datos del par=E1metro de comando [3] =
'FechaNombramiento'=20
por otras razones que no sean la falta de correspondencia de signo ni el =

desbordamiento de los datos. <BR>Error de conversi=F3n del par=E1metro =
de comando=20
[7] 'DQQ7OB' porque el valor de datos ha desbordado el tipo utilizado =
por el=20
proveedor.<BR>No se puede convertir el valor de los datos del =
par=E1metro de=20
comando [8] 'DQRSOB' por otras razones que no sean la falta de =
correspondencia=20
de signo ni el desbordamiento de los datos. <BR>Error del par=E1metro de =
comando=20
[10] 'DQAYPR: S_TRUNCATED.<BR>" String</FONT> <BR><FONT face=3DArial =
color=3Dblue=20
size=3D2>Agradezco vuestra ayuda.</FONT> <BR><FONT =
size=3D3>&nbsp;</FONT> <BR><FONT=20
size=3D3>&nbsp;</FONT> <BR><FONT face=3DArial color=3Dblue =
size=3D2>Saludos,</FONT>=20
<P><FONT face=3DArial color=3Dblue size=3D2>&nbsp; &nbsp; &nbsp; &nbsp; =
&nbsp; &nbsp;=20
Xavier</FONT><FONT face=3DArial size=3D2> </FONT>
<P><FONT size=3D3></FONT>=20
<P><FONT face=3DArial size=3D2>Gracias por ayudarme</FONT>=20
<P><FONT size=3D3></FONT>=20
<P><FONT face=3DArial size=3D2>Xavier Tur Salom</FONT>=20
<P><FONT face=3DArial size=3D2>Empresa: SuB=FAs =96 Auplasa</FONT>=20
<P><FONT face=3DArial size=3D2>Dpto: Sistemas de Informaci=F3n</FONT>=20
<P><FONT face=3DArial size=3D2>Tel.: 96 526 93 69</FONT>=20
<P><FONT face=3DArial size=3D2>E-mail: </FONT><A =
href=3D"mailto:[EMAIL PROTECTED]"><FONT=20
face=3DArial color=3Dblue size=3D2><U>[EMAIL PROTECTED]</U></FONT></A>=20
<P><FONT size=3D3></FONT> <BR><BR>
<HR>
<FONT face=3DTahoma size=3D2><B>De:</B> [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] <B>En nombre de=20
</B>[EMAIL PROTECTED]<B><BR>Enviado el:</B> jueves, 27 de julio =
de 2006=20
10:59<B><BR>Para:</B> forum.help400@combios.es<B><BR>Asunto:</B> Re: =
Visual=20
Basic.NET y AS400</FONT><FONT size=3D3><BR></FONT><BR><FONT =
face=3Dsans-serif=20
size=3D2><BR>cual es t=FA duda???</FONT><FONT size=3D3> </FONT><FONT =
face=3Dsans-serif=20
size=3D2><BR>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<BR>La=20
originalidad no esta en el "HECHO", esta en la"SOLUCI=D3N"<BR>&nbsp; =
&nbsp; &nbsp;=20
Cualquier cosa que gobierne tu vida te autodestruir=E1<BR>Sino dices lo =
que=20
piensas es que no piensas &nbsp;- M i &nbsp;O T a &nbsp;O=20
-<BR>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D<BR>&nbsp;.~.<BR>/V\=20
&nbsp; L &nbsp; I &nbsp; N &nbsp; U &nbsp; X<BR>// \\ &gt;Phear the=20
Penguin&lt;<BR>/( &nbsp; )\<BR>^^-^^<BR>Pon un Pinguino en TU =
VIDA.COM<BR>Pere=20
Soria<BR>Dpto. de Inform=E1tica<BR>Telf. &nbsp; &nbsp;+34 =
964343008<BR>E-mail:=20
[EMAIL PROTECTED]<BR>http://www.recordrent.com<BR>Record =
Rent a=20
Car S.A.<BR>(quitar nospam para responder)(remove nospam to reply=20
me)</FONT><FONT size=3D3> <BR><BR></FONT>
<TABLE width=3D"100%">
 <TBODY>
 <TR vAlign=3Dtop>
   <TD width=3D"53%"><FONT face=3Dsans-serif size=3D1><B>"Xavier Tur =
Salom"=20
     &lt;[EMAIL PROTECTED]&gt;</B> <BR>Sent by:=20
     [EMAIL PROTECTED]</FONT><FONT size=3D3> </FONT>
     <P><FONT face=3Dsans-serif size=3D1>27/07/2006 09:08</FONT><FONT =
size=3D3>=20
     </FONT><BR>
     <TABLE width=3D"100%" border=3D4>
       <TBODY>
       <TR vAlign=3Dtop>
         <TD width=3D"100%" bgColor=3Dwhite>
           <DIV align=3Dcenter><FONT face=3Dsans-serif size=3D1>Please =
respond=20
           =
to<BR>forum.help400@combios.es</FONT></DIV></TR></TBODY></TABLE>
     <P></P>
   <TD width=3D"46%"><BR>
     <TABLE width=3D"100%">
       <TBODY>
       <TR>
         <TD width=3D"20%">
           <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>To</FONT></DIV>
         <TD vAlign=3Dtop width=3D"79%"><FONT face=3Dsans-serif=20
           size=3D1>&lt;forum.help400@combios.es&gt;</FONT><FONT =
size=3D3> </FONT>
       <TR>
         <TD>
           <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>cc</FONT></DIV>
         <TD vAlign=3Dtop>
       <TR>
         <TD>
           <DIV align=3Dright><FONT face=3Dsans-serif =
size=3D1>Subject</FONT></DIV>
         <TD vAlign=3Dtop><FONT face=3Dsans-serif size=3D1>Visual =
Basic.NET y=20
           AS400</FONT></TR></TBODY></TABLE><BR><BR>
     <TABLE width=3D"100%">
       <TBODY>
       <TR vAlign=3Dtop>
         <TD width=3D"50%">
         <TD =
width=3D"50%"></TR></TBODY></TABLE><BR></TR></TBODY></TABLE><BR><FONT=20
size=3D3><BR><BR></FONT><FONT face=3DArial size=3D2><BR>=BFAlguien =
utiliza visual=20
basic.net y ado.net para leer y actualizar datos del as400?</FONT><FONT =
size=3D3>=20
</FONT>
<P><FONT face=3DArial size=3D2>Xavier Tur Salom</FONT><FONT size=3D3> =
</FONT>
<P><FONT face=3DArial size=3D2>Empresa: SuB=FAs =96 Auplasa</FONT><FONT =
size=3D3> </FONT>
<P><FONT face=3DArial size=3D2>Dpto: Sistemas de =
Informaci=F3n</FONT><FONT size=3D3>=20
</FONT>
<P><FONT face=3DArial size=3D2>Tel.: 96 526 93 69</FONT><FONT size=3D3> =
</FONT>
<P><FONT face=3DArial size=3D2>E-mail: </FONT><A =
href=3D"mailto:[EMAIL PROTECTED]"><FONT=20
face=3DArial color=3Dblue size=3D2><U>[EMAIL PROTECTED]</U></FONT></A><FONT =
size=3D3>=20
</FONT>
<P></P></BODY></HTML>

------_=_NextPart_001_01C6B20C.BCBD1B0E--

--__--__--

Message: 2
Subject: RE: S/36...
Date: Fri, 28 Jul 2006 08:12:51 +0200
From: "Juan Carlos Paredes" <[EMAIL PROTECTED]>
To: <forum.help400@combios.es>
Reply-To: forum.help400@combios.es

This is a multi-part message in MIME format.

------_=_NextPart_001_01C6B20C.E4080190
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Si la memoria no me falla despu=E9s de tantos a=F1os sin tocar un S/36 =
(ni siquiera en entorno), puede ser un trabajo bastante largo. En S/36 =
no exist=EDa la definici=F3n externa de ficheros. Simplemente los =
creabas con el mandato BLDFILE, para los f=EDsicos, y BLDINDEX, para los =
l=F3gicos. En el mandato BLDFILE =FAnicamente indicas la longitud de =
registro. Por tanto, la =FAnica opci=F3n ser=E1 redenominar los ficheros =
actuales y volverlos a crear. Despu=E9s tendr=E1s que hacerte unos =
programas que lean los archivos originales, muevan los campos a los del =
fichero nuevo, con la nueva longitud y graben de nuevo el fichero.
=20
Adem=E1s deber=E1s buscar todos los programas que utilicen estos =
ficheros (y me temo que no hab=EDa ninguna herramienta de b=FAsqueda =
tipo FNDSTRPDM, as=ED que hay que mirar todos los fuentes uno a uno), =
redefinir las hojas I (con sus correspondientes posiciones de inicio y =
fin de todos los campos) y las hojas O (con la posici=F3n final de los =
mismos).
=20
Vamos, inform=E1tica artesanal por completo. =A1Qu=E9 no te pase nada!
=20
Saludos.
Juan Carlos.


________________________________

De: [EMAIL PROTECTED] =
[mailto:[EMAIL PROTECTED] En nombre de Jaime Villa Torres
Enviado el: viernes, 28 de julio de 2006 2:31
Para: forum.help400@combios.es
Asunto: S/36...
=09
=09
Se=F1ores, tengo un cliente que requiere ampliar algunos campos de un =
archivo y agregar uno m=E1s en un archivo.... pero en S/36.
Alguna idea donde puedo conseguir estos f=F3siles de manuales. O =
consejos como hacerlo.=20


------_=_NextPart_001_01C6B20C.E4080190
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.2900.2912" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D030190406-28072006><FONT =
face=3DArial=20
color=3D#0000ff size=3D2>Si la memoria no me falla despu=E9s de tantos =
a=F1os sin tocar=20
un S/36 (ni siquiera en entorno), puede ser un trabajo bastante largo. =
En S/36=20
no exist=EDa la definici=F3n externa de ficheros. Simplemente los =
creabas con el=20
mandato BLDFILE, para los f=EDsicos, y BLDINDEX, para los l=F3gicos. En =
el mandato=20
BLDFILE =FAnicamente&nbsp;indicas la longitud de registro. Por tanto, la =
=FAnica=20
opci=F3n ser=E1 redenominar los ficheros actuales y volverlos a crear. =
Despu=E9s=20
tendr=E1s que hacerte unos programas que lean los archivos originales, =
muevan los=20
campos a los del fichero nuevo, con la nueva longitud y graben de nuevo =
el=20
fichero.</FONT></SPAN></DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D030190406-28072006><FONT =
face=3DArial=20
color=3D#0000ff size=3D2></FONT></SPAN>&nbsp;</DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D030190406-28072006><FONT =
face=3DArial=20
color=3D#0000ff size=3D2>Adem=E1s deber=E1s buscar todos los programas =
que utilicen=20
estos ficheros (y me temo que no hab=EDa ninguna herramienta de =
b=FAsqueda tipo=20
FNDSTRPDM, as=ED que hay que mirar todos los fuentes uno a uno), =
redefinir las=20
hojas I (con sus correspondientes posiciones de inicio y fin de todos =
los=20
campos) y las hojas O (con la posici=F3n final de los =
mismos).</FONT></SPAN></DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D030190406-28072006><FONT =
face=3DArial=20
color=3D#0000ff size=3D2></FONT></SPAN>&nbsp;</DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D030190406-28072006><FONT =
face=3DArial=20
color=3D#0000ff size=3D2>Vamos, inform=E1tica artesanal por completo. =
=A1Qu=E9 no te pase=20
nada!</FONT></SPAN></DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D030190406-28072006><FONT =
face=3DArial=20
color=3D#0000ff size=3D2></FONT></SPAN>&nbsp;</DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D030190406-28072006><FONT =
face=3DArial=20
color=3D#0000ff size=3D2>Saludos.</FONT></SPAN></DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D030190406-28072006><FONT =
face=3DArial=20
color=3D#0000ff size=3D2>Juan Carlos.</FONT></SPAN></DIV><BR>
<BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px">
 <DIV class=3DOutlookMessageHeader lang=3Des dir=3Dltr align=3Dleft>
 <HR tabIndex=3D-1>
 <FONT face=3DTahoma size=3D2><B>De:</B> [EMAIL PROTECTED] =

 [mailto:[EMAIL PROTECTED] <B>En nombre de </B>Jaime =
Villa=20
 Torres<BR><B>Enviado el:</B> viernes, 28 de julio de 2006 =
2:31<BR><B>Para:</B>=20
 forum.help400@combios.es<BR><B>Asunto:</B> =
S/36...<BR></FONT><BR></DIV>
 <DIV></DIV>
 <DIV><FONT face=3DArial size=3D2>Se=F1ores, tengo un cliente que =
requiere ampliar=20
 algunos campos de un archivo y agregar uno m=E1s en un archivo.... =
pero en=20
 S/36.</FONT></DIV>
 <DIV><FONT face=3DArial size=3D2>Alguna idea donde puedo conseguir =
estos f=F3siles=20
 de manuales. O consejos como=20
hacerlo.&nbsp;</FONT></DIV></BLOCKQUOTE></BODY></HTML>

------_=_NextPart_001_01C6B20C.E4080190--


--__--__--

__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400

End of Forum.help400 Digest




__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400