Ver Mensaje Individual
  #1  
Viejo 20/06/11, 02:34:16
jamiguel77 jamiguel77 is offline
Junior Member
 
Fecha de Ingreso: jun 2011
Mensajes: 21
Cool Delphi QUERY_TABLE y OPTIONS

Hola a Todos, esta pregunta ya la he echo en varios foros hasta el momento no he tenido respuesta:

Como limpio los RFC Tables cuando uso: RFC_READ_TABLE en un FOR?

var
FunctDetail : VARIANT ;
i:integer;

const
wc1LIFNR=4;

for i:=0 to 50 do
begin
FunctDetail.exports('QUERY_TABLE').value := 'LFA1';
FunctDetail.Tables.Item('FIELDS').AppendRow.Value( 'FIELDNAME'):='LIFNR';
FunctDetail.Tables.Item('FIELDS').AppendRow.Value( 'FIELDNAME'):='NAME1';
FunctDetail.Tables.Item( 'OPTIONS' ).AppendRow.Value( 'TEXT' ) :=
'LIFNR = '''+Ng1.Cell[wc1LIFNR,i].asstring+'''';
end;

cunado la i es igual a 0 si funciona correctamente, pero cuando ya vale 1 o 2 o 3... marca error. en la linea:

FunctDetail.Tables.Item( 'OPTIONS' ).AppendRow.Value( 'TEXT' ) :=
'LIFNR = '''+Ng1.Cell[wc1LIFNR,i].asstring+'''';

El error es:

SYSTEM_FAILURE and then other
error: "No connection to SAP System Available


entonces aqui la pregunta es:

Como podre estar "filtrando" la tabla para poderle ir cambiando el valor a la condicion: LIFNR=

o en su defecto como hago para borrar la condicion anterior intente con:

FunctDetail.Tables.Item(1).Delete;

o

FunctDetail.Tables.Item(1).Remove;

tambien intente:

FunctDetail.Parameter[ 'OPTIONS' ].Value := 'LIFNR =
'''+Ng1.Cell[wc1LIFNR,i].asstring+'''';

Les agradezco su ayuda.
Responder Con Cita