<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:media="http://search.yahoo.com/mrss/"
		>
<channel>
	<title>Comentarios en: Conexión Excel-SAP</title>
	<atom:link href="http://blogdefloren.wordpress.com/2008/04/28/conexion-excel-sap/feed/" rel="self" type="application/rss+xml" />
	<link>http://blogdefloren.wordpress.com/2008/04/28/conexion-excel-sap/</link>
	<description>SAP HCM y Programación en ABAP</description>
	<lastBuildDate>Thu, 05 Nov 2009 15:13:25 +0000</lastBuildDate>
	<generator>http://wordpress.com/</generator>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
		<item>
		<title>Por: Anónimo</title>
		<link>http://blogdefloren.wordpress.com/2008/04/28/conexion-excel-sap/#comment-186</link>
		<dc:creator>Anónimo</dc:creator>
		<pubDate>Fri, 08 May 2009 15:34:08 +0000</pubDate>
		<guid isPermaLink="false">http://blogdefloren.wordpress.com/?p=58#comment-186</guid>
		<description>saludos a todos.

tengo q hacer la descarga de un report de PA en formato excel, ahora como hago q VB lo tome de la ruta donde lo coloque?

he intentado una RFC en sap, haciendo una batch input pero al lanzar la peticion desde vb me manda un dump donde me dice: El error se produjo durante un proceso de batch input.

muchas gracias, saludos.</description>
		<content:encoded><![CDATA[<p>saludos a todos.</p>
<p>tengo q hacer la descarga de un report de PA en formato excel, ahora como hago q VB lo tome de la ruta donde lo coloque?</p>
<p>he intentado una RFC en sap, haciendo una batch input pero al lanzar la peticion desde vb me manda un dump donde me dice: El error se produjo durante un proceso de batch input.</p>
<p>muchas gracias, saludos.</p>
]]></content:encoded>
	</item>
	<item>
		<title>Por: armilso</title>
		<link>http://blogdefloren.wordpress.com/2008/04/28/conexion-excel-sap/#comment-49</link>
		<dc:creator>armilso</dc:creator>
		<pubDate>Fri, 06 Jun 2008 17:26:33 +0000</pubDate>
		<guid isPermaLink="false">http://blogdefloren.wordpress.com/?p=58#comment-49</guid>
		<description>Buenas tardes;

Me sirvio mucho el código.para desarrollar un programa que envia los parametros a SAP, par cargar unos archivos locales...
Me funciona bien  el llamado pero no me exporta el archivo de errores, ¿ requiere algo especial para que SAP devuelva el archivo?..
tengo el siguiente código en VB 6.0
Sub carguesap()
nombrearchivo = servidorinterface &amp; &quot;\AEPSIN1581020080606.txt&quot;
archicuentas = servidorinterface &amp; &quot;\CEPSIN1581020080606.txt&quot;
Set R3 = CreateObject(&quot;SAP.Functions&quot;)      &#039; Cargar los parametros de conexion
R3.Connection.MessageServer = &quot;serverR3&quot; &#039; Nombre del server
R3.Connection.GroupName = &quot;&quot;
R3.Connection.System = &quot;00&quot;              &#039; Sistema
R3.Connection.client = &quot;&quot;            &#039; Mandante
R3.Connection.User = &quot;&quot;         &#039; Usuario
R3.Connection.Password = &quot;&quot;      &#039; Password
R3.Connection.language = &quot;ES&quot;            &#039; Idioma      &#039; Ejecutar la conexion en modo visible.

If R3.Connection.Logon(0, False)  True Then
MsgBox &quot;No se ha podido establecer la conexión&quot;

Else       &#039; Establecer contacto con la funcion.

Set oMyFunc = R3.Add(&quot;Z_CALL_ZTRFIAP012_ACR&quot;)
Set PARSERAC = oMyFunc.Exports(&quot;PARSERAC&quot;)
Set PERRTACR = oMyFunc.Exports(&quot;PERRTACR&quot;)
Set PBINACR = oMyFunc.Exports(&quot;PBINACR&quot;)
PARSERAC.Value = nombrearchivo &#039; Nombre y ubicacion del archivo a cargar
PERRTACR.Value = servidorerror &amp; &quot;\Err_Acreedor.txt&quot; &#039; Nombre y ubicación del archivo salida de errores
&#039;AQUI NO EXPORTA EL ARCHIVO
PBINACR.Value = servidorerror &amp; &quot;\Acre_Cargados.txt&quot; &#039; Nombre y ubicación del archivo salida de errores
Result = oMyFunc.Call

