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.
|