Delphi QUERY_TABLE y OPTIONS

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • jamiguel77
    Junior Member
    • jun
    • 21

    #1

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