let xResponse := dialog(" ADD Document Issues to Review  -> ", "Do you want to ADD Document Issues  To Control Issues Table ?", ["Yes", "NO"]);
if xResponse = "Yes" then
    let me := this;
    let newR := (create 'Control Issue');
    let totalRecords := count(select Control);
    for loop in select Control do
        newR.(
            let nameDoc := me.'Name Document';
            let coddoc := me.CodDOC;
            let r3 := me.'Real 3';
            let r4 := me.'Real 4';
            let r5 := me.'Real 5';
            newR.('Name Document' := nameDoc);
            newR.(CodDoc := coddoc);
            newR.('Issue A' := r3);
            newR.('Issue B' := r4);
            newR.('Issue 0' := r5)
        )
    end
else
    closeRecord()
end

Hi, This script works OK for translate one by one record, but need translate all for one click.