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?
0
Comments
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;