MUNDOSAP

MUNDOSAP (foro/index.php)
-   Otros lenguajes: VB, JAVA (foro/forumdisplay.php?f=6)
-   -   Delphi QUERY_TABLE y OPTIONS (foro/showthread.php?t=43868)

jamiguel77 20/06/11 02:34:16

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.


Husos Horarios son GMT. La hora en este momento es 23:09:40.

www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web