Obtain setselectionfilter in other form

JanireJanire Member Posts: 31
I have it in a form:
CurrForm.SETSELECTIONFILTER(grecCaractAridos);
IF grecCaractAridos.FINDFIRST THEN BEGIN
gfAsignaciónAutomática.frecObtenerParámetros(grecCaractAridos);
gfAsignaciónAutomática.RUN;
END;

And I have it in my function frecObtenerParámetros:
CLEAR(grecCaractAridos2);
IF grecCaractAridosFunc.FINDFIRST THEN
REPEAT
MESSAGE(grecCaractAridosFunc.Descripción);
grecCaractAridos2 := grecCaractAridosFunc;
UNTIL grecCaractAridosFunc.NEXT = 0;

IF grecCaractAridos2.FINDFIRST THEN
REPEAT
MESSAGE(grecCaractAridos2.Descripción);
UNTIL grecCaractAridos2.NEXT = 0;

The problem is that in the record grecCaractAridos2 i haven´t got only the selected lines of the other form. I have all of the lines. How can I do it?

Comments

  • JanireJanire Member Posts: 31
    I solved it with this: \:D/

    CLEAR(grecCaractAridos2);
    MESSAGE('entra a la función');
    IF grecCaractAridosFunc.FINDFIRST THEN BEGIN
    REPEAT
    MESSAGE('lo que tiene grecFunc: ' + grecCaractAridosFunc.Descripción);
    grecCaractAridos2 := grecCaractAridosFunc;
    grecCaractAridos2.MARK(TRUE);
    MESSAGE('lo que tiene grecCaractAridos: ' + grecCaractAridos2.Descripción);
    UNTIL grecCaractAridosFunc.NEXT = 0;
    END;

    IF grecCaractAridos2.MARKEDONLY(TRUE) THEN
    IF grecCaractAridos2.FINDFIRST THEN
    REPEAT
    MESSAGE('al final de la func: ' + grecCaractAridos2.Descripción);
    UNTIL grecCaractAridos2.NEXT = 0;
Sign In or Register to comment.