If Result = False Then

       MsgBox (&quot;Error en el llamado a la transacción&quot;)

Else
Set PT_OUTPUt = oMyFunc.Tables(&quot;messtab&quot;)
For irow = 1 To PT_OUTPUt.RowCount

           

            coderroR = PT_OUTPUt(irow, &quot;MSGID&quot;)
            MsgBox (&quot; se ejecuto el cargue de Acreedores  y genero el código de respuesta &quot; &amp; coderroR)

        Next...

Aqui el programa continua con otra RFC</description>
		<content:encoded><![CDATA[<p>Buenas tardes;</p>
<p>Me sirvio mucho el código.para desarrollar un programa que envia los parametros a SAP, par cargar unos archivos locales&#8230;<br />
Me funciona bien  el llamado pero no me exporta el archivo de errores, ¿ requiere algo especial para que SAP devuelva el archivo?..<br />
tengo el siguiente código en VB 6.0<br />
Sub carguesap()<br />
nombrearchivo = servidorinterface &amp; &#8220;\AEPSIN1581020080606.txt&#8221;<br />
archicuentas = servidorinterface &amp; &#8220;\CEPSIN1581020080606.txt&#8221;<br />
Set R3 = CreateObject(&#8220;SAP.Functions&#8221;)      &#8216; Cargar los parametros de conexion<br />
R3.Connection.MessageServer = &#8220;serverR3&#8243; &#8216; Nombre del server<br />
R3.Connection.GroupName = &#8220;&#8221;<br />
R3.Connection.System = &#8220;00&#8243;              &#8216; Sistema<br />
R3.Connection.client = &#8220;&#8221;            &#8216; Mandante<br />
R3.Connection.User = &#8220;&#8221;         &#8216; Usuario<br />
R3.Connection.Password = &#8220;&#8221;      &#8216; Password<br />
R3.Connection.language = &#8220;ES&#8221;            &#8216; Idioma      &#8216; Ejecutar la conexion en modo visible.</p>
<p>If R3.Connection.Logon(0, False)  True Then<br />
MsgBox &#8220;No se ha podido establecer la conexión&#8221;</p>
<p>Else       &#8216; Establecer contacto con la funcion.</p>
<p>Set oMyFunc = R3.Add(&#8220;Z_CALL_ZTRFIAP012_ACR&#8221;)<br />
Set PARSERAC = oMyFunc.Exports(&#8220;PARSERAC&#8221;)<br />
Set PERRTACR = oMyFunc.Exports(&#8220;PERRTACR&#8221;)<br />
Set PBINACR = oMyFunc.Exports(&#8220;PBINACR&#8221;)<br />
PARSERAC.Value = nombrearchivo &#8216; Nombre y ubicacion del archivo a cargar<br />
PERRTACR.Value = servidorerror &amp; &#8220;\Err_Acreedor.txt&#8221; &#8216; Nombre y ubicación del archivo salida de errores<br />
&#8216;AQUI NO EXPORTA EL ARCHIVO<br />
PBINACR.Value = servidorerror &amp; &#8220;\Acre_Cargados.txt&#8221; &#8216; Nombre y ubicación del archivo salida de errores<br />
Result = oMyFunc.Call</p>
<p>If Result = False Then</p>
<p>       MsgBox (&#8220;Error en el llamado a la transacción&#8221;)</p>
<p>Else<br />
Set PT_OUTPUt = oMyFunc.Tables(&#8220;messtab&#8221;)<br />
For irow = 1 To PT_OUTPUt.RowCount</p>
<p>            coderroR = PT_OUTPUt(irow, &#8220;MSGID&#8221;)<br />
            MsgBox (&#8221; se ejecuto el cargue de Acreedores  y genero el código de respuesta &#8221; &amp; coderroR)</p>
<p>        Next&#8230;</p>
<p>Aqui el programa continua con otra RFC</p>
]]></content:encoded>
	</item>
</channel>
</rss>
